home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / geos-archive / GEOS-D64 / GecKOS64.d64 / loader (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  308b  |  18 lines
  1. 5 ON A GOTO 110, 120, 130
  2. 10 PRINT  "SET BASIC END"
  3. 20 POKE 56, 16
  4. 30 CLR
  5. 90 A=1
  6. 91 AD=PEEK(186)
  7. 92 IF AD < 8 OR AD > 11 THEN AD = 8
  8. 95 REM PRINT"LOAD CHAROM"
  9. 100 REM LOAD"CHAROM",AD,1
  10. 110 A=2
  11. 112 PRINT"LOAD ROM IMAGE"
  12. 115 LOAD"C64ROM",AD,1
  13. 120 A=3
  14. 122 PRINT"LOAD BOOT ROUTINE"
  15. 125 LOAD"BOOT",AD,1
  16. 130 PRINT"START CSA65"
  17. 135 SYS 12*256
  18.