TLDA1 LDA PBT1      LDA FROM BASE PAGE
      CPA PAT1
      JMP CCLN1 
      JSB ERR1,I
      DEF *-4 
CCLN1 CLA 
      LDA PAT2      LDA FROM CURRENT PAGE 
      CPA PBT2
      JMP CCLN2 
      JSB ERR1,I
      DEF *-4 
CCLN2 CLA 
      LDA IPAT2,I   LDA FROM PAGE 2 INDIRECT
      CPA PAT1
      JMP CCLN3 
      JSB ERR1,I
      DEF *-4 
CCLN3 CLA 
      LDA IPAT3,I   LDA FROM PAGE 3 INDIRECT
      CPA PAT2
      JMP CCLN4 
      JSB ERR1,I
      DEF *-4 
CCLN4 CLA 
      LDA IIPAT,I   LDA FROM PAGE 1,2,3,0,1 
      CPA PAT1
      JMP CCLN5 
      JSB ERR1,I
      DEF *-4 
CCLN5 CLA 
      LDA L2
      STA 2 
      LDA L3
      STA 3 
      LDA L4
      STA 4 
      LDA L5
      STA 5 
      LDA LA        LDA TO A DIRECT 
      LDB LB
      JMP 0 
      OCT 0 
BAD14 JSB ERR1,I
      DEF *-2 
CCLN6 CLA 
      LDA IPAT2 
      LDA 0,I       LDA WITH A INDIRECT 
      CPA PAT1
      JMP CCLN7 
      JSB ERR1,I
      DEF *-4 
CCLN7 CLA,CLE 
      CLB 
      NOP           MODULE LOOP 
TLDB1 LDB PBT1      LDB FROM BASE PAGE
      CPB PAT1
      JMP CCLB1 
      JSB ERR1,I
      DEF *-4 
CCLB1 CLB 
      LDB PAT2      LDB FROM CURRENT PAGE 
      CPB PBT2
      JMP CCLB2 
      JSB ERR1,I
      DEF *-4 
CCLB2 CLB 
      LDB IPAT2,I   LDB FROM PAGE 2 INDIRECT
      CPB PAT1
      JMP CCLB3 
      JSB ERR1,I
      DEF *-4 
CCLB3 CLB 
      LDB IPAT3,I   LDB FROM PAGE 3 INDIRECT
      CPB PAT2
      JMP CCLB4 
      JSB ERR1,I
      DEF *-4 
CCLB4 CLB 
      LDB IIPAT,I   LDB FROM PAGE 1,2,3,0,1 
      CPB PAT1
      JMP CCLB5 
      JSB ERR1,I
      DEF *-4 
CCLB5 CLB 
      LDB L2B 
      STB 2 
      LDB L3B 
      STB 3 
      LDB LBB 
      JMP 1         LDB TO B DIRECT 
      OCT 1 
CCLB6 CPB PAT2
      JMP CCLB7 
      JSB ERR1,I
      DEF *-4 
CCLB7 CLB 
      LDB IPAT3 
      LDB 1,I       LDB WITH B INDIRECT 
      CPB PAT2
      JMP CCLB8 
      JSB ERR1,I
      DEF *-4 
CCLB8 CLA,CLE 
      CLB 
      NOP           MODULE LOOP 
TSTA1 LDA PAT1
      STA SPAT0     STA INTO BASE PAGE
      CPA SPAT0 
      JMP CCSA1 
      JSB ERR1,I
      DEF *-4 
CCSA1 CLA 
      LDA PAT2
      STA SPAT1     STA INTO CURRENT PAGE 
      CPA SPAT1 
      JMP CCSA2 
      JSB ERR1,I
      DEF *-4 
CCSA2 CLA 
      LDA PAT1
      STA SPT2,I    STA INTO PAGE 2 INDIRECT
      CPA SPT2,I
      JMP CCSA3 
      JSB ERR1,I
      DEF *-4 
CCSA3 CLA 
      LDA PAT1
      STA SPT3,I    STA INTO PAGE 3 INDIRECT
      CPA SPT3,I
      JMP CCSA4 
      JSB ERR1,I
      DEF *-4 
CCSA4 CLA 
      LDA PAT2
      STA IIPST,I   STA INTO PAGES 1,2,3,0,1 INDIR. 
      CPA SPAT1 
      JMP CCSA5 
      JSB ERR1,I
      DEF *-4 
