; ; ; M/A-COM VideoCipher 2100 ; Consumer Video DeScrambler ; TITLE M/A-COM VideoCipher 2100 DeScrambler ; =0100 IOCNT0 EQU >0100 ;P0 - I/O Control Register 0 =0104 APORT EQU >0104 ;P4 - Port A Data =0105 ADDR EQU >0105 ;P5 - Port A Direction =0106 BPORT EQU >0106 ;P6 - Port B Data (Bits 0-2) =0110 IOCNT1 EQU >0110 ;P16 - I/O Control Register 1 =0111 SMODE EQU >0111 ;P17 - Serial Mode (First Write) =0111 SCTL0 EQU >0111 ;P17 - Serial Control 0 (Write) =0111 SSTAT EQU >0111 ;P17 - Serial Status (Read) =0114 T3DATA EQU >0114 ;P20 - Timer 3 Data =0115 SCTL1 EQU >0115 ;P21 - Serial Control 1 =0116 RXBUF EQU >0116 ;P22 - Receive Buffer =0118 L0118 EQU >0118 ;U24 =011C L011C EQU >011C ;U24 =0000 L0000 EQU >0000 ;Register File (128 Bytes) =2000 L2000 EQU >2000 ;U11 (LS374) Data to DED (U7) =4000 L4000 EQU >4000 ;U12 (LS244) DED/U5 Data bus =6000 L6000 EQU >6000 ;U20 (5516)2Kx8 CMOS Static RAM ; C000 ORG >C000 ; ROM CHECKSUM ; C000: C0 DB >C0 ;HIGH BYTE C001: 73 DB >73 ;LOW BYTE ; C002: 62 3B 60 DB >62 3B 60 ;V3.0 ; C005: 43 4F 50 59 52 49 47 48 54 ;'COPYRIGHT 1985, 1986 CABLE/HOME' : 20 31 39 38 35 2C 20 31 39 ;' COMMUNICATION, CORP.' : 38 36 41 20 43 42 4C 45 2F : 48 4F 4D 45 20 43 4F 4D 4D : 55 4E 49 43 41 54 49 4F 4E : 2C 20 43 4F 52 50 2E ---------------------------------------------------------------- ; ; TRAP 6 Write DED Data ; C039: 72 FF 03 MOV %FF,R03 ;Timeout (max tries) C03C: A7 10 04 06 BTJZP %10,APORT,C046 ;Port A data C040: DA 03 F9 DJNZ R03,C03C ;Wait for U7P31 to go low C043: 8C FC EE BR FCEE (TRAP 14) ;Timeout ; C046: 8B 20 00 STA 2000 ;Data to DED (U7) C049: A4 01 06 ORP %01,BPORT ;Set B0 - U7P7 DED high C04C: 72 FF 03 MOV %FF,R03 ;Timeout (max tries) C04F: A6 10 04 05 BTJOP %10,APORT,C058 ;Port A data C053: DA 03 F9 DJNZ R03,C04F ;Wait for U7P31 to go high C056: E0 EB JMP C043 ;Timeout ; C058: A3 FE 06 ANDP %FE,BPORT ;Set B0 - U7P7 DED low C05B: 0A RETS -------------------------------------------------------------- ; ; TRAP 11 Read DED (U7) data ; C05C: 72 FF 03 MOV %FF,R03 C05F: A7 10 04 05 BTJZP %10,APORT,C068 ;Port A data C063: DA 03 F9 DJNZ R03,C05F ;Wait for U7P31 to go low C066: E0 DB JMP C043 ;Timeout ; C068: A4 01 06 ORP %01,BPORT ;Set B0 - U7P7 DED high C06B: 72 FF 03 MOV %FF,R03 ;Timeout delay C06E: A6 10 04 05 BTJOP %10,APORT,C077 ;Port A data C072: DA 03 F9 DJNZ R03,C06E ;Wait for U7P31 to go high C075: E0 CC JMP C043 ;Timeout C077: 8A 40 00 LDA 4000 ;DED U5 data port C07A: A3 FE 06 ANDP %FE,BPORT ;Set B0 - U7P7 DED low C07D: 0A RETS -------------------------------------------------------------- ; ; TRAP 7 (Write data @R47 to DED) ; C07E: 9A 47 LDA *R47 C080: 8E C0 39 CALL C039 ;Write data to DED (TRAP 6) C083: D3 47 INC R47 ;Set for next byte C085: 79 00 46 ADC %00,R46 ;Adjust pointer, if needed C088: DA 10 F3 DJNZ R10,C07E ;If not finished, get next byte C08B: 0A RETS ;Else, EXIT -------------------------------------------------------------- ; ; TRAP 12 (Write A @B in display memory) ; C08C: A3 7F 04 ANDP %7F,APORT ;Select direct address mode C08F: B6 XCHB A ;Get address (B) C090: 8B 20 00 STA 2000 ;U6 data port C093: B6 XCHB A ;Get data (A) C094: 8E C0 9B CALL C09B ---->(TRAP 13) ;Write A to display memory C097: A4 80 04 ORP %80,APORT ;Select address increment mode C09A: 0A RETS ------------------------------------------------------------ ; ; TRAP 13 (Write A to display memory) ; C09B: A4 02 06 ORP %02,BPORT ;Set B1 - U6P12 (LDI) high C09E: 8B 20 00 STA 2000 ;U6 data port C0A1: A3 FD 06 ANDP %FD,BPORT ;Set B1 - U6P12 (LDI) low C0A4: 0A RETS ------------------------------------------------------------ C0A5: 23 0F AND %0F,A ;Get low nibble C0A7: 28 20 ADD %20,A ;Add >20 C0A9: 2D 2A CMP %2A,A C0AB: E7 02 JL C0AF C0AD: 2A 2A SUB %2A,A C0AF: 0A RETS -------------------------------------------------------------- ; ; TRAP 15 ; C0B0: C0 MOV A,B ;Save low nibble C0B1: B7 SWAP A ;Get high nibble C0B2: 8E C0 A5 CALL C0A5 ;A = 20-29, 00-05 C0B5: F2 TRAP 13 ;Write A to display memory C0B6: 62 MOV B,A ;Get low nibble C0B7: 8E C0 A5 CALL C0A5 ;A = 20-29, 00-05 C0BA: F2 TRAP 13 ;Write A to display memory C0BB: 0A RETS ------------------------------------------------------------ ; ; TRAP 16 ; C0BC: B8 PUSH A ;Save low nibble C0BD: B7 SWAP A ;Get high nibble C0BE: 8E C0 A5 CALL C0A5 ;A = 20-29, 00-05 C0C1: F3 TRAP 12 ;Write A @B in display memory C0C2: B9 POP A ;Get low nibble C0C3: E0 F2 JMP C0B7 ;Translate A and write ------------------------------------------------------------- C0C5: D5 10 CLR R10 C0C7: B8 PUSH A C0C8: B7 SWAP A C0C9: 8E C0 CD CALL C0CD C0CC: B9 POP A C0CD: 23 0F AND %0F,A ;Mask to 3 bits (B0,B1,B2) C0CF: E6 09 JNZ C0DA C0D1: 42 10 10 MOV R10,R10 C0D4: E6 07 JNZ C0DD C0D6: 22 2E MOV %2E,A C0D8: E0 05 JMP C0DF ; C0DA: 72 FF 10 MOV %FF,R10 ; C0DD: 28 20 ADD %20,A ; C0DF: F3 TRAP 12 ;Write A @B in display memory C0E0: C3 INC B C0E1: 0A RETS ------------------------------------------------------------ C0E2: D5 10 CLR R10 C0E4: B8 PUSH A C0E5: B7 SWAP A C0E6: 8E C0 CD CALL C0CD C0E9: B9 POP A C0EA: 23 0F AND %0F,A ;Make 00-0F C0EC: 28 20 ADD %20,A ;Make 20-2F C0EE: F2 TRAP 13 ;Write A to display memory C0EF: 0A RETS --------------------------------------------- C0F0: 72 0A 10 MOV %0A,R10 ;10 Characters C0F3: E0 0B JMP C100 ;Go write the characters ; C0F5: C5 CLR B ;Put on line 1 (Position 0) C0F6: 72 28 10 MOV %28,R10 ;40 characters C0F9: E0 05 JMP C100 ;Go write the characters ; C0FB: 52 A0 MOV %A0,B ;Put on line 9 (Position 160) C0FD: 72 05 10 MOV %05,R10 ;5 characters --------------------------------------------------- ; ; U6 write routine (MB88303) ; C100: D6 4E XCHB R4E ;Save B C102: 9A 47 LDA *R47 ;Get byte from table C104: C0 MOV A,B ;Put in B C105: D3 47 INC R47 ;Go to next entry C107: 79 00 46 ADC %00,R46 ;Adjust pointer, if needed C10A: 9A 47 LDA *R47 ;Get byte from table C10C: 23 F0 AND %F0,A ;Get high nibble C10E: CD RRC B C10F: BD RRC A C110: CD RRC B C111: BD RRC A C112: B6 XCHB A ;Restore B (Offset) C113: D6 4E XCHB R4E ; C115: F3 TRAP 12 ;Write A @B in display memory C116: 12 4E MOV R4E,A C118: E0 1B JMP C135 -------------------------------------------------- C11A: 9A 47 LDA *R47 ;Get next byte C11C: C0 MOV A,B ;Put in B C11D: D3 47 INC R47 ;Go to next entry C11F: 79 00 46 ADC %00,R46 ;Adjust pointer, if needed C122: 9A 47 LDA *R47 ;Get byte from table C124: 23 F0 AND %F0,A ;Get high nibble C126: CD RRC B C127: BD RRC A C128: CD RRC B C129: BD RRC A C12A: B6 XCHB A C12B: A4 02 06 ORP %02,BPORT ;Set B1 - U6P12 (LDI) high C12E: 8B 20 00 STA 2000 ;U6 data port C131: A3 FD 06 ANDP %FD,BPORT ;Set B1 - U6P12 low C134: 62 MOV B,A ;Get low nibble --------------------------------- C135: BC RR A ;Fix it C136: BC RR A ; ; ;Write character in A to display memory ; ; C137: A4 02 06 ORP %02,BPORT ;Set B1 - U6P12 (LDI) high C13A: 8B 20 00 STA 2000 ;U6 data port C13D: A3 FD 06 ANDP %FD,BPORT ;Set B1 - U6P12 low ; ; ; C140: 9A 47 LDA *R47 ;Get next byte C142: C0 MOV A,B ;Put in B C143: 53 0F AND %0F,B ;Get low nibble C145: D3 47 INC R47 ;Go to next entry C147: 79 00 46 ADC %00,R46 ;Adjust pointer, if needed C14A: 9A 47 LDA *R47 ;Get next byte C14C: BE RL A C14D: CF RLC B C14E: BE RL A C14F: CF RLC B C150: 62 MOV B,A C151: A4 02 06 ORP %02,BPORT ;Set B1 - U6P12 (LDI) high C154: 8B 20 00 STA 2000 ;U6 data port C157: A3 FD 06 ANDP %FD,BPORT ;Set B1 - U6P12 low C15A: 9A 47 LDA *R47 ;Get next byte C15C: 23 3F AND %3F,A ;Mask to 5 bits C15E: A4 02 06 ORP %02,BPORT ;Set B1 - U6P12 (LDI) high C161: 8B 20 00 STA 2000 ;U6 data port C164: A3 FD 06 ANDP %FD,BPORT ;Set B1 - U6P12 low C167: D3 47 INC R47 ;Go to next entry C169: 79 00 46 ADC %00,R46 ;Adjust pointer, if needed C16C: DA 10 AB DJNZ R10,C11A ;If not finished, go get another one, C16F: 0A RETS ;Else, EXIT ---------------------------------------------- C170: 72 9F 4D MOV %9F,R4D C173: E0 03 JMP C178 --------------------------------------------- ; ; TRAP 17 (Clear and Initialize U6) ; C175: 72 B3 4D MOV %B3,R4D ;Set for 180 locations C178: C5 CLR B ;Start at 0 C179: F3 TRAP 12 ;Write A @B in display memory C17A: F2 TRAP 13 ;Write A in display memory C17B: DA 4D FC DJNZ R4D,C17A ;Fill display memory with A C17E: 52 B4 MOV %B4,B ;Start with horiz Display pos register C180: 22 0A MOV %0A,A ;Horiz starting position C182: F3 TRAP 12 ;Write A to Horiz Display Pos register C183: 22 10 MOV %10,A ;Vertical starting position C185: F2 TRAP 13 ;Write A to Vert Display Pos register C186: 22 70 MOV %70,A ;Set display on (BLK) ;Enable background display ;Enable blinking C188: F2 TRAP 13 ;Write A to display control register C189: 0A RETS -------------------------------------------- C18A: 98 58 47 MOVD R58,R47 C18D: 78 05 47 ADD %05,R47 C190: 79 00 46 ADC %00,R46 ;Adjust pointer, if needed C193: 9A 47 LDA *R47 C195: 23 03 AND %03,A C197: B3 INC A C198: D0 4D MOV A,R4D C19A: 9A 47 LDA *R47 C19C: 23 70 AND %70,A C19E: C0 MOV A,B C19F: BC RR A C1A0: BC RR A C1A1: 38 00 ADD R00,B C1A3: D3 47 INC R47 C1A5: 79 00 46 ADC %00,R46 ;Adjust pointer, if needed C1A8: 5D 8C CMP %8C,B C1AA: E2 07 JZ C1B3 C1AC: 8E C0 F0 CALL C0F0 C1AF: DA 4D E8 DJNZ R4D,C19A C1B2: 0A RETS -------------------------------------------- C1B3: 8E C0 FD CALL C0FD C1B6: 0A RETS ------------------------------------------- C1B7: 72 08 4D MOV %08,R4D C1BA: E0 03 JMP C1BF ------------------------------------------ ; ; TRAP 18 Display 9 lines (Full screen) ; C1BC: 72 09 4D MOV %09,R4D ;9 lines C1BF: 72 00 4C MOV %00,R4C ;Line counter (start at 0) C1C2: 9A 58 LDA *R58 ; C1C4: D0 46 MOV A,R46 C1C6: D3 58 INC R58 C1C8: 79 00 57 ADC %00,R57 C1CB: 9A 58 LDA *R58 C1CD: D0 47 MOV A,R47 C1CF: D3 58 INC R58 C1D1: 79 00 57 ADC %00,R57 C1D4: 32 4C MOV R4C,B C1D6: 8E C0 FD CALL C0FD C1D9: 78 14 4C ADD %14,R4C C1DC: DA 4D E3 DJNZ R4D,C1C2 ;Finished ? C1DF: 0A RETS -------------------------------------------------------------- ; ; M A I N L O O P ; C1E0: 09 STSP C1E1: B6 XCHB A ;A = SP C1E2: 8D 67 F2 CMPA 67F2 ;Stack pointer C1E5: E7 03 JL C1EA ; C1E7: 8B 67 F2 STA 67F2 ;Stack Pointer C1EA: 32 08 MOV R08,B ;B = >00,>33,>66,>99 C1EC: 06 DINT C1ED: D3 56 INC R56 C1EF: 79 00 55 ADC %00,R55 C1F2: 05 EINT C1F3: AA 60 00 LDA @6000(B) ; C1F6: E2 F2 JZ C1EA C1F8: 8E C2 10 CALL C210 C1FB: 32 08 MOV R08,B C1FD: B5 CLR A C1FE: AB 60 00 STA @6000(B) ; C201: 8B 62 47 STA 6247 C204: 78 33 08 ADD %33,R08 C207: 7D CC 08 CMP %CC,R08 C20A: E6 02 JNZ C20E C20C: D5 08 CLR R08 C20E: E0 D0 JMP C1E0 ;Infinite loop ----------------------------------------------------------------------- C210: B3 INC A C211: E6 0D JNZ C220 ;Exit C213: AA 60 01 LDA @6001(B) C216: 2D C0 CMP %C0,A C218: E3 06 JC C220 ;Exit C21A: 23 3F AND %3F,A C21C: 2D 20 CMP %20,A ;If this is a command, C21E: E7 01 JL C221 ;find out which one, if not, C220: 0A RETS ;just return. -------------------------------------------- ; ;Find address of remote command routine ; C221: D0 09 MOV A,R09 C223: C0 MOV A,B C224: AA ED 21 LDA @ED21(B) ;Look-up table remote commands (MSB) C227: B8 PUSH A C228: AA ED 41 LDA @ED41(B) ;Look-up table remote commands (LSB) C22B: B8 PUSH A C22C: 0A RETS -------------------------------------------- ; Commands >00 + >01 C22D: 12 1B MOV R1B,A C22F: E6 1D JNZ C24E C231: AA C4 49 LDA @C449(B) C234: C0 MOV A,B C235: AA 61 19 LDA @6119(B) C238: D0 0A MOV A,R0A C23A: AA 61 1A LDA @611A(B) C23D: 32 08 MOV R08,B C23F: AD 60 03 CMPA @6003(B) C242: E6 0A JNZ C24E C244: 12 0A MOV R0A,A C246: AD 60 02 CMPA @6002(B) C249: E6 03 JNZ C24E C24B: 8E C4 0C CALL C40C C24E: 0A RETS ------------------------------------------------------ ;Commands >02 + >03 C24F: 32 08 MOV R08,B ;Pointer to ID# in buffer C251: 8A 62 58 LDA 6258 ;ID# (xxxx xxXX xxxx) C254: AD 60 02 CMPA @6002(B) ;Same ? C257: E6 F5 JNZ C24E ;No, exit C259: 8A 62 57 LDA 6257 ;ID# (xxxx XXxx xxxx) C25C: AD 60 03 CMPA @6003(B) ;Same ? C25F: E6 ED JNZ C24E ;No, exit C261: 8A 62 56 LDA 6256 ;ID# (xxXX xxxx xxxx) C264: AD 60 04 CMPA @6004(B) ;Same ? C267: E6 E5 JNZ C24E ;No, exit C269: 8A 62 55 LDA 6255 ;ID# (XXxx xxxx xxxx) C26C: AD 60 05 CMPA @6005(B) ;Same ? C26F: E6 DD JNZ C24E ;No, exit C271: AA 60 18 LDA @6018(B) ;Get Authorized service ID C274: D0 0A MOV A,R0A ;Save it C276: 8D 62 6A CMPA 626A ;Compare to this unit's ; Service ID (>626A) C279: E2 07 JZ C282 ;Yes, same, C27B: 8A 62 45 LDA 6245 C27E: 27 10 01 BTJZ R10,A,C282 C281: 0A RETS ------------------------------------------------ C282: 74 F0 05 OR %F0,R05 C285: 12 0A MOV R0A,A ;Get the Authorized service ID C287: 8B 62 6A STA 626A ;Save it C28A: AA 60 1B LDA @601B(B) ;Get the Authorization status ; byte C28D: 8B 62 45 STA 6245 ;Save it C290: 26 20 05 BTJO %20,A,C298 ;Test for PPV C293: 22 FF MOV %FF,A C295: 8B 62 8A STA 628A C298: AA 60 15 LDA @6015(B) ;Get PPV byte 1 C29B: 8D 61 FD CMPA 61FD ; C29E: E2 06 JZ C2A6 ;No credit here, check byte 2 C2A0: 8B 61 FD STA 61FD ;Save credit amount C2A3: 74 08 3B OR %08,R3B ; C2A6: AA 60 16 LDA @6016(B) ;Get PPV byte 2 C2A9: 8D 61 FE CMPA 61FE ;Compare to your unit's credit C2AC: E2 06 JZ C2B4 ;No credit, C2AE: 8B 61 FE STA 61FE ; C2B1: 74 08 3B OR %08,R3B ; C2B4: AA 60 1A LDA @601A(B) C2B7: 8B 62 44 STA 6244 C2BA: 8A 62 3D LDA 623D C2BD: 2E 01 DAC %01,A C2BF: 8B 62 3D STA 623D C2C2: E6 08 JNZ C2CC C2C4: 8A 62 3C LDA 623C C2C7: 2E 01 DAC %01,A C2C9: 8B 62 3C STA 623C C2CC: 4D 09 17 CMP R09,R17 C2CF: E6 03 JNZ C2D4 C2D1: 72 FF 17 MOV %FF,R17 C2D4: 8E C4 0C CALL C40C C2D7: 88 61 E2 5A MOVD %61E2,R5A C2DB: 8E D0 B8 CALL D0B8 C2DE: 0A RETS ------------------------------------------------------------- ;Commands >04 + >05 C2DF: 32 08 MOV R08,B C2E1: AA 60 02 LDA @6002(B) C2E4: 8D 62 69 CMPA 6269 C2E7: E6 22 JNZ C30B C2E9: AA 60 03 LDA @6003(B) C2EC: 8D 62 68 CMPA 6268 C2EF: E6 1A JNZ C30B C2F1: AA 60 1B LDA @601B(B) C2F4: 32 1B MOV R1B,B C2F6: E6 13 JNZ C30B C2F8: D0 0A MOV A,R0A C2FA: 8A 62 53 LDA 6253 C2FD: E2 09 JZ C308 C2FF: 1D 0A CMP R0A,A C301: E6 08 JNZ C30B C303: 8E C4 0C CALL C40C C306: E0 03 JMP C30B C308: 8E C4 0C CALL C40C C30B: 0A RETS ------------------------------------------------------- ;Commands >06 + >07 C30C: 32 08 MOV R08,B C30E: AA 60 25 LDA @6025(B) C311: E0 E1 JMP C2F4 -------------------------------------------------------- ;Command >1F C313: 8A 62 47 LDA 6247 C316: B3 INC A C317: E6 F2 JNZ C30B C319: 06 DINT C31A: 22 0A MOV %0A,A ;Request U7 ram cleared for new Unit ID and seed keys C31C: F9 TRAP 6 ;Write A to DED C31D: 22 FF MOV %FF,A ;Start Point and data C31F: F9 TRAP 6 ;Write A to DED C320: B2 DEC A ;12 bytes total C321: 2D EC CMP %EC,A ;Finished ? C323: E6 FA JNZ C31F ;No, go back + do another one C325: 22 0C MOV %0C,A ;Request U7 load Unit ID from U19 C327: F9 TRAP 6 ;Write A to DED C328: 52 02 MOV %02,B ; C32A: 38 08 ADD R08,B C32C: A8 60 00 47 MOVD %6000(B),R47 ; C330: 72 04 10 MOV %04,R10 ;4 bytes to send C333: F8 TRAP 7 ;Write R10 bytes @R46,47 to DED C334: 22 90 MOV %90,A C336: F9 TRAP 6 ;Write A to DED C337: 22 57 MOV %57,A C339: F9 TRAP 6 ;Write A to DED C33A: 22 37 MOV %37,A C33C: F9 TRAP 6 ;Write A to DED C33D: 06 DINT ;Disable interrupts C33E: 8E C4 78 CALL C478 ;Fill ram with 00's C341: 8E E0 94 CALL E094 ;Initialize tables C344: 22 FF MOV %FF,A ;A = FF C346: 8B 62 B5 STA 62B5 ; C349: 8B 62 92 STA 6292 ;Rating ceiling password C34C: 8B 62 8A STA 628A ;Purchase password C34F: 22 01 MOV %01,A ;A = >01 C351: 8B 62 7D STA 627D ;Program rating ceiling (G) C354: 8C FC 8F BR FC8F ---------------------------------------------- ;Command >1E C357: 8A 62 47 LDA 6247 C35A: B3 INC A C35B: E6 39 JNZ C396 C35D: 32 08 MOV R08,B C35F: 8A 62 58 LDA 6258 ;ID# (xxxx xxXX xxxx) C362: AD 60 02 CMPA @6002(B) ;Same ? C365: E6 2F JNZ C396 ;No, exit C367: 8A 62 57 LDA 6257 ;ID# (xxxx XXxx xxxx) C36A: AD 60 03 CMPA @6003(B) ;Same ? C36D: E6 27 JNZ C396 ;No, exit C36F: 8A 62 56 LDA 6256 ;ID# (xxXX xxxx xxxx) C372: AD 60 04 CMPA @6004(B) ;Same ? C375: E6 1F JNZ C396 ;No, exit C377: 8A 62 55 LDA 6255 ;ID# (XXxx xxxx xxxx) C37A: AD 60 05 CMPA @6005(B) ;Same ? C37D: E6 17 JNZ C396 ;No, exit ---------------------------------------------------- ;IOCNT0: ; INT 3 : Disabled (U24P26,U5P14) ; INT 1 : Enabled (U24P1) ; C37F: A2 89 00 MOVP %89,IOCNT0 ;I/O Control Register 0 ; C382: 22 0B MOV %0B,A ;Enter active key (Load U7 seed keys from U19)(Keys are encrypted) C384: F9 TRAP 6 ;Write A to DED C385: 58 06 ADD %06,B ;Skip serial number C387: A8 60 00 47 MOVD %6000(B),R47 ; C38B: 72 08 10 MOV %08,R10 ;8 Bytes C38E: F8 TRAP 7 ;Write R10 bytes @R46,47 to DED C38F: 88 60 00 47 MOVD %6000,R47 ;Return with R46,47=L6000 ; ;IOCNT0: ; Full Expansion ; INT 3 : Enabled (U24P26,U5P24) (cleared) ; INT 2 : Disabled (cleared) ; INT 1 : Enabled (U24P1) ; C393: A2 B9 00 MOVP %B9,IOCNT0 C396: 0A RETS ----------------------------------------------------- ;Command >0B C397: 32 08 MOV R08,B C399: 8A 62 58 LDA 6258 ;ID# (xxxx xxXX xxxx) C39C: AD 60 02 CMPA @6002(B) ;Same ? C39F: E6 F5 JNZ C396 ;No, exit C3A1: 8A 62 57 LDA 6257 ;ID# (xxxx XXxx xxxx) C3A4: AD 60 03 CMPA @6003(B) ;Same ? C3A7: E6 ED JNZ C396 ;No, exit C3A9: 8A 62 56 LDA 6256 ;ID# (xxXX xxxx xxxx) C3AC: AD 60 04 CMPA @6004(B) ;Same ? C3AF: E6 E5 JNZ C396 ;No, exit C3B1: 8A 62 55 LDA 6255 ;ID# (XXxx xxxx xxxx) C3B4: AD 60 05 CMPA @6005(B) ;Same ? C3B7: E6 DD JNZ C396 ;No, exit C3B9: AA 60 0C LDA @600C(B) C3BC: 8D 62 6A CMPA 626A C3BF: E6 D5 JNZ C396 C3C1: 8C C3 08 BR C308 ---------------------------------------------------- ; ;Command >0D ; C3C4: 32 08 MOV R08,B C3C6: AA 60 1F LDA @601F(B) C3C9: 8D 62 69 CMPA 6269 C3CC: E6 C8 JNZ C396 C3CE: 8C C3 08 BR C308 ; ;Command >0E ; C3D1: 32 08 MOV R08,B C3D3: 8A 62 58 LDA 6258 ;ID# (xxxx xxXX xxxx) C3D6: AD 60 02 CMPA @6002(B) ;Same ? C3D9: E6 BB JNZ C396 ;No, exit C3DB: 8A 62 57 LDA 6257 ;ID# (xxxx XXxx xxxx) C3DE: AD 60 03 CMPA @6003(B) ;Same ? C3E1: E6 B3 JNZ C396 ;No, exit C3E3: 8A 62 56 LDA 6256 ;ID# (xxXX xxxx xxxx) C3E6: AD 60 04 CMPA @6004(B) ;Same ? C3E9: E6 AB JNZ C396 ;No, exit C3EB: 8A 62 55 LDA 6255 ;ID# (XXxx xxxx xxxx) C3EE: AD 60 05 CMPA @6005(B) ;Same ? C3F1: E6 A3 JNZ C396 ;No, exit C3F3: 72 22 09 MOV %22,R09 C3F6: 32 08 MOV R08,B C3F8: 58 27 ADD %27,B C3FA: 88 62 21 5C MOVD %6221,R5C C3FE: 8E C4 31 CALL C431 C401: 22 FF MOV %FF,A C403: 8B 61 FF STA 61FF C406: 74 09 3B OR %09,R3B C409: 8C C3 0B BR C30B C40C: 32 09 MOV R09,B C40E: AA C4 57 LDA @C457(B) C411: E6 01 JNZ C414 C413: 0A RETS C414: D0 09 MOV A,R09 C416: 88 60 FF 5C MOVD %60FF,R5C C41A: B2 DEC A C41B: 48 00 5C ADD R00,R5C C41E: 79 00 5B ADC %00,R5B C421: AA C4 49 LDA @C449(B) C424: 48 00 5C ADD R00,R5C C427: 79 00 5B ADC %00,R5B C42A: AA C4 65 LDA @C465(B) C42D: 32 08 MOV R08,B C42F: 38 00 ADD R00,B ------------------------------------------------- ;IOCNT1: ; INT 4 : Disabled (Serial Port) C431: A2 08 10 MOVP %08,IOCNT1 ------------------------------------------------- ;IOCNT0: ; INT 3 : Disabled (U24P26,U5P24) ; INT 1 : Enabled (U24P1) C434: A2 89 00 MOVP %89,IOCNT0 C437: AA 60 00 LDA @6000(B) C43A: 9B 5C STA *R5C C43C: C2 DEC B C43D: DB 5C DECD R5C C43F: DA 09 F5 DJNZ R09,C437 ; ;IOCNT0: ; INT 3 : Enabled (U24P26,U5P24) ; INT 1 : Enabled (U24P1) C442: A2 99 00 MOVP %99,IOCNT0 ------------------------------------------------- ;IOCNT1: ; INT 4 : Enabled (Serial Port) ; C445: A2 09 10 MOVP %09,IOCNT1 C448: 0A RETS -------------------------------------------------- ; C449: 00 62 07 69 1C 7E 39 C450: 9B 00 00 E3 F7 00 C4 ; C457: 07 07 15 15 1D 1D 25 C45E: 25 00 00 14 07 00 1F ; C465: 07 07 19 19 1D 1D 25 C46C: 25 00 00 14 0B 00 1F ------------------------------------------------- ; ;TRAP 10 ; C473: AA C4 49 LDA @LC449(B) C476: C0 MOV A,B C447: 0A RETS ------------------------------------------------ ; ;FILL RAM WITH 00's ; C478: 88 07 FF 5C MOVD %07FF,R5C C47C: 88 67 FF 47 MOVD %67FF,R47 C480: B5 CLR A C481: 9B 47 STA *R47 C483: DB 47 DECD R47 C485: DB 5C DECD R5C C487: E3 F8 JC C481 C489: 0A RETS ------------------------------------------------ ; TRAP 1 ; ;INT 1 - External (U24P1) ; C48A: B8 PUSH A C48B: C8 PUSH B C48C: 12 04 MOV R04,A C48E: E6 49 JNZ C4D9 C490: A6 01 1A 74 BTJOP %01,P1A,C508 ;U24 status C494: 91 18 MOV P18,B C496: 5D 90 CMP %90,B C498: E6 0A JNZ C4A4 C49A: 88 60 CC 45 MOVD %60CC,R45 C49E: 9A 45 LDA *R45 C4A0: E6 73 JNZ C515 C4A2: E0 2A JMP C4CE C4A4: 98 3F 45 MOVD R3F,R45 C4A7: 9A 3F LDA *R3F C4A9: E2 23 JZ C4CE C4AB: 8A 62 3F LDA 623F C4AE: 2E 01 DAC %01,A C4B0: 8B 62 3F STA 623F C4B3: E6 08 JNZ C4BD C4B5: 8A 62 3E LDA 623E C4B8: 2E 01 DAC %01,A C4BA: 8B 62 3E STA 623E C4BD: 57 40 55 BTJZ R40,B,C515 C4C0: 7A 33 3F SUB %33,R3F ;Reset Message pointer C4C3: E3 03 JC C4C8 C4C5: 72 99 3F MOV %99,R3F C4C8: 98 3F 45 MOVD R3F,R45 C4CB: B5 CLR A C4CC: 9B 45 STA *R45 C4CE: 62 MOV B,A C4CF: D3 45 INC R45 C4D1: 9B 45 STA *R45 C4D3: D3 04 INC R04 C4D5: A7 04 1A 33 BTJZP %04,P1A,C50C ;U24 status C4D9: A6 01 1A 09 BTJOP %01,P1A,C4E6 ;U24 status C4DD: 7D 32 04 CMP %32,R04 C4E0: E3 33 JC C515 C4E2: 80 18 MOV P18,A ;Read U24 data (>0118) C4E4: E0 E9 JMP C4CF C4E6: A6 02 1A 1E BTJOP %02,P1A,C508 ;U24 status ? C4EA: 22 FF MOV %FF,A C4EC: 74 0F 05 OR %0F,R05 C4EF: 7D CC 45 CMP %CC,R45 C4F2: E7 05 JL C4F9 C4F4: 8B 60 CC STA 60CC C4F7: E0 0F JMP C508 C4F9: 9B 3F STA *R3F C4FB: 78 33 3F ADD %33,R3F ;Go to next message C4FE: 7D CC 3F CMP %CC,R3F ;Done ? C501: E6 05 JNZ C508 ;No, continue C503: 72 00 3F MOV %00,R3F ;Reset message pointer C506: E0 00 JMP C508 ; C508: 80 18 MOV P18,A ;Read U24 data (>0118) C50A: D5 04 CLR R04 ;R04 = 00 -------------------------------------------- ;IOCNT0: ; INT 3 : Clear flag ? (U24P26,U5P14) ; C50C: 91 00 MOV IOCNT0,B ;Get interrupt flags C50E: 53 D7 AND %D7,B ;Mask INT 3 flag C510: 92 00 MOVP B,IOCNT0 C512: C9 POP B C513: B9 POP A C514: 0B RETI -------------------------------------------- C515: 32 06 MOV R06,B C517: 53 7F AND %7F,B C519: 92 1C MOVP B,P1C ;Write B to U24 (>011C) C51B: 32 06 MOV R06,B C51D: 92 1C MOVP B,P1C ;Write B to U24 (>011C) C51F: E0 E9 JMP C50A --------------------------------------------- ; TRAP 3 ;IOCNT1: ; INT 3 : Disabled (Serial port) ; C521: A2 00 10 MOVP %00,IOCNT1 C524: 05 EINT C525: B8 PUSH A C526: C8 PUSH B C527: 7D FF 26 CMP %FF,R26 C52A: E2 02 JZ C52E C52C: D3 26 INC R26 C52E: 77 01 38 05 BTJZ %01,R38,C537 C532: 12 35 MOV R35,A C534: 52 12 MOV %12,B C536: EF TRAP 16 C537: 8A 67 F8 LDA 67F8 C53A: B3 INC A C53B: 23 03 AND %03,A C53D: 8B 67 F8 STA 67F8 C540: E2 03 JZ C545 C542: 8C FA ED BR FAED -------------------------------------------- C545: 77 04 37 03 BTJZ %04,R37,C54C C549: 8C C5 B7 BR C5B7 C54C: 77 02 37 08 BTJZ %02,R37,C558 C550: 73 FD 37 AND %FD,R37 C553: 8E C9 5A CALL C95A C556: E0 30 JMP C588 C558: 77 01 37 30 BTJZ %01,R37,C58C C55C: 73 FE 37 AND %FE,R37 C55F: 88 00 08 41 MOVD %0008,R41 C563: 7D 21 34 CMP %21,R34 C566: E6 08 JNZ C570 C568: 32 35 MOV R35,B C56A: 53 03 AND %03,B C56C: 58 0D ADD %0D,B C56E: E0 0A JMP C57A C570: 32 34 MOV R34,B C572: 53 3F AND %3F,B C574: 5D 0A CMP %0A,B C576: E7 02 JL C57A C578: 5A 26 SUB %26,B C57A: AA ED 64 LDA @ED64(B) ;Look-up table C57D: D0 39 MOV A,R39 C57F: 77 80 34 05 BTJZ %80,R34,C588 C583: D3 39 INC R39 C585: 73 3F 34 AND %3F,R34 C588: 12 34 MOV R34,A C58A: 82 17 MOVP A,P17 C58C: DB 41 DECD R41 C58E: E3 27 JC C5B7 C590: 74 10 37 OR %10,R37 C593: D3 36 INC R36 C595: 7D 03 36 CMP %03,R36 C598: E7 0F JL C5A9 C59A: 7D 21 34 CMP %21,R34 C59D: E2 05 JZ C5A4 C59F: 8E C9 51 CALL C951 C5A2: E0 13 JMP C5B7 C5A4: 8E C9 5A CALL C95A C5A7: D5 36 CLR R36 C5A9: 8A 67 F4 LDA 67F4 C5AC: 2D FF CMP %FF,A C5AE: E2 04 JZ C5B4 C5B0: B3 INC A C5B1: 8B 67 F4 STA 67F4 C5B4: 74 01 37 OR %01,R37 C5B7: 8A 60 CC LDA 60CC C5BA: D0 03 MOV A,R03 C5BC: 12 18 MOV R18,A C5BE: E2 0C JZ C5CC C5C0: 06 DINT C5C1: 8A 62 48 LDA 6248 C5C4: 2E 01 DAC %01,A C5C6: 8B 62 48 STA 6248 C5C9: 8C FC EE BR FCEE C5CC: 72 FF 18 MOV %FF,R18 C5CF: 32 13 MOV R13,B C5D1: AA C5 E6 LDA @C5E6(B) C5D4: B8 PUSH A C5D5: AA C5 EC LDA @C5EC(B) C5D8: B8 PUSH A C5D9: 80 1C MOV P1C,A C5DB: 27 01 07 BTJZ R01,A,C5E5 C5DE: 7D 78 22 CMP %78,R22 C5E1: E2 02 JZ C5E5 C5E3: D3 22 INC R22 C5E5: 0A RETS ----------------------------------------------- C5E6: C6 ;C60E C5E7: C6 ;C626 C5E8: C6 ;C640 C5E9: C6 ;C661 C5EA: C6 ;C686 C5EB: C6 ;C635 C5EC: 0E ;C60E C5ED: 26 ;C626 C5EE: 40 ;C640 C5EF: 61 ;C661 C5F0: 86 ;C686 C5F1: 35 ;C635 -------------------------------------------- C5F2: 8E C9 19 CALL @LC919 C5F5: 8E C8 DD CALL @LC8DD C5F8: 73 5F 06 AND %>5F,R06 C5FB: 74 50 06 OR %50,R06 C5FE: 12 06 MOV R06,A C600: 23 FC AND %FC,A C602: 24 01 OR %01,A C604: D0 06 MOV A,R06 C606: A4 04 04 ORP %04,APORT ;Set A2 - CR20-C,U4P15 high C609: D5 12 CLR R12 C60B: 8C C6 B2 BR C6B2 C60E: BC RR A C60F: E7 0C JL C61D C611: A3 F7 04 ANDP %F7,APORT C614: D5 04 CLR R04 C616: D5 05 CLR R05 C618: 72 01 13 MOV %01,R13 C61B: E0 2E JMP C64B C61D: A4 0A 04 ORP %0A,APORT C620: 74 40 06 OR %40,R06 C623: 8C C6 B2 BR C6B2 C626: 7D 00 05 CMP %00,R05 C629: E6 1A JNZ C645 C62B: BC RR A C62C: E3 0E JC C63C C62E: D3 12 INC R12 C630: 7D 10 12 CMP %10,R12 C633: E7 09 JL C63E C635: A4 02 04 ORP %02,APORT ;Set A1 - P1P6 high (Videocipher C638: D5 13 CLR R13 Signal) C63A: E0 B6 JMP C5F2 C63C: D5 12 CLR R12 C63E: E0 72 JMP C6B2 C640: BC RR A C641: E7 15 JL C658 C643: D5 04 CLR R04 C645: 72 03 13 MOV %03,R13 C648: A3 FD 04 ANDP %FD,APORT ;Set A1 - P1P6 high (Videocipher C64B: D5 12 CLR R12 Signal) C64D: 74 90 06 OR %90,R06 C650: 73 BF 06 AND %BF,R06 C653: A4 04 04 ORP %04,APORT ;Set A2 - CR20-C,U4P15 high C656: E0 5A JMP C6B2 C658: D3 12 INC R12 C65A: 7D 10 12 CMP %10,R12 C65D: E7 53 JL C6B2 C65F: E0 D4 JMP C635 C661: 2D 47 CMP %47,A C663: E3 0D JC C672 C665: 32 1D MOV R1D,B C667: 53 7F AND %7F,B C669: 5D 04 CMP %04,B C66B: E6 05 JNZ C672 C66D: 72 04 13 MOV %04,R13 C670: E0 40 JMP C6B2 C672: BC RR A C673: E7 04 JL C679 C675: D5 12 CLR R12 C677: E0 39 JMP C6B2 C679: D3 12 INC R12 C67B: 7D 0B 12 CMP %0B,R12 C67E: E7 32 JL C6B2 C680: 72 02 13 MOV %02,R13 C683: 8C C5 F2 BR C5F2 C686: A3 FB 06 ANDP %FB,BPORT C689: A4 04 06 ORP %04,BPORT C68C: 23 FE AND %FE,A C68E: 2D 51 CMP %51,A C690: E3 B3 JC C645 C692: 32 1D MOV R1D,B C694: 53 7F AND %7F,B C696: 5D 04 CMP %04,B C698: E6 AB JNZ C645 C69A: 76 20 20 05 BTJO %20,R20,C6A3 C69E: A3 FB 04 ANDP %FB,APORT C6A1: E0 03 JMP C6A6 C6A3: A4 04 04 ORP %04,APORT C6A6: 76 40 20 05 BTJO %40,R20,C6AF C6AA: 73 EF 06 AND %EF,R06 C6AD: E0 03 JMP C6B2 C6AF: 74 10 06 OR %10,R06 C6B2: 7D 03 13 CMP %03,R13 C6B5: E7 1C JL C6D3 C6B7: 8A 62 42 LDA 6242 C6BA: 4D 00 55 CMP R00,R55 C6BD: E7 0A JL C6C9 C6BF: E6 12 JNZ C6D3 C6C1: 8A 62 43 LDA 6243 C6C4: 4D 00 56 CMP R00,R56 C6C7: E3 0A JC C6D3 C6C9: 12 55 MOV R55,A C6CB: 8B 62 42 STA 6242 C6CE: 12 56 MOV R56,A C6D0: 8B 62 43 STA 6243 C6D3: 88 00 00 56 MOVD %0000,R56 C6D7: 32 06 MOV R06,B C6D9: 92 1C MOVP B,P1C ;Write B to U24 (>011C) C6DB: 32 03 MOV R03,B C6DD: E6 03 JNZ C6E2 C6DF: 8C C7 F8 BR C7F8 C6E2: D5 02 CLR R02 C6E4: 8A 62 41 LDA 6241 C6E7: 2E 01 DAC %01,A C6E9: 8B 62 41 STA 6241 C6EC: E6 08 JNZ C6F6 C6EE: 8A 62 40 LDA 6240 C6F1: 2E 01 DAC %01,A C6F3: 8B 62 40 STA 6240 C6F6: 52 08 MOV %08,B C6F8: AA 60 CC LDA @60CC(B) C6FB: AB 62 4B STA @624B(B) C6FE: CA F8 DJNZ B,C6F8 C700: B5 CLR A C701: 8B 60 CC STA 60CC C704: 8B 60 CD STA 60CD C707: 8A 62 4E LDA 624E C70A: 23 23 AND %23,A C70C: 25 20 XOR %20,A C70E: 7D 04 13 CMP %04,R13 C711: E2 02 JZ C715 C713: 23 DF AND %DF,A C715: 32 06 MOV R06,B C717: 53 DC AND %DC,B C719: 34 00 OR R00,B C71B: D1 06 MOV B,R06 C71D: 8A 62 4E LDA 624E C720: 73 7B 07 AND %7B,R07 C723: 26 40 03 BTJO %40,A,C729 C726: 74 80 07 OR %80,R07 C729: 26 04 03 BTJO %04,A,C72F C72C: 74 04 07 OR %04,R07 C72F: 8A 62 4E LDA 624E C732: 26 18 02 BTJO %18,A,C737 C735: E0 3A JMP C771 C737: D5 1B CLR R1B C739: B5 CLR A C73A: 8B 62 7C STA 627C C73D: 12 15 MOV R15,A C73F: 72 01 0E MOV %01,R0E C742: BE RL A C743: DF 0E RLC R0E C745: 32 06 MOV R06,B C747: 53 F3 AND %F3,B C749: 8A 62 4F LDA 624F C74C: 27 40 0A BTJZ R40,A,C759 C74F: 54 04 OR %04,B C751: 8A 62 A2 LDA 62A2 C754: 27 01 02 BTJZ R01,A,C759 C757: 55 0C XOR %0C,B C759: D1 06 MOV B,R06 C75B: 72 84 1D MOV %84,R1D C75E: 8A 62 4F LDA 624F C761: 23 07 AND %07,A C763: 8B 62 7E STA 627E C766: 8A 62 7D LDA 627D C769: 8D 62 7E CMPA 627E C76C: E3 03 JC C771 C76E: 72 83 1D MOV %83,R1D C771: 8A 62 4D LDA 624D C774: C5 CLR B C775: 27 20 02 BTJZ R20,A,C77A C778: 52 62 MOV %62,B C77A: D5 1E CLR R1E C77C: D5 46 CLR R46 C77E: 8A 62 4D LDA 624D C781: D0 10 MOV A,R10 C783: AA 61 30 LDA @6130(B) C786: 15 10 XOR R10,A C788: 26 60 08 BTJO %60,A,C793 C78B: 8A 62 53 LDA 6253 C78E: AD 61 35 CMPA @6135(B) C791: E2 07 JZ C79A C793: B5 CLR A C794: AB 61 35 STA @6135(B) C797: 72 FF 46 MOV %FF,R46 C79A: AA 61 39 LDA @6139(B) C79D: 15 10 XOR R10,A C79F: 26 60 08 BTJO %60,A,C7AA C7A2: 8A 62 53 LDA 6253 C7A5: AD 61 5C CMPA @615C(B) C7A8: E2 07 JZ C7B1 C7AA: B5 CLR A C7AB: AB 61 5C STA @615C(B) C7AE: 72 FF 46 MOV %FF,R46 C7B1: 76 01 46 0E BTJO %01,R46,C7C3 C7B5: 72 FF 1E MOV %FF,R1E C7B8: 8A 62 4E LDA 624E C7BB: 26 18 05 BTJO %18,A,C7C3 C7BE: AA 61 30 LDA @6130(B) C7C1: E0 03 JMP C7C6 C7C3: 8A 62 4D LDA 624D C7C6: C5 CLR B C7C7: B0 CLCR C7C8: E5 02 JGE C7CC C7CA: 52 62 MOV %62,B C7CC: AA 61 19 LDA @6119(B) C7CF: 8B 01 18 STA 0118 C7D2: 8B 62 69 STA 6269 C7D5: AA 61 1A LDA @611A(B) C7D8: 8B 62 68 STA 6268 C7DB: 8A 62 45 LDA 6245 C7DE: 73 FC 07 AND %FC,R07 C7E1: B0 CLCR C7E2: E1 03 JLT C7E7 C7E4: 74 01 07 OR %01,R07 C7E7: BE RL A C7E8: E5 03 JGE C7ED C7EA: 74 02 07 OR %02,R07 C7ED: 7D 01 11 CMP %01,R11 C7F0: E2 4C JZ C83E C7F2: 72 04 11 MOV %04,R11 C7F5: 8C C8 D5 BR C8D5 C7F8: D2 11 DEC R11 C7FA: E2 02 JZ C7FE C7FC: 9C 4B BR *R4B C7FE: 8A 60 CD LDA 60CD C801: C0 MOV A,B C802: B5 CLR A C803: 8B 60 CD STA 60CD C806: 5D 90 CMP %90,B C808: E6 02 JNZ C80C C80A: D5 02 CLR R02 C80C: 91 1C MOV P1C,B ;Read U24 data (>011C) C80E: B0 CLCR ;Clear carry C80F: CD RRC B C810: C2 DEC B C811: CC RR B C812: CC RR B C813: CC RR B C814: C3 INC B C815: 12 06 MOV R06,A C817: BC RR A C818: CF RLC B C819: 53 07 AND %07,B C81B: AA EC B1 LDA @ECB1(B) C81E: 4D 00 02 CMP R00,R02 C821: E3 1B JC C83E C823: D3 02 INC R02 C825: 8A 62 50 LDA 6250 C828: B3 INC A C829: 8B 62 50 STA 6250 C82C: E6 10 JNZ C83E C82E: 8A 62 51 LDA 6251 C831: B3 INC A C832: 8B 62 51 STA 6251 C835: E6 07 JNZ C83E C837: 8A 62 52 LDA 6252 C83A: B3 INC A C83B: 8B 62 52 STA 6252 C83E: 72 04 11 MOV %04,R11 C841: 8A 62 50 LDA 6250 C844: 23 1F AND %1F,A C846: E6 03 JNZ C84B C848: 8E D8 76 CALL D876 C84B: 22 0E MOV %0E,A ;Write U19 byte to U7's CPORT and decrypt Unit Seed key when U7's R4E = 03 ; C84D: F9 TRAP 6 ;Write A to DED C84E: 12 07 MOV R07,A C850: F9 TRAP 6 ;Write A to DED C851: 8A 62 4B LDA 624B C854: E2 02 JZ C858 C856: 9C 49 BR *R49 C858: 8A 62 53 LDA 6253 C85B: 42 16 46 MOV R16,R46 C85E: D0 16 MOV A,R16 C860: 45 00 46 XOR R00,R46 C863: E2 0B JZ C870 C865: 4D 00 46 CMP R00,R46 C868: E2 06 JZ C870 C86A: 8E C9 19 CALL C919 C86D: 8E C8 E8 CALL C8E8 C870: 42 15 10 MOV R15,R10 C873: 8A 62 4D LDA 624D C876: D0 15 MOV A,R15 C878: 45 00 10 XOR R00,R10 C87B: 73 E0 10 AND %E0,R10 C87E: 32 14 MOV R14,B C880: 8A 62 4E LDA 624E C883: 23 18 AND %18,A C885: D0 14 MOV A,R14 C887: E6 19 JNZ C8A2 C889: 12 46 MOV R46,A C88B: E6 0D JNZ C89A C88D: 12 10 MOV R10,A C88F: E6 05 JNZ C896 C891: C1 TSTB C892: E6 02 JNZ C896 C894: 9C 49 BR *R49 C896: 22 FF MOV %FF,A C898: D0 17 MOV A,R17 C89A: 22 FF MOV %FF,A C89C: 8B 62 A3 STA 62A3 C89F: 8C CB CC BR CBCC C8A2: 8A 62 7D LDA 627D C8A5: 8D 62 7E CMPA 627E C8A8: E1 2B JLT C8D5 C8AA: 8A 62 4E LDA 624E C8AD: 23 18 AND %18,A C8AF: 2D 18 CMP %18,A C8B1: E6 05 JNZ C8B8 C8B3: 22 10 MOV %10,A ;Ciphertext command to U7 C8B5: F9 TRAP 6 ;Write A to DED C8B6: E0 1D JMP C8D5 ----------------------------------------- C8B8: 26 10 05 BTJO %10,A,C8C0 C8BB: 22 08 MOV %08,A ;Request check byte to U5 C8BD: F9 TRAP 6 ;Write A to DED C8BE: E0 15 JMP C8D5 ----------------------------------------- C8C0: 22 06 MOV %06,A ;Fixed Authorization (FA) C8C2: F9 TRAP 6 ;Write A to DED C8C3: 88 62 50 47 MOVD %6250,R47 ;Select >6250 C8C7: 72 03 10 MOV %03,R10 ;3 bytes to write C8CA: F8 TRAP 7 ;Write R10 bytes @R46,47 to DED C8CB: E0 08 JMP C8D5 ----------------------------------------- ; ;TRAP 9 ; C8CD: D9 4D POP R4D C8CF: D9 4C POP R4C C8D1: 88 C9 3C 4B MOVD %C93C,R4B C8D5: C9 POP B C8D6: B9 POP A -------------------------------------- ; ;IOCNT1: ; INT 4 : Enabled (Serial port) ; C8D7: A2 01 10 MOVP %01,IOCNT1 C8DA: D5 18 CLR R18 C8DC: 0B RETI ----------------------------------------- C8DD: B5 CLR A ;A = 00 C8DE: 8B 62 53 STA 6253 ;Clear >6253 C8E1: 8B 62 4D STA 624D ;Clear >624D C8E4: D5 16 CLR R16 ; C8E6: D5 03 CLR R03 ; C8E8: B5 CLR A ;A = 00 C8E9: 8B 61 35 STA 6135 ;Clear >6135 C8EC: 8B 61 5C STA 615C ;Clear >615C C8EF: 8B 61 97 STA 6197 ;Clear >6197 C8F2: 8B 61 BE STA 61BE ;Clear >61BE C8F5: 8B 61 5E STA 615E ;Clear >615E C8F8: 8B 61 C0 STA 61C0 ;Clear >61C0 C8FB: 8B 61 E5 STA 61E5 ;Clear >61E5 C8FE: 8B 62 3B STA 623B ;Clear >623B C901: 8B 62 49 STA 6249 ;Clear >6249 C904: D5 1D CLR R1D C906: D5 22 CLR R22 C908: D5 1E CLR R1E C90A: 22 20 MOV %20,A ;A = >20 C90C: 8B 61 30 STA 6130 ;>6130 = 20 C90F: 8B 61 39 STA 6139 ;>6139 = 20 C912: 8B 61 92 STA 6192 ;>6192 = 20 C915: 8B 61 9B STA 619B ;>619B = 20 C918: 0A RETS ----------------------------------------------- C919: 22 0F MOV %0F,A ;Blank screen character C91B: D8 4D PUSH R4D C91D: EE TRAP 17 ;Fill display with A C91E: D9 4D POP R4D C920: D5 19 CLR R19 C922: B5 CLR A C923: 8B 62 46 STA 6246 C926: 8B 62 7C STA 627C C929: 8B 62 49 STA 6249 C92C: B4 INV A C92D: 8B 62 A3 STA 62A3 C930: D5 1B CLR R1B C932: 7D 80 35 CMP %80,R35 C935: E2 04 JZ C93B C937: 88 DC A2 4D MOVD %DCA2,R4D ;VIEW routine C93B: 0A RETS ------------------------------------------------- C93C: 7D 80 35 CMP %80,R35 C93F: E2 05 JZ C946 C941: 7D 03 13 CMP %03,R13 C944: E7 8F JL C8D5 C946: 9C 4D BR *R4D ------------------------------------------------- ; ;TRAP 8 ; C948: D9 49 POP R49 C94A: D9 48 POP R48 C94C: E0 87 JMP C8D5 ; C94E: F6 TRAP 9 C94F: E0 FD JMP C94E ; ; ; C951: D5 36 CLR R36 C953: 72 FF 39 MOV %FF,R39 C956: 88 70 80 41 MOVD %7080,R41 C95A: 72 30 34 MOV %30,R34 C95D: 7D 83 35 CMP %83,R35 C960: E6 07 JNZ C969 C962: 7D 03 13 CMP %03,R13 C965: E7 02 JL C969 C967: D3 34 INC R34 C969: 0A RETS ---------------------------------------------- ; ;INT 4 (TRAP 4) Serial Port ; C96A: A6 02 11 03 BTJOP %02,SSTAT,C971 ;Char in Rx buffer? C96E: 8C CA D5 BR CAD5 ;No, Exit ; C971: 05 EINT ;Yes, enable interrupts C972: B8 PUSH A ;Save A C973: C8 PUSH B ;Save B C974: 42 35 24 MOV R35,R24 ; C977: 91 16 MOVP RXBUF,B ;Get the char. in the buffer C979: 5D 7D CMP %7D,B ; >7D ?? C97B: E2 04 JZ C981 ;Yes C97D: 5D 7E CMP %7E,B ; >7E ?? C97F: E6 03 JNZ C984 ;No, continue C981: 8C CA 86 BR CA86 ; C984: 74 04 37 OR %04,R37 C987: 5D 1E CMP %1E,B ;Is B = >1E ?? C989: E3 03 JC C98E C98B: 8C CA 18 BR CA18 C98E: 5D 3F CMP %3F,B ;Is B = >3F ?? C990: E7 46 JL C9D8 C992: 5D 4A CMP %4A,B ;Is B = >4A ?? C994: E3 42 JC C9D8 C996: 76 80 35 04 BTJO %80,R35,C99E C99A: 88 DB E3 4B MOVD %DBE3,R4B C99E: 74 80 35 OR %80,R35 ; C9A1: 5D 3F CMP %3F,B ;Is B = >3F ?? C9A3: E6 06 JNZ C9AB C9A5: 88 DD F0 4B MOVD %DDF0,R4B C9A9: E0 67 JMP CA12 C9AB: 5D 40 CMP %40,B ;Is B = >40 ?? C9AD: E6 0A JNZ C9B9 C9AF: 74 02 37 OR %02,R37 C9B2: E0 5E JMP CA12 C9B4: 8E C9 51 CALL C951 C9B7: E0 56 JMP CA0F C9B9: 4D 01 39 CMP R01,R39 C9BC: E6 1C JNZ C9DA C9BE: 7D 21 34 CMP %21,R34 C9C1: E2 F1 JZ C9B4 C9C3: 8E C9 51 CALL C951 C9C6: 5D 43 CMP %43,B ;Is B = >43 ?? C9C8: E7 48 JL CA12 C9CA: 5D 46 CMP %46,B ;Is B = >46 ?? C9CC: E3 44 JC CA12 C9CE: 5A 43 SUB %43,B C9D0: AA ED 61 LDA @ED61(B) C9D3: 44 00 37 OR R00,R37 C9D6: E0 3A JMP CA12 C9D8: E0 38 JMP CA12 C9DA: 74 10 37 OR %10,R37 C9DD: D3 36 INC R36 C9DF: 7D 03 36 CMP %03,R36 C9E2: E6 05 JNZ C9E9 C9E4: 8E C9 51 CALL C951 C9E7: E0 29 JMP CA12 C9E9: 5D 46 CMP %46,B C9EB: E7 22 JL CA0F C9ED: 7D 21 34 CMP %21,R34 C9F0: E6 1A JNZ CA0C C9F2: 5A 46 SUB %46,B C9F4: 53 03 AND %03,B C9F6: AA ED 75 LDA @ED75(B) ;Look-up table C9F9: D0 35 MOV A,R35 C9FB: 7D 82 35 CMP %82,R35 C9FE: E3 04 JC CA04 CA00: 52 0C MOV %0C,B CA02: E0 06 JMP CA0A CA04: B5 CLR A CA05: 8B 67 F1 STA 67F1 ;>67F1 = ROM CHECKSUM OK CA08: 52 13 MOV %13,B CA0A: E0 0C JMP CA18 CA0C: 72 21 34 MOV %21,R34 CA0F: 74 01 37 OR %01,R37 CA12: 73 FB 37 AND %FB,R37 CA15: 8C CA 86 BR CA86 CA18: 8A 67 F7 LDA 67F7 CA1B: E2 04 JZ CA21 CA1D: 5D 17 CMP %17,B CA1F: E2 EB JZ CA0C CA21: 5D 0D CMP %0D,B CA23: E2 11 JZ CA36 CA25: 5D 0E CMP %0E,B CA27: E6 10 JNZ CA39 CA29: 7D 80 35 CMP %80,R35 CA2C: E6 08 JNZ CA36 CA2E: B5 CLR A CA2F: 8B 67 F1 STA 67F1 CA32: 88 DC A2 4B MOVD %DCA2,R4B CA36: 74 80 35 OR %80,R35 CA39: 77 80 35 3D BTJZ %80,R35,CA7A CA3D: 74 10 37 OR %10,R37 CA40: D5 36 CLR R36 CA42: 5D 0A CMP %0A,B CA44: E3 08 JC CA4E CA46: 7D 83 35 CMP %83,R35 CA49: E2 03 JZ CA4E CA4B: 8C C9 B4 BR C9B4 CA4E: C8 PUSH B CA4F: 73 03 35 AND %03,R35 CA52: 7C 1E 35 MPY %1E,R35 CA55: B9 POP A CA56: 38 00 ADD R00,B CA58: B8 PUSH A CA59: AA ED 79 LDA @ED79(B) CA5C: D0 35 MOV A,R35 CA5E: 73 83 35 AND %83,R35 CA61: 7D 80 35 CMP %80,R35 CA64: E6 04 JNZ CA6A CA66: 88 DB E3 4B MOVD %DBE3,R4B CA6A: C9 POP B CA6B: 5D 17 CMP %17,B CA6D: E6 0B JNZ CA7A CA6F: 77 10 1F 07 BTJZ %10,R1F,CA7A CA73: 7D 82 35 CMP %82,R35 CA76: E6 02 JNZ CA7A CA78: D3 35 INC R35 CA7A: 8E C9 51 CALL C951 CA7D: 74 01 37 OR %01,R37 CA80: 73 FB 37 AND %FB,R37 CA83: 8C CA 86 BR CA86 ------------------------------------------ CA86: 5D 7E CMP %7E,B ;Character a >7E ? CA88: E6 07 JNZ CA91 ;No, continue CA8A: 22 FF MOV %FF,A ;Yes, put >FF CA8C: 8B 62 47 STA 6247 ;at >6247 CA8F: E0 42 JMP CAD3 ;and exit CA91: 5D 7D CMP %7D,B ;If not, is it a >7D ? CA93: E6 03 JNZ CA98 ;No, continue CA95: 8C C3 3D BR C33D ;Yes, ----------------------------------------------- CA98: 7D 80 35 CMP %80,R35 ; CA9B: E2 36 JZ CAD3 CA9D: 5D 20 CMP %20,B ;Is char. >= >20 ? CA9F: E3 32 JC CAD3 ;Yes, exit CAA1: 5D 0F CMP %0F,B ;SAT ? CAA3: E2 09 JZ CAAE ;Yes, switch to SAT mode CAA5: 5D 0C CMP %0C,B ;TV ? CAA7: E2 05 JZ CAAE ;Yes, switch to TV mode CAA9: 8A 67 F1 LDA 67F1 CAAC: E6 25 JNZ CAD3 ----------------------------------------------- ; ; ; CAAE: AA EC C1 LDA @ECC1(B) CAB1: 27 02 02 BTJZ R02,A,CAB6 CAB4: D5 19 CLR R19 CAB6: 73 DF 1F AND %DF,R1F CAB9: 26 01 05 BTJO %01,A,CAC1 CABC: 7D 03 13 CMP %03,R13 CABF: E7 12 JL CAD3 CAC1: AA EC C1 LDA @ECC1(B) CAC4: 26 04 0C BTJO %04,A,CAD3 CAC7: 06 DINT CAC8: AA EC E1 LDA @ECE1(B) CACB: D0 4A MOV A,R4A CACD: AA ED 01 LDA @ED01(B) CAD0: D0 4B MOV A,R4B CAD2: 05 EINT --------------------------------------------- CAD3: C9 POP B CAD4: B9 POP A CAD5: 0B RETI ---------------------------------------------- ; ; 0-9,>,< ; CAD6: 22 00 MOV %00,A ;0 CAD8: E0 2F JMP CB09 CADA: 22 01 MOV %01,A ;1 CADC: E0 2B JMP CB09 CADE: 22 02 MOV %02,A ;2 CAE0: E0 27 JMP CB09 CAE2: 22 03 MOV %03,A ;3 CAE4: E0 23 JMP CB09 CAE6: 22 04 MOV %04,A ;4 CAE8: E0 1F JMP CB09 CAEA: 22 05 MOV %05,A ;5 CAEC: E0 1B JMP CB09 CAEE: 22 06 MOV %06,A ;6 CAF0: E0 17 JMP CB09 CAF2: 22 07 MOV %07,A ;7 CAF4: E0 13 JMP CB09 CAF6: 22 08 MOV %08,A ;8 CAF8: E0 0F JMP CB09 CAFA: 22 09 MOV %09,A ;9 CAFC: E0 0B JMP CB09 CAFE: 22 0A MOV %0A,A ;> CB00: E0 02 JMP CB04 CB02: 22 0B MOV %0B,A ;< CB04: 7D 01 19 CMP %01,R19 CB07: E6 21 JNZ CB2A CB09: 32 19 MOV R19,B ;(R19-KEYBOARD(SERIAL)BUFFER)) CB0B: E2 1D JZ CB2A CB0D: 4D 1A 19 CMP R1A,R19 CB10: E2 18 JZ CB2A CB12: 32 1A MOV R1A,B CB14: AB 62 7F STA @627F(B) CB17: D3 1A INC R1A CB19: 52 36 MOV %36,B CB1B: 8E CB 85 CALL CB85 CB1E: 8A 62 A4 LDA 62A4 CB21: B3 INC A CB22: 8B 62 A4 STA 62A4 CB25: 7D 01 19 CMP %01,R19 CB28: E2 27 JZ CB51 ;'ENTER' CB2A: 8C C8 D1 BR C8D1 ------------------------------------------- ; ; CANCEL ; CB2D: 12 19 MOV R19,A CB2F: E2 F9 JZ CB2A CB31: 22 0C MOV %0C,A CB33: 32 51 MOV R51,B CB35: E2 D2 JZ CB09 CB37: 32 1A MOV R1A,B CB39: E2 EF JZ CB2A CB3B: C2 DEC B CB3C: 22 FF MOV %FF,A CB3E: AB 62 7F STA @627F(B) CB41: D1 1A MOV B,R1A CB43: 52 2E MOV %2E,B CB45: 8A 62 A4 LDA 62A4 CB48: B2 DEC A CB49: 8B 62 A4 STA 62A4 CB4C: 8E CB 85 CALL CB85 CB4F: E0 D9 JMP CB2A ------------------------------------------- ; ; ENTER ; CB51: 32 19 MOV R19,B CB53: E2 D5 JZ CB2A CB55: D5 19 CLR R19 CB57: 32 51 MOV R51,B CB59: E2 CF JZ CB2A CB5B: 98 52 4D MOVD R52,R4D CB5E: E0 CA JMP CB2A ----------------------------------------------- ; ; TV ; CB60: B5 CLR A ;A = 00 CB61: 8B 62 7C STA 627C ;>627C = 00 CB64: B4 INV A ;A = FF CB65: 8B 67 F1 STA 67F1 ;>67F1 = FF CB68: 8C DC B8 BR DCB8 --------------------------------------------- ; ; SAT ; CB6B: B5 CLR A CB6C: 8B 67 F1 STA 67F1 CB6F: 12 1D MOV R1D,A CB71: 23 7F AND %7F,A CB73: 2D 04 CMP %04,A CB75: E2 F1 JZ CB68 CB77: 8C DC A2 BR DCA2 -------------------------------------------- ; ; Keyboard >18,>19,>1F ; CB7A: 72 05 13 MOV %05,R13 CB7D: 22 0F MOV %0F,A ;Blank screen character CB7F: EE TRAP 17 ;Fill display with A CB80: F6 TRAP 9 CB81: E0 FD JMP CB80 CB83: E0 F8 JMP CB7D CB85: 12 51 MOV R51,A CB87: E2 0A JZ CB93 CB89: 7D 01 19 CMP %01,R19 CB8C: E2 05 JZ CB93 CB8E: 8A 62 A4 LDA 62A4 CB91: B6 XCHB A CB92: F3 TRAP 12 ;Write A @B in display memory CB93: 0A RETS --------------------------------------------- ; ;TRAP 20 ; CB94: B6 XCHB A CB95: 8B 62 A4 STA 62A4 CB98: D1 19 MOV B,R19 CB9A: D5 1A CLR R1A CB9C: 8E CB C3 CALL CBC3 CB9F: D9 52 POP R52 CBA1: D9 51 POP R51 CBA3: B5 CLR A CBA4: 8B 62 89 STA 6289 CBA7: 88 1A 5E 54 MOVD %1A5E,R54 CBAB: F6 TRAP 9 CBAC: 12 1A MOV R1A,A CBAE: 8D 62 89 CMPA 6289 CBB1: E6 F1 JNZ CBA4 CBB3: DB 54 DECD R54 CBB5: E3 F4 JC CBAB CBB7: 8C DD F0 BR DDF0 -------------------------------------------- ; ; TRAP 19 ; CBBA: 22 01 MOV %01,A CBBC: D0 19 MOV A,R19 CBBE: D5 1A CLR R1A CBC0: D5 51 CLR R51 CBC2: C0 MOV A,B CBC3: 22 FF MOV %FF,A CBC5: AB 62 7E STA @627E(B) CBC8: CA FB DJNZ B,CBC5 CBCA: 0A RETS ------------------------------------------- CBCB: F7 TRAP 8 CBCC: B5 CLR A CBCD: 8B 62 46 STA 6246 CBD0: 8B 62 4B STA 624B CBD3: D5 1B CLR R1B CBD5: D5 1D CLR R1D CBD7: 12 15 MOV R15,A CBD9: 72 01 0E MOV %01,R0E CBDC: BE RL A CBDD: DF 0E RLC R0E CBDF: 52 02 MOV %02,B CBE1: BE RL A CBE2: BE RL A CBE3: CF RLC B CBE4: D1 0F MOV B,R0F CBE6: 8E CE 46 CALL CE46 CBE9: 8A 62 34 LDA 6234 CBEC: D0 49 MOV A,R49 CBEE: 32 0F MOV R0F,B CBF0: F5 TRAP 10 CBF1: AA 61 1B LDA @611B(B) CBF4: 43 00 49 AND R00,R49 CBF7: 8A 61 FF LDA 61FF CBFA: 13 49 AND R49,A CBFC: 8B 62 6B STA 626B CBFF: AA 61 13 LDA @6113(B) CC02: 23 07 AND %07,A CC04: 8B 62 7E STA 627E CC07: AA 61 19 LDA @6119(B) CC0A: 8D 62 53 CMPA 6253 CC0D: E6 BC JNZ CBCB CC0F: AA 61 14 LDA @6114(B) CC12: D0 49 MOV A,R49 CC14: 12 15 MOV R15,A CC16: 15 49 XOR R49,A CC18: 26 60 B0 BTJO %60,A,CBCB CC1B: AA 61 00 LDA @6100(B) CC1E: D0 49 MOV A,R49 CC20: AA 61 01 LDA @6101(B) CC23: D0 48 MOV A,R48 CC25: 32 0E MOV R0E,B CC27: 5A 02 SUB %02,B CC29: F5 TRAP 10 CC2A: AA 61 00 LDA @6100(B) CC2D: 1D 49 CMP R49,A CC2F: E6 9A JNZ CBCB CC31: AA 61 01 LDA @6101(B) CC34: 1D 48 CMP R48,A CC36: E6 93 JNZ CBCB CC38: 8A 62 35 LDA 6235 CC3B: 1D 49 CMP R49,A CC3D: E6 8C JNZ CBCB CC3F: 8A 62 36 LDA 6236 CC42: 1D 48 CMP R48,A CC44: E6 85 JNZ CBCB CC46: 32 0F MOV R0F,B CC48: F5 TRAP 10 CC49: 8A 62 75 LDA 6275 CC4C: 4D 00 16 CMP R00,R16 CC4F: E6 25 JNZ CC76 CC51: AA 61 09 LDA @6109(B) CC54: 8D 62 76 CMPA 6276 CC57: E6 19 JNZ CC72 CC59: AA 61 0A LDA @610A(B) CC5C: 8D 62 77 CMPA 6277 CC5F: E6 11 JNZ CC72 CC61: AA 61 0B LDA @610B(B) CC64: 8D 62 78 CMPA 6278 CC67: E6 09 JNZ CC72 CC69: AA 61 0C LDA @610C(B) CC6C: 8D 62 79 CMPA 6279 CC6F: 8C CD 01 BR CD01 CC72: B5 CLR A CC73: 8B 62 75 STA 6275 CC76: 8A 62 7B LDA 627B CC79: 15 15 XOR R15,A CC7B: 26 60 34 BTJO %60,A,CCB2 CC7E: 8A 62 7C LDA 627C CC81: E2 2F JZ CCB2 CC83: 8D 62 53 CMPA 6253 CC86: E6 26 JNZ CCAE CC88: 12 16 MOV R16,A CC8A: 8B 62 75 STA 6275 CC8D: AA 61 09 LDA @6109(B) CC90: 8B 62 76 STA 6276 CC93: AA 61 0A LDA @610A(B) CC96: 8B 62 77 STA 6277 CC99: AA 61 0B LDA @610B(B) CC9C: 8B 62 78 STA 6278 CC9F: AA 61 0C LDA @610C(B) CCA2: 8B 62 79 STA 6279 CCA5: B5 CLR A CCA6: 8B 62 7C STA 627C CCA9: 8B 62 7A STA 627A CCAC: E0 53 JMP CD01 CCAE: B5 CLR A CCAF: 8B 62 7C STA 627C CCB2: AA 61 13 LDA @6113(B) CCB5: 26 20 09 BTJO %20,A,CCC1 CCB8: B5 CLR A CCB9: AB 61 42 STA @6142(B) CCBC: E0 27 JMP CCE5 CCBE: 8C CB CB BR CBCB CCC1: AA 61 19 LDA @6119(B) CCC4: AD 61 42 CMPA @6142(B) CCC7: E6 F5 JNZ CCBE CCC9: AA 61 14 LDA @6114(B) CCCC: D0 10 MOV A,R10 CCCE: AA 61 41 LDA @6141(B) CCD1: 15 10 XOR R10,A CCD3: 26 E0 E8 BTJO %E0,A,CCBE CCD6: AA 61 43 LDA @6143(B) CCD9: B3 INC A CCDA: E6 E2 JNZ CCBE CCDC: 72 01 1D MOV %01,R1D CCDF: AA 61 44 LDA @6144(B) CCE2: B3 INC A CCE3: E6 D9 JNZ CCBE CCE5: D1 49 MOV B,R49 CCE7: 52 07 MOV %07,B CCE9: D6 49 XCHB R49 CCEB: AA 61 08 LDA @6108(B) CCEE: D0 48 MOV A,R48 CCF0: C2 DEC B CCF1: D6 49 XCHB R49 CCF3: AA 62 22 LDA @6222(B) CCF6: 16 48 0D BTJO R48,A,CD06 CCF9: CA EE DJNZ B,CCE9 CCFB: 72 02 1D MOV %02,R1D CCFE: 8C CB CB BR CBCB CD01: 22 FF MOV %FF,A CD03: 8B 62 46 STA 6246 CD06: 72 03 1D MOV %03,R1D CD09: 8A 62 7E LDA 627E CD0C: 8D 62 7D CMPA 627D CD0F: E2 02 JZ CD13 CD11: E3 EB JC CCFE CD13: 72 04 1D MOV %04,R1D CD16: 72 FF 1B MOV %FF,R1B CD19: 72 FF 17 MOV %FF,R17 CD1C: 22 00 MOV %00,A CD1E: F9 TRAP 6 CD1F: 32 0E MOV R0E,B CD21: 5A 02 SUB %02,B CD23: F5 TRAP 10 CD24: 58 03 ADD %03,B CD26: A8 60 FF 47 MOVD %60FF(B),R47 CD2A: 72 04 10 MOV %04,R10 CD2D: F8 TRAP 7 CD2E: F7 TRAP 8 CD2F: 22 01 MOV %01,A CD31: F9 TRAP 6 CD32: F7 TRAP 8 CD33: 22 02 MOV %02,A CD35: F9 TRAP 6 CD36: 88 62 23 47 MOVD %6223,R47 CD3A: 72 07 10 MOV %07,R10 CD3D: F8 TRAP 7 CD3E: F7 TRAP 8 CD3F: 22 03 MOV %03,A CD41: F9 TRAP 6 CD42: 88 62 2A 47 MOVD %622A,R47 CD46: 72 0B 10 MOV %0B,R10 CD49: F8 TRAP 7 CD4A: F7 TRAP 8 CD4B: 22 04 MOV %04,A CD4D: F9 TRAP 6 CD4E: 32 0F MOV R0F,B CD50: F5 TRAP 10 CD51: A8 61 02 47 MOVD %6102(B),R47 CD55: 72 12 10 MOV %12,R10 CD58: F8 TRAP 7 CD59: D5 1B CLR R1B CD5B: 8A 62 46 LDA 6246 CD5E: E2 10 JZ CD70 CD60: 8A 62 7A LDA 627A CD63: E6 0B JNZ CD70 CD65: 8E E9 CD CALL E9CD CD68: 74 0A 3B OR %0A,R3B CD6B: 22 FF MOV %FF,A CD6D: 8B 62 7A STA 627A CD70: F7 TRAP 8 CD71: 22 09 MOV %09,A CD73: F9 TRAP 6 CD74: 8A 62 68 LDA 6268 CD77: 8B 62 66 STA 6266 CD7A: F9 TRAP 6 CD7B: 8A 62 69 LDA 6269 CD7E: 8B 62 67 STA 6267 CD81: F7 TRAP 8 CD82: 22 07 MOV %07,A CD84: F9 TRAP 6 CD85: C5 CLR B CD86: F4 TRAP 11 CD87: AB 62 5A STA @625A(B) CD8A: C3 INC B CD8B: 5D 0C CMP %0C,B CD8D: E6 F7 JNZ CD86 CD8F: 4D 17 0E CMP R17,R0E CD92: E2 01 JZ CD95 CD94: F7 TRAP 8 CD95: 42 0E 17 MOV R0E,R17 CD98: E0 0E JMP CDA8 CD9A: 8E CE 5E CALL CE5E CD9D: 7D 04 13 CMP %04,R13 CDA0: E2 06 JZ CDA8 CDA2: D2 1C DEC R1C CDA4: E2 43 JZ CDE9 CDA6: E0 03 JMP CDAB CDA8: 72 05 1C MOV %05,R1C CDAB: 8A 62 7E LDA 627E CDAE: 8D 62 7D CMPA 627D CDB1: E2 02 JZ CDB5 CDB3: E3 34 JC CDE9 CDB5: 8A 62 46 LDA 6246 CDB8: E6 32 JNZ CDEC CDBA: 12 1D MOV R1D,A CDBC: E2 2B JZ CDE9 CDBE: 32 0F MOV R0F,B CDC0: F5 TRAP 10 CDC1: AA 61 13 LDA @6113(B) CDC4: 27 20 06 BTJZ R20,A,CDCD CDC7: AA 61 44 LDA @6144(B) CDCA: B3 INC A CDCB: E6 1C JNZ CDE9 CDCD: D1 49 MOV B,R49 CDCF: 32 0E MOV R0E,B CDD1: F5 TRAP 10 CDD2: 72 07 10 MOV %07,R10 CDD5: AA 61 00 LDA @6100(B) CDD8: D0 48 MOV A,R48 CDDA: C3 INC B CDDB: D6 49 XCHB R49 CDDD: AA 61 02 LDA @6102(B) CDE0: C3 INC B CDE1: D6 49 XCHB R49 CDE3: 16 48 06 BTJO R48,A,CDEC CDE6: DA 10 EC DJNZ R10,CDD5 CDE9: 8C CB CB BR CBCB CDEC: 32 0F MOV R0F,B CDEE: F5 TRAP 10 CDEF: 42 06 49 MOV R06,R49 CDF2: 73 F3 49 AND %F3,R49 CDF5: AA 61 13 LDA @6113(B) CDF8: 27 40 0C BTJZ R40,A,CE07 CDFB: 74 04 49 OR %04,R49 CDFE: 8A 62 A2 LDA 62A2 CE01: 27 01 03 BTJZ R01,A,CE07 CE04: 75 0C 49 XOR %0C,R49 CE07: 42 49 06 MOV R49,R06 CE0A: 8A 62 52 LDA 6252 CE0D: AD 61 18 CMPA @6118(B) CE10: E1 25 JLT CE37 CE12: E6 12 JNZ CE26 CE14: 8A 62 51 LDA 6251 CE17: AD 61 17 CMPA @6117(B) CE1A: E7 1B JL CE37 CE1C: E6 08 JNZ CE26 CE1E: 8A 62 50 LDA 6250 CE21: AD 61 16 CMPA @6116(B) CE24: E7 11 JL CE37 CE26: AA 61 14 LDA @6114(B) CE29: BE RL A CE2A: 28 40 ADD %40,A CE2C: BC RR A CE2D: 8B 62 4D STA 624D CE30: D0 15 MOV A,R15 CE32: D5 1E CLR R1E CE34: 8C C8 96 BR C896 CE37: 22 05 MOV %05,A CE39: F9 TRAP 6 CE3A: 88 62 50 47 MOVD %6250,R47 CE3E: 72 03 10 MOV %03,R10 CE41: F8 TRAP 7 CE42: F7 TRAP 8 CE43: 8C CD 9A BR CD9A CE46: 32 0E MOV R0E,B CE48: F5 TRAP 10 CE49: 22 15 MOV %15,A CE4B: 38 00 ADD R00,B CE4D: D1 49 MOV B,R49 CE4F: C0 MOV A,B CE50: D6 49 XCHB R49 CE52: AA 60 FE LDA @60FE(B) CE55: C2 DEC B CE56: D6 49 XCHB R49 CE58: AB 62 21 STA @6221(B) CE5B: CA F3 DJNZ B,CE50 CE5D: 0A RETS ----------------------------------------- CE5E: 32 0E MOV R0E,B CE60: F5 TRAP 10 CE61: AA 61 11 LDA @6111(B) CE64: B8 PUSH A CE65: 32 0F MOV R0F,B CE67: F5 TRAP 10 CE68: AA 61 1B LDA @611B(B) CE6B: C9 POP B CE6C: 33 00 AND R00,B CE6E: 8A 61 FF LDA 61FF CE71: 63 AND B,A CE72: 8B 62 6B STA 626B CE75: 0A RETS CE76: 52 06 MOV %06,B CE78: 22 20 MOV %20,A CE7A: AB 62 7F STA @627F(B) CE7D: CA FB DJNZ B,CE7A CE7F: 32 0F MOV R0F,B CE81: F5 TRAP 10 CE82: AA 61 16 LDA @6116(B) CE85: D0 4D MOV A,R4D CE87: AA 61 17 LDA @6117(B) CE8A: D0 4C MOV A,R4C CE8C: AA 61 18 LDA @6118(B) CE8F: D0 50 MOV A,R50 CE91: 8A 62 52 LDA 6252 CE94: D0 4F MOV A,R4F CE96: 8A 62 51 LDA 6251 CE99: C0 MOV A,B CE9A: 8A 62 50 LDA 6250 CE9D: 4A 00 4D SUB R00,R4D CEA0: 4B 01 4C SBB R01,R4C CEA3: 4B 4F 50 SBB R4F,R50 CEA6: E3 01 JC CEA9 CEA8: 0A RETS CEA9: 52 03 MOV %03,B CEAB: 22 1F MOV %1F,A CEAD: B3 INC A CEAE: 7A B0 4D SUB %B0,R4D CEB1: 7B 1E 4C SBB %1E,R4C CEB4: 7B 04 50 SBB %04,R50 CEB7: E7 05 JL CEBE CEB9: CA F2 DJNZ B,CEAD CEBB: 8C CF 29 BR CF29 CEBE: 8B 62 80 STA 6280 CEC1: 78 B0 4D ADD %B0,R4D CEC4: 79 1E 4C ADC %1E,R4C CEC7: 79 04 50 ADC %04,R50 CECA: 22 1F MOV %1F,A CECC: B3 INC A CECD: 7A 78 4D SUB %78,R4D CED0: 7B 69 4C SBB %69,R4C CED3: 7B 00 50 SBB %00,R50 CED6: E3 F4 JC CECC CED8: 8B 62 81 STA 6281 CEDB: 78 78 4D ADD %78,R4D CEDE: 79 69 4C ADC %69,R4C CEE1: 22 1F MOV %1F,A CEE3: B3 INC A CEE4: 7A 94 4D SUB %94,R4D CEE7: 7B 11 4C SBB %11,R4C CEEA: E3 F7 JC CEE3 CEEC: 8B 62 82 STA 6282 CEEF: 78 94 4D ADD %94,R4D CEF2: 79 11 4C ADC %11,R4C CEF5: 22 1F MOV %1F,A CEF7: B3 INC A CEF8: 7A C2 4D SUB %C2,R4D CEFB: 7B 01 4C SBB %01,R4C CEFE: E3 F7 JC CEF7 CF00: 8B 62 83 STA 6283 CF03: 78 C2 4D ADD %C2,R4D CF06: 79 01 4C ADC %01,R4C CF09: 22 1F MOV %1F,A CF0B: B3 INC A CF0C: 7A 4B 4D SUB %4B,R4D CF0F: 7B 00 4C SBB %00,R4C CF12: E3 F7 JC CF0B CF14: 8B 62 84 STA 6284 CF17: 78 4B 4D ADD %4B,R4D CF1A: 48 4D 4D ADD R4D,R4D CF1D: 22 1F MOV %1F,A CF1F: B3 INC A CF20: 7A 0F 4D SUB %0F,R4D CF23: E3 FA JC CF1F CF25: 8B 62 85 STA 6285 CF28: 0A RETS CF29: 22 22 MOV %22,A CF2B: 8B 62 80 STA 6280 CF2E: 22 29 MOV %29,A CF30: 8B 62 81 STA 6281 CF33: 8B 62 83 STA 6283 CF36: 8B 62 85 STA 6285 CF39: 22 25 MOV %25,A CF3B: 8B 62 82 STA 6282 CF3E: 8B 62 84 STA 6284 CF41: 0A RETS ---------------------------------------------------------------------- CF42: C8 PUSH B CF43: 72 03 10 MOV %03,R10 ;12 characters CF46: 88 FA D9 47 MOVD %FAD9,R47 ;" STARTS IN: " CF4A: 12 29 MOV R29,A CF4C: 15 15 XOR R15,A CF4E: 26 60 04 BTJO %60,A,CF55 CF51: 88 FA CA 47 MOVD %FACA,R47 ;" TIME LEFT: " CF55: 8E C1 00 CALL C100 CF58: C9 POP B CF59: 58 0C ADD %0C,B CF5B: 8A 62 80 LDA 6280 CF5E: 2D 20 CMP %20,A CF60: E2 0A JZ CF6C CF62: F3 TRAP 12 ;Write A @B in display memory CF63: 8A 62 81 LDA 6281 CF66: F2 TRAP 13 ;Write A to display memory CF67: 8A 62 82 LDA 6282 CF6A: E0 17 JMP CF83 CF6C: 8A 62 81 LDA 6281 CF6F: 2D 20 CMP %20,A CF71: E6 0F JNZ CF82 CF73: 22 2E MOV %2E,A CF75: F3 TRAP 12 ;Write A @B in display memory CF76: F2 TRAP 13 ;Write A to display memory CF77: 8A 62 82 LDA 6282 CF7A: 2D 20 CMP %20,A CF7C: E6 0B JNZ CF89 CF7E: 22 2E MOV %2E,A ;background char CF80: E0 07 JMP CF89 CF82: F3 TRAP 12 ;Write A @B in display memory CF83: 22 1D MOV %1D,A ;":" CF85: F2 TRAP 13 ;Write A to display memory CF86: 8A 62 82 LDA 6282 CF89: F2 TRAP 13 ;Write A to display memory CF8A: 8A 62 83 LDA 6283 CF8D: F2 TRAP 13 ;Write A to display memory CF8E: 22 1D MOV %1D,A ;":" CF90: F2 TRAP 13 ;Write A to display memory CF91: 8A 62 84 LDA 6284 CF94: F2 TRAP 13 ;Write A to display memory CF95: 8A 62 85 LDA 6285 CF98: F2 TRAP 13 ;Write A to display memory CF99: 8A 62 80 LDA 6280 CF9C: 2D 20 CMP %20,A CF9E: E6 03 JNZ CFA3 CFA0: 22 2E MOV %2E,A ;background char CFA2: F2 TRAP 13 ;Write A to display memory CFA3: 0A RETS ------------------------------------------------------------------ ; ;Command >0C ; CFA4: 32 08 MOV R08,B CFA6: AA 60 22 LDA @6022(B) CFA9: 8D 61 E5 CMPA 61E5 CFAC: E6 14 JNZ CFC2 ;If not same, exit CFAE: AA 60 23 LDA @6023(B) CFB1: 8D 62 69 CMPA 6269 CFB4: E6 0C JNZ CFC2 ;If not same, exit CFB6: 88 62 B8 5A MOVD %62B8,R5A CFBA: 58 02 ADD %02,B CFBC: 8E D0 1B CALL D01B CFBF: 8E D0 A8 CALL D0A8 CFC2: 8C C3 96 BR C396 ;Exit ; ;Command >0A ; CFC5: 32 08 MOV R08,B CFC7: AA 60 02 LDA @6002(B) CFCA: 8D 62 69 CMPA 6269 CFCD: E6 1D JNZ CFEC CFCF: AA 60 04 LDA @6004(B) CFD2: E2 18 JZ CFEC CFD4: 8D 62 53 CMPA 6253 CFD7: E6 13 JNZ CFEC CFD9: 22 FF MOV %FF,A CFDB: 8B 62 B7 STA 62B7 CFDE: 8E C4 0C CALL C40C CFE1: 88 61 E2 5A MOVD %61E2,R5A CFE5: 8E D0 B8 CALL D0B8 CFE8: B5 CLR A CFE9: 8B 62 B7 STA 62B7 CFEC: 8C C3 96 BR C396 ; ;Command >08 ; CFEF: 7D 47 20 CMP %47,R20 CFF2: E6 F8 JNZ CFEC CFF4: 32 08 MOV R08,B CFF6: AA 60 24 LDA @6024(B) CFF9: 8D 62 69 CMPA 6269 CFFC: E6 EE JNZ CFEC CFFE: 88 63 39 5A MOVD %6339,R5A D002: 8C CF BA BR CFBA D005: 78 02 5A ADD %02,R5A D008: 79 00 59 ADC %00,R59 D00B: 9A 5A LDA *R5A D00D: 8B 62 AC STA 62AC D010: 12 59 MOV R59,A D012: 8B 62 AD STA 62AD D015: 12 5A MOV R5A,A D017: 8B 62 AE STA 62AE D01A: 0A RETS ------------------------------------------------------ D01B: 9A 5A LDA *R5A D01D: D1 0B MOV B,R0B D01F: AD 60 00 CMPA @6000(B) ; D022: E6 E1 JNZ D005 D024: D3 5A INC R5A D026: 79 00 59 ADC %00,R59 D029: 9A 5A LDA *R5A D02B: D3 5A INC R5A D02D: 79 00 59 ADC %00,R59 D030: B0 CLCR D031: E2 15 JZ D048 D033: AA 60 01 LDA @6001(B) D036: 23 03 AND %03,A D038: C0 MOV A,B D039: AA D1 0E LDA @D10E(B) ;Look-up table D03C: 9B 5A STA *R5A D03E: B5 CLR A D03F: DB 5A DECD R5A D041: 9B 5A STA *R5A D043: D3 5A INC R5A D045: 79 00 59 ADC %00,R59 D048: 32 0B MOV R0B,B D04A: AA 60 01 LDA @6001(B) D04D: C0 MOV A,B D04E: CC RR B D04E: CC RR B D04F: CC RR B D050: 53 03 AND %03,B D052: D1 0A MOV B,R0A D054: AA D1 06 LDA @D106(B) ;Look-up table D057: C0 MOV A,B D058: 9A 5A LDA *R5A D05A: 67 B1 BTJZ B,A,D00D D05C: 55 FF XOR %FF,B D05E: 63 AND B,A D05F: 8B 62 AC STA 62AC D062: 12 59 MOV R59,A D064: 8B 62 AD STA 62AD D067: 12 5A MOV R5A,A D069: 8B 62 AE STA 62AE D06C: 32 0B MOV R0B,B D06E: AA 60 20 LDA @6020(B) D071: D3 5A INC R5A D073: 79 00 59 ADC %00,R59 D076: 9B 5A STA *R5A D078: AA 60 21 LDA @6021(B) D07B: D3 5A INC R5A D07D: 79 00 59 ADC %00,R59 D080: 9B 5A STA *R5A D082: D3 5A INC R5A D084: 79 00 59 ADC %00,R59 D087: 12 0A MOV R0A,A D089: C0 MOV A,B D08A: CE DAC B,A D08B: C7 SWAP B D08C: 3A 00 SUB R00,B D08E: 48 01 5A ADD R01,R5A D091: 79 00 59 ADC %00,R59 D094: 32 0B MOV R0B,B D096: 72 1F 0A MOV %1F,R0A D099: AA 60 01 LDA @6001(B) D09C: 9B 5A STA *R5A D09E: C3 INC B D09F: D3 5A INC R5A D0A1: 79 00 59 ADC %00,R59 D0A4: DA 0A F2 DJNZ R0A,D099 D0A7: 0A RETS D0A8: 8A 62 AD LDA 62AD D0AB: D0 59 MOV A,R59 D0AD: 8A 62 AE LDA 62AE D0B0: D0 5A MOV A,R5A D0B2: 8A 62 AC LDA 62AC D0B5: 9B 5A STA *R5A D0B7: 0A RETS D0B8: C5 CLR B D0B9: D5 0A CLR R0A D0BB: 78 0D 5A ADD %0D,R5A D0BE: 79 00 59 ADC %00,R59 D0C1: 9A 5A LDA *R5A D0C3: E5 02 JGE D0C7 D0C5: 52 62 MOV %62,B D0C7: 72 07 09 MOV %07,R09 D0CA: 7A 09 5A SUB %09,R5A D0CD: 7B 00 59 SBB %00,R59 D0D0: 9A 5A LDA *R5A D0D2: D0 0B MOV A,R0B D0D4: AA 61 07 LDA @6107(B) D0D7: 43 00 0B AND R00,R0B D0DA: 44 0B 0A OR R0B,R0A D0DD: C3 INC B D0DE: D3 5A INC R5A D0E0: 79 00 59 ADC %00,R59 D0E3: DA 09 EA DJNZ R09,D0D0 D0E6: 12 0A MOV R0A,A D0E8: E6 05 JNZ D0EF D0EA: D3 5A INC R5A D0EC: 79 00 59 ADC %00,R59 D0EF: 9A 5A LDA *R5A D0F1: 8D 62 B8 CMPA 62B8 D0F4: E6 01 JNZ D0F7 D0F6: 0A RETS D0F7: 52 FF MOV %FF,B D0F9: B6 XCHB A D0FA: 8B 62 B9 STA 62B9 D0FD: 62 MOV B,A D0FE: 8B 62 B8 STA 62B8 D101: B5 CLR A D102: 8B 62 B5 STA 62B5 D105: 0A RETS ------------------------------------------------------ D106: 01 02 04 08 10 20 40 80 D10E: 01 03 07 0F 1F 3F 7F FF ------------------------------------------------------ ; ;Command >12 ; D116: D5 09 CLR R09 D118: E0 03 JMP D11D ; ;Command >13 ; D11A: 72 62 09 MOV %62,R09 D11D: 32 08 MOV R08,B D11F: 8A 62 53 LDA 6253 D122: E2 05 JZ D129 D124: AD 60 02 CMPA @6002(B) D127: E2 0A JZ D133 D129: B5 CLR A D12A: 8B 61 5E STA 615E D12D: 8B 61 C0 STA 61C0 D130: 8C C3 96 BR C396 D133: D0 0A MOV A,R0A D135: AA 60 03 LDA @6003(B) D138: D0 0B MOV A,R0B D13A: 32 09 MOV R09,B D13C: AD 61 5D CMPA @615D(B) D13F: E6 07 JNZ D148 D141: 12 0A MOV R0A,A D143: AD 61 5E CMPA @615E(B) D146: E2 11 JZ D159 D148: B5 CLR A D149: AB 61 5F STA @615F(B) D14C: AB 61 60 STA @6160(B) D14F: 12 0A MOV R0A,A D151: AB 61 5E STA @615E(B) D154: 12 0B MOV R0B,A D156: AB 61 5D STA @615D(B) D159: 52 05 MOV %05,B D15B: AA 61 F6 LDA @61F6(B) D15E: E6 05 JNZ D165 D160: CA F9 DJNZ B,D15B D162: 8C D2 0F BR D20F D165: 42 08 0D MOV R08,R0D D168: 78 05 0D ADD %05,R0D D16B: 32 0D MOV R0D,B D16D: AA 60 05 LDA @6005(B) D170: 1C 00 MPY R00,A D172: 98 01 5C MOVD R01,R5C D175: 8A 61 FA LDA 61FA D178: B7 SWAP A D179: 23 0F AND %0F,A D17B: D0 0A MOV A,R0A D17D: 8A 61 F7 LDA 61F7 D180: D0 0B MOV A,R0B D182: 32 0D MOV R0D,B D184: AA 60 03 LDA @6003(B) D187: B7 SWAP A D188: 23 0F AND %0F,A D18A: D0 0C MOV A,R0C D18C: AA 60 00 LDA @6000(B) D18F: 1A 0B SUB R0B,A D191: 4B 0A 0C SBB R0A,R0C D194: E5 07 JGE D19D D196: B4 INV A D197: D4 0C INV R0C D199: B3 INC A D19A: 79 00 0C ADC %00,R0C D19D: E6 74 JNZ D213 D19F: 1C 00 MPY R00,A D1A1: 4A 01 5C SUB R01,R5C D1A4: 4B 00 5B SBB R00,R5B D1A7: E7 6A JL D213 D1A9: 8A 61 FA LDA 61FA D1AC: 23 0F AND %0F,A D1AE: D0 0A MOV A,R0A D1B0: 8A 61 F8 LDA 61F8 D1B3: D0 0B MOV A,R0B D1B5: 32 0D MOV R0D,B D1B7: AA 60 03 LDA @6003(B) D1BA: 23 0F AND %0F,A D1BC: D0 0C MOV A,R0C D1BE: AA 60 01 LDA @6001(B) D1C1: 1A 0B SUB R0B,A D1C3: 4B 0A 0C SBB R0A,R0C D1C6: E5 07 JGE D1CF D1C8: B4 INV A D1C9: D4 0C INV R0C D1CB: B3 INC A D1CC: 79 00 0C ADC %00,R0C D1CF: E6 42 JNZ D213 D1D1: 1C 00 MPY R00,A D1D3: 4A 01 5C SUB R01,R5C D1D6: 4B 00 5B SBB R00,R5B D1D9: E7 38 JL D213 D1DB: 8A 61 FB LDA 61FB D1DE: B7 SWAP A D1DF: 23 0F AND %0F,A D1E1: D0 0A MOV A,R0A D1E3: 8A 61 F9 LDA 61F9 D1E6: D0 0B MOV A,R0B D1E8: 32 0D MOV R0D,B D1EA: AA 60 04 LDA @6004(B) D1ED: B7 SWAP A D1EE: 23 0F AND %0F,A D1F0: D0 0C MOV A,R0C D1F2: AA 60 02 LDA @6002(B) D1F5: 1A 0B SUB R0B,A D1F7: 4B 0A 0C SBB R0A,R0C D1FA: E5 07 JGE D203 D1FC: B4 INV A D1FD: D4 0C INV R0C D1FF: B3 INC A D200: 79 00 0C ADC %00,R0C D203: E6 0E JNZ D213 D205: 1C 00 MPY R00,A D207: 4A 01 5C SUB R01,R5C D20A: 4B 00 5B SBB R00,R5B D20D: E7 04 JL D213 D20F: D5 0C CLR R0C D211: E0 12 JMP D225 D213: 32 0D MOV R0D,B D215: 58 06 ADD %06,B D217: D1 0D MOV B,R0D D219: 3A 08 SUB R08,B D21B: 5D 23 CMP %23,B D21D: E2 03 JZ D222 D21F: 8C D1 6B BR D16B D222: 72 FF 0C MOV %FF,R0C D225: 32 08 MOV R08,B D227: AA 60 04 LDA @6004(B) D22A: D0 0B MOV A,R0B D22C: 32 09 MOV R09,B D22E: AA 61 5F LDA @615F(B) D231: 14 0B OR R0B,A D233: AB 61 5F STA @615F(B) D236: AA 61 60 LDA @6160(B) D239: 42 0C 0C MOV R0C,R0C D23C: E6 06 JNZ D244 D23E: D4 0B INV R0B D240: 13 0B AND R0B,A D242: E0 02 JMP D246 D244: 14 0B OR R0B,A D246: AB 61 60 STA @6160(B) D249: 8C C3 96 BR C396 D24C: 72 FF 30 MOV %FF,R30 D24F: E0 0D JMP D25E D251: 72 00 30 MOV %00,R30 D254: E0 08 JMP D25E D256: 72 0F 30 MOV %0F,R30 D259: E0 03 JMP D25E D25B: 72 7F 30 MOV %7F,R30 D25E: B9 POP A D25F: 8B 62 37 STA 6237 D262: B9 POP A D263: 8B 62 38 STA 6238 D266: D1 33 MOV B,R33 D268: 72 03 31 MOV %03,R31 D26B: 42 21 32 MOV R21,R32 D26E: EA TRAP 21 D26F: 72 0A 21 MOV %0A,R21 D272: 73 07 33 AND %07,R33 D275: 88 F4 7E 58 MOVD %F47E,R58 ;RATING CEILING: D279: ED TRAP 18 D27A: F6 TRAP 9 D27B: 8A 62 92 LDA 6292 D27E: E1 3D JLT D2BD D280: 12 31 MOV R31,A D282: E1 39 JLT D2BD D284: 72 04 21 MOV %04,R21 D287: 88 F2 11 47 MOVD %F211,R47 ;( ENTER THE RATING ) D28B: 52 8C MOV %8C,B D28D: 8E C0 F0 CALL C0F0 D290: 8E D3 EA CALL D3EA D293: 8E D3 DD CALL D3DD D296: E6 05 JNZ D29D D298: 72 FF 31 MOV %FF,R31 D29B: E0 D1 JMP D26E D29D: 52 8C MOV %8C,B D29F: 88 F8 36 47 MOVD %F836,R47 ; D2A3: 8E C0 FD CALL C0FD D2A6: 88 F2 3E 47 MOVD %F23E,R47 ;( WRONG PASSWORD ) D2AA: 8E C0 FB CALL C0FB D2AD: 72 2D 54 MOV %2D,R54 D2B0: F6 TRAP 9 D2B1: DA 54 FC DJNZ R54,D2B0 D2B4: DA 31 D0 DJNZ R31,D287 D2B7: 72 03 31 MOV %03,R31 D2BA: 8C E1 25 BR E125 D2BD: 88 F8 36 47 MOVD %F836,R47 ; D2C1: 52 8C MOV %8C,B D2C3: 8E C0 FD CALL C0FD D2C6: 88 F3 1F 47 MOVD %F31F,R47 ;( <, >, OR 'ENTER' ) D2CA: 8E C0 FB CALL C0FB ;Put on line 9 D2CD: 8A 62 7D LDA 627D D2D0: 8B 62 7D STA 627D D2D3: EC TRAP 19 D2D4: 8E D3 12 CALL D312 D2D7: F6 TRAP 9 D2D8: 76 01 19 F8 BTJO %01,R19,D2D4 D2DC: 77 01 1A 26 BTJZ %01,R1A,D306 D2E0: 8A 62 7F LDA 627F D2E3: 2D 0A CMP %0A,A D2E5: E6 11 JNZ D2F8 D2E7: 8A 62 7D LDA 627D D2EA: B6 XCHB A D2EB: 8A 61 C4 LDA 61C4 D2EE: 23 07 AND %07,A D2F0: 3D 00 CMP R00,B D2F2: E3 DF JC D2D3 D2F4: B6 XCHB A D2F5: B3 INC A D2F6: E0 D8 JMP D2D0 D2F8: 2D 0B CMP %0B,A D2FA: E6 D7 JNZ D2D3 D2FC: 8A 62 7D LDA 627D D2FF: 2D 01 CMP %01,A D301: E2 D0 JZ D2D3 D303: B2 DEC A D304: E0 CA JMP D2D0 D306: 42 32 21 MOV R32,R21 D309: 8A 62 38 LDA 6238 D30C: B8 PUSH A D30D: 8A 62 37 LDA 6237 D310: B8 PUSH A D311: 0A RETS D312: 8A 62 4F LDA 624F D315: D0 33 MOV A,R33 D317: 8A 62 4E LDA 624E D31A: 23 18 AND %18,A D31C: C0 MOV A,B D31D: 7D FF 30 CMP %FF,R30 D320: E6 0A JNZ D32C D322: C1 TSTB D323: E6 2E JNZ D353 D325: B9 POP A D326: B9 POP A D327: 00 NOP D328: 00 NOP D329: 8C DC A2 BR DCA2 D32C: 7D 7F 30 CMP %7F,R30 D32F: E6 0D JNZ D33E D331: C1 TSTB D332: E6 1F JNZ D353 D334: 32 0F MOV R0F,B D336: F5 TRAP 10 D337: AA 61 13 LDA @6113(B) D33A: D0 33 MOV A,R33 D33C: E0 15 JMP D353 D33E: 32 28 MOV R28,B D340: F5 TRAP 10 D341: AA 61 13 LDA @6113(B) D344: D0 33 MOV A,R33 D346: 7D 00 30 CMP %00,R30 D349: E6 05 JNZ D350 D34B: 8E E5 D9 CALL E5D9 D34E: E0 03 JMP D353 D350: 8E E5 FA CALL E5FA D353: 73 07 33 AND %07,R33 D356: 52 10 MOV %10,B D358: 8A 62 7D LDA 627D D35B: 8E E6 29 CALL E629 ;Put rating in display memory D35E: 7D 00 1D CMP %00,R1D ; D361: E2 53 JZ D3B6 D363: 7D 00 33 CMP %00,R33 D366: E2 4E JZ D3B6 D368: 52 28 MOV %28,B D36A: 88 F2 E3 47 MOVD %F2E3,R47 ;PROGRAM RATING: D36E: 8E C0 FD CALL C0FD D371: 52 38 MOV %38,B D373: 12 33 MOV R33,A D375: 8E E6 29 CALL E629 D378: 52 3C MOV %3C,B D37A: 88 F8 36 47 MOVD %F836,R47 D37E: 8E C0 FD CALL C0FD D381: 88 F8 36 47 MOVD %F836,R47 D385: 88 F8 36 58 MOVD %F836,R58 D389: 8A 62 7D LDA 627D D38C: 1D 33 CMP R33,A D38E: E3 08 JC D398 D390: 88 F3 01 47 MOVD %F301,R47 ; PROGRAM LOCKED OUT D394: 88 F3 10 58 MOVD %F310,R58 ;DUE TO RATING LEVEL D398: 73 DF 20 AND %DF,R20 D39B: B6 XCHB A D39C: 8A 62 4F LDA 624F D39F: 23 07 AND %07,A D3A1: 3D 00 CMP R00,B D3A3: E3 03 JC D3A8 D3A5: 74 20 20 OR %20,R20 D3A8: 52 50 MOV %50,B D3AA: 8E C0 FD CALL C0FD D3AD: 52 64 MOV %64,B D3AF: 98 58 47 MOVD R58,R47 D3B2: 8E C0 FD CALL C0FD D3B5: 0A RETS ----------------------------------------------------- ; ; Write PROGRAM RATING NOT AVAILABLE message ; D3B6: D5 33 CLR R33 D3B8: 88 EF 8C 47 MOVD %EF8C,R47 ; PROGRAM RATING D3BC: 52 28 MOV %28,B ; Put on line 3 D3BE: 8E C0 FD CALL C0FD D3C1: 88 EF C8 47 MOVD %EFC8,R47 ; NOT AVAILABLE D3C5: 52 3C MOV %3C,B ;Put on line 4 D3C7: 8E C0 FD CALL C0FD D3CA: 88 F8 36 47 MOVD %F836,R47 ;(blank line) D3CE: 52 50 MOV %50,B ;Put on line 5 D3D0: 8E C0 FD CALL C0FD D3D3: 88 F8 36 47 MOVD %F836,R47 ;(blank line) D3D7: 52 50 MOV %50,B ;Put on line 5 D3D9: 8E C0 FD CALL C0FD D3DC: 0A RETS ------------------------------------------------------ D3DD: 52 08 MOV %08,B D3DF: AA 62 7E LDA @627E(B) D3E2: AD 62 91 CMPA @6291(B) D3E5: E6 02 JNZ D3E9 D3E7: CA F6 DJNZ B,D3DF D3E9: 0A RETS ------------------------------------------------------ D3EA: 22 AB MOV %AB,A D3EC: 8B 62 A4 STA 62A4 D3EF: 72 08 19 MOV %08,R19 D3F2: D5 1A CLR R1A D3F4: 52 08 MOV %08,B D3F6: 8E CB C3 CALL CBC3 D3F9: D9 52 POP R52 D3FB: D9 51 POP R51 D3FD: B5 CLR A D3FE: 8B 62 89 STA 6289 D401: 88 1A 5E 54 MOVD %1A5E,R54 D405: 8E D3 12 CALL D312 D408: F6 TRAP 9 D409: 7D 7F 30 CMP %7F,R30 D40C: E2 0E JZ D41C D40E: 12 1D MOV R1D,A D410: E2 0A JZ D41C D412: 12 33 MOV R33,A D414: 8E E6 B9 CALL E6B9 D417: E5 03 JGE D41C D419: 8C E1 8C BR E18C D41C: 12 1A MOV R1A,A D41E: 8D 62 89 CMPA 6289 D421: E6 DB JNZ D3FE D423: DB 54 DECD R54 D425: E3 DE JC D405 D427: D5 19 CLR R19 D429: 8C DD F0 BR DDF0 ------------------------------------------- D42C: 23 1F AND %1F,A D42E: B3 INC A D42F: D0 31 MOV A,R31 D431: B9 POP A D432: 8B 62 37 STA 6237 D435: B9 POP A D436: 8B 62 38 STA 6238 D439: 72 31 34 MOV %31,R34 D43C: 72 01 37 MOV %01,R37 D43F: 88 00 18 54 MOVD %0018,R54 D443: F6 TRAP 9 D444: F6 TRAP 9 D445: F6 TRAP 9 D446: F6 TRAP 9 D447: 7D FF 39 CMP %FF,R39 D44A: E2 07 JZ D453 D44C: DB 54 DECD R54 D44E: E3 F6 JC D446 D450: 8C D4 BD BR D4BD D453: D5 50 CLR R50 D455: 42 31 4C MOV R31,R4C D458: 8E E6 86 CALL E686 D45B: 42 4C 4E MOV R4C,R4E D45E: 72 09 30 MOV %09,R30 D461: DA 30 03 DJNZ R30,D467 D464: 8C D4 BD BR D4BD D467: 72 32 34 MOV %32,R34 D46A: 72 01 37 MOV %01,R37 D46D: F6 TRAP 9 D46E: 8A 67 F3 LDA 67F3 D471: E6 03 JNZ D476 D473: 8E E5 DE CALL E5DE D476: 76 80 37 06 BTJO %80,R37,D480 D47A: 76 10 37 E3 BTJO %10,R37,D461 D47E: E0 ED JMP D46D D480: 42 4E 34 MOV R4E,R34 D483: 73 F0 34 AND %F0,R34 D486: D7 34 SWAP R34 D488: 74 01 37 OR %01,R37 D48B: F6 TRAP 9 D48C: 8A 67 F3 LDA 67F3 D48F: E6 03 JNZ D494 D491: 8E E5 DE CALL E5DE D494: 76 40 37 06 BTJO %40,R37,D49E D498: 76 10 37 C5 BTJO %10,R37,D461 D49C: E0 ED JMP D48B D49E: 42 4E 34 MOV R4E,R34 D4A1: 73 0F 34 AND %0F,R34 D4A4: 74 80 34 OR %80,R34 D4A7: 74 01 37 OR %01,R37 D4AA: F6 TRAP 9 D4AB: 8A 67 F3 LDA 67F3 D4AE: E6 03 JNZ D4B3 D4B0: 8E E5 DE CALL E5DE D4B3: 76 20 37 0A BTJO %20,R37,D4C1 D4B7: 76 10 37 A6 BTJO %10,R37,D461 D4BB: E0 ED JMP D4AA D4BD: 52 FF MOV %FF,B D4BF: E0 01 JMP D4C2 D4C1: C5 CLR B D4C2: 8A 62 38 LDA 6238 D4C5: B8 PUSH A D4C6: 8A 62 37 LDA 6237 D4C9: B8 PUSH A D4CA: 0A RETS ------------------------------------------------------ ; ; Setup ; D4CB: EA TRAP 21 D4CC: 72 01 21 MOV %01,R21 D4CF: 72 C2 20 MOV %C2,R20 D4D2: 22 0F MOV %0F,A ;Blank screen character D4D4: EE TRAP 17 ;Fill display with A D4D5: F6 TRAP 9 D4D6: 88 EF D7 47 MOVD %EFD7,R47 ;1: INSTALLATION ;2: UNIT SETTINGS ;3: RATING CEILING ;4: RATING PASSWORD D4DA: C5 CLR B ;Put on line 1 D4DB: 8A 62 45 LDA 6245 ; D4DE: 72 14 10 MOV %14,R10 ;80 characters D4E1: 72 05 27 MOV %05,R27 ;5 LINES D4E4: 72 24 28 MOV %24,R28 ;digit '4' (for line 9) D4E7: 27 20 15 BTJZ R20,A,D4FF ;Test for PPV D4EA: 72 23 10 MOV %23,R10 ;Yes, 140 chars D4ED: 72 08 27 MOV %08,R27 ;8 lines D4F0: 72 27 28 MOV %27,R28 ;digit '7' (for line 9) D4F3: 27 08 09 BTJZ R08,A,D4FF D4F6: 72 28 10 MOV %28,R10 ;160 chars D4F9: 72 09 27 MOV %09,R27 ;9 lines D4FC: 72 28 28 MOV %28,R28 ;digit '8' (for line 9) D4FF: 8E C1 00 CALL C100 ;Display the menu D502: 88 F0 4F 47 MOVD %F04F,R47 ;( ENTER 1 TO ) D506: 8E C0 FB CALL C0FB ;display on line 9, 20 chars. D509: 12 28 MOV R28,A ;get the number for line 9 D50B: 52 AF MOV %AF,B ;postition it D50D: F3 TRAP 12 ;write it D50E: F6 TRAP 9 D50F: 22 01 MOV %01,A D511: EB TRAP 20 D512: 8A 62 7F LDA 627F D515: 1D 27 CMP R27,A D517: E3 B2 JC D4CB D519: C0 MOV A,B D51A: AA D5 23 LDA @D523(B) ;Table of setup functions D51D: B8 PUSH A D51E: AA D5 2D LDA @D52D(B) ;Table of setup functions D521: B8 PUSH A D522: 0A RETS ------------------------------------------- D523: D5 ;D537 ;SETUP 0 D7 ;D765 ;SETUP 1 D6 ;D60A ;SETUP 2 D6 ;D68F ;SETUP 3 D6 ;D699 ;SETUP 4 + 5 D6 ;D699 ;SETUP 4 + 5 EA ;EA53 ; D9 ;D935 ;SETUP 6 D9 ;D997 ; C3 ;C33D ;WARM START ???????? ; D52D: 37 ;D537 65 ;D765 0A ;D60A 8F ;D68F 99 ;D699 99 ;D699 53 ;EA53 35 ;D935 97 ;D997 3D ;C33D ------------------------------------------- ; ;SETUP 0 (Diagnostic display) ; D537: EA TRAP 21 D538: 72 08 21 MOV %08,R21 D53B: 22 0F MOV %0F,A ;Blank screen character D53D: EE TRAP 17 ;Fill display with A D53E: F6 TRAP 9 D53F: 52 14 MOV %14,B ;Line 2, col 1 D541: 88 ED F1 47 MOVD %EDF1,R47 ;"DIAGNOSTIC DATA" D545: 8E C0 FD CALL C0FD ;Display it D548: 22 2E MOV %2E,A D54A: 52 50 MOV %50,B D54C: 72 63 4D MOV %63,R4D D54F: 8E C1 79 CALL C179 D552: 88 06 97 54 MOVD %0697,R54 D556: EC TRAP 19 D557: F6 TRAP 9 D558: 72 01 10 MOV %01,R10 D55B: 88 C0 02 47 MOVD %C002,R47 ;"V3.0" D55F: 52 3D MOV %3D,B ;Line 3, col 1 D561: 8E C1 00 CALL C100 ;Display it D564: 88 61 F7 47 MOVD %61F7,R47 D568: 72 06 10 MOV %06,R10 D56B: 52 65 MOV %65,B D56D: 8E D8 E8 CALL D8E8 D570: 8A 67 F2 LDA 67F2 ;Stack Pointer D573: 52 76 MOV %76,B ;line 6, col 19 D575: EF TRAP 16 ; D576: F6 TRAP 9 D577: 88 62 3C 47 MOVD %623C,R47 D57B: 72 08 10 MOV %08,R10 ;32 chars D57E: 52 79 MOV %79,B ;line 7, col 2 D580: 8E D8 E8 CALL D8E8 D583: F6 TRAP 9 D584: 12 15 MOV R15,A D586: 52 8D MOV %8D,B D588: EF TRAP 16 D589: 8A 62 53 LDA 6253 D58C: F0 TRAP 15 D58D: 8A 62 48 LDA 6248 D590: 52 92 MOV %92,B D592: EF TRAP 16 D593: 8A 62 68 LDA 6268 D596: 52 97 MOV %97,B D598: EF TRAP 16 D599: 8A 62 69 LDA 6269 D59C: F0 TRAP 15 D59D: 12 06 MOV R06,A D59F: 52 9E MOV %9E,B D5A1: EF TRAP 16 D5A2: F6 TRAP 9 D5A3: 80 1C MOV P1C,A ;Read from U24 >011C D5A5: B8 PUSH A D5A6: 23 01 AND %01,A D5A8: 52 A1 MOV %A1,B D5AA: EF TRAP 16 D5AB: B9 POP A D5AC: BD RRC A D5AD: 52 A6 MOV %A6,B D5AF: EF TRAP 16 D5B0: 8A 62 4E LDA 624E D5B3: C0 MOV A,B D5B4: CE DAC B,A D5B5: C7 SWAP B D5B6: 53 03 AND %03,B D5B8: AA D6 01 LDA @D601(B) ;Get the 1st char of signal type (S,U,F,B) D5BB: 52 AB MOV %AB,B ;Write at position 172 D5BD: F3 TRAP 12 ;Write A @B in display memory D5BE: 32 1D MOV R1D,B D5C0: 53 7F AND %7F,B D5C2: AA D6 05 LDA @D605(B) ;Get the 2nd char of signal type (M,E,B,L,A) D5C5: F2 TRAP 13 D5C6: 52 AE MOV %AE,B D5C8: 8A 62 52 LDA 6252 D5CB: EF TRAP 16 D5CC: 8A 62 51 LDA 6251 D5CF: F0 TRAP 15 D5D0: 8A 62 50 LDA 6250 D5D3: F0 TRAP 15 D5D4: DB 54 DECD R54 D5D6: E7 26 JL D5FE D5D8: 12 19 MOV R19,A D5DA: E2 03 JZ D5DF D5DC: 8C D5 57 BR D557 D5DF: 12 1A MOV R1A,A D5E1: E2 03 JZ D5E6 D5E3: 8C D5 52 BR D552 D5E6: 88 62 41 47 MOVD %6241,R47 D5EA: 52 06 MOV %06,B D5EC: B5 CLR A D5ED: 9B 47 STA *R47 D5EF: DB 47 DECD R47 D5F1: CA FA DJNZ B,D5ED D5F3: 22 FF MOV %FF,A D5F5: 8B 62 42 STA 6242 D5F8: 8B 62 43 STA 6243 D5FB: 8C D5 3E BR D53E D5FE: 8C DD F0 BR DDF0 ------------------------------------------- D601: 15 17 05 01 ;"SUFB" (not packed) ------------------------------------------- ; D605: 0C 04 01 0B 00 ;"MEBLA" (not packed) ------------------------------------------ ; ; SETUP 2 - Unit Settings ; D60A: EA TRAP 21 D60B: 72 0B 21 MOV %0B,R21 D60E: 88 F3 CA 58 MOVD %F3CA,R58 ; AUDIO MODE IS ; ;( PRESS '1' FOR ) ; ; ; MESSAGE PROMPT IS ; ;( PRESS '2' TO ) ; D612: ED TRAP 18 D613: F6 TRAP 9 D614: 88 F0 8B 47 MOVD %F08B,R47 ;( PRIMARY ) D618: 52 14 MOV %14,B D61A: 8A 62 A2 LDA 62A2 D61D: 27 01 02 BTJZ R01,A,D622 D620: 52 3C MOV %3C,B D622: 8E C0 FD CALL C0FD D625: 52 3C MOV %3C,B D627: 88 F0 7C 47 MOVD %F07C,R47 ;( ALTERNATE ) D62B: 8A 62 A2 LDA 62A2 D62E: 27 01 02 BTJZ R01,A,D633 D631: 52 14 MOV %14,B D633: 8E C0 FD CALL C0FD D636: 22 1F MOV %1F,A D638: 52 3C MOV %3C,B D63A: F3 TRAP 12 D63B: 22 2F MOV %2F,A D63D: 52 4F MOV %4F,B D63F: F3 TRAP 12 D640: 8A 62 A2 LDA 62A2 D643: 27 02 0A BTJZ R02,A,D650 D646: 88 F0 C7 47 MOVD %F0C7,R47 ; DISABLED D64A: 88 F0 D6 58 MOVD %F0D6,R58 ;( ENABLE ) D64E: E0 08 JMP D658 D650: 88 F0 B8 47 MOVD %F0B8,R47 ; ENABLED D654: 88 F0 E5 58 MOVD %F0E5,R58 ;( DISABLE ) D658: 52 78 MOV %78,B D65A: 8E C0 FD CALL C0FD D65D: 98 58 47 MOVD R58,R47 D660: 52 A0 MOV %A0,B D662: 8E C0 FD CALL C0FD D665: 22 01 MOV %01,A D667: EB TRAP 20 D668: F6 TRAP 9 D669: 12 1A MOV R1A,A D66B: E6 03 JNZ D670 D66D: 8C D4 CB BR D4CB ; D670: 8A 62 7F LDA 627F D673: B2 DEC A D674: E2 0B JZ D681 D676: B2 DEC A D677: E2 02 JZ D67B D679: E0 ED JMP D668 D67B: 88 00 02 01 MOVD %0002,R01 D67F: E0 04 JMP D685 D681: 88 00 01 01 MOVD %0001,R01 D685: 8A 62 A2 LDA 62A2 D688: 65 XOR B,A D689: 8B 62 A2 STA 62A2 D68C: 8C D6 14 BR D614 ; ;Setup 3 - Rating Ceiling ; D68F: 8A 62 7E LDA 627E D692: C0 MOV A,B D693: 8E D2 5B CALL D25B D696: 8C D4 CB BR D4CB ; ;Setup 4 + 5 - Rating and purchase password ; D699: 5A 05 SUB %05,B D69B: D1 2B MOV B,R2B D69D: 72 03 2A MOV %03,R2A D6A0: EA TRAP 21 D6A1: 72 04 21 MOV %04,R21 D6A4: 88 F3 DC 58 MOVD %F3DC,R58 ; D6A8: 88 62 8A 47 MOVD %628A,R47 D6AC: 12 2B MOV R2B,A D6AE: E2 08 JZ D6B8 D6B0: 88 F4 00 58 MOVD %F400,R58 ; D6B4: 88 62 92 47 MOVD %6292,R47 D6B8: 9A 47 LDA *R47 D6BA: E1 2C JLT D6E8 D6BC: ED TRAP 18 D6BD: F6 TRAP 9 D6BE: 22 08 MOV %08,A D6C0: 52 AB MOV %AB,B D6C2: EB TRAP 20 D6C3: 12 2B MOV R2B,A D6C5: E6 05 JNZ D6CC D6C7: 8E E6 AC CALL E6AC D6CA: E0 03 JMP D6CF D6CC: 8E D3 DD CALL D3DD D6CF: E2 17 JZ D6E8 D6D1: 72 21 54 MOV %21,R54 D6D4: 88 F2 3E 47 MOVD %F23E,R47 D6D8: 8E C0 FB CALL C0FB D6DB: F6 TRAP 9 D6DC: DA 54 FC DJNZ R54,D6DB D6DF: DA 2A BE DJNZ R2A,D6A0 D6E2: 72 03 2A MOV %03,R2A D6E5: 8C E1 25 BR E125 ; ; D6E8: EA TRAP 21 D6E9: 72 0E 21 MOV %0E,R21 D6EC: 12 2B MOV R2B,A D6EE: E2 08 JZ D6F8 D6F0: 88 F4 12 58 MOVD %F412,R58 ; ENTER A NEW ; PROGRAM RATING ; PASSWORD ; ; ; 0-8 DIGITS ; PLUS 'ENTER' ; ;(PASSWORD: ) D6F4: ED TRAP 18 D6F5: F6 TRAP 9 D6F6: E0 06 JMP D6FE D6F8: 88 F3 EE 58 MOVD %F3EE,R58 ; ENTER A NEW ; PURCHASE PASSWORD ; ; ; ; ; 0-8 DIGITS ; PLUS 'ENTER' ; ;(PASSWORD: ) D6FC: ED TRAP 18 D6FD: F6 TRAP 9 D6FE: 22 08 MOV %08,A D700: 52 AB MOV %AB,B D702: EB TRAP 20 D703: 52 08 MOV %08,B D705: AA 62 7E LDA @627E(B) D708: AB 62 99 STA @6299(B) D70B: CA F8 DJNZ B,D705 D70D: EA TRAP 21 D70E: 72 04 21 MOV %04,R21 D711: 88 F4 24 58 MOVD %F424,R58 ; REENTER THE NEW ; PASSWORD ; FOR VERIFICATION ; ; ; 0-8 DIGITS ; PLUS ENTER ; ;(PASSWORD: ) D715: ED TRAP 18 D716: F6 TRAP 9 D717: 22 08 MOV %08,A D719: 52 AB MOV %AB,B D71B: EB TRAP 20 D71C: 52 08 MOV %08,B D71E: AA 62 7E LDA @627E(B) D721: AD 62 99 CMPA @6299(B) D724: E6 2C JNZ D752 D726: CA F6 DJNZ B,D71E D728: EA TRAP 21 D729: 72 04 21 MOV %04,R21 D72C: 52 08 MOV %08,B D72E: 12 2B MOV R2B,A D730: E6 10 JNZ D742 D732: AA 62 99 LDA @6299(B) D735: AB 62 89 STA @6289(B) D738: CA F8 DJNZ B,D732 D73A: 88 F4 36 58 MOVD %F436,R58 ; ; ; ; ; PASSWORD ; HAS BEEN CHANGED ; ; ; D73E: ED TRAP 18 D73F: F6 TRAP 9 D740: E0 19 JMP D75B D742: AA 62 99 LDA @6299(B) D745: AB 62 91 STA @6291(B) D748: CA F8 DJNZ B,D742 D74A: 88 F4 36 58 MOVD %F436,R58 ; ; ; ; ; PASSWORD ; HAS BEEN CHANGED ; ; ; D74E: ED TRAP 18 D74F: F6 TRAP 9 D750: E0 09 JMP D75B D752: EA TRAP 21 D753: 72 04 21 MOV %04,R21 D756: 88 F4 48 58 MOVD %F448,R58 ; ; ; ; THE NEW PASSWORDS ; WERE DIFFERENT ;PASSWORD NOT CHANGED ; ; ; D75A: ED TRAP 18 D75B: 72 2D 54 MOV %2D,R54 D75E: F6 TRAP 9 D75F: DA 54 FC DJNZ R54,D75E D762: 8C D4 CB BR D4CB ; ;Setup 1 - Installation ; D765: EA TRAP 21 D766: 72 00 21 MOV %00,R21 D769: 42 1D 28 MOV R1D,R28 D76C: 8A 62 45 LDA 6245 D76F: 23 10 AND %10,A D771: D0 29 MOV A,R29 D773: 88 F4 90 58 MOVD %F490,R58 ;UNIT: ; ;SIGNAL LEVEL: ; ;SERVICE ID: ; ;LOCATION: ; ; D777: ED TRAP 18 ;display 9 lines D778: 88 06 97 54 MOVD %0697,R54 D77C: F6 TRAP 9 D77D: F6 TRAP 9 D77E: DB 54 DECD R54 D780: E3 03 JC D785 D782: 8C DD F0 BR DDF0 ; D785: 88 62 55 47 MOVD %6255,R47 ;Serial number D789: 72 05 10 MOV %05,R10 ;5 bytes (XXXX XXXX XXxx) D78C: 52 06 MOV %06,B D78E: 8E D8 E8 CALL D8E8 ;Line 1 col 19 D791: 88 62 55 47 MOVD %6255,R47 D795: 72 05 10 MOV %05,R10 D798: 8E D9 11 CALL D911 D79B: F0 TRAP 15 D79C: F6 TRAP 9 D79D: 8A 62 3B LDA 623B D7A0: D0 4C MOV A,R4C D7A2: E6 14 JNZ D7B8 D7A4: D5 2B CLR R2B D7A6: 8E D8 6B CALL D86B D7A9: 72 07 10 MOV %07,R10 D7AC: 88 F3 B5 47 MOVD %F3B5,R47 ;": NO " D7B0: 52 34 MOV %34,B D7B2: 8E C1 00 CALL C100 D7B5: 8C D8 3F BR D83F D7B8: 12 2B MOV R2B,A D7BA: E6 0A JNZ D7C6 D7BC: 22 2E MOV %2E,A D7BE: 72 19 4D MOV %19,R4D D7C1: 52 36 MOV %36,B D7C3: 8E C1 79 CALL C179 D7C6: 42 4C 2B MOV R4C,R2B D7C9: D5 50 CLR R50 D7CB: 8E E6 86 CALL E686 D7CE: 12 4C MOV R4C,A D7D0: 52 36 MOV %36,B D7D2: 8E C0 E2 CALL C0E2 D7D5: 22 37 MOV %37,A D7D7: F2 TRAP 13 D7D8: 8A 62 3A LDA 623A D7DB: C0 MOV A,B D7DC: 8A 62 39 LDA 6239 D7DF: BD RRC A D7E0: CD RRC B D7E1: BD RRC A D7E2: CD RRC B D7E3: BD RRC A D7E4: CD RRC B D7E5: BD RRC A D7E6: CD RRC B D7E7: D1 4C MOV B,R4C D7E9: D5 50 CLR R50 D7EB: 8E E6 86 CALL E686 D7EE: 12 4C MOV R4C,A D7F0: 52 39 MOV %39,B D7F2: 8E C0 E2 CALL C0E2 D7F5: 52 3C MOV %3C,B D7F7: 88 F8 36 47 MOVD %F836,R47 ;blank line D7FB: 8E C0 FD CALL C0FD ;display 1 line D7FE: 4D 1D 28 CMP R1D,R28 D801: E6 0B JNZ D80E D803: 8A 62 45 LDA 6245 D806: 23 10 AND %10,A D808: 1D 29 CMP R29,A D80A: E2 08 JZ D814 D80C: D0 29 MOV A,R29 D80E: 42 1D 28 MOV R1D,R28 D811: 8E D8 6B CALL D86B D814: 12 29 MOV R29,A D816: E6 0E JNZ D826 ; D818: 88 F3 A3 47 MOVD %F3A3,R47 ;NONE D81C: 72 01 10 MOV %01,R10 ;4 chars D81F: 52 5C MOV %5C,B ;service id line D821: 8E C1 00 CALL C100 ;display D824: E0 10 JMP D836 D826: 8A 62 69 LDA 6269 ;Service ID D829: 52 5C MOV %5C,B ;line 5, col 13 D82B: EF TRAP 16 ;display service id D82C: 12 1D MOV R1D,A D82E: E6 0F JNZ D83F D830: 12 05 MOV R05,A D832: 23 F0 AND %F0,A D834: E6 09 JNZ D83F D836: 88 F3 A6 47 MOVD %F3A6,R47 ;" NEEDS AUTHORIZATION" D83A: 52 64 MOV %64,B ;line 6, col 1 D83C: 8E C0 FD CALL C0FD ;display it D83F: F6 TRAP 9 D840: 88 61 F6 58 MOVD %61F6,R58 D844: 52 06 MOV %06,B D846: 88 F3 97 47 MOVD %F397,R47 ;SET D84A: D5 2A CLR R2A D84C: D3 58 INC R58 D84E: 79 00 57 ADC %00,R57 D851: 9A 58 LDA *R58 D853: 44 00 2A OR R00,R2A D856: CA F4 DJNZ B,D84C D858: 12 2A MOV R2A,A D85A: E6 04 JNZ D860 ;It's set D85C: 88 F3 9D 47 MOVD %F39D,R47 ;NOT SET D860: 72 02 10 MOV %02,R10 ;8 chars D863: 52 82 MOV %82,B ; D865: 8E C1 00 CALL C100 D868: 8C D7 7C BR D77C ------------------------------------ D86B: 52 5C MOV %5C,B D86D: 22 2E MOV %2E,A D86F: 72 1B 4D MOV %1B,R4D D872: 8E C1 79 CALL C179 D875: 0A RETS -------------------------------------- D876: 12 22 MOV R22,A D878: E6 01 JNZ D87B D87A: 0A RETS --------------------------------------- D87B: 2A 46 SUB %46,A D87D: E5 02 JGE D881 D87F: 22 01 MOV %01,A D881: 8B 62 3B STA 623B D884: D0 22 MOV A,R22 D886: 8A 62 3A LDA 623A D889: C0 MOV A,B D88A: 8A 62 39 LDA 6239 D88D: D0 46 MOV A,R46 D88F: D1 47 MOV B,R47 D891: BD RRC A D892: CD RRC B D893: BD RRC A D894: CD RRC B D895: BD RRC A D896: CD RRC B D897: BD RRC A D898: CD RRC B D899: 4A 01 47 SUB R01,R47 D89C: 7B 00 46 SBB %00,R46 D89F: 48 22 47 ADD R22,R47 D8A2: 79 00 46 ADC %00,R46 D8A5: 12 47 MOV R47,A D8A7: 8B 62 3A STA 623A D8AA: 12 46 MOV R46,A D8AC: 8B 62 39 STA 6239 D8AF: D5 22 CLR R22 D8B1: 0A RETS D8B2: C2 DEC B D8B3: 22 2E MOV %2E,A D8B5: F3 TRAP 12 D8B6: C5 CLR B D8B7: 12 50 MOV R50,A D8B9: B7 SWAP A D8BA: 8E D8 D6 CALL D8D6 D8BD: 12 50 MOV R50,A D8BF: 8E D8 D6 CALL D8D6 D8C2: 12 4C MOV R4C,A D8C4: B7 SWAP A D8C5: 8E D8 D6 CALL D8D6 D8C8: 52 FF MOV %FF,B D8CA: 12 4C MOV R4C,A D8CC: 8E D8 D6 CALL D8D6 D8CF: 22 2D MOV %2D,A D8D1: F2 TRAP 13 D8D2: 12 4D MOV R4D,A D8D4: F0 TRAP 15 D8D5: 0A RETS ------------------------------------------ D8D6: 23 0F AND %0F,A D8D8: E6 03 JNZ D8DD D8DA: C1 TSTB D8DB: E2 05 JZ D8E2 D8DD: 52 FF MOV %FF,B D8DF: 28 20 ADD %20,A D8E1: F2 TRAP 13 D8E2: 0A RETS ----------------------------------------- D8E3: 72 04 4C MOV %04,R4C D8E6: E0 03 JMP D8EB ----------------------------------------- D8E8: 72 02 4C MOV %02,R4C D8EB: 42 4C 4D MOV R4C,R4D D8EE: 12 10 MOV R10,A D8F0: E6 01 JNZ D8F3 D8F2: 0A RETS ----------------------------------------- D8F3: 9A 47 LDA *R47 D8F5: EF TRAP 16 D8F6: D2 4D DEC R4D D8F8: D3 47 INC R47 D8FA: 79 00 46 ADC %00,R46 D8FD: D2 10 DEC R10 D8FF: E6 01 JNZ D902 D901: 0A RETS ------------------------------------ D902: 9A 47 LDA *R47 D904: F0 TRAP 15 D905: D2 4D DEC R4D D907: E6 EF JNZ D8F8 D909: 22 2E MOV %2E,A D90B: F2 TRAP 13 D90C: 42 4C 4D MOV R4C,R4D D90F: E0 E7 JMP D8F8 ----------------------------------- D911: 72 FF 4D MOV %FF,R4D D914: 9A 47 LDA *R47 D916: 52 08 MOV %08,B D918: 45 00 4D XOR R00,R4D D91B: 23 7F AND %7F,A D91D: 45 00 4D XOR R00,R4D D920: BE RL A D921: DE 4D RL R4D D923: E7 03 JL D928 D925: 75 9A 4D XOR %9A,R4D D928: CA EE DJNZ B,D918 D92A: D3 47 INC R47 D92C: 79 00 46 ADC %00,R46 D92F: DA 10 E2 DJNZ R10,D914 D932: 12 4D MOV R4D,A D934: 0A RETS ; ;Setup 6 - Account balance ; D935: EA TRAP 21 D936: 72 0C 21 MOV %0C,R21 D939: 22 0F MOV %0F,A ;Blank screen character D93B: EE TRAP 17 ;Fill display with A D93C: F6 TRAP 9 D93D: 52 50 MOV %50,B D93F: 88 EE C9 47 MOVD %EEC9,R47 ;"INFORMATION" D943: 72 0F 10 MOV %0F,R10 D946: 12 1D MOV R1D,A D948: E2 34 JZ D97E D94A: E1 32 JLT D97E D94C: 88 EE F6 47 MOVD %EEF6,R47 ; PROGRAMS ARE NOT D950: 72 0A 10 MOV %0A,R10 D953: 32 0F MOV R0F,B D955: F5 TRAP 10 D956: AA 61 1B LDA @611B(B) D959: 52 64 MOV %64,B D95B: B0 CLCR D95C: E2 20 JZ D97E D95E: 88 EF 23 47 MOVD %EF23,R47 ; YOU MUST OPEN D962: 72 0F 10 MOV %0F,R10 D965: 52 50 MOV %50,B D967: 8A 62 6B LDA 626B D96A: E2 12 JZ D97E D96C: 88 EF 14 47 MOVD %EF14,R47 ; YOU ARE ABLE D970: 52 64 MOV %64,B D972: 8E C0 FD CALL C0FD D975: 88 EF 41 47 MOVD %EF41,R47 ;TO PURCHASE PROGRAMS D979: 52 78 MOV %78,B D97B: 72 05 10 MOV %05,R10 D97E: 8E C1 00 CALL C100 D981: 88 EF 50 47 MOVD %EF50,R47 ; ON THIS CHANNEL D985: 72 05 10 MOV %05,R10 D988: 8E C1 1A CALL C11A D98B: 88 00 E1 54 MOVD %00E1,R54 D98F: F6 TRAP 9 D990: DB 54 DECD R54 D992: E3 FB JC D98F D994: 8C D4 CB BR D4CB --------------------------------------------- D997: EA TRAP 21 D998: 72 10 21 MOV %10,R21 D99B: 88 F4 5A 58 MOVD %F45A,R58 ; ;CREDIT: ; ; ;CREDIT VERIFICATION: ; ; ; ; D99F: ED TRAP 18 D9A0: F6 TRAP 9 D9A1: 8E E6 3F CALL E63F D9A4: 8E E6 86 CALL E686 D9A7: 52 1C MOV %1C,B D9A9: 8E D8 B2 CALL D8B2 D9AC: F6 TRAP 9 D9AD: 88 62 5D 47 MOVD %625D,R47 D9B1: 72 08 10 MOV %08,R10 D9B4: 52 78 MOV %78,B D9B6: 8E D8 E8 CALL D8E8 D9B9: 8A 62 66 LDA 6266 D9BC: F0 TRAP 15 D9BD: 8A 62 67 LDA 6267 D9C0: F0 TRAP 15 D9C1: 22 2E MOV %2E,A D9C3: F2 TRAP 13 D9C4: 88 62 5D 47 MOVD %625D,R47 D9C8: 72 08 10 MOV %08,R10 D9CB: 8E D9 11 CALL D911 D9CE: 88 62 66 47 MOVD %6266,R47 D9D2: 72 02 10 MOV %02,R10 D9D5: 8E D9 14 CALL D914 D9D8: F0 TRAP 15 D9D9: 88 1A 5E 54 MOVD %1A5E,R54 D9DD: F6 TRAP 9 D9DE: DB 54 DECD R54 D9E0: E3 FB JC D9DD D9E2: 8C DD F0 BR DDF0 ; ;Text ; D9E5: EA TRAP 21 D9E6: 72 05 21 MOV %05,R21 D9E9: B5 CLR A D9EA: 8B 62 A9 STA 62A9 D9ED: 8B 62 AA STA 62AA D9F0: 8B 62 AB STA 62AB D9F3: 22 FF MOV %FF,A D9F5: 8B 63 3A STA 633A D9F8: 8B 63 39 STA 6339 D9FB: 72 47 20 MOV %47,R20 D9FE: 22 0F MOV %0F,A ;Blank screen character DA00: EE TRAP 17 ;Fill display with A DA01: F6 TRAP 9 DA02: 72 FF 2C MOV %FF,R2C DA05: B5 CLR A DA06: D0 29 MOV A,R29 DA08: 88 DA 47 5E MOVD %DA47,R5E DA0C: 72 05 21 MOV %05,R21 DA0F: 8E DB B7 CALL DBB7 DA12: 8E DB 1F CALL DB1F DA15: 88 1A 5E 54 MOVD %1A5E,R54 DA19: 52 AC MOV %AC,B DA1B: 8E DB 99 CALL DB99 DA1E: DB 54 DECD R54 DA20: E7 0C JL DA2E DA22: 8A 63 3A LDA 633A DA25: E6 0A JNZ DA31 DA27: 8A 63 3B LDA 633B DA2A: E2 27 JZ DA53 DA2C: E0 03 JMP DA31 DA2E: 8C DD F0 BR DDF0 DA31: EC TRAP 19 DA32: F6 TRAP 9 DA33: 76 01 19 E2 BTJO %01,R19,DA19 DA37: 77 01 1A DE BTJZ %01,R1A,DA19 DA3B: 22 0C MOV %0C,A DA3D: 8D 62 7F CMPA 627F DA40: E6 D7 JNZ DA19 DA42: 8A 62 AB LDA 62AB DA45: E0 2D JMP DA74 DA47: 72 05 21 MOV %05,R21 DA4A: 76 80 2C BA BTJO %80,R2C,DA08 DA4E: 8A 62 AA LDA 62AA DA51: E0 B3 JMP DA06 DA53: D5 2C CLR R2C DA55: 12 29 MOV R29,A DA57: 8B 62 AA STA 62AA DA5A: 22 2E MOV %2E,A DA5C: 8E C1 70 CALL C170 DA5F: F6 TRAP 9 DA60: 88 63 39 58 MOVD %6339,R58 DA64: 8E C1 8A CALL C18A DA67: F6 TRAP 9 DA68: 8A 63 3D LDA 633D DA6B: 8B 62 A9 STA 62A9 DA6E: 8A 63 3C LDA 633C DA71: 8B 62 AB STA 62AB DA74: D0 29 MOV A,R29 DA76: D5 2B CLR R2B DA78: 8E DB 1F CALL DB1F DA7B: 88 DA 47 5E MOVD %DA47,R5E DA7F: 88 F2 02 47 MOVD %F202,R47 ;( <, >, PAGE NUMBER) DA83: 8E C0 FB CALL C0FB DA86: F6 TRAP 9 DA87: 52 03 MOV %03,B DA89: B5 CLR A DA8A: AB 62 A4 STA @62A4(B) DA8D: CA FB DJNZ B,DA8A DA8F: D5 2A CLR R2A DA91: 88 1A 5E 54 MOVD %1A5E,R54 DA95: 76 FF 2B 0C BTJO %FF,R2B,DAA5 DA99: 8A 63 3A LDA 633A DA9C: E6 07 JNZ DAA5 DA9E: 8A 63 3B LDA 633B DAA1: E6 02 JNZ DAA5 DAA3: D3 2B INC R2B DAA5: EC TRAP 19 DAA6: F6 TRAP 9 DAA7: 76 01 19 06 BTJO %01,R19,DAB1 DAAB: 76 01 1A 09 BTJO %01,R1A,DAB8 DAAF: E0 E0 JMP DA91 DAB1: DB 54 DECD R54 DAB3: E3 E0 JC DA95 DAB5: 8C DD F0 BR DDF0 DAB8: 8A 62 7F LDA 627F DABB: 2D 0C CMP %0C,A DABD: E6 06 JNZ DAC5 DABF: 32 2A MOV R2A,B DAC1: E2 CE JZ DA91 DAC3: E0 24 JMP DAE9 DAC5: 2D 0A CMP %0A,A DAC7: E7 14 JL DADD DAC9: 76 FF 2A C4 BTJO %FF,R2A,DA91 DACD: 2D 0B CMP %0B,A DACF: E2 06 JZ DAD7 DAD1: 8A 62 AB LDA 62AB DAD4: 8C DA 06 BR DA06 DAD7: 8A 62 A9 LDA 62A9 DADA: 8C DA 06 BR DA06 DADD: 12 2A MOV R2A,A DADF: E6 08 JNZ DAE9 DAE1: 88 F1 A8 47 MOVD %F1A8,R47 ;( PAGE: ) DAE5: 8E C0 FB CALL C0FB DAE8: F6 TRAP 9 DAE9: 8E DB 32 CALL DB32 DAEC: 32 27 MOV R27,B DAEE: E6 0B JNZ DAFB DAF0: 32 2A MOV R2A,B DAF2: E2 15 JZ DB09 DAF4: 5D 03 CMP %03,B DAF6: E2 17 JZ DB0F DAF8: 8C DA 91 BR DA91 DAFB: 72 21 54 MOV %21,R54 DAFE: 88 F1 B7 47 MOVD %F1B7,R47 ;( NUMBER TOO LARGE ) DB02: 8E C0 FB CALL C0FB DB05: F6 TRAP 9 DB06: DA 54 FC DJNZ R54,DB05 DB09: 8A 62 AB LDA 62AB DB0C: 8C DA 74 BR DA74 DB0F: D5 2A CLR R2A DB11: 12 28 MOV R28,A DB13: 76 80 2C 05 BTJO %80,R2C,DB1C DB17: 8D 62 AA CMPA 62AA DB1A: E2 ED JZ DB09 DB1C: 8C DA 06 BR DA06 DB1F: 8A 63 39 LDA 6339 DB22: 4D 00 29 CMP R00,R29 DB25: E2 0A JZ DB31 DB27: 12 29 MOV R29,A DB29: 8B 63 39 STA 6339 DB2C: 22 FF MOV %FF,A DB2E: 8B 63 3A STA 633A DB31: 0A RETS DB32: 22 0C MOV %0C,A DB34: 8D 62 7F CMPA 627F DB37: E6 0D JNZ DB46 DB39: 12 2A MOV R2A,A DB3B: E2 27 JZ DB64 DB3D: D2 2A DEC R2A DB3F: 22 2E MOV %2E,A DB41: 32 2A MOV R2A,B DB43: E6 17 JNZ DB5C DB45: 0A RETS DB46: 72 FF 27 MOV %FF,R27 DB49: 8E DB 65 CALL DB65 DB4C: 32 27 MOV R27,B DB4E: E6 14 JNZ DB64 DB50: 32 2A MOV R2A,B DB52: 8A 62 7F LDA 627F DB55: AB 62 A5 STA @62A5(B) DB58: 28 20 ADD %20,A DB5A: D3 2A INC R2A DB5C: 58 A9 ADD %A9,B DB5E: F3 TRAP 12 DB5F: D5 27 CLR R27 DB61: 8E DB 65 CALL DB65 DB64: 0A RETS DB65: 32 2A MOV R2A,B DB67: 77 FF 27 0A BTJZ %FF,R27,DB75 DB6B: D5 27 CLR R27 DB6D: 8A 62 7F LDA 627F DB70: D0 28 MOV A,R28 DB72: C1 TSTB DB73: E0 06 JMP DB7B DB75: AA 62 A4 LDA @62A4(B) DB78: D0 28 MOV A,R28 DB7A: C2 DEC B DB7B: E2 1B JZ DB98 DB7D: C8 PUSH B DB7E: AA 62 A4 LDA @62A4(B) DB81: 2C 0A MPY %0A,A DB83: 48 01 28 ADD R01,R28 DB86: 49 00 27 ADC R00,R27 DB89: C9 POP B DB8A: C2 DEC B DB8B: E2 0B JZ DB98 DB8D: AA 62 A4 LDA @62A4(B) DB90: 2C 64 MPY %64,A DB92: 48 01 28 ADD R01,R28 DB95: 49 00 27 ADC R00,R27 DB98: 0A RETS DB99: 8A 62 50 LDA 6250 DB9C: 4D 00 2F CMP R00,R2F DB9F: E2 12 JZ DBB3 DBA1: D0 2F MOV A,R2F DBA3: 38 2E ADD R2E,B DBA5: 22 2E MOV %2E,A DBA7: F3 TRAP 12 DBA8: D3 2E INC R2E DBAA: 7D 05 2E CMP %05,R2E DBAD: E3 05 JC DBB4 DBAF: C3 INC B DBB0: 22 2D MOV %2D,A DBB2: F3 TRAP 12 DBB3: 0A RETS DBB4: D5 2E CLR R2E DBB6: 0A RETS DBB7: 88 F1 A8 47 MOVD %F1A8,R47 ;( PAGE: ) DBBB: 8E C0 FB CALL C0FB DBBE: 52 A9 MOV %A9,B DBC0: 8E DB C4 CALL DBC4 DBC3: 0A RETS DBC4: 42 29 27 MOV R29,R27 DBC7: 22 1F MOV %1F,A DBC9: B3 INC A DBCA: 7A 64 27 SUB %64,R27 DBCD: E3 FA JC DBC9 DBCF: F3 TRAP 12 DBD0: 78 64 27 ADD %64,R27 DBD3: 22 1F MOV %1F,A DBD5: B3 INC A DBD6: 7A 0A 27 SUB %0A,R27 DBD9: E3 FA JC DBD5 DBDB: F2 TRAP 13 DBDC: 78 2A 27 ADD %2A,R27 DBDF: 12 27 MOV R27,A DBE1: F2 TRAP 13 DBE2: 0A RETS DBE3: 22 0F MOV %0F,A ;Blank screen character DBE5: EE TRAP 17 ;Fill display with A DBE6: F6 TRAP 9 DBE7: 74 60 20 OR %60,R20 DBEA: 73 40 1F AND %40,R1F DBED: 8A 62 4D LDA 624D DBF0: 23 1F AND %1F,A DBF2: B3 INC A DBF3: D0 31 MOV A,R31 DBF5: D0 32 MOV A,R32 DBF7: 8A 62 3D LDA 623D DBFA: D0 30 MOV A,R30 DBFC: B5 CLR A DBFD: 8B 61 E1 STA 61E1 DC00: 72 05 13 MOV %05,R13 DC03: 88 00 30 54 MOVD %0030,R54 DC07: F6 TRAP 9 DC08: 7D 03 13 CMP %03,R13 DC0B: E3 06 JC DC13 DC0D: DB 54 DECD R54 DC0F: E3 F6 JC DC07 DC11: E0 22 JMP DC35 DC13: 88 1C 20 54 MOVD %1C20,R54 DC17: 8A 67 F3 LDA 67F3 DC1A: E2 04 JZ DC20 DC1C: 88 00 F0 54 MOVD %00F0,R54 DC20: F6 TRAP 9 DC21: 8A 61 E1 LDA 61E1 DC24: E2 03 JZ DC29 DC26: 8C DC 9F BR DC9F DC29: 8A 62 3D LDA 623D DC2C: 4D 00 30 CMP R00,R30 DC2F: E6 F5 JNZ DC26 DC31: DB 54 DECD R54 DC33: E3 EB JC DC20 DC35: 72 FF 23 MOV %FF,R23 DC38: D3 23 INC R23 DC3A: 7D 03 23 CMP %03,R23 DC3D: E2 60 JZ DC9F DC3F: 72 32 34 MOV %32,R34 DC42: 72 01 37 MOV %01,R37 DC45: F6 TRAP 9 DC46: 76 80 37 06 BTJO %80,R37,DC50 DC4A: 76 10 37 EA BTJO %10,R37,DC38 DC4E: E0 F5 JMP DC45 DC50: 42 31 4C MOV R31,R4C DC53: D5 50 CLR R50 DC55: 8E E6 86 CALL E686 DC58: 42 4C 34 MOV R4C,R34 DC5B: 73 F0 34 AND %F0,R34 DC5E: D7 34 SWAP R34 DC60: 74 01 37 OR %01,R37 DC63: F6 TRAP 9 DC64: 76 40 37 06 BTJO %40,R37,DC6E DC68: 76 10 37 CC BTJO %10,R37,DC38 DC6C: E0 F5 JMP DC63 DC6E: 42 31 4C MOV R31,R4C DC71: D5 50 CLR R50 DC73: 8E E6 86 CALL E686 DC76: 42 4C 34 MOV R4C,R34 DC79: 73 0F 34 AND %0F,R34 DC7C: 74 80 34 OR %80,R34 DC7F: 74 01 37 OR %01,R37 DC82: F6 TRAP 9 DC83: 76 20 37 06 BTJO %20,R37,DC8D DC87: 76 10 37 AD BTJO %10,R37,DC38 DC8B: E0 F5 JMP DC82 DC8D: D3 31 INC R31 DC8F: 7D 21 31 CMP %21,R31 DC92: E6 03 JNZ DC97 DC94: 72 01 31 MOV %01,R31 DC97: 4D 31 32 CMP R31,R32 DC9A: E2 03 JZ DC9F DC9C: 8C DC 00 BR DC00 DC9F: F6 TRAP 9 DCA0: E0 FD JMP DC9F ; ;View ; DCA2: EA TRAP 21 DCA3: 72 08 21 MOV %08,R21 DCA6: F6 TRAP 9 DCA7: 8E E0 E5 CALL E0E5 DCAA: E1 07 JLT DCB3 DCAC: 8E E0 C4 CALL E0C4 DCAF: 23 7F AND %7F,A DCB1: 9B 58 STA *R58 DCB3: 73 60 20 AND %60,R20 DCB6: D5 1F CLR R1F DCB8: EA TRAP 21 DCB9: 8E E9 A7 CALL E9A7 DCBC: 8E DE D8 CALL DED8 DCBF: F6 TRAP 9 DCC0: F6 TRAP 9 DCC1: F6 TRAP 9 DCC2: 7D 80 35 CMP %80,R35 DCC5: E6 05 JNZ DCCC DCC7: 74 60 20 OR %60,R20 DCCA: E0 F5 JMP DCC1 DCCC: 8A 62 A2 LDA 62A2 DCCF: 26 02 18 BTJO %02,A,DCEA DCD2: 8E DE A8 CALL DEA8 DCD5: E1 05 JLT DCDC DCD7: 8E DE 63 CALL DE63 DCDA: E0 E5 JMP DCC1 DCDC: 8E E0 E0 CALL E0E0 DCDF: E1 09 JLT DCEA DCE1: 9A 58 LDA *R58 DCE3: 24 80 OR %80,A DCE5: 9B 58 STA *R58 DCE7: 8E DE 30 CALL DE30 DCEA: F6 TRAP 9 DCEB: 77 20 1F 03 BTJZ %20,R1F,DCF2 DCEF: 8C DD 25 BR DD25 DCF2: 12 15 MOV R15,A DCF4: 23 60 AND %60,A DCF6: 8D 62 A3 CMPA 62A3 DCF9: E2 06 JZ DD01 DCFB: 8B 62 A3 STA 62A3 DCFE: 73 FB 1F AND %FB,R1F DD01: 76 80 1D 0E BTJO %80,R1D,DD13 DD05: 77 FF 1E 1C BTJZ %FF,R1E,DD25 DD09: 76 07 1D 02 BTJO %07,R1D,DD0F DD0D: E0 16 JMP DD25 DD0F: 76 04 1F 12 BTJO %04,R1F,DD25 DD13: 32 1D MOV R1D,B DD15: 53 07 AND %07,B DD17: 5D 04 CMP %04,B DD19: E6 04 JNZ DD1F DD1B: 76 01 1F 06 BTJO %01,R1F,DD25 DD1F: 74 05 1F OR %05,R1F DD22: 8C E1 8C BR E18C DD25: 7D 01 1D CMP %01,R1D DD28: E2 4C JZ DD76 DD2A: 8A 62 46 LDA 6246 DD2D: E6 47 JNZ DD76 DD2F: 8A 62 B7 LDA 62B7 DD32: E6 4B JNZ DD7F DD34: 8A 62 B8 LDA 62B8 DD37: E2 3D JZ DD76 DD39: 8A 61 E5 LDA 61E5 DD3C: E2 38 JZ DD76 DD3E: 8D 62 53 CMPA 6253 DD41: E6 33 JNZ DD76 DD43: 8A 62 B5 LDA 62B5 DD46: 26 80 2D BTJO %80,A,DD76 DD49: 8A 62 50 LDA 6250 DD4C: D0 27 MOV A,R27 DD4E: 8A 62 51 LDA 6251 DD51: D0 28 MOV A,R28 DD53: 8A 62 52 LDA 6252 DD56: D0 29 MOV A,R29 DD58: 8A 61 F3 LDA 61F3 DD5B: D0 2A MOV A,R2A DD5D: 8A 61 F4 LDA 61F4 DD60: D0 2B MOV A,R2B DD62: 8A 61 F5 LDA 61F5 DD65: D0 2C MOV A,R2C DD67: 8E DE 0A CALL DE0A DD6A: E5 1C JGE DD88 DD6C: 8E DE 14 CALL DE14 DD6F: E2 17 JZ DD88 DD71: 22 80 MOV %80,A DD73: 8B 62 B5 STA 62B5 DD76: 77 40 1F 05 BTJZ %40,R1F,DD7F DD7A: D5 20 CLR R20 DD7C: 8C DC B8 BR DCB8 DD7F: 76 40 1F 02 BTJO %40,R1F,DD85 DD83: D5 20 CLR R20 DD85: 8C DC C1 BR DCC1 DD88: 8A 62 B9 LDA 62B9 DD8B: E6 F2 JNZ DD7F DD8D: 8A 62 BA LDA 62BA DD90: E6 ED JNZ DD7F DD92: 8E DD FA CALL DDFA DD95: 8E DE 0A CALL DE0A DD98: E5 DC JGE DD76 DD9A: D5 20 CLR R20 DD9C: 8A 61 EF LDA 61EF DD9F: 27 08 03 BTJZ R08,A,DDA5 DDA2: 74 20 20 OR %20,R20 DDA5: 26 02 03 BTJO %02,A,DDAB DDA8: 74 40 20 OR %40,R20 DDAB: 8A 62 B8 LDA 62B8 DDAE: 8D 62 B6 CMPA 62B6 DDB1: E6 08 JNZ DDBB DDB3: 76 20 1F BF BTJO %20,R1F,DD76 DDB7: 76 40 1F 30 BTJO %40,R1F,DDEB DDBB: 73 DF 1F AND %DF,R1F DDBE: 8B 62 B6 STA 62B6 DDC1: F6 TRAP 9 DDC2: 8E DE D8 CALL DED8 DDC5: F6 TRAP 9 DDC6: 88 62 B8 58 MOVD %62B8,R58 DDCA: 8E C1 8A CALL C18A DDCD: 8A 61 EF LDA 61EF DDD0: 27 10 0C BTJZ R10,A,DDDF DDD3: 52 A5 MOV %A5,B DDD5: 88 62 55 47 MOVD %6255,R47 DDD9: 72 04 10 MOV %04,R10 DDDC: 8E D8 E8 CALL D8E8 DDDF: 74 40 1F OR %40,R1F DDE2: 8E DE 14 CALL DE14 DDE5: E2 8A JZ DD71 DDE7: 88 08 CA 54 MOVD %08CA,R54 DDEB: F6 TRAP 9 DDEC: DB 54 DECD R54 DDEE: E3 8F JC DD7F DDF0: D5 19 CLR R19 DDF2: 74 20 1F OR %20,R1F DDF5: D5 20 CLR R20 DDF7: 8C DC B8 BR DCB8 DDFA: 8A 61 F0 LDA 61F0 DDFD: D0 2A MOV A,R2A DDFF: 8A 61 F1 LDA 61F1 DE02: D0 2B MOV A,R2B DE04: 8A 61 F2 LDA 61F2 DE07: D0 2C MOV A,R2C DE09: 0A RETS DE0A: 4A 27 2A SUB R27,R2A DE0D: 4B 28 2B SBB R28,R2B DE10: 4B 29 2C SBB R29,R2C DE13: 0A RETS DE14: 52 FF MOV %FF,B DE16: 8A 61 F0 LDA 61F0 DE19: 8D 61 F3 CMPA 61F3 DE1C: E6 11 JNZ DE2F DE1E: 8A 61 F1 LDA 61F1 DE21: 8D 61 F4 CMPA 61F4 DE24: E6 09 JNZ DE2F DE26: 8A 61 F2 LDA 61F2 DE29: 8D 61 F5 CMPA 61F5 DE2C: E6 01 JNZ DE2F DE2E: C5 CLR B DE2F: 0A RETS DE30: B9 POP A DE31: 8B 62 37 STA 6237 DE34: B9 POP A DE35: 8B 62 38 STA 6238 DE38: D5 20 CLR R20 DE3A: 77 40 1F 04 BTJZ %40,R1F,DE42 DE3E: 8E DE D8 CALL DED8 DE41: F6 TRAP 9 DE42: 72 04 28 MOV %04,R28 DE45: 22 36 MOV %36,A DE47: 77 01 28 02 BTJZ %01,R28,DE4D DE4B: 22 0F MOV %0F,A DE4D: 52 13 MOV %13,B DE4F: F3 TRAP 12 DE50: 72 07 54 MOV %07,R54 DE53: F6 TRAP 9 DE54: DA 54 FC DJNZ R54,DE53 DE57: DA 28 EB DJNZ R28,DE45 DE5A: 8A 62 38 LDA 6238 DE5D: B8 PUSH A DE5E: 8A 62 37 LDA 6237 DE61: B8 PUSH A DE62: 0A RETS DE63: B9 POP A DE64: 8B 62 37 STA 6237 DE67: B9 POP A DE68: 8B 62 38 STA 6238 DE6B: D5 20 CLR R20 DE6D: 77 40 1F 04 BTJZ %40,R1F,DE75 DE71: 8E DE D8 CALL DED8 DE74: F6 TRAP 9 DE75: 9A 58 LDA *R58 DE77: C0 MOV A,B DE78: B5 CLR A DE79: 9B 58 STA *R58 DE7B: DB 58 DECD R58 DE7D: 9A 58 LDA *R58 DE7F: 24 80 OR %80,A DE81: 9B 58 STA *R58 DE83: 7A 02 58 SUB %02,R58 DE86: 7B 00 57 SBB %00,R57 DE89: 5C 18 MPY %18,B DE8B: 98 01 54 MOVD R01,R54 DE8E: D3 54 INC R54 DE90: 79 00 53 ADC %00,R53 DE93: 8E C1 8A CALL C18A DE96: F6 TRAP 9 DE97: DB 54 DECD R54 DE99: E3 FB JC DE96 DE9B: 8E DE D8 CALL DED8 DE9E: F6 TRAP 9 DE9F: 8A 62 38 LDA 6238 DEA2: B8 PUSH A DEA3: 8A 62 37 LDA 6237 DEA6: B8 PUSH A DEA7: 0A RETS DEA8: 72 05 29 MOV %05,R29 DEAB: 8A 65 C7 LDA 65C7 DEAE: DA 29 02 DJNZ R29,DEB3 DEB1: E0 19 JMP DECC DEB3: D0 28 MOV A,R28 DEB5: 8E E0 C4 CALL E0C4 DEB8: 23 0F AND %0F,A DEBA: E6 09 JNZ DEC5 DEBC: D3 58 INC R58 DEBE: 79 00 57 ADC %00,R57 DEC1: 9A 58 LDA *R58 DEC3: E6 10 JNZ DED5 DEC5: 12 28 MOV R28,A DEC7: 8D 65 C6 CMPA 65C6 DECA: E6 03 JNZ DECF DECC: 22 FF MOV %FF,A DECE: 0A RETS DECF: C0 MOV A,B DED0: AA 65 BE LDA @65BE(B) DED3: E0 D9 JMP DEAE DED5: 12 28 MOV R28,A DED7: 0A RETS DED8: 22 0F MOV %0F,A ;Blank screen character DEDA: EE TRAP 17 ;Fill display with A DEDB: 73 BF 1F AND %BF,R1F DEDE: 7D 83 35 CMP %83,R35 DEE1: E6 08 JNZ DEEB DEE3: D2 35 DEC R35 DEE5: 72 30 34 MOV %30,R34 DEE8: 72 01 37 MOV %01,R37 DEEB: 0A RETS ; ;Command >09 ; DEEC: 32 08 MOV R08,B ;Pointer to ID# in buffer DEEE: 8A 62 57 LDA 6257 ;ID# (xxxx XXxx xxxx) DEF1: AD 60 03 CMPA @6003(B) ; ^^ DEF4: E2 03 JZ DEF9 ;Same, continue DEF6: 8C C3 96 BR C396 ;No, exit DEF9: 8A 62 56 LDA 6256 ;ID# (xxXX xxxx xxxx) DEFC: AD 60 04 CMPA @6004(B) ; ^^ DEFF: E6 F5 JNZ DEF6 ;No, exit DF01: 8A 62 55 LDA 6255 ;ID# (XXxx xxxx xxxx) DF04: AD 60 05 CMPA @6005(B) ^^ DF07: E6 ED JNZ DEF6 ;No, exit DF09: AA 60 28 LDA @6028(B) DF0C: 8D 62 69 CMPA 6269 ;Service ID DF0F: E6 E5 JNZ DEF6 ;Not same, exit DF11: AA 60 06 LDA @6006(B) DF14: 2D 04 CMP %04,A DF16: E3 DE JC DEF6 ;No, exit DF18: 2C 81 MPY %81,A DF1A: 88 63 BA 5A MOVD %63BA,R5A DF1E: 48 01 5A ADD R01,R5A DF21: 49 00 59 ADC R00,R59 DF24: 9A 5A LDA *R5A DF26: 32 08 MOV R08,B DF28: AA 60 07 LDA @6007(B) ;Status byte ?? DF2B: 9D 5A CMPA *R5A DF2D: E2 74 JZ DFA3 DF2F: 9B 5A STA *R5A DF31: 27 40 08 BTJZ R40,A,DF3C DF34: 22 FF MOV %FF,A DF36: 8B 62 92 STA 6292 DF39: 8B 62 8A STA 628A DF3C: 22 FF MOV %FF,A DF3E: D3 5A INC R5A DF40: 79 00 59 ADC %00,R59 DF43: 9B 5A STA *R5A DF45: DB 5A DECD R5A DF47: 32 08 MOV R08,B DF49: 58 07 ADD %07,B DF4B: 8E D0 1B CALL D01B DF4E: 8A 62 AC LDA 62AC DF51: 26 0F 49 BTJO %0F,A,DF9D DF54: 32 08 MOV R08,B DF56: 58 05 ADD %05,B DF58: AA 60 01 LDA @6001(B) DF5B: 8D 65 C6 CMPA 65C6 DF5E: E2 3D JZ DF9D DF60: 8D 65 C7 CMPA 65C7 DF63: E6 09 JNZ DF6E DF65: C0 MOV A,B DF66: AA 65 BE LDA @65BE(B) DF69: 8B 65 C7 STA 65C7 DF6C: E0 22 JMP DF90 DF6E: D0 0A MOV A,R0A DF70: 32 0A MOV R0A,B DF72: AA 65 C2 LDA @65C2(B) DF75: B8 PUSH A DF76: 32 0A MOV R0A,B DF78: AA 65 BE LDA @65BE(B) DF7B: C9 POP B DF7C: AB 65 BE STA @65BE(B) DF7F: 32 0A MOV R0A,B DF81: AA 65 BE LDA @65BE(B) DF84: B8 PUSH A DF85: 32 0A MOV R0A,B DF87: AA 65 C2 LDA @65C2(B) DF8A: C9 POP B DF8B: AB 65 C2 STA @65C2(B) DF8E: 32 0A MOV R0A,B DF90: 8A 65 C6 LDA 65C6 DF93: AB 65 C2 STA @65C2(B) DF96: B6 XCHB A DF97: AB 65 BE STA @65BE(B) DF9A: 8B 65 C6 STA 65C6 DF9D: 8E D0 A8 CALL D0A8 DFA0: 8C C3 96 BR C396 DFA3: D3 5A INC R5A DFA5: 79 00 59 ADC %00,R59 DFA8: 9A 5A LDA *R5A DFAA: C0 MOV A,B DFAB: D3 5A INC R5A DFAD: 79 00 59 ADC %00,R59 DFB0: 9A 5A LDA *R5A DFB2: 7A 02 5A SUB %02,R5A DFB5: 7B 00 59 SBB %00,R59 DFB8: C1 TSTB DFB9: E6 8C JNZ DF47 DFBB: 26 0F 89 BTJO %0F,A,DF47 DFBE: 8C C3 96 BR C396 ; ;Message ; DFC1: EA TRAP 21 DFC2: 72 80 21 MOV %80,R21 DFC5: 22 0F MOV %0F,A DFC7: EE TRAP 17 ;Clear and init display DFC8: 73 EF 1F AND %EF,R1F DFCB: F6 TRAP 9 DFCC: 8E E0 EA CALL E0EA DFCF: E5 17 JGE DFE8 DFD1: 72 21 54 MOV %21,R54 DFD4: EA TRAP 21 DFD5: 72 02 21 MOV %02,R21 DFD8: D5 20 CLR R20 DFDA: 88 F1 C6 47 MOVD %F1C6,R47 DFDE: 8E C0 FB CALL C0FB DFE1: F6 TRAP 9 DFE2: DA 54 FC DJNZ R54,DFE1 DFE5: 8C DC A2 BR DCA2 DFE8: EA TRAP 21 DFE9: 72 02 21 MOV %02,R21 DFEC: 72 43 20 MOV %43,R20 DFEF: 8E E0 E5 CALL E0E5 DFF2: E5 03 JGE DFF7 DFF4: 8A 65 C6 LDA 65C6 DFF7: D0 29 MOV A,R29 DFF9: E0 7A JMP E075 DFFB: 8A 65 C6 LDA 65C6 DFFE: 1D 29 CMP R29,A E000: E6 07 JNZ E009 E002: 88 F1 D5 47 MOVD %F1D5,R47 ;"( NO NEWER MESSAGE )" E006: 8C E0 87 BR E087 E009: 32 29 MOV R29,B E00B: AA 65 BE LDA @65BE(B) E00E: D0 29 MOV A,R29 E010: 8E E0 C4 CALL E0C4 E013: 23 0F AND %0F,A E015: E6 E4 JNZ DFFB E017: 42 29 27 MOV R29,R27 E01A: EA TRAP 21 E01B: 72 02 21 MOV %02,R21 E01E: 22 0F MOV %0F,A E020: 8E C1 70 CALL C170 E023: F6 TRAP 9 E024: 12 29 MOV R29,A E026: 8E E0 C4 CALL E0C4 E029: 24 C0 OR %C0,A E02B: 9B 58 STA *R58 E02D: D3 58 INC R58 E02F: 79 00 57 ADC %00,R57 E032: B5 CLR A E033: 9B 58 STA *R58 E035: 7A 03 58 SUB %03,R58 E038: 7B 00 57 SBB %00,R57 E03B: 8E C1 8A CALL C18A E03E: F6 TRAP 9 E03F: 88 F1 F3 47 MOVD %F1F3,R47 ;"( < OR > )" E043: 8E C0 FB CALL C0FB E046: F6 TRAP 9 E047: 42 27 29 MOV R27,R29 E04A: EC TRAP 19 E04B: 88 1A 5E 54 MOVD %1A5E,R54 ;?????????????????? E04F: F6 TRAP 9 E050: DB 54 DECD R54 E052: E3 03 JC E057 E054: 8C DD F0 BR DDF0 E057: 12 19 MOV R19,A E059: E6 F4 JNZ E04F E05B: 22 0A MOV %0A,A E05D: 8D 62 7F CMPA 627F E060: E2 99 JZ DFFB E062: 22 0B MOV %0B,A E064: 8D 62 7F CMPA 627F E067: E6 E1 JNZ E04A E069: 8A 65 C7 LDA 65C7 E06C: 1D 29 CMP R29,A E06E: E2 10 JZ E080 E070: 32 29 MOV R29,B E072: AA 65 C2 LDA @65C2(B) E075: D0 29 MOV A,R29 E077: 8E E0 C4 CALL E0C4 E07A: 23 0F AND %0F,A E07C: E2 99 JZ E017 E07E: E0 E9 JMP E069 E080: 42 27 29 MOV R27,R29 E083: 88 F1 E4 47 MOVD %F1E4,R47 ;"( NO NEWER MESSAGE )" E087: 8E C0 FB CALL C0FB E08A: 72 21 54 MOV %21,R54 E08D: F6 TRAP 9 E08E: DA 54 FC DJNZ R54,E08D E091: 8C E0 17 BR E017 ----------------------------------- ; ;INITIALIZE TABLES ??? ; E094: 22 FF MOV %FF,A E096: 52 04 MOV %04,B E098: 88 63 BB 5A MOVD %63BB,R5A E09C: 62 MOV B,A E09D: AB 65 C1 STA @65C1(B) E0A0: 2A 02 SUB %02,A E0A2: AB 65 BD STA @65BD(B) E0A5: DB 5A DECD R5A E0A7: B5 CLR A E0A8: 9B 5A STA *R5A E0AA: D3 5A INC R5A E0AC: 79 00 59 ADC %00,R59 E0AF: B4 INV A E0B0: 9B 5A STA *R5A E0B2: 78 81 5A ADD %81,R5A E0B5: 79 00 59 ADC %00,R59 E0B8: CA E2 DJNZ B,E09C E0BA: B5 CLR A E0BB: 8B 65 C6 STA 65C6 E0BE: 22 03 MOV %03,A E0C0: 8B 65 C7 STA 65C7 E0C3: 0A RETS -------------------------------------------------- E0C4: 2C 81 MPY %81,A E0C6: 88 63 BB 58 MOVD %63BB,R58 E0CA: 48 01 58 ADD R01,R58 E0CD: 49 00 57 ADC R00,R57 E0D0: 9A 58 LDA *R58 E0D2: D3 58 INC R58 E0D4: 79 00 57 ADC %00,R57 E0D7: B0 CLCR E0D8: E2 03 JZ E0DD E0DA: 22 FF MOV %FF,A E0DC: 0A RETS E0DD: 9A 58 LDA *R58 E0DF: 0A RETS -------------------------------------------------- E0E0: 72 8F 4C MOV %8F,R4C E0E3: E0 08 JMP E0ED E0E5: 72 4F 4C MOV %4F,R4C E0E8: E0 03 JMP E0ED E0EA: 72 0F 4C MOV %0F,R4C E0ED: 72 05 50 MOV %05,R50 E0F0: 8A 65 C7 LDA 65C7 E0F3: DA 50 02 DJNZ R50,E0F8 E0F6: E0 16 JMP E10E E0F8: D0 4D MOV A,R4D E0FA: 8E E0 C4 CALL E0C4 E0FD: 13 4C AND R4C,A E0FF: E2 10 JZ E111 E101: 12 4D MOV R4D,A E103: 8D 65 C6 CMPA 65C6 E106: E2 06 JZ E10E E108: C0 MOV A,B E109: AA 65 BE LDA @65BE(B) E10C: E0 E5 JMP E0F3 E10E: 72 FF 4D MOV %FF,R4D E111: 12 4D MOV R4D,A E113: 0A RETS ------------------------------------------------- E114: 80 80 80 80 80 80 80 80 E11C: 80 80 80 0D 80 80 80 80 80 ------------------------------------------------- ; ; HELP ; E125: 22 0F MOV %>0F,A ;Blank screen character E127: EE TRAP 17 ;Fill display with A E128: F6 TRAP 9 E129: 77 80 21 02 BTJZ %80,R21,E12F E12D: 9C 5E BR *R5E --------------------------------------------- E12F: 74 40 20 OR %40,R20 E132: 32 21 MOV R21,B ;Offset into tables E134: AA E1 7B LDA @E17B(B) ;Help msg address LSB E137: D0 47 MOV A,R47 E139: AA E1 6A LDA @E16A(B) ;Help msg address MSB E13C: D0 46 MOV A,R46 E13E: AA F4 A2 LDA @F4A2(B) ;LOOK UP TABLE E141: D0 10 MOV A,R10 E143: AA F4 B3 LDA @F4B3(B) ;LOOK UP TABLE E146: C0 MOV A,B E147: 8E C1 00 CALL C100 E14A: 88 FA BB 47 MOVD %FABB,R47 ;( 'HELP' ) E14E: 32 21 MOV R21,B E150: AA E1 14 LDA @E114(B) E153: D0 21 MOV A,R21 E155: 8E C0 FB CALL C0FB E158: 88 1A 5E 58 MOVD %1A5E,R58 E15C: F6 TRAP 9 E15D: DB 58 DECD R58 E15F: E3 FB JC E15C E161: 8C DD F0 BR DDF0 -------------------------------------------- ; ; TRAP 21 ; E164: D9 5E POP R5E E166: D9 5D POP R5D E168: 9C 5E BR *R5E ------------------------------------------- ; ;Help message look-up table ; E16A: F4 ;F4C4 ;REFER TO THE USER'S ;MANUAL TO INTERPRET ;INSTALLATION VALUES. F4 ;F4F1 F5 ;F54B F5 ;F5A5 F6 ;F60B F6 ;F674 F6 ;F6DD F7 ;F728 F7 ;F7A0 F8 ;F818 F8 ;F872 F8 ;F8BD F9 ;F917 F9 ;F962 F9 ;F9AD FA ;FA25 FA ;FA52 ------------------------------------------------- E17B: C4 F1 4B A5 0B 74 DD 28 A0 18 72 BD 17 62 AD 25 52 ------------------------------------------------- E18C: F6 TRAP 9 E18D: EA TRAP 21 E18E: 72 08 21 MOV %08,R21 E191: D5 19 CLR R19 E193: D5 2C CLR R2C E195: 8A 62 4D LDA 624D E198: D0 29 MOV A,R29 E19A: 8E E6 CC CALL E6CC E19D: 12 2A MOV R2A,A E19F: 26 08 08 BTJO %08,A,E1AA E1A2: 26 78 0B BTJO %78,A,E1B0 E1A5: 8E E6 B9 CALL E6B9 E1A8: E1 06 JLT E1B0 E1AA: 72 06 21 MOV %06,R21 E1AD: 8C E2 B0 BR E2B0 E1B0: 72 2E 54 MOV %2E,R54 E1B3: F6 TRAP 9 E1B4: 22 0F MOV %0F,A ;Blank screen character E1B6: EE TRAP 17 ;Fill display with A E1B7: F6 TRAP 9 E1B8: EA TRAP 21 E1B9: 72 08 21 MOV %08,R21 E1BC: D5 2B CLR R2B E1BE: 77 80 2A 03 BTJZ %80,R2A,E1C5 E1C2: 8C DC B8 BR DCB8 E1C5: 77 10 2A 0C BTJZ %10,R2A,E1D5 E1C9: 88 EF B9 47 MOVD %EFB9,R47 E1CD: 52 78 MOV %78,B E1CF: 8E C0 F0 CALL C0F0 E1D2: 8C E2 8C BR E28C E1D5: 88 00 E1 54 MOVD %00E1,R54 E1D9: EA TRAP 21 E1DA: 72 08 21 MOV %08,R21 E1DD: 77 20 2A 27 BTJZ %20,R2A,E208 E1E1: 32 28 MOV R28,B E1E3: 58 02 ADD %02,B E1E5: F5 TRAP 10 E1E6: AA 61 00 LDA @6100(B) E1E9: 27 04 03 BTJZ R04,A,E1EF E1EC: 8C DC B8 BR DCB8 E1EF: 52 78 MOV %78,B E1F1: 88 EE 3C 47 MOVD %EE3C,R47 E1F5: 8A 62 6B LDA 626B E1F8: E2 21 JZ E21B E1FA: 52 64 MOV %64,B E1FC: 88 EE 0F 47 MOVD %EE0F,R47 E200: 72 0F 10 MOV %0F,R10 E203: 8E C1 00 CALL C100 E206: E0 20 JMP E228 E208: 77 40 2A 5E BTJZ %40,R2A,E26A E20C: 8E E6 C3 CALL E6C3 E20F: 88 F2 7A 47 MOVD %F27A,R47 E213: 52 50 MOV %50,B E215: 76 80 2B 02 BTJO %80,R2B,E21B E219: 52 78 MOV %78,B E21B: 8E C0 FD CALL C0FD E21E: 88 F2 B6 47 MOVD %F2B6,R47 E222: 72 05 10 MOV %05,R10 E225: 8E C1 1A CALL C11A E228: 77 80 2B 60 BTJZ %80,R2B,E28C E22C: 8E E9 4A CALL E94A E22F: 77 40 2B 59 BTJZ %40,R2B,E28C E233: 77 80 35 55 BTJZ %80,R35,E28C E237: 8A 62 49 LDA 6249 E23A: E6 2B JNZ E267 E23C: 72 43 54 MOV %43,R54 E23F: EA TRAP 21 E240: 72 08 21 MOV %08,R21 E243: F6 TRAP 9 E244: 8E E5 DE CALL E5DE E247: DA 54 F9 DJNZ R54,E243 E24A: 12 2B MOV R2B,A E24C: 8E D4 2C CALL D42C E24F: 56 01 0A BTJO %01,B,E25C E252: B6 XCHB A E253: 8B 62 49 STA 6249 E256: 72 05 13 MOV %05,R13 E259: 8C FD 06 BR FD06 E25C: 88 00 E1 54 MOVD %00E1,R54 E260: DB 54 DECD R54 E262: 8E E5 DE CALL E5DE E265: E3 F9 JC E260 E267: 8C DC B8 BR DCB8 E26A: 72 43 54 MOV %43,R54 E26D: EA TRAP 21 E26E: 72 08 21 MOV %08,R21 E271: D5 20 CLR R20 E273: 32 28 MOV R28,B E275: F5 TRAP 10 E276: AA 61 13 LDA @6113(B) E279: 27 10 09 BTJZ R10,A,E285 E27C: 52 64 MOV %64,B E27E: 88 F2 C5 47 MOVD %F2C5,R47 E282: 8E C0 FD CALL C0FD E285: 12 28 MOV R28,A E287: 52 78 MOV %78,B E289: 8E E6 1B CALL E61B E28C: F6 TRAP 9 E28D: 8E E9 A7 CALL E9A7 E290: 8E E5 DE CALL E5DE E293: 76 30 2A 13 BTJO %30,R2A,E2AA E297: 32 28 MOV R28,B E299: 58 02 ADD %02,B E29B: F5 TRAP 10 E29C: AA 61 00 LDA @6100(B) E29F: 27 01 08 BTJZ R01,A,E2AA E2A2: 8E CE 76 CALL CE76 E2A5: 52 A0 MOV %A0,B E2A7: 8E CF 42 CALL CF42 E2AA: DA 54 DF DJNZ R54,E28C E2AD: 8C DC B8 BR DCB8 E2B0: 72 40 20 MOV %40,R20 E2B3: 22 2E MOV %2E,A ;Background screen character E2B5: EE TRAP 17 ;Fill display with A E2B6: 74 10 1F OR %10,R1F E2B9: F6 TRAP 9 E2BA: 88 F3 2E 47 MOVD %F32E,R47 E2BE: 8E C0 FB CALL C0FB E2C1: 77 80 2A 5F BTJZ %80,R2A,E324 E2C5: 52 64 MOV %64,B E2C7: 88 F2 F2 47 MOVD %F2F2,R47 E2CB: 8E C0 FD CALL C0FD E2CE: 88 1A 5E 54 MOVD %1A5E,R54 E2D2: EC TRAP 19 E2D3: F6 TRAP 9 E2D4: 52 3C MOV %3C,B E2D6: 72 03 10 MOV %03,R10 E2D9: 88 EF 5F 47 MOVD %EF5F,R47 E2DD: 8E C1 00 CALL C100 E2E0: 8A 62 4F LDA 624F E2E3: 52 4B MOV %4B,B E2E5: 8E E6 29 CALL E629 E2E8: 8A 62 4F LDA 624F E2EB: 8E E6 B9 CALL E6B9 E2EE: E1 2E JLT E31E E2F0: 8A 62 4E LDA 624E E2F3: 23 18 AND %18,A E2F5: E2 2A JZ E321 E2F7: DB 54 DECD R54 E2F9: E3 03 JC E2FE E2FB: 8C DD F0 BR DDF0 E2FE: 12 19 MOV R19,A E300: E6 D1 JNZ E2D3 E302: 12 1A MOV R1A,A E304: E6 CC JNZ E2D2 E306: 8A 62 4F LDA 624F E309: 8E E6 B9 CALL E6B9 E30C: E1 10 JLT E31E E30E: 8A 62 4E LDA 624E E311: 23 18 AND %18,A E313: E2 0C JZ E321 E315: 8A 62 4F LDA 624F E318: C0 MOV A,B E319: 8E D2 4C CALL D24C E31C: E0 E8 JMP E306 E31E: 8C DC B8 BR DCB8 E321: 8C DC A2 BR DCA2 E324: 88 1A 5E 54 MOVD %1A5E,R54 E328: EC TRAP 19 E329: F6 TRAP 9 E32A: 8E E5 DE CALL E5DE E32D: 8E E8 17 CALL E817 E330: F6 TRAP 9 E331: 32 28 MOV R28,B E333: 58 02 ADD %02,B E335: F5 TRAP 10 E336: AA 61 00 LDA @6100(B) E339: 27 01 08 BTJZ R01,A,E344 E33C: 8E CE 76 CALL CE76 E33F: 52 78 MOV %78,B E341: 8E CF 42 CALL CF42 E344: F6 TRAP 9 E345: DB 54 DECD R54 E347: E3 03 JC E34C E349: 8C DD F0 BR DDF0 E34C: 12 19 MOV R19,A E34E: E6 D9 JNZ E329 E350: 12 2C MOV R2C,A E352: E2 11 JZ E365 E354: 12 1A MOV R1A,A E356: E6 03 JNZ E35B E358: 8C E3 ED BR E3ED E35B: 22 0C MOV %0C,A E35D: 8D 62 7F CMPA 627F E360: E6 C2 JNZ E324 E362: 8C E1 8C BR E18C E365: 12 1A MOV R1A,A E367: E2 03 JZ E36C E369: 8C E3 24 BR E324 E36C: 72 01 2C MOV %01,R2C E36F: 8E E9 68 CALL E968 E372: 12 2A MOV R2A,A E374: 8E E6 B9 CALL E6B9 E377: E1 13 JLT E38C E379: C0 MOV A,B E37A: 8E D2 51 CALL D251 E37D: 12 2A MOV R2A,A E37F: 8E E6 B9 CALL E6B9 E382: E1 03 JLT E387 E384: 8C DC A2 BR DCA2 E387: 8E E6 CC CALL E6CC E38A: E0 E6 JMP E372 E38C: 76 08 2A 03 BTJO %08,R2A,E393 E390: 8C DC B8 BR DCB8 E393: 8A 62 8A LDA 628A E396: E1 41 JLT E3D9 E398: EA TRAP 21 E399: 72 04 21 MOV %04,R21 E39C: 22 2E MOV %2E,A E39E: 8E C1 70 CALL C170 E3A1: F6 TRAP 9 E3A2: 52 8C MOV %8C,B E3A4: 88 F2 2F 47 MOVD %F22F,R47 E3A8: 8E C0 FD CALL C0FD E3AB: 88 F2 20 47 MOVD %F220,R47 E3AF: 8E C0 FB CALL C0FB E3B2: F6 TRAP 9 E3B3: 8E E8 F3 CALL E8F3 E3B6: 8E E6 AC CALL E6AC E3B9: E2 1E JZ E3D9 E3BB: 72 21 54 MOV %21,R54 E3BE: EA TRAP 21 E3BF: 72 04 21 MOV %04,R21 E3C2: 52 8C MOV %8C,B E3C4: 88 F8 36 47 MOVD %F836,R47 E3C8: 8E C0 FD CALL C0FD E3CB: 88 F2 3E 47 MOVD %F23E,R47 E3CF: 8E C0 FB CALL C0FB E3D2: F6 TRAP 9 E3D3: DA 54 FC DJNZ R54,E3D2 E3D6: 8C E3 98 BR E398 E3D9: EA TRAP 21 E3DA: 72 09 21 MOV %09,R21 E3DD: 88 F4 6C 58 MOVD %F46C,R58 E3E1: ED TRAP 18 E3E2: F6 TRAP 9 E3E3: 12 28 MOV R28,A E3E5: 52 00 MOV %00,B E3E7: 8E E6 1B CALL E61B E3EA: 8C E3 24 BR E324 E3ED: 8E E8 BC CALL E8BC E3F0: 8C DC B8 BR DCB8 ; ;Next prg ; E3F3: F6 TRAP 9 E3F4: 22 0F MOV %0F,A ;Blank screen character E3F6: EE TRAP 17 ;Fill display with A E3F7: F6 TRAP 9 E3F8: EA TRAP 21 E3F9: 72 08 21 MOV %08,R21 E3FC: 12 1D MOV R1D,A E3FE: 23 7F AND %7F,A E400: E2 F1 JZ E3F3 E402: 12 1D MOV R1D,A E404: E5 03 JGE E409 E406: 8C DC A2 BR DCA2 E409: D5 2C CLR R2C E40B: 73 40 20 AND %40,R20 E40E: 8E E8 06 CALL E806 E411: 8E E6 CC CALL E6CC E414: 12 2A MOV R2A,A E416: 26 08 08 BTJO %08,A,E421 E419: 26 78 0B BTJO %78,A,E427 E41C: 8E E6 B9 CALL E6B9 E41F: E1 06 JLT E427 E421: 72 03 21 MOV %03,R21 E424: 8C E4 DB BR E4DB E427: 72 44 54 MOV %44,R54 E42A: F6 TRAP 9 E42B: EA TRAP 21 E42C: 72 08 21 MOV %08,R21 E42F: D5 20 CLR R20 E431: D5 2B CLR R2B E433: 77 10 2A 0B BTJZ %10,R2A,E442 E437: 88 EF B9 47 MOVD %EFB9,R47 E43B: 52 64 MOV %64,B E43D: 8E C0 F0 CALL C0F0 E440: E0 39 JMP E47B E442: 77 20 2A 1F BTJZ %20,R2A,E465 E446: 88 EE 3C 47 MOVD %EE3C,R47 E44A: 52 78 MOV %78,B E44C: 8A 62 6B LDA 626B E44F: E2 27 JZ E478 E451: 52 64 MOV %64,B E453: 88 EE 00 47 MOVD %EE00,R47 E457: 8E C0 FD CALL C0FD E45A: 88 EE 1E 47 MOVD %EE1E,R47 E45E: 52 78 MOV %78,B E460: 8E C0 F0 CALL C0F0 E463: E0 20 JMP E485 E465: 8E E6 C3 CALL E6C3 E468: 77 40 2A 22 BTJZ %40,R2A,E48E E46C: 88 F2 7A 47 MOVD %F27A,R47 E470: 52 50 MOV %50,B E472: 12 2B MOV R2B,A E474: E1 02 JLT E478 E476: 52 78 MOV %78,B E478: 8E C0 FD CALL C0FD E47B: 88 F2 A7 47 MOVD %F2A7,R47 E47F: 72 05 10 MOV %05,R10 E482: 8E C1 1A CALL C11A E485: 12 2B MOV R2B,A E487: E5 1E JGE E4A7 E489: 8E E9 4A CALL E94A E48C: E0 19 JMP E4A7 E48E: 32 28 MOV R28,B E490: F5 TRAP 10 E491: AA 61 13 LDA @6113(B) E494: 27 10 09 BTJZ R10,A,E4A0 E497: 52 64 MOV %64,B E499: 88 F2 C5 47 MOVD %F2C5,R47 E49D: 8E C0 FD CALL C0FD E4A0: 52 78 MOV %78,B E4A2: 12 28 MOV R28,A E4A4: 8E E6 1B CALL E61B E4A7: F6 TRAP 9 E4A8: 8E E9 A7 CALL E9A7 E4AB: 8E E5 FF CALL E5FF E4AE: 76 30 2A 18 BTJO %30,R2A,E4CA E4B2: 52 03 MOV %03,B E4B4: 8A 62 4D LDA 624D E4B7: BE RL A E4B8: BE RL A E4B9: BE RL A E4BA: CF RLC B E4BB: F5 TRAP 10 E4BC: AA 61 00 LDA @6100(B) E4BF: 27 01 08 BTJZ R01,A,E4CA E4C2: 8E CE 76 CALL CE76 E4C5: 52 A0 MOV %A0,B E4C7: 8E CF 42 CALL CF42 E4CA: DA 54 DA DJNZ R54,E4A7 E4CD: 7D 04 1D CMP %04,R1D E4D0: E2 03 JZ E4D5 E4D2: 8C DC A2 BR DCA2 E4D5: 74 04 1F OR %04,R1F E4D8: 8C DC B8 BR DCB8 E4DB: 72 40 20 MOV %40,R20 E4DE: 22 2E MOV %2E,A ;Background screen character E4E0: EE TRAP 17 ;Fill display with A E4E1: 88 F3 2E 47 MOVD %F32E,R47 E4E5: 8E C0 FB CALL C0FB E4E8: 74 10 1F OR %10,R1F E4EB: F6 TRAP 9 E4EC: 88 1A 5E 54 MOVD %1A5E,R54 E4F0: EC TRAP 19 E4F1: F6 TRAP 9 E4F2: 8E E5 FF CALL E5FF E4F5: 8E E8 17 CALL E817 E4F8: F6 TRAP 9 E4F9: 52 03 MOV %03,B E4FB: 8A 62 4D LDA 624D E4FE: BE RL A E4FF: BE RL A E500: BE RL A E501: CF RLC B E502: F5 TRAP 10 E503: AA 61 00 LDA @6100(B) E506: 27 01 08 BTJZ R01,A,E511 E509: 8E CE 76 CALL CE76 E50C: 52 78 MOV %78,B E50E: 8E CF 42 CALL CF42 E511: F6 TRAP 9 E512: DB 54 DECD R54 E514: E3 03 JC E519 E516: 8C DD F0 BR DDF0 E519: 12 19 MOV R19,A E51B: E6 D4 JNZ E4F1 E51D: 12 2C MOV R2C,A E51F: E2 13 JZ E534 E521: 12 1A MOV R1A,A E523: E6 08 JNZ E52D E525: 8E E8 BC CALL E8BC E528: D5 2A CLR R2A E52A: 8C E3 F3 BR E3F3 E52D: 22 0C MOV %0C,A E52F: 8D 62 7F CMPA 627F E532: E2 F6 JZ E52A E534: 12 1A MOV R1A,A E536: E6 B4 JNZ E4EC E538: 72 01 2C MOV %01,R2C E53B: 8E E9 68 CALL E968 E53E: 12 2A MOV R2A,A E540: 8E E6 B9 CALL E6B9 E543: E1 13 JLT E558 E545: C0 MOV A,B E546: 8E D2 56 CALL D256 E549: 12 2A MOV R2A,A E54B: 8E E6 B9 CALL E6B9 E54E: E1 03 JLT E553 E550: 8C DC A2 BR DCA2 E553: 8E E6 CC CALL E6CC E556: E0 E6 JMP E53E E558: 76 08 2A 03 BTJO %08,R2A,E55F E55C: 8C E3 F3 BR E3F3 E55F: 8A 62 8A LDA 628A E562: E1 48 JLT E5AC E564: EA TRAP 21 E565: 72 04 21 MOV %04,R21 E568: 22 2E MOV %2E,A E56A: 8E C1 70 CALL C170 E56D: 88 F3 2E 47 MOVD %F32E,R47 E571: 8E C0 FB CALL C0FB E574: F6 TRAP 9 E575: 88 F2 2F 47 MOVD %F22F,R47 E579: 52 8C MOV %8C,B E57B: 8E C0 FD CALL C0FD E57E: 88 F2 20 47 MOVD %F220,R47 E582: 8E C0 FB CALL C0FB E585: F6 TRAP 9 E586: 8E E8 EE CALL E8EE E589: 8E E6 AC CALL E6AC E58C: E2 1E JZ E5AC E58E: 72 21 54 MOV %21,R54 E591: EA TRAP 21 E592: 72 04 21 MOV %04,R21 E595: 52 8C MOV %8C,B E597: 88 F8 36 47 MOVD %F836,R47 E59B: 8E C0 FD CALL C0FD E59E: 88 F2 3E 47 MOVD %F23E,R47 E5A2: 8E C0 FB CALL C0FB E5A5: F6 TRAP 9 E5A6: DA 54 FC DJNZ R54,E5A5 E5A9: 8C E5 64 BR E564 E5AC: EA TRAP 21 E5AD: 72 09 21 MOV %09,R21 E5B0: 88 F4 6C 58 MOVD %F46C,R58 E5B4: ED TRAP 18 E5B5: F6 TRAP 9 E5B6: 12 28 MOV R28,A E5B8: 52 00 MOV %00,B E5BA: 8E E6 1B CALL E61B E5BD: 8C E4 EC BR E4EC E5C0: 8E E6 43 CALL E643 E5C3: 32 28 MOV R28,B E5C5: F5 TRAP 10 E5C6: AA 61 11 LDA @6111(B) E5C9: D0 4F MOV A,R4F E5CB: AA 61 12 LDA @6112(B) E5CE: 07 SETC E5CF: 4F 4F 4D DSB R4F,R4D E5D2: 4B 00 4C SBB R00,R4C E5D5: 7B 00 50 SBB %00,R50 E5D8: 0A RETS ------------------------------------------------- E5D9: 72 FF 4F MOV %FF,R4F E5DC: E0 02 JMP E5E0 E5DE: D5 4F CLR R4F E5E0: 8A 62 4E LDA 624E E5E3: 26 18 09 BTJO %18,A,E5EF E5E6: 8A 62 4D LDA 624D E5E9: 15 29 XOR R29,A E5EB: 26 60 01 BTJO %60,A,E5EF E5EE: 0A RETS ------------------------------------------------ E5EF: 77 01 4F 02 BTJZ %01,R4F,E5F5 E5F3: B9 POP A E5F4: B9 POP A E5F5: B9 POP A E5F6: B9 POP A E5F7: 8C DC B8 BR DCB8 E5FA: 72 FF 4F MOV %FF,R4F E5FD: E0 02 JMP E601 E5FF: D5 4F CLR R4F E601: 8A 62 4E LDA 624E E604: 26 18 08 BTJO %18,A,E60F E607: 8A 62 4D LDA 624D E60A: 15 29 XOR R29,A E60C: 26 60 0B BTJO %60,A,E61A E60F: 77 FF 4F 02 BTJZ %FF,R4F,E615 E613: B9 POP A E614: B9 POP A E615: B9 POP A E616: B9 POP A E617: 8C DC B8 BR DCB8 E61A: 0A RETS --------------------------------------------------- E61B: C8 PUSH B E61C: C0 MOV A,B E61D: 58 02 ADD %02,B E61F: F5 TRAP 10 E620: A8 61 05 47 MOVD %6105(B),R47 E624: C9 POP B E625: 8E C0 F0 CALL C0F0 E628: 0A RETS ----------------------------------------------------- ; ; PUT PROGRAM RATING IN DISPLAY MEMORY ; E629: 23 07 AND %07,A ; E62B: D0 10 MOV A,R10 E62D: 18 00 ADD R00,A E62F: 48 00 10 ADD R00,R10 E632: D6 10 XCHB R10 E634: A8 61 C9 47 MOVD %61C9(B),R47 ;Program rating (>61C9) E638: 52 01 MOV %01,B ;4 Characters E63A: D6 10 XCHB R10 E63C: 8C C1 00 BR C100 --------------------------------------------------- E63F: 32 0E MOV R0E,B E641: E0 02 JMP E645 E643: 32 27 MOV R27,B E645: D5 4D CLR R4D E647: F5 TRAP 10 E648: AA 61 0F LDA @610F(B) E64B: D0 4C MOV A,R4C E64D: AA 61 10 LDA @6110(B) E650: D0 50 MOV A,R50 E652: 8A 62 5A LDA 625A E655: C0 MOV A,B E656: 8A 62 5B LDA 625B E659: 07 SETC E65A: 4F 01 4D DSB R01,R4D E65D: 4B 00 4C SBB R00,R4C E660: 0E PUSHST E661: 8A 62 5C LDA 625C E664: 08 POPST E665: 4B 00 50 SBB R00,R50 E668: E3 06 JC E670 E66A: D5 4D CLR R4D E66C: D5 4C CLR R4C E66E: D5 50 CLR R50 E670: 7D 27 50 CMP %27,R50 E673: E7 10 JL E685 E675: E6 05 JNZ E67C E677: 7D 10 4C CMP %10,R4C E67A: E7 09 JL E685 E67C: 72 27 50 MOV %27,R50 E67F: 72 0F 4C MOV %0F,R4C E682: 72 99 4D MOV %99,R4D E685: 0A RETS --------------------------------------------------- E686: B5 CLR A E687: C5 CLR B E688: 72 10 10 MOV %10,R10 E68B: DF 4C RLC R4C E68D: DF 50 RLC R50 E68F: 1E 00 DAC R00,A E691: 3E 01 DAC R01,B E693: DA 10 F5 DJNZ R10,E68B E696: D0 4C MOV A,R4C E698: D1 50 MOV B,R50 E69A: 0A RETS --------------------------------------------------- E69B: 12 50 MOV R50,A E69D: 8E C0 C5 CALL C0C5 E6A0: 12 4C MOV R4C,A E6A2: 8E C0 C7 CALL C0C7 E6A5: 22 2D MOV %2D,A E6A7: F2 TRAP 13 E6A8: 12 4D MOV R4D,A E6AA: F0 TRAP 15 E6AB: 0A RETS --------------------------------------------------- E6AC: 52 08 MOV %08,B E6AE: AA 62 7E LDA @627E(B) E6B1: AD 62 89 CMPA @6289(B) E6B4: E6 02 JNZ E6B8 E6B6: CA F6 DJNZ B,E6AE E6B8: 0A RETS -------------------------------------------------- E6B9: 23 07 AND %07,A E6BB: B2 DEC A E6BC: 8D 62 7D CMPA 627D E6BF: 0E PUSHST E6C0: B3 INC A E6C1: 08 POPST E6C2: 0A RETS ------------------------------------------------ E6C3: 32 28 MOV R28,B E6C5: F5 TRAP 10 E6C6: AA 61 15 LDA @6115(B) E6C9: D0 2B MOV A,R2B E6CB: 0A RETS ------------------------------------------------- E6CC: D5 2A CLR R2A E6CE: 12 29 MOV R29,A E6D0: 72 01 27 MOV %01,R27 E6D3: BE RL A E6D4: DF 27 RLC R27 E6D6: 72 02 28 MOV %02,R28 E6D9: BE RL A E6DA: BE RL A E6DB: DF 28 RLC R28 E6DD: 8A 62 4E LDA 624E E6E0: 23 18 AND %18,A E6E2: E2 0C JZ E6F0 E6E4: 72 80 2A MOV %80,R2A E6E7: 8A 62 4F LDA 624F E6EA: 23 07 AND %07,A E6EC: 44 00 2A OR R00,R2A E6EF: 0A RETS --------------------------------------------------- E6F0: 32 27 MOV R27,B E6F2: F5 TRAP 10 E6F3: AA 61 12 LDA @6112(B) E6F6: D0 4D MOV A,R4D E6F8: AA 61 13 LDA @6113(B) E6FB: D0 4C MOV A,R4C E6FD: 32 27 MOV R27,B E6FF: 5A 02 SUB %02,B E701: F5 TRAP 10 E702: 12 4D MOV R4D,A E704: AD 61 00 CMPA @6100(B) E707: E6 35 JNZ E73E E709: 12 4C MOV R4C,A E70B: AD 61 01 CMPA @6101(B) E70E: E6 2E JNZ E73E E710: 32 28 MOV R28,B E712: 58 02 ADD %02,B E714: F5 TRAP 10 E715: AA 61 00 LDA @6100(B) E718: 15 29 XOR R29,A E71A: 26 60 21 BTJO %60,A,E73E E71D: AA 61 23 LDA @6123(B) E720: 8D 62 53 CMPA 6253 E723: E6 19 JNZ E73E E725: 32 28 MOV R28,B E727: F5 TRAP 10 E728: AA 61 19 LDA @6119(B) E72B: 8D 62 53 CMPA 6253 E72E: E6 0E JNZ E73E E730: 12 4D MOV R4D,A E732: AD 61 00 CMPA @6100(B) E735: E6 07 JNZ E73E E737: 12 4C MOV R4C,A E739: AD 61 01 CMPA @6101(B) E73C: E2 04 JZ E742 E73E: 72 10 2A MOV %10,R2A E741: 0A RETS ----------------------------------------------- E742: AA 61 14 LDA @6114(B) E745: 15 29 XOR R29,A E747: 26 60 F4 BTJO %60,A,E73E E74A: 8A 62 75 LDA 6275 E74D: 4D 00 16 CMP R00,R16 E750: E6 23 JNZ E775 E752: AA 61 09 LDA @6109(B) E755: 8D 62 76 CMPA 6276 E758: E6 1B JNZ E775 E75A: AA 61 0A LDA @610A(B) E75D: 8D 62 77 CMPA 6277 E760: E6 13 JNZ E775 E762: AA 61 0B LDA @610B(B) E765: 8D 62 78 CMPA 6278 E768: E6 0B JNZ E775 E76A: AA 61 0C LDA @610C(B) E76D: 8D 62 79 CMPA 6279 E770: E6 03 JNZ E775 E772: 8C E7 FA BR E7FA E775: 8A 62 7B LDA 627B E778: 15 29 XOR R29,A E77A: 26 60 08 BTJO %60,A,E785 E77D: 8A 62 7C LDA 627C E780: E2 03 JZ E785 E782: 8C E7 FA BR E7FA E785: AA 61 13 LDA @6113(B) E788: 27 20 24 BTJZ R20,A,E7AF E78B: AA 61 19 LDA @6119(B) E78E: AD 61 42 CMPA @6142(B) E791: E6 AB JNZ E73E E793: AA 61 14 LDA @6114(B) E796: D0 10 MOV A,R10 E798: AA 61 41 LDA @6141(B) E79B: 15 10 XOR R10,A E79D: 26 E0 9E BTJO %E0,A,E73E E7A0: AA 61 43 LDA @6143(B) E7A3: B3 INC A E7A4: E6 98 JNZ E73E E7A6: AA 61 44 LDA @6144(B) E7A9: B3 INC A E7AA: E2 03 JZ E7AF E7AC: 72 40 2A MOV %40,R2A E7AF: D1 4D MOV B,R4D E7B1: 32 27 MOV R27,B E7B3: F5 TRAP 10 E7B4: 72 07 10 MOV %07,R10 E7B7: AA 61 00 LDA @6100(B) E7BA: D0 4C MOV A,R4C E7BC: C3 INC B E7BD: D6 4D XCHB R4D E7BF: AA 61 02 LDA @6102(B) E7C2: C3 INC B E7C3: D6 4D XCHB R4D E7C5: 16 4C 32 BTJO R4C,A,E7FA E7C8: DA 10 EC DJNZ R10,E7B7 E7CB: 8A 61 FF LDA 61FF E7CE: E2 1E JZ E7EE E7D0: 32 27 MOV R27,B E7D2: F5 TRAP 10 E7D3: AA 61 11 LDA @6111(B) E7D6: D0 4D MOV A,R4D E7D8: 32 28 MOV R28,B E7DA: F5 TRAP 10 E7DB: AA 61 1B LDA @611B(B) E7DE: 13 4D AND R4D,A E7E0: E2 0C JZ E7EE E7E2: AA 61 13 LDA @6113(B) E7E5: 27 80 06 BTJZ R80,A,E7EE E7E8: 8A 62 45 LDA 6245 E7EB: 26 20 04 BTJO %20,A,E7F2 E7EE: 72 20 2A MOV %20,R2A E7F1: 0A RETS ------------------------------------------------- E7F2: 77 40 2A 01 BTJZ %40,R2A,E7F7 E7F6: 0A RETS --------------------------------------------------- E7F7: 72 08 2A MOV %08,R2A E7FA: 32 28 MOV R28,B E7FC: F5 TRAP 10 E7FD: AA 61 13 LDA @6113(B) E800: 23 07 AND %07,A E802: 44 00 2A OR R00,R2A E805: 0A RETS ---------------------------------------------------- E806: 32 0F MOV R0F,B E808: F5 TRAP 10 E809: AA 61 14 LDA @6114(B) E80C: C0 MOV A,B E80D: 28 20 ADD %20,A E80F: 23 7F AND %7F,A E811: 53 80 AND %80,B E813: 64 OR B,A E814: D0 29 MOV A,R29 E816: 0A RETS ------------------------------------------------- E817: 12 28 MOV R28,A E819: C5 CLR B E81A: 8E E6 1B CALL E61B E81D: 72 28 4F MOV %28,R4F E820: 76 F8 2A 04 BTJO %F8,R2A,E828 E824: 76 07 2A 59 BTJO %07,R2A,E881 E828: D5 4F CLR R4F E82A: 32 28 MOV R28,B E82C: F5 TRAP 10 E82D: AA 61 1B LDA @611B(B) E830: C0 MOV A,B E831: 8A 62 00 LDA 6200 E834: 63 AND B,A E835: E2 1E JZ E855 E837: 52 50 MOV %50,B E839: 88 F8 36 47 MOVD %F836,R47 E83D: 8E C0 FD CALL C0FD E840: 52 64 MOV %64,B E842: 88 EE 60 47 MOVD %EE60,R47 E846: 8A 62 50 LDA 6250 E849: 26 04 04 BTJO %04,A,E850 E84C: 88 EE 6F 47 MOVD %EE6F,R47 E850: 8E C0 FD CALL C0FD E853: E0 2C JMP E881 E855: 52 64 MOV %64,B E857: 88 EE 51 47 MOVD %EE51,R47 E85B: 8E C0 FD CALL C0FD E85E: 52 50 MOV %50,B E860: 88 EE 4B 47 MOVD %EE4B,R47 E864: 72 02 10 MOV %02,R10 E867: 8E C1 00 CALL C100 E86A: 32 28 MOV R28,B E86C: F5 TRAP 10 E86D: AA 61 11 LDA @6111(B) E870: D0 4D MOV A,R4D E872: AA 61 12 LDA @6112(B) E875: D0 4C MOV A,R4C E877: D5 50 CLR R50 E879: 8E E6 86 CALL E686 E87C: 52 5C MOV %5C,B E87E: 8E E6 9B CALL E69B E881: 32 28 MOV R28,B E883: F5 TRAP 10 E884: AA 61 13 LDA @6113(B) E887: 73 F8 2A AND %F8,R2A E88A: 23 07 AND %07,A E88C: 44 00 2A OR R00,R2A E88F: B0 CLCR E890: E2 1E JZ E8B0 E892: 52 4B MOV %4B,B E894: 8E E6 29 CALL E629 E897: 52 3C MOV %3C,B E899: 88 EF 5F 47 MOVD %EF5F,R47 E89D: 72 03 10 MOV %03,R10 E8A0: 8E C1 00 CALL C100 E8A3: 12 2A MOV R2A,A E8A5: 8E E6 B9 CALL E6B9 E8A8: E1 06 JLT E8B0 E8AA: 88 F2 F2 47 MOVD %F2F2,R47 E8AE: E0 04 JMP E8B4 E8B0: 88 F8 36 47 MOVD %F836,R47 E8B4: 52 28 MOV %28,B E8B6: 38 4F ADD R4F,B E8B8: 8E C0 FD CALL C0FD E8BB: 0A RETS ------------------------------------------------ E8BC: 8A 62 4D LDA 624D E8BF: 15 29 XOR R29,A E8C1: 26 60 1F BTJO %60,A,E8E3 E8C4: 12 16 MOV R16,A E8C6: 8B 62 75 STA 6275 E8C9: 72 04 2B MOV %04,R2B E8CC: 32 28 MOV R28,B E8CE: F5 TRAP 10 E8CF: 88 62 79 47 MOVD %6279,R47 E8D3: AA 61 0C LDA @610C(B) E8D6: 9B 47 STA *R47 E8D8: C2 DEC B E8D9: DB 47 DECD R47 E8DB: DA 2B F5 DJNZ R2B,E8D3 E8DE: B5 CLR A E8DF: 8B 62 7A STA 627A E8E2: 0A RETS --------------------------------------------------- E8E3: 12 29 MOV R29,A E8E5: 8B 62 7B STA 627B E8E8: 12 16 MOV R16,A E8EA: 8B 62 7C STA 627C E8ED: 0A RETS -------------------------------------------------- E8EE: 72 FF 30 MOV %FF,R30 E8F1: E0 02 JMP E8F5 E8F3: D5 30 CLR R30 E8F5: 22 AB MOV %AB,A E8F7: 8B 62 A4 STA 62A4 E8FA: 72 08 19 MOV %08,R19 E8FD: D5 1A CLR R1A E8FF: 52 08 MOV %08,B E901: 8E CB C3 CALL CBC3 E904: D9 52 POP R52 E906: D9 51 POP R51 E908: B5 CLR A E909: 8B 62 89 STA 6289 E90C: 88 1A 5E 54 MOVD %1A5E,R54 E910: F6 TRAP 9 E911: 77 01 30 05 BTJZ %01,R30,E91A E915: 8E E5 FF CALL E5FF E918: E0 03 JMP E91D E91A: 8E E5 DE CALL E5DE E91D: 8E E8 17 CALL E817 E920: 12 2A MOV R2A,A E922: 8E E6 B9 CALL E6B9 E925: E1 0A JLT E931 E927: 76 01 30 03 BTJO %01,R30,E92E E92B: 8C DC A2 BR DCA2 E92E: 8C E3 F3 BR E3F3 E931: 8E E5 C0 CALL E5C0 E934: E3 06 JC E93C E936: 76 01 30 F4 BTJO %01,R30,E92E E93A: E0 EF JMP E92B E93C: 12 1A MOV R1A,A E93E: 8D 62 89 CMPA 6289 E941: E6 C6 JNZ E909 E943: DB 54 DECD R54 E945: E3 C9 JC E910 E947: 8C DD F0 BR DDF0 E94A: 52 78 MOV %78,B E94C: 88 F2 89 47 MOVD %F289,R47 E950: 8E C0 F0 CALL C0F0 E953: 42 2B 4C MOV R2B,R4C E956: 73 1F 4C AND %1F,R4C E959: D3 4C INC R4C E95B: D5 50 CLR R50 E95D: 8E E6 86 CALL E686 E960: 12 4C MOV R4C,A E962: 52 9B MOV %9B,B E964: 8E C0 C5 CALL C0C5 E967: 0A RETS --------------------------------------- E968: 8E E5 C0 CALL E5C0 E96B: E7 01 JL E96E E96D: 0A RETS -------------------------------------- E96E: B9 POP A E96F: B9 POP A E970: 42 15 2B MOV R15,R2B E973: EA TRAP 21 E974: 72 0F 21 MOV %0F,R21 E977: 22 0F MOV %0F,A ;Blank screen character E979: EE TRAP 17 ;Fill display with A E97A: F6 TRAP 9 E97B: 4D 15 2B CMP R15,R2B E97E: E6 0B JNZ E98B E980: 8A 62 4E LDA 624E E983: 26 18 05 BTJO %18,A,E98B E986: 8E E5 C0 CALL E5C0 E989: E7 03 JL E98E E98B: 8C DC A2 BR DCA2 E98E: 12 28 MOV R28,A E990: C5 CLR B E991: 8E E6 1B CALL E61B E994: 88 EE 7E 47 MOVD %EE7E,R47 E998: 52 3C MOV %3C,B E99A: 72 19 10 MOV %19,R10 E99D: 8E C1 00 CALL C100 E9A0: DB 54 DECD R54 E9A2: E3 D6 JC E97A E9A4: 8C DD F0 BR DDF0 E9A7: 7D 03 1D CMP %03,R1D E9AA: E3 1D JC E9C9 E9AC: 7D 02 1D CMP %02,R1D E9AF: E6 14 JNZ E9C5 E9B1: 8A 62 6B LDA 626B E9B4: E2 0F JZ E9C5 E9B6: 32 0F MOV R0F,B E9B8: F5 TRAP 10 E9B9: AA 61 13 LDA @6113(B) E9BC: 27 80 06 BTJZ R80,A,E9C5 E9BF: 8A 62 45 LDA 6245 E9C2: 26 20 04 BTJO %20,A,E9C9 E9C5: 72 0F 21 MOV %0F,R21 E9C8: 0A RETS ---------------------------------------------- E9C9: 72 08 21 MOV %08,R21 E9CC: 0A RETS ---------------------------------------------------- E9CD: 8A 62 73 LDA 6273 E9D0: B3 INC A E9D1: 8B 62 73 STA 6273 E9D4: E6 07 JNZ E9DD E9D6: 8A 62 74 LDA 6274 E9D9: B3 INC A E9DA: 8B 62 74 STA 6274 E9DD: 8A 67 EA LDA 67EA E9E0: B3 INC A E9E1: E9 TRAP 22 E9E2: 8B 67 EA STA 67EA E9E5: 8D 67 EB CMPA 67EB E9E8: E6 05 JNZ E9EF E9EA: B3 INC A E9EB: E9 TRAP 22 E9EC: 8B 67 EB STA 67EB E9EF: 8A 67 EE LDA 67EE E9F2: E6 0B JNZ E9FF E9F4: 22 FF MOV %FF,A E9F6: 8B 67 EE STA 67EE E9F9: 8A 67 EA LDA 67EA E9FC: 8B 67 EB STA 67EB E9FF: 8A 67 EA LDA 67EA EA02: 2C 27 MPY %27,A EA04: 88 65 EE 47 MOVD %65EE,R47 EA08: 48 01 47 ADD R01,R47 EA0B: 49 00 46 ADC R00,R46 EA0E: 32 0F MOV R0F,B EA10: F5 TRAP 10 EA11: AA 61 1B LDA @611B(B) EA14: D0 10 MOV A,R10 EA16: 8A 62 00 LDA 6200 EA19: 13 10 AND R10,A EA1B: 9B 47 STA *R47 EA1D: DB 47 DECD R47 EA1F: AA 61 12 LDA @6112(B) EA22: 9B 47 STA *R47 EA24: DB 47 DECD R47 EA26: AA 61 11 LDA @6111(B) EA29: 9B 47 STA *R47 EA2B: DB 47 DECD R47 EA2D: 32 0F MOV R0F,B EA2F: 58 02 ADD %02,B EA31: F5 TRAP 10 EA32: C8 PUSH B EA33: 58 21 ADD %21,B EA35: 72 22 10 MOV %22,R10 EA38: AA 61 01 LDA @6101(B) EA3B: 9B 47 STA *R47 EA3D: DB 47 DECD R47 EA3F: C2 DEC B EA40: DA 10 F5 DJNZ R10,EA38 EA43: C9 POP B EA44: AA 61 00 LDA @6100(B) EA47: 23 02 AND %02,A EA49: 9B 47 STA *R47 EA4B: DB 47 DECD R47 EA4D: 8A 62 53 LDA 6253 EA50: 9B 47 STA *R47 EA52: 0A RETS --------------------------------------------------- EA53: 8A 67 EE LDA 67EE EA56: E6 15 JNZ EA6D EA58: 72 21 54 MOV %21,R54 EA5B: EA TRAP 21 EA5C: 72 01 21 MOV %01,R21 EA5F: 88 F2 6B 47 MOVD %F26B,R47 EA63: 8E C0 FB CALL C0FB EA66: F6 TRAP 9 EA67: DA 54 FC DJNZ R54,EA66 EA6A: 8C D4 CB BR D4CB EA6D: 8A 67 EA LDA 67EA EA70: 8B 67 EC STA 67EC EA73: 8B 67 ED STA 67ED EA76: EA TRAP 21 EA77: 72 07 21 MOV %07,R21 EA7A: 22 2E MOV %2E,A EA7C: 8E C1 70 CALL C170 EA7F: F6 TRAP 9 EA80: 8A 67 EC LDA 67EC EA83: 52 00 MOV %00,B EA85: 8E EB 10 CALL EB10 EA88: F6 TRAP 9 EA89: 8A 67 EC LDA 67EC EA8C: 2A 01 SUB %01,A EA8E: E9 TRAP 22 EA8F: 8D 67 EA CMPA 67EA EA92: E2 06 JZ EA9A EA94: 52 50 MOV %50,B EA96: 8E EB 10 CALL EB10 EA99: F6 TRAP 9 EA9A: 88 F1 F3 47 MOVD %F1F3,R47 EA9E: 8E C0 FB CALL C0FB EAA1: EC TRAP 19 EAA2: 88 1A 5E 54 MOVD %1A5E,R54 EAA6: F6 TRAP 9 EAA7: 8A 67 EA LDA 67EA EAAA: 8D 67 ED CMPA 67ED EAAD: E6 A4 JNZ EA53 EAAF: DB 54 DECD R54 EAB1: E3 03 JC EAB6 EAB3: 8C DD F0 BR DDF0 EAB6: 12 19 MOV R19,A EAB8: E6 EC JNZ EAA6 EABA: 12 1A MOV R1A,A EABC: E6 03 JNZ EAC1 EABE: 8C D4 CB BR D4CB EAC1: 8A 62 7F LDA 627F EAC4: 2D 0B CMP %0B,A EAC6: E2 26 JZ EAEE EAC8: 2D 0A CMP %0A,A EACA: E2 02 JZ EACE EACC: E0 CC JMP EA9A EACE: 8A 67 EC LDA 67EC EAD1: 8D 67 EA CMPA 67EA EAD4: E6 10 JNZ EAE6 EAD6: 88 F2 5C 47 MOVD %F25C,R47 EADA: 72 21 54 MOV %21,R54 EADD: 8E C0 FB CALL C0FB EAE0: F6 TRAP 9 EAE1: DA 54 FC DJNZ R54,EAE0 EAE4: E0 B4 JMP EA9A EAE6: 28 02 ADD %02,A EAE8: E9 TRAP 22 EAE9: 8B 67 EC STA 67EC EAEC: E0 8C JMP EA7A EAEE: 8A 67 EC LDA 67EC EAF1: 8D 67 EB CMPA 67EB EAF4: E2 08 JZ EAFE EAF6: 2A 01 SUB %01,A EAF8: E9 TRAP 22 EAF9: 8D 67 EB CMPA 67EB EAFC: E6 06 JNZ EB04 EAFE: 88 F2 4D 47 MOVD %F24D,R47 EB02: E0 D6 JMP EADA EB04: 8A 67 EC LDA 67EC EB07: 2A 02 SUB %02,A EB09: E9 TRAP 22 EB0A: 8B 67 EC STA 67EC EB0D: 8C EA 7A BR EA7A EB10: D1 2A MOV B,R2A EB12: D0 2B MOV A,R2B EB14: 2C 27 MPY %27,A EB16: 88 65 ED 58 MOVD %65ED,R58 EB1A: 48 01 58 ADD R01,R58 EB1D: 49 00 57 ADC R00,R57 EB20: 9A 58 LDA *R58 EB22: D0 4C MOV A,R4C EB24: DB 58 DECD R58 EB26: 9A 58 LDA *R58 EB28: D0 4D MOV A,R4D EB2A: 14 4C OR R4C,A EB2C: E6 01 JNZ EB2F EB2E: 0A RETS --------------------------------------------- EB2F: 78 02 58 ADD %02,R58 EB32: 79 00 57 ADC %00,R57 EB35: 9A 58 LDA *R58 EB37: E6 0C JNZ EB45 EB39: D5 50 CLR R50 EB3B: 8E E6 86 CALL E686 EB3E: 32 2A MOV R2A,B EB40: 58 0D ADD %0D,B EB42: 8E E6 9B CALL E69B EB45: 7A 21 58 SUB %21,R58 EB48: 7B 00 57 SBB %00,R57 EB4B: 32 2A MOV R2A,B EB4D: 8E EB 8B CALL EB8B EB50: 78 05 58 ADD %05,R58 EB53: 79 00 57 ADC %00,R57 EB56: 98 58 47 MOVD R58,R47 EB59: 32 2A MOV R2A,B EB5B: 58 14 ADD %14,B EB5D: 8E C0 F0 CALL C0F0 EB60: 0A RETS ------------------------------------------------------- ; ; TRAP 22 ; EB61: E1 07 JLT EB6A EB63: 2D 0E CMP %0E,A EB65: E7 02 JL EB69 EB67: 2A 0E SUB %0E,A EB69: 0A RETS ----------------------------------------------- EB6A: 28 0E ADD %0E,A EB6C: 0A RETS ------------------------------------------------------- EB6D: C0 MOV A,B EB6E: B5 CLR A EB6F: 72 08 4D MOV %08,R4D EB72: CE DAC B,A EB73: 1E 00 DAC R00,A EB75: DA 4D FA DJNZ R4D,EB72 EB78: 8C C0 B0 BR C0B0 EB7B: C8 PUSH B EB7C: C0 MOV A,B EB7D: B5 CLR A EB7E: 72 08 4D MOV %08,R4D EB81: CE DAC B,A EB82: 1E 00 DAC R00,A EB84: DA 4D FA DJNZ R4D,EB81 EB87: C9 POP B EB88: 8C C0 BC BR C0BC EB8B: C8 PUSH B EB8C: 9A 58 LDA *R58 EB8E: C0 MOV A,B EB8F: BC RR A EB90: BC RR A EB91: 23 3F AND %3F,A EB93: 28 54 ADD %54,A EB95: 8B 62 AF STA 62AF EB98: DB 58 DECD R58 EB9A: 9A 58 LDA *R58 EB9C: BE RL A EB9D: CF RLC B EB9E: BE RL A EB9F: CF RLC B EBA0: 53 0F AND %0F,B EBA2: 62 MOV B,A EBA3: 8B 62 B0 STA 62B0 EBA6: 9A 58 LDA *R58 EBA8: C0 MOV A,B EBA9: BC RR A EBAA: 23 1F AND %1F,A EBAC: 8B 62 B1 STA 62B1 EBAF: DB 58 DECD R58 EBB1: 9A 58 LDA *R58 EBB3: BE RL A EBB4: CF RLC B EBB5: BE RL A EBB6: CF RLC B EBB7: BE RL A EBB8: CF RLC B EBB9: BE RL A EBBA: CF RLC B EBBB: 53 1F AND %1F,B EBBD: 62 MOV B,A EBBE: 8B 62 B2 STA 62B2 EBC1: 9A 58 LDA *R58 EBC3: C0 MOV A,B EBC4: DB 58 DECD R58 EBC6: 9A 58 LDA *R58 EBC8: BE RL A EBC9: CF RLC B EBCA: BE RL A EBCB: CF RLC B EBCC: 53 3F AND %3F,B EBCE: 62 MOV B,A EBCF: 8B 62 B3 STA 62B3 EBD2: 9A 58 LDA *R58 EBD4: 23 3F AND %3F,A EBD6: 8B 62 B4 STA 62B4 EBD9: DB 58 DECD R58 EBDB: 9A 58 LDA *R58 EBDD: C0 MOV A,B EBDE: 8A 61 FC LDA 61FC EBE1: E5 04 JGE EBE7 EBE3: C1 TSTB EBE4: E2 01 JZ EBE7 EBE6: B3 INC A EBE7: 23 1F AND %1F,A EBE9: C0 MOV A,B EBEA: 88 62 B2 4D MOVD %62B2,R4D EBEE: 9A 4D LDA *R4D EBF0: 68 ADD B,A EBF1: 2D 18 CMP %18,A EBF3: E7 38 JL EC2D EBF5: 2A 18 SUB %18,A EBF7: 9B 4D STA *R4D EBF9: 8A 62 B0 LDA 62B0 EBFC: C0 MOV A,B EBFD: DB 4D DECD R4D EBFF: 9A 4D LDA *R4D EC01: B3 INC A EC02: AD EC 80 CMPA @EC80(B) EC05: E7 26 JL EC2D EC07: 5D 02 CMP %02,B EC09: E6 0C JNZ EC17 EC0B: B6 XCHB A EC0C: 8A 62 AF LDA 62AF EC0F: 26 03 05 BTJO %03,A,EC17 EC12: B6 XCHB A EC13: 2D 1E CMP %1E,A EC15: E7 16 JL EC2D EC17: 22 01 MOV %01,A EC19: 9B 4D STA *R4D EC1B: DB 4D DECD R4D EC1D: 9A 4D LDA *R4D EC1F: B3 INC A EC20: 2D 0D CMP %0D,A EC22: E6 09 JNZ EC2D EC24: 22 01 MOV %01,A EC26: 9B 4D STA *R4D EC28: DB 4D DECD R4D EC2A: 9A 4D LDA *R4D EC2C: B3 INC A EC2D: 9B 4D STA *R4D EC2F: C9 POP B EC30: 8A 62 B1 LDA 62B1 EC33: 8E EB 7B CALL EB7B EC36: 8A 62 B0 LDA 62B0 EC39: C0 MOV A,B EC3A: 18 00 ADD R00,A EC3C: 38 00 ADD R00,B EC3E: A8 EC 8A 47 MOVD %EC8A(B),R47 ;Month table ??? EC42: 72 01 10 MOV %01,R10 EC45: 8E C1 1A CALL C11A EC48: 22 2E MOV %2E,A EC4A: F2 TRAP 13 EC4B: 8A 62 B2 LDA 62B2 EC4E: E6 02 JNZ EC52 EC50: 28 0C ADD %0C,A EC52: 2D 0D CMP %0D,A EC54: E7 02 JL EC58 EC56: 2A 0C SUB %0C,A EC58: C0 MOV A,B EC59: 22 2E MOV %2E,A EC5B: 5D 0A CMP %0A,B EC5D: E7 04 JL EC63 EC5F: 22 21 MOV %21,A EC61: 5A 0A SUB %0A,B EC63: F2 TRAP 13 EC64: 62 MOV B,A EC65: 28 20 ADD %20,A EC67: F2 TRAP 13 EC68: 22 1D MOV %1D,A EC6A: F2 TRAP 13 EC6B: 8A 62 B3 LDA 62B3 EC6E: 8E EB 6D CALL EB6D EC71: C5 CLR B EC72: 8A 62 B2 LDA 62B2 EC75: 2D 0C CMP %0C,A EC77: E7 02 JL EC7B EC79: 52 12 MOV %12,B EC7B: 62 MOV B,A EC7C: F2 TRAP 13 EC7D: 22 0C MOV %0C,A EC7F: F2 TRAP 13 EC80: 0A RETS IOCNT0 EQU >0100 ;P0 - I/O Control Register 0 APORT EQU >0104 ;P4 - Port A data ADDR EQU >0105 ;P5 - Port A direction BPORT EQU >0106 ;P6 - Port B data IOCNT1 EQU >0110 ;P16 - I/O Control Register 1 SMODE EQU >0111 ;P17 - Serial Mode register (first write) SCTL0 EQU >0111 ;P17 - Serial Control register 0 (write) SSTAT EQU >0111 ;P17 - Serial port status register (read) T3DATA EQU >0114 ;P20 - Timer 3 data SCTL1 EQU >0115 ;P21 - Serial Control Register 1 U24-1 EQU >011A ;P25 - U24 U24-2 EQU >011C ;P27 - U24 ---------------------------------------------- ; ;Month table (days in each code month ??) ; EC81: 20 ;32 decimal EC82: 1D ;29 EC83: 20 ;32 EC84: 1F ;31 EC85: 20 ;32 EC86: 1F ;31 EC87: 20 ;32 EC88: 20 ;32 EC89: 1F ;31 EC8A: 20 ;32 EC8B: 1F ;31 EC8C: 20 ;32 ----------------------------------------------------------- EC8D: D4 90 10 ;-JAN EC90: D4 51 01 ;-FEB EC93: D4 C0 14 ;-MAR EC96: D4 04 94 ;-APR EC99: D4 C0 1B ;-MAY EC9C: D4 95 D0 ;-JUN EC9F: D4 95 CB ;-JUL ECA2: D4 05 C6 ;-AUG ECA5: D5 51 12 ;-SEP ECA8: D5 10 96 ;-OCT ECAB: D5 04 58 ;-NOV ECAE: D4 31 02 ;-DEC --------------------------------------------------------------- ECB1: 0B 05 25 0B 49 12 8F 1D ECB9: FF 37 FF 8F FF 8F FF 8F ------------------------------------------------ ; ;Key function codes ; ECC1: 00 ;0 ECC2: 00 ;1 ECC3: 00 ;2 ECC4: 00 ;3 ECC5: 00 ;4 ECC6: 00 ;5 ECC7: 00 ;6 ECC8: 00 ;7 ECC9: 00 ;8 ECCA: 00 ;9 ECCB: 00 ;CANCEL ECCC: 04 ; ECCD: 01 ;TV ECCE: 04 ; ECCF: 04 ; ECD0: 01 ;SAT ECD1: 04 ; ECD2: 02 ;HELP ECD3: 02 ;SETUP ECD4: 02 ;VIEW ECD5: 02 ;TEXT ECD6: 02 ;MESSAGE ECD7: 02 ;NEXT PRG ECD8: 00 ;ENTER ECD9: 00 ; ECDA: 00 ; ECDB: 04 ; ECDC: 04 ; ECDD: 00 ;> ECDE: 00 ;< ECDF: 04 ; ECE0: 04 ; -------------------------------------- ECE1: CA ;CAD6 ;0 ECE2: CA ;CADA ;1 ECE3: CA ;CADE ;2 ECE4: CA ;CAE2 ;3 ECE5: CA ;CAE6 ;4 ECE6: CA ;CAEA ;5 ECE7: CA ;CAEE ;6 ECE8: CA ;CAF2 ;7 ECE9: CA ;CAF6 ;8 ECEA: CA ;CAFA ;9 ECEB: CB ;CB2D ;CANCEL ECEC: CB ;CB2A ; ECED: CB ;CB60 ;TV ECEE: CB ;CB2A ; ECEF: CB ;CB2A ; ECF0: CB ;CB6B ;SAT ECF1: CB ;CBCB ; ECF2: E1 ;E125 ;HELP ECF3: D4 ;D4CB ;SETUP ECF4: DC ;DCA2 ;VIEW ECF5: D9 ;D9E5 ;TEXT ECF6: DF ;DFC1 ;MESSAGE ECF7: E3 ;E3F3 ;NEXT PRG ECF8: CB ;CB51 ;ENTER ECF9: CB ;CB7A ; ECFA: CB ;CB7A ; ECFB: CB ;CB2A ; ECFC: CB ;CB2A ; ECFD: CA ;CAFE ;> ECFE: CB ;CB02 ;< ECFF: CB ;CB2A ; ED00: CB ;CBCB ; ------------------------------ ED01: D6 ;CAD6 ;0 ED02: DA ;CADA ;1 ED03: DE ;CADE ;2 ED04: E2 ;CAE2 ;3 ED05: E6 ;CAE6 ;4 ED06: EA ;CAEA ;5 ED07: EE ;CAEE ;6 ED08: F2 ;CAF2 ;7 ED09: F6 ;CAF6 ;8 ED0A: FA ;CAFA ;9 ED0B: 2D ;CB2D ;CANCEL ED0C: 2A ;CB2A ; ED0D: 60 ;CB60 ;TV ED0E: 2A ;CB2A ; ED0F: 2A ;CB2A ; ED10: 6B ;CB6B ;SAT ED11: CB ;CBCB ; ED12: 25 ;E125 ;HELP ED13: CB ;D4CB ;SETUP ED14: A2 ;DCA2 ;VIEW ED15: E5 ;D9E5 ;TEXT ED16: C1 ;DFC1 ;MESSAGE ED17: F3 ;E3F3 ;NEXT PRG ED18: 51 ;CB51 ;ENTER ED19: 7A ;CB7A ; ED1A: 7A ;CB7A ; ED1B: 2A ;CB2A ; ED1C: 2A ;CB2A ; ED1D: FE ;CAFE ;> ED1E: 02 ;CB02 ;< ED1F: 2A ;CB2A ; ED20: CB ;CBCB ; ; ;Remote commands ; ED21: C2 ;C22D Command >00 ED22: C2 ;C22D Command >01 ED23: C2 ;C24F Command >02 ED24: C2 ;C24F Command >03 ED25: C2 ;C2DF Command >04 ED26: C2 ;C2DF Command >05 ED27: C3 ;C30C Command >06 ED28: C3 ;C30C Command >07 ED29: CF ;CFEF Command >08 ED2A: DE ;DEEC Command >09 ED2B: CF ;CFC5 Command >0A ED2C: C3 ;C397 Command >0B ED2D: CF ;CFA4 Command >0C ED2E: C3 ;C3C4 Command >0D ED2F: C3 ;C3D1 Command >0E ED30: C3 ;C396 Command >0F (Exit) ED31: C3 ;C396 Command >10 (Exit) ED32: C3 ;C396 Command >11 (Exit) ED33: D1 ;D116 Command >12 ED34: D1 ;D11A Command >13 ED35: C3 ;C396 Command >14 (Exit) ED36: C3 ;C396 Command >15 (Exit) ED37: C3 ;C396 Command >16 (Exit) ED38: C3 ;C396 Command >17 (Exit) ED39: C3 ;C396 Command >18 (Exit) ED3A: C3 ;C396 Command >19 (Exit) ED3B: C3 ;C396 Command >1A (Exit) ED3C: C3 ;C396 Command >1B (Exit) ED3D: C3 ;C396 Command >1C (Exit) ED3E: C3 ;C396 Command >1D (Exit) ED3F: C3 ;C357 Command >1E ED40: C3 ;C313 Command >1F ------------- ED41: 2D ;C22D Command >00 ED42: 2D ;C22D Command >01 ED43: 4F ;C24F Command >02 ED44: 4F ;C24F Command >03 ED45: DF ;C2DF Command >04 ED46: DF ;C2DF Command >05 ED47: 0C ;C30C Command >06 ED48: 0C ;C30C Command >07 ED49: EF ;CFEF Command >08 ED4A: EC ;DEEC Command >09 ED4B: C5 ;CFC5 Command >0A ED4C: 97 ;C397 Command >0B ED4D: A4 ;CFA4 Command >0C ED4E: C4 ;C3C4 Command >0D ED4F: D1 ;C3D1 Command >0E ED50: 96 ;C396 Command >0F (Exit) ED51: 96 ;C396 Command >10 (Exit) ED52: 96 ;C396 Command >11 (Exit) ED53: 16 ;D116 Command >12 ED54: 1A ;D11A Command >13 ED55: 96 ;C396 Command >14 (Exit) ED56: 96 ;C396 Command >15 (Exit) ED57: 96 ;C396 Command >16 (Exit) ED58: 96 ;C396 Command >17 (Exit) ED59: 96 ;C396 Command >18 (Exit) ED5A: 96 ;C396 Command >19 (Exit) ED5B: 96 ;C396 Command >1A (Exit) ED5C: 96 ;C396 Command >1B (Exit) ED5D: 96 ;C396 Command >1C (Exit) ED5E: 96 ;C396 Command >1D (Exit) ED5F: 57 ;C357 Command >1E ED60: 13 ;C313 Command >1F ; =================================================================== ED61: 80 40 20 44 44 44 44 44 44 44 44 44 44 41 42 43 46 47 48 48 ED75: 80 81 82 80 ED79: 80 80 80 80 80 80 80 80 80 80 80 80 80 80 82 80 80 80 80 80 80 80 80 80 80 80 80 80 80 80 81 81 81 81 81 81 81 81 81 81 81 81 81 80 81 82 81 81 81 81 81 81 81 81 81 81 81 81 81 81 82 82 82 82 82 82 82 82 82 82 82 82 81 80 82 82 82 82 83 82 83 82 82 82 82 82 82 82 82 82 83 83 83 83 83 83 83 83 83 83 83 83 81 80 83 83 83 83 83 82 83 82 82 83 82 82 83 83 83 83 ************************************ MESSAGES ************************************ EDF1: BA EB 83 20 01 90 45 55 88 0A E0 C0 58 0B AE ; DIAGNOSTIC DATA EE00: 58 71 2E 40 46 96 B9 25 11 19 40 0C B8 85 6E ;THE NEXT PROGRAM IS EE0F: BA E5 87 21 5B 92 51 11 94 00 CB 88 56 EB AE ; THIS PROGRAM IS EE1E: BA EB 90 45 6B 80 60 02 0B 00 12 C4 BA EB AE ; NOT AVAILABLE EE2D: BA EB 85 45 4B AE 49 75 02 1C 05 44 BA EB AE ; FOR PURCHASE EE3C: BA E4 11 BA E5 57 05 50 94 21 25 88 45 0B AE ; NO SUBSCRIPTION EE4B: B8 24 55 59 DB AE ; COST: EE51: 7F 4B 80 49 22 C8 08 00 4B 12 E5 80 68 45 6F ;[+ APPLICABLE TAXES] EE60: BA EB AE 48 06 F5 48 45 35 60 81 19 BA EB AE ; PAY-PER-VIEW EE6F: BA ED AE 48 06 F5 48 45 35 60 81 19 BB 6B AE * PAY-PER-VIEW * EE7E: B9 74 00 04 B1 2E 59 1B 82 44 C4 8B 11 61 2E ; * UNABLE TO COMPLETE EE8D: B9 25 11 19 40 0C B9 25 D4 08 70 15 12 ED 6E ; PROGRAM PURCHASE - EE9C: 09 14 16 00 25 AE 58 71 2E 49 44 46 50 03 2E ;CONTACT THE PROGRAM EEAB: B9 55 D2 48 B2 04 52 E5 04 18 05 03 21 01 AE ; SUPPLIER REGARDING EEBA: BA EB AE 6D 15 D4 B8 00 82 45 74 16 BA EB AE ; YOUR ACCOUNT EEC9: BA EB AE 21 01 51 50 C0 16 21 14 2E BA EB AE ; INFORMATION EED8: BA EB 82 5D 45 04 41 62 DB B9 04 56 BA EB AE ; CURRENTLY NOT EEE7: BA EB AE B8 06 00 20 B0 01 2C 4B AE BA EB AE ; AVAILABLE EEF6: BA E4 94 44 65 00 31 5B 80 50 4B 90 45 6B AE ; PROGRAMS ARE NOT EF05: 44 51 44 50 40 EE 15 15 2E 49 75 02 1C 05 44 ;OFFERED FOR PURCHASE EF14: BA EB AE 6D 15 EE 01 41 2E 00 12 C4 BA EB AE ; YOU ARE ABLE EF23: BA EB 9B 45 7B 8C 5D 55 AE 45 21 10 BA EB AE ; YOU MUST OPEN EF32: BA EB AE B8 04 2E 00 20 91 5D 05 AE BA EB AE ; AN ACCOUNT EF41: 59 1B 92 5D 40 87 01 51 2E 49 44 46 50 03 15 ;TO PURCHASE PROGRAMS EF50 BA E4 50 B9 61 C8 56 E0 87 01 04 04 2E EB AE ; ON THIS CHANNEL EF5F: B9 40 16 21 01 9D BA EB AE BA EB AE BA EB AE ; RATING: ======================================================== EF6E: 09 41 03 21 67 6E BA EB AE BA EB AE BA EB AE ;CREDIT: ======================================================== EF7D: 09 41 03 21 6B 98 11 42 05 20 20 16 21 14 1D ;CREDIT VERIFICATION: ======================================================== F18C: BA EB 92 51 11 94 00 CB 94 01 62 10 1A EB AE ; PROGRAM RATING ======================================================== EF9B: B9 25 D4 08 70 15 12 E4 80 55 56 51 50 3B AE ; PURCHASE PASSWORD ======================================================== EFAA: BA EB AE BA E4 80 55 56 51 50 3B AE BA EB AE ; PASSWORD EFB9: BA EB 88 40 54 54 30 05 88 45 0B 88 56 EB AE ; INFORMATION IS EFC8: BA EB 90 45 6B AE 01 80 08 2C 00 4B 12 EB AE ; NOT AVAILABLE EFD7: 85 DB 88 41 55 80 2C B0 16 21 14 2E BA EB AE ;1: INSTALLATION EFE6: 89 DB 97 40 85 AE 54 45 96 21 01 95 BA EB AE ;2: UNIT SETTINGS EFF5: 8D DB 94 01 62 10 1A E0 84 20 B2 10 1A EB AE ;3: RATING CEILING F004: 91 DB 94 01 62 10 1A E4 80 55 56 51 50 3B AE ;4: RATING PASSWORD F013: 95 DB 92 5D 40 87 01 51 2E 48 05 55 65 15 03 ;5: PURCHASE PASSWORD F022: 99 DB 92 5D 40 87 01 51 2E 1C 85 56 45 46 EE ;6: CREDIT DISPLAY F031: 9D DB 92 5D 40 87 01 51 2E 55 60 16 5D 5B AE ;7: PURCHASE HISTORY F040: A1 DB 82 50 40 C8 5A E0 C8 55 22 C0 6E EB AE ;8: DATA REPORT F04F: 7E EB AE 11 05 84 52 E8 6E 59 1B AE BA EB AF ;( ENTER 1 TO ) ======================================================== F05E: BA EB 80 5C 32 11 B8 C4 43 12 E2 15 BA EB AE ; AUDIO MODE IS ======================================================== F06D: 7E EB 92 50 45 55 BA C8 6C B8 54 54 BA EB AF ;( PRESS '1' FOR ) F07C: BA EB AE B8 02 D6 11 44 00 58 4B AE BA EB AE ;( ALTERNATE ) F08B: BA EB AE BA E4 94 20 C0 14 6E EB AE BA EB AE ;( PRIMARY ) ======================================================== F09A: B8 C1 15 54 01 84 BA E4 94 44 C4 96 B8 85 6E ; MESSAGE PROMPT IS ======================================================== F0A9: 7E EB AE 49 41 15 56 EB 22 B2 E5 91 BA EB AF ;( PRESS '2' TO ) F0B8: BA EB AE BA E1 10 00 12 C4 0E EB AE BA EB AE ; ENABLED F0C7: BA EB AE BA E0 C8 54 00 4B 10 3B AE BA EB AE ; DISABLED F0D6: 7E EB AE BA EB 84 40 00 4B 12 EB AE BA EB AF ;( ENABLE ) F0E5: 7E EB AE BA E0 C8 54 00 4B 12 EB AE BA EB AF ;( DISABLE ) ======================================================== F0F4: BA EB 84 41 61 14 B9 61 C4 B9 12 C3 BA EB AE ; ENTER THE OLD ======================================================== F103: BA EB 84 41 61 14 BA E5 87 12 E4 4B 0E EB AE ; ENTER THE OLD ======================================================== F112: BA EB AE 11 05 84 52 E0 2E 40 46 6E BA EB AE ; ENTER A NEW ======================================================== F121: BA E5 04 11 05 84 52 EB 96 1C 4B 90 11 9B AE ; REENTER THE NEW ======================================================== F130: BA EB AE BA 0D 68 B8 32 06 21 65 6E BA EB AE ; 0-8 DIGITS ======================================================== F13F: BA EB AE BA 1D 68 B8 32 06 21 65 6E BA EB AE ; 1-8 DIGITS ======================================================== F14E: BA EB AE 48 B5 D5 BA C1 10 58 45 2C BA EB AE ; PLUS 'ENTER' ======================================================== F15D: BA E1 51 52 E6 04 50 81 48 08 05 88 45 0B AE ; FOR VERIFICATION ======================================================== F16C: BA E1 C0 56 E0 44 11 0B 82 1C 04 06 10 3B AE ; HAS BEEN CHANGED ======================================================== F17B: B9 61 C4 B9 01 19 B9 20 15 55 94 54 0D 5B AE ; THE NEW PASSWORDS ======================================================== F18A: BA E6 44 50 4B 83 20 51 44 50 44 16 76 EB AE ; WERE DIFFERENT ======================================================== F199: 48 05 55 65 15 03 B9 04 56 B8 21 C0 40 61 03 ;PASSWORD NOT CHANGED F1A8: 7E E4 80 18 47 6E BA EB AE BA EB AE BA EB AF ;( PAGE: ) F1B7: 7E E4 17 30 11 14 B9 64 51 B8 B0 14 18 4B AF ;( NUMBER TOO LARGE ) F1C6: 7E EB AE 41 1B AE 30 45 55 00 61 15 BA EB AF ;( NO MESSAGES ) F1D5: 7E E4 11 B9 01 19 11 4B 8C 11 55 40 18 4B AF ;( NO NEWER MESSAGE ) F1E4: 7E E4 11 B9 12 C3 11 4B 8C 11 55 40 18 4B AF ;( NO OLDER MESSAGE ) F1F3: 7E EB AE BA EC AE B9 15 2E BB 3B AE BA EB AF ;( < OR > ) F202: 7E EC BD BB 3F 6E 48 01 84 B9 05 CC 04 45 2F ;( <, >, PAGE NUMBER) F211: 7E E1 10 58 45 2E 58 71 2E 50 05 88 40 6B AF ;( ENTER THE RATING ) ======================================================== F220: 7D 20 15 55 94 54 0D DB AE BA EB AE BA EB AF ;(PASSWORD: ) F22F: 7C 44 16 11 4B 96 1C 4B 92 5D 40 87 01 51 2F ;(ENTER THE PURCHASE) F23E: 7E EB 99 51 14 06 B9 20 15 55 94 54 0E EB AF ;( WRONG PASSWORD ) F24D: 7E E4 11 B9 12 C3 11 4B 87 21 55 91 51 BB AF ;( NO OLDER HISTORY ) F25C: 7E E4 11 B9 01 19 11 4B 87 21 55 91 51 BB AF ;( NO NEWER HISTORY ) F26B: 7E EB AE 41 1B 92 5D 40 87 01 51 15 BA EB AF ;( NO PURCHASES ) F27A: B8 12 C0 08 A4 57 5A E2 10 B8 41 45 10 25 AE ; BLACKOUT IN EFFECT F289: B8 02 D6 11 44 00 58 4B AE 49 44 46 50 03 2E ; ALTERNATE PROGRAM F298: BA EB 91 42 E0 87 01 04 04 2E EB AE BA EB AE ; ON CHANNEL F2A7: 15 15 2E 58 71 2E 40 46 96 B9 25 11 19 40 0C ;FOR THE NEXT PROGRAM F2B6: BA E1 51 52 E5 87 21 5B 92 51 11 94 00 CB AE ; FOR THIS PROGRAM F2C5: DA EB AE B9 25 04 60 81 19 B9 11 5D BA EB B6 ;* PREVIEW OF: * ======================================================== F2D4: 50 05 88 40 6B 82 10 82 C8 40 67 6E BA EB AE ;RATING CEILING: F2E3: 49 44 46 50 03 2E 50 05 88 40 67 6E BA EB AE ;PROGRAM RATING: F2F2: D9 25 11 19 40 0C B8 B4 42 28 40 EE 45 75 B6 ;*PROGRAM LOCKED OUT* F301: B9 25 11 19 40 0C B8 B4 42 28 40 EE 45 75 AE ; PROGRAM LOCKED OUT F310: 0D 71 2E 59 1B AE 50 05 88 40 6B 8B 11 81 0B ;DUE TO RATING LEVEL F31F: 7E EC BD BB 3F 6E 45 4B AC 11 05 84 52 CB AF ;( <, >, OR 'ENTER' ) F32E 7E EB AE BA EB 04 41 61 14 B2 EB AE BA EB AF ;( 'ENTER' ) ======================================================== F33D: 7E E4 94 11 55 6E B0 44 16 11 4B 2E 59 1B AF ;( PRESS 'ENTER' TO ) ======================================================== F34C: 7E E0 91 40 52 14 32 E4 97 50 21 C0 54 4B AF ;( CONFIRM PURCHASE ) ======================================================== F35B: 5D 02 16 76 EB AE BA EB AE BA EB AE BA EB AE ;UNIT: ======================================================== F36A: 54 81 90 00 BB 8B 11 81 0B 76 EB AE BA EB AE ;SIGNAL LEVEL: ======================================================== F379: 54 45 18 20 21 2E 20 37 6E BA EB AE BA EB AE ;SERVICE ID: ======================================================== F388: 2D 10 80 58 84 50 76 EB AE BA EB AE BA EB AE ;LOCATION F397: 54 45 AE BA EB AE ;SET F39D: 41 15 AE 54 45 AE ;NOT SET F3A3: 41 14 04 ;NONE ======================================================== F3A6: B9 01 04 0D 5B 80 5D 61 D1 50 87 00 58 84 50 ;" NEEDS AUTHORIZATION" F3B5: 76 EB 90 46 EB AE ;": NO " F3BB: BA E6 08 0C 44 42 21 21 C4 52 E5 48 19 00 0B ; VIDEOCIPHER SIGNAL --------------------------------------------------------------------- ; ; LOOK-UP TABLE FOR MESSAGE STRINGS ; -------------------------------------------------------------------- F3CA: F05E ; AUDIO MODE IS F3CC: F836 ; F3CE: F06D ;( PRESS '1' FOR ) F3D0: F836 ; F3D2: F836 ; F3D4: F09A ; MESSAGE PROMPT IS F3D6: F836 ; F3D8: F0A9 ;( PRESS '2' TO ) F3DA: F836 ; ============================================================================ F3DC: F0 F4 ; ENTER THE OLD F3DE: EF 9B ; PURCHASE PASSWORD F3E0: F8 36 ; F3E2: F8 36 ; F3E4: F8 36 ; F3E6: F1 3F ; 1-8 DIGITS F3E8: F1 4E ; PLUS ENTER F3EA: F8 36 ; F3EC: F2 20 ;(PASSWORD: ) ============================================================================ F3EE: F1 12 ; ENTER A NEW F3F0: EF 9B ; PURCHASE PASSWORD F3F2: F8 36 ; F3F4: F8 36 ; F3F6: F8 36 ; F3F8: F1 30 ; 0-8 DIGITS F3FA: F1 4E ; PLUS ENTER F3FC: F8 36 ; F3FE: F2 20 ;(PASSWORD: ) ============================================================================ F400: F1 03 ; ENTER THE OLD F402: EF 8C ; PROGRAM RATING F404: EF AA ; PASSWORD F406: F8 36 ; F408: F8 36 ; F40A: F1 3F ; 1-8 DIGITS F40C: F1 4E ; PLUS ENTER F40E: F8 36 ; F410: F2 20 ;(PASSWORD: ) ============================================================================ F412: F1 12 ; ENTER A NEW F414: EF 8C ; PROGRAM RATING F416: EF AA ; PASSWORD F418: F8 36 ; F41A: F8 36 ; F41C: F1 30 ; 0-8 DIGITS F41E: F1 4E ; PLUS ENTER F420: F8 36 ; F422: F2 20 ;(PASSWORD: ) ============================================================================ F424: F1 21 ; REENTER THE NEW F426: EF AA ; PASSWORD F428: F1 5D ; FOR VERIFICATION F42A: F8 36 ; F42C: F8 36 ; F42E: F1 30 ; 0-8 DIGITS F430: F1 4E ; PLUS ENTER F432: F8 36 ; F434: F2 20 ;(PASSWORD: ) ============================================================================ F436: F8 36 ; F438: F8 36 ; F43A: F8 36 ; F43C: F8 36 ; F43E: EF AA ; PASSWORD F440: F1 6C ; HAS BEEN CHANGED F442: F8 36 ; F444: F8 36 ; F446: F8 36 ; ============================================================================ F448: F8 36 ; F44A: F8 36 ; F44C: F8 36 ; F44E: F1 7B ; THE NEW PASSWORDS F450: F1 8A ; WERE DIFFERENT F452: F1 99 ;PASSWORD NOT CHANGED F454: F8 36 ; F456: F8 36 ; F458: F8 36 ; ============================================================================ F45A: F8 36 ; F45C: EF 6E ;CREDIT: F45E: F8 36 ; F460: F8 36 ; F462: EF 7D ;CREDIT VERIFICATION: F464: F8 36 ; F466: F8 36 ; F468: F8 36 ; F46A: F8 36 ; ============================================================================ F46C: F8 36 ; F46E: F8 36 ; F470: F8 36 ; F472: F8 36 ; F474: F8 36 ; F476: F8 36 ; F478: F8 36 ; F47A: F3 3D ;(PRESS 'ENTER' TO ) F47C: F3 4C ;( CONFIRM PURCHASE ) ============================================================================ F47E: F2 D4 ;RATING CEILING: F480: F8 36 ; F482: F8 36 ; F484: F8 36 ; F486: F8 36 ; F488: F8 36 ; F48A: F8 36 ; F48C: F8 36 ; F48E: F8 36 ; ============================================================================ F490: F3 5B ;UNIT: F492: F8 36 ; F494: F3 6A ;SIGNAL LEVEL: F496: F8 36 ; F498: F3 79 ;SERVICE ID: F49A: F8 36 ; F49C: F3 88 ;LOCATION: F49E: F8 36 ; F4A0: F8 36 ; ---------------------------------------------------------------------- F4A2: 0F 1E 1E 22 23 23 19 28 28 1E 19 1E 19 19 28 0F 23 F4B3: 28 14 14 00 00 00 14 00 00 00 14 14 28 14 00 28 00 ---------------------------------------------------------------------- F4C4: 50 41 44 52 E5 91 B9 61 C4 B9 75 44 52 C5 6E ;REFER TO THE USER'S " F4D3: 30 04 17 00 BB 96 46 E2 10 58 45 12 50 45 AE ;MANUAL TO INTERPRET " F4E2: 21 05 56 00 B2 C0 58 84 50 B9 80 0B 5C 45 6D ;INSTALLATION VALUES." ==================================================================== F4F1: BA E1 10 58 45 2E 02 E0 C8 18 85 AE 59 1B AE ; ENTER A DIGIT TO F500: BA EB 84 68 03 08 40 4B 95 59 15 04 0E EB AE ; EXAMINE STORED F50F: B8 84 05 45 43 00 58 84 50 F6 E4 54 B9 64 6E ; INFORMATION, OR TO F51E: B8 21 C0 40 61 2E 58 71 2E 64 06 EE 58 71 2E ; CHANGE THE WAY THE F52D: BA E6 08 0C 44 42 21 21 C4 52 E5 D0 21 6B AE ; VIDEOCIPHER UNIT F53C: BA EB AE BA E4 52 11 40 16 11 5B 6E BA EB AE ; OPERATES. =============================================================== F54B: BA C3 04 55 50 06 12 CB 83 21 54 8B 01 B5 6E ; 'MESSAGE' DISPLAYS F55A: BA E5 87 12 E4 4B 0C 45 56 B9 74 15 10 44 2E ; THE OLDEST UNSEEN F569: B8 C1 15 54 01 84 B6 EB AE 5D 51 2E B3 3B 2E ; MESSAGE. USE '>' F578: 15 15 2E 58 71 2E 40 46 96 B8 C1 15 54 01 84 ;FOR THE NEXT MESSAGE F587: BA EB 91 52 EB 32 B2 E1 51 52 E5 87 12 EB AE ; OR '<' FOR THE F596: BA EB 92 50 46 08 45 75 6E 45 01 2D BA EB AE ; PREVIOUS ONE. ============================================================== F5A5: B9 75 44 BA EB 10 11 A5 AE 49 41 AC B9 64 6E ; USE 'NEXT PRG' TO F5B4: 05 76 EE 02 E4 94 44 65 00 32 E0 44 15 15 04 ;BUY A PROGRAM BEFORE F5C3: 21 6B 81 10 62 10 56 DB AE B8 20 10 08 42 EE ;IT BEGINS. CANCEL F5D2: B9 61 C4 B9 25 04 49 75 02 1C 05 44 B8 16 EE ; THE PREPURCHASE BY F5E1: 08 70 10 18 84 06 B9 61 C4 B8 21 C0 41 01 0B ;CHANGING THE CHANNEL F5F0: B8 11 05 45 41 2E 58 71 2E 49 44 46 50 03 2E ; BEFORE THE PROGRAM F5FF: BA EB AE BA EB 95 58 05 16 56 DB AE ; BEGINS. ============================================================== F60B: 11 05 84 52 E5 87 12 EB 94 11 35 C4 55 61 03 ;ENTER THE REQUESTED F61A: B9 20 15 55 94 54 0E E0 10 0E E4 94 11 55 6E ; PASSWORD AND PRESS F629: BA E5 87 12 EB 04 41 61 14 B2 E2 84 6E DB AE ; THE 'ENTER' KEY F638: BA EB AE BA EB AE BA EB AE BA EB AE BA EB AE ; F647: 5D 51 2E 58 71 2E B0 20 10 08 42 EC B8 A1 1B ;USE THE 'CANCEL' KEY F656: BA E5 91 B8 31 0B 11 61 2E B9 95 11 40 6B AE ; TO DELETE WRONG F665: BA EB AE BA EB 83 20 62 16 56 DB AE BA EB AE ; DIGITS. ========================================================== F674: BA E1 10 58 45 2E 02 EB A3 D4 32 06 21 6B AE ; ENTER A 3-DIGIT F683: 41 73 01 11 4B AE 59 1B 85 21 00 EE 58 70 16 ;NUMBER TO FIND THAT F692: 48 01 84 B6 EB 84 41 61 14 BA CC EC B8 54 54 ;PAGE. ENTER '>' FOR F6A1: 58 71 2E 40 46 96 B9 20 06 12 E4 54 BA CC AC ;THE NEXT PAGE OR '<' F6B0: B8 54 54 B9 61 C4 B9 25 08 45 4B 91 40 4B 6E ; FOR THE LAST PAGE. F6BF: BA EB 97 54 4B AC 08 04 02 10 BB 2E 59 1B AE ; USE 'CANCEL' TO F6CE: B9 55 91 4A E0 2E 48 01 84 B9 51 00 50 21 ED ; STOP A PAGE SEARCH. ========================================================== F6DD: 15 12 CB 45 9B AE 58 71 2E 30 44 17 56 E0 15 ;FOLLOW THE MENUS AS F6EC: 49 44 4C 49 61 03 B8 84 2E 45 40 C4 52 E5 91 ;PROMPTED IN ORDER TO F6FB: B8 21 C0 40 61 2E B9 61 C4 B9 40 16 21 01 AE ; CHANGE THE RATING F70A: BA EB 82 10 82 C8 40 6F 6E 45 4B 96 46 EB AE ; CEILING, OR TO F719: B9 25 D4 08 70 15 12 E0 10 B8 46 04 41 6B 6E ; PURCHASE AN EVENT. ========================================================== F728: BA E4 97 50 21 C0 54 4B 87 21 55 91 51 BB AE ; PURCHASE HISTORY F737: B8 85 6E 58 71 2E 0C 05 84 F6 E5 88 30 4F 6E ; IS THE DATE, TIME, F746: BA E0 91 55 6B 80 40 33 D0 00 C1 2E 44 5B AE ; COST AND NAME OF F755: BA E5 87 12 E4 94 11 82 11 5D 5B AE 86 4B AE ; THE PREVIOUS 14 F764: 49 75 02 1C 05 44 0E EB 92 51 11 94 00 C5 6D ;PURCHASED PROGRAMS. F773: BA EB 97 54 4B AC CE CB 85 45 4B 90 11 91 14 ; USE '>' FOR NEWER F782: B8 44 16 50 81 15 F6 E4 54 BA CC AC B8 54 54 ; ENTRIES, OR '<' FOR F791: BA EB AE B9 12 C3 11 4B 91 40 45 6D BA EB AE ; OLDER ONES. ========================================================== F7A0: 58 71 2E 60 80 C4 44 22 12 1C 45 2E 28 46 D5 ;THE VIDEOCIPHER KEYS F7AF: 7E E6 08 11 9F 6E 1C 42 D2 F6 E5 44 59 74 BD ;( VIEW, HELP, SETUP, F7BE: B9 01 1A 5A E4 94 1B DB 8C 11 55 40 18 4F 6E ; NEXT PRG, MESSAGE, F7CD: 58 46 96 F6 EC AE 01 00 EE CE EB EE 65 15 0A ;TEXT, < AND > ) WORK F7DC: BA EB 91 40 B6 EE 64 71 10 B9 61 C4 BA EB AE ; ONLY WHEN THE F7EB: 60 80 C4 44 22 12 1C 45 2E 2C 81 87 5A E2 15 ;VIDEOCIPHER LIGHT IS F8FA: B9 14 2D B9 75 44 B9 61 C4 BA C6 08 11 9B 2E ; ON. USE THE 'VIEW' F809: BA EB 8A 11 BB 96 46 E5 44 12 E5 98 B6 EB AE ; KEY TO SEE TV. ========================================================== F818: BA EB 97 54 4B AC 11 05 84 52 CB 96 46 EB AE ; USE 'ENTER' TO F827: B8 C0 0A 12 E5 87 12 E4 97 50 21 C0 54 4B 6E ; MAKE THE PURCHASE. ========================================================== F836: BA EB AE BA EB AE BA EB AE BA EB AE BA EB AE ; F845: BA E5 D5 12 EB 02 01 00 84 2E CB AE 45 4B AE ; USE 'CANCEL' OR F854: BA EB AC 60 81 19 B2 E5 91 B8 46 88 5A EB AE ; 'VIEW' TO EXIT F863: BA E6 48 58 74 57 5A E4 97 50 21 C0 54 4B 6E ; WITHOUT PURCHASE ========================================================== F872: BA E5 D5 12 EB 33 B2 E5 91 B9 40 08 54 4B AE ; USE '>' TO RAISE F881: B9 61 C4 B9 40 16 21 01 AE 08 42 0B 21 01 AE ; THE RATING CEILING F890: B9 15 2E B3 2B 2E 59 1B 8B 45 91 14 B8 85 AD ; OR '<' TO LOWER IT F89F: BA EB 97 54 4B AC 11 05 84 52 CB 96 46 EB AE ; USE 'ENTER' TO F8AE: BA EB AE B8 24 50 58 84 17 12 DB AE BA EB AE ; CONTINUE ========================================================== F8BD: B8 05 C3 21 1B 8C 44 31 2E 54 42 C4 09 65 6E ; AUDIO MODE SELECTS F8CC: B8 42 16 1C 45 2E 58 71 2E 49 42 0C 01 46 EE ; EITHER THE PRIMARY F8DB: BA E4 54 B9 61 C4 B8 02 D6 11 44 00 58 4B AE ; OR THE ALTERNATE F8EA: BA E4 94 44 65 00 32 E6 47 11 0B 96 65 1B AE ; PROGRAM WHEN TWO F8F9: B8 05 C3 21 1B 92 51 11 94 00 C5 6E 01 41 2E ; AUDIO PROGRAMS ARE F908: BA E0 44 21 01 AE 05 44 40 0C 20 15 5A DB AE ; BEING BROADCAST ========================================================== F917: BA EB 92 5D 40 87 01 51 2E 55 60 16 5D 5B AE ; PURCHASE STATUS F926: BA EB 88 40 32 02 01 61 15 B9 B4 57 52 EB AE ; INDICATES YOUR F935: BA EB 80 04 82 C8 59 BB 96 46 E0 57 6E EB AE ; ABILITY TO BUY F944: BA EB 92 51 11 94 00 C5 6E 45 0B 96 1C 4B AE ; PROGRAMS ON THE F953: BA EB 82 5D 45 04 41 6B 82 1C 04 10 10 BB 6E ; CURRENT CHANNEL ========================================================== F962: 02 E0 4B 21 02 88 40 6B B6 B8 04 92 10 05 15 ;A BLINKING * APPEARS F971: BA E4 50 B9 61 C4 B9 50 94 10 44 2E 59 1B AE ; ON THE SCREEN TO F980: B8 84 03 20 20 16 12 E0 10 B9 74 14 10 00 EE ; INDICATE AN UNREAD F98F: 30 45 55 00 61 2E 20 5B 92 51 13 12 58 84 06 ;MESSAGE IF PROMPTING F99E: BA EB AE B8 85 6E 11 00 01 2C 40 ED BA EB AE ; IS ENABLED ========================================================== F9AD: B9 75 44 BA C1 10 58 45 2C BA E2 05 B9 04 6E ; USE 'ENTER' IF NO F9BC: 48 05 55 65 15 03 B8 85 6E 0C 45 48 50 40 ED ;PASSWORD IS DESIRED. F9CB: B8 44 16 11 4B 85 51 13 2E BA 1B 96 46 EA 2E ; ENTER FROM 1 TO 8 F9DA: B8 32 06 21 65 6E 15 12 CB 45 91 03 B8 16 EE ; DIGITS FOLLOWED BY F9E9: BA C1 10 58 45 2C B8 54 54 BA E0 2E 40 46 6E ; 'ENTER' FOR A NEW FAF8: BA EB AE BA E4 80 55 56 51 50 3B 6E BA EB AE ; PASSWORD. FA07: BA E5 D5 12 EB AC 08 04 02 10 BB 2E 59 1B AE ; USE 'CANCEL' TO FA16: 0C 42 C4 58 4B 99 51 14 06 B8 32 06 21 65 6D ;DELETE WRONG DIGITS. ========================================================== FA25: BA EB AE 58 72 15 B9 25 11 19 40 0C BA EB AE ; THIS PROGRAM FA34: BA E2 15 B9 04 56 B8 06 00 20 B0 01 2C 4B AE ; IS NOT AVAILABLE FA43: BA EB AE 15 15 2E B9 82 04 64 84 06 BA EB AE ; FOR VIEWING ========================================================== FA52: 09 41 03 21 6B 88 56 E5 87 12 E0 D1 2C B0 14 ;"CREDIT IS THE DOLLAR" FA61: 00 C4 57 41 6B 80 60 02 0B 00 12 C4 B8 54 54 ;"AMOUNT AVAILABLE FOR" FA70: BA E3 00 28 84 06 B9 25 D4 08 70 15 11 5B 6E ;" MAKING PURCHASES. " FA7F: BA EB AE BA EB AE BA EB AE BA EB AE BA EB AE ;" " FA8E: 09 41 03 21 6B AE 60 45 08 14 80 80 58 84 50 ;"CREDIT VERIFICATION " FA9D: B8 85 6E 6D 15 D4 BA E4 94 45 61 02 58 40 EE ;" IS YOUR PROTRECTED " FAAC: BA E0 02 09 15 D0 5A E0 40 2C 04 02 12 DB AE ;" ACCOUNT BALANCE. " =============================================================== FABB: 7E EB AE BA EB AC 1C 42 D2 B2 EB AE BA EB AF ;"( 'HELP' )" ============================================================== FACA: B9 62 0C 12 E2 C4 15 67 6E BA EB AE BA EB AE ;" TIME LEFT: " ============================================================= FAD9: B9 55 80 51 65 6E 21 07 6E BA EB AE BA EB AE ;" STARTS IN: " FAE8: EB AE BA EB AE ****************************************************************** ****************************************************************** FAED: 8A 62 70 LDA 6270 ; FAF0: B3 INC A ; FAF1: 8B 62 70 STA 6270 ; FAF4: E6 15 JNZ FB0B ; FAF6: 8A 62 71 LDA 6271 ; FAF9: B3 INC A ; FAFA: 8B 62 71 STA 6271 ; FAFD: E6 0C JNZ FB0B ; FAFF: 8A 62 72 LDA 6272 ; FB02: B3 INC A ; FB03: 8B 62 72 STA 6272 ; FB06: E6 03 JNZ FB0B ; FB08: 74 0C 3B OR %0C,R3B FB0B: 76 08 3B 59 BTJO %08,R3B,FB68 FB0F: 77 10 3B 07 BTJZ %10,R3B,FB1A FB13: 73 EF 3B AND %EF,R3B FB16: 12 43 MOV R43,A FB18: E0 29 JMP FB43 FB1A: 7D 00 3C CMP %00,R3C FB1D: E6 09 JNZ FB28 FB1F: 8A 62 6D LDA 626D FB22: C0 MOV A,B FB23: 8A 62 6C LDA 626C FB26: 9C 01 BR *R01 FB28: 9A 43 LDA *R43 FB2A: 76 20 3B 04 BTJO %20,R3B,FB32 FB2E: 23 0F AND %0F,A FB30: E0 0C JMP FB3E FB32: D3 43 INC R43 FB34: 79 00 42 ADC %00,R42 FB37: D2 3C DEC R3C FB39: B7 SWAP A FB3A: 23 0F AND %0F,A FB3C: 24 10 OR %10,A FB3E: 75 20 3B XOR %20,R3B FB41: 24 C0 OR %C0,A FB43: 82 17 MOVP A,P17 FB45: C0 MOV A,B FB46: 8A 62 6E LDA 626E FB49: 68 ADD B,A FB4A: E7 09 JL FB55 FB4C: C0 MOV A,B FB4D: 8A 62 6F LDA 626F FB50: B3 INC A FB51: 8B 62 6F STA 626F FB54: 62 MOV B,A FB55: 8B 62 6E STA 626E FB58: 8C C5 B7 BR C5B7 ------------------------------------ FB5B: 74 10 3B OR %10,R3B FB5E: B9 POP A FB5F: 8B 62 6D STA 626D FB62: B9 POP A FB63: 8B 62 6C STA 626C FB66: E0 F0 JMP FB58 FB68: 73 D7 3B AND %D7,R3B FB6B: 72 00 3C MOV %00,R3C FB6E: 76 07 3B 05 BTJO %07,R3B,FB77 FB72: 8E FB 5E CALL FB5E FB75: E0 F7 JMP FB6E FB77: B5 CLR A FB78: 8B 62 6E STA 626E FB7B: 8B 62 6F STA 626F FB7E: 22 E6 MOV %E6,A FB80: 8B 62 70 STA 6270 FB83: 22 B0 MOV %B0,A FB85: 8B 62 71 STA 6271 FB88: 22 FF MOV %FF,A FB8A: 8B 62 72 STA 6272 FB8D: 42 3B 3D MOV R3B,R3D FB90: 73 0F 3D AND %0F,R3D FB93: 72 E0 43 MOV %E0,R43 FB96: 8E FB 5B CALL FB5B FB99: 88 00 3D 43 MOVD %003D,R43 FB9D: 72 01 3C MOV %01,R3C FBA0: 8E FB 5E CALL FB5E FBA3: 88 FC 8C 43 MOVD %FC8C,R43 FBA7: 72 01 3C MOV %01,R3C FBAA: 8E FB 5E CALL FB5E FBAD: 72 E1 43 MOV %E1,R43 FBB0: 8E FB 5B CALL FB5B FBB3: 88 62 55 43 MOVD %6255,R43 FBB7: 72 04 3C MOV %04,R3C FBBA: 8E FB 5E CALL FB5E FBBD: 72 E2 43 MOV %E2,R43 FBC0: 8E FB 5B CALL FB5B FBC3: 88 FC 8D 43 MOVD %FC8D,R43 FBC7: 72 02 3C MOV %02,R3C FBCA: 8E FB 5E CALL FB5E FBCD: 8A 62 0D LDA 620D FBD0: 28 0D ADD %0D,A FBD2: 88 62 01 43 MOVD %6201,R43 FBD6: D0 3C MOV A,R3C FBD8: 8E FB 5E CALL FB5E FBDB: 72 E3 43 MOV %E3,R43 FBDE: 8E FB 5B CALL FB5B FBE1: 88 62 5D 43 MOVD %625D,R43 FBE5: 72 08 3C MOV %08,R3C FBE8: 8E FB 5E CALL FB5E FBEB: 88 62 5A 43 MOVD %625A,R43 FBEF: 72 03 3C MOV %03,R3C FBF2: 8E FB 5E CALL FB5E FBF5: 88 61 FD 43 MOVD %61FD,R43 FBF9: 72 02 3C MOV %02,R3C FBFC: 8E FB 5E CALL FB5E FBFF: 72 E4 43 MOV %E4,R43 FC02: 8E FB 5B CALL FB5B FC05: 88 62 73 43 MOVD %6273,R43 FC09: 72 02 3C MOV %02,R3C FC0C: 8E FB 5E CALL FB5E FC0F: 72 00 3D MOV %00,R3D FC12: 72 E5 43 MOV %E5,R43 FC15: 8E FB 5B CALL FB5B FC18: 8A 62 73 LDA 6273 FC1B: C0 MOV A,B FC1C: 8A 62 74 LDA 6274 FC1F: 3A 3D SUB R3D,B FC21: 2B 00 SBB %00,A FC23: 8B 67 F0 STA 67F0 FC26: 62 MOV B,A FC27: 8B 67 EF STA 67EF FC2A: 88 67 EF 43 MOVD %67EF,R43 FC2E: 72 02 3C MOV %02,R3C FC31: 8E FB 5E CALL FB5E FC34: 8A 67 EA LDA 67EA FC37: 1A 3D SUB R3D,A FC39: E9 TRAP 22 ------------->EB61 FC3A: 2C 27 MPY %27,A FC3C: 88 65 EC 43 MOVD %65EC,R43 FC40: 48 01 43 ADD R01,R43 FC43: 49 00 42 ADC R00,R42 FC46: 72 02 3C MOV %02,R3C FC49: 8E FB 5E CALL FB5E FC4C: 7A 26 43 SUB %26,R43 FC4F: 7B 00 42 SBB %00,R42 FC52: 72 01 3C MOV %01,R3C FC55: 8E FB 5E CALL FB5E FC58: D3 43 INC R43 FC5A: 79 00 42 ADC %00,R42 FC5D: 72 22 3C MOV %22,R3C FC60: 8E FB 5E CALL FB5E FC63: D3 3D INC R3D FC65: 7D 0E 3D CMP %0E,R3D FC68: E6 A8 JNZ FC12 FC6A: 72 FF 43 MOV %FF,R43 FC6D: 8E FB 5B CALL FB5B FC70: 8A 62 6F LDA 626F FC73: 8B 67 F0 STA 67F0 FC76: 8A 62 6E LDA 626E FC79: 8B 67 EF STA 67EF FC7C: 88 67 EF 43 MOVD %67EF,R43 FC80: 72 02 3C MOV %02,R3C FC83: 8E FB 5E CALL FB5E FC86: 72 00 3B MOV %00,R3B FC89: 8C FB 68 BR FB68 ******************************************** FC8C: 00 NOP FC8D: 00 NOP FC8E: 00 NOP ******************************************** ++++++++++++++++++++++++++++++++++++++++++++ S T A R T ++++++++++++++++++++++++++++++++++++++++++++ ******************************************** ; TEST REGISTER FILE FC8F: 06 DINT ;DISABLE ALL INTERRUPTS FC90: 52 02 MOV %02,B ;START AT 0002H FC92: 62 MOV B,A ;COPY IT TO REG. A FC93: AB 00 00 STA @0000(B) ;COPY REG. A TO 0000(B)(INDEXED) FC96: C3 INC B ;NEXT LOCATION FC97: E5 F9 JGE FC92 ;LOOP IF NOT DONE FC99: C2 DEC B ;Else, start counting down FC9A: AA 00 00 LDA @0000(B) ;From where you stopped FC9D: 3D 00 CMP R00,B ;See if the same value FC9F: E6 3E JNZ FCDF ;If not, REGISTER FILE ERROR FCA1: B4 INV A ;OK, flip the bits FCA2: AB 00 00 STA @0000(B) ;Store it FCA5: 5D 02 CMP %02,B ;See if done FCA7: E6 F0 JNZ FC99 ;No, Loop FCA9: 62 MOV B,A ;Copy to A FCAA: B4 INV A ;Flip the bits FCAB: AD 00 00 CMPA @0000(B) ;Check if OK FCAE: E6 2F JNZ FCDF ;No, REGISTER FILE ERROR FCB0: 62 MOV B,A ;Copy B to A FCB1: AB 00 00 STA @0000(B) ;Store it FCB4: C3 INC B ;Count up 1 FCB5: E5 F2 JGE FCA9 ;Not done, LOOP ---------------------------------------------------------------------------- ; ; IOCNT0: ; Memory Mode :Full Expansion ; INT 3 :Disabled (U24P26,U5P14) ; INT 2 :Disabled (Not Used) ; INT 1 :Disabled (U24P1) ; FCB7: A2 80 00 MOVP %80,IOCNT0 ;IO CONTROL REGISTER 0 ; ; Checksum ROM ; FCBA: 88 00 00 49 MOVD %0000,R49 FCBE: 88 C0 02 47 MOVD %C002,R47 FCC2: 9A 47 LDA *R47 FCC4: 48 00 49 ADD R00,R49 FCC7: 79 00 48 ADC %00,R48 FCCA: D3 47 INC R47 FCCC: 79 00 46 ADC %00,R46 FCCF: E6 F1 JNZ FCC2 FCD1: 12 49 MOV R49,A FCD3: 8D C0 01 CMPA C001 ;Compare the first part FCD6: E6 07 JNZ FCDF ;ROM CHECKSUM ERROR, Lock up CPU FCD8: 12 48 MOV R48,A ;Ok, get the second part FCDA: 8D C0 00 CMPA C000 ;Compare the second part FCDD: E2 01 JZ FCE0 ;Seems to be OK, Continue --------------------------------------- ; LOCK UP PROCESSOR --------------------------------------- FCDF: 01 IDLE ;Kill the CPU ------------------------------- ; ;Write 00 at >67F1 if Registers and ROM check OK ; FCE0: B5 CLR A ;Put a 0 FCE1: 8B 67 F1 STA 67F1 ;at >67F1 (ROM Checksum OK) ; ; ; FCE4: 72 00 35 MOV %00,R35 ;R>35 = 00 FCE7: D5 25 CLR R25 ;R>25 = 00 FCE9: 72 01 3A MOV %01,R3A ;R>3A = 01 FCEC: D5 26 CLR R26 ;R>26 = 00 -------------------------------------------------------- TRAP 2 TRAP 5 TRAP 14 -------------------------------------------------------- FCEE: 72 05 13 MOV %05,R13 ;R>13 = 05 FCF1: B5 CLR A ; FCF2: D0 38 MOV A,R38 ;R>38 = 00 FCF4: 8B 67 F3 STA 67F3 ;Clear FCF7: 8B 67 F4 STA 67F4 ;Clear FCFA: 8B 67 F6 STA 67F6 ;Clear FCFD: 8B 67 F5 STA 67F5 ;Clear FD00: 8B 67 F8 STA 67F8 ;Clear FD03: 8B 67 F7 STA 67F7 ;Clear FD06: 06 DINT ;Disable interrupts ; ;Reset serial port ; FD07: A2 00 11 MOVP %00,SMODE ;Serial Mode FD0A: A2 40 11 MOVP %40,SCTL0 ;Serial Control 0 ; ;SMODE: ; Asynchronous mode, 8 data bits ; 1 stop bit, No parity ; FD0D: A2 4E 11 MOVP %4E,SMODE ;Serial Mode ; ;SCTL0: ; Reset error flag, Enable Rx and Tx ; FD10: A2 15 11 MOVP %15,SCTL0 ;Serial Control 0 ; ;SCTL1: ; Internal SCLK from Timer 3 ; Clear T3FLG, Disable Timer 3 - INT 4 ; Timer Prescale = 32 ; FD13: A2 40 15 MOVP %40,SCTL1 ;Serial Control 1 ; ;T3DATA: ; Divisor = 23 so ; SCLK = 1789773/2/32/23 = 1215.88 baud ; FD16: A2 17 14 MOVP %17,T3DATA ;Timer 3 data ; ;Stack pointer = >5F ; FD19: 52 5F MOV %5F,B ; FD1B: 0D LDSP ;SP=>5F ; ;ADDR: ; Bits 0-3,7 : Output ; FD1C: A2 8F 05 MOVP %8F,ADDR ;Port A direction ; ;U24 >011C ; FD1F: A2 10 1C MOVP %10,P1C ;Write to U24 (>011C) ; ;APORT: ; A7 0 U6P13 (88303 ADM) ; A3 1 ????????????????????????? ; A2 1 U4P15,CR20-C (L=Descrambling) ; A1 0 P1P6 (L=Videocipher signal) ; A0 0 DED *Reset ; FD22: A2 0C 04 MOVP %0C,APORT ; ;BPORT: ; B3 1 TxD (Not Used) ; B2 1 P1P7 (L pulse each frame) ; B1 0 U6P12 (88303 LDI) ; B0 0 U7P7 (DED CFB) ; FD25: A2 0C 06 MOVP %0C,BPORT ;Port B data FD28: 72 11 06 MOV %11,R06 FD2B: 73 EF 1F AND %EF,R1F FD2E: 22 0F MOV %0F,A ;Blank screen character FD30: EE TRAP 17 ;Fill display with A FD31: 88 03 7F 49 MOVD %037F,R49 FD35: A3 FE 04 ANDP %FE,APORT ;Set A0 - DED RESET low FD38: A4 01 04 ORP %01,APORT ;Set A0 - DED RESET high FD3B: DB 49 DECD R49 FD3D: E3 F6 JC FD35 FD3F: 88 4D AF 49 MOVD %4DAF,R49 ;200ms FD43: DB 49 DECD R49 FD45: E3 FC JC FD43 FD47: 22 0F MOV %0F,A ;Request U7 APORT status FD49: F9 TRAP 6------>C039 ;Write A to DED FD4A: F4 TRAP 11----->C05C ;Get U7 APORT status and FD4B: 8B 62 4A STA 624A ;Save it FD4E: 22 0D MOV %0D,A ;Request U7 ID # FD50: F9 TRAP 6------>C039 ;Write A to DED ; ;Process Serial Number ; FD51: F4 TRAP 11----->C05C ;Read DED/U5 data (xxxx xxxx XXxx) FD52: 24 20 OR %20,A ;Set B5 = 1 ^^ FD54: 8B 62 59 STA 6259 ;Save it FD57: F4 TRAP 11----->C05C ;Read DED/U5 data (xxxx xxXX xxxx) FD58: 8B 62 58 STA 6258 ;Save it ^^ FD5B: 82 1A MOVP A,P1A ;Write A to U24 (>011A) FD5D: F4 TRAP 11----->C05C ;Read DED/U5 data (xxxx XXxx xxxx) FD5E: 8B 62 57 STA 6257 ;Save it ^^ FD61: F4 TRAP 11----->C05C ;Read DED/U5 data (xxXX xxxx xxxx) FD62: 8B 62 56 STA 6256 ;Save it ^^ FD65: F4 TRAP 11----->C05C ;Read DED/U5 data (XXxx xxxx xxxx) FD66: 8B 62 55 STA 6255 ;Save it ^^ FD69: B5 CLR A ;A = 0 FD6A: 8B 62 4B STA 624B ;>624B = 0 FD6D: 8B 62 47 STA 6247 ;>6247 = 0 FD70: 8B 62 B7 STA 62B7 ;>62B7 = 0 FD73: 8B 62 B6 STA 62B6 ;>62B6 = 0 FD76: 8B 67 F2 STA 67F2 ;>67F2 = 0 (Stack Pointer) FD79: 22 FF MOV %FF,A ;A = >FF FD7B: 8B 62 42 STA 6242 FD7E: 8B 62 43 STA 6243 FD81: D0 17 MOV A,R17 FD83: D0 14 MOV A,R14 FD85: 72 0C 3B MOV %0C,R3B FD88: 88 C8 D1 4D MOVD %C8D1,R4D FD8C: 88 C9 3C 4B MOVD %C93C,R4B FD90: D5 04 CLR R04 FD92: D5 05 CLR R05 FD94: 88 60 00 3F MOVD %6000,R3F FD98: 8E FD C2 CALL FDC2 FD9B: D5 20 CLR R20 FD9D: 72 08 21 MOV %08,R21 FDA0: 88 FF FF 56 MOVD %FFFF,R56 FDA4: D5 18 CLR R18 FDA6: D5 36 CLR R36 FDA8: 72 21 34 MOV %21,R34 FDAB: 72 01 37 MOV %01,R37 FDAE: 22 B7 MOV %B7,A FDB0: 8B 62 6C STA 626C FDB3: 22 C5 MOV %C5,A FDB5: 8B 62 6D STA 626D ; ; ; IOCNT0: ; Memory Mode :Full Expansion ; INT 3 :Enabled (U24P26,U5P14) (clear flag) ; INT 2 :Disabled (Not Used) (clear flag) ; INT 1 :Enabled (U24P1) (clear flag) FDB8: A2 BB 00 MOVP %BB,IOCNT0 ; ; IOCNT1: ; INT 4 :Cleared and Enabled (Serial Port) ; INT 5 :Disabled (Not Used) ; FDBB: A2 02 10 MOVP %02,IOCNT1 ;I/O control register 1 FDBE: 05 EINT ;Enable interrupts FDBF: 8C C1 E0 BR C1E0 ;Go to main loop ---------------------------------- FDC2: D5 08 CLR R08 FDC4: 32 08 MOV R08,B FDC6: AA 60 00 LDA @6000(B) FDC9: B3 INC A FDCA: E2 03 JZ FDCF FDCC: 8E C2 10 CALL C210 FDCF: 32 08 MOV R08,B FDD1: B5 CLR A FDD2: AB 60 00 STA @6000(B) FDD5: 78 33 08 ADD %33,R08 FDD8: 7D CC 08 CMP %CC,R08 FDDB: E6 E7 JNZ FDC4 FDDD: D5 08 CLR R08 FDDF: 0A RETS ------------------------------ FDE0-FFD1 ALL FF ------------------------------ INTERRUPT VECTORS (TRAPS) ************************************************** FFD2: EB61 ;TRAP 22 FFD4: E164 ;TRAP 21 FFD6: CB94 ;TRAP 20 FFD8: CBBA ;TRAP 19 FFDA: C1BC ;TRAP 18 FFDC: C175 ;TRAP 17 FFDE: C0BC ;TRAP 16 FFE0: C0B0 ;TRAP 15 FFE2: FCEE ;TRAP 14 FFE4: C09B ;TRAP 13 FFE6: C08C ;TRAP 12 FFE8: C05C ;TRAP 11 FFEA: C473 ;TRAP 10 FFEC: C8CD ;TRAP 9 FFEE: C948 ;TRAP 8 FFF0: C07E ;TRAP 7 FFF2: C039 ;TRAP 6 FFF4: FCEE ;TRAP 5 TIMER 2 (NOT USED) FFF6: C96A ;TRAP 4 SERIAL PORT FFF8: C521 ;INT3 TRAP 3 EXTERNAL - U24P26,U5P14 FFFA: FCEE ;INT2 TRAP 2 TIMER 1 (NOT USED) FFFC: C48A ;INT1 TRAP 1 EXTERNAL - U24P1 FFFE: FC8F ;INT0 TRAP 0 POWER ON RESET