Serious Magazine 7/Serious_Magazine_07_2000_Dial_pl_Side_B.atr/sstuff07.lzh/PRINTGFX.LZH/IOPROC.ASM

Assembly Source File | 1988-09-01 | 1KB | 1 lines

pnfo equ *¢ lda <info¢ ldy >info¢ bne perr+4¢pwit equ *¢ lda <wait¢ ldy >wait¢ bne perr+4¢perr equ *¢ lda <erkm¢ ldy >erkm¢ ldx #$00¢ sta $340+4,x¢ tya¢ sta $340+5,x¢ lda #$09¢ sta $340+2,x¢ sta $340+9,x¢ jmp $e456¢¢gkey equ *¢ jsr clos¢ bmi gerr¢ lda #'K'¢ sta devs¢ jsr open¢ lda #'P'¢ sta devs¢ tya¢ bmi gerr¢ lda #$07¢ sta $340+2,x¢ lda #$00¢ sta $340+8,x¢ sta $340+9,x¢ jsr $e456¢ bmi gerr¢ sta gerr-3¢ jsr clos¢ bmi gerr¢ lda #$00¢ ldy #$01¢gerr equ *¢ rts¢¢open equ *¢ ldx #$10¢ lda #$03¢ sta $340+2,x¢ lda <devs¢ sta $340+4,x¢ lda >devs¢ sta $340+5,x¢ lda #$0c¢ sta $340+10,x¢ jmp $e456¢¢putb equ *¢ ldx #$10¢ lda #$0b¢ sta $340+2,x¢ lda bfad¢ sta $340+4,x¢ lda bfad+1¢ sta $340+5,x¢ lda bfln¢ sta $340+8,x¢ lda bfln+1¢ sta $340+9,x¢ jmp $e456¢¢clos equ *¢ ldx #$10¢ lda #$0c¢ sta $340+2,x¢ jmp $e456¢¢devs equ *¢ dta c'P:',b($9b)¢¢info equ *¢ dta c'Which mode? (0-7, any other -'¢ dta c' exit)',b($9b)¢wait equ *¢ dta c'Please wait...',b($9b)¢erkm equ *¢ dta c'Error! Press any key...',b($9b)¢¢