CCSA5 CLA 
      LDA S2
      STA 2 
      LDA SA
      LDB SB
      JMP 0 
      OCT 0         STA INTO BASE PAGE WITH A 
CCSA6 LDA SA
      CPA SPAT0 
      JMP CCSA7 
      JSB ERR1,I
      DEF *-5 
CCSA7 CLA 
      LDA CAI 
      STA 0,I       STA INDIRECT WITH A 
      CPA CAI 
      JMP CCSA8 
      JSB ERR1,I
      DEF *-4 
CCSA8 CLA,CLE 
      CLB 
      NOP           MODULE LOOP 
TSTB1 LDB PAT1
      STB SPAT0     STB INTO BASE PAGE
      CPB SPAT0 
      JMP CCSB1 
      JSB ERR1,I
      DEF *-4 
CCSB1 CLB 
      LDB PAT2
      STB SPAT1     STB INTO CURRENT PAGE 
      CPB SPAT1 
      JMP CCSB2 
      JSB ERR1,I
      DEF *-4 
CCSB2 CLB 
      LDB PAT1
      STB SPT2,I    STB INTO PAGE 2 INDIRECT
      CPB SPT2,I
      JMP CCSB3 
      JSB ERR1,I
      DEF *-4 
CCSB3 CLB 
      LDB PAT2
      STB SPT3,I    STB INTO PAGE 3 INDIRECT
      CPB SPT3,I
      JMP CCSB4 
      JSB ERR1,I
      DEF *-4 
CCSB4 CLB 
      LDB PAT1
      STB IIPST,I   STB INTO PAGES 1,2,3,0,1 INDIR. 
      CPB SPAT1 
      JMP CCSB5 
      JSB ERR1,I
      DEF *-4 
CCSB5 CLB 
      LDB S2B 
      STB 2 
      LDB S3B 
      STB 3 
      LDB SB1 
      JMP 1         STB INTO BASE PAGE WITH B 
      OCT 1 
CCSB6 LDB SB1 
      CPB SPAT0 
      JMP CCSB7 
      JSB ERR1,I
      DEF *-5 
CCSB7 CLB 
      LDB CAI 
      STB 1,I       STB INDIRECT WITH B 
      CPB CAI 
      JMP CCSB8 
      JSB ERR1,I
      DEF *-4 
CCSB8 CLA,CLE 
      CLB 
      NOP           MODULE LOOP 
TADA1 LDA PBT1
      ADA PBT1      ADA FROM BASE PAGE
      CPA PAT2
      JMP *+2 
      JMP *+3 
      SEZ,RSS       E=0 
      JMP CCAD1 
      JSB ERR1,I
      DEF *-7 
CCAD1 CLA,CLE 
      LDA PAT2
      ADA PAT2      ADA FROM CURRENT PAGE 
      INA 
      CPA PAT1
      JMP *+2 
      JMP *+3 
      SEZ           E=1 
      JMP CCAD2 
      JSB ERR1,I
      DEF *-8 
CCAD2 CLA,CLE 
      LDA PAT1
      ADA IPAT2,I   ADA FROM PAGE 2 INDIRECT
      CPA PAT2
      JMP *+2 
      JMP *+3 
      SEZ,RSS       E=0 
      JMP CCAD3 
      JSB ERR1,I
      DEF *-7 
CCAD3 CLA,CLE 
      LDA PAT2
      ADA IPAT3,I   ADA FROM PAGE 3 INDIRECT
      INA 
      CPA PAT1
      JMP *+2 
      JMP *+3 
      SEZ           E=1 
      JMP CCAD4 
      JSB ERR1,I
      DEF *-8 
CCAD4 CLA,CLE 
      LDA PAT1
      ADA IIPAT,I   ADA FROM PAGES 1,2,3,0,1 INDIR. 
      CPA PAT2
      JMP *+2 
      JMP *+3 
      SEZ,RSS       E=0 
      JMP CCAD5 
      JSB ERR1,I
      DEF *-7 
CCAD5 CLA,CLE 
      LDA D2
      STA 2 
      LDA D3
      STA 3 
      LDA D4
      STA 4 
      LDA D5
      STA 5 
      LDA DA
      LDB DB
      JMP 0         ADA TO A FROM A DIRECT
      OCT 0 
