TITLE "AUTOMATIC DISASSEMBLY OF maindec-08-d3eb-pb.bin BY D8TAPE"
////////////////////////////////////////////////////////////////////////////////
/
/   Automatic Disassembly of maindec-08-d3eb-pb.bin
/   Generated 2010 02 19 00:10:23
/   Generated by d8tape version 0.351
/   Visit http://www.pdp12.org/pdp8/software/index.html for updates
/
/   Symbol format:
/       AIx   -- Auto-index variables (address range 001x)
/       Caaaa -- Constants (non-unique)
/       Daaaa -- Data (read/write variables)
/       Kvvvv -- Program-wide unique constants
/       Laaaa -- Labels for control flow targets
/       Saaaa -- Subroutines
/
/   Where:
/       aaaa is the definition address
/       vvvv is the value of the constant
/       x    is the last digit of the address 001x for auto-index variables
/
/   1132 locations used, 0666 code and 0244 data
////////////////////////////////////////////////////////////////////////////////

*0020
D0020,  0000                / AND   L0000                           
D0021,  0000                / AND   L0000                           
D0022,  0000                / AND   L0000                           
D0023,  0000                / AND   L0000                           
C0024,  0002                / AND   C0002                           
C0025,  0003                / AND   C0003                           
C0026,  0004                / AND   C0004                           
C0027,  0007                / AND   C0007                           
C0030,  0010                / AND   AI0                             
C0031,  0070                / AND   C0070                           
C0032,  0130                / AND   C0130                           
C0033,  0150                / AND   C0150                           
C0034,  0200                / AND   L0000                           
C0035,  0201                / AND   C0001                           
C0036,  0207                / AND   C0007                           
C0037,  0212                / AND   AI2                             
C0040,  0215                / AND   AI5                             
C0041,  0240                / AND   C0040                           
C0042,  0260                / AND   C0060                           
C0043,  0400                / AND I L0000                           
C0044,  0600                / AND I L0000                           
C0045,  0610                / AND I AI0                             
C0046,  1777                / TAD I C0177                           
C0047,  2670                / ISZ I C0070                           
C0050,  4000                / JMS   L0000                           
C0051,  7000                / NOP                                   
C0052,  7401                / NOP                                   
C0053,  7754                / SPA SNA CLA OSR                       
C0054,  7755                / CLA MQA SCA ASR +                     
C0055,  7774                / SPA SNA SZL CLA OSR                   
D0056,  0000                / AND   L0000                           
C0057,  1000                / TAD   L0000                           
C0060,  1056                / TAD   D0056                           
C0061,  1073                / TAD   C0073                           
C0062,  1106                / TAD   S0106                           
C0063,  1117                / TAD   S0117                           
C0064,  1130                / TAD   C0130                           
C0065,  1141                / TAD   C0141                           
C0066,  1205                / TAD   C0005                           
C0067,  1232                / TAD   C0032                           
C0070,  1251                / TAD   C0051                           
D0071,  0000                / AND   L0000                           
D0072,  0000                / AND   L0000                           
C0073,  7410                / SKP                                   
C0074,  7402                / HLT                                   
D0075,  0000                / AND   L0000                           
D0076,  0000                / AND   L0000                           
C0077,
C0077,  0400                / AND I L0000                           
C0100,
C0100,  0416                / AND I AI6                             
C0101,
C0101,  0437                / AND I C0037                           
C0102,  0466                / AND I C0066                           
C0103,
C0103,  0600                / AND I L0000                           
C0104,
C0104,  0651                / AND I C0051                           
C0105,  1266                / TAD   C0066                           

////////////////////////////////////////////////////////////////////////////////
/
/   SUBROUTINE:  S0106
/
/   Called from:
/   0334 0472 0500 0504 0667 0676 0705 0714 0723 0731 
/   Total 0012 (10) calls
////////////////////////////////////////////////////////////////////////////////
S0106,
    0                       / return area
    DCA   D0071             /                                       @@0107=3071
L0110,
    TAD I D0071             /                                       @@0110=1471
    JMS   S0117             /                                       @@0111=4117
    TAD   C0052             /                                       @@0112=1052
    SNA CLA                 /                                       @@0113=7650
    JMP I S0106             / return                                @@0114=5506
    ISZ   D0071             /                                       @@0115=2071
    JMP   L0110             /                                       @@0116=5110

