home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 February / Ahoy_Magazine_88-02_1988_Double_L.d64 / Pointerfix (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  627 b   |  16 lines
  1. 100 rem "pointerfix.bdl"  loader/saver
  2. 110 print"enter start address desired"
  3. 120 input"for machine code";sa:sa$=str$(sa):ea=sa+22
  4. 130 for n=sa to sa+21:read d:cs=cs+d:poke n,d:next
  5. 140 if cs<>1883 then print"error in data statements.  recneck":end
  6. 150 print:print"loaded ok.  to execute do sys";sa
  7. 160 sh=int(sa/256):sl=sa-256*sh:eh=int(ea/256):el=ea-256*eh
  8. 170 print:input"save to disk or tape  (d/t)";k$:if k$<>"d" and k$<>"t" then170
  9. 180 if k$="d" then sys 57812 "pointerfix"+sa$,8:goto200
  10. 190 if k$="t" then sys 57812 "pointerfix"+sa$,1
  11. 200 poke 193,sl:poke 194,sh:poke 174,el:poke 175,eh:sys 62954
  12. 210 print:print"done":end
  13. 220 data 32,51,165,24,165,34,105,2
  14. 230 data 133,45,165,35,105,0,133,46
  15. 240 data 32,89,166,76,116,164
  16.