CCAD6 SEZ,RSS       E=0 
      JMP CCAD7 
NAR1  JSB ERR1,I
      DEF *-4 
CCAD7 CLA,CLE 
      LDA CAI 
      ADA 0,I       ADA TO A FROM A INDIRECT
      CPA ADMK1 
      JMP *+2 
      JMP *+3 
      SEZ,RSS       E=0 
      JMP CCAD8 
      JSB ERR1,I
      DEF *-7 
CCAD8 CLA,CLE 
      CLB 
      NOP           MODULE LOOP 
TADB1 LDB PBT1
      ADB PBT1      ADB FROM BASE PAGE
      CPB PAT2
      JMP *+2 
      JMP *+3 
      SEZ,RSS       E=0 
      JMP CCBD1 
      JSB ERR1,I
      DEF *-7 
CCBD1 CLB,CLE 
      LDB PAT2
      ADB PAT2      ADB FROM CURRENT PAGE 
      INB 
      CPB PAT1
      JMP *+2 
      JMP *+3 
      SEZ 
      JMP CCBD2 
      JSB ERR1,I
      DEF *-8 
CCBD2 CLB,CLE 
      LDB PAT1
      ADB IPAT2,I   ADB FROM PAGE 2 INDIRECT
      CPB PAT2
      JMP *+2 
      JMP *+3 
      SEZ,RSS       E=0 
      JMP CCBD3 
      JSB ERR1,I
      DEF *-7 
CCBD3 CLB,CLE 
      LDB PAT2
      ADB IPAT3,I   ADB FROM PAGE 3 INDIRECT
      INB 
      CPB PAT1
      JMP *+2 
      JMP *+3 
      SEZ      E=1
      JMP CCBD4 
      JSB ERR1,I
      DEF *-8 
CCBD4 CLB,CLE 
      LDB PAT1
      ADB IIPAT,I   ADB FROM PAGES 1,2,3,0,1 INDIR. 
      CPB PAT2
      JMP *+2 
      JMP *+3 
      SEZ,RSS       E=0 
      JMP CCBD5 
      JSB ERR1,I
      DEF *-7 
CCBD5 CLB,CLE 
      LDB D21 
      STB 2 
      LDB D31 
      STB 3 
      LDB DB1 
      JMP 1         ADB TO B FROM B DIRECT
      OCT 1 
CCBD6 CMB,SZB 
      JMP *+3 
      SEZ,RSS       E=0 
      JMP CCBD7 
      JSB ERR1,I
      DEF *-6 
CCBD7 CLB,CLE 
      LDB CAI 
      ADB 1,I       ADB TO B FROM INDIRECT
      CPB ADMK1 
      JMP *+2 
      JMP *+3 
      SEZ,RSS       E=0 
      JMP CCBD8 
      JSB ERR1,I
      DEF *-7 
CCBD8 CLA,CLE 
      CLB 
      NOP           MODULE LOOP 
      JMP ITE,I 
ITE   DEF TCPA2 
      ORG 3600B 
ERR1  DEF ERROR 
FIVE  DEF FIVEI,I 
SIX   DEF SIXI,I
ITWO  DEF IFIVE,I 
ASEQ  JMP 1 
      JMP 2,I 
      DEF RET5
      DEF RET6
ASEQI DEF 1,I 
      DEF 2,I 
      DEF RET7,I
      DEF RET8,I