////////////////////////////////////////////////////////////////////////////////
/
/   SUBROUTINE:  S0117
/
/   Called from:
/   0111 0127 0132 0152 0170 0340 0341 0517 
/   Total 0010 (8) calls
////////////////////////////////////////////////////////////////////////////////
S0117,
    0                       / return area
    TLS                     / Load the TTO from the content of AC4  @@0120=6046
L0121,
    TSF                     / Skip if teleprinter flag is a 1.      @@0121=6041
    JMP   L0121             /                                       @@0122=5121
    JMP I S0117             / return                                @@0123=5517

////////////////////////////////////////////////////////////////////////////////
/
/   SUBROUTINE:  S0124
/
/   Called from:
/   0345 0523 
/   Total 0002 (2) calls
////////////////////////////////////////////////////////////////////////////////
S0124,
    0                       / return area
    CLA                     /                                       @@0125=7200
    TAD   C0040             /                                       @@0126=1040
    JMS   S0117             /                                       @@0127=4117
C0130,  7200                / CLA                                   
    TAD   C0037             /                                       @@0131=1037
    JMS   S0117             /                                       @@0132=4117
    CLA                     /                                       @@0133=7200
    JMP I S0124             / return                                @@0134=5524

////////////////////////////////////////////////////////////////////////////////
/
/   SUBROUTINE:  S0135
/
/   Called from:
/   0331 0464 0664 
/   Total 0003 (3) calls
////////////////////////////////////////////////////////////////////////////////
S0135,
    0                       / return area
    LAS                     /                                       @@0136=7604
    RTR                     /                                       @@0137=7012
    SZL CLA                 /                                       @@0140=7630
C0141,  5535                / JMP I S0135                           
    ISZ   S0135             /                                       @@0142=2135
    JMP I S0135             / return                                @@0143=5535

////////////////////////////////////////////////////////////////////////////////
/
/   SUBROUTINE:  S0144
/
/   Called from:
/   0330 0463 0663 
/   Total 0003 (3) calls
////////////////////////////////////////////////////////////////////////////////
S0144,
    0                       / return area
    LAS                     /                                       @@0145=7604
    RAR                     /                                       @@0146=7010
    SZL CLA                 /                                       @@0147=7630
C0150,  5544                / JMP I S0144                           
    TAD   C0036             /                                       @@0151=1036
    JMS   S0117             /                                       @@0152=4117
    JMP I S0144             / return                                @@0153=5544

////////////////////////////////////////////////////////////////////////////////
/
/   SUBROUTINE:  S0154
/
/   Called from:
/   0336 0344 0476 0502 0515 0522 
/   Total 0006 (6) calls
////////////////////////////////////////////////////////////////////////////////
S0154,
    0                       / return area
    DCA   D0075             /                                       @@0155=3075
    TAD   C0055             /                                       @@0156=1055
    DCA   D0021             /                                       @@0157=3021
    TAD   D0075             /                                       @@0160=1075
    CLL RAL                 /                                       @@0161=7104
L0162,
    RAL                     /                                       @@0162=7004
    RTL                     /                                       @@0163=7006
    DCA   D0075             /                                       @@0164=3075
    TAD   D0075             /                                       @@0165=1075
    AND   C0027             /                                       @@0166=0027
    TAD   C0042             /                                       @@0167=1042
    JMS   S0117             /                                       @@0170=4117
    CLA                     /                                       @@0171=7200
    TAD   D0075             /                                       @@0172=1075
    ISZ   D0021             /                                       @@0173=2021
    JMP   L0162             /                                       @@0174=5162
    CLA                     /                                       @@0175=7200
    JMP I S0154             / return                                @@0176=5554

*0200
    CLA CLL                 / AC = 0000                             @@0200=7300
    DCA   D0023             /                                       @@0201=3023
L0202,
    DTLB                    / The memory field portion of status r  @@0202=6774
    CLA                     /                                       @@0203=7200
    DTRB                    / The content of status register B is   @@0204=6772
    AND   C0031             /                                       @@0205=0031
    DCA   D0056             /                                       @@0206=3056
    TAD   D0056             /                                       @@0207=1056
    CIA                     /                                       @@0210=7041
    TAD   D0023             /                                       @@0211=1023
