antoine-source/dlld/source/dlld_Output.txt
Antoine Vignau 065f066503 DLLD
2024-04-05 23:51:31 +02:00

617 lines
80 KiB
Plaintext

------+------------------+-------------+----+---------+------+-----------------------+-------------------------------------------------------------------
Line | # File Line | Line Type | MX | Reloc | Size | Address Object Code | Source Code
------+------------------+-------------+----+---------+------+-----------------------+-------------------------------------------------------------------
1 | 1 dlld.s 1 | Comment | 11 | | 0 | 00/8000 | *
2 | 1 dlld.s 2 | Comment | 11 | | 0 | 00/8000 | * DLLD
3 | 1 dlld.s 3 | Comment | 11 | | 0 | 00/8000 | * Let's play Dragon's Lair :-)
4 | 1 dlld.s 4 | Comment | 11 | | 0 | 00/8000 | *
5 | 1 dlld.s 5 | Comment | 11 | | 0 | 00/8000 | * (c) 2024, Brutal Deluxe Software
6 | 1 dlld.s 6 | Comment | 11 | | 0 | 00/8000 | *
7 | 1 dlld.s 7 | Empty | 11 | | 0 | 00/8000 |
8 | 1 dlld.s 8 | Directive | 11 | | 0 | 00/8000 | mx %11
9 | 1 dlld.s 9 | Directive | 11 | | 0 | 00/8000 | org $2000
10 | 1 dlld.s 10 | Directive | 11 | | 0 | 00/2000 | lst off
11 | 1 dlld.s 11 | Empty | 11 | | 0 | 00/2000 |
12 | 1 dlld.s 12 | Comment | 11 | | 0 | 00/2000 | *-----------------------------------
13 | 1 dlld.s 13 | Comment | 11 | | 0 | 00/2000 | * MACROS
14 | 1 dlld.s 14 | Comment | 11 | | 0 | 00/2000 | *-----------------------------------
15 | 1 dlld.s 15 | Empty | 11 | | 0 | 00/2000 |
16 | 1 dlld.s 16 | Directive | 11 | | 0 | 00/2000 | _sendLD mac
17 | 1 dlld.s 17 | Directive | 11 | | 0 | 00/2000 | ldx #>]1
18 | 1 dlld.s 18 | Directive | 11 | | 0 | 00/2000 | ldy #<]1
19 | 1 dlld.s 19 | Directive | 11 | | 0 | 00/2000 | jsr sendSERIAL
20 | 1 dlld.s 20 | Directive | 11 | | 0 | 00/2000 | eom
21 | 1 dlld.s 21 | Empty | 11 | | 0 | 00/2000 |
22 | 1 dlld.s 22 | Directive | 11 | | 0 | 00/2000 | _receiveLD mac
23 | 1 dlld.s 23 | Directive | 11 | | 0 | 00/2000 | ldx #>]1
24 | 1 dlld.s 24 | Directive | 11 | | 0 | 00/2000 | ldy #<]1
25 | 1 dlld.s 25 | Directive | 11 | | 0 | 00/2000 | jsr receiveSERIAL
26 | 1 dlld.s 26 | Directive | 11 | | 0 | 00/2000 | eom
27 | 1 dlld.s 27 | Empty | 11 | | 0 | 00/2000 |
28 | 1 dlld.s 28 | Directive | 11 | | 0 | 00/2000 | _sendLDCommand mac
29 | 1 dlld.s 29 | Directive | 11 | | 0 | 00/2000 | ldx #>]1
30 | 1 dlld.s 30 | Directive | 11 | | 0 | 00/2000 | ldy #<]1
31 | 1 dlld.s 31 | Directive | 11 | | 0 | 00/2000 | jsr sendLDCommand
32 | 1 dlld.s 32 | Directive | 11 | | 0 | 00/2000 | eom
33 | 1 dlld.s 33 | Empty | 11 | | 0 | 00/2000 |
34 | 1 dlld.s 34 | Directive | 11 | | 0 | 00/2000 | _sendreceiveLD mac
35 | 1 dlld.s 35 | Directive | 11 | | 0 | 00/2000 | ldx #>]1
36 | 1 dlld.s 36 | Directive | 11 | | 0 | 00/2000 | ldy #<]1
37 | 1 dlld.s 37 | Directive | 11 | | 0 | 00/2000 | jsr sendreceiveLD
38 | 1 dlld.s 38 | Directive | 11 | | 0 | 00/2000 | eom
39 | 1 dlld.s 39 | Empty | 11 | | 0 | 00/2000 |
40 | 1 dlld.s 40 | Directive | 11 | | 0 | 00/2000 | _readSTRING mac
41 | 1 dlld.s 41 | Directive | 11 | | 0 | 00/2000 | ldx #>]1
42 | 1 dlld.s 42 | Directive | 11 | | 0 | 00/2000 | ldy #<]1
43 | 1 dlld.s 43 | Directive | 11 | | 0 | 00/2000 | jsr receiveSERIAL
44 | 1 dlld.s 44 | Directive | 11 | | 0 | 00/2000 | eom
45 | 1 dlld.s 45 | Empty | 11 | | 0 | 00/2000 |
46 | 1 dlld.s 46 | Directive | 11 | | 0 | 00/2000 | _sendSTRING mac
47 | 1 dlld.s 47 | Directive | 11 | | 0 | 00/2000 | ldx #>]1
48 | 1 dlld.s 48 | Directive | 11 | | 0 | 00/2000 | ldy #<]1
49 | 1 dlld.s 49 | Directive | 11 | | 0 | 00/2000 | jsr sendSerialString
50 | 1 dlld.s 50 | Directive | 11 | | 0 | 00/2000 | eom
51 | 1 dlld.s 51 | Empty | 11 | | 0 | 00/2000 |
52 | 1 dlld.s 52 | Comment | 11 | | 0 | 00/2000 | *-----------------------------------
53 | 1 dlld.s 53 | Comment | 11 | | 0 | 00/2000 | * EQUATES
54 | 1 dlld.s 54 | Comment | 11 | | 0 | 00/2000 | *-----------------------------------
55 | 1 dlld.s 55 | Empty | 11 | | 0 | 00/2000 |
56 | 1 dlld.s 56 | Equivalence | 11 | | 0 | 00/2000 | dpFROM = $fc
57 | 1 dlld.s 57 | Equivalence | 11 | | 0 | 00/2000 | dpTO = {$fc}+2
58 | 1 dlld.s 58 | Empty | 11 | | 0 | 00/2000 |
59 | 1 dlld.s 59 | Equivalence | 11 | | 0 | 00/2000 | KBD = $c000
60 | 1 dlld.s 60 | Equivalence | 11 | | 0 | 00/2000 | KBDSTROBE = $c010
61 | 1 dlld.s 61 | Equivalence | 11 | | 0 | 00/2000 | RDVBLBAR = $c019
62 | 1 dlld.s 62 | Empty | 11 | | 0 | 00/2000 |
63 | 1 dlld.s 63 | Equivalence | 11 | | 0 | 00/2000 | HOME = $fc58
64 | 1 dlld.s 64 | Equivalence | 11 | | 0 | 00/2000 | WAIT = $fca8
65 | 1 dlld.s 65 | Equivalence | 11 | | 0 | 00/2000 | COUT = $fded
66 | 1 dlld.s 66 | Empty | 11 | | 0 | 00/2000 |
67 | 1 dlld.s 67 | Equivalence | 11 | | 0 | 00/2000 | chrCTRLA = $01
68 | 1 dlld.s 68 | Equivalence | 11 | | 0 | 00/2000 | chrLINEFEED = $0a
69 | 1 dlld.s 69 | Equivalence | 11 | | 0 | 00/2000 | chrRETURN = $0d
70 | 1 dlld.s 70 | Equivalence | 11 | | 0 | 00/2000 | chrSPACE = $20
71 | 1 dlld.s 71 | Empty | 11 | | 0 | 00/2000 |
72 | 1 dlld.s 72 | Comment | 11 | | 0 | 00/2000 | *-----------------------------------
73 | 1 dlld.s 73 | Comment | 11 | | 0 | 00/2000 | * CODE
74 | 1 dlld.s 74 | Comment | 11 | | 0 | 00/2000 | *-----------------------------------
75 | 1 dlld.s 75 | Empty | 11 | | 0 | 00/2000 |
76 | 1 dlld.s 76 | Code | 11 | | 3 | 00/2000 : 20 EF 20 | jsr initSERIAL ; set the serial addresses
77 | 1 dlld.s 77 | Code | 11 | | 3 | 00/2003 : 20 59 20 | jsr initPORT ; init the serial port for LD support
78 | 1 dlld.s 78 | Code | 11 | | 3 | 00/2006 : 20 18 20 | jsr initLDDS ; show text
79 | 1 dlld.s 79 | Code | 11 | | 3 | 00/2009 : 20 27 20 | jsr initLDCO ; close the door
80 | 1 dlld.s 80 | Code | 11 | | 3 | 00/200C : 20 2F 20 | jsr initLDSA ; spin the disc
81 | 1 dlld.s 81 | Code | 11 | | 3 | 00/200F : 4C 37 20 | jmp initLDPL ; start playing
82 | 1 dlld.s 82 | Code | 11 | | 3 | 00/2012 : 4C 3F 20 | jmp initLDC ; get register C
83 | 1 dlld.s 83 | Empty | 11 | | 0 | 00/2015 |
84 | 1 dlld.s 84 | Code | 11 | | 3 | 00/2015 : 4C 08 21 | jmp resetSERIAL ; do not activate it when code is light
85 | 1 dlld.s 85 | Comment | 11 | | 0 | 00/2018 | ; or all commands will not be handled
86 | 1 dlld.s 86 | Empty | 11 | | 0 | 00/2018 |
87 | 1 dlld.s 87 | Comment | 11 | | 0 | 00/2018 | *-----------------------------------
88 | 1 dlld.s 88 | Comment | 11 | | 0 | 00/2018 | * LASERDISC
89 | 1 dlld.s 89 | Comment | 11 | | 0 | 00/2018 | *-----------------------------------
90 | 1 dlld.s 90 | Empty | 11 | | 0 | 00/2018 |
91 | 1 dlld.s 91 | Macro | 11 | | 0 | 00/2018 | initLDDS _sendLDCommand #strDS ; 4-28 DISPLAY TEXT
92 | 1 dlld.s 91 | Code | 11 | | 2 | 00/2018 : A2 22 | ldx #>#strDS
93 | 1 dlld.s 91 | Code | 11 | | 2 | 00/201A : A0 41 | ldy #<#strDS
94 | 1 dlld.s 91 | Code | 11 | | 3 | 00/201C : 20 2D 21 | jsr sendLDCommand
95 | 1 dlld.s 92 | Macro | 11 | | 0 | 00/201F | _sendLDCommand #strAV ; 4-28 DISPLAY TEXT
96 | 1 dlld.s 92 | Code | 11 | | 2 | 00/201F : A2 22 | ldx #>#strAV
97 | 1 dlld.s 92 | Code | 11 | | 2 | 00/2021 : A0 48 | ldy #<#strAV
98 | 1 dlld.s 92 | Code | 11 | | 3 | 00/2023 : 20 2D 21 | jsr sendLDCommand
99 | 1 dlld.s 93 | Code | 11 | | 1 | 00/2026 : 60 | rts
100 | 1 dlld.s 94 | Macro | 11 | | 0 | 00/2027 | initLDCO _sendLDCommand #strCO ; 4-11 CLOSE
101 | 1 dlld.s 94 | Code | 11 | | 2 | 00/2027 : A2 22 | ldx #>#strCO
102 | 1 dlld.s 94 | Code | 11 | | 2 | 00/2029 : A0 50 | ldy #<#strCO
103 | 1 dlld.s 94 | Code | 11 | | 3 | 00/202B : 20 2D 21 | jsr sendLDCommand
104 | 1 dlld.s 95 | Code | 11 | | 1 | 00/202E : 60 | rts
105 | 1 dlld.s 96 | Macro | 11 | | 0 | 00/202F | initLDSA _sendLDCommand #strSA ; 4-12 START
106 | 1 dlld.s 96 | Code | 11 | | 2 | 00/202F : A2 22 | ldx #>#strSA
107 | 1 dlld.s 96 | Code | 11 | | 2 | 00/2031 : A0 53 | ldy #<#strSA
108 | 1 dlld.s 96 | Code | 11 | | 3 | 00/2033 : 20 2D 21 | jsr sendLDCommand
109 | 1 dlld.s 97 | Code | 11 | | 1 | 00/2036 : 60 | rts
110 | 1 dlld.s 98 | Macro | 11 | | 0 | 00/2037 | initLDPL _sendLDCommand #strPL ; 4-13 PLAY
111 | 1 dlld.s 98 | Code | 11 | | 2 | 00/2037 : A2 22 | ldx #>#strPL
112 | 1 dlld.s 98 | Code | 11 | | 2 | 00/2039 : A0 56 | ldy #<#strPL
113 | 1 dlld.s 98 | Code | 11 | | 3 | 00/203B : 20 2D 21 | jsr sendLDCommand
114 | 1 dlld.s 99 | Code | 11 | | 1 | 00/203E : 60 | rts
115 | 1 dlld.s 100 | Macro | 11 | | 0 | 00/203F | initLDC _sendLDCommand #strC ; 4-45 $C
116 | 1 dlld.s 100 | Code | 11 | | 2 | 00/203F : A2 22 | ldx #>#strC
117 | 1 dlld.s 100 | Code | 11 | | 2 | 00/2041 : A0 59 | ldy #<#strC
118 | 1 dlld.s 100 | Code | 11 | | 3 | 00/2043 : 20 2D 21 | jsr sendLDCommand
119 | 1 dlld.s 101 | Code | 11 | | 1 | 00/2046 : 60 | rts
120 | 1 dlld.s 102 | Empty | 11 | | 0 | 00/2047 |
121 | 1 dlld.s 103 | Comment | 11 | | 0 | 00/2047 | *---------- Send LD command and Receive answer
122 | 1 dlld.s 104 | Empty | 11 | | 0 | 00/2047 |
123 | 1 dlld.s 105 | Empty | 11 | | 0 | 00/2047 | sendreceiveLD
124 | 1 dlld.s 106 | Code | 11 | | 3 | 00/2047 : 20 FE 21 | jsr sendSERIAL
125 | 1 dlld.s 107 | Empty | 11 | | 0 | 00/204A |
126 | 1 dlld.s 108 | Code | 11 | | 1 | 00/204A : EA | nop
127 | 1 dlld.s 109 | Code | 11 | | 2 | 00/204B : A9 96 | lda #150
128 | 1 dlld.s 110 | Code | 11 | | 3 | 00/204D : 20 A8 FC | jsr {$fca8}
129 | 1 dlld.s 111 | Code | 11 | | 1 | 00/2050 : EA | nop
130 | 1 dlld.s 112 | Empty | 11 | | 0 | 00/2051 |
131 | 1 dlld.s 113 | Macro | 11 | | 0 | 00/2051 | _readSTRING #responseBUF
132 | 1 dlld.s 113 | Code | 11 | | 2 | 00/2051 : A2 23 | ldx #>#responseBUF
133 | 1 dlld.s 113 | Code | 11 | | 2 | 00/2053 : A0 00 | ldy #<#responseBUF
134 | 1 dlld.s 113 | Code | 11 | | 3 | 00/2055 : 20 C2 21 | jsr receiveSERIAL
135 | 1 dlld.s 114 | Code | 11 | | 1 | 00/2058 : 60 | rts
136 | 1 dlld.s 115 | Empty | 11 | | 0 | 00/2059 |
137 | 1 dlld.s 116 | Comment | 11 | | 0 | 00/2059 | *-----------------------------------
138 | 1 dlld.s 117 | Comment | 11 | | 0 | 00/2059 | * SERIAL PORT (MODEM)
139 | 1 dlld.s 118 | Comment | 11 | | 0 | 00/2059 | *-----------------------------------
140 | 1 dlld.s 119 | Empty | 11 | | 0 | 00/2059 |
141 | 1 dlld.s 120 | Comment | 11 | | 0 | 00/2059 | *---------- Init modem port for LD support
142 | 1 dlld.s 121 | Empty | 11 | | 0 | 00/2059 |
143 | 1 dlld.s 122 | Code | 11 | | 3 | 00/2059 : 20 08 21 | initPORT jsr resetSERIAL
144 | 1 dlld.s 123 | Macro | 11 | | 0 | 00/205C | _sendSTRING #strED ; Don't echo output
145 | 1 dlld.s 123 | Code | 11 | | 2 | 00/205C : A2 22 | ldx #>#strED
146 | 1 dlld.s 123 | Code | 11 | | 2 | 00/205E : A0 1A | ldy #<#strED
147 | 1 dlld.s 123 | Code | 11 | | 3 | 00/2060 : 20 3F 21 | jsr sendSerialString
148 | 1 dlld.s 124 | Macro | 11 | | 0 | 00/2063 | _sendSTRING #strBE ; Input buffering: on
149 | 1 dlld.s 124 | Code | 11 | | 2 | 00/2063 : A2 22 | ldx #>#strBE
150 | 1 dlld.s 124 | Code | 11 | | 2 | 00/2065 : A0 1D | ldy #<#strBE
151 | 1 dlld.s 124 | Code | 11 | | 3 | 00/2067 : 20 3F 21 | jsr sendSerialString
152 | 1 dlld.s 125 | Macro | 11 | | 0 | 00/206A | _sendSTRING #str12B ; Baud rate: 4800 BPS
153 | 1 dlld.s 125 | Code | 11 | | 2 | 00/206A : A2 22 | ldx #>#str12B
154 | 1 dlld.s 125 | Code | 11 | | 2 | 00/206C : A0 20 | ldy #<#str12B
155 | 1 dlld.s 125 | Code | 11 | | 3 | 00/206E : 20 3F 21 | jsr sendSerialString
156 | 1 dlld.s 126 | Macro | 11 | | 0 | 00/2071 | _sendSTRING #str0D ; Data/Stop bits: 8/1
157 | 1 dlld.s 126 | Code | 11 | | 2 | 00/2071 : A2 22 | ldx #>#str0D
158 | 1 dlld.s 126 | Code | 11 | | 2 | 00/2073 : A0 24 | ldy #<#str0D
159 | 1 dlld.s 126 | Code | 11 | | 3 | 00/2075 : 20 3F 21 | jsr sendSerialString
160 | 1 dlld.s 127 | Macro | 11 | | 0 | 00/2078 | _sendSTRING #str0P ; Parity: none
161 | 1 dlld.s 127 | Code | 11 | | 2 | 00/2078 : A2 22 | ldx #>#str0P
162 | 1 dlld.s 127 | Code | 11 | | 2 | 00/207A : A0 27 | ldy #<#str0P
163 | 1 dlld.s 127 | Code | 11 | | 3 | 00/207C : 20 3F 21 | jsr sendSerialString
164 | 1 dlld.s 128 | Macro | 11 | | 0 | 00/207F | _sendSTRING #str0N ; Line length: 0
165 | 1 dlld.s 128 | Code | 11 | | 2 | 00/207F : A2 22 | ldx #>#str0N
166 | 1 dlld.s 128 | Code | 11 | | 2 | 00/2081 : A0 2A | ldy #<#str0N
167 | 1 dlld.s 128 | Code | 11 | | 3 | 00/2083 : 20 3F 21 | jsr sendSerialString
168 | 1 dlld.s 129 | Macro | 11 | | 0 | 00/2086 | _sendSTRING #strAD ; Do not implement basic tabs
169 | 1 dlld.s 129 | Code | 11 | | 2 | 00/2086 : A2 22 | ldx #>#strAD
170 | 1 dlld.s 129 | Code | 11 | | 2 | 00/2088 : A0 2D | ldy #<#strAD
171 | 1 dlld.s 129 | Code | 11 | | 3 | 00/208A : 20 3F 21 | jsr sendSerialString
172 | 1 dlld.s 130 | Macro | 11 | | 0 | 00/208D | _sendSTRING #strCD ; Disable line formatting
173 | 1 dlld.s 130 | Code | 11 | | 2 | 00/208D : A2 22 | ldx #>#strCD
174 | 1 dlld.s 130 | Code | 11 | | 2 | 00/208F : A0 30 | ldy #<#strCD
175 | 1 dlld.s 130 | Code | 11 | | 3 | 00/2091 : 20 3F 21 | jsr sendSerialString
176 | 1 dlld.s 131 | Macro | 11 | | 0 | 00/2094 | _sendSTRING #strXD ; Ignore XOFF
177 | 1 dlld.s 131 | Code | 11 | | 2 | 00/2094 : A2 22 | ldx #>#strXD
178 | 1 dlld.s 131 | Code | 11 | | 2 | 00/2096 : A0 33 | ldy #<#strXD
179 | 1 dlld.s 131 | Code | 11 | | 3 | 00/2098 : 20 3F 21 | jsr sendSerialString
180 | 1 dlld.s 132 | Macro | 11 | | 0 | 00/209B | _sendSTRING #strFD ; Disable keyboard input
181 | 1 dlld.s 132 | Code | 11 | | 2 | 00/209B : A2 22 | ldx #>#strFD
182 | 1 dlld.s 132 | Code | 11 | | 2 | 00/209D : A0 36 | ldy #<#strFD
183 | 1 dlld.s 132 | Code | 11 | | 3 | 00/209F : 20 3F 21 | jsr sendSerialString
184 | 1 dlld.s 133 | Macro | 11 | | 0 | 00/20A2 | _sendSTRING #strLD ; Do not add line feeds after CR
185 | 1 dlld.s 133 | Code | 11 | | 2 | 00/20A2 : A2 22 | ldx #>#strLD
186 | 1 dlld.s 133 | Code | 11 | | 2 | 00/20A4 : A0 39 | ldy #<#strLD
187 | 1 dlld.s 133 | Code | 11 | | 3 | 00/20A6 : 20 3F 21 | jsr sendSerialString
188 | 1 dlld.s 134 | Macro | 11 | | 0 | 00/20A9 | _sendSTRING #strME ; Mask line feed in
189 | 1 dlld.s 134 | Code | 11 | | 2 | 00/20A9 : A2 22 | ldx #>#strME
190 | 1 dlld.s 134 | Code | 11 | | 2 | 00/20AB : A0 3C | ldy #<#strME
191 | 1 dlld.s 134 | Code | 11 | | 3 | 00/20AD : 20 3F 21 | jsr sendSerialString
192 | 1 dlld.s 135 | Macro | 11 | | 0 | 00/20B0 | _sendSTRING #strZ ; Suppress control characters
193 | 1 dlld.s 135 | Code | 11 | | 2 | 00/20B0 : A2 22 | ldx #>#strZ
194 | 1 dlld.s 135 | Code | 11 | | 2 | 00/20B2 : A0 3F | ldy #<#strZ
195 | 1 dlld.s 135 | Code | 11 | | 3 | 00/20B4 : 20 3F 21 | jsr sendSerialString
196 | 1 dlld.s 136 | Code | 11 | | 3 | 00/20B7 : 20 BB 20 | jsr checkSerialInputReady
197 | 1 dlld.s 137 | Code | 11 | | 1 | 00/20BA : 60 | rts
198 | 1 dlld.s 138 | Empty | 11 | | 0 | 00/20BB |
199 | 1 dlld.s 139 | Comment | 11 | | 0 | 00/20BB | *---------- Check serial input is ready
200 | 1 dlld.s 140 | Empty | 11 | | 0 | 00/20BB |
201 | 1 dlld.s 141 | Empty | 11 | | 0 | 00/20BB | checkSerialInputReady
202 | 1 dlld.s 142 | Code | 11 | | 2 | 00/20BB : A9 01 | ozunid_1 lda #1 ; is input ready?
203 | 1 dlld.s 143 | Code | 11 | | 3 | 00/20BD : 20 7E 21 | jsr statusSERIAL
204 | 1 dlld.s 144 | Code | 11 | | 2 | 00/20C0 : F0 05 | beq checkSIR9
205 | 1 dlld.s 145 | Empty | 11 | | 0 | 00/20C2 |
206 | 1 dlld.s 146 | Code | 11 | | 3 | 00/20C2 : 20 1E 21 | jsr readSERIAL ; exit when nothing to read
207 | 1 dlld.s 147 | Code | 11 | | 2 | 00/20C5 : B0 F4 | bcs ozunid_1
208 | 1 dlld.s 148 | Empty | 11 | | 0 | 00/20C7 |
209 | 1 dlld.s 149 | Code | 11 | | 1 | 00/20C7 : 60 | checkSIR9 rts
210 | 1 dlld.s 150 | Empty | 11 | | 0 | 00/20C8 |
211 | 1 dlld.s 151 | Comment | 11 | | 0 | 00/20C8 | *---------- Check the input is ready
212 | 1 dlld.s 152 | Empty | 11 | | 0 | 00/20C8 |
213 | 1 dlld.s 153 | Empty | 11 | | 0 | 00/20C8 | checkInputReady
214 | 1 dlld.s 154 | Code | 11 | | 3 | 00/20C8 : 20 E9 20 | ozunid_2 jsr getSerialInputStatus
215 | 1 dlld.s 155 | Code | 11 | | 2 | 00/20CB : D0 13 | bne checkIR1
216 | 1 dlld.s 156 | Empty | 11 | | 0 | 00/20CD |
217 | 1 dlld.s 157 | Code | 11 | | 2 | 00/20CD : A9 00 | lda #0
218 | 1 dlld.s 158 | Code | 11 | | 3 | 00/20CF : 20 A8 FC | jsr {$fca8}
219 | 1 dlld.s 159 | Code | 11 | | 3 | 00/20D2 : 20 A8 FC | jsr {$fca8}
220 | 1 dlld.s 160 | Empty | 11 | | 0 | 00/20D5 |
221 | 1 dlld.s 161 | Code | 11 | | 3 | 00/20D5 : AD 00 C0 | lda {$c000}
222 | 1 dlld.s 162 | Code | 11 | | 2 | 00/20D8 : 10 EE | bpl ozunid_2
223 | 1 dlld.s 163 | Code | 11 | | 3 | 00/20DA : 2C 10 C0 | bit {$c010}
224 | 1 dlld.s 164 | Code | 11 | | 2 | 00/20DD : A9 01 | lda #1
225 | 1 dlld.s 165 | Code | 11 | | 1 | 00/20DF : 60 | rts
226 | 1 dlld.s 166 | Code | 11 | | 2 | 00/20E0 : A9 00 | checkIR1 lda #0
227 | 1 dlld.s 167 | Code | 11 | | 1 | 00/20E2 : 60 | rts
228 | 1 dlld.s 168 | Empty | 11 | | 0 | 00/20E3 |
229 | 1 dlld.s 169 | Comment | 11 | | 0 | 00/20E3 | *---------- Get serial output status
230 | 1 dlld.s 170 | Empty | 11 | | 0 | 00/20E3 |
231 | 1 dlld.s 171 | Empty | 11 | | 0 | 00/20E3 | getSerialOutputStatus
232 | 1 dlld.s 172 | Code | 11 | | 2 | 00/20E3 : A9 00 | lda #0
233 | 1 dlld.s 173 | Code | 11 | | 3 | 00/20E5 : 20 7E 21 | jsr statusSERIAL
234 | 1 dlld.s 174 | Code | 11 | | 1 | 00/20E8 : 60 | rts
235 | 1 dlld.s 175 | Empty | 11 | | 0 | 00/20E9 |
236 | 1 dlld.s 176 | Comment | 11 | | 0 | 00/20E9 | *---------- Get serial input status
237 | 1 dlld.s 177 | Empty | 11 | | 0 | 00/20E9 |
238 | 1 dlld.s 178 | Empty | 11 | | 0 | 00/20E9 | getSerialInputStatus
239 | 1 dlld.s 179 | Code | 11 | | 2 | 00/20E9 : A9 01 | lda #1
240 | 1 dlld.s 180 | Code | 11 | | 3 | 00/20EB : 20 7E 21 | jsr statusSERIAL
241 | 1 dlld.s 181 | Code | 11 | | 1 | 00/20EE : 60 | rts
242 | 1 dlld.s 182 | Empty | 11 | | 0 | 00/20EF |
243 | 1 dlld.s 183 | Comment | 11 | | 0 | 00/20EF | *---------- Set all addressses
244 | 1 dlld.s 184 | Empty | 11 | | 0 | 00/20EF |
245 | 1 dlld.s 185 | Empty | 11 | | 0 | 00/20EF | initSERIAL
246 | 1 dlld.s 186 | Code | 11 | | 3 | 00/20EF : AD 0D C1 | lda $c10d
247 | 1 dlld.s 187 | Code | 11 | | 3 | 00/20F2 : 8D 0D 21 | sta resetSERIAL+5
248 | 1 dlld.s 188 | Code | 11 | | 3 | 00/20F5 : AD 0E C1 | lda $c10e
249 | 1 dlld.s 189 | Code | 11 | | 3 | 00/20F8 : 8D 23 21 | sta readSERIAL+5
250 | 1 dlld.s 190 | Code | 11 | | 3 | 00/20FB : AD 0F C1 | lda $c10f
251 | 1 dlld.s 191 | Code | 11 | | 3 | 00/20FE : 8D 74 21 | sta writeSERIAL+5
252 | 1 dlld.s 192 | Code | 11 | | 3 | 00/2101 : AD 10 C1 | lda $c110
253 | 1 dlld.s 193 | Code | 11 | | 3 | 00/2104 : 8D 83 21 | sta statusSERIAL+5
254 | 1 dlld.s 194 | Code | 11 | | 1 | 00/2107 : 60 | rts
255 | 1 dlld.s 195 | Empty | 11 | | 0 | 00/2108 |
256 | 1 dlld.s 196 | Comment | 11 | | 0 | 00/2108 | *---------- Reset port, restore control panel defaults
257 | 1 dlld.s 197 | Empty | 11 | | 0 | 00/2108 |
258 | 1 dlld.s 198 | Empty | 11 | | 0 | 00/2108 | resetSERIAL
259 | 1 dlld.s 199 | Code | 11 | | 2 | 00/2108 : A2 C2 | ldx #$c2
260 | 1 dlld.s 200 | Code | 11 | | 2 | 00/210A : A0 20 | ldy #$20
261 | 1 dlld.s 201 | Code | 11 | | 3 | 00/210C : 20 0D C1 | jsr $c10d
262 | 1 dlld.s 202 | Code | 11 | | 2 | 00/210F : B0 04 | bcs resetSER1
263 | 1 dlld.s 203 | Code | 11 | | 2 | 00/2111 : A9 00 | lda #0 ; carry clear, not ready
264 | 1 dlld.s 204 | Code | 11 | | 2 | 00/2113 : F0 02 | beq resetSER2
265 | 1 dlld.s 205 | Code | 11 | | 2 | 00/2115 : A9 01 | resetSER1 lda #1 ; carry set, ready
266 | 1 dlld.s 206 | Empty | 11 | | 0 | 00/2117 |
267 | 1 dlld.s 207 | Code | 11 | | 2 | 00/2117 : E0 00 | resetSER2 cpx #0 ; check error code
268 | 1 dlld.s 208 | Code | 11 | | 2 | 00/2119 : F0 02 | beq resetSER3
269 | 1 dlld.s 209 | Code | 11 | | 2 | 00/211B : A9 02 | lda #2 ; reset error!
270 | 1 dlld.s 210 | Code | 11 | | 1 | 00/211D : 60 | resetSER3 rts
271 | 1 dlld.s 211 | Empty | 11 | | 0 | 00/211E |
272 | 1 dlld.s 212 | Comment | 11 | | 0 | 00/211E | *---------- Wait for and get next character
273 | 1 dlld.s 213 | Empty | 11 | | 0 | 00/211E |
274 | 1 dlld.s 214 | Empty | 11 | | 0 | 00/211E | readSERIAL
275 | 1 dlld.s 215 | Code | 11 | | 2 | 00/211E : A2 C2 | ldx #$c2 ; yes
276 | 1 dlld.s 216 | Code | 11 | | 2 | 00/2120 : A0 20 | ldy #$20
277 | 1 dlld.s 217 | Code | 11 | | 3 | 00/2122 : 20 0E C1 | jsr $c10e
278 | 1 dlld.s 218 | Code | 11 | | 2 | 00/2125 : E0 00 | cpx #0 ; carry holds the error
279 | 1 dlld.s 219 | Code | 11 | | 2 | 00/2127 : F0 02 | beq readSER1 ; and A the character
280 | 1 dlld.s 220 | Code | 11 | | 1 | 00/2129 : 38 | sec
281 | 1 dlld.s 221 | Data | 11 | | 1 | 00/212A : 24 | hex 24
282 | 1 dlld.s 222 | Code | 11 | | 1 | 00/212B : 18 | readSER1 clc
283 | 1 dlld.s 223 | Code | 11 | | 1 | 00/212C : 60 | rts
284 | 1 dlld.s 224 | Empty | 11 | | 0 | 00/212D |
285 | 1 dlld.s 225 | Comment | 11 | | 0 | 00/212D | *---------- Send a LD command
286 | 1 dlld.s 226 | Empty | 11 | | 0 | 00/212D |
287 | 1 dlld.s 227 | Empty | 11 | | 0 | 00/212D | sendLDCommand
288 | 1 dlld.s 228 | Code | 11 | | 2 | 00/212D : 84 FC | sty {$fc}
289 | 1 dlld.s 229 | Code | 11 | | 2 | 00/212F : 86 FD | stx {$fc}+1
290 | 1 dlld.s 230 | Empty | 11 | | 0 | 00/2131 |
291 | 1 dlld.s 231 | Code | 11 | | 3 | 00/2131 : 20 BB 20 | jsr checkSerialInputReady
292 | 1 dlld.s 232 | Code | 11 | | 2 | 00/2134 : D0 08 | bne sendLDC9
293 | 1 dlld.s 233 | Empty | 11 | | 0 | 00/2136 |
294 | 1 dlld.s 234 | Code | 11 | | 3 | 00/2136 : 20 4A 21 | jsr sendCRString
295 | 1 dlld.s 235 | Code | 11 | | 2 | 00/2139 : D0 03 | bne sendLDC9
296 | 1 dlld.s 236 | Empty | 11 | | 0 | 00/213B |
297 | 1 dlld.s 237 | Code | 11 | | 3 | 00/213B : 20 8D 21 | jsr receiveLDAnswer
298 | 1 dlld.s 238 | Empty | 11 | | 0 | 00/213E |
299 | 1 dlld.s 239 | Code | 11 | | 1 | 00/213E : 60 | sendLDC9 rts
300 | 1 dlld.s 240 | Empty | 11 | | 0 | 00/213F |
301 | 1 dlld.s 241 | Comment | 11 | | 0 | 00/213F | *---------- Send a serial string (it begins with a 1)
302 | 1 dlld.s 242 | Empty | 11 | | 0 | 00/213F |
303 | 1 dlld.s 243 | Empty | 11 | | 0 | 00/213F | sendSerialString
304 | 1 dlld.s 244 | Code | 11 | | 2 | 00/213F : 84 FC | sty {$fc}
305 | 1 dlld.s 245 | Code | 11 | | 2 | 00/2141 : 86 FD | stx {$fc}+1
306 | 1 dlld.s 246 | Empty | 11 | | 0 | 00/2143 |
307 | 1 dlld.s 247 | Code | 11 | | 2 | 00/2143 : A9 01 | lda #{$01}
308 | 1 dlld.s 248 | Code | 11 | | 3 | 00/2145 : 20 61 21 | jsr sendSerialCharacter
309 | 1 dlld.s 249 | Code | 11 | | 2 | 00/2148 : D0 16 | bne sendCRS9 ; on error, jump to the end
310 | 1 dlld.s 250 | Comment | 11 | | 0 | 00/214A | ; or goes below to sendCRString
311 | 1 dlld.s 251 | Empty | 11 | | 0 | 00/214A |
312 | 1 dlld.s 252 | Comment | 11 | | 0 | 00/214A | *---------- Send CR string
313 | 1 dlld.s 253 | Empty | 11 | | 0 | 00/214A |
314 | 1 dlld.s 254 | Empty | 11 | | 0 | 00/214A | sendCRString
315 | 1 dlld.s 255 | Code | 11 | | 2 | 00/214A : B2 FC | ozunid_3 lda ({$fc})
316 | 1 dlld.s 256 | Code | 11 | | 2 | 00/214C : F0 0D | beq sendCRS1 ; end of string?
317 | 1 dlld.s 257 | Code | 11 | | 3 | 00/214E : 20 61 21 | jsr sendSerialCharacter
318 | 1 dlld.s 258 | Code | 11 | | 2 | 00/2151 : D0 0D | bne sendCRS9 ; error!
319 | 1 dlld.s 259 | Empty | 11 | | 0 | 00/2153 |
320 | 1 dlld.s 260 | Code | 11 | | 2 | 00/2153 : E6 FC | inc {$fc}
321 | 1 dlld.s 261 | Code | 11 | | 2 | 00/2155 : D0 F3 | bne ozunid_3
322 | 1 dlld.s 262 | Code | 11 | | 2 | 00/2157 : E6 FD | inc {$fc}+1
323 | 1 dlld.s 263 | Code | 11 | | 2 | 00/2159 : D0 EF | bne ozunid_3
324 | 1 dlld.s 264 | Empty | 11 | | 0 | 00/215B |
325 | 1 dlld.s 265 | Code | 11 | | 2 | 00/215B : A9 0D | sendCRS1 lda #{$0d} ; yes, add a final CR
326 | 1 dlld.s 266 | Code | 11 | | 3 | 00/215D : 20 61 21 | jsr sendSerialCharacter
327 | 1 dlld.s 267 | Code | 11 | | 1 | 00/2160 : 60 | sendCRS9 rts
328 | 1 dlld.s 268 | Empty | 11 | | 0 | 00/2161 |
329 | 1 dlld.s 269 | Comment | 11 | | 0 | 00/2161 | *---------- Send serial character
330 | 1 dlld.s 270 | Empty | 11 | | 0 | 00/2161 |
331 | 1 dlld.s 271 | Empty | 11 | | 0 | 00/2161 | sendSerialCharacter
332 | 1 dlld.s 272 | Code | 11 | | 1 | 00/2161 : 48 | pha
333 | 1 dlld.s 273 | Empty | 11 | | 0 | 00/2162 |
334 | 1 dlld.s 274 | Code | 11 | | 3 | 00/2162 : 20 E3 20 | ozunid_4 jsr getSerialOutputStatus
335 | 1 dlld.s 275 | Code | 11 | | 2 | 00/2165 : D0 04 | bne sensSC1
336 | 1 dlld.s 276 | Empty | 11 | | 0 | 00/2167 |
337 | 1 dlld.s 277 | Code | 11 | | 1 | 00/2167 : 68 | pla
338 | 1 dlld.s 278 | Code | 11 | | 2 | 00/2168 : A9 01 | lda #1 ; return busy
339 | 1 dlld.s 279 | Code | 11 | | 1 | 00/216A : 60 | rts
340 | 1 dlld.s 280 | Empty | 11 | | 0 | 00/216B |
341 | 1 dlld.s 281 | Code | 11 | | 1 | 00/216B : 68 | sensSC1 pla
342 | 1 dlld.s 282 | Code | 11 | | 3 | 00/216C : 20 6F 21 | jsr writeSERIAL
343 | 1 dlld.s 283 | Empty | 11 | | 0 | 00/216F |
344 | 1 dlld.s 284 | Comment | 11 | | 0 | 00/216F | *---------- Send character
345 | 1 dlld.s 285 | Empty | 11 | | 0 | 00/216F |
346 | 1 dlld.s 286 | Empty | 11 | | 0 | 00/216F | writeSERIAL
347 | 1 dlld.s 287 | Code | 11 | | 2 | 00/216F : A2 C2 | ldx #$c2
348 | 1 dlld.s 288 | Code | 11 | | 2 | 00/2171 : A0 20 | ldy #$20
349 | 1 dlld.s 289 | Code | 11 | | 3 | 00/2173 : 20 0F C1 | jsr $c10f
350 | 1 dlld.s 290 | Code | 11 | | 2 | 00/2176 : E0 00 | cpx #0
351 | 1 dlld.s 291 | Code | 11 | | 2 | 00/2178 : F0 02 | beq writeSER1
352 | 1 dlld.s 292 | Code | 11 | | 2 | 00/217A : A2 02 | ldx #2
353 | 1 dlld.s 293 | Code | 11 | | 1 | 00/217C : 8A | writeSER1 txa
354 | 1 dlld.s 294 | Code | 11 | | 1 | 00/217D : 60 | rts
355 | 1 dlld.s 295 | Empty | 11 | | 0 | 00/217E |
356 | 1 dlld.s 296 | Comment | 11 | | 0 | 00/217E | *---------- Inquire if character has been received
357 | 1 dlld.s 297 | Empty | 11 | | 0 | 00/217E |
358 | 1 dlld.s 298 | Empty | 11 | | 0 | 00/217E | statusSERIAL
359 | 1 dlld.s 299 | Code | 11 | | 2 | 00/217E : A2 C2 | ldx #$c2
360 | 1 dlld.s 300 | Code | 11 | | 2 | 00/2180 : A0 20 | ldy #$20
361 | 1 dlld.s 301 | Code | 11 | | 3 | 00/2182 : 20 10 C1 | jsr $c110
362 | 1 dlld.s 302 | Code | 11 | | 2 | 00/2185 : E0 00 | cpx #0
363 | 1 dlld.s 303 | Code | 11 | | 2 | 00/2187 : F0 02 | beq statusSER1
364 | 1 dlld.s 304 | Code | 11 | | 2 | 00/2189 : A2 02 | ldx #2
365 | 1 dlld.s 305 | Code | 11 | | 1 | 00/218B : 8A | statusSER1 txa
366 | 1 dlld.s 306 | Code | 11 | | 1 | 00/218C : 60 | rts
367 | 1 dlld.s 307 | Empty | 11 | | 0 | 00/218D |
368 | 1 dlld.s 308 | Comment | 11 | | 0 | 00/218D | *---------- Receive a LD answer
369 | 1 dlld.s 309 | Empty | 11 | | 0 | 00/218D |
370 | 1 dlld.s 310 | Empty | 11 | | 0 | 00/218D | receiveLDAnswer
371 | 1 dlld.s 311 | Code | 11 | | 2 | 00/218D : A2 23 | ldx #>responseBUF
372 | 1 dlld.s 312 | Code | 11 | | 2 | 00/218F : A0 00 | ldy #<responseBUF
373 | 1 dlld.s 313 | Code | 11 | | 3 | 00/2191 : 20 9D 21 | jsr receiveSTRING
374 | 1 dlld.s 314 | Empty | 11 | | 0 | 00/2194 |
375 | 1 dlld.s 315 | Code | 11 | | 3 | 00/2194 : AD 00 23 | lda responseBUF
376 | 1 dlld.s 316 | Code | 11 | | 2 | 00/2197 : 09 80 | ora #$80
377 | 1 dlld.s 317 | Code | 11 | | 3 | 00/2199 : 20 ED FD | jsr {$fded}
378 | 1 dlld.s 318 | Code | 11 | | 1 | 00/219C : 60 | rts
379 | 1 dlld.s 319 | Empty | 11 | | 0 | 00/219D |
380 | 1 dlld.s 320 | Comment | 11 | | 0 | 00/219D | *---------- Receive String
381 | 1 dlld.s 321 | Empty | 11 | | 0 | 00/219D |
382 | 1 dlld.s 322 | Empty | 11 | | 0 | 00/219D | receiveSTRING
383 | 1 dlld.s 323 | Code | 11 | | 2 | 00/219D : 84 FE | sty {{$fc}+2}
384 | 1 dlld.s 324 | Code | 11 | | 2 | 00/219F : 86 FF | stx {{$fc}+2}+1
385 | 1 dlld.s 325 | Empty | 11 | | 0 | 00/21A1 |
386 | 1 dlld.s 326 | Code | 11 | | 3 | 00/21A1 : 20 C8 20 | ozunid_5 jsr checkInputReady
387 | 1 dlld.s 327 | Code | 11 | | 2 | 00/21A4 : C9 01 | cmp #1
388 | 1 dlld.s 328 | Code | 11 | | 2 | 00/21A6 : D0 01 | bne receiveSTR1
389 | 1 dlld.s 329 | Code | 11 | | 1 | 00/21A8 : 60 | rts
390 | 1 dlld.s 330 | Empty | 11 | | 0 | 00/21A9 |
391 | 1 dlld.s 331 | Code | 11 | | 3 | 00/21A9 : 20 1E 21 | receiveSTR1 jsr readSERIAL
392 | 1 dlld.s 332 | Code | 11 | | 2 | 00/21AC : 90 03 | bcc receiveSTR2
393 | 1 dlld.s 333 | Code | 11 | | 2 | 00/21AE : A9 02 | lda #2
394 | 1 dlld.s 334 | Code | 11 | | 1 | 00/21B0 : 60 | rts
395 | 1 dlld.s 335 | Empty | 11 | | 0 | 00/21B1 |
396 | 1 dlld.s 336 | Code | 11 | | 2 | 00/21B1 : 92 FE | receiveSTR2 sta ({{$fc}+2})
397 | 1 dlld.s 337 | Code | 11 | | 2 | 00/21B3 : C9 0D | cmp #{$0d}
398 | 1 dlld.s 338 | Code | 11 | | 2 | 00/21B5 : F0 08 | beq receiveSTR3
399 | 1 dlld.s 339 | Empty | 11 | | 0 | 00/21B7 |
400 | 1 dlld.s 340 | Code | 11 | | 2 | 00/21B7 : E6 FE | inc {{$fc}+2}
401 | 1 dlld.s 341 | Code | 11 | | 2 | 00/21B9 : D0 E6 | bne ozunid_5
402 | 1 dlld.s 342 | Code | 11 | | 2 | 00/21BB : E6 FF | inc {{$fc}+2}+1
403 | 1 dlld.s 343 | Code | 11 | | 2 | 00/21BD : D0 E2 | bne ozunid_5
404 | 1 dlld.s 344 | Empty | 11 | | 0 | 00/21BF |
405 | 1 dlld.s 345 | Code | 11 | | 2 | 00/21BF : A9 00 | receiveSTR3 lda #0
406 | 1 dlld.s 346 | Code | 11 | | 1 | 00/21C1 : 60 | rts
407 | 1 dlld.s 347 | Empty | 11 | | 0 | 00/21C2 |
408 | 1 dlld.s 348 | Comment | 11 | | 0 | 00/21C2 | *---------- Receive string
409 | 1 dlld.s 349 | Empty | 11 | | 0 | 00/21C2 |
410 | 1 dlld.s 350 | Empty | 11 | | 0 | 00/21C2 | receiveSERIAL
411 | 1 dlld.s 351 | Code | 11 | | 2 | 00/21C2 : 84 FE | sty {{$fc}+2}
412 | 1 dlld.s 352 | Code | 11 | | 2 | 00/21C4 : 86 FF | stx {{$fc}+2}+1
413 | 1 dlld.s 353 | Empty | 11 | | 0 | 00/21C6 |
414 | 1 dlld.s 354 | Code | 11 | | 1 | 00/21C6 : EA | ozunid_6 nop
415 | 1 dlld.s 355 | Code | 11 | | 1 | 00/21C7 : EA | nop
416 | 1 dlld.s 356 | Code | 11 | | 2 | 00/21C8 : A9 01 | lda #1
417 | 1 dlld.s 357 | Code | 11 | | 3 | 00/21CA : 20 7E 21 | jsr statusSERIAL
418 | 1 dlld.s 358 | Code | 11 | | 2 | 00/21CD : 90 F7 | bcc ozunid_6
419 | 1 dlld.s 359 | Empty | 11 | | 0 | 00/21CF |
420 | 1 dlld.s 360 | Code | 11 | | 1 | 00/21CF : EA | nop
421 | 1 dlld.s 361 | Code | 11 | | 1 | 00/21D0 : 18 | clc
422 | 1 dlld.s 362 | Code | 11 | | 3 | 00/21D1 : 20 1E 21 | jsr readSERIAL
423 | 1 dlld.s 363 | Code | 11 | | 2 | 00/21D4 : 29 7F | and #$7f
424 | 1 dlld.s 364 | Code | 11 | | 1 | 00/21D6 : 48 | pha
425 | 1 dlld.s 365 | Code | 11 | | 2 | 00/21D7 : 09 80 | ora #$80
426 | 1 dlld.s 366 | Code | 11 | | 3 | 00/21D9 : 20 ED FD | jsr {$fded}
427 | 1 dlld.s 367 | Code | 11 | | 1 | 00/21DC : 68 | pla
428 | 1 dlld.s 368 | Code | 11 | | 2 | 00/21DD : C9 20 | cmp #{$20}
429 | 1 dlld.s 369 | Code | 11 | | 2 | 00/21DF : B0 E5 | bcs ozunid_6
430 | 1 dlld.s 370 | Code | 11 | | 1 | 00/21E1 : 60 | rts
431 | 1 dlld.s 371 | Empty | 11 | | 0 | 00/21E2 |
432 | 1 dlld.s 372 | Code | 11 | | 2 | 00/21E2 : A0 00 | ldy #0
433 | 1 dlld.s 373 | Code | 11 | | 1 | 00/21E4 : 5A | receiveSER1 phy
434 | 1 dlld.s 374 | Code | 11 | | 2 | 00/21E5 : A9 01 | ozunid_7 lda #1 ; Do you have input ready?
435 | 1 dlld.s 375 | Code | 11 | | 3 | 00/21E7 : 20 7E 21 | jsr statusSERIAL
436 | 1 dlld.s 376 | Code | 11 | | 2 | 00/21EA : 90 F9 | bcc ozunid_7 ; no
437 | 1 dlld.s 377 | Code | 11 | | 3 | 00/21EC : 20 1E 21 | jsr readSERIAL ; yes, jump below
438 | 1 dlld.s 378 | Code | 11 | | 1 | 00/21EF : 7A | ply
439 | 1 dlld.s 379 | Code | 11 | | 2 | 00/21F0 : 91 FE | sta ({{$fc}+2}),y
440 | 1 dlld.s 380 | Code | 11 | | 2 | 00/21F2 : C9 0D | cmp #{$0d}
441 | 1 dlld.s 381 | Code | 11 | | 2 | 00/21F4 : F0 07 | beq receiveSER9
442 | 1 dlld.s 382 | Code | 11 | | 2 | 00/21F6 : C9 0A | cmp #{$0a}
443 | 1 dlld.s 383 | Code | 11 | | 2 | 00/21F8 : F0 03 | beq receiveSER9
444 | 1 dlld.s 384 | Code | 11 | | 1 | 00/21FA : C8 | iny
445 | 1 dlld.s 385 | Code | 11 | | 2 | 00/21FB : D0 E7 | bne receiveSER1
446 | 1 dlld.s 386 | Code | 11 | | 1 | 00/21FD : 60 | receiveSER9 rts
447 | 1 dlld.s 387 | Empty | 11 | | 0 | 00/21FE |
448 | 1 dlld.s 388 | Comment | 11 | | 0 | 00/21FE | *---------- Send string
449 | 1 dlld.s 389 | Empty | 11 | | 0 | 00/21FE |
450 | 1 dlld.s 390 | Code | 11 | | 2 | 00/21FE : 84 FC | sendSERIAL sty {$fc}
451 | 1 dlld.s 391 | Code | 11 | | 2 | 00/2200 : 86 FD | stx {$fc}+1
452 | 1 dlld.s 392 | Empty | 11 | | 0 | 00/2202 |
453 | 1 dlld.s 393 | Code | 11 | | 2 | 00/2202 : A0 00 | ldy #0
454 | 1 dlld.s 394 | Code | 11 | | 2 | 00/2204 : B1 FC | sendSERIAL1 lda ({$fc}),y
455 | 1 dlld.s 395 | Code | 11 | | 2 | 00/2206 : F0 11 | beq sendSERIAL9
456 | 1 dlld.s 396 | Code | 11 | | 1 | 00/2208 : 5A | phy
457 | 1 dlld.s 397 | Code | 11 | | 1 | 00/2209 : 48 | pha
458 | 1 dlld.s 398 | Empty | 11 | | 0 | 00/220A |
459 | 1 dlld.s 399 | Code | 11 | | 2 | 00/220A : A9 00 | ozunid_8 lda #0 ; Are you ready to accept output?
460 | 1 dlld.s 400 | Code | 11 | | 3 | 00/220C : 20 7E 21 | jsr statusSERIAL
461 | 1 dlld.s 401 | Code | 11 | | 2 | 00/220F : 90 F9 | bcc ozunid_8 ; no
462 | 1 dlld.s 402 | Empty | 11 | | 0 | 00/2211 |
463 | 1 dlld.s 403 | Code | 11 | | 1 | 00/2211 : 68 | pla
464 | 1 dlld.s 404 | Code | 11 | | 3 | 00/2212 : 20 6F 21 | jsr writeSERIAL
465 | 1 dlld.s 405 | Code | 11 | | 1 | 00/2215 : 7A | ply
466 | 1 dlld.s 406 | Code | 11 | | 1 | 00/2216 : C8 | iny
467 | 1 dlld.s 407 | Code | 11 | | 2 | 00/2217 : D0 EB | bne sendSERIAL1 ; limit to 256 characters
468 | 1 dlld.s 408 | Code | 11 | | 1 | 00/2219 : 60 | sendSERIAL9 rts
469 | 1 dlld.s 409 | Empty | 11 | | 0 | 00/221A |
470 | 1 dlld.s 410 | Comment | 11 | | 0 | 00/221A | *-----------------------------------
471 | 1 dlld.s 411 | Comment | 11 | | 0 | 00/221A | * DATA
472 | 1 dlld.s 412 | Comment | 11 | | 0 | 00/221A | *-----------------------------------
473 | 1 dlld.s 413 | Empty | 11 | | 0 | 00/221A |
474 | 1 dlld.s 414 | Comment | 11 | | 0 | 00/221A | *---------- Serial data
475 | 1 dlld.s 415 | Empty | 11 | | 0 | 00/221A |
476 | 1 dlld.s 416 | Data | 11 | | 3 | 00/221A : 45 44 00 | strED asc 'ED'00 ; *Don't echo output
477 | 1 dlld.s 417 | Data | 11 | | 3 | 00/221D : 42 45 00 | strBE asc 'BE'00 ; *Input buffering: on
478 | 1 dlld.s 418 | Data | 11 | | 4 | 00/2220 : 31 32 42 00 | str12B asc '12B'00 ; *Baud rate: 4800 BPS
479 | 1 dlld.s 419 | Data | 11 | | 3 | 00/2224 : 30 44 00 | str0D asc '0D'00 ; *Data/Stop bits: 8/1
480 | 1 dlld.s 420 | Data | 11 | | 3 | 00/2227 : 30 50 00 | str0P asc '0P'00 ; *Parity: none
481 | 1 dlld.s 421 | Data | 11 | | 3 | 00/222A : 30 4E 00 | str0N asc '0N'00 ; Line length: 0
482 | 1 dlld.s 422 | Data | 11 | | 3 | 00/222D : 41 44 00 | strAD asc 'AD'00 ; *Do not implement basic tabs
483 | 1 dlld.s 423 | Data | 11 | | 3 | 00/2230 : 43 44 00 | strCD asc 'CD'00 ; *Disable line formatting
484 | 1 dlld.s 424 | Data | 11 | | 3 | 00/2233 : 58 44 00 | strXD asc 'XD'00 ; *Ignore XOFF
485 | 1 dlld.s 425 | Data | 11 | | 3 | 00/2236 : 46 44 00 | strFD asc 'FD'00 ; *Disable keyboard input
486 | 1 dlld.s 426 | Data | 11 | | 3 | 00/2239 : 4C 44 00 | strLD asc 'LD'00 ; Do not add line feeds after CR
487 | 1 dlld.s 427 | Data | 11 | | 3 | 00/223C : 4D 45 00 | strME asc 'ME'00 ; Mask line feed in
488 | 1 dlld.s 428 | Data | 11 | | 2 | 00/223F : 5A 00 | strZ asc 'Z'00 ; *Suppress control characters
489 | 1 dlld.s 429 | Empty | 11 | | 0 | 00/2241 |
490 | 1 dlld.s 430 | Comment | 11 | | 0 | 00/2241 | *---------- Laserdisc
491 | 1 dlld.s 431 | Empty | 11 | | 0 | 00/2241 |
492 | 1 dlld.s 432 | Data | 11 | | 7 | 00/2241 : 31 44 53 20 | strDS asc '1DS CS'00
| | | | | | 43 53 00 |
493 | 1 dlld.s 433 | Data | 11 | | 8 | 00/2248 : 41 4E 54 4F | strAV asc 'ANTOINE'00
| | | | | | 49 4E 45 00 |
494 | 1 dlld.s 434 | Data | 11 | | 3 | 00/2250 : 43 4F 00 | strCO asc 'CO'00
495 | 1 dlld.s 435 | Data | 11 | | 3 | 00/2253 : 53 41 00 | strSA asc 'SA'00
496 | 1 dlld.s 436 | Data | 11 | | 3 | 00/2256 : 50 4C 00 | strPL asc 'PL'00
497 | 1 dlld.s 437 | Data | 11 | | 3 | 00/2259 : 24 43 00 | strC asc '$C'00
498 | 1 dlld.s 438 | Empty | 11 | | 0 | 00/225C |
499 | 1 dlld.s 439 | Data | 11 | | 164 | 00/225C : 00 00 00 00 | ds \
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
500 | 1 dlld.s 440 | Empty | 11 | | 0 | 00/2300 |
501 | 1 dlld.s 441 | Data | 11 | | 256 | 00/2300 : 00 00 00 00 | responseBUF ds 256 ; LD player response
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
| | | | | | 00 00 00 00 |
502 | 1 dlld.s 442 | Empty | 11 | | 0 | 00/2400 |
503 | 1 dlld.s 443 | Comment | 11 | | 0 | 00/2400 | *-----------------------------------
504 | 1 dlld.s 444 | Comment | 11 | | 0 | 00/2400 | * END OF CODE
505 | 1 dlld.s 445 | Comment | 11 | | 0 | 00/2400 | *-----------------------------------
506 | 1 dlld.s 446 | Empty | 11 | | 0 | 00/2400 |
507 | 1 dlld.s 447 | Empty | 11 | | 0 | 00/2400 |
------+------------------+-------------+----+---------+------+-----------------------+-------------------------------------------------------------------