SIFVE DEF SI5 
SISIX DEF SI6 
SIT2  DEF SIT5,I
OT12  OCT 12
BINST LDB 0 
INST2 ADB OT2 
INST3 STB 0 
INST4 JMP 0,I 
TAI   DEF 0,I 
IZ1   OCT 1 
ZI2   DEF IZ2 
ZI3   DEF IZ3 
IIZ1  DEF IIZ2,I
PAT1  OCT 052525
PAT2  OCT 125252
IPAT2 DEF PAT5A 
IPAT3 DEF PAT6A 
IIPAT DEF IIPA2,I 
CA    CPA 0 
CB    JMP 3,I 
C2    JMP 4,I 
C3    DEF CCON1 
C4    DEF BAD10 
CAI   DEF CAI 
CB1   CPB 1 
C21   JMP 4,I 
C31   JMP 5,I 
C41   DEF CCON2 
C51   DEF BAD11 
AA    AND 0 
AB    CPA AII,I 
A2    JMP 4,I 
A3    JMP 5,I 
A4    DEF CAN6
A5    DEF BAD12 
AAI   DEF AAI 
XA    XOR 0 
XB    SZA 
X2    JMP 4,I 
X3    JMP 5,I 
X4    DEF BAD13 
X5    DEF CCAN6 
IA    IOR PBT1
IB    IOR PBT2
I2    JMP 3,I 
I3    DEF CCOR6 
LA    LDA PBT2
LB    CPA PBT2
L2    JMP 4,I 
L3    JMP 5,I 
L4    DEF CCLN6 
L5    DEF BAD14 
LBB   LDB PBT2
L2B   JMP 3,I 
L3B   DEF CCLB6 
SPAT1 OCT 0 
SPT2  DEF SPAT2 
SPT3  DEF SPAT3 
IIPST DEF IIPS1,I 
SA    STA SPAT0 
SB    JMP 2,I 
S2    DEF CCSA6 
SB1   STB SPAT0 
S2B   JMP 3,I 
S3B   DEF CCSB6 
DA    ADA ADMK
DB    CMA,SZA 
D2    JMP 4,I 
D3    JMP 5,I 
D4    DEF NAR1
D5    DEF CCAD6 
ADMK1 OCT 7506
DB1   ADB ADMKB 
D21   JMP 3,I 
D31   DEF CCBD6 
      ORG 4000B 
TCPA2 CLA,CLE 
      CLB,INB 
LP1   LDA PBT1
      CPA PBT1      ITER. CPA TEST-ALTER. 1'S PATT. 
      JMP GD1       GOOD
      JSB ERR2,I    ERROR 
      DEF *-3 
      LDB BTEMP 
GD1   ISZ 1         INCR. LOOP COUNT
      JMP LP1 
      CLA,CLE       NEW TEST
      CLB,INB 
LP2   LDA PBT2
      CPA PBT2      ITER. CPA TEST-COMP. 1'S PATT.
      JMP GD2       GOOD
      JSB ERR2,I    ERROR 
      DEF *-3 
      LDB BTEMP 
GD2   ISZ 1         INCR. LOOP COUNT
      JMP LP2 
      NOP           MODULE LOOP 
TCPB2 CLA,INA       NEW TEST
      CLB,CLE 
LP3   LDB PBT1
      CPB PBT1      ITER. CPB TEST-ALTER. 1'S PATT. 
      JMP GD3       GOOD
      JSB ERR2,I    ERROR 
      DEF *-3 
      LDA ATEMP 
GD3   ISZ 0         INCR. LOOP COUNT
      JMP LP3 
      CLA,INA 
      CLB,INB 
LP4   LDB PBT2
      CPB PBT2      ITER. CPB TEST-COMPL. 1'S PATT. 
      JMP GD4       GOOD
      JSB ERR2,I    ERROR 
      DEF *-3 
      LDA ATEMP 
GD4   ISZ 0         INCR. LOOP COUNT
      JMP LP4 
      NOP           MODULE LOOP 
TAND2 CLA,CLE 
      CLB,INB 
LP5   LDA PBT1
      AND PBT2      ITER. AND TEST
      SZA 
      JMP *+2       ERROR 
      JMP GD5       GOOD
      JSB ERR2,I    ERROR 
      DEF *-5 
      LDB BTEMP 
GD5   ISZ 1         INCR. LOOP COUNT
      JMP LP5 
      CLA,CLE 
      CLB,INB 
LP6   LDA PBT1
      AND PBT1      ITER. AND TEST
      CPA PBT1
      JMP GD6       GOOD
      JSB ERR2,I    ERROR 
      DEF *-4 
      LDB BTEMP 
GD6   ISZ 1         INCR. LOOP COUNT
      JMP LP6 
      CLA,CLE 
      CLB,INB 
LP7   LDA PBT2
      AND PBT2      ITER. AND TEST
      CPA PBT2
      JMP GD7       GOOD
      JSB ERR2,I    ERROR 
      DEF *-4 
      LDB BTEMP 
GD7   ISZ 1 
      JMP LP7 
      NOP           MODULE LOOP 