C0212,  7640                / SZA CLA                               
    JMS   S0327             /                                       @@0213=4327
    TAD   D0023             /                                       @@0214=1023
    TAD   C0030             /                                       @@0215=1030
    AND   C0031             /                                       @@0216=0031
    DCA   D0023             /                                       @@0217=3023
    TAD   D0023             /                                       @@0220=1023
    SZA                     /                                       @@0221=7440
    JMP   L0202             /                                       @@0222=5202
    HLT                     /                                       @@0223=7402
    LAS                     /                                       @@0224=7604
    AND   C0031             /                                       @@0225=0031
    SNA                     /                                       @@0226=7450
    HLT                     /                                       @@0227=7402
    DCA   D0056             /                                       @@0230=3056
    LAS                     /                                       @@0231=7604
    AND   C0051             /                                       @@0232=0051
    DCA   D0076             /                                       @@0233=3076
    DCA   D0020             /                                       @@0234=3020
L0235,
    TAD   C0030             /                                       @@0235=1030
    DCA   D0023             /                                       @@0236=3023
    TAD   D0023             /                                       @@0237=1023
    CIA                     /                                       @@0240=7041
    TAD   D0056             /                                       @@0241=1056
    SPA CLA                 /                                       @@0242=7710
    JMP   L0235             /                                       @@0243=5235
    JMS   S0353             /                                       @@0244=4353
    TAD   C0073             /                                       @@0245=1073
    DCA I C0102             /                                       @@0246=3502
    TAD   D0023             /                                       @@0247=1023
    JMS I C0077             / long call to S0400                    @@0250=4477
    TAD   D0023             /                                       @@0251=1023
    JMS I C0100             / long call to S0416                    @@0252=4500
L0253,
    JMS I C0103             / long call to S0600                    @@0253=4503
    JMS   S0366             /                                       @@0254=4366
    JMP   L0253             /                                       @@0255=5253
    TAD   D0023             /                                       @@0256=1023
    DTLB                    / The memory field portion of status r  @@0257=6774
    TAD   C0033             /                                       @@0260=1033
    DTXA                    / Status register A is loaded by an ex  @@0261=6764
    TAD   C0046             /                                       @@0262=1046
    DCA I C0054             /                                       @@0263=3454
    TAD   C0050             /                                       @@0264=1050
    DCA I C0053             /                                       @@0265=3453
    JMS I C0104             / long call to S0651                    @@0266=4504
    JMS   S0366             /                                       @@0267=4366
    JMP   L0253             /                                       @@0270=5253
    TAD   D0023             /                                       @@0271=1023
    JMS I C0077             / long call to S0400                    @@0272=4477
L0273,
    JMS I C0103             / long call to S0600                    @@0273=4503
    JMS   S0366             /                                       @@0274=4366
    JMP   L0273             /                                       @@0275=5273
    TAD   D0023             /                                       @@0276=1023
    DTLB                    / The memory field portion of status r  @@0277=6774
    TAD   C0032             /                                       @@0300=1032
    DTXA                    / Status register A is loaded by an ex  @@0301=6764
    TAD   C0046             /                                       @@0302=1046
    DCA I C0054             /                                       @@0303=3454
    TAD   C0050             /                                       @@0304=1050
    DCA I C0053             /                                       @@0305=3453
    JMS I C0104             / long call to S0651                    @@0306=4504
    JMS   S0366             /                                       @@0307=4366
    JMP   L0273             /                                       @@0310=5273
    TAD   D0023             /                                       @@0311=1023
    JMS I C0101             / long call to S0437                    @@0312=4501
    TAD   D0023             /                                       @@0313=1023
    JMS I C0077             / long call to S0400                    @@0314=4477
    TAD   D0020             /                                       @@0315=1020
    TAD   C0030             /                                       @@0316=1030
    DCA   D0020             /                                       @@0317=3020
    TAD   D0020             /                                       @@0320=1020
    CIA                     /                                       @@0321=7041
    TAD   C0047             /                                       @@0322=1047
    SPA SNA CLA             /                                       @@0323=7750
    DCA   D0020             /                                       @@0324=3020
    TAD   D0023             /                                       @@0325=1023
    JMP   L0235             /                                       @@0326=5235

