Antic Magazine 1983 June/Antic_Vol_2_No_3_June_1983.atr/module.asm

Assembly Source File | 2021-02-19 | 2KB | 1 lines

0100   .OPT NOEJECT¢0110 ; MODE1.SRC BY JERRY WHITE¢0120 ;¢0130 ; THIS ASSEMBLER CODE SIMULATES¢0140 ; THE FOLLOWING BASIC PROGRAM:¢0150 ;¢0160 ; CLOSE #6¢0170 ; GRAPHICS 1¢0180 ; PRINT #6;"GRAPHICS MODE ONE"¢0190 ; PRINT "TEXT WINDOW" 0200 ;¢0210 ; ASSEMBLE THEN¢0220 ; EXECUTE FROM BUG (G620)¢0230 ;¢0240 ;¢0250   *= $600 ; RELOCATABLE¢0260 ;¢0270 DEV  .BYTE "S:" ; SCREEN¢0280 MSG1 .BYTE "GRAPHICS MODE ONE",$9B¢0290 MSG2 .BYTE "TEXT WINDOW",$9B¢0300 ;¢0310   LDX #$60        ; IOCB #6¢0320   LDA #$C         ; CLOSE¢0330   STA $342,X¢0340   JSR $E456       ; LET CIOV DO IT¢0350 ;¢0360   LDX #$60        ; IOCB #6¢0370 ;¢0380   LDA #$3         ; OPEN¢0390   STA $342,X¢0400   LDA #DEV&$00FF  ; ADDRESS¢0410   STA $344,X¢0420   LDA #DEV/256    ; OF DATA¢0430   STA $345,X¢0440   LDA #$1C        ; READ/WRITE¢0450   STA $34A,X¢0460   LDA #$1         ; GR. 1¢0470   STA $34B,X¢0480   JSR $E456       ; LET CIOV DO IT¢0490 ;¢0500   LDX #$60        ; IOCB #6¢0510   LDA #$9         ; PUT RECORD¢0520   STA $342,X¢0530   LDA #MSG1&$00FF ; ADDRESS¢0540   STA $344,X¢0550   LDA #MSG1/256   ; OF DATA¢0560   STA $345,X¢0570   LDA #$12        ; LENGTH OF¢0580   STA $348,X¢0590   LDA #$0         ; MSG1¢0600   STA $349,X¢0610   JSR $E456       ; LET CIOV DO IT¢0620 ;¢0630   LDX #$0         ; IOCB #0 (TEXT)¢0640   LDA #$9         ; PUT RECORD¢0650   STA $342,X¢0660   LDA #MSG2&$00FF ; ADDRESS¢0670   STA $344,X¢0680   LDA #MSG2/256   ; OF DATA¢0690   STA $345,X¢0700   LDA #$D         ; LENGTH¢0710   STA $348,X¢0720   LDA #$0         ; MSG2¢0730   STA $349,X¢0740   JSR $E456       ; LET CIOV DO IT¢0750   BRK             ; END DEMO¢