000: 00 CLRA ; a=0
001: 33 5F OGI 15 ; g=1111
003: 32 RC ; c=0
004: 6B EC JSR 3EC
006: 20 SKC ; skip if c (not expected, signals internal ram error)
007: CC JP 00C
008: 32 RC ; c=0
009: 4F XAS ; sk=c, sio <> a
00A: 22 SC ; c=1
00B: CD JP 00D
00C: 4F XAS ; sk=c, sio <> a
00D: 21 SKE ; check if sio == ram[0] (e.g. 0xf)
00E: 62 F8 JMP 2F8
; iocop code
; Memory map:
; 00-0f fifo
; 10 tenth
; 11 sec0
; 12 sec1
; 13 min0
; 14 min1
; 15 hour0
; 16 hour1
; 17 day0
; 18 day1
; 19 day2
; 1a year
; 1b alarm0
; 1c alarm1
; 1d alarm2
; 1e alarm3
; 1f alarm4
; 20-21 mouse horizontal position (msb first)
; 22 past and present quadrature values on x
; 23 index of current parameter to set
; 26 mouse send timer bit3=0 enabled, bit2-0 = remaining time before message, sends on underflow
; 27-28 ticks counter 1.0 (resets at 4.e)
; 2c fifo write position
; 2e high nibble to send to the 68000 / high nibble from kbcop
; 2f low nibble to send to the 68000 / low nibble from kbcop
; 30-31 mouse vertical position (msb first)
; 32 past and present quadrature values on y
; 33 low indicator bits
; 34 high indicator bits
; 35 high nmi nibble
; 36 low nmi nibble
; 37 mouse mode
; 38 ticks counter 2 (saturates), time before startup
; 39 i/o port, bit 3 = disabled, bit 2 = fifo not empty, bit 0 = route to fifo
; 3a temporary used in command management
; 3b clock mode (bit2 = system 0, bit 1-0 = 0=off/1=no timer/2=timer interrupt/3=timer power on and interrupt)
; 3c temporary
; 3d temporary
010: 6A 56 JSR 256 ; System off
012: 20 SKC
013: D9 JP 019 ; go here on internal ram failure
014: 8C JSRP 08C ; Switch to output
015: 2D LBI 2,14
016: 7F STII 15
017: 7E STII 14
018: 8F JSRP 08F ; Send byte
; normal iocop loop
019: 68 40 JSR 040 ; Mouse movement
01B: 69 FA JSR 1FA ; Handle command
01D: 68 77 JSR 077 ; Handle time
01F: 68 40 JSR 040 ; Mouse movement
021: 69 24 JSR 124
023: 68 40 JSR 040 ; Mouse movement
025: 41 SKT
026: EB JP 02B
027: 6A 7B JSR 27B ; Count one tick
029: 69 BE JSR 1BE ; Mouse message
02B: 68 FF JSR 0FF ; Fifo flush
02D: D9 JP 019
02E: 60 19 JMP 019
; Table of routines depending on current and previous up/down or left/right
; Polarity is unclear but in fact unimportant
pr. -- -d u- ud -- -d u- ud -- -d u- ud -- -d u- ud
cur -- -- -- -- -d -d -d -d u- u- u- u- ud ud ud ud
030: 73 61 69 73 69 73 73 61 61 73 73 69 73 69 61 73
61 = +1
69 = -1
73 = do nothing
; Mouse movement
040: 08 LBI 0,9 ; b = 0,9
041: 33 3E OBD ; D = b.d // power on, select 0, pb6 = 1
043: 33 2A ING ; A = pwrsw, +12V, left, right
045: 3B LBI 3,12 ; b = 3,c
046: 06 X 0 ; A <> ram[3c]
047: 42 RMB 2 ; ram[3c] &= ~c
048: 43 RMB 3
049: 01 SKMBZ 0 ; a += (right ? 4 : 0) + (left ? 8 : 0)
04A: 54 AISC 4
04B: 11 SKMBZ 1
04C: 58 AISC 8
04D: 33 A2 LBI 2,2 ; b = 2,2
04F: 9F JSRP 09F ; do move
050: 0A LBI 0,11 ; b = 0,b
051: 33 3E OBD ; D = b.d // power on, select 1, pb6 = 1
053: 33 2A ING ; A = pwrsw, +12V, up, down
055: 3C LBI 3,13 ; b = 3,d
056: 06 X 0 ; A <> ram[3d]
057: 42 RMB 2 ; ram[3d] &= ~c
058: 43 RMB 3
059: 01 SKMBZ 0 ; a += (down ? 4 : 0) + (up ? 8 : 0)
05A: 54 AISC 4
05B: 11 SKMBZ 1
05C: 58 AISC 8
05D: 33 B2 LBI 3,2 ; b = 3,2
05F: 9F JSRP 09F ; do move
060: 48 RET
; step +1
061: 07 XDS 0
062: 22 SC
063: 00 CLRA
064: 30 ASC
065: EF JP 06F
066: 07 XDS 0 ; exit on wrap
067: E3 JP 063
068: F0 JP 070
; step -1
069: 07 XDS 0
06A: 32 RC
06B: 00 CLRA
06C: 5F AISC 15
06D: 30 ASC
06E: F4 JP 074
06F: 06 X 0
070: 33 A6 LBI 2,6 ; clear bit 3 of ram[26] to indicate the change of position
072: 43 RMB 3
; nop
073: 48 RET
074: 07 XDS 0 ; exit on wrap
075: EB JP 06B
076: F0 JP 070
; Handle time
077: 33 03 SKGBZ 2
079: 48 RET
07A: A3 JSRP 0A3 ; wait one tick
07B: 33 03 SKGBZ 2
07D: 48 RET
07E: 62 53 JMP 253
080: 23 A9 XAD 2,9
082: 51 AISC 1
083: 44 NOP
084: 5F AISC 15
085: 89 JP 089
086: 23 A9 XAD 2,9
088: DB JP 0DB
089: 23 A9 XAD 2,9
08B: DF JP 0DF
; Send 0x80
08C: 2D LBI 2,14
08D: 78 STII 8 ; ram[2e] = 8
08E: 70 STII 0 ; ram[2f] = 0
; Send byte
08F: 38 LBI 3,9
090: 01 SKMBZ 0
091: CD JP 0CD ; Fifo push
092: 4D SMB 0
093: 2D LBI 2,14
094: 04 XIS 0
095: 33 3C CAMQ ; q =
097: 33 65 LEI 5 ; sio = counter, load l from q, so=0 (so goes to ca1)
099: 33 6D LEI 13 ; sio = counter, load l from q, so=1
09B: 33 61 LEI 1 ; sio = counter, l hi-Z, so=0
09D: 44 NOP
09E: 48 RET
; do mouse move by jumping to appropriate routine
; memory has top two bits as new value and bottom two as previous value
09F: 06 X 0
0A0: 00 CLRA
0A1: 53 AISC 3
0A2: FF JID
; wait one tick
0A3: 41 SKT ; wait for timer
0A4: A3 JP 0A3
0A5: 62 7B JMP 27B
; KB send 80
0A7: 3D LBI 3,14
0A8: 78 STII 8
0A9: 70 STII 0
; KB send byte
0AA: 3D LBI 3,14
0AB: 33 01 SKGBZ 0
0AD: AB JP 0AB ; wait until g0 = 1
0AE: 33 01 SKGBZ 0
0B0: B2 JP 0B2 ; wait until g0 = 0
0B1: AE JP 0AE
0B2: 33 01 SKGBZ 0 ; wait shortly for g0 = 1
0B4: DD JP 0DD
0B5: 22 SC
0B6: 4F XAS ; sk = 1 (-> drop to 0)
0B7: 32 RC
0B8: 01 SKMBZ 0
0B9: 22 SC
0BA: 4F XAS ; sk = !bit 0/4
0BB: 32 RC
0BC: 11 SKMBZ 1
0BD: 22 SC
0BE: 4F XAS ; sk = !bit 1/5
0BF: 32 RC
0C0: 03 SKMBZ 2
0C1: 22 SC
0C2: 4F XAS ; sk = !bit 2/6
0C3: 32 RC
0C4: 13 SKMBZ 3
0C5: 22 SC
0C6: 4F XAS ; sk = !bit 3/7
0C7: 06 X 0
0C8: 04 XIS 0
0C9: B7 JP 0B7
0CA: 32 RC
0CB: 4F XAS ; sk = 0
0CC: 48 RET
; Fifo push
0CD: 46 SMB 2
0CE: 2B LBI 2,12
0CF: 05 LD 0
0D0: 52 AISC 2
0D1: 44 NOP
0D2: 06 X 0
0D3: 05 LD 0
0D4: 0F LBI 0,0
0D5: 50 CAB
0D6: 23 2E LDD 2,14
0D8: 04 XIS 0
0D9: 23 2F LDD 2,15
0DB: 06 X 0
0DC: 48 RET
0DD: 60 B5 JMP 0B5
0DF: 02 XOR
0E0: 23 AD XAD 2,13
0E2: 23 2D LDD 2,13
0E4: 06 X 0
0E5: 23 AC XAD 2,12
0E7: 33 2A ING
0E9: 21 SKE
0EA: F7 JP 0F7
0EB: 00 CLRA
0EC: 51 AISC 1
0ED: EC JP 0EC
0EE: 33 2A ING
0F0: 21 SKE
0F1: F7 JP 0F7
0F2: 23 2C LDD 2,12
0F4: 06 X 0
0F5: 00 CLRA
0F6: 49 RETSK
0F7: 06 X 0
0F8: 23 2C LDD 2,12
0FA: 02 XOR
0FB: 06 X 0
0FC: 23 2C LDD 2,12
0FE: 48 RET
; Fifo flush
0FF: 33 60 LEI 0
101: 38 LBI 3,9
102: 01 SKMBZ 0
103: 13 SKMBZ 3
104: 48 RET
105: 32 RC
106: 4F XAS
107: 5F AISC 15
108: CA JP 10A
109: 48 RET
; Fifo send if needed
10A: 03 SKMBZ 2
10B: D4 JP 114
10C: 4C RMB 0
10D: 00 CLRA
10E: 23 A4 XAD 2,4
110: 51 AISC 1
111: 48 RET
112: 62 39 JMP 239
114: 2C LBI 2,13
115: 05 LD 0
116: 52 AISC 2
117: 44 NOP
118: 07 XDS 0
119: 23 2D LDD 2,13
11B: 21 SKE
11C: DF JP 11F
11D: 38 LBI 3,9
11E: 42 RMB 2
11F: 0F LBI 0,0
120: 50 CAB
121: 04 XIS 0
122: 60 95 JMP 095 ; send the byte
; Read keyboard and mouse buttons
124: 3E LBI 3,15
125: 33 3E OBD ; power on, select 3, pb6 = 1
127: 38 LBI 3,9
128: 03 SKMBZ 2
129: EB JP 12B
12A: F3 JP 133
; bytes in fifo already
12B: 23 2C LDD 2,12
12D: 2C LBI 2,13
12E: 22 SC
12F: 10 CASC
130: 44 NOP
131: 58 AISC 8
132: 48 RET
; fifo empty
133: 33 01 SKGBZ 0 ; Check if kbd is zero, e.g. sending request
135: F8 JP 138
136: 61 83 JMP 183
138: 23 38 LDD 3,8
13A: 51 AISC 1
13B: 61 8D JMP 18D ; Only do it after bootup time
13D: 33 61 LEI 1
13F: 22 SC
140: 3D LBI 3,14
141: 4F XAS ; sk = 1
142: 23 33 LDD 3,3
144: 04 XIS 0
145: 32 RC
146: 4F XAS ; sk = 0
147: 23 34 LDD 3,4
149: 06 X 0
14A: 2D LBI 2,14 ; Read a byte serially from the keyboard (kbd line)
14B: 33 01 SKGBZ 0
14D: FD JP 17D
14E: 4D SMB 0
14F: 33 01 SKGBZ 0
151: 4C RMB 0
152: 47 SMB 1
153: 33 01 SKGBZ 0
155: 45 RMB 1
156: 46 SMB 2
157: 33 01 SKGBZ 0
159: 42 RMB 2
15A: 4B SMB 3
15B: 33 01 SKGBZ 0
15D: 43 RMB 3
15E: 06 X 0
15F: 04 XIS 0
160: CE JP 14E
161: 33 B5 LBI 3,5
163: 33 01 SKGBZ 0
165: E8 JP 168
166: 61 83 JMP 183
168: 13 SKMBZ 3
169: ED JP 16D
16A: 8F JSRP 08F ; Send byte
16B: 61 33 JMP 133
16D: 23 2E LDD 2,14
16F: 21 SKE
170: EA JP 16A
171: 2E LBI 2,15
172: 23 36 LDD 3,6
174: 21 SKE
175: EA JP 16A
176: A3 JSRP 0A3 ; wait one tick
177: 33 5B OGI 11
179: A3 JSRP 0A3 ; wait one tick
17A: 33 5F OGI 15
17C: 48 RET
17D: 3D LBI 3,14
17E: 33 01 SKGBZ 0
180: C2 JP 182
181: B5 JSRP 0B5
182: CD JP 18D
183: 00 CLRA
184: 23 B8 XAD 3,8
186: 51 AISC 1
187: CD JP 18D
188: 8C JSRP 08C ; Send 0x80
189: 2D LBI 2,14
18A: 7F STII 15
18B: 7D STII 13
18C: 8F JSRP 08F ; Send byte
18D: 2E LBI 2,15
18E: 75 STII 5
18F: 28 LBI 2,9
190: 33 11 SKGBZ 1
192: E0 JP 1A0
193: 01 SKMBZ 0
194: D7 JP 197
195: 45 RMB 1
196: EC JP 1AC
197: 11 SKMBZ 1
198: DE JP 19E
199: 4C RMB 0
19A: 2D LBI 2,14
19B: 78 STII 8
19C: 60 8F JMP 08F
19E: 45 RMB 1
19F: EC JP 1AC
1A0: 01 SKMBZ 0
1A1: EB JP 1AB
1A2: 11 SKMBZ 1
1A3: E6 JP 1A6
1A4: 47 SMB 1
1A5: EC JP 1AC
1A6: 4D SMB 0
1A7: 2D LBI 2,14
1A8: 70 STII 0
1A9: 60 8F JMP 08F
1AB: 47 SMB 1
1AC: 2E LBI 2,15
1AD: 11 SKMBZ 1
1AE: F8 JP 1B8
1AF: 76 STII 6
1B0: 2C LBI 2,13
1B1: 33 3E OBD
1B3: 29 LBI 2,10
1B4: 33 01 SKGBZ 0
1B6: E0 JP 1A0
1B7: D3 JP 193
1B8: 01 SKMBZ 0
1B9: 62 6E JMP 26E
1BB: 77 STII 7
1BC: 2A LBI 2,11
1BD: D0 JP 190
; Mouse message
1BE: 33 B7 LBI 3,7 ; Test if mouse is active
1C0: 13 SKMBZ 3
1C1: C3 JP 1C3
1C2: 48 RET
1C3: 33 A6 LBI 2,6 ; test if mouse timer is active (e.g. mouse has moved)
1C5: 13 SKMBZ 3
1C6: 48 RET
1C7: 05 LD 0 ; decrement timer, return if not done
1C8: 5F AISC 15
1C9: CC JP 1CC
1CA: 06 X 0
1CB: 48 RET
1CC: 38 LBI 3,9 ; timer done, test if i/o is active
1CD: 01 SKMBZ 0
1CE: 48 RET
1CF: 23 37 LDD 3,7
1D1: 23 A6 XAD 2,6 ; reset timer to base value and reset moved flag
1D3: 2D LBI 2,14
1D4: 70 STII 0
1D5: 70 STII 0
1D6: 8F JSRP 08F ; Send byte 00
1D7: 2F LBI 2,0 ; Send X
1D8: 69 DB JSR 1DB
1DA: 3F LBI 3,0 ; Send Y
1DB: 05 LD 0
1DC: 70 STII 0 ; clear value as it is sent
1DD: 23 AE XAD 2,14
1DF: 05 LD 0
1E0: 70 STII 0
1E1: 23 AF XAD 2,15
1E3: 60 8F JMP 08F
// Goes there after memory clear @ 3e5
// Check if the memory clear went well, returns c=1 if no, c=0 if yes
1E5: 0F LBI 0,0 ; b = 0.0
1E6: 41 SKT
1E7: E6 JP 1E6 ; wait timer
1E8: 15 LD 1 ; a=ram[b], b.r ^= 1
1E9: 51 AISC 1 ; add 1
1EA: 22 SC ; c=1 if not carry (expects not carry)
1EB: 35 LD 3 ; same at 0x10+n
1EC: 51 AISC 1
1ED: 22 SC
1EE: 15 LD 1
1EF: 5F AISC 15
1F0: F2 JP 1F2
1F1: 22 SC
1F2: 05 LD 0
1F3: 5F AISC 15
1F4: F6 JP 1F6
1F5: 22 SC
1F6: 05 LD 0
1F7: 34 XIS 3
1F8: E6 JP 1E6
1F9: 48 RET
; Handle command
1FA: 33 81 LBI 0,1
1FC: 33 3E OBD ; power on, select 0, pb6 = 0
1FE: 38 LBI 3,9
1FF: 33 3E OBD ; power on, select 0, pb6 = 1
201: 39 LBI 3,10
202: 33 2E INL ; ram[3a] = L7-4, A = L3-0 (pa of the 6522)
204: 13 SKMBZ 3
205: 48 RET ; return if pa7 = 1
206: 06 X 0
207: 5D AISC 13
208: CF JP 20F ; i/o port or clock command
209: 53 AISC 3 ; write to kbd or nmi, 3=low indicator, 4=high indicator, 5=high nmi, 6=low nmi
20A: 50 CAB ; B=3.cmd (33-36)
20B: 23 3A LDD 3,10 ; get parameter
20D: 06 X 0 ; write to appropriate 33-36 (also used by clock parameter setting)
20E: 48 RET
20F: 51 AISC 1 ; i/o port, read clock data, write to clock, set clock modes
210: DB JP 21B
211: 04 XIS 0 ; set clock modes
212: 06 X 0
213: 03 SKMBZ 2
214: D7 JP 217
215: 62 56 JMP 256 ; System off
217: 33 A3 LBI 2,3
219: 7F STII 15
21A: 48 RET
21B: 51 AISC 1 ; i/o port, read clock data, write to clock
21C: F3 JP 233
21D: 3A LBI 3,11 ; write parameter to clock
21E: 13 SKMBZ 3
21F: E1 JP 221
220: 48 RET
221: 33 A3 LBI 2,3
223: 05 LD 0
224: 5F AISC 15
225: 44 NOP
226: 36 X 3
227: CA JP 20A
228: 33 A4 LBI 2,4
22A: 7F STII 15
22B: 48 RET
22C: 43 RMB 3 ; i/o port (enabled)
22D: 51 AISC 1
22E: 61 0A JMP 10A ; enabled, send bytes present in fifo if needed
230: 4B SMB 3 ; i/o port disabled
231: 4D SMB 0 ; route bytes to fifo
232: 48 RET
233: 05 LD 0 ; i/o port, read clock data. Reread the parameter (which is the command)
234: 38 LBI 3,9
235: 5E AISC 14
236: EC JP 22C
237: 01 SKMBZ 0 ; read clock data, test i/o port activity
238: E8 JP 228
239: 8C JSRP 08C ; Send 0x80
23A: 2D LBI 2,14
23B: 7E STII 14 ; high = E
23C: 23 1A LDD 1,10
23E: 06 X 0 ; low = ram[1a] = year
23F: 8F JSRP 08F ; Send byte
240: 39 LBI 3,10
241: 7B STII 11 ; ram[3a] = b
242: 39 LBI 3,10
243: 05 LD 0
244: 5E AISC 14 ; ram[3a] -= 2
245: 48 RET ; return when ram[3a] < 0
246: 06 X 0
247: 05 LD 0
248: 1F LBI 1,0
249: 50 CAB ; b = 1,ram[3a]
24A: 05 LD 0 ; load and decrement
24B: 07 XDS 0
24C: 23 AE XAD 2,14 ; store in 2e
24E: 05 LD 0 ; load again (after address decrement)
24F: 23 AF XAD 2,15 ; store in 2f
251: 8F JSRP 08F ; Send byte
252: C2 JP 242 ; loop until all sent
253: 33 03 SKGBZ 2
255: 48 RET
; System off
; wait for power switch to be pressed, turn the system on
256: 38 LBI 3,9 ; b = 3,9
257: 4B SMB 3 ; ram[b] |= 8
258: 4D SMB 0 ; ram[b] |= 1
259: A3 JSRP 0A3 ; wait one tick
25A: 0F LBI 0,0 ; b = 0,0
25B: 33 3E OBD ; D = b.d // power off, select 0, pb6 = 0
25D: A3 JSRP 0A3 ; wait one tick
25E: 33 13 SKGBZ 3 ; skip if g3 = 0 (pwrsw)
260: DD JP 25D
261: A3 JSRP 0A3 ; wait one tick
262: 33 13 SKGBZ 3 ; again
264: DD JP 25D
265: 28 LBI 2,9 ; b = 2,9
266: 73 STII 3 ; ram[b] = 3, b.d++
267: 73 STII 3 ; ram[b] = 3, b.d++
268: 73 STII 3 ; ram[b] = 3, b.d++
269: 3A LBI 3,11 ; b = 3,b
26A: 46 SMB 2 ; ram[b] |= 4 // system is on
26B: 33 3E OBD ; D = b.d // power on, select 0, pb6 = 1
26D: F6 JP 276
26E: 33 13 SKGBZ 3
270: 48 RET
271: 8C JSRP 08C ; Send 0x80
272: 2D LBI 2,14
273: 7F STII 15
274: 7B STII 11
275: 8F JSRP 08F ; Send byte
276: 33 13 SKGBZ 3 ; wait for power switch to be released
278: 48 RET
279: A3 JSRP 0A3 ; wait one tick
27A: F6 JP 276
; Count one tick on the 200Hz clock
27B: 33 A7 LBI 2,7 ; b = 2,7
27D: 05 LD 0 ; a = ram[b]
27E: 51 AISC 1 ; a ++, skip on carry
27F: E6 JP 2A6
280: 74 STII 4 ; reset 27 at 4 on overflow, b.d++
281: 05 LD 0
282: 51 AISC 1
283: E6 JP 2A6
284: 7E STII 14 ; reset 28 at e on overflow
285: 23 38 LDD 3,8 ; increment 38
287: 51 AISC 1
288: 23 B8 XAD 3,8 ; exchange except on overflow
28A: 3A LBI 3,11
28B: 01 SKMBZ 0
28C: D0 JP 290
28D: 11 SKMBZ 1
28E: D0 JP 290
28F: E7 JP 2A7 ; exit if clock is off
290: 1F LBI 1,0
291: 6A D7 JSR 2D7
293: E7 JP 2A7
294: 3A LBI 3,11
295: 11 SKMBZ 1
296: 62 E0 JMP 2E0
298: 33 91 LBI 1,1
29A: 6A D7 JSR 2D7
29C: E7 JP 2A7
29D: 5B AISC 11
29E: E4 JP 2A4
29F: 04 XIS 0
2A0: 6A D7 JSR 2D7
2A2: E7 JP 2A7
2A3: 5B AISC 11
2A4: 56 AISC 6
2A5: E8 JP 2A8
2A6: 06 X 0 ; store low counter
2A7: 48 RET
2A8: 04 XIS 0
2A9: 6A D7 JSR 2D7
2AB: EE JP 2AE
2AC: 51 AISC 1
2AD: E6 JP 2A6
2AE: 23 16 LDD 1,6
2B0: 5E AISC 14
2B1: 48 RET
2B2: 05 LD 0
2B3: 5C AISC 12
2B4: 48 RET
2B5: 70 STII 0
2B6: 70 STII 0
2B7: 6A D7 JSR 2D7
2B9: FE JP 2BE
2BA: 6A D7 JSR 2D7
2BC: 48 RET
2BD: FA JP 2BA
2BE: 23 19 LDD 1,9
2C0: 5D AISC 13
2C1: 48 RET
2C2: 23 18 LDD 1,8
2C4: 5A AISC 10
2C5: 48 RET
2C6: 05 LD 0
2C7: 19 LBI 1,10
2C8: 01 SKMBZ 0
2C9: CB JP 2CB
2CA: 11 SKMBZ 1
2CB: 51 AISC 1
2CC: 59 AISC 9
2CD: 48 RET
2CE: 33 97 LBI 1,7
2D0: 71 STII 1
2D1: 70 STII 0
2D2: 70 STII 0
2D3: 05 LD 0
2D4: 51 AISC 1
2D5: 44 NOP
2D6: DB JP 2DB
2D7: 05 LD 0
2D8: 57 AISC 7
2D9: 5A AISC 10
2DA: DD JP 2DD
2DB: 06 X 0
2DC: 48 RET
2DD: 04 XIS 0
2DE: 05 LD 0
2DF: 49 RETSK
2E0: 1A LBI 1,11
2E1: 32 RC
2E2: 00 CLRA
2E3: 5F AISC 15
2E4: 30 ASC
2E5: E9 JP 2E9
2E6: 06 X 0
2E7: 62 98 JMP 298
2E9: 04 XIS 0
2EA: E2 JP 2E2
2EB: 3A LBI 3,11
2EC: 45 RMB 1
2ED: 01 SKMBZ 0
2EE: 33 3E OBD
2F0: 4D SMB 0
2F1: 8C JSRP 08C ; Send 0x80
2F2: 2D LBI 2,14
2F3: 7F STII 15
2F4: 7C STII 12
2F5: 8F JSRP 08F ; Send byte
2F6: 62 98 JMP 298
---------------------------------------------------------------------------------------------------------------------------------
; kbcop (sio != 0xf)
; Memory map
; 3e high nibble to iocop
; 3f low nibble to iocop
2F8: 33 69 LEI 9 ; so=1
2FA: 33 13 SKGBZ 3 ; g3=0 means reset
2FC: 63 05 JMP 305
2FE: 0F LBI 0,0
2FF: 33 2E INL
301: 3F LBI 3,0
302: 50 CAB
303: 63 F9 JMP 3F9
305: 20 SKC
306: CC JP 30C
; internal ram failure, send 80 ff
307: A7 JSRP 0A7 ; KB send 80
308: 3D LBI 3,14
309: 7F STII 15
30A: 7F STII 15
30B: AA JSRP 0AA ; KB send byte (ff)
30C: 32 RC
30D: 7F STII 15 ; ram[00] = f
30E: 33 3E OBD ; D = 1
310: 7F STII 15 ; ram[01] = f
311: 33 3E OBD ; D = 2
313: 4F XAS ; sk = 0, a = serial
314: 29 LBI 2,10
315: 06 X 0 ; ram[2a] = a
316: A7 JSRP 0A7 ; KB send 80
317: 29 LBI 2,10
318: 00 CLRA
319: 21 SKE
31A: E1 JP 321
31B: 3D LBI 3,14 ; Read keyboard ID from L
31C: 33 2E INL
31E: 23 BF XAD 3,15
320: E6 JP 326
321: 51 AISC 1 ; here if serial != 0, but that's required to be kbcop?
322: 06 X 0
323: 3D LBI 3,14 ; Send D<serial+1)
324: 7D STII 13
325: 06 X 0
326: AA JSRP 0AA ; KB send byte (kbd ID)
327: 33 61 LEI 1 ; so = 0
329: 0E LBI 0,15
32A: 22 SC
32B: 4F XAS ; kbd = 0
32C: 33 3E OBD ; D = f
32E: 33 2A ING ; A = G
330: 21 SKE
331: 63 7D JMP 37D
333: 07 XDS 0
334: EC JP 32C
335: 20 SKC
336: E9 JP 329
337: 32 RC
338: 4F XAS
339: 41 SKT
33A: 63 49 JMP 349
33C: 28 LBI 2,9
33D: 05 LD 0
33E: 51 AISC 1
33F: 04 XIS 0
340: 29 LBI 2,10
341: 01 SKMBZ 0
342: C4 JP 344
343: C9 JP 349
344: 2A LBI 2,11
345: 05 LD 0
346: 5F AISC 15
347: CC JP 34C
348: 06 X 0
349: 1E LBI 1,15
34A: 63 2C JMP 32C
34C: 06 X 0
34D: 33 6D LEI 13
34F: 33 01 SKGBZ 0
351: CF JP 34F
352: 33 01 SKGBZ 0
354: D6 JP 356
355: D2 JP 352
356: 33 01 SKGBZ 0
358: 9D JSRP 09D
359: 9E JSRP 09E
35A: 9D JSRP 09D
35B: 22 SC
35C: 4F XAS
35D: 9E JSRP 09E
35E: 32 RC
35F: 4F XAS
360: 9D JSRP 09D
361: 2D LBI 2,14
362: 4C RMB 0
363: 33 01 SKGBZ 0
365: 4D SMB 0
366: 45 RMB 1
367: 33 01 SKGBZ 0
369: 47 SMB 1
36A: 42 RMB 2
36B: 33 01 SKGBZ 0
36D: 46 SMB 2
36E: 43 RMB 3
36F: 33 01 SKGBZ 0
371: 4B SMB 3
372: 06 X 0
373: 04 XIS 0
374: E2 JP 362
375: 33 65 LEI 5
377: 2D LBI 2,14
378: 23 2F LDD 2,15
37A: 33 3C CAMQ
37C: C9 JP 349
37D: 02 XOR
37E: 06 X 0
37F: 01 SKMBZ 0
380: C9 JP 389
381: 11 SKMBZ 1
382: D4 JP 394
383: 03 SKMBZ 2
384: E1 JP 3A1
385: 13 SKMBZ 3
386: F0 JP 3B0
387: …
Showing first 20,000 characters of 22,138 total.
Open the full document →