////////////////////////////////////////////////////////////////////////////////
/
/   SUBROUTINE:  S0327
/
/   Called from:
/   0213 
/   Total 0001 (1) calls
////////////////////////////////////////////////////////////////////////////////
S0327,
    0                       / return area
    JMS   S0144             /                                       @@0330=4144
    JMS   S0135             /                                       @@0331=4135
    JMP   L0346             /                                       @@0332=5346
    TAD   C0065             /                                       @@0333=1065
    JMS   S0106             /                                       @@0334=4106
    TAD   D0023             /                                       @@0335=1023
    JMS   S0154             /                                       @@0336=4154
    TAD   C0041             /                                       @@0337=1041
    JMS   S0117             /                                       @@0340=4117
    JMS   S0117             /                                       @@0341=4117
    CLA                     /                                       @@0342=7200
    TAD   D0056             /                                       @@0343=1056
    JMS   S0154             /                                       @@0344=4154
    JMS   S0124             /                                       @@0345=4124
L0346,
    LAS                     /                                       @@0346=7604
    AND   C0026             /                                       @@0347=0026
    SZA CLA                 /                                       @@0350=7640
    HLT                     /                                       @@0351=7402
    JMP I S0327             / return                                @@0352=5727

////////////////////////////////////////////////////////////////////////////////
/
/   SUBROUTINE:  S0353
/
/   Called from:
/   0244 
/   Total 0001 (1) calls
////////////////////////////////////////////////////////////////////////////////
S0353,
    0                       / return area
    CDF0                    / Change to data field 0. The data fie  @@0354=6201
    TAD   C0105             /                                       @@0355=1105
C0356,  3011                / DCA   AI1                             
L0357,
    TAD   C0074             /                                       @@0357=1074
C0360,  3411                / DCA I AI1                             
C0361,  1011                / TAD   AI1                             
    TAD   C0035             /                                       @@0362=1035
    SZA CLA                 /                                       @@0363=7640
    JMP   L0357             /                                       @@0364=5357
    JMP I S0353             / return                                @@0365=5753

////////////////////////////////////////////////////////////////////////////////
/
/   SUBROUTINE:  S0366
/
/   Called from:
/   0254 0267 0274 0307 
/   Total 0004 (4) calls
////////////////////////////////////////////////////////////////////////////////
S0366,
    0                       / return area
    CLA                     /                                       @@0367=7200
    DTRB                    / The content of status register B is   @@0370=6772
    SMA CLA                 /                                       @@0371=7700
    ISZ   S0366             /                                       @@0372=2366
    JMP I S0366             / return                                @@0373=5766

*0400

////////////////////////////////////////////////////////////////////////////////
/
/   SUBROUTINE:  S0400
/
/   Called from:
/   0250 0272 0314 
/   Total 0003 (3) calls
////////////////////////////////////////////////////////////////////////////////
S0400,
    0                       / return area
    SNA                     /                                       @@0401=7450
    JMP I S0400             / return                                @@0402=5600
    TAD   C0414             /                                       @@0403=1214
    DCA   D0406             /                                       @@0404=3206
C0405,  3010                / DCA   AI0                             
D0406,  6201                / CDF0                                  
L0407,
    TAD   C0074             /                                       @@0407=1074
C0410,  3410                / DCA I AI0                             
C0411,  1010                / TAD   AI0                             
    SZA CLA                 /                                       @@0412=7640
    JMP   L0407             /                                       @@0413=5207
C0414,  6201                / CDF0                                  
    JMP I S0400             / return                                @@0415=5600

////////////////////////////////////////////////////////////////////////////////
/
/   SUBROUTINE:  S0416
/
/   Called from:
/   0252 
/   Total 0001 (1) calls
////////////////////////////////////////////////////////////////////////////////
S0416,
    0                       / return area
    SNA                     /                                       @@0417=7450
    JMP I S0416             / return                                @@0420=5616
    TAD   C0435             /                                       @@0421=1235
    DCA   D0427             /                                       @@0422=3227
    TAD   C0046             /                                       @@0423=1046
C0424,  3010                / DCA   AI0                             
    TAD   C0050             /                                       @@0425=1050
C0426,  3012                / DCA   AI2                             
D0427,  6201                / CDF0                                  
L0430,
C0430,  1010                / TAD   AI0                             
    IAC                     /                                       @@0431=7001
C0432,  3410                / DCA I AI0                             
C0433,  2012                / ISZ   AI2                             
    JMP   L0430             /                                       @@0434=5230
C0435,  6201                / CDF0                                  
    JMP I S0416             / return                                @@0436=5616

////////////////////////////////////////////////////////////////////////////////
/
/   SUBROUTINE:  S0437
/
/   Called from:
/   0312 
/   Total 0001 (1) calls
////////////////////////////////////////////////////////////////////////////////
S0437,
    0                       / return area
    SNA                     /                                       @@0440=7450
    JMP I S0437             / return                                @@0441=5637
    TAD   C0460             /                                       @@0442=1260
    DCA   D0452             /                                       @@0443=3252
    TAD   C0046             /                                       @@0444=1046
