0000 10 .TITLE "HELLO WORLD" 0000 20 .OPT OBJ 0000 30 *= $4000 009B 40 EOL = $9B 50 ; *** SETUP ICCOM2 *** 0003 60 OPEN = $03 0008 70 WRITE = $08 0009 80 PUTREC = $09 000B 90 PUTCHR = $0B 000C 0100 CLOSE = $0C 0340 0110 IOCB = $0340 0342 0120 ICCOM = $0342 0344 0130 ICBAL = $0344 0345 0140 ICBAH = $0345 0348 0150 ICBLL = $0348 0349 0160 ICBLH = $0349 034A 0170 ICAX1 = $034A 034B 0180 ICAX2 = $034B E456 0190 CIOV = $E456 4000 45 0200 DEVNAM .BYTE "E:",EOL 4001 3A 4002 9B 4003 48 0210 MYTEXT .BYTE "HELLO WORLD!",EOL 4004 45 4005 4C 4006 4C 4007 4F 4008 20 4009 57 400A 4F 400B 52 400C 4C 400D 44 400E 21 400F 9B 0220 ; 0230 OPENSCR 4010 A220 0240 LDX #$20 4012 A903 0250 LDA #OPEN 4014 9D4203 0260 STA ICCOM,X 0270 ; 4017 A900 0280 LDA #DEVNAM&255 4019 9D4403 0290 STA ICBAL,X 401C A940 0300 LDA #DEVNAM/256 401E 9D4503 0310 STA ICBAH,X 0320 ; 0330 ; SET SCREEN FOR WRITE OPERATION 4021 A908 0340 LDA #WRITE 4023 9D4A03 0350 STA ICAX1,X 4026 A900 0360 LDA #$00 4028 9D4B03 0370 STA ICAX2,X 402B 2056E4 0380 JSR CIOV 0390 ; 0400 ; SET PUT RECORD 402E A909 0410 LDA #PUTREC 4030 9D4203 0420 STA ICCOM,X 0430 ; 0440 ; SET TEXT BUFFER 4033 A903 0450 LDA #MYTEXT&255 HELLO WORLD 4035 9D4403 0460 STA ICBAL,X 4038 A940 0470 LDA #MYTEXT/256 403A 9D4503 0480 STA ICBAH,X 0490 ; 0500 ; PRINT MESSAGE TO SCREEN 403D A900 0510 LDA #$00 403F 9D4803 0520 STA ICBLL,X 4042 A9FF 0530 LDA #$FF 4044 9D4903 0540 STA ICBLH,X 0550 ; 0560 ; 4047 A9FF 0570 LDA #$FF 4049 8DFC02 0580 STA $02FC 404C 2056E4 0590 LOOP JSR CIOV 404F ADFC02 0600 LDA $02FC 4052 C9FF 0610 CMP #$FF 4054 D004 0620 BNE QUIT 4056 4C4C40 0630 JMP LOOP 0640 ; 4059 00 0650 ERROR BRK 405A 00 0660 QUIT BRK 405B 0670 .END