TXOR2 CLA,CLE 
      CLB,INB 
LP8   LDA PBT1
      XOR PBT2      ITER. XOR TEST
      CMA,SZA 
      JMP *+2       ERROR 
      JMP GD8       GOOD
      JSB ERR2,I    ERROR 
      DEF *-5 
      LDB BTEMP 
GD8   ISZ 1         INCR. LOOP COUNT
      JMP LP8 
      CLA,CLE 
      CLB,INB 
LP9   LDA PBT1
      XOR PBT1      ITER. XOR TEST
      SZA 
      JMP *+2       ERROR 
      JMP GD9       GOOD
      JSB ERR2,I    ERROR 
      DEF *-5 
      LDB BTEMP 
GD9   ISZ 1         INCR. LOOP COUNT
      JMP LP9 
      CLA,CLE 
      CLB,INB 
LP10  LDA PBT2
      XOR PBT2      ITER. XOR TEST
      SZA 
      JMP *+2       ERROR 
      JMP GD10      GOOD
      JSB ERR2,I    ERROR 
      DEF *-5 
      LDB BTEMP 
GD10  ISZ 1         INCR. LOOP COUNT
      JMP LP10
      NOP           MODULE LOOP 
TIOR2 CLA,CLE 
      CLB,INB 
LP11  LDA PBT1
      IOR PBT2      ITER. IOR TEST
      CMA,SZA 
      JMP *+2       ERROR 
      JMP GD11      GOOD
      JSB ERR2,I    ERROR 
      DEF *-5 
      LDB BTEMP 
GD11  ISZ 1         INCR. LOOP COUNT
      JMP LP11
      CLA,CLE 
      CLB,INB 
LP12  LDA PBT2
      IOR PBT1      ITER. IOR TEST
      CMA,SZA 
      JMP *+2       ERROR 
      JMP GD12      GOOD
      JSB ERR2,I    ERROR 
      DEF *-5 
      LDB BTEMP 
GD12  ISZ 1         INCR. LOOP COUNT
      JMP LP12
      CLA,CLE 
      CLB,INB 
LP13  LDA PBT1
      IOR PBT1      ITER. IOR TEST
      CPA PBT1
      JMP GD13      GOOD
      JSB ERR2,I    ERROR 
      DEF *-4 
      LDB BTEMP 
GD13  ISZ 1         INCR LOOP COUNT 
      JMP LP13
      CLA,CLE 
      CLB,INB 
LP14  LDA PBT2
      IOR PBT2      ITER. IOR TEST
      CPA PBT2
      JMP GD14      GOOD
      JSB ERR2,I    ERROR 
      DEF *-4 
      LDB BTEMP 
GD14  ISZ 1         INCR. LOOP COUNT
      JMP LP14
      NOP           MODULE LOOP 
TLDA2 CLA,CLE 
      CLB,INB 
LP15  LDA PBT1      ITER. LDA TEST
      CPA PBT1
      JMP GD15      GOOD
      JSB ERR2,I    ERROR 
      DEF *-4 
      LDB BTEMP 
GD15  ISZ 1         INCR. LOOP COUNT
      JMP LP15
      CLA,CLE 
      CLB,INB 
LP16  LDA PBT2      ITER. LDA TEST
      CPA PBT2
      JMP GD16      GOOD
      JSB ERR2,I    ERROR 
      DEF *-4 
      LDB BTEMP 
GD16  ISZ 1         INCR. LOOP COUNT
      JMP LP16
      NOP           MODULE LOOP 
TLDB2 CLA,INA 
      CLB,CLE 
LP17  LDB PBT1      ITER. LDB TEST
      CPB PBT1
      JMP GD17      GOOD
      JSB ERR2,I    ERROR 
      DEF *-4 
      LDA ATEMP 
GD17  ISZ 0         INCR. LOOP COUNT
      JMP LP17
      CLA,INA 
      CLB,CLE 
LP18  LDB PBT2      ITER. LDB TEST
      CPB PBT2
      JMP GD18
      JSB ERR2,I    ERROR 
      DEF *-4 
      LDA ATEMP 
GD18  ISZ 0 
      JMP LP18
      NOP           MODULE LOOP 
TSTA2 CLA,CLE 
      CLB,INB 