C0445,  3010                / DCA   AI0                             
    TAD   C0050             /                                       @@0446=1050
C0447,  3012                / DCA   AI2                             
L0450,
C0450,  1010                / TAD   AI0                             
    CMA                     /                                       @@0451=7040
D0452,  6201                / CDF0                                  
C0453,  1410                / TAD I AI0                             
    SZA CLA                 /                                       @@0454=7640
    JMS   S0462             /                                       @@0455=4262
C0456,  2012                / ISZ   AI2                             
    JMP   L0450             /                                       @@0457=5250
C0460,  6201                / CDF0                                  
    JMP I S0437             / return                                @@0461=5637

////////////////////////////////////////////////////////////////////////////////
/
/   SUBROUTINE:  S0462
/
/   Called from:
/   0455 
/   Total 0001 (1) calls
////////////////////////////////////////////////////////////////////////////////
S0462,
    0                       / return area
    JMS   S0144             /                                       @@0463=4144
    JMS   S0135             /                                       @@0464=4135
    JMP   L0524             /                                       @@0465=5324
D0466,  7410                / SKP                                   
    JMP   L0512             /                                       @@0467=5312
    CDF0                    / Change to data field 0. The data fie  @@0470=6201
    TAD   C0066             /                                       @@0471=1066
    JMS   S0106             /                                       @@0472=4106
    TAD   D0023             /                                       @@0473=1023
    CLL RTR                 /                                       @@0474=7112
    RAR                     /                                       @@0475=7010
    JMS   S0154             /                                       @@0476=4154
    TAD   C0067             /                                       @@0477=1067
    JMS   S0106             /                                       @@0500=4106
    TAD   D0020             /                                       @@0501=1020
    JMS   S0154             /                                       @@0502=4154
    TAD   C0070             /                                       @@0503=1070
    JMS   S0106             /                                       @@0504=4106
    TAD   C0051             /                                       @@0505=1051
    DCA   D0466             /                                       @@0506=3266
    TAD   D0452             /                                       @@0507=1252
    DCA   D0511             /                                       @@0510=3311
D0511,  6201                / CDF0                                  
L0512,
C0512,  1010                / TAD   AI0                             
    DCA   D0072             /                                       @@0513=3072
    TAD   D0072             /                                       @@0514=1072
    JMS   S0154             /                                       @@0515=4154
    TAD   C0041             /                                       @@0516=1041
    JMS   S0117             /                                       @@0517=4117
    CLA                     /                                       @@0520=7200
    TAD I D0072             /                                       @@0521=1472
    JMS   S0154             /                                       @@0522=4154
    JMS   S0124             /                                       @@0523=4124
L0524,
    LAS                     /                                       @@0524=7604
    AND   C0026             /                                       @@0525=0026
    SZA CLA                 /                                       @@0526=7640
    HLT                     /                                       @@0527=7402
    JMP I S0462             / return                                @@0530=5662

*0600

////////////////////////////////////////////////////////////////////////////////
/
/   SUBROUTINE:  S0600
/
/   Called from:
/   0253 0273 
/   Total 0002 (2) calls
////////////////////////////////////////////////////////////////////////////////
S0600,
    0                       / return area
L0601,
    CLA                     /                                       @@0601=7200
    DCA I C0054             /                                       @@0602=3454
    TAD   D0076             /                                       @@0603=1076
    TAD   C0045             /                                       @@0604=1045
C0605,  6766                / 6766                                  
    DTLB                    / The memory field portion of status r  @@0606=6774
L0607,
    DTSF                    / Skip if error flag is a 1 or if DECt  @@0607=6771
    JMP   L0607             /                                       @@0610=5207
    DTRB                    / The content of status register B is   @@0611=6772
    RTL                     /                                       @@0612=7006
    SMA CLA                 /                                       @@0613=7700
    JMP   L0620             /                                       @@0614=5220
    TAD   C0044             /                                       @@0615=1044
    DTXA                    / Status register A is loaded by an ex  @@0616=6764
    JMP   L0607             /                                       @@0617=5207
L0620,
    DTRB                    / The content of status register B is   @@0620=6772
    SMA CLA                 /                                       @@0621=7700
    JMP   L0625             /                                       @@0622=5225
    JMS   S0651             /                                       @@0623=4251
    JMP   L0601             /                                       @@0624=5201
