C64 Software  <  SCA: The C64 Software Collection / SAVER $E000

  Run
1000              ;
1010              ;SAVER #1.0
1020              ;
1030              ORG 16384
1040              ;
1050              ;
1060 PTR          EQU 254
1070              ;
1080 INIT         LDA #224
1090              LDX #13
1100              STA PTR+1
1110              LDA #55
1120              STA 1
1130              LDY #0
1140              STY PTR
1150              ;
1160 LOP1         SEI
1170              DEC 1
1180              DEC 1
1190              LDA (PTR),Y
1200              INC 1
1210              INC 1
1220              CLI
1230              JSR 65490
1240              INY
1250              BNE LOP1
1260              INC PTR+1
1270              DEX
1280              BNE LOP1
1290              RTS
READY.