PROGRAM 1 342 BYTES DPY-#600641 TEST REG8 = 0 REG9 = 0 REGA = 0 REGB = 0 REGC = 0 REGD = 0 REGE = 0 REGF = 0 EXECUTE PROGRAM 2 0: LABEL 0 EXECUTE PROGRAM 86 IF REGA = 2 GOTO 1 IF REGA = 3 GOTO 2 IF REGA = 29 GOTO 3 IF REGA = 2A GOTO 3 IF REGA = 5 GOTO 4 IF REGA = 6 GOTO 5 IF REGA = 7 GOTO 6 IF REGA = 8 GOTO 7 IF REGA = 9 GOTO 8 IF REGA = A GOTO 9 IF REGA = B GOTO A IF REGA = C GOTO B IF REGA = D GOTO B IF REGA = F GOTO C IF REGA = 10 GOTO C IF REGA = 11 GOTO D IF REGA > 11 GOTO E EXECUTE PROGRAM 86 GOTO 0 1: LABEL 1 EXECUTE PROGRAM 2 GOTO 0 2: LABEL 2 EXECUTE PROGRAM 3 GOTO 0 3: LABEL 3 EXECUTE PROGRAM 40 GOTO 0 4: LABEL 4 EXECUTE PROGRAM 5 GOTO 0 5: LABEL 5 EXECUTE PROGRAM 6 GOTO 0 6: LABEL 6 EXECUTE PROGRAM 7 GOTO 0 7: LABEL 7 EXECUTE PROGRAM 8 GOTO 0 8: LABEL 8 EXECUTE PROGRAM 9 GOTO 0 9: LABEL 9 EXECUTE PROGRAM 10 GOTO 0 A: LABEL A EXECUTE PROGRAM 11 GOTO 0 B: LABEL B EXECUTE PROGRAM 12 GOTO 0 C: LABEL C EXECUTE PROGRAM 15 GOTO 0 D: LABEL D EXECUTE PROGRAM 17 GOTO 0 E: LABEL E EXECUTE PROGRAM 18 GOTO 0 F: LABEL F PROGRAM 2 63 BYTES 0: LABEL 0 AUX-/A REG3 = 5 1: LABEL 1 DEC REG3 IF REG3 > 0 GOTO 1 2: LABEL 2 IF REGA = FF GOTO 3 GOTO 0 3: LABEL 3 REGB = 15 EXECUTE PROGRAM 50 F: LABEL F PROGRAM 3 67 BYTES DPY-#BUSS TEST BUS TEST REGA = 1 REG1 = 5 1: LABEL 1 DEC REG1 IF REG1 > 0 GOTO 1 DPY-BUSS TEST DONE# REGA = 3 EXECUTE PROGRAM 85 F: LABEL F PROGRAM 4 289 BYTES WRITE @ REG8 = 0 WRITE @ REG9 = 11 1: LABEL 1 READ @ REGF IF REGE = 0 GOTO 3 IF REGE AND F0 = A0 GOTO 3 IF REGE AND FF = C0 GOTO 4 IF REGE AND F0 = F0 GOTO 5 REGB = 30 EXECUTE PROGRAM 50 GOTO 1 3: LABEL 3 DPY-PROG ERROR ERR$E REC. STOP GOTO F 4: LABEL 4 REG8 = 0 GOTO F 5: LABEL 5 READ @ F02008 REG2 = REGE READ @ F02009 REG3 = REGE SHL SHL SHL SHL SHL SHL SHL SHL REG2 = REG3 OR REG2 READ @ F0200A REG3 = REGE SHL SHL SHL SHL SHL SHL SHL SHL SHL SHL SHL SHL SHL SHL SHL SHL REG2 = REG3 OR REG2 REGA = 02 EXECUTE PROGRAM 85 REGB = 30 EXECUTE PROGRAM 50 REGA = REG2 EXECUTE PROGRAM 85 REGB = 30 EXECUTE PROGRAM 50 READ @ F0200C REGA = REGE EXECUTE PROGRAM 85 REGB = 30 EXECUTE PROGRAM 50 READ @ F0200E REGA = REGE EXECUTE PROGRAM 85 REG8 = 1 F: LABEL F PROGRAM 5 272 BYTES DPY-#ROM TEST REG1 = 0 6: LABEL 6 REGF = REG1 OR 10000 WRITE @ REGF = AA INC REG1 INC REG1 IF 10 > REG1 GOTO 6 REG1 = 1 7: LABEL 7 REGF = REG1 OR 10000 WRITE @ REGF = 55 INC REG1 INC REG1 IF 10 > REG1 GOTO 7 WRITE @ 360000 = 0 WRITE @ 360010 = 1 1: LABEL 1 READ @ REGF IF REGE = 0 GOTO 3 IF REGE AND F0 = A0 GOTO 3 IF REGE AND FF = C0 GOTO 5 DPY-ROM TEST REGB = 30 EXECUTE PROGRAM 50 GOTO 1 3: LABEL 3 DPY-PROG ERROR ERR $E STOP GOTO F 5: LABEL 5 READ @ F0300C REG2 = REGE READ @ F0300D REG3 = REGE SHL SHL SHL SHL SHL SHL SHL SHL REG2 = REG3 OR REG2 REGA = REG2 EXECUTE PROGRAM 85 DPY-#600641 TEST F: LABEL F PROGRAM 6 34 BYTES EXECUTE PROGRAM 86 REGF = REGA REGB = 30 EXECUTE PROGRAM 50 REGA = 06 EXECUTE PROGRAM 85 F: LABEL F PROGRAM 7 41 BYTES EXECUTE PROGRAM 86 REGE = REGA WRITE @ REGF = REGE REGB = 30 EXECUTE PROGRAM 50 REGA = 07 EXECUTE PROGRAM 85 F: LABEL F PROGRAM 8 29 BYTES READ @ REGF REGB = 30 EXECUTE PROGRAM 50 REGA = REGE EXECUTE PROGRAM 85 F: LABEL F PROGRAM 9 136 BYTES 1: LABEL 1 REG1 = 14000 2: LABEL 2 WRITE @ REG1 = FF INC REG1 IF 1400F > REG1 GOTO 2 WRITE @ 40080 = FF WRITE @ 40090 = FF WRITE @ 400A0 = FF WRITE @ 500B1 = 1 WRITE @ 500B6 = 1 WRITE @ 500B7 = 1 WRITE @ 1800F = FF REGB = 1 EXECUTE PROGRAM 50 IF REG8 = 1 GOTO F REGA = 09 EXECUTE PROGRAM 85 F: LABEL F PROGRAM 10 613 BYTES REG8 = 0 WRITE @ 50096 = 1 REGF = 500B2 REGC = 1 EXECUTE PROGRAM 71 IF REG8 > 1 GOTO F REGF = 50094 REGC = 0 EXECUTE PROGRAM 71 IF REG8 > 01 GOTO F REGF = 50092 EXECUTE PROGRAM 71 IF REG8 > 1 GOTO F REGF = 500B0 REGC = 1 EXECUTE PROGRAM 71 IF REG8 > 1 GOTO F REGA = 1 EXECUTE PROGRAM 85 8: LABEL 8 EXECUTE PROGRAM 86 IF REGA > 1 GOTO F REGF = 500B2 REGC = 0 EXECUTE PROGRAM 71 IF REG8 > 1 GOTO F REGF = 500B0 EXECUTE PROGRAM 71 IF REG8 > 1 GOTO F REGA = 1 EXECUTE PROGRAM 85 9: LABEL 9 EXECUTE PROGRAM 86 IF REGA > 1 GOTO F WRITE @ 50096 = 0 WRITE @ 500B1 = 1 REGA = 1 REGB = A EXECUTE PROGRAM 50 EXECUTE PROGRAM 85 A: LABEL A EXECUTE PROGRAM 86 IF REGA > 1 GOTO F WRITE @ 500B1 = 0 REGB = A EXECUTE PROGRAM 50 REGA = 1 EXECUTE PROGRAM 85 B: LABEL B EXECUTE PROGRAM 86 IF REGA > 1 GOTO F WRITE @ 50096 = 1 REGF = 500B2 REGC = 0 EXECUTE PROGRAM 71 IF REG8 > 1 GOTO F REGF = 500B0 REGC = 1 EXECUTE PROGRAM 71 IF REG8 > 1 GOTO F REGF = 50092 REGC = 0 EXECUTE PROGRAM 71 IF REG8 > 1 GOTO F REGA = 1 EXECUTE PROGRAM 85 C: LABEL C EXECUTE PROGRAM 86 IF REGA > 1 GOTO F REGF = 500B2 REGC = 1 EXECUTE PROGRAM 71 IF REGA > 1 GOTO F REGF = 50094 REGC = 1 EXECUTE PROGRAM 71 IF REG8 > 1 GOTO F REGF = 500B0 REGC = 0 EXECUTE PROGRAM 71 IF REG8 > 1 GOTO F REGA = 01 EXECUTE PROGRAM 85 D: LABEL D EXECUTE PROGRAM 86 IF REGA > 1 GOTO F WRITE @ 50096 = 0 WRITE @ 500B1 = 1 REGB = A EXECUTE PROGRAM 50 REGA = 1 EXECUTE PROGRAM 85 E: LABEL E EXECUTE PROGRAM 86 IF REGA > 1 GOTO F WRITE @ 500B1 = 0 REGB = A EXECUTE PROGRAM 50 REGA = 01 EXECUTE PROGRAM 85 7: LABEL 7 EXECUTE PROGRAM 86 REGC = 1 REGF = 50092 EXECUTE PROGRAM 71 REGB = A EXECUTE PROGRAM 50 REGA = 1 EXECUTE PROGRAM 85 6: LABEL 6 EXECUTE PROGRAM 86 F: LABEL F PROGRAM 11 480 BYTES REG1 = 0 REG2 = 0 REG6 = 0 REG3 = 1 REG7 = 0 REG4 = 1 REG5 = 0 REG0 = 10000 1: LABEL 1 EXECUTE PROGRAM 86 IF REGA > 1 GOTO 2 IF 1 > REGA GOTO 2 REG5 = REG3 READ @ 14005 REG7 = 1 IF REGE > REG5 GOTO 3 IF REG5 > REGE GOTO 3 4: LABEL 4 INC REG0 WRITE @ REG0 = REGE INC REG4 SHL REG3 READ @ 14006 REG7 = 2 REG5 = 0E IF REGE > 0E GOTO 3 IF 0E > REGE GOTO 3 5: LABEL 5 INC REG0 WRITE @ REG0 = REGE IF 9 > REG4 GOTO 1 EXECUTE PROGRAM 86 READ @ 14005 REG7 = 3 REG5 = 0 IF REGE > 0 GOTO 3 IF 0 > REGE GOTO 3 6: LABEL 6 INC REG0 WRITE @ REG0 = REGE READ @ 14006 REG7 = 4 REG5 = 0F IF REGE > 0F GOTO 3 IF 0F > REGE GOTO 3 7: LABEL 7 INC REG0 WRITE @ REG0 = REGE IF REG1 > 0 GOTO 8 REG5 = 0 REG4 = 1 REG3 = 0F 9: LABEL 9 DPY-##OPEN SW2.@4 STOP SHL REG3 INC REG3 REG5 = REG3 READ @ 14006 REG7 = 5 IF REGE > REG5 GOTO 3 IF REG5 > REGE GOTO 3 INC REG4 IF 5 > REG4 GOTO 9 REGA = B EXECUTE PROGRAM 85 GOTO F 2: LABEL 2 DPY-#PROG. ERR. REC$A STOP GOTO F 3: LABEL 3 REG1 = REGF AND F REG2 = REGE REG6 = REG5 IF REG7 = 1 GOTO 4 IF REG7 = 2 GOTO 5 IF REG7 = 3 GOTO 6 IF REG7 = 4 GOTO 7 8: LABEL 8 REGA = REG1 EXECUTE PROGRAM 85 REGA = REG6 EXECUTE PROGRAM 85 REGA = REG2 EXECUTE PROGRAM 85 F: LABEL F DPY-600641 TEST PROGRAM 12 224 BYTES REG3 = REGA READ @ 50090 IF REGE > 0 GOTO 1 READ @ 500B3 IF REGE > 0 GOTO 2 IF REG3 = C GOTO 3 READ @ 12007 IF REGE > AA GOTO 5 IF AA > REG5 GOTO 5 REGA = D EXECUTE PROGRAM 85 GOTO F 1: LABEL 1 REG1 = 50090 REG2 = 0 GOTO D 2: LABEL 2 REG1 = 500B3 REG2 = 0 GOTO D 3: LABEL 3 READ @ 14002 IF REGE > FF GOTO 4 IF 0 > REGE GOTO 4 REGA = C EXECUTE PROGRAM 85 GOTO F 4: LABEL 4 REG1 = 14002 REG2 = 0 GOTO D 5: LABEL 5 REG1 = 12007 REG2 = AA D: LABEL D REGA = REGF EXECUTE PROGRAM 85 REGA = REG2 EXECUTE PROGRAM 85 REGA = REGE EXECUTE PROGRAM 85 F: LABEL F PROGRAM 15 415 BYTES REG8 = 1 EXECUTE PROGRAM 9 REG8 = 0 IF REGA > 10 GOTO 1 IF F > REGA GOTO 1 DPY-##PRESS RESET SW1 AND RELEASE REG1 = 8F 2: LABEL 2 READ @ STS IF REGC AND 10 = 0 GOTO 3 IF REGA = 10 GOTO 4 DPY-##STRAP E1.1-2 STOP REG1 = 2B 5: LABEL 5 READ @ STS IF REGC AND 10 = 0 GOTO 6 REGB = B EXECUTE PROGRAM 50 REG1 = 0 8: LABEL 8 INC REG1 READ @ STS IF REGC AND 10 = 0 GOTO A DPY-1111 1=$1 IF 1 > REG1 GOTO 7 REGB = F EXECUTE PROGRAM 50 WRITE @ 1400D = 0 REGB = 1 EXECUTE PROGRAM 50 REG1 = 0 9: LABEL 9 INC REG1 READ @ STS IF REGC AND 10 = 0 GOTO B DPY-2222 1=$1 IF 1 > REG1 GOTO 7 DPY-##OBSERVE ATS DISPLAY REGA = 0F EXECUTE PROGRAM 85 GOTO F 1: LABEL 1 DPY-##PROG. 15 ERR. REC.$A STOP GOTO F 3: LABEL 3 DEC REG1 IF REG1 > 0 GOTO 2 REGA = 03 EXECUTE PROGRAM 85 GOTO F 4: LABEL 4 REGA = 0F EXECUTE PROGRAM 85 GOTO F 6: LABEL 6 DEC REG1 IF REG1 > 0 GOTO 5 7: LABEL 7 REGA = 04 EXECUTE PROGRAM 85 GOTO F A: LABEL A IF 2B > REG1 GOTO 8 GOTO 7 B: LABEL B IF 2B > REG1 GOTO 9 GOTO 7 F: LABEL F PROGRAM 17 406 BYTES WRITE @ 14000 = FF WRITE @ 14003 = FF WRITE @ 50097 = 0 REG1 = 1 REG2 = 0 REG3 = 1 1: LABEL 1 REG2 = REG3 CPL REG2 = REG2 AND FF WRITE @ 14000 = REG2 DPY-##IS CT@1 ON AND OTHERS OFF?4 IF 1 > REG4 GOTO 2 3: LABEL 3 SHL REG3 INC REG1 IF 9 > REG1 GOTO 1 WRITE @ 14000 = FF REG1 = 1 REG2 = 0 REG3 = 1 4: LABEL 4 REG2 = REG3 CPL REG2 = REG2 AND FF WRITE @ 14003 = REG2 DPY-##IS SZ@1 ON AND OTHERS OFF?4 IF 1 > REG4 GOTO 5 6: LABEL 6 SHL REG3 INC REG1 IF 9 > REG1 GOTO 4 WRITE @ 14003 = FF WRITE @ 50097 = 1 DPY-##IS RUN LED ON AND OTHERS OFF?4 IF 1 > REG4 GOTO 7 8: LABEL 8 REGA = 20 EXECUTE PROGRAM 85 GOTO F 2: LABEL 2 REGA = REG1 EXECUTE PROGRAM 85 EXECUTE PROGRAM 86 IF REGA > 1 GOTO F GOTO 3 5: LABEL 5 REGA = REG1 OR 10 EXECUTE PROGRAM 85 EXECUTE PROGRAM 86 IF REGA > 1 GOTO F 7: LABEL 7 REGA = 19 EXECUTE PROGRAM 85 EXECUTE PROGRAM 86 IF 01 > REGA GOTO F F: LABEL F DPY-600641 TEST PROGRAM 18 247 BYTES 0: LABEL 0 IF REGA = 1E GOTO 8 IF REGA = 1F GOTO 8 IF REGA = 20 GOTO 8 IF REGA = 21 GOTO 8 IF REGA = 1D GOTO 7 IF REGA = 13 GOTO 1 IF REGA = 14 GOTO 2 IF REGA = 15 GOTO 2 IF REGA = 16 GOTO 3 IF REGA = 17 GOTO 3 IF REGA = 18 GOTO 3 IF REGA = 19 GOTO 3 IF REGA = 22 GOTO 3 IF REGA = 1A GOTO 4 IF REGA = 1B GOTO 5 IF REGA = 1C GOTO 6 IF REGA = 37 GOTO 9 GOTO F 1: LABEL 1 EXECUTE PROGRAM 19 GOTO F 2: LABEL 2 EXECUTE PROGRAM 20 GOTO F 3: LABEL 3 EXECUTE PROGRAM 22 GOTO F 4: LABEL 4 EXECUTE PROGRAM 26 GOTO F 5: LABEL 5 EXECUTE PROGRAM 27 GOTO F 6: LABEL 6 EXECUTE PROGRAM 28 GOTO F 7: LABEL 7 EXECUTE PROGRAM 29 GOTO F 8: LABEL 8 EXECUTE PROGRAM 30 GOTO F 9: LABEL 9 EXECUTE PROGRAM 55 F: LABEL F PROGRAM 19 181 BYTES WRITE @ 14003 = FF REG1 = 1 REG2 = 0 REG8 = 1 EXECUTE PROGRAM 9 REG8 = 0 1: LABEL 1 REG2 = REG1 CPL REG2 = REG2 AND FF READ @ 14001 REG3 = REGE WRITE @ 14003 = REG2 IF REG2 > REG3 GOTO 2 IF REG3 > REG2 GOTO 2 REGA = 01 EXECUTE PROGRAM 85 3: LABEL 3 EXECUTE PROGRAM 86 IF REGA > 1 GOTO 4 SHL REG1 IF 100 > REG1 GOTO 1 4: LABEL 4 WRITE @ 14003 = FF GOTO F 2: LABEL 2 REGA = 02 EXECUTE PROGRAM 85 REGA = REG2 EXECUTE PROGRAM 85 REGA = REG3 EXECUTE PROGRAM 85 GOTO 3 F: LABEL F PROGRAM 20 223 BYTES REG3 = REGA WRITE @ 14005 = FF WRITE @ 1400B = FF WRITE @ 14006 = FF WRITE @ 14009 = FF REG1 = 1 REG2 = 14005 IF 15 > REG3 GOTO 1 REG2 = 14009 1: LABEL 1 REG4 = REG1 CPL REG4 = REG4 AND FF WRITE @ REG2 = REG4 EXECUTE PROGRAM 86 IF REGA > 1 GOTO F IF REG3 > 14 GOTO 2 WRITE @ 1400B = REG4 EXECUTE PROGRAM 86 IF REGA > 1 GOTO F 2: LABEL 2 WRITE @ 1400B = FF WRITE @ 14006 = REG4 EXECUTE PROGRAM 86 IF REGA > 1 GOTO F SHL REG1 IF 100 > REG1 GOTO 1 WRITE @ 14005 = FF WRITE @ 1400B = FF WRITE @ 14009 = FF F: LABEL F PROGRAM 22 255 BYTES REG2 = REGA REG3 = 1400B IF 17 > REG2 GOTO 1 WRITE @ 14003 = 0 REG3 = 14000 IF REG2 > 17 GOTO 7 1: LABEL 1 REG1 = 1 3: LABEL 3 REG2 = REG1 CPL REG2 = REG2 AND FF WRITE @ REG3 = REG2 DPY-#WR $3=$2 EXECUTE PROGRAM 86 IF REGA > 1 GOTO F SHL REG1 IF 100 > REG1 GOTO 3 4: LABEL 4 WRITE @ 1400B = FF WRITE @ 14000 = FF WRITE @ 14003 = FF WRITE @ 1400A = FF GOTO F 7: LABEL 7 WRITE @ 14003 = FF IF REG2 = 22 GOTO 8 2: LABEL 2 IF REG2 > 18 GOTO 5 WRITE @ 14000 = 0 GOTO F 8: LABEL 8 WRITE @ 14000 = FF REG3 = 14008 GOTO 1 5: LABEL 5 REG3 = 1400A GOTO 1 F: LABEL F PROGRAM 26 109 BYTES REG1 = 1 1: LABEL 1 READ @ 14000 IF REGE > REG1 GOTO 2 IF REG1 > REGE GOTO 2 REGA = 01 EXECUTE PROGRAM 85 3: LABEL 3 SHL REG1 REGB = 50 EXECUTE PROGRAM 50 IF 100 > REG1 GOTO 1 GOTO F 2: LABEL 2 REGA = 02 EXECUTE PROGRAM 85 REGA = REGE EXECUTE PROGRAM 85 EXECUTE PROGRAM 86 IF 1 > REGA GOTO 3 F: LABEL F PROGRAM 27 135 BYTES REG2 = 1 1: LABEL 1 REG4 = 14007 IF 2 > REG2 GOTO 2 REG4 = 14001 IF 3 > REG2 GOTO 2 REG4 = 14004 IF 4 > REG2 GOTO 2 REG4 = 1400E 2: LABEL 2 REG1 = 1 3: LABEL 3 REG3 = REG1 CPL REG3 = REG3 AND FF WRITE @ REG4 = REG3 EXECUTE PROGRAM 86 IF REGA > 1 GOTO F SHL REG1 IF 100 > REG1 GOTO 3 INC REG2 IF 5 > REG2 GOTO 1 F: LABEL F PROGRAM 28 280 BYTES REG1 = 14008 REG2 = 1 6: LABEL 6 REG6 = 1 5: LABEL 5 REG5 = 1 IF 2 > REG6 GOTO 1 REG5 = 5 IF 3 > REG6 GOTO 1 REG5 = 9 IF 4 > REG6 GOTO 1 REG5 = 0 1: LABEL 1 REG3 = REG2 REG4 = 3 READ @ 14003 IF REGE > REG3 GOTO 2 IF REG3 > REGE GOTO 2 3: LABEL 3 REG3 = REG5 REG4 = 4 READ @ REG1 IF REGE > REG3 GOTO 2 IF REG3 > REGE GOTO 2 REGA = 1 EXECUTE PROGRAM 85 4: LABEL 4 REGB = 30 EXECUTE PROGRAM 50 INC REG6 IF 5 > REG6 GOTO 5 SHL REG2 INC REG1 IF 14010 > REG1 GOTO 6 GOTO F 2: LABEL 2 REGA = 2 EXECUTE PROGRAM 85 REGA = REGF AND F EXECUTE PROGRAM 85 REGA = REG3 EXECUTE PROGRAM 85 REGA = REGE EXECUTE PROGRAM 85 EXECUTE PROGRAM 86 IF REGA > 1 GOTO F IF REG4 = 3 GOTO 3 IF REG4 = 4 GOTO 4 DPY-##PROGRAM ERROR PRG.28 F: LABEL F PROGRAM 29 490 BYTES REG8 = 0 WRITE @ 50095 = 0 REGF = 50097 REGC = 1 EXECUTE PROGRAM 71 IF REG8 > 1 GOTO F REGF = 50096 EXECUTE PROGRAM 71 IF REG8 > 1 GOTO F REGF = 500B0 REGC = 1 EXECUTE PROGRAM 71 IF REG8 > 1 GOTO F REGA = 01 EXECUTE PROGRAM 85 9: LABEL 9 EXECUTE PROGRAM 86 IF REGA > 1 GOTO F REGF = 500B0 REGC = 0 EXECUTE PROGRAM 71 IF REG8 > 1 GOTO F REGA = 1 EXECUTE PROGRAM 85 A: LABEL A EXECUTE PROGRAM 86 IF REGA > 1 GOTO F WRITE @ 50095 = 1 WRITE @ 500B1 = 1 REGF = 50096 REGC = 1 EXECUTE PROGRAM 71 IF REG8 > 1 GOTO F REGA = 1 EXECUTE PROGRAM 85 B: LABEL B EXECUTE PROGRAM 86 IF REGA > 1 GOTO F WRITE @ 500B1 = 0 REGA = 1 EXECUTE PROGRAM 85 8: LABEL 8 EXECUTE PROGRAM 86 IF REGA > 1 GOTO F WRITE @ 50095 = 1 REGF = 50097 REGC = 1 EXECUTE PROGRAM 71 IF REG8 > 1 GOTO F REGF = 50096 REGC = 0 EXECUTE PROGRAM 71 IF REG8 > 1 GOTO F REGF = 500B0 REGC = 1 EXECUTE PROGRAM 71 IF REG8 > 1 GOTO F REGA = 01 EXECUTE PROGRAM 85 C: LABEL C EXECUTE PROGRAM 86 IF REGA > 1 GOTO F REGF = 500B0 REGC = 0 EXECUTE PROGRAM 71 IF REG8 > 1 GOTO F REGA = 01 EXECUTE PROGRAM 85 D: LABEL D EXECUTE PROGRAM 86 IF REGA > 01 GOTO F WRITE @ 50095 = 1 WRITE @ 500B1 = 1 REGF = 50096 REGC = 1 EXECUTE PROGRAM 71 IF REG8 > 1 GOTO F REGA = A EXECUTE PROGRAM 85 E: LABEL E EXECUTE PROGRAM 86 IF REGA > 01 GOTO F WRITE @ 500B1 = 0 REGA = 1 EXECUTE PROGRAM 85 F: LABEL F PROGRAM 30 208 BYTES REG8 = 0 REG2 = 1 REG6 = 1 REG1 = 14080 REG3 = FB REG4 = 3 IF 1F > REGA GOTO 1 REG1 = 14000 REG3 = FD REG4 = 7 IF 20 > REGA GOTO 1 REG1 = 14081 REG3 = F9 REG4 = A IF 21 > REGA GOTO 1 REG1 = 14001 REG3 = F9 REG4 = A 1: LABEL 1 REG9 = REG1 REGC = REG3 EXECUTE PROGRAM 75 IF REG8 > 1 GOTO F REGA = 01 EXECUTE PROGRAM 85 EXECUTE PROGRAM 86 IF REGA > 1 GOTO F REG9 = REG1 REGC = REG4 EXECUTE PROGRAM 75 IF REG8 > 1 GOTO F REGA = 1 EXECUTE PROGRAM 85 EXECUTE PROGRAM 86 IF REGA > 1 GOTO F INC REG2 INC REG1 IF 9 > REG2 GOTO 1 F: LABEL F PROGRAM 40 194 BYTES REG1 = REGA DPY-##RAM TEST IF REG1 = 29 GOTO 1 IF REG1 = 30 GOTO 2 GOTO F 1: LABEL 1 REG8 = 216000 REG9 = 217FFF EXECUTE PROGRAM 4 IF REG8 = 1 GOTO F REG8 = 218000 REG9 = 219FFF EXECUTE PROGRAM 4 IF REG8 = 1 GOTO F REG8 = 210000 REG9 = 210005 EXECUTE PROGRAM 4 IF REG8 = 1 GOTO F REG8 = 212FFB REG9 = 212FFF EXECUTE PROGRAM 4 GOTO 3 2: LABEL 2 REG8 = 210000 REG9 = 211FFF EXECUTE PROGRAM 4 3: LABEL 3 REGA = 01 EXECUTE PROGRAM 85 F: LABEL F PROGRAM 50 21 BYTES 1: LABEL 1 DEC REGB IF REGB > 0 GOTO 1 F: LABEL F PROGRAM 55 38 BYTES WRITE @ 14002 = AA WRITE @ 14008 = 0 WRITE @ 1400C = 0 EXECUTE PROGRAM 2 F: LABEL F PROGRAM 70 48 BYTES REGA = REGF EXECUTE PROGRAM 85 REGA = REGC EXECUTE PROGRAM 85 1: LABEL 1 REGA = REGE EXECUTE PROGRAM 85 EXECUTE PROGRAM 86 REG8 = REGA F: LABEL F PROGRAM 71 38 BYTES READ @ REGF IF REGE > REGC GOTO 1 IF REGC > REGE GOTO 1 GOTO F 1: LABEL 1 EXECUTE PROGRAM 70 F: LABEL F PROGRAM 75 129 BYTES WRITE @ REG9 = 00 REG1 = REG9 AND F REG2 = 14000 REG5 = 50092 IF 1 > REG1 GOTO 1 REG2 = 14001 REG5 = 50093 1: LABEL 1 REG3 = REGC INC REG3 INC REG3 INC REG3 REG4 = REGC DEC REG4 DEC REG4 DEC REG4 READ @ REG5 IF 1 > REGE GOTO 2 READ @ REG2 IF REGE > REG3 GOTO 2 IF REG4 > REGE GOTO 2 GOTO F 2: LABEL 2 EXECUTE PROGRAM 70 F: LABEL F PROGRAM 85 123 BYTES REG1 = REGA REG3 = 0 1: LABEL 1 REG4 = REG1 AND F REG1 = REG1 SHR SHR SHR SHR REGB = REG4 EXECUTE PROGRAM 87 EXECUTE PROGRAM 88 IF REGB > REG4 GOTO 2 IF REG4 > REGB GOTO 2 IF REG1 > 0 GOTO 1 REGB = AA EXECUTE PROGRAM 87 EXECUTE PROGRAM 88 IF REGB > A GOTO 2 IF A > REGB GOTO 2 GOTO F 2: LABEL 2 DPY-SENT$4 ECHO$B STOP F: LABEL F PROGRAM 86 374 BYTES REG1 = 0 REG2 = 0 REG3 = 0 REG5 = 0 REGA = 0 1: LABEL 1 AUX-/7 AUX-/6 AUX-/2 AUX-/5 REG7 = 10 C: LABEL C DEC REG7 IF REG7 > 0 GOTO C REG2 = REG2 AND 7F IF REG2 = 20 GOTO E D: LABEL D IF 30 > REG2 GOTO 2 IF REG2 > 46 GOTO 2 IF REG2 = 40 GOTO 2 IF REG2 > 40 GOTO 3 IF REG2 = 3F GOTO 5 REG4 = REG2 AND F 4: LABEL 4 REG2 = REG4 5: LABEL 5 REGB = REG2 IF REG2 = 3F GOTO A 6: LABEL 6 IF REG1 > 0 GOTO 7 REGA = REG2 REG5 = 0 8: LABEL 8 REGA = REGA OR REG5 INC REG1 GOTO 9 A: LABEL A EXECUTE PROGRAM 87 GOTO F 2: LABEL 2 DPY-COMMO ERROR REC.$2 STOP GOTO F 3: LABEL 3 REG4 = A IF REG2 = 41 GOTO 4 REG4 = B IF REG2 = 42 GOTO 4 REG4 = C IF REG2 = 43 GOTO 4 REG4 = D IF REG2 = 44 GOTO 4 REG4 = E IF REG2 = 45 GOTO 4 REG4 = F GOTO 4 7: LABEL 7 REG4 = REG1 REG5 = REG2 B: LABEL B REG5 = REG5 SHL SHL SHL SHL DEC REG4 IF REG4 > 0 GOTO B GOTO 8 9: LABEL 9 EXECUTE PROGRAM 87 GOTO 1 E: LABEL E REG2 = 30 GOTO D F: LABEL F PROGRAM 87 56 BYTES REG3 = 0C REG1 = 3 2: LABEL 2 DEC REG1 IF REG1 > 0 GOTO 2 AUX-$B AUX-$3 REG1 = 3 1: LABEL 1 DEC REG1 IF REG1 > 0 GOTO 1 F: LABEL F PROGRAM 88 172 BYTES AUX-/7 AUX-/6 AUX-/2 AUX-/5 REG7 = 20 1: LABEL 1 DEC REG7 IF REG7 > 0 GOTO 1 REG2 = REG2 AND 7F IF REG2 = D GOTO 2 3: LABEL 3 IF REG2 > 40 GOTO 4 REG4 = REG2 AND F 5: LABEL 5 REGB = REG4 GOTO F 2: LABEL 2 REG2 = 30 GOTO 3 4: LABEL 4 REG4 = A IF REG2 = 41 GOTO 5 REG4 = B IF REG2 = 42 GOTO 5 REG4 = C IF REG2 = 43 GOTO 5 REG4 = D IF REG2 = 44 GOTO 5 REG4 = E IF REG2 = 45 GOTO 5 REG4 = F GOTO 5 F: LABEL F