L0625,
    DTRA                    / The content of status register A is   @@0625=6761
    RTL                     /                                       @@0626=7006
    RTL                     /                                       @@0627=7006
    CLA                     /                                       @@0630=7200
C0631,  1000                / TAD   L0000                           
    CIA                     /                                       @@0632=7041
    TAD   D0020             /                                       @@0633=1020
    SNA                     /                                       @@0634=7450
    JMP   L0645             /                                       @@0635=5245
    CIA                     /                                       @@0636=7041
    SNL                     /                                       @@0637=7420
    TAD   C0024             /                                       @@0640=1024
    SNL CLA                 /                                       @@0641=7620
    TAD   C0043             /                                       @@0642=1043
L0643,
    DTXA                    / Status register A is loaded by an ex  @@0643=6764
    JMP   L0607             /                                       @@0644=5207
L0645,
    SNL CLA                 /                                       @@0645=7620
    JMP   L0643             /                                       @@0646=5243
    DTXA                    / Status register A is loaded by an ex  @@0647=6764
    JMP I S0600             / return                                @@0650=5600

////////////////////////////////////////////////////////////////////////////////
/
/   SUBROUTINE:  S0651
/
/   Called from:
/   0266 0306 0623 
/   Total 0003 (3) calls
////////////////////////////////////////////////////////////////////////////////
S0651,
    0                       / return area
L0652,
    DTSF                    / Skip if error flag is a 1 or if DECt  @@0652=6771
    JMP   L0652             /                                       @@0653=5252
    DTRA                    / The content of status register A is   @@0654=6761
    AND   C0034             /                                       @@0655=0034
    TAD   C0025             /                                       @@0656=1025
    DTXA                    / Status register A is loaded by an ex  @@0657=6764
    DTRB                    / The content of status register B is   @@0660=6772
    SMA CLA                 /                                       @@0661=7700
    JMP I S0651             / return                                @@0662=5651
    JMS   S0144             /                                       @@0663=4144
    JMS   S0135             /                                       @@0664=4135
    JMP   L0732             /                                       @@0665=5332
    TAD   C0057             /                                       @@0666=1057
    JMS   S0106             /                                       @@0667=4106
    DTRB                    / The content of status register B is   @@0670=6772
    RTL                     /                                       @@0671=7006
    DCA   D0022             /                                       @@0672=3022
    SNL                     /                                       @@0673=7420
    JMP   L0677             /                                       @@0674=5277
    TAD   C0060             /                                       @@0675=1060
    JMS   S0106             /                                       @@0676=4106
L0677,
    TAD   D0022             /                                       @@0677=1022
    CLL RAL                 /                                       @@0700=7104
    DCA   D0022             /                                       @@0701=3022
    SNL                     /                                       @@0702=7420
    JMP   L0706             /                                       @@0703=5306
    TAD   C0061             /                                       @@0704=1061
    JMS   S0106             /                                       @@0705=4106
L0706,
    TAD   D0022             /                                       @@0706=1022
    CLL RAL                 /                                       @@0707=7104
    DCA   D0022             /                                       @@0710=3022
    SNL                     /                                       @@0711=7420
    JMP   L0715             /                                       @@0712=5315
    TAD   C0062             /                                       @@0713=1062
    JMS   S0106             /                                       @@0714=4106
L0715,
    TAD   D0022             /                                       @@0715=1022
    CLL RAL                 /                                       @@0716=7104
    DCA   D0022             /                                       @@0717=3022
    SNL                     /                                       @@0720=7420
    JMP   L0724             /                                       @@0721=5324
    TAD   C0063             /                                       @@0722=1063
    JMS   S0106             /                                       @@0723=4106
L0724,
    TAD   D0022             /                                       @@0724=1022
    CLL RAL                 /                                       @@0725=7104
    SNL CLA                 /                                       @@0726=7620
    JMP   L0732             /                                       @@0727=5332
    TAD   C0064             /                                       @@0730=1064
    JMS   S0106             /                                       @@0731=4106
L0732,
    LAS                     /                                       @@0732=7604
    AND   C0026             /                                       @@0733=0026
    SZA CLA                 /                                       @@0734=7640
    HLT                     /                                       @@0735=7402
    JMP I S0651             / return                                @@0736=5651

