92 lines
2.6 KiB
Plaintext
92 lines
2.6 KiB
Plaintext
|
|
|
|
|
|
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
|