LP19  LDA PBT1
      STA SPAT0     ITER. STA TEST
      CPA SPAT0 
      JMP GD19      GOOD
      JSB ERR2,I    ERROR 
      DEF *-4 
      LDB BTEMP 
GD19  ISZ 1         INCR. LOOP COUNT
      JMP LP19
      CLA,CLE 
      CLB,INB 
LP20  LDA PBT2
      STA SPAT0     ITER. STA TEST
      CPA SPAT0 
      JMP GD20      GOOD
      JSB ERR2,I    ERROR 
      DEF *-4 
      LDB BTEMP 
GD20  ISZ 1         INCR. LOOP COUNT
      JMP LP20
      NOP           MODULE LOOP 
TSTB2 CLA,INA 
      CLB,CLE 
LP21  LDB PBT1
      STB SPAT0     ITER. STB TEST
      CPB SPAT0 
      JMP GD21      GOOD
      JSB ERR2,I    ERROR 
      DEF *-4 
      LDA ATEMP 
GD21  ISZ 0         INCR. LOOP COUNT
      JMP LP21
      CLA,INA 
      CLB,CLE 
LP22  LDB PBT2
      STB SPAT0     ITER. STB TEST
      CPB SPAT0 
      JMP GD22      GOOD
      JSB ERR2,I    ERROR 
      DEF *-4 
      LDA ATEMP 
GD22  ISZ 0         INCR. LOOP COUNT
      JMP LP22
      NOP           MODULE LOOP 
TADA2 CLA 
      CLB,INB 
LP23  CLE 
      LDA PBT1
      ADA PBT2      ITER. ADA TEST-A=177777,E=0 
      CMA,SZA 
      JMP *+3       ERROR 
      SEZ,RSS 
      JMP GD23      GOOD
      JSB ERR2,I    ERROR 
      DEF *-6 
      LDB BTEMP 
GD23  ISZ 1         INCR. LOOP COUNT
      JMP LP23
      CLA 
      CLB,INB 
LP24  CLE 
      LDA PBT2
      ADA PBT1      ITER. ADA TEST-A=177777,E=0 
      CMA,SZA 
      JMP *+3       ERROR 
      SEZ,RSS 
      JMP GD24      GOOD
      JSB ERR2,I    ERROR 
      DEF *-6 
      LDB BTEMP 
GD24  ISZ 1         INCR. LOOP COUNT
      JMP LP24
      CLA 
      CLB,INB 
LP25  CLE 
      LDA PAT3
      ADA PAT3      ITER. ADA TEST-A=063146,E=0 
      CPA ANS3
      JMP *+2       GOOD
      JMP *+3       ERROR 
      SEZ,RSS 
      JMP GD25      GOOD
      JSB ERR2,I    ERROR 
      DEF *-7 
      LDB BTEMP 
GD25  ISZ 1         INCR. LOOP COUNT
      JMP LP25
      CLA 
      CLB,INB 
LP26  CLE 
      LDA PAT4
      ADA PAT4      ITER. ADA TEST-A=114630,E=1 
      CPA ANS4
      JMP *+2       GOOD
      JMP *+3       ERROR 
      SEZ 
      JMP GD26      GOOD
      JSB ERR2,I    ERROR 
      DEF *-7 
      LDB BTEMP 
GD26  ISZ 1         INCR. LOOP COUNT
      JMP LP26
      CLA 
      CLB,INB 
LP27  CLE 
      LDA PAT5
      ADA PAT5      ITER. ADA TEST-A=146314,E=0 
      CPA ANS5
      JMP *+2       GOOD
      JMP *+3       ERROR 
      SEZ,RSS 
      JMP GD27       GOOD 
      JSB ERR2,I    ERROR 
      DEF *-7 
      LDB BTEMP 
GD27  ISZ 1         INCR. LOOP COUNT
      JMP LP27
      CLA 
      CLB,INB 
LP28  CLE 
      LDA PAT6
      ADA PAT6      ITER. ADA TEST-A=031462,E=1 
      CPA ANS6
      JMP *+2       GOOD
      JMP *+3       ERROR 
      SEZ 
      JMP GD28      GOOD
      JSB ERR2,I    ERROR 
      DEF *-7 
      LDB BTEMP 
GD28  ISZ 1         INCR. LOOP COUNT
      JMP LP28
      NOP           MODULE LOOP 