*1000
    AND   C1015             /                                       @@1000=0215
    AND   C1012             /                                       @@1001=0212
    AND   C1124             /                                       @@1002=0324
    AND   C1110             /                                       @@1003=0310
    AND   C1105             /                                       @@1004=0305
    AND   C1040             /                                       @@1005=0240
    AND   C1106             /                                       @@1006=0306
    AND   C1117             /                                       @@1007=0317
    AND   C1114             /                                       @@1010=0314
    AND   C1114             /                                       @@1011=0314
C1012,  0317                / AND   C1117                           
    AND   C1127             /                                       @@1013=0327
    AND   C1111             /                                       @@1014=0311
C1015,  0316                / AND   C1116                           
    AND   C1107             /                                       @@1016=0307
    AND   C1040             /                                       @@1017=0240
    AND   C1125             /                                       @@1020=0325
    AND   C1116             /                                       @@1021=0316
    AND   C1105             /                                       @@1022=0305
    AND   C1130             /                                       @@1023=0330
    AND   C1120             /                                       @@1024=0320
    AND   C1105             /                                       @@1025=0305
    AND   C1103             /                                       @@1026=0303
    AND   C1124             /                                       @@1027=0324
    AND   C1105             /                                       @@1030=0305
    AND   C1104             /                                       @@1031=0304
    AND   C1040             /                                       @@1032=0240
    AND   C1105             /                                       @@1033=0305
    AND   C1122             /                                       @@1034=0322
    AND   C1122             /                                       @@1035=0322
    AND   C1117             /                                       @@1036=0317
    AND   C1122             /                                       @@1037=0322
C1040,  0323                / AND   C1123                           
    AND   C1040             /                                       @@1041=0240
    AND   C1117             /                                       @@1042=0317
    AND   C1103             /                                       @@1043=0303
    AND   C1103             /                                       @@1044=0303
    AND   C1125             /                                       @@1045=0325
    AND   C1122             /                                       @@1046=0322
    AND   C1122             /                                       @@1047=0322
    AND   C1105             /                                       @@1050=0305
    AND   C1104             /                                       @@1051=0304
    AND   C1072             /                                       @@1052=0272
    AND   C1015             /                                       @@1053=0215
    AND   C1012             /                                       @@1054=0212
    AND   C1177             /                                       @@1055=0377
    AND   C1115             /                                       @@1056=0315
    AND   C1101             /                                       @@1057=0301
    AND   C1122             /                                       @@1060=0322
    AND   C1113             /                                       @@1061=0313
    AND   C1040             /                                       @@1062=0240
    AND   C1124             /                                       @@1063=0324
    AND   C1122             /                                       @@1064=0322
    AND   C1101             /                                       @@1065=0301
    AND   C1103             /                                       @@1066=0303
    AND   C1113             /                                       @@1067=0313
    AND   C1015             /                                       @@1070=0215
    AND   C1012             /                                       @@1071=0212
C1072,  0377                / AND   C1177                           
    AND   C1105             /                                       @@1073=0305
    AND   C1116             /                                       @@1074=0316
    AND   C1104             /                                       @@1075=0304
    AND   C1040             /                                       @@1076=0240
    AND   C1132             /                                       @@1077=0332
    AND   C1117             /                                       @@1100=0317
C1101,  0316                / AND   C1116                           
    AND   C1105             /                                       @@1102=0305
C1103,  0215                / AND   C1015                           
C1104,  0212                / AND   C1012                           
C1105,  0377                / AND   C1177                           
C1106,  0323                / AND   C1123                           
C1107,  0305                / AND   C1105                           
C1110,  0314                / AND   C1114                           
C1111,  0305                / AND   C1105                           
    AND   C1103             /                                       @@1112=0303
C1113,  0324                / AND   C1124                           
C1114,  0215                / AND   C1015                           
C1115,  0212                / AND   C1012                           
C1116,  0377                / AND   C1177                           
C1117,  0320                / AND   C1120                           
C1120,  0301                / AND   C1101                           
    AND   C1122             /                                       @@1121=0322
C1122,  0311                / AND   C1111                           
    AND   C1124             /                                       @@1123=0324
C1124,  0331                / AND   C1131                           
C1125,  0215                / AND   C1015                           
    AND   C1012             /                                       @@1126=0212
