Pokey's Magazine 17/Pokeys_Magazine_17_1992_02___nl_Side_B.atr/atarios.lst

File List | 2023-02-26 | 1KB | 1 lines

0100  *=$600¢0110  .BYTE $0F,$06,$17,$06,$1F,$06¢0120  .BYTE $22,$06,$1F,$06,$1F,$06¢0130  .BYTE $00,$00,$00,$00¢0140 OPEN     LDA #$38¢0150          STA $D302¢0160          LDY #$01¢0170          RTS¢0180 CLOSE    LDA #$3C¢0190          STA $D302¢0200          LDY #$01¢0210          RTS¢0220 ERROR    LDY #$92¢0230          RTS¢0240 PUTA     CMP #$9B¢0250          BNE EOL¢0260          LDA #$0D¢0270 EOL      STA $60F¢0280          LDX #$08¢0290 ROL      ROL $60F¢0300          BCS BIT1¢0310          LDA #$00¢0320          JMP BIT0¢0330 BIT1     LDA #$10¢0340 BIT0     ORA $D300¢0350          STA $D300¢0355  JSR PAUSE¢0360          LDA #$20¢0370          ORA $D300¢0380          STA $D300¢0385  JSR PAUSE¢0390          LDA #$00¢0400          STA $D300¢0410          DEX¢0420          BNE ROL¢0430 BUSY     LDA $D011¢0440          BNE BUSY¢0450 STROBE   LDA #$40¢0460          STA $D300¢0490          LDA #$00¢0500          STA $D300¢0510          LDY #$01¢0520          RTS¢0521 PAUSE    LDY #$80¢0522 B4       DEY¢0523          BNE B4¢0524          RTS¢0530 RUNADR   *=$31B¢0540          .BYTE $00,$06¢