home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CS / DISK3.D81 / el (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  384 b   |  15 lines
  1. 0 REM ;
  2. 1 REM ; EL CHEAPO ASSEMBLER
  3. 2 REM ;        V1.0
  4. 3 REM ; S. L. JUDD 2/98
  5. 4 REM ;
  6. 10 A=A+1:X=PEEK(186)
  7. 20 IF A=1 THEN POKE 820,0:POKE 821,132:LOAD"AJAM$8400",X,1
  8. 30 IF A=2 THEN LOAD"CHEAP.O",X,1
  9. 32 :
  10. 34 REM LOWER TOP OF BASIC TO $83FF
  11. 35 POKE 55,255:POKE 56,131:CLR
  12. 39 :
  13. 40 POKE 38401,1:REM SWAP BANK
  14. 50 SYS 38400
  15.