Gordonjcp/chassis
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
77acf5e800
chassis/plugin/assigner.off
Gordon JC Pearce 77acf5e800 revised disassembly file
2024-09-17 22:25:28 +01:00

2686 lines
102 KiB
Plaintext
Raw Blame History

#include <cstdio>
// startup needs to clear RAM etc
// 0xffbe = 0x0c; transpose = 12;
// Disassembly of assigner.bin, 8192 bytes [0x0 to 0x1fff]
// ; start
// 0000: 4e 9a JRE $009C
// 0002: 00 NOP
// 0003: 00 NOP
//
// ; nmi
// 0004: aa EI
// 0005: 62 RETI
// 0006: 00 NOP
// 0007: 00 NOP
//
// ; bit patterns used for Note On
// 0008: 01 02 04 08 10 20 40 80
// ; bit patterns used for Note Off
// 0010: fe fd fb f7 ef df bf 7f
// ; timer/event
// 0018: 00 NOP
// 0019: 00 NOP
// 001a: 00 NOP
// 001b: 00 NOP
// 001c: 00 NOP
// 001d: 00 NOP
// 001e: 00 NOP
// 001f: 00 NOP
//
// ; timer/ AD
// 0020: 20 cb INRW $00CB
// 0022: c3 JR $0026 ; hasn't rolled over
// 0023: 54 4b 05 JMP $054B ; timer ISR handler
// 0026: aa EI
// 0027: 62 RETI
//
// ; serial
// 0028: 54 95 05 JMP $0595
// 002b: 00 NOP
// 002c: 00 NOP
// 002d: 00 NOP
// 002e: 00 NOP
// 002f: 00 NOP
//
// ; lookup table of some sort, not sure what for
// ; referenced at 088c
// ; where it's used as the low byte of an address in DE
// ; and a byte in C is stored
// ; also a routine at 08a7h where the value is read
// ; also something up around 0c6eh
// 0030: 9c CALT ($00B8)
// 0031: 97 CALT ($00AE)
// 0032: 94 CALT ($00A8)
// 0033: 90 CALT ($00A0)
// 0034: 9d CALT ($00BA)
// 0035: 9a CALT ($00B4)
// 0036: 95 CALT ($00AA)
// 0037: 93 CALT ($00A6)
// 0038: 9e CALT ($00BC)
// 0039: 98 CALT ($00B0)
// 003a: 96 CALT ($00AC)
// 003b: 91 CALT ($00A2)
// 003c: 9b CALT ($00B6)
// 003d: 99 CALT ($00B2)
// 003e: 9f CALT ($00BE)
// 003f: 92 CALT ($00A4)
//
// ; " 1" to "16"
// 0040: f1 JR $0032
// 0041: f2 JR $0034
// 0042: f3 JR $0036
// 0043: f4 JR $0038
// 0044: f5 JR $003A
// 0045: f6 JR $003C
// 0046: f7 JR $003E
// 0047: f8 JR $0040
// 0048: f9 JR $0042
// 0049: 1a MOV B,A
// 004a: 11 EXX
// 004b: 12 INX BC
// 004c: 13 DCX BC
// 004d: 14 15 16 LXI BC,$1615
//
// ; digit lookup table <top bar> 1 2 3 4 5 6 7 8 9 0 c E P r
// 0050: 01 60 LDAW $0060
// 0052: c7 JR $005A
// 0053: e5 JR $0039
// 0054: 6c ad MVI D,$AD
// 0056: af e8 LDAX (HL+$E8)
// 0058: ef JR $0048
// 0059: ed JR $0047
// 005a: eb JR $0046
// 005b: 07 8f ANI A,$8F
// 005d: ce JR $006C
// 005e: 06 illegal
// 005f: 00 NOP
//
// ; digit lookup table for transpose, C C. d d. E F F. and so on
// 0060: 8b CALT ($0096)
// 0061: 9b CALT ($00B6)
// 0062: 67 77 NEI A,$77
// 0064: 8f CALT ($009E)
// 0065: 8e CALT ($009C)
// 0066: 9e CALT ($00BC)
// 0067: ab bb LDAX (DE+$BB)
// 0069: ee JR $0058
// 006a: fe JR $0069
// 006b: 2f LDAX (HL-)
// 006c: 8b CALT ($0096)
// 006d: 9b CALT ($00B6)
// 006e: 67 77 NEI A,$77
// 0070: 8f CALT ($009E)
// 0071: 8e CALT ($009C)
// 0072: 9e CALT ($00BC)
// 0073: ab bb LDAX (DE+$BB)
// 0075: ee JR $0064
// 0076: fe JR $0075
// 0077: 2f LDAX (HL-)
// 0078: 8b CALT ($0096)
//
// ;
// 0079: 69 00 MVI A,$00
// 007b: 4d c1 MOV PB,A ; turn off digit lines
// 007d: 4d c5 MOV PF,A ; turn off select lines
// 007f: 63 cc STAW $00CC ; zero out some variable
// 0081: 63 cd STAW $00CD ; zero out some variable
// 0083: 63 c0 STAW $00C0 ; running status
// 0085: 63 b7 STAW $00B7 ; zero out some variable
// 0087: 64 02 fd MVI PC,$FD ; set all output pins high (2 is midi in)
// 008a: aa EI
// 008b: 75 cd 08 EQIW $00CD,$08
// 008e: fc JR $008B ; wait until this is set
// 008f: 71 b8 2a MVIW $00B8,$2A ; default is 42
// 0092: 7c 54 CALF $0C54
// 0094: 75 cd 10 EQIW $00CD,$10
// 0097: fc JR $0094
// 0098: 7b 81 CALF $0B81 ; set up voice allocation table
// 009a: 4e 71 JRE $010D
//
// ; cold start
// 009c: 69 0e MVI A,$0E ; enable RAM, PF into port mode
// ; upper two bits of PF select ADC external MUX
// ; 5 = low for ROM high for RAM enable
// ; 4-0 upper address bits
// 009e: 4d d0 MOV MM,A
// 00a0: 69 0e MVI A,$0E ; serial mode clock x24 tx on rx on
// 00a2: 4d c9 MOV SMH,A
// 00a4: 69 4e MVI A,$4E ; 8n1 x16 clock
// 00a6: 4d ca MOV SML,A
// 00a8: 64 80 08 MVI ANM,$08 ; select DAC 4-7
// 00ab: 68 ff MVI V,$FF ; set vector register
// 00ad: 10 EXA
// 00ae: 68 ff MVI V,$FF
// 00b0: 04 ff ff LXI SP,$FFFF
// 00b3: 69 00 MVI A,$00
// 00b5: 34 00 ff LXI HL,$FF00 ; clear RAM
// 00b8: 3d STAX (HL+)
// 00b9: 74 7f 00 EQI L,$00
// 00bc: fb JR $00B8
// 00bd: 69 03 MVI A,$03 ; mode control port C serial on
// 00bf: 4d d1 MOV MCC,A
// 00c1: 69 3a MVI A,$3A ; mode C 0, 2, 6, 7 output
// ; 7-6 cassette out
// ; 5 cassette in
// ; 4 memory protect
// ; 3 pedal hold
// ; 2 UART out - MIDI/Module
// ; 1 UART in - MIDI
// ; 0 MIDI / Module select
// 00c3: 4d d4 MOV MC,A
// 00c5: 69 00 MVI A,$00
// 00c7: 4d d3 MOV MB,A ; port B outputs for LED rows
// 00c9: 4d d7 MOV MF,A ; port F outputs column drive, panel mux select
// 00cb: 4d c5 MOV PF,A ; turn outputs off
// 00cd: 4d c1 MOV PB,A
// 00cf: 69 ff MVI A,$FF ; port A input keypad/keyboard rows
// 00d1: 4d d2 MOV MA,A
// 00d3: 71 bc 08 MVIW $00BC,$08
// 00d6: 7b 81 CALF $0B81 ; set up voice allocation table
// 00d8: 71 c8 42 MVIW $00C8,$42 ; bit 1 is "Poly 1", bit 6 is ?
// 00db: 24 ff 1f LXI DE,$1FFF ; keypad demux
// 00de: 4a de MVIX DE,$DE ; IC9 enabled Col 6, trans, poly, midi
// ; notes
// ; IC7 latches bits D0-D5, D3 is not used
// ; D0-D2 go to IC8/IC9 select pins
// ; D4 goes to IC8 G2A active low
// ; D5 goes to IC9 G2A active low
// ; IC8/9 all outputs active low
// ; IC9 col 0 and 1 not used
// ; IC9 col 2 Bank buttons
// ; IC9 col 3 Patch buttons
// ; IC9 col 4 footage, chorus, and waveform buttons
// ; IC9 col 5 slide switches (PWM LFO, ENV invert, ENV/GATE, HPF)
// ; IC9 col 6 transpose, poly 1, poly 2, midi ch, midi func 2, midi func 1, N/U, group
// ; IC9 col 7 N/U, manual, write, save, verify, load
//
// ; MIDI panel
// ; 1 = bit 4, 2=bit 5, 3 = bit 6 (marked NC), 4 = "MIDI COM")
//
// ; active low outputs from IC8/9 are inverted by IC11/12
//
// 00e0: 4c c0 MOV A,PA ; read port A
// 00e2: 63 a8 STAW $00A8 ; save
// 00e4: 07 01 ANI A,$01 ; bit 0, key transpose (rows are inverted)
// 00e6: 63 b6 STAW $00B6 ; store
// 00e8: 4a dd MVIX DE,$DD ; read "fixed" switches?
// 00ea: 4c c0 MOV A,PA ; read port A
// 00ec: 63 a7 STAW $00A7 ; store
// 00ee: 4a e8 MVIX DE,$E8 ; keyboard?
// 00f0: 64 06 00 MVI MKH,$00 ; unmask AD, TX, RX interrupts
// 00f3: aa EI
// 00f4: 75 cd 10 EQIW $00CD,$10
// 00f7: fc JR $00F4
// 00f8: 71 b8 2a MVIW $00B8,$2A ; default is 42
// 00fb: 7c 47 CALF $0C47 ; set manual mode?
// 00fd: 78 43 CALF $0843 ; omni off poly
// 00ff: 71 ba 20 MVIW $00BA,$20
// 0102: 71 bb 01 MVIW $00BB,$01
// 0105: 58 b6 BIT 0,$00B6 ; test mode?
// 0107: 71 ba 10 MVIW $00BA,$10
// 010a: 71 be 0c MVIW $00BE,$0C ; transpose is 12
// 010d: 7b 9a CALF $0B9A ; zero out RAM at FF40 (key bitmap)
// 010f: 78 28 CALF $0828 ; reset modwheel
// 0111: 58 a8 BIT 0,$00A8 ; key trans was/wasn't pressed at startup?
// 0113: c7 JR $011B
// 0114: 55 87 40 OFFIW $0087,$40 ; "all notes off" has previously been sent?
// 0117: c3 JR $011B
// 0118: 55 a8 08 OFFIW $00A8,$08 ; MIDI CH?
// 011b: 4e 75 JRE $0192
// 011d: 7b 70 CALF $0B70 ; stop all notes
// 011f: 7b 9e CALF $0B9E ; clear played notes
// 0121: 7b 81 CALF $0B81 ; set up voice allocation table
// 0123: 7d 33 CALF $0D33 ; save LCD bitpattern
// 0125: 78 00 CALF $0800 ; show transpose value
//
// ; scan the keyboard
// ; this might be where it does the Transpose setting
// 0127: 24 ff 1f LXI DE,$1FFF ; keypad mux address
// 012a: 34 50 ff LXI HL,$FF50
// 012d: 6a e8 MVI B,$E8 ; keyboard, col 0
// 012f: 0a MOV A,B
// 0130: 3a STAX (DE) ; select latch
// 0131: 00 NOP
// 0132: 00 NOP
// 0133: 4c c0 MOV A,PA ; read rows
// 0135: 3b STAX (HL) ; store
// 0136: 0a MOV A,B
// 0137: 17 10 ORI A,$10 ; turn off mux
// 0139: 3a STAX (DE)
// 013a: 32 INX HL ; next byte
// 013b: 42 INR B ; next col
// 013c: 48 0b SK HC ; skip if halfcarry, all $ef rolled over
// 013e: f0 JR $012F ; loop
// 013f: 34 50 ff LXI HL,$FF50 ; start of keyboard state
// 0142: 6a 07 MVI B,$07 ; eight bytes
// 0144: 24 00 00 LXI DE,$0000 ; key note
// 0147: 2d LDAX (HL+) ; fetch byte;
// 0148: 67 00 NEI A,$00 ; zero?
// 014a: ca JR $0155 ; skip ahead
// 014b: 6b 07 MVI C,$07 ; 8 bits
// 014d: 48 01 SLRC A ; shift found byte
// 014f: c1 JR $0151 ; not this bit, jump over
// 0150: cb JR $015C ; bit is set
// 0151: 22 INX DE ; next note
// 0152: 53 DCR C ; next bit
// 0153: f9 JR $014D ; loop around
// 0154: c3 JR $0158
// 0155: 74 45 08 ADI E,$08 ; next eight notes
// 0158: 52 DCR B ; next byte, or skip
// 0159: ed JR $0147 ; loop back and try the next byte
// 015a: 4e 21 JRE $017D ; all bytes considered
// 015c: 0d MOV A,E ; save note
// 015d: 36 0c SUINB A,$0C ; subtract 12, skip if greater than 12
// 015f: 46 0c ADI A,$0C ; add 12
// 0161: 37 25 LTI A,$25 ; less than 37?
// 0163: 66 0c SUI A,$0C ; no, subtract
// 0165: 37 19 LTI A,$19 ; less than 25?
// 0167: 66 0c SUI A,$0C ; no, subtract
// 0169: 63 be STAW $00BE ; save in Transpose
// 016b: 77 0c EQI A,$0C ; default is 12, is it this?
// 016d: c7 JR $0175
// 016e: 01 c8 LDAW $00C8 ; status flags
// 0170: 07 fe ANI A,$FE ; mask off bit 0
// 0172: 63 c8 STAW $00C8 ; save
// 0174: c6 JR $017B
// 0175: 01 c8 LDAW $00C8
// 0177: 17 01 ORI A,$01 ; set bit 0
// 0179: 63 c8 STAW $00C8 ; save
// 017b: 78 00 CALF $0800 ; show transpose value
// 017d: 24 ff 1f LXI DE,$1FFF
// 0180: 69 de MVI A,$DE ; Keypad, IC9 select 6
// 0182: 3a STAX (DE)
// 0183: 00 NOP
// 0184: 00 NOP
// 0185: 4c c0 MOV A,PA
// 0187: 47 01 ONI A,$01 ; looks like this checks for KEY TRANS pressed?
// 0189: c2 JR $018C
// 018a: 4f 9b JRE $0127
// 018c: 7d 3c CALF $0D3C
// 018e: 78 28 CALF $0828 ; reset modwheel
// 0190: 7b 9a CALF $0B9A ; zero out at FF40 (key bitmap)
//
//
// // key scanning loop?
// 0192: 01 cd LDAW $00CD
// 0194: 07 10 ANI A,$10
// 0196: 74 f8 bf EQAW $00BF
// 0199: 71 c0 00 MVIW $00C0,$00
// 019c: 63 bf STAW $00BF
// 019e: 24 ff 1f LXI DE,$1FFF ; scan keyboard
// 01a1: 34 50 ff LXI HL,$FF50 ; key pressed map
// 01a4: 6a e8 MVI B,$E8 ; IC8 select 0
// 01a6: 0a MOV A,B
// 01a7: 3a STAX (DE) ; write to MUX selector
// 01a8: 00 NOP
// 01a9: 00 NOP ; settle
// 01aa: 4c c0 MOV A,PA ; read port
// 01ac: 1b MOV C,A ; save
// 01ad: 77 00 EQI A,$00 ; no keys pressed? all keys pressed? investigate
// 01af: 15 87 80 ORIW $0087,$80 ; no keys pressed, set no keys flag
// 01b2: 0a MOV A,B
// 01b3: 17 10 ORI A,$10
// 01b5: 3a STAX (DE) ; turn MUX off
// 01b6: 0b MOV A,C
// 01b7: 70 93 XRAX (HL) ; XOR bits with key pressed map
// 01b9: 48 0c SK Z ; skip if zero (no change)
// 01bb: 79 96 CALF $0996 ; handle something do with keys
// 01bd: 0b MOV A,C ;
// 01be: 3d STAX (HL+) ; save in keymap
// 01bf: 42 INR B ; next column
// 01c0: 48 0b SK HC ; skip if halfcarry
// 01c2: e3 JR $01A6 ; loop if not done
// 01c3: 55 87 80 OFFIW $0087,$80 ; skip if no keys were pressed
// 01c6: d3 JR $01DA ; jump ahead
// 01c7: 5e 87 BIT 6,$0087 ; skip if no keys were pressed previously
// ; but we've already sent All Notes Off
// 01c9: d0 JR $01DA
//
// ; if no keys were pressed
// ; send all notes off
// 01ca: 69 f9 MVI A,$F9 ; select MIDI output
// 01cc: 79 e8 CALF $09E8
// 01ce: 69 b0 MVI A,$B0
// 01d0: 79 d5 CALF $09D5 ; send, wiping running status
// 01d2: 69 7b MVI A,$7B ; all notes off
// 01d4: 79 e8 CALF $09E8 ; send byte to TX
// 01d6: 69 00 MVI A,$00 ; value
// 01d8: 79 e8 CALF $09E8 ; send byte to TX
// 01da: 01 87 LDAW $0087
// 01dc: 48 21 SLR A
// 01de: 63 87 STAW $0087 ; mark the flag that we have sent all notes off
//
// ; assign notes here?
// 01e0: 6a 0d MVI B,$0D
// 01e2: 34 3d ff LXI HL,$FF3D ; probably copies keymap to notemap
// 01e5: 24 57 ff LXI DE,$FF57
// 01e8: 71 d0 00 MVIW $00D0,$00
// 01eb: af 10 LDAX (HL+$10) ; ff40 table
// 01ed: 74 3a 03 LTI B,$03 ; skip if value is greater than 3
// 01f0: 74 3a 0b LTI B,$0B ; skip if value is greater than 0x0b
//
// ; okay what
// ; 01ed b<03h so skip to 01f7h
// ; 01f0 b<0bh so do not jump to 1f7
// ; there are only so many bits available for keys off the physical keyboard
// ; I think this takes care of mapping the keyboard correctly
//
// 01f3: c3 JR $01F7
// 01f4: 70 9a ORAX (DE) ; or the bitfield at ff40+ with the one at ff50+ (physical keys pressed)
// 01f6: 23 DCX DE ; count down DE
// 01f7: 1b MOV C,A ; save A
// 01f8: 70 93 XRAX (HL) ; compare with ff30+
// 01fa: 48 0c SK Z ; zero, no change
// 01fc: 7a 18 CALF $0A18 ; there was a change, do stuff
// 01fe: 0b MOV A,C ; restore A
// 01ff: 3b STAX (HL) ; store at ff30+
// 0200: 33 DCX HL ; count down hl
// 0201: 52 DCR B ; count down bytes
// 0202: e8 JR $01EB ; loop for next one
// 0203: 65 d0 ff NEIW $00D0,$FF ; skip if ffd0 != ff
// 0206: 7b 9e CALF $0B9E ; clear played notes
//
//
// 0208: 24 ff 1f LXI DE,$1FFF ; keypad mux
// 020b: 34 a4 ff LXI HL,$FFA4 ; raw switch values
// 020e: 6a da MVI B,$DA ; IC9 select 2 (Bank buttons)
// 0210: 0a MOV A,B
// 0211: 3a STAX (DE) ; select MUX
// 0212: 00 NOP
// 0213: 00 NOP
// 0214: 4c c0 MOV A,PA ; read keypad
// 0216: 1b MOV C,A ; save
// 0217: 0a MOV A,B
// 0218: 17 20 ORI A,$20
// 021a: 3a STAX (DE) ; turn off mux
// 021b: 0b MOV A,C ; restore
// 021c: 70 93 XRAX (HL) ; xor with previous? Debounce?
// 021e: bf 06 STAX (HL+$06) ; store result
// 0220: 60 8b ANA A,C ; mask
// 0222: bf 0c STAX (HL+$0C) ; store result
// 0224: 0b MOV A,C
// 0225: 3d STAX (HL+) ; store raw value, increment HL
// 0226: 42 INR B ; next column
// 0227: 48 0b SK HC ; halfcarry?
// 0229: e6 JR $0210 ; no, loop
// 022a: 58 b6 BIT 0,$00B6 ; test mode?
// 022c: c2 JR $022F
// 022d: 4e 3f JRE $026E
// 022f: 5b ae BIT 3,$00AE
// 0231: d6 JR $0248
// 0232: 5b a8 BIT 3,$00A8 ; MIDI Ch
// 0234: d1 JR $0246
// 0235: 78 43 CALF $0843 ; omni off poly
// 0237: 7b 9a CALF $0B9A ; zero out RAM at FF40 (key bitmap)
// 0239: 78 28 CALF $0828 ; reset modwheel
// 023b: 7d 33 CALF $0D33 ; save LED bitpattern
// 023d: 01 bd LDAW $00BD ; MIDI channel?
// 023f: 34 40 00 LXI HL,$0040 ; lookup table, turn it into 1 to 16 with leading space
// 0242: ac LDAX (HL+A)
// 0243: 7d 45 CALF $0D45 ; digit lookup
// 0245: c2 JR $0248
// 0246: 7d 3c CALF $0D3C
// 0248: 5b a8 BIT 3,$00A8 ; MIDI Ch
// 024a: 4e 4f JRE $029B
// 024c: 55 87 40 OFFIW $0087,$40
// 024f: db JR $026B
// 0250: 64 4a 08 ONI PC,$08 ; pedal hold
// 0253: d7 JR $026B
// 0254: 25 b0 00 GTIW $00B0,$00
// 0257: c7 JR $025F
// 0258: 01 b0 LDAW $00B0
// 025a: 7c 9d CALF $0C9D
// 025c: 51 DCR A
// 025d: 78 13 CALF $0813
// 025f: 25 b1 00 GTIW $00B1,$00
// 0262: c8 JR $026B
// 0263: 01 b1 LDAW $00B1
// 0265: 7c 9d CALF $0C9D
// 0267: 46 07 ADI A,$07
// 0269: 78 13 CALF $0813
// 026b: 54 5d 04 JMP $045D
//
// ; test mode?
// 026e: 5b b4 BIT 3,$00B4
// 0270: c2 JR $0273
// 0271: 78 5c CALF $085C ; send command to module board
// 0273: 01 a8 LDAW $00A8 ; MIDI/Transpose/etc
// 0275: 48 21 SLR A
// 0277: 07 38 ANI A,$38
// 0279: 1b MOV C,A
// 027a: 01 c8 LDAW $00C8 ; status bits
// 027c: 07 c7 ANI A,$C7
// 027e: 60 9b ORA A,C
// 0280: 63 c8 STAW $00C8
// 0282: 75 ba 10 EQIW $00BA,$10
// 0285: cf JR $0295
// 0286: 59 cd BIT 1,$00CD
// 0288: c7 JR $0290
// 0289: 5f b6 BIT 7,$00B6
// 028b: 69 30 MVI A,$30
// 028d: 7b 55 CALF $0B55 voiceOnUnison
// 028f: c5 JR $0295
// 0290: 5f b6 BIT 7,$00B6
// 0292: c2 JR $0295
// 0293: 7b 70 CALF $0B70 ; stop all notes?
// 0295: 25 aa 00 GTIW $00AA,$00
// 0298: c2 JR $029B
// 0299: 7b 70 CALF $0B70 ; stop all notes?
// 029b: 55 b5 38 OFFIW $00B5,$38
// 029e: 54 62 0d JMP $0D62
// 02a1: 59 b5 BIT 1,$00B5
// 02a3: c4 JR $02A8
// 02a4: 5c a9 BIT 4,$00A9
// 02a6: 7c 47 CALF $0C47 ; set manual mode?
// 02a8: 5a af BIT 2,$00AF
// 02aa: 4e 20 JRE $02CC
// 02ac: 5a a9 BIT 2,$00A9
// 02ae: d0 JR $02BF
// 02af: 7d 33 CALF $0D33 ; save LED bitpattern
// 02b1: 05 b6 fb ANIW $00B6,$FB
// 02b4: 64 4a 10 ONI PC,$10 ; Port C bit 4 = memory protect
// 02b7: cf JR $02C7
// 02b8: 69 00 MVI A,$00
// 02ba: 63 b9 STAW $00B9
// 02bc: 7d 45 CALF $0D45 ; digit lookup
// 02be: cd JR $02CC
// 02bf: 5a b6 BIT 2,$00B6
// 02c1: 7d 3c CALF $0D3C
// 02c3: 05 b6 fb ANIW $00B6,$FB
// 02c6: c5 JR $02CC
// 02c7: 69 de MVI A,$DE
// 02c9: 40 45 0d CALL $0D45 ; digit lookup
// 02cc: 5f b4 BIT 7,$00B4
// 02ce: 4e 2f JRE $02FF
// 02d0: 01 c8 LDAW $00C8
// 02d2: 16 c0 XRI A,$C0
// 02d4: 63 c8 STAW $00C8
// 02d6: 58 b6 BIT 0,$00B6 ; test mode
// 02d8: cc JR $02E5
// 02d9: 69 fd MVI A,$FD ; select module board
// 02db: 79 e8 CALF $09E8 ; send byte to TX
// 02dd: 5e c8 BIT 6,$00C8 ; something to do with sustain on/off
// 02df: 69 86 MVI A,$86 ; sustain on
// 02e1: 69 87 MVI A,$87 ; sustain off
// 02e3: 79 e8 CALF $09E8 ; send byte to TX
// 02e5: 59 b6 BIT 1,$00B6
// 02e7: 55 a9 04 OFFIW $00A9,$04
// 02ea: d4 JR $02FF
// 02eb: 01 bb LDAW $00BB
// 02ed: 74 98 ba ORAW $00BA
// 02f0: 1b MOV C,A
// 02f1: 7c d0 CALF $0CD0
// 02f3: 7c 93 CALF $0C93
// 02f5: 55 a8 10 OFFIW $00A8,$10 ; "MIDI 2"
// 02f8: 79 29 CALF $0929 ; send program change
// 02fa: 45 a8 30 ONIW $00A8,$30 ; "MIDI 3"
// 02fd: 78 f0 CALF $08F0 ; sendSysexPatch
// 02ff: 45 b4 06 ONIW $00B4,$06
// 0302: d3 JR $0316
// 0303: 7b 70 CALF $0B70 ; stop all notes
// 0305: 7b 9e CALF $0B9E ; clear played notes
// 0307: 7b 81 CALF $0B81 ; set up voice allocation table
// 0309: 01 a8 LDAW $00A8 ; saved button column 6
// 030b: 07 06 ANI A,$06 ; poly 1 or poly 2 pressed
// 030d: 1b MOV C,A
// 030e: 01 c8 LDAW $00C8 ; some flags?
// 0310: 07 f9 ANI A,$F9
// 0312: 60 9b ORA A,C ; OR the new value in
// 0314: 63 c8 STAW $00C8 ; save it
// 0316: 25 b1 00 GTIW $00B1,$00
// 0319: 4e 41 JRE $035C
// 031b: 01 b1 LDAW $00B1
// 031d: 7c 9d CALF $0C9D
// 031f: 07 0f ANI A,$0F
// 0321: 63 bb STAW $00BB
// 0323: 5a a9 BIT 2,$00A9
// 0325: 4e 20 JRE $0347
// 0327: 64 4a 10 ONI PC,$10
// 032a: 4e 7a JRE $03A6
// 032c: 5a b6 BIT 2,$00B6
// 032e: c2 JR $0331
// 032f: 4e 75 JRE $03A6
// 0331: 01 b9 LDAW $00B9
// 0333: 07 f0 ANI A,$F0
// 0335: 1a MOV B,A
// 0336: 74 98 bb ORAW $00BB
// 0339: 7d 45 CALF $0D45 ; digit lookup
// 033b: 01 bb LDAW $00BB
// 033d: 63 b9 STAW $00B9
// 033f: 74 2a 00 GTI B,$00
// 0342: d9 JR $035C
// 0343: 7d 06 CALF $0D06
// 0345: 4e 5f JRE $03A6
// 0347: 74 98 ba ORAW $00BA
// 034a: 7d 45 CALF $0D45
// 034c: 7c 3c CALF $0C3C
// 034e: 7c d0 CALF $0CD0
// 0350: 7c 93 CALF $0C93
// 0352: 55 a8 10 OFFIW $00A8,$10 ; "function"
// 0355: 79 29 CALF $0929 ; send program change
// 0357: 45 a8 30 ONIW $00A8,$30 ; "both function"
// 035a: 78 f0 CALF $08F0 ; sendSysexPatch
// 035c: 25 b0 00 GTIW $00B0,$00
// 035f: 4e 45 JRE $03A6
// 0361: 01 b0 LDAW $00B0
// 0363: 7c 9d CALF $0C9D
// 0365: 48 25 SLL A
// 0367: 48 25 SLL A
// 0369: 48 25 SLL A
// 036b: 48 25 SLL A
// 036d: 63 ba STAW $00BA
// 036f: 5a a9 BIT 2,$00A9
// 0371: df JR $0391
// 0372: 64 4a 10 ONI PC,$10
// 0375: 4e 2f JRE $03A6
// 0377: 5a b6 BIT 2,$00B6
// 0379: c2 JR $037C
// 037a: 4e 2a JRE $03A6
// 037c: 01 b9 LDAW $00B9
// 037e: 07 0f ANI A,$0F
// 0380: 1a MOV B,A
// 0381: 74 98 ba ORAW $00BA
// 0384: 7d 45 CALF $0D45
// 0386: 01 ba LDAW $00BA
// 0388: 63 b9 STAW $00B9
// 038a: 74 2a 00 GTI B,$00
// 038d: d8 JR $03A6
// 038e: 7d 06 CALF $0D06
// 0390: d5 JR $03A6
// 0391: 74 98 bb ORAW $00BB
// 0394: 7d 45 CALF $0D45
// 0396: 7c 3c CALF $0C3C
// 0398: 7c d0 CALF $0CD0
// 039a: 7c 93 CALF $0C93
// 039c: 55 a8 10 OFFIW $00A8,$10 ; function
// 039f: 79 29 CALF $0929 ; send program change
// 03a1: 45 a8 30 ONIW $00A8,$30 ; both function
// 03a4: 78 f0 CALF $08F0 ; sendSysexPatch
// 03a6: 5a a9 BIT 2,$00A9
// 03a8: 58 b5 BIT 0,$00B5
// 03aa: 4e 28 JRE $03D4
// 03ac: 59 b6 BIT 1,$00B6
// 03ae: c6 JR $03B5
// 03af: 7c 3c CALF $0C3C
// 03b1: 01 bb LDAW $00BB
// 03b3: 1b MOV C,A
// 03b4: cb JR $03C0
// 03b5: 01 bb LDAW $00BB
// 03b7: 37 08 LTI A,$08
// 03b9: 69 00 MVI A,$00
// 03bb: 46 01 ADI A,$01
// 03bd: 63 bb STAW $00BB
// 03bf: 1b MOV C,A
// 03c0: 01 ba LDAW $00BA
// 03c2: 60 9b ORA A,C
// 03c4: 7d 45 CALF $0D45
// 03c6: 7c d0 CALF $0CD0
// 03c8: 7c 93 CALF $0C93
// 03ca: 55 a8 10 OFFIW $00A8,$10 ; function
// 03cd: 79 29 CALF $0929 ; send program change
// 03cf: 45 a8 30 ONIW $00A8,$30 ; both function
// 03d2: 78 f0 CALF $08F0 ; sendSysexPatch
// 03d4: 5f a3 BIT 7,$00A3
// 03d6: 4e 32 JRE $040A
// 03d8: 05 a3 7f ANIW $00A3,$7F
// 03db: 01 c8 LDAW $00C8
// 03dd: 07 3f ANI A,$3F
// 03df: 5e a3 BIT 6,$00A3
// 03e1: c3 JR $03E5
// 03e2: 17 80 ORI A,$80
// 03e4: c2 JR $03E7
// 03e5: 17 40 ORI A,$40
// 03e7: 63 c8 STAW $00C8
// 03e9: 01 a3 LDAW $00A3
// 03eb: 1b MOV C,A
// 03ec: 07 07 ANI A,$07
// 03ee: 41 INR A
// 03ef: 63 bb STAW $00BB
// 03f1: 0b MOV A,C
// 03f2: 07 38 ANI A,$38
// 03f4: 48 25 SLL A
// 03f6: 46 10 ADI A,$10
// 03f8: 63 ba STAW $00BA
// 03fa: 74 98 bb ORAW $00BB
// 03fd: 7d 45 CALF $0D45
// 03ff: 7c 3c CALF $0C3C
// 0401: 7c d0 CALF $0CD0
// 0403: 7c 93 CALF $0C93
// 0405: 55 a3 80 OFFIW $00A3,$80
// 0408: 4f ce JRE $03D8
// 040a: 4c c2 MOV A,PC
// 040c: 1b MOV C,A
// 040d: 74 90 bc XRAW $00BC
// 0410: 07 08 ANI A,$08
// 0412: 48 0c SK Z
// 0414: 7b a9 CALF $0BA9 ; send sustain message
// 0416: 0b MOV A,C
// 0417: 63 bc STAW $00BC
// 0419: 5b b6 BIT 3,$00B6
// 041b: cb JR $0427
// 041c: 05 b6 f7 ANIW $00B6,$F7
// 041f: 69 fd MVI A,$FD ; module board
// 0421: 79 e8 CALF $09E8 ; send byte to TX
// 0423: 69 87 MVI A,$87 ; sustain on
// 0425: 79 e8 CALF $09E8 ; send byte to TX
// 0427: 5c b6 BIT 4,$00B6 ; sustain pressed
// 0429: cb JR $0435
// 042a: 05 b6 ef ANIW $00B6,$EF ; sustain released bit
// 042d: 69 fd MVI A,$FD ; module board
// 042f: 79 e8 CALF $09E8 ; send byte to TX
// 0431: 69 86 MVI A,$86 ; sustain off
// 0433: 79 e8 CALF $09E8 ; send byte to TX
// 0435: 5f a1 BIT 7,$00A1
// 0437: cb JR $0443
// 0438: 01 a1 LDAW $00A1
// 043a: 07 7f ANI A,$7F
// 043c: 63 a1 STAW $00A1
// 043e: 6a a0 MVI B,$A0 ; negative bend value to module
// 0440: 78 37 CALF $0837 ; send BC to module board
// 0442: cd JR $0450
// 0443: 5f a0 BIT 7,$00A0
// 0445: ca JR $0450
// 0446: 01 a0 LDAW $00A0
// 0448: 07 7f ANI A,$7F
// 044a: 63 a0 STAW $00A0
// 044c: 6a a1 MVI B,$A1 ; positive bend value to module
// 044e: 78 37 CALF $0837 ; send BC to module board
// 0450: 5f a2 BIT 7,$00A2
// 0452: ca JR $045D
// 0453: 01 a2 LDAW $00A2
// 0455: 07 7f ANI A,$7F
// 0457: 63 a2 STAW $00A2
// 0459: 6a a2 MVI B,$A2
// 045b: 78 37 CALF $0837 ; send BC to module board
// 045d: 25 b2 00 GTIW $00B2,$00
// 0460: 4e 22 JRE $0484
// 0462: 59 b6 BIT 1,$00B6
// 0464: 7d 5b CALF $0D5B ; set both DP on
// 0466: 55 b2 07 OFFIW $00B2,$07
// 0469: 7b cc CALF $0BCC
// 046b: 55 b2 18 OFFIW $00B2,$18
// 046e: 7b da CALF $0BDA
// 0470: 55 b2 e0 OFFIW $00B2,$E0
// 0473: 7b eb CALF $0BEB
// 0475: 7b f9 CALF $0BF9
// 0477: 55 a8 30 OFFIW $00A8,$30 ; both funtion
// 047a: c9 JR $0484
// 047b: 01 c7 LDAW $00C7
// 047d: 07 7f ANI A,$7F
// 047f: 1b MOV C,A
// 0480: 6d a0 MVI E,$A0
// 0482: 78 d6 CALF $08D6
// 0484: 25 ad 00 GTIW $00AD,$00
// 0487: d5 JR $049D
// 0488: 01 a7 LDAW $00A7
// 048a: 59 b6 BIT 1,$00B6
// 048c: 7c 0c CALF $0C0C
// 048e: 7c 29 CALF $0C29
// 0490: 55 a8 30 OFFIW $00A8,$30 ; both function
// 0493: c9 JR $049D
// 0494: 01 8f LDAW $008F
// 0496: 07 1f ANI A,$1F
// 0498: 1b MOV C,A
// 0499: 6d a1 MVI E,$A1
// 049b: 78 d6 CALF $08D6
// 049d: 6a 00 MVI B,$00
// 049f: 24 58 ff LXI DE,$FF58
// 04a2: 34 6c ff LXI HL,$FF6C
// 04a5: 2a LDAX (DE)
// 04a6: 70 b3 SUBNBX (HL)
// 04a8: 48 3a NEGA
// 04aa: 19 MOV EAL,A
// 04ab: 37 02 LTI A,$02
// 04ad: 78 7e CALF $087E
// 04af: 22 INX DE
// 04b0: 32 INX HL
// 04b1: 42 INR B
// 04b2: 74 7a 10 EQI B,$10
// 04b5: ef JR $04A5
// 04b6: 2a LDAX (DE)
// 04b7: 70 b3 SUBNBX (HL)
// 04b9: 48 3a NEGA
// 04bb: 37 02 LTI A,$02
// 04bd: 79 55 CALF $0955
// 04bf: 22 INX DE
// 04c0: 32 INX HL
// 04c1: 01 6b LDAW $006B
// 04c3: 27 80 GTI A,$80
// 04c5: 69 7f MVI A,$7F
// 04c7: 69 00 MVI A,$00
// 04c9: 1b MOV C,A
// 04ca: 74 f8 7f EQAW $007F
// 04cd: 79 7e CALF $097E ; modwheel to midi
// 04cf: 55 4f 04 OFFIW $004F,$04
// 04d2: 54 11 01 JMP $0111
// 04d5: 25 ce 00 GTIW $00CE,$00
// 04d8: d7 JR $04F0
// 04d9: 7d 5b CALF $0D5B ; set both DP on
// 04db: 24 90 ff LXI DE,$FF90 ; patch?
// 04de: 6a 07 MVI B,$07 ; eight bytes
// 04e0: 01 ce LDAW $00CE ;
// 04e2: 1b MOV C,A ; save
// 04e3: 48 2a CLC
// 04e5: 48 03 SLRC C ; test if bit 0 is set
// 04e7: c2 JR $04EA ; it is
// 04e8: 79 47 CALF $0947 ; send E followed by (DE) to module board
// 04ea: 22 INX DE
// 04eb: 52 DCR B
// 04ec: f8 JR $04E5
// 04ed: 71 ce 00 MVIW $00CE,$00
// 04f0: 25 cf 00 GTIW $00CF,$00
// 04f3: d7 JR $050B
// 04f4: 7d 5b CALF $0D5B ; set both DP on
// 04f6: 24 98 ff LXI DE,$FF98
// 04f9: 6a 07 MVI B,$07
// 04fb: 01 cf LDAW $00CF
// 04fd: 1b MOV C,A
// 04fe: 48 2a CLC
// 0500: 48 03 SLRC C
// 0502: c2 JR $0505
// 0503: 79 47 CALF $0947 ; send E followed by (DE) to module board)
// 0505: 22 INX DE
// 0506: 52 DCR B
// 0507: f8 JR $0500
// 0508: 71 cf 00 MVIW $00CF,$00
// 050b: 5d b6 BIT 5,$00B6
// 050d: d0 JR $051E
// 050e: 05 b6 df ANIW $00B6,$DF
// 0511: 7d 5b CALF $0D5B ; set both DP on
// 0513: 01 8e LDAW $008E
// 0515: 57 60 OFFI A,$60
// 0517: c4 JR $051C
// 0518: 17 80 ORI A,$80
// 051a: 63 8e STAW $008E
// 051c: 7b f9 CALF $0BF9
// 051e: 5e b6 BIT 6,$00B6
// 0520: cc JR $052D
// 0521: 05 b6 bf ANIW $00B6,$BF
// 0524: 7d 5b CALF $0D5B ; set both DP on
// 0526: 71 b7 00 MVIW $00B7,$00
// 0529: 01 8f LDAW $008F
// 052b: 7c 29 CALF $0C29
// 052d: 58 b6 BIT 0,$00B6
// 052f: 54 11 01 JMP $0111
// 0532: 6a 05 MVI B,$05
// 0534: 34 8d ff LXI HL,$FF8D
// 0537: 2f LDAX (HL-)
// 0538: 47 80 ONI A,$80
// 053a: c5 JR $0540
// 053b: 52 DCR B
// 053c: fa JR $0537
// 053d: 69 00 MVI A,$00
// 053f: c2 JR $0542
// 0540: 0a MOV A,B
// 0541: 41 INR A
// 0542: 34 50 00 LXI HL,$0050 ; lookup digit table
// 0545: ac LDAX (HL+A)
// 0546: 63 c6 STAW $00C6 ; store into right digit
// 0548: 54 11 01 JMP $0111
//
// ; AD/timer handler
// 054b: 10 EXA
// 054c: 11 EXX
// 054d: 64 c8 08 ONI ANM,$08 ; test which set of AD inputs are selected
// 0550: d1 JR $0562
// 0551: 34 68 ff LXI HL,$FF68 ; AD values
// 0554: 78 71 CALF $0871 ; fetch AD registers
// 0556: 01 c5 LDAW $00C5 ; left digit
// 0558: 4d c1 MOV PB,A ; write to buffer
// 055a: 64 05 00 MVI PF,$00 ; select BANK digit
// 055d: 64 80 00 MVI ANM,$00 ;
// 0560: 4e 2b JRE $058D
// 0562: 6e ff MVI H,$FF ;
// 0564: 01 cc LDAW $00CC ; variable
// 0566: 46 58 ADI A,$58 ; offset
// 0568: 1f MOV L,A
// 0569: 78 71 CALF $0871 ; fetch AD registers
// 056b: 01 cc LDAW $00CC
// 056d: 46 04 ADI A,$04
// 056f: 48 0b SK HC
// 0571: cc JR $057E
// 0572: 71 cc 00 MVIW $00CC,$00
// 0575: 20 cd INRW $00CD
// 0577: 00 NOP
// 0578: 64 80 08 MVI ANM,$08
// 057b: 69 fc MVI A,$FC
// 057d: d1 JR $058F
// 057e: 63 cc STAW $00CC
// 0580: 48 01 SLRC A
// 0582: 48 01 SLRC A
// 0584: 46 c5 ADI A,$C5
// 0586: 1f MOV L,A
// 0587: 2b LDAX (HL)
// 0588: 4d c1 MOV PB,A
// 058a: 64 45 40 ADI PF,$40
// 058d: 69 f7 MVI A,$F7
// 058f: 63 cb STAW $00CB
// 0591: 10 EXA
// 0592: 11 EXX
// 0593: aa EI
// 0594: 62 RETI
// ; serial interrupt handler
// 0595: 10 EXA
// 0596: 11 EXX
// 0597: 64 5e 04 OFFI MKH,$04 ; tx int masked
// 059a: c5 JR $05A0
// 059b: 48 49 SKIT FSR ; receive interrupt
// 059d: 54 af 07 JMP $07AF ; handle TX interrupt
// 05a0: 48 6b SKNIT ER ; error
// 05a2: 4e 6f JRE $0613 ; handle error and return
// 05a4: 4c d9 MOV A,RXB ; receive byte
// 05a6: 47 80 ONI A,$80 ; skip bit 7 set?
// 05a8: 4e 70 JRE $061A ; not a status byte
// 05aa: 37 f0 LTI A,$F0 ; less than $f0
// 05ac: 4e 50 JRE $05FE ; handle sysex etc
// 05ae: 1a MOV B,A ; save byte
// 05af: 05 4f 33 ANIW $004F,$33 ; mask bits in variable
// 05b2: 5d 4f BIT 5,$004F ; test bit in variable, maybe omni?
// 05b4: c4 JR $05B9
// 05b5: 74 e0 bd SUBW $00BD
// 05b8: c2 JR $05BB
// 05b9: 07 f0 ANI A,$F0 ; mask off status, ignore channel
// 05bb: 67 90 NEI A,$90 ; note on?
// 05bd: c2 JR $05C0 ;
// 05be: 67 80 NEI A,$80 ; note off
// 05c0: 4e 25 JRE $05E7 ; handle note on/off
// 05c2: 67 b0 NEI A,$B0 ; control change
// 05c4: d7 JR $05DC ;
// 05c5: 5d a8 BIT 5,$00A8 ; function pin 49/2
// 05c7: 4e 2a JRE $05F3
// 05c9: 75 a2 00 EQIW $00A2,$00
// 05cc: 71 a2 80 MVIW $00A2,$80
// 05cf: 75 a1 00 EQIW $00A1,$00
// 05d2: 71 a1 80 MVIW $00A1,$80
// 05d5: 75 a0 00 EQIW $00A0,$00
// 05d8: 71 a0 80 MVIW $00A0,$80
// 05db: d3 JR $05EF ; return from interrupt
// ; handle control change
// 05dc: 1b MOV C,A
// 05dd: 0a MOV A,B
// 05de: 07 0f ANI A,$0F ; channel?
// 05e0: 74 e8 bd NEAW $00BD ; variable might be MIDI channel selected
// 05e3: 15 4f 40 ORIW $004F,$40
// 05e6: 0b MOV A,C
//
// ; handling note on/off
// 05e7: 71 3f 01 MVIW $003F,$01 ; two bytes
// 05ea: 63 4e STAW $004E ; variable, store status
// 05ec: 15 4f 80 ORIW $004F,$80 ; set flag byte
// 05ef: 10 EXA
// 05f0: 11 EXX
// 05f1: aa EI
// 05f2: 62 RETI
// ; wasn't control or note
// 05f3: 67 c0 NEI A,$C0 ; program change?
// 05f5: c4 JR $05FA
// 05f6: 77 e0 EQI A,$E0 ; bender
// 05f8: f6 JR $05EF ; no, return
// 05f9: ed JR $05E7 ; handle two byte message
// 05fa: 71 3f 00 MVIW $003F,$00 ; one byte
// 05fd: ec JR $05EA ; store the variable, set the flag, return
// ; statuses > $f0
// 05fe: 37 f8 LTI A,$F8 ;
// 0600: ee JR $05EF ; return if it's system realtime
// 0601: 77 f0 EQI A,$F0 ; actually sysex?
// 0603: d1 JR $0615 ; no
// 0604: 55 a8 30 OFFIW $00A8,$30 ; variable, function switch?
// 0607: cd JR $0615
// 0608: 05 4f f3 ANIW $004F,$F3
// 060b: 15 4f 04 ORIW $004F,$04
// 060e: 71 3f 00 MVIW $003F,$00 ; expect one byte
// 0611: 4f d7 JRE $05EA ; store status and return
// 0613: 4c d9 MOV A,RXB ; handle error condition
// 0615: 05 4f 33 ANIW $004F,$33 ;
// 0618: 4f d5 JRE $05EF ; return
// ; not status byte
// 061a: 5f 4f BIT 7,$004F ; test if we're looking for a value not status?
// 061c: fb JR $0618 ; return
// 061d: 1b MOV C,A
// 061e: 5a 4f BIT 2,$004F ; flag variable
// 0620: 4e 8f JRE $06B1 ; handle double byte
// 0622: 5b 4f BIT 3,$004F ; flag variable
// 0624: 4e 53 JRE $0679 ;
// 0626: 5c 4f BIT 4,$004F ; flag variable
// 0628: 4e 41 JRE $066B
// 062a: 01 3f LDAW $003F
// 062c: 37 10 LTI A,$10 ; less than 16-byte message?
// 062e: 4e 20 JRE $0650
// 0630: 1a MOV B,A
// 0631: 0b MOV A,C
// 0632: 34 90 ff LXI HL,$FF90 ; incoming patch data from sysex?
// 0635: bd STAX (HL+B)
// 0636: 34 08 00 LXI HL,$0008
// 0639: 0a MOV A,B
// 063a: 07 07 ANI A,$07
// 063c: ac LDAX (HL+A)
// 063d: 34 cf ff LXI HL,$FFCF
// 0640: 74 4a 08 ONI B,$08
// 0643: 34 ce ff LXI HL,$FFCE
// 0646: 70 9b ORAX (HL)
// 0648: 3b STAX (HL)
// 0649: 20 3f INRW $003F
// 064b: 00 NOP
// ; return from interrupt
// 064c: 10 EXA
// 064d: 11 EXX
// 064e: aa EI
// 064f: 62 RETI
// 0650: 67 10 NEI A,$10
// 0652: ca JR $065D
// 0653: 67 11 NEI A,$11
// 0655: ce JR $0664
// 0656: 05 4f 33 ANIW $004F,$33
// 0659: 71 3f 00 MVIW $003F,$00 ; expect single byte
// 065c: ef JR $064C ; return
// 065d: 0b MOV A,C
// 065e: 63 8e STAW $008E
// 0660: 15 b6 20 ORIW $00B6,$20
// 0663: e5 JR $0649
// 0664: 0b MOV A,C
// 0665: 63 8f STAW $008F
// 0667: 15 b6 40 ORIW $00B6,$40
// 066a: f8 JR $0663
// 066b: 55 3f 01 OFFIW $003F,$01
// 066e: c3 JR $0672
// 066f: 63 3e STAW $003E
// 0671: f1 JR $0663
// 0672: 01 3e LDAW $003E
// 0674: 27 11 GTI A,$11
// 0676: 4f b4 JRE $062C
// 0678: ea JR $0663
//
// ;
// 0679: 75 3f 00 EQIW $003F,$00 ; only one byte to get?
// 067c: c6 JR $0683 ; no
// 067d: 77 41 EQI A,$41 ; sysex manufacturer ID?
// 067f: 4f d5 JRE $0656 ; no
// 0681: 4f c6 JRE $0649 ; get sysex?
// 0683: 75 3f 01 EQIW $003F,$01 ; two bytes to get?
// 0686: d4 JR $069B ; no
// 0687: 77 30 EQI A,$30 ; receive patch change?
// 0689: c5 JR $068F ; no
// 068a: 15 4f 10 ORIW $004F,$10 ; flag variable
// 068d: 4f ba JRE $0649 ; increment ff3f and return
// 068f: 67 31 NEI A,$31 ; pressed manual?
// 0691: f8 JR $068A ; no
// 0692: 77 32 EQI A,$32 ; single controller
// 0694: 4f c0 JRE $0656 ; no
// 0696: 05 4f ef ANIW $004F,$EF ; flag variable
// 0699: 4f ae JRE $0649 ; increment counter and return
// 069b: 75 3f 02 EQIW $003F,$02 ; three bytes
// 069e: ca JR $06A9
// 069f: 74 f8 bd EQAW $00BD
// 06a2: 4f b2 JRE $0656
// 06a4: 55 4f 10 OFFIW $004F,$10
// 06a7: 4f a0 JRE $0649 ; increment counter and return
// 06a9: 15 4f 08 ORIW $004F,$08
// 06ac: 71 3f 00 MVIW $003F,$00 ; expect a single byte
// 06af: 4f 9b JRE $064C ; return
//
// ; handle incoming values
// 06b1: 30 3f DCRW $003F ; count down variable, skip if we roll over
// 06b3: 4e 59 JRE $070E ; store it in ff3e
// 06b5: 25 4e 91 GTIW $004E,$91 ; status byte? not note on
// 06b8: d1 JR $06CA
// 06b9: 65 4e b0 NEIW $004E,$B0 ; control change
// 06bc: 4e 54 JRE $0712
// 06be: 65 4e c0 NEIW $004E,$C0 ; program change
// 06c1: 4e bd JRE $0780
// 06c3: 65 4e e0 NEIW $004E,$E0 ; bend
// 06c6: 4e c7 JRE $078F
// 06c8: 4f 8c JRE $0656
//
// ; handle note on/off?
// ; called with status in $ff4e, value in $ff3e and velocity in C
void Assigner::noteOn(uint8_t c) {
// this routine is called with the status byte in RAM at
// 0xff4e, the MIDI note at 0xff3e, and the Transpose value
// at 0xffbe
// 06ca: 01 3e LDAW $003E ; first byte
a = ram[0x3e];
h06cc:
// 06cc: 27 17 GTI A,$17 ; greater than 23
// 06ce: 4e 36 JRE $0706 ; no, add an octave
if (a > 0x17) {
// skip
} else
goto h0706;
h06d0:
// 06d0: 37 6d LTI A,$6D ; less than 108
// 06d2: 4e 36 JRE $070A ; no, subtract an octave
if (a < 0x6d) {
// skip
} else
goto h070a;
// 06d4: 74 e0 be SUBW $00BE ; subtract a value - transpose?
a -= ram[0xbe];
// 06d7: 1a MOV B,A ; save in b
b = a;
// 06d8: 48 22 SLR B
// 06da: 48 22 SLR B
// 06dc: 48 22 SLR B ; divide by 8
b >>= 3;
// 06de: 07 07 ANI A,$07 ; lower three bits
a &= 0x07;
// 06e0: 75 4e 90 EQIW $004E,$90 ; note on?
// 06e3: d5 JR $06F9 ; no, jump ahead
if (ram[0x4e] == 0x90) {
// skip
} else
goto h06f9;
// 06e4: 74 6b 00 NEI C,$00 ; velocity 0
// 06e7: d1 JR $06F9 ; no, jump ahead
if (c != 0) {
// skip
} else
goto h06f9;
// ; otherwise fall through and handle Note On
// 06e8: 34 08 00 LXI HL,$0008 ; lookup table runs 01, 02, 04, 08, 10, 20, 40, 80
// ; inverse of the one at 0x0010
// 06eb: ac LDAX (HL+A) ; look up table based on note
hl = 0x08;
a = bitMask[hl + a]; // fetch bit corresponding to lower bits of note
// 06ec: 1b MOV C,A ; save
// 06ed: 34 40 ff LXI HL,$FF40 ; bit flags
// 06f0: ad LDAX (HL+B) ; byte pointed to by upper part
// 06f1: 60 9b ORA A,C ; or in whichever note is flagged
// 06f3: bd STAX (HL+B) ; save in flag
c = a; // save A for later
hl = 0x40; // MIDI key bitmap
a = ram[hl + b];
a |= c;
ram[hl + b] = a; // OR in the bit we saved and save it back
// ; this sets up the MIDI routine to expect a two-byte message again
// which allows for running status
// 06f4: 71 3f 01 MVIW $003F,$01 ; expect two bytes
// 06f7: 4f 53 JRE $064C ; return
return;
h06f9:
// ; note off?
// ; A contains lower three bits of note, B contains upper 4 bits
// 06f9: 34 10 00 LXI HL,$0010 ; lookup table runs fe, fd, fb, f7, ef, df, bf, 7f
// ; inverse of 0x0008
// 06fc: ac LDAX (HL+A) ; look up the table based on the note
hl = 0x10;
a = bitMask[hl + a];
// 06fd: 1b MOV C,A ; fetch value, store in C
// 06fe: 34 40 ff LXI HL,$FF40 ; table in RAM
// 0701: ad LDAX (HL+B) ; $FF40 + upper four bits as offset
// 0702: 60 8b ANA A,C ; mask off the bit for the note
// 0704: bd STAX (HL+B) ; store at $FF40 + offset
c = a;
hl = 0x40;
a = ram[hl + b];
a &= c;
ram[hl + b] = a;
return;
// jump back to set up for running status
// 0705: ee JR $06F4
h0706:
// ; add or subtract an octave to bring out-of-range notes in
// 0706: 46 0c ADI A,$0C ; add 12 to note value in A
// 0708: 4f c2 JRE $06CC ; jump back and test if it's in range yet
a += 12; // semitones
goto h06cc; // test again
h070a:
// 070a: 66 0c SUI A,$0C ; subtract 12 from note value in A
// 070c: 4f c2 JRE $06D0 ; jump back and test if it's in range yet
a -= 12; // semitones
goto h06d0;
// called from $06b3
// stores the first byte after the status byte
// 070e: 63 3e STAW $003E
// 0710: 4f 3a JRE $064C ; return from interrupt
//
// ; control change?
// 0712: 01 3e LDAW $003E ; parameter?
// 0714: 27 7a GTI A,$7A ; all notes off, or higher?
// 0716: 4e 35 JRE $074D
// 0718: 45 4f 40 ONIW $004F,$40 ; flag variable
// 071b: 4f d7 JRE $06F4
// 071d: 67 7b NEI A,$7B ; all notes off?
// 071f: 4e 51 JRE $0772
// 0721: 47 02 ONI A,$02 ; mono/poly (but ignored according to the manual)
// 0723: c8 JR $072C
// 0724: 05 4f fd ANIW $004F,$FD ; flag variable
// 0727: 47 01 ONI A,$01 ; omni on
// 0729: 4e 4d JRE $0778 ; set omni off
// 072b: c8 JR $0734
// 072c: 05 4f fe ANIW $004F,$FE ; clear flag variable bit 0
// 072f: 47 01 ONI A,$01 ; if mono on?
// 0731: 15 4f 01 ORIW $004F,$01 ; set flag variable?
// 0734: 69 03 MVI A,$03
// 0736: 74 88 4f ANAW $004F
// 0739: 15 4f 20 ORIW $004F,$20
// 073c: 77 01 EQI A,$01
// 073e: 05 4f df ANIW $004F,$DF
// 0741: 6a 0d MVI B,$0D ; 14 values
// 0743: 69 00 MVI A,$00 ; zero out note flags
// 0745: 34 40 ff LXI HL,$FF40 ; table in RAM for note flags
// 0748: 3d STAX (HL+) ; store
// 0749: 52 DCR B
// 074a: fd JR $0748 ; loop
// 074b: 4f a7 JRE $06F4 ; expect two bytes
// 074d: 77 40 EQI A,$40 ; sustain
// 074f: ce JR $075E
// 0750: 74 6b 00 NEI C,$00 ; value is zero
// 0753: c5 JR $0759
// 0754: 15 b6 10 ORIW $00B6,$10 ; sustain on
// 0757: 4f 9b JRE $06F4
// 0759: 15 b6 08 ORIW $00B6,$08 ; sustain off
// 075c: 4f 96 JRE $06F4
// 075e: 77 01 EQI A,$01 ; mod wheel
// 0760: 4f 92 JRE $06F4 ; expect two bytes and return (running status)
// 0762: 55 a8 20 OFFIW $00A8,$20 ; midi mode 0
// 0765: c7 JR $076D ; continue
// 0766: 0b MOV A,C ; get byte
// 0767: 17 80 ORI A,$80 ; set bit?
// 0769: 63 a2 STAW $00A2 ; mod wheel value?
// 076b: 4f 87 JRE $06F4 ; expect two bytes and return (running status)
// 076d: 71 a2 80 MVIW $00A2,$80 ; mod wheel off?
// 0770: 4f 82 JRE $06F4 ; expect two bytes and return
//
// ; handle all notes off
// 0772: 5d 4f BIT 5,$004F ; all notes off?
// 0774: 4f 7e JRE $06F4 ; expect two bytes and return
// 0776: 4f c9 JRE $0741 ; wipe a table
// 0778: 74 7b 01 EQI C,$01
// 077b: 15 4f 02 ORIW $004F,$02
// 077e: 4f b4 JRE $0734
//
// ; program change
// 0780: 55 a8 20 OFFIW $00A8,$20 ; Midi mode 0?
// 0783: c5 JR $0789 ; skip ahead and do nothing
// 0784: 0b MOV A,C ; get prog
// 0785: 17 80 ORI A,$80 ; bit 7
// 0787: 63 a3 STAW $00A3 ; store
// 0789: 71 3f 00 MVIW $003F,$00 ; expect one byte (running status)
// 078c: 54 4c 06 JMP $064C ; return
//
// ; bend
// 078f: 55 a8 20 OFFIW $00A8,$20 ; midi mode 0?
// 0792: d7 JR $07AA ; clear and end
// 0793: 0b MOV A,C
// 0794: 18 MOV EAH,A ; EAH gets msb
// 0795: 01 3e LDAW $003E ; lsb
// 0797: 48 25 SLL A ; multiply by two
// 0799: 19 MOV EAL,A ; EA contains 14-bit bend multiplied by 2
// 079a: 48 a4 DSLL EA ; left aligned
// 079c: 08 MOV A,EAH
// 079d: 47 80 ONI A,$80 ; negative?
// 079f: c4 JR $07A4
// 07a0: 63 a1 STAW $00A1 ; save in ffa1
// 07a2: 4f 50 JRE $06F4 ; return, two byte running status
// 07a4: 16 ff XRI A,$FF ; invert
// 07a6: 63 a0 STAW $00A0 ; save in ffa0
// 07a8: 4f 4a JRE $06F4 ; return, two byte running status
// 07aa: 71 a1 80 MVIW $00A1,$80 ; reset bend?
// 07ad: 4f 45 JRE $06F4 ; return, two byte running status
}
// ; handle TX interrupt
// 07af: 01 c1 LDAW $00C1 ; buffer pointers?
// 07b1: 74 f8 c2 EQAW $00C2
// 07b4: 4e 25 JRE $07DB ; not equal, send byte
// 07b6: 64 1e 04 ORI MKH,$04 ; disable tx interrupt
// 07b9: 11 EXX ; return
// 07ba: 10 EXA
// 07bb: aa EI
// 07bc: 62 RETI
//
// ; handle command byte to assigner board
// 07bd: 1b MOV C,A ; save A
// 07be: 4c c2 MOV A,PC ; fetch port C
// 07c0: 60 93 XRA A,C ; XOR with "command" byte
// 07c2: 47 04 ONI A,$04 ; MIDI out / Serial Out
// 07c4: ca JR $07CF ;
// 07c5: 69 d0 MVI A,$D0
// 07c7: 48 49 SKIT FSR ; receive buffer full?
// 07c9: c3 JR $07CD ; no
// 07ca: 54 a0 05 JMP $05A0 ; error handler
// 07cd: 41 INR A ; inc a, skip if it rolls over
// 07ce: f8 JR $07C7 ; loop around 32 times
// 07cf: 0f MOV A,L
// 07d0: 37 30 LTI A,$30 ; wrapped
// 07d2: 69 00 MVI A,$00 ;
// 07d4: 63 c1 STAW $00C1 ; set buffer pointer
// 07d6: 0b MOV A,C
// 07d7: 4d c2 MOV PC,A ; set port C
// 07d9: 4f d4 JRE $07AF ; handle TX interrupt
//
// ; fetch byte to send
// 07db: 6e ff MVI H,$FF
// 07dd: 1f MOV L,A ; contains pointer
// 07de: 2d LDAX (HL+) ; fetch byte
// 07df: 67 fd NEI A,$FD ; is it a module board command?
// 07e1: 4f da JRE $07BD ; yes
// 07e3: 67 f9 NEI A,$F9 ; is this "send midi?"
// 07e5: 4f d6 JRE $07BD ; yes
// 07e7: 48 4a SKIT FST ; wait for TX ready
// 07e9: cd JR $07F7
// 07ea: 4d d8 MOV TXB,A ; transmit
// 07ec: 0f MOV A,L
// 07ed: 37 30 LTI A,$30 ; end of buffer
// 07ef: 69 00 MVI A,$00 ; wrap
// 07f1: 63 c1 STAW $00C1 ; TX pointer
// 07f3: 11 EXX
// 07f4: 10 EXA
// 07f5: aa EI
// 07f6: 62 RETI
//
// ;
// 07f7: 33 DCX HL
// 07f8: fa JR $07F3
// 07f9: 00 NOP
// 07fa: 00 NOP
// 07fb: 00 NOP
// 07fc: 00 NOP
// 07fd: 00 NOP
// 07fe: 00 NOP
// 07ff: 00 NOP
//
// ; show transpose value
// 0800: 01 be LDAW $00BE ; transpose value
// 0802: 37 0c LTI A,$0C ; is it 12
// 0804: c4 JR $0809 ; yes, don't show decimal point in left digit
// 0805: 71 c5 04 MVIW $00C5,$04 ; decimal point into left digit?
// 0808: c3 JR $080C ; show transpose
// 0809: 71 c5 00 MVIW $00C5,$00 ; blank left digit
// 080c: 34 60 00 LXI HL,$0060 ; lookup table - letters to segments
// 080f: ac LDAX (HL+A)
// 0810: 63 c6 STAW $00C6 ; right digit
// 0812: b8 RET
//
// ; look up bit patterns " 1" to "16"
// 0813: 05 4f dc ANIW $004F,$DC
// 0816: 15 4f 21 ORIW $004F,$21
// 0819: 63 bd STAW $00BD
// 081b: 34 40 00 LXI HL,$0040 ; 1-16 with leading space
// 081e: ac LDAX (HL+A)
// 081f: 7d 45 CALF $0D45 ; look up bit patterns
// 0821: 78 43 CALF $0843 ; omni off poly
// 0823: 7b 9a CALF $0B9A ; zero out RAM at FF40 (key bitmap)
// 0825: 78 28 CALF $0828 ; reset modwheel
// 0827: b8 RET
//
// ; reset modwheel
// 0828: 69 80 MVI A,$80
// 082a: 63 a1 STAW $00A1 ; centre modwheel
// 082c: 63 a2 STAW $00A2 ; centre pitchwheel
// 082e: 69 fd MVI A,$FD ; to module board
// 0830: 79 e8 CALF $09E8 ; send byte to TX
// 0832: 69 87 MVI A,$87 ; command $87 ; sustain on
// 0834: 79 e8 CALF $09E8 ; send byte to TX
// 0836: b8 RET
//
// ; send command in BC to module board
// 0837: 1b MOV C,A
// 0838: 69 fd MVI A,$FD
// 083a: 79 e8 CALF $09E8 ; send byte to TX
// 083c: 0a MOV A,B
// 083d: 79 e8 CALF $09E8 ; send byte to TX
// 083f: 0b MOV A,C
// 0840: 79 e8 CALF $09E8 ; send byte to TX
// 0842: b8 RET
//
// ; Omni Off Poly
// 0843: 69 f9 MVI A,$F9 ; send to MIDI
// 0845: 79 e8 CALF $09E8 ; send byte to TX
// 0847: 69 b0 MVI A,$B0 ; Continuous Controller
// 0849: 79 d5 CALF $09D5 ; send wiping running status
// 084b: 69 7c MVI A,$7C ; Omni Off
// 084d: 79 e8 CALF $09E8 ; send byte to TX
// 084f: 69 00 MVI A,$00 ; dummy
// 0851: 79 e8 CALF $09E8 ; send byte to TX
// 0853: 69 7f MVI A,$7F ; Poly on
// 0855: 79 e8 CALF $09E8 ; send byte to TX
// 0857: 69 00 MVI A,$00 ; dummy
// 0859: 79 e8 CALF $09E8 ; send byte to TX
// 085b: b8 RET
//
// ; Send "zero DAC" command to board
// 085c: 69 fd MVI A,$FD ; module board
// 085e: 79 e8 CALF $09E8 ; send byte to TX
// 0860: 69 8f MVI A,$8F ; switch register 2
// 0862: 79 e8 CALF $09E8 ; send byte to TX
// 0864: 69 5f MVI A,$5F ; manual, gate, -, HPF 2, mystery bit 6?
// 0866: 79 e8 CALF $09E8 ; send byte to TX
// 0868: 69 a3 MVI A,$A3 ;
// 086a: 79 e8 CALF $09E8 ; send byte to TX
// 086c: 69 00 MVI A,$00
// 086e: 79 e8 CALF $09E8 ; send byte to TX
// 0870: b8 RET
//
// ; fetch AD registers
// 0871: 4c e0 MOV A,CR0
// 0873: 3d STAX (HL+)
// 0874: 4c e1 MOV A,CR1
// 0876: 3d STAX (HL+)
// 0877: 4c e2 MOV A,CR2
// 0879: 3d STAX (HL+)
// 087a: 4c e3 MOV A,CR3
// 087c: 3b STAX (HL)
// 087d: b8 RET
//
// ;
// 087e: 78 c3 CALF $08C3
// 0880: 59 b6 BIT 1,$00B6
// 0882: 4e 23 JRE $08A7
// 0884: 55 c5 10 OFFIW $00C5,$10 ; is left digit decimal point set?
// ; poss. is edited
// 0887: df JR $08A7
// 0888: b3 PUSH HL
// 0889: b2 PUSH DE
// 088a: 6c ff MVI D,$FF
// 088c: 34 30 00 LXI HL,$0030 ; lookup table
// 088f: ad LDAX (HL+B)
// 0890: 1d MOV E,A
// 0891: 0b MOV A,C
// 0892: 3a STAX (DE)
// 0893: 69 fd MVI A,$FD
// 0895: 79 e8 CALF $09E8 ; send byte to TX
// 0897: 0d MOV A,E
// 0898: 79 e8 CALF $09E8 ; send byte to TX
// 089a: 0b MOV A,C
// 089b: 79 e8 CALF $09E8 ; send byte to TX
// 089d: 45 a8 30 ONIW $00A8,$30
// 08a0: 78 d6 CALF $08D6
// 08a2: a2 POP DE
// 08a3: a3 POP HL
// 08a4: 2a LDAX (DE)
// 08a5: 3b STAX (HL)
// 08a6: b8 RET
//
// 08a7: b3 PUSH HL
// 08a8: b2 PUSH DE
// 08a9: 6c ff MVI D,$FF
// 08ab: 34 30 00 LXI HL,$0030
// 08ae: ad LDAX (HL+B)
// 08af: 1d MOV E,A
// 08b0: 2a LDAX (DE)
// 08b1: 57 80 OFFI A,$80
// 08b3: c9 JR $08BD
// 08b4: 09 MOV A,EAL
// 08b5: 37 10 LTI A,$10
// 08b7: c3 JR $08BB
// 08b8: a2 POP DE
// 08b9: a3 POP HL
// 08ba: b8 RET
//
// 08bb: 7d 5b CALF $0D5B ; set both DP on
// 08bd: 0b MOV A,C
// 08be: 17 80 ORI A,$80
// 08c0: 3a STAX (DE)
// 08c1: 4f d0 JRE $0893
//
// ; subroutine
// 08c3: 2a LDAX (DE)
// 08c4: 36 04 SUINB A,$04
// 08c6: 69 00 MVI A,$00
// 08c8: 27 f2 GTI A,$F2
// 08ca: c7 JR $08D2
// 08cb: 1b MOV C,A
// 08cc: 66 f2 SUI A,$F2
// 08ce: 60 a3 ADDNC A,C
// 08d0: 69 ff MVI A,$FF
// 08d2: 48 21 SLR A
// 08d4: 1b MOV C,A
// 08d5: b8 RET
//
// ; subroutine
// 08d6: 6c 32 MVI D,$32
// 08d8: 79 15 CALF sendSysexHeader
// 08da: 0d MOV A,E
// 08db: 66 90 SUI A,$90
// 08dd: 07 7f ANI A,$7F
// 08df: 79 e8 CALF $09E8 ; send byte to TX
// 08e1: 0b MOV A,C
// 08e2: 79 e8 CALF $09E8 ; send byte to TX
// 08e4: 69 f7 MVI A,$F7 ; sysex end
// 08e6: 79 e6 CALF $09E6 ; save running status
// 08e8: b8 RET
//
// 08e9: 6c 31 MVI D,$31
// 08eb: 79 15 CALF sendSysexHeader
// 08ed: 69 00 MVI A,$00
// 08ef: c6 JR $08F6
//
// ; send sysex patch change
// sendSysexPatch:
// 08f0: 6c 30 MVI D,$30
// 08f2: 79 15 CALF sendSysexHeader ; send sysex header
// 08f4: 79 36 CALF $0936
// 08f6: 79 e8 CALF $09E8 ; send byte to TX
// 08f8: 6a 0f MVI B,$0F
// 08fa: 34 90 ff LXI HL,$FF90 ; start of working patch RAM
// 08fd: 2d LDAX (HL+)
// 08fe: 07 7f ANI A,$7F
// 0900: 79 e8 CALF $09E8 ; send byte to TX
// 0902: 52 DCR B
// 0903: f9 JR $08FD ; loop around
// 0904: 01 8e LDAW $008E ; switches 1
// 0906: 07 7f ANI A,$7F
// 0908: 79 e8 CALF $09E8 ; send byte to TX
// 090a: 01 8f LDAW $008F ; switches 2
// 090c: 07 1f ANI A,$1F
// 090e: 79 e8 CALF $09E8 ; send byte to TX
// 0910: 69 f7 MVI A,$F7 ; terminate sysex
// 0912: 79 e8 CALF $09E8 ; send byte to TX
// 0914: b8 RET
//
// ; send sysex header
// sendSysexHeader:
// 0915: 69 f9 MVI A,$F9 ; MIDI on
// 0917: 79 e8 CALF $09E8 ; send byte to TX
// 0919: 69 f0 MVI A,$F0 ; sysex
// 091b: 79 e6 CALF $09E6 ; set running status
// 091d: 69 41 MVI A,$41 ; Roland
// 091f: 79 e8 CALF $09E8 ; send byte to TX
// 0921: 0c MOV A,D ; command
// 0922: 79 e8 CALF $09E8 ; send byte to TX
// 0924: 01 bd LDAW $00BD ; MIDI channel
// 0926: 79 e8 CALF $09E8 ; send byte to TX
// 0928: b8 RET
//
// ; send program change
// 0929: 69 f9 MVI A,$F9
// 092b: 79 e8 CALF $09E8 ; send byte to TX
// 092d: 69 c0 MVI A,$C0 ; program change
// 092f: 79 d5 CALF $09D5 ; test and set running status
// 0931: 79 36 CALF $0936
// 0933: 79 e8 CALF $09E8 ; send byte to TX
// 0935: b8 RET
//
// ; turn internal program into MIDI value
// 0936: 01 bb LDAW $00BB ; value
// 0938: 51 DCR A ;
// 0939: 1b MOV C,A
// 093a: 01 ba LDAW $00BA
// 093c: 66 10 SUI A,$10
// 093e: 48 21 SLR A
// 0940: 60 9b ORA A,C
// 0942: 5e c8 BIT 6,$00C8
// 0944: 17 40 ORI A,$40
// 0946: b8 RET
//
// ;
// 0947: 69 fd MVI A,$FD ; module
// 0949: 79 e8 CALF $09E8 ; send byte to TX
// 094b: 0d MOV A,E
// 094c: 79 e8 CALF $09E8 ; send byte to TX
// 094e: 2a LDAX (DE)
// 094f: 07 7f ANI A,$7F ; does setting its upper bit mean it needs sent?
// 0951: 3a STAX (DE)
// 0952: 79 e8 CALF $09E8 ; send byte to TX
// 0954: b8 RET
//
// ; send pitchbend to MIDI
// 0955: 55 a8 20 OFFIW $00A8,$20 ; Midi mode 0?
// 0958: b8 RET
// 0959: 2a LDAX (DE)
// 095a: 3b STAX (HL)
// 095b: 44 00 00 LXI EA,$0000
// 095e: 35 6a 80 LTIW $006A,$80
// 0961: 16 ff XRI A,$FF
// 0963: 18 MOV EAH,A
// 0964: 48 a0 DSLR EA
// 0966: 48 a0 DSLR EA
// 0968: 69 f9 MVI A,$F9
// 096a: 79 e8 CALF $09E8 ; send byte to TX
// 096c: 69 e0 MVI A,$E0 ; pitch wheel
// 096e: 79 dc CALF $09DC ; send status byte, setting running status
// 0970: 09 MOV A,EAL
// 0971: 48 21 SLR A
// 0973: 79 e8 CALF $09E8 ; send pitch wheel low byte to TX
// 0975: 08 MOV A,EAH
// 0976: 25 6a 80 GTIW $006A,$80 ; bend or down?
// 0979: 17 40 ORI A,$40
// 097b: 79 e8 CALF $09E8 ; send signed high byte to TX
// 097d: b8 RET
//
// ; send modwheel to MIDI
// 097e: 0b MOV A,C
// 097f: 63 7f STAW $007F
// 0981: 55 a8 20 OFFIW $00A8,$20 ; midi mode 0?
// 0984: b8 RET
// 0985: 1b MOV C,A
// 0986: 69 f9 MVI A,$F9
// 0988: 79 e8 CALF $09E8 ; send byte to TX
// 098a: 69 b0 MVI A,$B0 ; control change
// 098c: 79 d5 CALF $09D5 ; send status byte and set running status
// 098e: 69 01 MVI A,$01 ; modwheel
// 0990: 79 e8 CALF $09E8 ; send byte to TX
// 0992: 0b MOV A,C
// 0993: 79 e8 CALF $09E8 ; send byte to TX
// 0995: b8 RET
//
// ; determine if we need to send Note On or Note Off
// 0996: 19 MOV EAL,A ; save key bit
// 0997: 0a MOV A,B ; key column number
// 0998: 07 07 ANI A,$07 ; not sure why this would be more than 0-7
// 099a: 7a 0d CALF $0A0D ; multiply A by 8 and put it in EAH, store C in ffc3
// 099c: b3 PUSH HL
// 099d: b1 PUSH BC
// 099e: 6a 00 MVI B,$00 ;
// 09a0: 09 MOV A,EAL ; key bitpattern
// 09a1: 1b MOV C,A ;
// 09a2: 48 03 SLRC C ; skip if bit 0 was set (skip if carry)
// 09a4: d5 JR $09BA
// 09a5: 34 08 00 LXI HL,$0008 ;
// 09a8: ad LDAX (HL+B) ; convert count to bit
// 09a9: 74 c8 c3 ONAW $00C3 ; is it set in C3
// 09ac: c7 JR $09B4 ; no
// 09ad: 79 c2 CALF $09C2 ; yes
// 09af: 69 40 MVI A,$40 ; velocity = 64
// 09b1: 79 e8 CALF $09E8 ; send byte to TX
// 09b3: c6 JR $09BA
// 09b4: 79 c2 CALF $09C2 ;
// 09b6: 69 00 MVI A,$00 ; velocity = 0
// 09b8: 79 e8 CALF $09E8 ; send byte to TX
// 09ba: 42 INR B ; next
// 09bb: 74 7a 08 EQI B,$08
// 09be: e3 JR $09A2 ; loop around
// 09bf: a1 POP BC
// 09c0: a3 POP HL
// 09c1: b8 RET
//
// ; Note On
// ; doesn't send velocity, that's dealt with by the routine at 0996
// 09c2: 69 f9 MVI A,$F9
// 09c4: 79 e8 CALF $09E8 ; select MIDI out
// 09c6: 69 90 MVI A,$90
// 09c8: 79 dc CALF $09DC ; note on
// 09ca: 08 MOV A,EAH ; upper bits of note from routine at 0a0d
// 09cb: 60 9a ORA A,B ; lower bits of note (bit count)
// 09cd: 46 18 ADI A,$18 ; offset 24
// 09cf: 74 c0 be ADDW $00BE ; transpose
// 09d2: 79 e8 CALF $09E8 ; send byte to TX
// 09d4: b8 RET
//
//
// 09d5: 74 c0 bd ADDW $00BD ; add in MIDI channel
// 09d8: 71 c0 00 MVIW $00C0,$00 ; zero out running status?
// 09db: cc JR $09E8 ; send byte to TX
//
// ; send status byte?
// 09dc: 47 80 ONI A,$80 ; is it a status byte?
// 09de: c9 JR $09E8 ; send byte to TX if not
// 09df: 74 c0 bd ADDW $00BD ; add in MIDI channel
// 09e2: 74 e8 c0 NEAW $00C0 ; if running status hasn't changed
// 09e5: b8 RET ; go back
// 09e6: 63 c0 STAW $00C0 ; save running status byte
//
// ; send command to serial
// 09e8: b3 PUSH HL
// 09e9: b1 PUSH BC
// 09ea: b2 PUSH DE
// 09eb: 1b MOV C,A ; save A
// 09ec: 01 c2 LDAW $00C2 ; TX buffer queue pointer
// 09ee: 41 INR A ; inc
// 09ef: 67 30 NEI A,$30 ; if it's 30
// 09f1: 69 00 MVI A,$00 ; reset to 0
// 09f3: 74 e8 c1 NEAW $00C1 ; wait until all bytes are sent
// 09f6: fc JR $09F3
// 09f7: 1d MOV E,A ; save
// 09f8: 01 c2 LDAW $00C2 ; fetch second one again
// 09fa: 34 00 ff LXI HL,$FF00
// 09fd: 1a MOV B,A ; pointer
// 09fe: 0b MOV A,C ; restore A
// 09ff: bd STAX (HL+B) ; save into buffer
// 0a00: 0d MOV A,E ; other pointer
// 0a01: 64 1e 07 ORI MKH,$07 ; mask AD, TX, RX interrupt flags
// 0a04: 63 c2 STAW $00C2 ; update pointer
// 0a06: 64 0e f8 ANI MKH,$F8 ; unmask AD, TX, RX
// 0a09: a2 POP DE ; restore registers
// 0a0a: a1 POP BC
// 0a0b: a3 POP HL
// 0a0c: b8 RET ; return
//
// ;
// 0a0d: 48 25 SLL A
// 0a0f: 48 25 SLL A
// 0a11: 48 25 SLL A
// 0a13: 18 MOV EAH,A
// 0a14: 0b MOV A,C
// 0a15: 63 c3 STAW $00C3
// 0a17: b8 RET
//
// ;
// ; called if a keypress changed
// 0a18: 19 MOV EAL,A ; save note bitmap
// 0a19: 0a MOV A,B ; save bitcolumn
// 0a1a: 7a 0d CALF $0A0D ; multiply bits by 8, store C in FFC3
// 0a1c: b3 PUSH HL
// 0a1d: b1 PUSH BC
// 0a1e: 6a 07 MVI B,$07 ; count bits
// 0a20: 09 MOV A,EAL ; bitmap
// 0a21: 1b MOV C,A ; save
// 0a22: 34 08 00 LXI HL,$0008 ; lookup table
// 0a25: 48 07 SLLC C ; shift left until it fall off the end
// 0a27: 4e 37 JRE $0A60 ;
// 0a29: ad LDAX (HL+B) ; look up bitfield in B
// 0a2a: 74 c8 c3 ONAW $00C3 ; was this already set
// 0a2d: 4e 23 JRE $0A52 ;
// 0a2f: 08 MOV A,EAH ;
// 0a30: 60 9a ORA A,B ;
// 0a32: 59 c8 BIT 1,$00C8 ; Poly 1?
// 0a34: da JR $0A4F ; no, skip ahead
// 0a35: 5a c8 BIT 2,$00C8 ; Poly 2?
// 0a37: c7 JR $0A3F ; no, skip ahead
// 0a38: 58 b6 BIT 0,$00B6 ; test mode flag?
// 0a3a: c7 JR $0A42 ; jump on ahead
// 0a3b: 7a 88 CALF $0A88 ; ?
// 0a3d: 4e 21 JRE $0A60 ; jump ahead to try next voice
// 0a3f: 58 b6 BIT 0,$00B6
// 0a41: ca JR $0A4C
// 0a42: 75 d0 00 EQIW $00D0,$00 ; if ffd0=0 skip
// 0a45: da JR $0A60 ; ahead to loop around voices
// 0a46: 7b 55 CALF $0B55 voiceOnUnison
// 0a48: 71 d0 80 MVIW $00D0,$80 ;
// 0a4b: d4 JR $0A60 ; loop around
// 0a4c: 7a af CALF $0AAF
// 0a4e: d1 JR $0A60
// 0a4f: 7a 76 CALF $0A76
// 0a51: ce JR $0A60
// 0a52: 08 MOV A,EAH
// 0a53: 60 9a ORA A,B
// 0a55: 59 c8 BIT 1,$00C8
// 0a57: c6 JR $0A5E
// 0a58: 5a c8 BIT 2,$00C8
// 0a5a: cb JR $0A66
// 0a5b: 58 b6 BIT 0,$00B6
// 0a5d: cb JR $0A69
// 0a5e: 7b 30 CALF $0B30
// 0a60: 52 DCR B
// 0a61: 4f c2 JRE $0A25
// 0a63: a1 POP BC
// 0a64: a3 POP HL
// 0a65: b8 RET
//
// 0a66: 58 b6 BIT 0,$00B6
// 0a68: ca JR $0A73
// 0a69: 75 d0 00 EQIW $00D0,$00
// 0a6c: f3 JR $0A60
// 0a6d: 7b 70 CALF $0B70 ; stop all notes?
// 0a6f: 71 d0 ff MVIW $00D0,$FF
// 0a72: ed JR $0A60
// 0a73: 7a f8 CALF $0AF8
// 0a75: ea JR $0A60
//
// 0a76: b3 PUSH HL
// 0a77: b1 PUSH BC
// 0a78: 1b MOV C,A
// 0a79: 6a 05 MVI B,$05
// 0a7b: 34 88 ff LXI HL,$FF88
// 0a7e: 2b LDAX (HL)
// 0a7f: 57 80 OFFI A,$80
// 0a81: dc JR $0A9E
// 0a82: 32 INX HL
// 0a83: 52 DCR B
// 0a84: f9 JR $0A7E
// 0a85: a1 POP BC
// 0a86: a3 POP HL
// 0a87: b8 RET
//
// ; send note to module board?
// 0a88: b3 PUSH HL
// 0a89: b1 PUSH BC
// 0a8a: 6e ff MVI H,$FF
// 0a8c: 1b MOV C,A
// 0a8d: 01 86 LDAW $0086 ; note number
// 0a8f: 41 INR A ; increment, skip if carry
// 0a90: 77 8e EQI A,$8E ; 88-8d, 8e is seventh?
// 0a92: c2 JR $0A95
// 0a93: 69 88 MVI A,$88 ; rotate back to first
// 0a95: 63 86 STAW $0086 ; voice under consideration
// 0a97: 1f MOV L,A ; HL contains voice?
// 0a98: 2b LDAX (HL) ; fetch value
// 0a99: 57 80 OFFI A,$80
// 0a9b: c2 JR $0A9E
// 0a9c: 52 DCR B
// 0a9d: ef JR $0A8D
//
// 0a9e: 69 fd MVI A,$FD ; module board
// 0aa0: 79 e8 CALF $09E8 ; send select module command to TX
// 0aa2: 0f MOV A,L
// 0aa3: 79 e8 CALF $09E8 ; send note on command to TX
// 0aa5: 0b MOV A,C
// 0aa6: 3b STAX (HL)
// 0aa7: 74 c0 be ADDW $00BE ; transpose
// 0aaa: 79 e8 CALF $09E8 ; send note value to TX
// 0aac: a1 POP BC
// 0aad: a3 POP HL
// 0aae: b8 RET
//
// ; maybe voice stealing
// 0aaf: b3 PUSH HL
// 0ab0: b1 PUSH BC
// 0ab1: b2 PUSH DE
// 0ab2: 1b MOV C,A ; save HL, BC, DE, A
// 0ab3: 6a 05 MVI B,$05 ; six voices
// 0ab5: 6c ff MVI D,$FF ; set up DE to point to RAM
// 0ab7: 34 85 ff LXI HL,$FF85 ; voice number of last voice
// 0aba: 2b LDAX (HL) ; into A
// 0abb: 1d MOV E,A ; DE now points to voice number
// 0abc: 2a LDAX (DE) ; A now contains voice
// 0abd: 57 80 OFFI A,$80 ; upper bit not set
// 0abf: ca JR $0ACA ; it was set
// 0ac0: a2 POP DE ; it was not set, end
// 0ac1: a1 POP BC
// 0ac2: a3 POP HL
// 0ac3: b8 RET
// ; looped if c=a
// 0ac4: 2b LDAX (HL) ; fetch next voce
// 0ac5: 1d MOV E,A
// 0ac6: 2a LDAX (DE) ; value
// 0ac7: 47 80 ONI A,$80 ; top bit set yet?
// 0ac9: c8 JR $0AD2 ; yes
// ; top bit was set
// 0aca: 07 7f ANI A,$7F ; strip top bit
// 0acc: 60 eb NEA A,C ; c=a?
// 0ace: d1 JR $0AE0 ; no
// 0acf: 33 DCX HL ; move down one note
// 0ad0: 52 DCR B ; count down
// 0ad1: f2 JR $0AC4 ; loop around voices
// 0ad2: 32 INX HL ; back up a voice
// 0ad3: 2b LDAX (HL) ; get its voice number
// 0ad4: 1d MOV E,A ; into DE
// 0ad5: 0b MOV A,C ; restore C into A
// 0ad6: ce JR $0AE5
// 0ad7: 33 DCX HL ; count down
// 0ad8: af 01 LDAX (HL+$01) ; fetch next one up
// 0ada: 1b MOV C,A ; save
// 0adb: 2b LDAX (HL) ; fetch this
// 0adc: bf 01 STAX (HL+$01) ; save
// 0ade: 0b MOV A,C ; restore
// 0adf: 3b STAX (HL) ; save
// 0ae0: 52 DCR B ; count down
// 0ae1: f5 JR $0AD7 ; loop
// 0ae2: 2a LDAX (DE) ; voice
// 0ae3: 07 7f ANI A,$7F ; mask top bit
// 0ae5: 3a STAX (DE) ; save back
// 0ae6: 74 c0 be ADDW $00BE ; transpose
// 0ae9: 1b MOV C,A
// 0aea: 69 fd MVI A,$FD ; select module board
// 0aec: 79 e8 CALF $09E8 ; send byte to TX
// 0aee: 0d MOV A,E ; voice number
// 0aef: 79 e8 CALF $09E8 ; send byte to TX
// 0af1: 0b MOV A,C ; note number
// 0af2: 79 e8 CALF $09E8 ; send byte to TX
// 0af4: a2 POP DE
// 0af5: a1 POP BC
// 0af6: a3 POP HL
// 0af7: b8 RET
//
// ;
// 0af8: b3 PUSH HL
// 0af9: b1 PUSH BC
// 0afa: b2 PUSH DE
// 0afb: 1b MOV C,A
// 0afc: 6a 05 MVI B,$05
// 0afe: 6c ff MVI D,$FF
// 0b00: 34 80 ff LXI HL,$FF80
// 0b03: 2b LDAX (HL)
// 0b04: 1d MOV E,A
// 0b05: 2a LDAX (DE)
// 0b06: 07 7f ANI A,$7F
// 0b08: 60 eb NEA A,C
// 0b0a: d0 JR $0B1B
// 0b0b: 32 INX HL
// 0b0c: 52 DCR B
// 0b0d: f5 JR $0B03
// 0b0e: a2 POP DE
// 0b0f: a1 POP BC
// 0b10: a3 POP HL
// 0b11: b8 RET
//
// ;
// 0b12: 2b LDAX (HL)
// 0b13: 1b MOV C,A
// 0b14: af 01 LDAX (HL+$01)
// 0b16: 3b STAX (HL)
// 0b17: 0b MOV A,C
// 0b18: bf 01 STAX (HL+$01)
// 0b1a: 32 INX HL
// 0b1b: 52 DCR B
// 0b1c: f5 JR $0B12
// 0b1d: 2a LDAX (DE)
// 0b1e: 17 80 ORI A,$80
// 0b20: 3a STAX (DE)
// 0b21: 0d MOV A,E
// 0b22: 66 08 SUI A,$08
// 0b24: 1b MOV C,A
// 0b25: 69 fd MVI A,$FD
// 0b27: 79 e8 CALF $09E8 ; send byte to TX
// 0b29: 0b MOV A,C
// 0b2a: 79 e8 CALF $09E8 ; send byte to TX
// 0b2c: a2 POP DE
// 0b2d: a1 POP BC
// 0b2e: a3 POP HL
// 0b2f: b8 RET
//
// ; find voice to switch off
// 0b30: b3 PUSH HL
// 0b31: b1 PUSH BC
// 0b32: 1b MOV C,A ; save HL, BC, A
// 0b33: 6a 05 MVI B,$05 ; six voices
// 0b35: 34 88 ff LXI HL,$FF88 ; other voice table
// 0b38: 2b LDAX (HL) ; fetch
// 0b39: 47 80 ONI A,$80 ; top bit set
// 0b3b: c6 JR $0B42 ; no
// 0b3c: 32 INX HL ; yes, next voice
// 0b3d: 52 DCR B ; one less voice to consider
// 0b3e: f9 JR $0B38 ; loop back around
// 0b3f: a1 POP BC ; restore BC and HL
// 0b40: a3 POP HL ; but not A?
// 0b41: b8 RET ; return to 0a60
// 0b42: 60 eb NEA A,C ; skip if a != c
// 0b44: c1 JR $0B46 ; a=c
// 0b45: f6 JR $0B3C ; a!=c
// 0b46: 17 80 ORI A,$80 ; a!=c, set A's upper bit
// 0b48: 3b STAX (HL) ; store
// 0b49: 69 fd MVI A,$FD ; select module board
// 0b4b: 79 e8 CALF $09E8 ;
// 0b4d: 0f MOV A,L ; L is 88 to 8d
// 0b4e: 66 08 SUI A,$08 ; L is now 80 to 85, voice off message
// 0b50: 79 e8 CALF $09E8 ; send byte to TX
// 0b52: a1 POP BC
// 0b53: a3 POP HL
// 0b54: b8 RET
//
// ; called with note value in A
// voiceOnUnison:
// 0b55: b3 PUSH HL
// 0b56: b1 PUSH BC
// 0b57: 74 c0 be ADDW $00BE ; transpose
// 0b5a: 1b MOV C,A ; save
// 0b5b: 6a 05 MVI B,$05 ; six voices
// 0b5d: 34 88 ff LXI HL,$FF88 ; voice table
// 0b60: 69 fd MVI A,$FD ; send to module board
// 0b62: 79 e8 CALF $09E8
// 0b64: 0f MOV A,L ; voice number
// 0b65: 79 e8 CALF $09E8 ; to module board
// 0b67: 0b MOV A,C ; note
// 0b68: 79 e8 CALF $09E8 ; to module board
// 0b6a: 32 INX HL ; next note
// 0b6b: 52 DCR B ; count down
// 0b6c: f7 JR $0B64 ; loop
// 0b6d: a1 POP BC ; return
// 0b6e: a3 POP HL
// 0b6f: b8 RET
//
// ; stop all notes?
// ; sends $FD $80 $81 $82 $83 $84 $85
// 0b70: b1 PUSH BC
// 0b71: 6b 80 MVI C,$80
// 0b73: 6a 05 MVI B,$05
// 0b75: 69 fd MVI A,$FD ; select module board
// 0b77: 79 e8 CALF $09E8 ; send byte to TX
// 0b79: 0b MOV A,C ; send each voice off message
// 0b7a: 79 e8 CALF $09E8 ; send byte to TX
// 0b7c: 43 INR C
// 0b7d: 52 DCR B
// 0b7e: fa JR $0B79
// 0b7f: a1 POP BC
// 0b80: b8 RET
//
void Assigner::resetVoices() {
// ; subroutine called at start
// 0b81: 34 88 ff LXI HL,$FF88 ; fill six bytes of ram with $80
hl = 0x88;
// 0b84: 6a 05 MVI B,$05
b = 5; // five voices
// 0b86: 69 80 MVI A,$80
a = 0x80;
// 0b88: 3d STAX (HL+)
h0b88:
ram[hl++] = a;
// 0b89: 52 DCR B
// 0b8a: fd JR $0B88
if (b > 0) {
b--;
goto h0b88;
}
// 0b8b: 34 80 ff LXI HL,$FF80 ; fill six bytes of RAM with $88-$8d
hl = 0x80;
// 0b8e: 6a 05 MVI B,$05
b = 0x05;
// 0b90: 69 88 MVI A,$88
a = 0x88;
// 0b92: 3d STAX (HL+)
h0b92:
ram[hl++] = a;
// 0b93: 41 INR A
a++;
// 0b94: 52 DCR B
// 0b95: fc JR $0B92
if (b > 0) {
b--;
goto h0b92;
}
// 0b96: 71 86 88 MVIW $0086,$88 ; set voice number to $88 (first voice)
ram[0x86] = 0x88;
// 0b99: b8 RET
//
}
// ; zero out 14 bytes at ff40
// ; something to do with storing note flags
// 0b9a: 34 40 ff LXI HL,$FF40
// 0b9d: c3 JR $0BA1
//
// ;
// 0b9e: 34 30 ff LXI HL,$FF30 ; zero out 14 bytes at ff30
// 0ba1: 6a 0d MVI B,$0D
// 0ba3: 69 00 MVI A,$00
// 0ba5: 3d STAX (HL+)
// 0ba6: 52 DCR B
// 0ba7: fd JR $0BA5
// 0ba8: b8 RET
//
// ;
// 0ba9: 69 fd MVI A,$FD ; select module board
// 0bab: 79 e8 CALF $09E8 ; send byte to TX
// 0bad: 0b MOV A,C
// 0bae: 47 08 ONI A,$08
// 0bb0: 69 86 MVI A,$86 ;
// 0bb2: 69 87 MVI A,$87 ; ignored if previous instruction ran
// 0bb4: 79 e8 CALF $09E8 ; send byte to TX
// 0bb6: 69 f9 MVI A,$F9 ; MIDI
// 0bb8: 79 e8 CALF $09E8 ; send byte to TX
// 0bba: 69 b0 MVI A,$B0 ; MIDI CC
// 0bbc: 79 d5 CALF $09D5 ; send and set running status
// 0bbe: 69 40 MVI A,$40 ; sustain
// 0bc0: 79 e8 CALF $09E8 ; send byte to TX
// 0bc2: 0b MOV A,C
// 0bc3: 47 08 ONI A,$08 ; if the bit is set
// 0bc5: 69 7f MVI A,$7F ; skip
// 0bc7: 69 00 MVI A,$00 ; ignored if previous instruction was run
// 0bc9: 79 e8 CALF $09E8 ; send byte to TX
// 0bcb: b8 RET
//
// ;
// 0bcc: 01 b2 LDAW $00B2
// 0bce: 07 07 ANI A,$07
// 0bd0: 1a MOV B,A
// 0bd1: 01 8e LDAW $008E
// 0bd3: 07 f8 ANI A,$F8
// 0bd5: 60 9a ORA A,B
// 0bd7: 63 8e STAW $008E
// 0bd9: b8 RET
//
// ;
// 0bda: 01 b2 LDAW $00B2
// 0bdc: 74 90 8e XRAW $008E
// 0bdf: 07 18 ANI A,$18
// 0be1: 1a MOV B,A
// 0be2: 01 8e LDAW $008E
// 0be4: 07 e7 ANI A,$E7
// 0be6: 60 9a ORA A,B
// 0be8: 63 8e STAW $008E
// 0bea: b8 RET
//
// ;
// 0beb: 01 b2 LDAW $00B2
// 0bed: 07 e0 ANI A,$E0
// 0bef: 1a MOV B,A
// 0bf0: 01 8e LDAW $008E
// 0bf2: 07 1f ANI A,$1F
// 0bf4: 60 9a ORA A,B
// 0bf6: 63 8e STAW $008E
// 0bf8: b8 RET
//
// ; sends switches 1 to the voice board
// 0bf9: 63 c7 STAW $00C7
// 0bfb: 16 ff XRI A,$FF
// 0bfd: 07 7f ANI A,$7F ; invert and mask off bit 7
// 0bff: 1b MOV C,A ; save
// 0c00: 69 fd MVI A,$FD
// 0c02: 79 e8 CALF $09E8 ; module board
// 0c04: 69 8e MVI A,$8E ; switches 1
// 0c06: 79 e8 CALF $09E8 ; send byte to TX
// 0c08: 0b MOV A,C
// 0c09: 79 e8 CALF $09E8 ; send byte to TX
// 0c0b: b8 RET
//
// ;
// 0c0c: 7d 5b CALF $0D5B ; set both DP on
// 0c0e: 55 ad 18 OFFIW $00AD,$18
// 0c11: 15 ad 18 ORIW $00AD,$18
// 0c14: 01 b7 LDAW $00B7
// 0c16: 74 98 ad ORAW $00AD
// 0c19: 63 b7 STAW $00B7
// 0c1b: 16 ff XRI A,$FF
// 0c1d: 74 88 8f ANAW $008F
// 0c20: 1a MOV B,A
// 0c21: 01 a7 LDAW $00A7
// 0c23: 74 88 b7 ANAW $00B7
// 0c26: 60 9a ORA A,B
// 0c28: b8 RET
//
// ; send switches 2
// 0c29: 63 8f STAW $008F
// 0c2b: 16 ff XRI A,$FF
// 0c2d: 07 1f ANI A,$1F
// 0c2f: 1b MOV C,A
// 0c30: 69 fd MVI A,$FD ; module board
// 0c32: 79 e8 CALF $09E8 ; send byte to TX
// 0c34: 69 8f MVI A,$8F ; switches 2
// 0c36: 79 e8 CALF $09E8 ; send byte to TX
// 0c38: 0b MOV A,C
// 0c39: 79 e8 CALF $09E8 ; send byte to TX
// 0c3b: b8 RET
//
// ;
// 0c3c: 59 b6 BIT 1,$00B6
// 0c3e: c7 JR $0C46
//
// ;
// 0c3f: 01 8e LDAW $008E
// 0c41: 63 b8 STAW $00B8
// 0c43: 05 b6 fd ANIW $00B6,$FD
// 0c46: b8 RET
//
// ; manual mode?
// 0c47: 71 b7 00 MVIW $00B7,$00
// 0c4a: 71 c5 04 MVIW $00C5,$04 ; middle bar of left digit
// 0c4d: 71 c6 04 MVIW $00C6,$04 ; middle bar of right digit
// 0c50: 01 c7 LDAW $00C7
// 0c52: 59 b6 BIT 1,$00B6
//
// ;
// 0c54: 01 b8 LDAW $00B8
// 0c56: 63 8e STAW $008E
// 0c58: 7b f9 CALF $0BF9 ; send switches 1 to module board
// 0c5a: 01 a7 LDAW $00A7
// 0c5c: 63 8f STAW $008F
// 0c5e: 7c 29 CALF $0C29 ; send switches 2 to module board
// 0c60: 6a 00 MVI B,$00
// 0c62: 24 58 ff LXI DE,$FF58
// 0c65: 34 6c ff LXI HL,$FF6C
// 0c68: 78 c3 CALF $08C3
// 0c6a: b3 PUSH HL
// 0c6b: b2 PUSH DE
// 0c6c: 6c ff MVI D,$FF
// 0c6e: 34 30 00 LXI HL,$0030
// 0c71: ad LDAX (HL+B)
// 0c72: 1d MOV E,A
// 0c73: 0b MOV A,C
// 0c74: 3a STAX (DE)
// 0c75: a2 POP DE
// 0c76: a3 POP HL
// 0c77: 2a LDAX (DE)
// 0c78: 3b STAX (HL)
// 0c79: 22 INX DE
// 0c7a: 32 INX HL
// 0c7b: 42 INR B
// 0c7c: 74 7a 10 EQI B,$10
// 0c7f: e8 JR $0C68
// 0c80: 34 90 ff LXI HL,$FF90
// 0c83: 6a 0f MVI B,$0F
// 0c85: 2d LDAX (HL+)
// 0c86: 79 e8 CALF $09E8 ; send byte to TX
// 0c88: 52 DCR B
// 0c89: fb JR $0C85
// 0c8a: 45 a8 30 ONIW $00A8,$30 ; MIDI mode 3?
// 0c8d: 78 e9 CALF $08E9
// 0c8f: 15 b6 02 ORIW $00B6,$02
// 0c92: b8 RET
// 0c93: 71 b7 00 MVIW $00B7,$00
// 0c96: 05 c5 ef ANIW $00C5,$EF ; left digit mask dp off
// 0c99: 05 c6 ef ANIW $00C6,$EF ; right digit mask dp off
// 0c9c: b8 RET
// 0c9d: 6a 01 MVI B,$01
// 0c9f: 48 01 SLRC A
// 0ca1: c2 JR $0CA4
// 0ca2: 0a MOV A,B
// 0ca3: b8 RET
// 0ca4: 42 INR B
// 0ca5: f9 JR $0C9F
// 0ca6: b8 RET
//
// ; calculate address of patch data to send
// ; check first if we send test mode data
// 0ca7: 58 b6 BIT 0,$00B6 ; set to true if test mode
// 0ca9: c8 JR $0CB2 ; calculate address of program
// 0caa: 6e 0f MVI H,$0F ; upper byte of address
// 0cac: 07 f0 ANI A,$F0 ; mask off uppp nybble of address
// 0cae: 46 70 ADI A,$70 ; $F70 -> ?
// 0cb0: 1f MOV L,A ; A contains bank maybe?
// 0cb1: dd JR $0CCF ; return
//
// ; calculate address of program
// 0cb2: 01 bb LDAW $00BB ; current program
// 0cb4: 51 DCR A ; 0-based, so 0-7?
// 0cb5: 1b MOV C,A ; save in C
// 0cb6: 01 ba LDAW $00BA ; program? bank?
// 0cb8: 66 10 SUI A,$10 ; left digit? would now be 00-70
// 0cba: 48 21 SLR A ;
// 0cbc: 60 9b ORA A,C ; 11-88 to $00-$3f
// 0cbe: 5e c8 BIT 6,$00C8 ; bank flag
// 0cc0: 17 40 ORI A,$40 ; or $40-$7f
// 0cc2: 44 00 02 LXI EA,$0200 ; address in RAM
// 0cc5: 19 MOV EAL,A ; program number into low byte
// 0cc6: 48 a4 DSLL EA ;
// 0cc8: 48 a4 DSLL EA
// 0cca: 48 a4 DSLL EA
// 0ccc: 48 a4 DSLL EA ; RAM is at $2000, 16 bytes per program
// 0cce: b7 DMOV HL,EA ; return address of patch in HL
// 0ccf: b8 RET
//
// ; send patch to voice board
// 0cd0: 69 fd MVI A,$FD ; voice
// 0cd2: 79 e8 CALF $09E8 ; send byte to TX
// 0cd4: 69 90 MVI A,$90 ; LFO rate, first half of sliders
// 0cd6: 79 e8 CALF $09E8 ; send byte to TX
// 0cd8: 0b MOV A,C
// 0cd9: 7c a7 CALF $0CA7 ; find address of patch
// 0cdb: 24 90 ff LXI DE,$FF90 ;
// 0cde: 7c f1 CALF $0CF1 ; send eight bytes and assemble switch register
// 0ce0: 0b MOV A,C ; switch register to A
// 0ce1: 63 8e STAW $008E ; save
// 0ce3: 7b f9 CALF $0BF9 ; send switches 1 to voice board
// 0ce5: 69 98 MVI A,$98 ; VCF LFO, second half of sliders
// 0ce7: 79 e8 CALF $09E8 ; send byte to TX
// 0ce9: 7c f1 CALF $0CF1 ; send next eight bytes
// 0ceb: 0b MOV A,C ; switch register to A
// 0cec: 63 8f STAW $008F ; save it
// 0cee: 7c 29 CALF $0C29 ; send switches 2 to voice board
// 0cf0: b8 RET
//
// ; send 8 bytes pointed to by HL
// 0cf1: 6a 07 MVI B,$07 ; eight bytes
// 0cf3: 6b 00 MVI C,$00 ;
// 0cf5: 2d LDAX (HL+) ; byte from address in patch data
// 0cf6: 48 2a CLC ; clear carry
// 0cf8: 57 80 OFFI A,$80 ; top bit set?
// 0cfa: 48 2b STC ; no, set carry
// 0cfc: 48 33 RLR C ; rotate C right, carry into top bit
// 0cfe: 07 7f ANI A,$7F ; mask top bit off
// 0d00: 3c STAX (DE+) ; store in buffer at DE, inc
// 0d01: 79 e8 CALF $09E8 ; send byte to TX
// 0d03: 52 DCR B ; count down
// 0d04: f0 JR $0CF5 ; back around
// 0d05: b8 RET
//
// ;
// 0d06: 0b MOV A,C
// 0d07: 63 b9 STAW $00B9
// 0d09: 7c a7 CALF $0CA7
// 0d0b: 24 90 ff LXI DE,$FF90
// 0d0e: 01 8e LDAW $008E
// 0d10: 1b MOV C,A
// 0d11: 7d 25 CALF $0D25
// 0d13: 01 8f LDAW $008F
// 0d15: 1b MOV C,A
// 0d16: 7d 25 CALF $0D25
// 0d18: 15 b6 04 ORIW $00B6,$04
// 0d1b: 7c 3c CALF $0C3C
// 0d1d: 01 b9 LDAW $00B9
// 0d1f: 1b MOV C,A
// 0d20: 7c d0 CALF $0CD0
// 0d22: 7c 93 CALF $0C93
// 0d24: b8 RET
//
// ; copies from DE to HL, rotating bits right
// 0d25: 6a 07 MVI B,$07
// 0d27: 2c LDAX (DE+)
// 0d28: 07 7f ANI A,$7F
// 0d2a: 48 03 SLRC C
// 0d2c: c2 JR $0D2F
// 0d2d: 17 80 ORI A,$80
// 0d2f: 3d STAX (HL+)
// 0d30: 52 DCR B
// 0d31: f5 JR $0D27
// 0d32: b8 RET
//
// ; save digit values
// 0d33: 01 c5 LDAW $00C5 ; left digit value
// 0d35: 63 c9 STAW $00C9 ; save in ffc9
// 0d37: 01 c6 LDAW $00C6 ; right digit value
// 0d39: 63 ca STAW $00CA ; save in ffca
// 0d3b: b8 RET
//
// ; restore digit values
// 0d3c: 01 c9 LDAW $00C9 ;
// 0d3e: 63 c5 STAW $00C5
// 0d40: 01 ca LDAW $00CA
// 0d42: 63 c6 STAW $00C6
// 0d44: b8 RET
//
// ; digit lookup
// ; lookup table is 0 = _1234567890cEPR<blank>
// 0d45: 34 50 00 LXI HL,$0050 ; lookup table - 7 segment
// 0d48: 1b MOV C,A
// 0d49: 48 21 SLR A
// 0d4b: 48 21 SLR A
// 0d4d: 48 21 SLR A
// 0d4f: 48 21 SLR A
// 0d51: ac LDAX (HL+A) ; bit pattern for left digit
// 0d52: 63 c5 STAW $00C5 ; store
// 0d54: 0b MOV A,C ; restore
// 0d55: 07 0f ANI A,$0F ; right digit
// 0d57: ac LDAX (HL+A) ; lookup
// 0d58: 63 c6 STAW $00C6 ; store
// 0d5a: b8 RET
//
// ; set both DPs on
// 0d5b: 15 c5 10 ORIW $00C5,$10
// 0d5e: 15 c6 10 ORIW $00C6,$10
// 0d61: b8 RET
//
// ;
// 0d62: 07 38 ANI A,$38
// 0d64: 5f c8 BIT 7,$00C8
// 0d66: 17 04 ORI A,$04
// 0d68: 63 d1 STAW $00D1
// 0d6a: 64 05 ff MVI PF,$FF
// 0d6d: 4d c1 MOV PB,A
// 0d6f: 24 ff 1f LXI DE,$1FFF
// 0d72: 4a df MVIX DE,$DF ; IC9 "Manual" col
// 0d74: 7b 70 CALF $0B70 ; stop all notes?
// 0d76: 69 87 MVI A,$87
// 0d78: 79 e8 CALF $09E8 ; send byte to TX
// 0d7a: 6a ff MVI B,$FF
// 0d7c: 48 2d MUL A
// 0d7e: 52 DCR B
// 0d7f: fc JR $0D7C
// 0d80: ba DI
// 0d81: 64 01 00 MVI PB,$00
// 0d84: 64 05 c0 MVI PF,$C0
// 0d87: 05 d1 3c ANIW $00D1,$3C
// 0d8a: 55 d1 20 OFFIW $00D1,$20
// 0d8d: 4e 69 JRE $0DF8
// 0d8f: 55 d1 10 OFFIW $00D1,$10
// 0d92: 4e 6d JRE $0E01
// 0d94: 45 d1 08 ONIW $00D1,$08
// 0d97: 4e f7 JRE $0E90
// 0d99: 64 85 bf MVI TMM,$BF ; disable and reset timer 0, reset timer 1 and set to /384
// 0d9c: 48 42 SKIT FT1
// 0d9e: 00 NOP
// 0d9f: 64 01 08 MVI PB,$08
// 0da2: 44 00 24 LXI EA,$2400
// 0da5: 5a d1 BIT 2,$00D1
// 0da7: 44 00 28 LXI EA,$2800
// 0daa: 34 00 20 LXI HL,$2000
// 0dad: 5a d1 BIT 2,$00D1
// 0daf: 34 00 24 LXI HL,$2400
// 0db2: 24 c0 00 LXI DE,$00C0
// 0db5: 15 d1 01 ORIW $00D1,$01
// 0db8: 69 01 MVI A,$01
// 0dba: 4d db MOV TM1,A ; set timer
// 0dbc: 64 8d 7f ANI TMM,$7F ; timer 1 count-up mode
// 0dbf: 7e b4 CALF $0EB4
// 0dc1: 69 4a MVI A,$4A
// 0dc3: 1a MOV B,A
// 0dc4: 60 44 ADD D,A
// 0dc6: 7f 07 CALF $0F07
// 0dc8: 7e f0 CALF $0EF0
// 0dca: 69 55 MVI A,$55
// 0dcc: 1a MOV B,A
// 0dcd: 60 44 ADD D,A
// 0dcf: 7f 07 CALF $0F07
// 0dd1: 7e f0 CALF $0EF0
// 0dd3: 7f 01 CALF $0F01
// 0dd5: 2d LDAX (HL+)
// 0dd6: 1a MOV B,A
// 0dd7: 60 44 ADD D,A
// 0dd9: 7f 07 CALF $0F07
// 0ddb: 7e f0 CALF $0EF0
// 0ddd: 74 ff DEQ EA,HL
// 0ddf: f3 JR $0DD3
// 0de0: 0c MOV A,D
// 0de1: 1a MOV B,A
// 0de2: 7f 07 CALF $0F07
// 0de4: 6a aa MVI B,$AA
// 0de6: 7f 07 CALF $0F07
// 0de8: 6a aa MVI B,$AA
// 0dea: 7f 07 CALF $0F07
// 0dec: 5e d1 BIT 6,$00D1
// 0dee: c4 JR $0DF3
// 0def: 7e b4 CALF $0EB4
// 0df1: 4e 9d JRE $0E90
// 0df3: 15 d1 40 ORIW $00D1,$40
// 0df6: 4f a1 JRE $0D99
// 0df8: 64 4a 10 ONI PC,$10
// 0dfb: 4e 9f JRE $0E9C
// 0dfd: 64 01 20 MVI PB,$20
// 0e00: c3 JR $0E04
// 0e01: 64 01 10 MVI PB,$10
// 0e04: 5a d1 BIT 2,$00D1
// 0e06: ca JR $0E11
// 0e07: 64 11 40 XRI PB,$40
// 0e0a: 34 00 20 LXI HL,$2000
// 0e0d: 44 00 24 LXI EA,$2400
// 0e10: c9 JR $0E1A
// 0e11: 64 11 80 XRI PB,$80
// 0e14: 34 00 24 LXI HL,$2400
// 0e17: 44 00 28 LXI EA,$2800
// 0e1a: 64 85 b7 MVI TMM,$B7 ; reset timer 0 and set to internal /384, reset timer 1 and set to internal /384
// 0e1d: 69 0d MVI A,$0D
// 0e1f: 4d da MOV TM0,A ; set timer 0
// 0e21: 69 1e MVI A,$1E
// 0e23: 4d db MOV TM1,A ; set timer 1
// 0e25: 15 d1 01 ORIW $00D1,$01
// 0e28: 64 4a 20 ONI PC,$20
// 0e2b: 05 d1 fe ANIW $00D1,$FE
// 0e2e: 48 41 SKIT FT0
// 0e30: 00 NOP
// 0e31: 48 42 SKIT FT1
// 0e33: 00 NOP
// 0e34: 6b ff MVI C,$FF
// 0e36: 64 8d 6f ANI TMM,$6F
// 0e39: 7f 38 CALF $0F38
// 0e3b: 48 0a SK CY
// 0e3d: f6 JR $0E34
// 0e3e: 7e f0 CALF $0EF0
// 0e40: 53 DCR C
// 0e41: f7 JR $0E39
// 0e42: 15 d1 02 ORIW $00D1,$02
// 0e45: 14 00 80 LXI BC,$8000
// 0e48: 7f 38 CALF $0F38
// 0e4a: 48 1a SKN CY
// 0e4c: 4e 30 JRE $0E7E
// 0e4e: 6b 00 MVI C,$00
// 0e50: 7f 27 CALF $0F27
// 0e52: 77 4a EQI A,$4A
// 0e54: d3 JR $0E68
// 0e55: 60 43 ADD C,A
// 0e57: 7f 18 CALF $0F18
// 0e59: 77 55 EQI A,$55
// 0e5b: cc JR $0E68
// 0e5c: 60 43 ADD C,A
// 0e5e: 7f 18 CALF $0F18
// 0e60: 60 43 ADD C,A
// 0e62: 45 d1 10 ONIW $00D1,$10
// 0e65: c5 JR $0E6B
// 0e66: 70 fd EQAX (HL+)
// 0e68: 4e 22 JRE $0E8C
// 0e6a: c5 JR $0E70
// 0e6b: 64 4a 10 ONI PC,$10
// 0e6e: dd JR $0E8C
// 0e6f: 3d STAX (HL+)
// 0e70: 74 ff DEQ EA,HL
// 0e72: eb JR $0E5E
// 0e73: 7f 18 CALF $0F18
// 0e75: 60 fb EQA A,C
// 0e77: d4 JR $0E8C
// 0e78: 7f 18 CALF $0F18
// 0e7a: 77 aa EQI A,$AA
// 0e7c: cf JR $0E8C
// 0e7d: d2 JR $0E90
// 0e7e: 5c d1 BIT 4,$00D1
// 0e80: 7e fb CALF $0EFB
// 0e82: 7e f0 CALF $0EF0
// 0e84: 13 DCX BC
// 0e85: 0b MOV A,C
// 0e86: 60 9a ORA A,B
// 0e88: 77 00 EQI A,$00
// 0e8a: 4f bc JRE $0E48
// 0e8c: 15 d1 80 ORIW $00D1,$80
// 0e8f: c3 JR $0E93
// 0e90: 05 d1 7f ANIW $00D1,$7F
// 0e93: 64 01 00 MVI PB,$00
// 0e96: 64 85 bf MVI TMM,$BF
// 0e99: 5f d1 BIT 7,$00D1
// 0e9b: d1 JR $0EAD
// 0e9c: 69 ce MVI A,$CE
// 0e9e: 5f d1 BIT 7,$00D1
// 0ea0: 69 de MVI A,$DE
// 0ea2: 7d 45 CALF $0D45 ; digit lookup
// 0ea4: 04 ff ff LXI SP,$FFFF
// 0ea7: 64 80 08 MVI ANM,$08
// 0eaa: 54 79 00 JMP $0079 ; appears to be real code!
// 0ead: 71 c5 04 MVIW $00C5,$04 ; left digit middle bar
// 0eb0: 71 c6 04 MVIW $00C6,$04 ; right digit middle bar
// 0eb3: f0 JR $0EA4
// 0eb4: 6a 18 MVI B,$18
// 0eb6: 6b ff MVI C,$FF
// 0eb8: 7e d5 CALF $0ED5
// 0eba: 7e f0 CALF $0EF0
// 0ebc: 53 DCR C
// 0ebd: fa JR $0EB8
// 0ebe: 7f 01 CALF $0F01
// 0ec0: 52 DCR B
// 0ec1: f4 JR $0EB6
// 0ec2: b8 RET
// 0ec3: 0d MOV A,E
// 0ec4: 58 d1 BIT 0,$00D1
// 0ec6: c8 JR $0ECF
// 0ec7: 16 c0 XRI A,$C0
// 0ec9: 1d MOV E,A
// 0eca: 69 05 MVI A,$05
// 0ecc: 7e e7 CALF $0EE7
// 0ece: b8 RET
// 0ecf: 15 d1 01 ORIW $00D1,$01
// 0ed2: 16 80 XRI A,$80
// 0ed4: f4 JR $0EC9
// 0ed5: 0d MOV A,E
// 0ed6: 58 d1 BIT 0,$00D1
// 0ed8: cb JR $0EE4
// 0ed9: 05 d1 fe ANIW $00D1,$FE
// 0edc: 16 80 XRI A,$80 ; top bit of PC, tape output
// 0ede: 1d MOV E,A
// 0edf: 69 14 MVI A,$14
// 0ee1: 7e e7 CALF $0EE7
// 0ee3: b8 RET
//
// ; top two bits of PC, tape output
// 0ee4: 16 c0 XRI A,$C0
// 0ee6: f7 JR $0EDE
//
// ;
// 0ee7: 48 42 SKIT FT1 ; wait for timer 1 to match
// 0ee9: fd JR $0EE7
// 0eea: 4d db MOV TM1,A ; load with new value
// 0eec: 0d MOV A,E
// 0eed: 4d c2 MOV PC,A ; value in A to port C (only output lines are MIDI select and tape)
// 0eef: b8 RET
//
// ;
// 0ef0: 5a d1 BIT 2,$00D1
// 0ef2: c4 JR $0EF7
// 0ef3: 64 11 40 XRI PB,$40 ; group A / Chorus I / segment B
// 0ef6: b8 RET
// 0ef7: 64 11 80 XRI PB,$80 ; group B / Chorus II / segment A
// 0efa: b8 RET
// 0efb: 64 4a 10 ONI PC,$10
// 0efe: 4f 8c JRE $0E8C
// 0f00: b8 RET
// 0f01: 64 48 06 ONI PA,$06 ; poly I + poly II?
// 0f04: b8 RET
// 0f05: 4f 89 JRE $0E90
// 0f07: 6b 07 MVI C,$07
// 0f09: 7e c3 CALF $0EC3
// 0f0b: 48 02 SLRC B
// 0f0d: c3 JR $0F11
// 0f0e: 7e d5 CALF $0ED5
// 0f10: c2 JR $0F13
// 0f11: 7e c3 CALF $0EC3
// 0f13: 53 DCR C
// 0f14: f6 JR $0F0B
// 0f15: 7e d5 CALF $0ED5
// 0f17: b8 RET
// 0f18: 5a d1 BIT 2,$00D1
// 0f1a: c4 JR $0F1F
// 0f1b: 64 11 40 XRI PB,$40
// 0f1e: c3 JR $0F22
// 0f1f: 64 11 80 XRI PB,$80
// 0f22: 7f 38 CALF $0F38
// 0f24: 48 1a SKN CY
// 0f26: ce JR $0F35
// 0f27: 69 00 MVI A,$00
// 0f29: 6a 07 MVI B,$07
// 0f2b: 7f 38 CALF $0F38
// 0f2d: 48 31 RLR A
// 0f2f: 52 DCR B
// 0f30: fa JR $0F2B
// 0f31: 7f 38 CALF $0F38
// 0f33: 48 0a SK CY
// 0f35: 4f 55 JRE $0E8C
// 0f37: b8 RET
// 0f38: 7f 01 CALF $0F01
// 0f3a: 58 d1 BIT 0,$00D1
// 0f3c: cc JR $0F49
// 0f3d: 05 d1 fe ANIW $00D1,$FE
// 0f40: 64 4a 20 ONI PC,$20
// 0f43: d1 JR $0F55
// 0f44: 48 62 SKNIT FT1
// 0f46: 7f 64 CALF $0F64
// 0f48: f7 JR $0F40
// 0f49: 15 d1 01 ORIW $00D1,$01
// 0f4c: 64 5a 20 OFFI PC,$20
// 0f4f: c5 JR $0F55
// 0f50: 48 62 SKNIT FT1
// 0f52: 7f 64 CALF $0F64
// 0f54: f7 JR $0F4C
// 0f55: 48 41 SKIT FT0
// 0f57: c9 JR $0F61
// 0f58: 48 2b STC
// 0f5a: 64 95 90 XRI TMM,$90
// 0f5d: 64 95 90 XRI TMM,$90
// 0f60: b8 RET
// 0f61: 48 2a CLC
// 0f63: f6 JR $0F5A
// 0f64: 55 d1 02 OFFIW $00D1,$02
// 0f67: 4f 23 JRE $0E8C
// 0f69: 64 95 90 XRI TMM,$90
// 0f6c: 64 95 90 XRI TMM,$90
// 0f6f: 48 41 SKIT FT0
// 0f71: 00 NOP
// 0f72: 6b ff MVI C,$FF
// 0f74: 5c d1 BIT 4,$00D1
// 0f76: 7e fb CALF $0EFB
// 0f78: 7f 01 CALF $0F01
// 0f7a: 7e f0 CALF $0EF0
// 0f7c: b8 RET
// 0f7d: 00 NOP
// 0f7e: 00 NOP
// 0f7f: 00 NOP
//
// ; test mode patches
// ; 0f80 40 80 00 00 00 ff 00 00 00 7f 40 00 80 00 00 00
// ; 0f90 40 80 00 00 00 ff 00 00 00 7f 40 00 80 7f 00 7f
// ; 0fa0 40 80 00 00 00 b1 7f 00 00 7f 40 00 80 7f 00 00
//
// ; and so on
//
// 0f80: 40 80 00 CALL $0080
// 0f83: 00 NOP
// 0f84: 00 NOP
// 0f85: ff JR $0F85
// 0f86: 00 NOP
// 0f87: 00 NOP
// 0f88: 00 NOP
// 0f89: 7f 40 CALF $0F40
// 0f8b: 00 NOP
// 0f8c: 80 CALT ($0080)
// 0f8d: 00 NOP
// 0f8e: 00 NOP
// 0f8f: 00 NOP
// 0f90: 40 80 00 CALL $0080
// 0f93: 00 NOP
// 0f94: 00 NOP
// 0f95: ff JR $0F95
// 0f96: 00 NOP
// 0f97: 00 NOP
// 0f98: 00 NOP
// 0f99: 7f 40 CALF $0F40
// 0f9b: 00 NOP
// 0f9c: 80 CALT ($0080)
// 0f9d: 7f 00 CALF $0F00
// 0f9f: 7f 40 CALF $0F40
// 0fa1: 80 CALT ($0080)
// 0fa2: 00 NOP
// 0fa3: 00 NOP
// 0fa4: 00 NOP
// 0fa5: b1 PUSH BC
// 0fa6: 7f 00 CALF $0F00
// 0fa8: 00 NOP
// 0fa9: 7f 40 CALF $0F40
// 0fab: 00 NOP
// 0fac: 80 CALT ($0080)
// 0fad: 7f 00 CALF $0F00
// 0faf: 00 NOP
// 0fb0: 40 80 00 CALL $0080
// 0fb3: 00 NOP
// 0fb4: 80 CALT ($0080)
// 0fb5: ff JR $0FB5
// 0fb6: 00 NOP
// 0fb7: 00 NOP
// 0fb8: 00 NOP
// 0fb9: 7f 40 CALF $0F40
// 0fbb: 00 NOP
// 0fbc: 80 CALT ($0080)
// 0fbd: 7f 00 CALF $0F00
// 0fbf: 00 NOP
// 0fc0: 40 80 00 CALL $0080
// 0fc3: 80 CALT ($0080)
// 0fc4: 00 NOP
// 0fc5: ff JR $0FC5
// 0fc6: 00 NOP
// 0fc7: 00 NOP
// 0fc8: 80 CALT ($0080)
// 0fc9: 7f 40 CALF $0F40
// 0fcb: 00 NOP
// 0fcc: 80 CALT ($0080)
// 0fcd: 7f 00 CALF $0F00
// 0fcf: 00 NOP
// 0fd0: 40 80 00 CALL $0080
// 0fd3: 00 NOP
// 0fd4: 7f ff CALF $0FFF
// 0fd6: 00 NOP
// 0fd7: 00 NOP
// 0fd8: 00 NOP
// 0fd9: 7f 40 CALF $0F40
// 0fdb: 00 NOP
// 0fdc: 80 CALT ($0080)
// 0fdd: 7f 00 CALF $0F00
// 0fdf: 00 NOP
// 0fe0: 40 80 00 CALL $0080
// 0fe3: 00 NOP
// 0fe4: 00 NOP
// 0fe5: ff JR $0FE5
// 0fe6: 7f 00 CALF $0F00
// 0fe8: 00 NOP
// 0fe9: 7f 40 CALF $0F40
// 0feb: 00 NOP
// 0fec: 80 CALT ($0080)
// 0fed: 7f 00 CALF $0F00
// 0fef: 00 NOP
// 0ff0: 40 80 00 CALL $0080
// 0ff3: 80 CALT ($0080)
// 0ff4: 00 NOP
// 0ff5: ff JR $0FF5
// 0ff6: 00 NOP
// 0ff7: 00 NOP
// 0ff8: 00 NOP
// 0ff9: 7f 40 CALF $0F40
// 0ffb: 00 NOP
// 0ffc: 8a CALT ($0094)
// 0ffd: 00 NOP
// 0ffe: 0a MOV A,B
// 0fff: 00 NOP
Reference in New Issue View Git Blame Copy Permalink