C1127,  0377                / AND   C1177                           
C1130,  0324                / AND   C1124                           
C1131,  0311                / AND   C1111                           
C1132,  0315                / AND   C1115                           
    AND   C1111             /                                       @@1133=0311
    AND   C1116             /                                       @@1134=0316
    AND   C1107             /                                       @@1135=0307
    AND   C1015             /                                       @@1136=0215
    AND   C1012             /                                       @@1137=0212
    AND   C1177             /                                       @@1140=0377
    AND   C1015             /                                       @@1141=0215
    AND   C1012             /                                       @@1142=0212
    AND   C1115             /                                       @@1143=0315
    AND   C1105             /                                       @@1144=0305
    AND   C1115             /                                       @@1145=0315
    AND   C1117             /                                       @@1146=0317
    AND   C1122             /                                       @@1147=0322
    AND   C1131             /                                       @@1150=0331
    AND   C1040             /                                       @@1151=0240
    AND   C1106             /                                       @@1152=0306
    AND   C1111             /                                       @@1153=0311
    AND   C1105             /                                       @@1154=0305
    AND   C1114             /                                       @@1155=0314
    AND   C1104             /                                       @@1156=0304
    AND   C1040             /                                       @@1157=0240
    AND   C1105             /                                       @@1160=0305
    AND   C1122             /                                       @@1161=0322
    AND   C1122             /                                       @@1162=0322
    AND   C1117             /                                       @@1163=0317
    AND   C1122             /                                       @@1164=0322
    AND   C1015             /                                       @@1165=0215
    AND   C1012             /                                       @@1166=0212
    AND   C1122             /                                       @@1167=0322
    AND   C1111             /                                       @@1170=0311
    AND   C1107             /                                       @@1171=0307
    AND   C1110             /                                       @@1172=0310
    AND   C1124             /                                       @@1173=0324
    AND   C1040             /                                       @@1174=0240
    AND   C1127             /                                       @@1175=0327
    AND   C1122             /                                       @@1176=0322
C1177,  0317                / AND   C1117                           
C1200,  0316                / AND   C1316                           
C1201,  0307                / AND   C1307                           
    AND   C1215             /                                       @@1202=0215
    AND   C1212             /                                       @@1203=0212
C1204,  0377                / AND   C1377                           
    AND   C1215             /                                       @@1205=0215
    AND   C1212             /                                       @@1206=0212
C1207,  0304                / AND   C1304                           
C1210,  0301                / AND   C1301                           
C1211,  0324                / AND   C1324                           
C1212,  0301                / AND   C1301                           
    AND   C1240             /                                       @@1213=0240
C1214,  0305                / AND   C1305                           
C1215,  0322                / AND   C1322                           
C1216,  0322                / AND   C1322                           
C1217,  0317                / AND   C1317                           
C1220,  0322                / AND   C1322                           
    AND   C1215             /                                       @@1221=0215
    AND   C1212             /                                       @@1222=0212
C1223,  0306                / AND   C1306                           
C1224,  0311                / AND   C1311                           
C1225,  0305                / AND   C1305                           
C1226,  0314                / AND   C1314                           
C1227,  0304                / AND   C1304                           
    AND   C1240             /                                       @@1230=0240
C1231,  0377                / AND   C1377                           
    AND   C1215             /                                       @@1232=0215
    AND   C1212             /                                       @@1233=0212
C1234,  0306                / AND   C1306                           
C1235,  0311                / AND   C1311                           
C1236,  0322                / AND   C1322                           
C1237,  0323                / AND   C1323                           
C1240,  0324                / AND   C1324                           
    AND   C1240             /                                       @@1241=0240
C1242,  0302                / AND   C1302                           
C1243,  0314                / AND   C1314                           
C1244,  0317                / AND   C1317                           
C1245,  0303                / AND   C1303                           
C1246,  0313                / AND   C1313                           
    AND   C1240             /                                       @@1247=0240
C1250,  0377                / AND   C1377                           
    AND   C1215             /                                       @@1251=0215
    AND   C1212             /                                       @@1252=0212
C1253,  0314                / AND   C1314                           
C1254,  0317                / AND   C1317                           
C1255,  0303                / AND   C1303                           
C1256,  0256                / AND   C1256                           
    AND   C1240             /                                       @@1257=0240
C1260,  0304                / AND   C1304                           
C1261,  0301                / AND   C1301                           
C1262,  0324                / AND   C1324                           
C1263,  0301                / AND   C1301                           
    AND   C1215             /                                       @@1264=0215
    AND   C1212             /                                       @@1265=0212
C1266,  0377                / AND   C1377                           

$