TADB2 CLA,INA 
      CLB 
LP29  CLE 
      LDB PBT1
      LDB PBT2      ITER. ADB TEST-B=177777,E=0 
      CLB,SZB 
      JMP *+3       ERROR 
      SEZ,RSS 
      JMP GD29      DH@D
      JSB ERR2,I    ERROR 
      DEF *-6 
      LDA ATEMP 
GD29  ISZ 0         INCR. LOOP COUNT
      JMP LP29
      CLA,INA 
      CLB 
LP30  CLE 
      LDB PBT2
      ADB PBT1      ITER. ADB TEST-B=177777,E=0 
      CMB,SZB 
      JMP *+3       ERROR 
      SEZ,RSS 
      JMP GD30      GOOD
      JSB ERR2,I    ERROR 
      DEF *-6 
      LDA ATEMP 
GD30  ISZ 0         INCR. LOOP COUNT
      JMP LP30
      CLA,INA 
      CLB 
LP31  CLE 
      LDB PAT3
      ADB PAT3      ITER. ADB TEST-B=063146,E=0 
      CPB ANS3
      JMP *+2       GOOD
      JMP *+3       ERROR 
      SEZ,RSS 
      JMP GD31      GOOD
      JSB ERR2,I    ERROR 
      DEF *-7 
      LDA ATEMP 
GD31  ISZ 0         INCR. LOOP COUNT
      JMP LP31
      CLA,INA 
      CLB 
LP32  CLE 
      LDB PAT4
      ADB PAT4      ITER. ADB TEST-B=114630,E=1 
      CPB ANS4
      JMP *+2       GOOD
      JMP *+3       ERROR 
      SEZ 
      JMP GD32
      JSB ERR2,I    ERROR 
      DEF *-7 
      LDA ATEMP 
GD32  ISZ 0         INCR. LOOP COUNT
      JMP LP32
      CLA,INA 
      CLB 
LP33  CLE 
      LDB PAT5
      ADB PAT5      ITER. ADB TEST-B=146314,E=0 
      CPB ANS5
      JMP *+2       GOOD
      JMP *+3       ERROR 
      SEZ,RSS 
      JMP GD33      GOOD
      JSB ERR2,I    ERROR 
      DEF *-7 
      LDA ATEMP 
GD33  ISZ 0         INCR. LOOP COUNT
      JMP LP33
      CLA,INA 
      CLB 
LP34  CLE 
      LDB PAT6
      ADB PAT6      ITER. ADB TEST-B=031462,E=1 
      CPB ANS6
      JMP *+2       GOOD
      JMP *+3       ERROR 
      SEZ 
      JMP GD34      GOOD
      JSB ERR2,I    ERROR 
      DEF *-7 
      LDA ATEMP 
GD34  ISZ 0         INCR. LOOP COUNT
      JMP LP34
      NOP           MODULE LOOP 
      CLA,CLE 
      CLB 
      JMP RETN,I
RETN  DEF BASIC 
      ORG 5000B 
ERR2  DEF ERROR 
FIVEI DEF RET2
IFIVE DEF ISIX,I
SI5   NOP 
      LDA SI5 
      INA 
      INA 
      STA SI5 
      JMP SI5,I 
SIT5  DEF SIT6,I
IZ2   OCT 1 
IIZ2  DEF IIZ3,I
PAT5A OCT 052525
IIPA2 DEF IIPA3,I 
SPAT2 OCT 0 
IIPS1 DEF IIPS2,I 
PAT3  OCT 031463
ANS3  OCT 063146
PAT4  OCT 146314
ANS4  OCT 114630
PAT5  OCT 063146
ANS5  OCT 146314
PAT6  OCT 114631
ANS6  OCT 031462
      ORG 6000B 
ERR3  DEF ERROR 
SIXI  DEF RET3
ISIX  DEF IBASE,I 
SI6   NOP 
      LDA SI6 
      INA 
      INA 
      STA SI6 
      JMP SI6,I 
SIT6  DEF SIT0,I
IZ3   OCT 1 
IIZ3  DEF IIZ0,I
PAT6A OCT 125252
IIPA3 DEF IIPA0,I 
SPAT3 OCT 0 
IIPS2 DEF IIPS0,I 
      END