github.com/simh.simh
1
0
Fork 0
mirror of https://github.com/simh/simh.git synced 2026-04-25 19:51:25 +00:00
Code Releases Activity
Files
6d11ae4e6dc64263f38aeef869da0e4ece95fe10
simh.simh/PDP8/tests/diags/maindec-8e-d0cc-pb.pal
B. Scott Michel 89a9414aeb PDP8: Add initial round of PDP-8 system diags
2020-01-01 16:03:54 -08:00

3019 lines
194 KiB
Plaintext
Raw Blame History

TITLE "AUTOMATIC DISASSEMBLY OF maindec-8e-d0cc-pb.bin BY D8TAPE"
////////////////////////////////////////////////////////////////////////////////
/
/ Automatic Disassembly of maindec-8e-d0cc-pb.bin
/ Generated 2010 02 19 00:10:29
/ 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
/
/ 4463 locations used, 3740 code and 0523 data
////////////////////////////////////////////////////////////////////////////////
*0200
*7775
AND L0000 / @@7775=0000
L7776,
D7776, 0000 / AND L0000
L7777,
D7777, 0000 / AND L0000
*0000
L0000,
D0000, 0000 / AND L0000
L0001,
D0001, 5001 / JMP L0001
////////////////////////////////////////////////////////////////////////////////
/
/ SUBROUTINE: S0002
/
/ Called from:
/ 5326 5555 5774
/ Total 0003 (3) calls
////////////////////////////////////////////////////////////////////////////////
S0002,
0 / return area
L0003,
D0003, 0003 / AND L0003
////////////////////////////////////////////////////////////////////////////////
/
/ SUBROUTINE: S0004
/
/ Called from:
/ 5746
/ Total 0001 (1) calls
////////////////////////////////////////////////////////////////////////////////
S0004,
0 / return area
*0010
AI0, 0000 / AUTO-INDEX REGISTER AND L0000
AI1, 0000 / AUTO-INDEX REGISTER AND L0000
AI2, 0000 / AUTO-INDEX REGISTER AND L0000
*0020
D0020, 0000 / AND L0000
AND C0022 / @@0021=0022
C0022, 7777 / CLA MQA SCA MQL LSR +
D0023, 0000 / AND L0000
D0024, 0000 / AND L0000
D0025, 0000 / AND L0000
L0026,
D0026, 0000 / AND L0000
D0027, 0000 / AND L0000
D0030, 0000 / AND L0000
D0031, 0000 / AND L0000
D0032, 0000 / AND L0000
D0033, 0000 / AND L0000
D0034, 0000 / AND L0000
D0035, 0000 / AND L0000
D0036, 0000 / AND L0000
D0037, 0000 / AND L0000
D0040, 0000 / AND L0000
L0041,
D0041, 0037 / AND D0037
AND L0000 / @@0042=0000
D0043, 0000 / AND L0000
D0044, 0000 / AND L0000
D0045, 0000 / AND L0000
D0046, 1600 / TAD I L0000
C0047,
C0047, 1652 / TAD I C0052
C0050, 1133 / TAD C0133
C0051,
C0051, 1200 / TAD L0000
C0052, 0756 / AND I L0156
C0053, 1157 / TAD C0157
C0054, 1140 / TAD D0140
C0055, 1657 / TAD I C0057
C0056,
C0056, 1000 / TAD L0000
C0057,
C0057, 1031 / TAD D0031
C0060,
C0060, 0504 / AND I C0104
C0061,
C0061, 0523 / AND I C0123
C0062,
C0062, 3000 / DCA L0000
C0063,
C0063, 3730 / DCA I C0130
C0064,
C0064, 3017 / DCA AI7
C0065,
C0065, 3037 / DCA D0037
C0066,
C0066, 3027 / DCA D0027
C0067,
C0067, 3046 / DCA D0046
D0070, 7775 / CLA MQA SCA MQL ASR +
C0071,
C0071, 7776 / SPA SNA SZL CLA OSR HLT
C0072,
C0072, 7777 / CLA MQA SCA MQL LSR +
C0073,
C0073, 3512 / DCA I C0112
C0074,
C0074, 0410 / AND I AI0
C0075,
C0075, 0552 / AND I C0152
D0076, 0240 / AND D0040
C0077, 0260 / AND C0060
L0100,
C0100, 0261 / AND C0061
L0101,
C0101, 6000 / 6000
C0102, 0102 / AND C0102
C0103, 4000 / JMS L0000
C0104, 2000 / ISZ L0000
C0105, 1000 / TAD L0000
C0106, 0400 / AND I L0000
C0107, 0200 / AND L0000
AND L0100 / @@0110=0100
C0111, 0040 / AND D0040
C0112, 0020 / AND D0020
C0113, 0010 / AND AI0
C0114, 0004 / AND S0004
L0115,
C0115, 0002 / AND S0002
C0116, 0001 / AND L0001
AND L0000 / @@0117=0000
JMS L0000 / @@0120=4000
AND L0001 / @@0121=0001
C0122, 2004 / ISZ S0004
C0123, 2043 / ISZ D0043
C0124, 2076 / ISZ D0076
C0125, 2200 / ISZ L0000
C0126, 2232 / ISZ D0032
C0127, 2270 / ISZ D0070
C0130, 2400 / ISZ I L0000
C0131, 2436 / ISZ I D0036
C0132, 2472 / ISZ I C0072
C0133, 2600 / ISZ I L0000
C0134, 2634 / ISZ I D0034
C0135, 2667 / ISZ I C0067
C0136, 1376 / TAD D0176
C0137, 7001 / IAC
D0140, 5404 / JMP I S0004
C0141, 5402 / JMP I S0002
C0142, 7070 / CMA CML RAR
C0143, 2376 / ISZ D0176
C0144, 2000 / ISZ L0000
C0145, 2410 / ISZ I AI0
C0146, 4000 / JMS L0000
C0147, 4776 / JMS I D0176
C0150, 4410 / JMS I AI0
C0151, 5403 / JMP I L0003
C0152, 5401 / JMP I L0001
C0153, 4377 / JMS L0177
D0154, 2004 / ISZ S0004
C0155, 5301 / JMP L0101
L0156,
C0156, 6007 / 6007
C0157, 7604 / LAS
AND C0106 / @@0160=0106
SNA CLA / @@0161=7650
JMP L0177 / @@0162=5177
STA / AC = 7777 (-0001) @@0163=7240
AND C0170 / @@0164=0170
C0165,
C0165, 3024 / DCA D0024
JMP I C0167 / long jump to L0202 @@0166=5567
C0167,
C0167, 0202 / AND S0002
C0170, 0000 / AND L0000
C0171, 0000 / AND L0000
C0172, 0007 / AND C0007
C0173, 0070 / AND D0070
D0174, 0000 / AND L0000
D0175, 0000 / AND L0000
D0176, 0000 / AND L0000
*0177
L0177,
SKP / @@0177=7410
*0200
L0200,
JMP L0156 / @@0200=5156
DCA D0024 / @@0201=3024
L0202,
DCA D0023 / @@0202=3023
DCA D0035 / @@0203=3035
L0204,
CLA CLL CMA / AC = 7777 (-0001) @@0204=7340
AND D0023 / @@0205=0023
MQL / @@0206=7421
CMA / @@0207=7040
AND D0024 / @@0210=0024
MQA / @@0211=7501
DCA D0027 / @@0212=3027
MQA / @@0213=7501
CMA / @@0214=7040
AND D0024 / @@0215=0024
MQL / @@0216=7421
CMA / @@0217=7040
AND D0024 / @@0220=0024
CMA / @@0221=7040
AND D0023 / @@0222=0023
MQA / @@0223=7501
DCA D0025 / @@0224=3025
DCA L0026 / @@0225=3026
CMA / @@0226=7040
AND D0023 / @@0227=0023
AND D0024 / @@0230=0024
SNA / @@0231=7450
JMP L0274 / @@0232=5274
MQL / @@0233=7421
L0234,
MQA MQL / @@0234=7521
AND D0027 / @@0235=0027
SNA / @@0236=7450
JMP L0244 / @@0237=5244
CLL RAL / @@0240=7104
MQA MQL / @@0241=7521
MQA / @@0242=7501
JMP L0234 / @@0243=5234
L0244,
MQA / @@0244=7501
AND D0027 / @@0245=0027
AND C0103 / @@0246=0103
SNA / @@0247=7450
JMP L0253 / @@0250=5253
DCA L0026 / @@0251=3026
JMP L0260 / @@0252=5260
L0253,
CLL CML RAR / @@0253=7130
AND D0023 / @@0254=0023
AND D0024 / @@0255=0024
SZA / @@0256=7440
DCA L0026 / @@0257=3026
L0260,
MQA / @@0260=7501
DCA D0030 / @@0261=3030
MQA / @@0262=7501
CMA / @@0263=7040
AND D0025 / @@0264=0025
MQL / @@0265=7421
CMA / @@0266=7040
AND D0025 / @@0267=0025
CMA / @@0270=7040
AND D0030 / @@0271=0030
MQA / @@0272=7501
DCA D0025 / @@0273=3025
L0274,
CLA CLL CMA / AC = 7777 (-0001) @@0274=7340
AND D0023 / @@0275=0023
TAD D0024 / @@0276=1024
NOP / @@0277=7000
DCA D0031 / @@0300=3031
RAR / @@0301=7010
DCA D0032 / @@0302=3032
CMA / @@0303=7040
AND D0024 / @@0304=0024
TAD D0023 / @@0305=1023
NOP / @@0306=7000
DCA D0033 / @@0307=3033
RAR / @@0310=7010
DCA D0034 / @@0311=3034
NOP / @@0312=7000
CLA CLL CMA / AC = 7777 (-0001) @@0313=7340
AND D0031 / @@0314=0031
CMA / @@0315=7040
AND D0033 / @@0316=0033
SZA / @@0317=7440
JMP L0377 / @@0320=5377
CMA / @@0321=7040
AND D0033 / @@0322=0033
CMA / @@0323=7040
AND D0031 / @@0324=0031
SZA / @@0325=7440
JMP L0377 / @@0326=5377
CLA CLL CMA / AC = 7777 (-0001) @@0327=7340
AND D0031 / @@0330=0031
CMA / @@0331=7040
AND D0025 / @@0332=0025
SZA / @@0333=7440
JMP L0377 / @@0334=5377
CMA / @@0335=7040
AND D0025 / @@0336=0025
CMA / @@0337=7040
AND D0031 / @@0340=0031
SZA / @@0341=7440
JMP L0377 / @@0342=5377
CLA CLL CMA / AC = 7777 (-0001) @@0343=7340
AND D0032 / @@0344=0032
RAL / @@0345=7004
STA / AC = 7777 (-0001) @@0346=7240
AND D0034 / @@0347=0034
SZA CLA / @@0350=7640
CML / @@0351=7020
SZL / @@0352=7430
JMP L0377 / @@0353=5377
CLA CLL CMA / AC = 7777 (-0001) @@0354=7340
AND D0032 / @@0355=0032
RAL / @@0356=7004
STA / AC = 7777 (-0001) @@0357=7240
AND L0026 / @@0360=0026
SZA CLA / @@0361=7640
CML / @@0362=7020
SZL / @@0363=7430
JMP L0377 / @@0364=5377
JMP I C0074 / long jump to L0410 @@0365=5474
L0366,
ISZ D0023 / @@0366=2023
JMP L0204 / @@0367=5204
ISZ D0024 / @@0370=2024
SKP / @@0371=7410
JMP I C0075 / long jump to L0552 @@0372=5475
STA / AC = 7777 (-0001) @@0373=7240
AND D0024 / @@0374=0024
DCA D0023 / @@0375=3023
JMP L0204 / @@0376=5204
*0377
L0377,
NOP / @@0377=7000
*0400
L0400,
LAS / @@0400=7604
AND C0104 / @@0401=0104
SNA CLA / @@0402=7650
JMS D0417 / @@0403=4217
L0404,
C0404, 7604 / LAS
AND C0103 / @@0405=0103
SNA CLA / @@0406=7650
JMS S0477 / @@0407=4277
L0410,
LAS / @@0410=7604
AND C0105 / @@0411=0105
SZA CLA / @@0412=7640
JMP I C0415 / long jump to L0274 @@0413=5615
JMP I C0416 / long jump to L0366 @@0414=5616
C0415,
C0415, 0274 / AND C0474
C0416,
C0416, 0366 / AND C0566
D0417, 0000 / AND L0000
CLA CLL CMA / AC = 7777 (-0001) @@0420=7340
AND D0035 / @@0421=0035
SNA CLA / @@0422=7650
JMS S0467 / @@0423=4267
CMA / @@0424=7040
AND D0023 / @@0425=0023
DCA D0037 / @@0426=3037
JMS S0523 / @@0427=4323
CMA / @@0430=7040
AND D0024 / @@0431=0024
DCA D0037 / @@0432=3037
JMS S0523 / @@0433=4323
CMA / @@0434=7040
AND L0026 / @@0435=0026
DCA D0040 / @@0436=3040
CMA / @@0437=7040
AND D0025 / @@0440=0025
DCA D0037 / @@0441=3037
JMS S0504 / @@0442=4304
JMS S0523 / @@0443=4323
CMA / @@0444=7040
AND D0032 / @@0445=0032
DCA D0040 / @@0446=3040
CMA / @@0447=7040
AND D0031 / @@0450=0031
DCA D0037 / @@0451=3037
JMS S0504 / @@0452=4304
JMS S0523 / @@0453=4323
CMA / @@0454=7040
AND D0034 / @@0455=0034
DCA D0040 / @@0456=3040
CMA / @@0457=7040
AND D0033 / @@0460=0033
DCA D0037 / @@0461=3037
JMS S0504 / @@0462=4304
JMS S0523 / @@0463=4323
JMS I D0046 / long call to S1600 @@0464=4446
JMP I L0542 / long jump to L7040 @@0465=5742
JMP L0404 / @@0466=5204
////////////////////////////////////////////////////////////////////////////////
/
/ SUBROUTINE: S0467
/
/ Called from:
/ 0423
/ Total 0001 (1) calls
////////////////////////////////////////////////////////////////////////////////
S0467,
0 / return area
JMS I D0046 / long call to S1600 @@0470=4446
C0471, 5417 / JMP I AI7
JMS I D0046 / long call to S1600 @@0472=4446
JMP L0177 / @@0473=5177
C0474, 7240 / STA
DCA D0035 / @@0475=3035
JMP I S0467 / return @@0476=5667
////////////////////////////////////////////////////////////////////////////////
/
/ SUBROUTINE: S0477
/
/ Called from:
/ 0407
/ Total 0001 (1) calls
////////////////////////////////////////////////////////////////////////////////
S0477,
0 / return area
STA / AC = 7777 (-0001) @@0500=7240
AND C0551 / @@0501=0351
HLT / @@0502=7402
JMP I S0477 / return @@0503=5677
////////////////////////////////////////////////////////////////////////////////
/
/ SUBROUTINE: S0504
/
/ Called from:
/ 0442 0452 0462 1104 1114 1124 3070 3476 5075
/ Total 0011 (9) calls
////////////////////////////////////////////////////////////////////////////////
S0504,
0 / return area
CLA CLL CMA / AC = 7777 (-0001) @@0505=7340
AND D0040 / @@0506=0040
D0507, 7640 / SZA CLA
JMP L0520 / @@0510=5320
CMA / @@0511=7040
AND C0077 / @@0512=0077
L0513,
JMS I C0047 / long call to S1652 @@0513=4447
CMA / @@0514=7040
AND D0076 / @@0515=0076
JMS I C0047 / long call to S1652 @@0516=4447
JMP I S0504 / return @@0517=5704
L0520,
CMA / @@0520=7040
C0521,
C0521, 0100 / AND L0100
JMP L0513 / @@0522=5313
////////////////////////////////////////////////////////////////////////////////
/
/ SUBROUTINE: S0523
/
/ Called from:
/ 0427 0433 0443 0453 0463 1105 1115 1125 3071 3463 3467 3477 4014 4020 4030
/ 5076 5106
/ Total 0021 (17) calls
////////////////////////////////////////////////////////////////////////////////
S0523,
0 / return area
CLA CLL CMA / AC = 7777 (-0001) @@0524=7340
AND C0102 / @@0525=0102
DCA AI1 / AUTO INDEX REGISTER @@0526=3011
L0527,
CMA / @@0527=7040
AND I AI1 / AUTO INDEX REGISTER @@0530=0411
SNA / @@0531=7450
JMP L0545 / @@0532=5345
AND D0037 / @@0533=0037
SZA CLA / @@0534=7640
JMP L0542 / @@0535=5342
CMA / @@0536=7040
AND C0077 / @@0537=0077
L0540,
JMS I C0047 / long call to S1652 @@0540=4447
JMP L0527 / @@0541=5327
L0542,
C0542,
C0542, 7040 / CMA
AND L0100 / @@0543=0100
JMP L0540 / @@0544=5340
L0545,
CMA / @@0545=7040
AND D0076 / @@0546=0076
JMS I C0047 / long call to S1652 @@0547=4447
JMP I S0523 / return @@0550=5723
C0551, 0204 / AND L0404
L0552,
LAS / @@0552=7604
AND L0115 / @@0553=0115
SNA CLA / @@0554=7650
JMP L0570 / @@0555=5370
L0556,
LAS / @@0556=7604
AND C0114 / @@0557=0114
SZA CLA / @@0560=7640
HLT / @@0561=7402
LAS / @@0562=7604
AND C0116 / @@0563=0116
SNA CLA / @@0564=7650
JMP L0577 / @@0565=5377
C0566, 5767 / JMP I C0567
AND L0404 / @@0567=0204
L0570,
JMS I D0046 / long call to S1600 @@0570=4446
JMP I C0521 / long jump to L0100 @@0571=5721
JMP L0556 / @@0572=5356
*0577
L0577,
NOP / @@0577=7000
*0600
L0600,
C0600, 4752 / JMS I C0752
L0601,
CLA CLL CMA / AC = 7777 (-0001) @@0601=7340
AND C0052 / @@0602=0052
DCA AI2 / AUTO INDEX REGISTER @@0603=3012
JMS I C0051 / long call to S1200 @@0604=4451
L0605,
CLA CLL CMA / AC = 7777 (-0001) @@0605=7340
AND D0024 / @@0606=0024
SZA CLA / @@0607=7640
CML / @@0610=7020
CMA / @@0611=7040
AND D0023 / @@0612=0023
RAL / @@0613=7004
NOP / @@0614=7000
DCA D0031 / @@0615=3031
SZL / @@0616=7430
CMA / @@0617=7040
DCA D0033 / @@0620=3033
JMS I C0056 / long call to S1000 @@0621=4456
JMP L0605 / @@0622=5205
JMS I C0057 / long call to S1031 @@0623=4457
JMP L0601 / @@0624=5201
JMS I C0753 / long call to S1410 @@0625=4753
L0626,
CLA CLL CMA / AC = 7777 (-0001) @@0626=7340
AND C0102 / @@0627=0102
DCA AI2 / AUTO INDEX REGISTER @@0630=3012
JMS I C0051 / long call to S1200 @@0631=4451
L0632,
CLA CLL CMA / AC = 7777 (-0001) @@0632=7340
AND D0024 / @@0633=0024
SZA CLA / @@0634=7640
CML / @@0635=7020
C0636, 7040 / CMA
AND D0023 / @@0637=0023
RAR / @@0640=7010
NOP / @@0641=7000
DCA D0031 / @@0642=3031
SZL / @@0643=7430
CMA / @@0644=7040
DCA D0033 / @@0645=3033
JMS I C0056 / long call to S1000 @@0646=4456
JMP L0632 / @@0647=5232
JMS I C0057 / long call to S1031 @@0650=4457
JMP L0626 / @@0651=5226
JMS I C0754 / long call to S1420 @@0652=4754
L0653,
CLA CLL CMA / AC = 7777 (-0001) @@0653=7340
AND C0053 / @@0654=0053
DCA AI2 / AUTO INDEX REGISTER @@0655=3012
JMS I C0051 / long call to S1200 @@0656=4451
L0657,
CLA CLL CMA / AC = 7777 (-0001) @@0657=7340
AND D0024 / @@0660=0024
SZA CLA / @@0661=7640
CML / @@0662=7020
CMA / @@0663=7040
AND D0023 / @@0664=0023
RTL / @@0665=7006
NOP / @@0666=7000
DCA D0031 / @@0667=3031
SZL / @@0670=7430
CMA / @@0671=7040
DCA D0033 / @@0672=3033
JMS I C0056 / long call to S1000 @@0673=4456
JMP L0657 / @@0674=5257
JMS I C0057 / long call to S1031 @@0675=4457
JMP L0653 / @@0676=5253
JMS I C0755 / long call to S1430 @@0677=4755
L0700,
CLA CLL CMA / AC = 7777 (-0001) @@0700=7340
AND C0054 / @@0701=0054
DCA AI2 / AUTO INDEX REGISTER @@0702=3012
JMS I C0051 / long call to S1200 @@0703=4451
L0704,
CLA CLL CMA / AC = 7777 (-0001) @@0704=7340
AND D0024 / @@0705=0024
SZA CLA / @@0706=7640
CML / @@0707=7020
CMA / @@0710=7040
AND D0023 / @@0711=0023
RTR / @@0712=7012
NOP / @@0713=7000
DCA D0031 / @@0714=3031
SZL / @@0715=7430
CMA / @@0716=7040
DCA D0033 / @@0717=3033
JMS I C0056 / long call to S1000 @@0720=4456
JMP L0704 / @@0721=5304
JMS I C0057 / long call to S1031 @@0722=4457
C0723, 5300 / JMP L0700
JMS I C0756 / long call to S1440 @@0724=4756
L0725,
CLA CLL CMA / AC = 7777 (-0001) @@0725=7340
AND C0055 / @@0726=0055
DCA AI2 / AUTO INDEX REGISTER @@0727=3012
JMS I C0776 / long call to S1236 @@0730=4776
L0731,
CLA CLL CMA / AC = 7777 (-0001) @@0731=7340
AND D0024 / @@0732=0024
SZA CLA / @@0733=7640
CML / @@0734=7020
CMA / @@0735=7040
AND D0023 / @@0736=0023
BSW / @@0737=7002
NOP / @@0740=7000
DCA D0031 / @@0741=3031
SZL / @@0742=7430
CMA / @@0743=7040
DCA D0033 / @@0744=3033
JMS I C0056 / long call to S1000 @@0745=4456
JMP L0731 / @@0746=5331
JMS I C0057 / long call to S1031 @@0747=4457
JMP L0725 / @@0750=5325
JMP I C0777 / long jump to L1323 @@0751=5777
TAD I L0000 / @@0752=1400
C0753,
C0753, 1410 / TAD I AI0
C0754,
C0754, 1420 / TAD I D0020
C0755,
C0755, 1430 / TAD I D0030
C0756,
C0756, 1440 / TAD I D0040
AND L0001 / @@0757=0001
AND S0002 / @@0760=0002
AND S0004 / @@0761=0004
AND AI0 / AUTO INDEX REGISTER @@0762=0010
AND D0020 / @@0763=0020
AND D0040 / @@0764=0040
AND L0100 / @@0765=0100
AND L0600 / @@0766=0200
AND I L0000 / @@0767=0400
TAD L0000 / @@0770=1000
ISZ L0000 / @@0771=2000
JMS L0000 / @@0772=4000
AND L0000 / @@0773=0000
AND L0001 / @@0774=0001
JMS L0000 / @@0775=4000
C0776,
C0776, 1236 / TAD C0636
C0777,
C0777, 1323 / TAD C0723
*1000
////////////////////////////////////////////////////////////////////////////////
/
/ SUBROUTINE: S1000
/
/ Called from:
/ 0621 0646 0673 0720 0745
/ Total 0005 (5) calls
////////////////////////////////////////////////////////////////////////////////
S1000,
0 / return area
CLA CLL CMA / AC = 7777 (-0001) @@1001=7340
AND D0025 / @@1002=0025
CMA / @@1003=7040
AND D0031 / @@1004=0031
SZA / @@1005=7440
JMP L1026 / @@1006=5226
CMA / @@1007=7040
AND D0031 / @@1010=0031
CMA / @@1011=7040
AND D0025 / @@1012=0025
SZA / @@1013=7440
JMP L1026 / @@1014=5226
CLA CLL CMA / AC = 7777 (-0001) @@1015=7340
AND L0026 / @@1016=0026
SZA CLA / @@1017=7640
CML / @@1020=7020
CMA / @@1021=7040
AND D0033 / @@1022=0033
SZA / @@1023=7440
CML / @@1024=7020
SZL / @@1025=7430
L1026,
JMP L1046 / @@1026=5246
L1027,
ISZ S1000 / @@1027=2200
L1030,
JMP I S1000 / return @@1030=5600
////////////////////////////////////////////////////////////////////////////////
/
/ SUBROUTINE: S1031
/
/ Called from:
/ 0623 0650 0675 0722 0747
/ Total 0005 (5) calls
////////////////////////////////////////////////////////////////////////////////
S1031,
0 / return area
CLA CLL CMA / AC = 7777 (-0001) @@1032=7340
AND D0024 / @@1033=0024
SZA CLA / @@1034=7640
JMP L1044 / @@1035=5244
CMA / @@1036=7040
DCA D0024 / @@1037=3024
ISZ D0023 / @@1040=2023
JMP I S1031 / return @@1041=5631
ISZ S1031 / @@1042=2231
JMP I S1031 / return @@1043=5631
L1044,
DCA D0024 / @@1044=3024
JMP I S1031 / return @@1045=5631
L1046,
LAS / @@1046=7604
AND C0104 / @@1047=0104
SNA CLA / @@1050=7650
JMS S1071 / @@1051=4271
LAS / @@1052=7604
AND C0103 / @@1053=0103
SNA CLA / @@1054=7650
JMP L1063 / @@1055=5263
L1056,
LAS / @@1056=7604
AND C0105 / @@1057=0105
SNA CLA / @@1060=7650
JMP L1027 / @@1061=5227
JMP L1030 / @@1062=5230
L1063,
CLA CLL CMA / AC = 7777 (-0001) @@1063=7340
AND I C0051 / @@1064=0451
TAD C1070 / @@1065=1270
HLT / @@1066=7402
JMP L1056 / @@1067=5256
C1070, 7774 / SPA SNA SZL CLA OSR
////////////////////////////////////////////////////////////////////////////////
/
/ SUBROUTINE: S1071
/
/ Called from:
/ 1051
/ Total 0001 (1) calls
////////////////////////////////////////////////////////////////////////////////
S1071,
0 / return area
CLA CLL CMA / AC = 7777 (-0001) @@1072=7340
AND D0035 / @@1073=0035
SNA CLA / @@1074=7650
JMS S1131 / @@1075=4331
CMA / @@1076=7040
L1077,
AND D0023 / @@1077=0023
DCA D0037 / @@1100=3037
CMA / @@1101=7040
AND D0024 / @@1102=0024
DCA D0040 / @@1103=3040
JMS I C0060 / long call to S0504 @@1104=4460
JMS I C0061 / long call to S0523 @@1105=4461
CMA / @@1106=7040
AND D0025 / @@1107=0025
DCA D0037 / @@1110=3037
CMA / @@1111=7040
AND L0026 / @@1112=0026
DCA D0040 / @@1113=3040
JMS I C0060 / long call to S0504 @@1114=4460
JMS I C0061 / long call to S0523 @@1115=4461
CMA / @@1116=7040
AND D0031 / @@1117=0031
DCA D0037 / @@1120=3037
CMA / @@1121=7040
AND D0033 / @@1122=0033
DCA D0040 / @@1123=3040
JMS I C0060 / long call to S0504 @@1124=4460
JMS I C0061 / long call to S0523 @@1125=4461
JMS I D0046 / long call to S1600 @@1126=4446
JMP I C1142 / long jump to L0400 @@1127=5742
JMP I S1071 / return @@1130=5671
////////////////////////////////////////////////////////////////////////////////
/
/ SUBROUTINE: S1131
/
/ Called from:
/ 1075
/ Total 0001 (1) calls
////////////////////////////////////////////////////////////////////////////////
S1131,
0 / return area
JMS I D0046 / long call to S1600 @@1132=4446
D1133, 0000 / AND L0000
JMS I D0046 / long call to S1600 @@1134=4446
JMP L1044 / @@1135=5244
STA / AC = 7777 (-0001) @@1136=7240
DCA D0035 / @@1137=3035
JMP I S1131 / return @@1140=5731
ISZ L0000 / @@1141=2000
C1142,
C1142, 0400 / AND I L0000
AND L0100 / @@1143=0100
AND D0020 / @@1144=0020
AND S0004 / @@1145=0004
AND L0001 / @@1146=0001
JMS L0000 / @@1147=4000
TAD L0000 / @@1150=1000
AND S1000 / @@1151=0200
AND D0040 / @@1152=0040
AND AI0 / AUTO INDEX REGISTER @@1153=0010
AND S0002 / @@1154=0002
AND L0000 / @@1155=0000
ISZ L0000 / @@1156=2000
AND S0002 / @@1157=0002
AND S0002 / @@1160=0002
AND AI0 / AUTO INDEX REGISTER @@1161=0010
AND D0040 / @@1162=0040
AND S1000 / @@1163=0200
TAD L0000 / @@1164=1000
JMS L0000 / @@1165=4000
AND L0001 / @@1166=0001
AND S0004 / @@1167=0004
AND D0020 / @@1170=0020
AND L0100 / @@1171=0100
AND I L0000 / @@1172=0400
ISZ L0000 / @@1173=2000
AND L0000 / @@1174=0000
AND S0002 / @@1175=0002
ISZ L0000 / @@1176=2000
*1200
////////////////////////////////////////////////////////////////////////////////
/
/ SUBROUTINE: S1200
/
/ Called from:
/ 0604 0631 0656 0703
/ Total 0004 (4) calls
////////////////////////////////////////////////////////////////////////////////
S1200,
0 / return area
CLA CLL / AC = 0000 @@1201=7300
DCA D0025 / @@1202=3025
DCA L0026 / @@1203=3026
CMA / @@1204=7040
AND I AI2 / AUTO INDEX REGISTER @@1205=0412
DCA D0037 / @@1206=3037
L1207,
CMA / @@1207=7040
AND I AI2 / AUTO INDEX REGISTER @@1210=0412
SNA / @@1211=7450
JMP L1303 / @@1212=5303
DCA D0040 / @@1213=3040
CMA / @@1214=7040
AND D0023 / @@1215=0023
AND D0037 / @@1216=0037
SZA / @@1217=7440
JMS S1225 / @@1220=4225
CMA / @@1221=7040
AND D0040 / @@1222=0040
DCA D0037 / @@1223=3037
JMP L1207 / @@1224=5207
////////////////////////////////////////////////////////////////////////////////
/
/ SUBROUTINE: S1225
/
/ Called from:
/ 1220 1260 1275 1312
/ Total 0004 (4) calls
////////////////////////////////////////////////////////////////////////////////
S1225,
0 / return area
STA / AC = 7777 (-0001) @@1226=7240
AND D0040 / @@1227=0040
MQL / @@1230=7421
CMA / @@1231=7040
AND D0025 / @@1232=0025
MQA / @@1233=7501
DCA D0025 / @@1234=3025
JMP I S1225 / return @@1235=5625
////////////////////////////////////////////////////////////////////////////////
/
/ SUBROUTINE: S1236
/
/ Called from:
/ 0730
/ Total 0001 (1) calls
////////////////////////////////////////////////////////////////////////////////
S1236,
0 / return area
CLA CLL CMA / AC = 7777 (-0001) @@1237=7340
AND S1236 / @@1240=0236
DCA I C0051 / @@1241=3451
DCA D0025 / @@1242=3025
DCA L0026 / @@1243=3026
L1244,
CMA / @@1244=7040
AND I AI2 / AUTO INDEX REGISTER @@1245=0412
SNA / @@1246=7450
JMP L1277 / @@1247=5277
DCA D0037 / @@1250=3037
CMA / @@1251=7040
AND I AI2 / AUTO INDEX REGISTER @@1252=0412
DCA D0040 / @@1253=3040
CMA / @@1254=7040
AND D0023 / @@1255=0023
AND D0037 / @@1256=0037
SZA / @@1257=7440
JMS S1225 / @@1260=4225
CMA / @@1261=7040
AND D0037 / @@1262=0037
MQL / @@1263=7421
CMA / @@1264=7040
AND D0040 / @@1265=0040
DCA D0037 / @@1266=3037
MQA / @@1267=7501
DCA D0040 / @@1270=3040
CMA / @@1271=7040
AND D0023 / @@1272=0023
AND D0037 / @@1273=0037
SZA / @@1274=7440
JMS S1225 / @@1275=4225
JMP L1244 / @@1276=5244
L1277,
CLA CLL CMA / AC = 7777 (-0001) @@1277=7340
AND D0024 / @@1300=0024
DCA L0026 / @@1301=3026
JMP I S1236 / return @@1302=5636
L1303,
CLA CLL CMA / AC = 7777 (-0001) @@1303=7340
AND I AI2 / AUTO INDEX REGISTER @@1304=0412
DCA D0040 / @@1305=3040
CMA / @@1306=7040
AND C0116 / @@1307=0116
AND D0024 / @@1310=0024
SZA / @@1311=7440
JMS S1225 / @@1312=4225
CMA / @@1313=7040
AND I AI2 / AUTO INDEX REGISTER @@1314=0412
AND D0023 / @@1315=0023
SZA / @@1316=7440
STA / AC = 7777 (-0001) @@1317=7240
AND C0116 / @@1320=0116
DCA L0026 / @@1321=3026
JMP I S1200 / return @@1322=5600
L1323,
LAS / @@1323=7604
AND L0115 / @@1324=0115
C1325,
C1325, 7650 / SNA CLA
JMP L1342 / @@1326=5342
L1327,
LAS / @@1327=7604
AND C0114 / @@1330=0114
SZA CLA / @@1331=7640
HLT / @@1332=7402
LAS / @@1333=7604
AND C0116 / @@1334=0116
SNA CLA / @@1335=7650
JMP I C1340 / long jump to L2000 @@1336=5740
JMP I C1341 / long jump to L0600 @@1337=5741
C1340,
C1340, 2000 / ISZ L0000
C1341,
C1341, 0600 / AND I S1200
L1342,
JMS I D0046 / long call to S1600 @@1342=4446
JMP I C1325 / long jump to L7650 @@1343=5725
JMP L1327 / @@1344=5327
*1400
C1400,
C1400, 0000 / AND L0000
CLA CLL CMA / AC = 7777 (-0001) @@1401=7340
AND C1450 / @@1402=0250
DCA I C0050 / @@1403=3450
DCA D0035 / @@1404=3035
DCA D0024 / @@1405=3024
DCA D0023 / @@1406=3023
JMP I C1400 / long jump to L0000 @@1407=5600
////////////////////////////////////////////////////////////////////////////////
/
/ SUBROUTINE: S1410
/
/ Called from:
/ 0625
/ Total 0001 (1) calls
////////////////////////////////////////////////////////////////////////////////
S1410,
0 / return area
CLA CLL CMA / AC = 7777 (-0001) @@1411=7340
AND C1451 / @@1412=0251
DCA I C0050 / @@1413=3450
DCA D0035 / @@1414=3035
DCA D0024 / @@1415=3024
DCA D0023 / @@1416=3023
JMP I S1410 / return @@1417=5610
////////////////////////////////////////////////////////////////////////////////
/
/ SUBROUTINE: S1420
/
/ Called from:
/ 0652
/ Total 0001 (1) calls
////////////////////////////////////////////////////////////////////////////////
S1420,
0 / return area
CLA CLL CMA / AC = 7777 (-0001) @@1421=7340
AND C1452 / @@1422=0252
DCA I C0050 / @@1423=3450
DCA D0035 / @@1424=3035
DCA D0024 / @@1425=3024
DCA D0023 / @@1426=3023
JMP I S1420 / return @@1427=5620
////////////////////////////////////////////////////////////////////////////////
/
/ SUBROUTINE: S1430
/
/ Called from:
/ 0677
/ Total 0001 (1) calls
////////////////////////////////////////////////////////////////////////////////
S1430,
0 / return area
CLA CLL CMA / AC = 7777 (-0001) @@1431=7340
AND C1453 / @@1432=0253
DCA I C0050 / @@1433=3450
DCA D0035 / @@1434=3035
DCA D0024 / @@1435=3024
DCA D0023 / @@1436=3023
JMP I S1430 / return @@1437=5630
////////////////////////////////////////////////////////////////////////////////
/
/ SUBROUTINE: S1440
/
/ Called from:
/ 0724
/ Total 0001 (1) calls
////////////////////////////////////////////////////////////////////////////////
S1440,
0 / return area
CLA CLL CMA / AC = 7777 (-0001) @@1441=7340
AND C1454 / @@1442=0254
DCA I C0050 / @@1443=3450
DCA D0035 / @@1444=3035
DCA D0024 / @@1445=3024
DCA D0023 / @@1446=3023
JMP I S1440 / return @@1447=5640
C1450, 5440 / JMP I D0040
C1451, 5461 / JMP I C0061
C1452, 5502 / JMP I C0102
C1453, 5523 / JMP I C0123
C1454, 5544 / JMP I C0144
*1600
D1600, 0000 / AND L0000
CLA CLL / AC = 0000 @@1601=7300
TAD I D1600 / @@1602=1600
DCA AI1 / AUTO INDEX REGISTER @@1603=3011
ISZ D1600 / @@1604=2200
L1605,
TAD I AI1 / AUTO INDEX REGISTER @@1605=1411
DCA D0036 / @@1606=3036
TAD D0036 / @@1607=1036
RTR / @@1610=7012
RTR / @@1611=7012
RTR / @@1612=7012
JMS S1617 / @@1613=4217
TAD D0036 / @@1614=1036
JMS S1617 / @@1615=4217
JMP L1605 / @@1616=5205
////////////////////////////////////////////////////////////////////////////////
/
/ SUBROUTINE: S1617
/
/ Called from:
/ 1613 1615
/ Total 0002 (2) calls
////////////////////////////////////////////////////////////////////////////////
S1617,
0 / return area
AND C1645 / @@1620=0245
SNA / @@1621=7450
JMP I D1600 / long jump to L0000 @@1622=5600
TAD C1646 / @@1623=1246
SPA / @@1624=7510
JMP L1630 / @@1625=5230
TAD D0076 / @@1626=1076
JMP L1643 / @@1627=5243
L1630,
IAC / @@1630=7001
SZA / @@1631=7440
JMP L1635 / @@1632=5235
TAD C1651 / @@1633=1251
JMP L1643 / @@1634=5243
L1635,
IAC / @@1635=7001
SZA / @@1636=7440
JMP L1642 / @@1637=5242
TAD C1650 / @@1640=1250
JMP L1643 / @@1641=5243
L1642,
TAD C1647 / @@1642=1247
L1643,
JMS I C0047 / long call to S1652 @@1643=4447
JMP I S1617 / return @@1644=5617
C1645, 0077 / AND C0077
C1646, 7740 / SMA SZA CLA
C1647, 0336 / AND C1736
C1650, 0212 / AND C1612
C1651, 0215 / AND C1615
////////////////////////////////////////////////////////////////////////////////
/
/ SUBROUTINE: S1652
/
/ Called from:
/ 0513 0516 0540 0547 1643 4735 4744 4746 4756 4766
/ Total 0012 (10) calls
////////////////////////////////////////////////////////////////////////////////
S1652,
0 / return area
TLS / Load the TTO from the content of AC4 @@1653=6046
L1654,
TSF / Skip if teleprinter flag is a 1. @@1654=6041
JMP L1654 / @@1655=5254
CLA / @@1656=7200
JMP I S1652 / return @@1657=5652
AND L0001 / @@1660=0001
AND L0100 / @@1661=0100
AND S0002 / @@1662=0002
AND D1600 / @@1663=0200
AND S0004 / @@1664=0004
AND I L0000 / @@1665=0400
AND AI0 / AUTO INDEX REGISTER @@1666=0010
TAD L0000 / @@1667=1000
AND D0020 / @@1670=0020
ISZ L0000 / @@1671=2000
AND D0040 / @@1672=0040
JMS L0000 / @@1673=4000
AND L0000 / @@1674=0000
*2000
L2000,
C2000, 7300 / CLA CLL
TAD C0122 / @@2001=1122
DCA D0154 / @@2002=3154
DCA D0020 / @@2003=3020
C2004, 7300 / CLA CLL
CLA CLL / AC = 0000 @@2005=7300
DCA I C0071 / @@2006=3471
TAD C0136 / @@2007=1136
DCA I C0072 / @@2010=3472
TAD C2132 / @@2011=1332
DCA L0000 / @@2012=3000
TAD C0137 / @@2013=1137
DCA L0001 / @@2014=3001
TAD D0140 / @@2015=1140
DCA S0002 / @@2016=3002
STA / AC = 7777 (-0001) @@2017=7240
DCA L0003 / @@2020=3003
TAD C2127 / @@2021=1327
DCA S0004 / @@2022=3004
L2023,
CLA CLL / AC = 0000 @@2023=7300
JMP I C0072 / long jump to L7777 @@2024=5472
NOP / @@2025=7000
NOP / @@2026=7000
JMS I C0064 / long call to S3017 @@2027=4464
SZL / @@2030=7430
SZA / @@2031=7440
JMS I C0065 / long call to S3037 @@2032=4465
SKP / @@2033=7410
JMS I C0066 / long call to S3027 @@2034=4466
JMS I C0067 / long call to S3046 @@2035=4467
JMP L2023 / @@2036=5223
CLA / @@2037=7200
TAD C0123 / @@2040=1123
DCA D0154 / @@2041=3154
JMP I D0154 / long jump to L2004 @@2042=5554
C2043, 7300 / CLA CLL
CLA CLL CMA / AC = 7777 (-0001) @@2044=7340
DCA I C0071 / @@2045=3471
TAD C0136 / @@2046=1136
DCA I C0072 / @@2047=3472
TAD C0137 / @@2050=1137
DCA L0000 / @@2051=3000
TAD C0141 / @@2052=1141
DCA L0001 / @@2053=3001
TAD C2130 / @@2054=1330
DCA S0002 / @@2055=3002
L2056,
CLA CLL / AC = 0000 @@2056=7300
JMP I C0072 / long jump to L7777 @@2057=5472
NOP / @@2060=7000
NOP / @@2061=7000
JMS I C0064 / long call to S3017 @@2062=4464
SZL / @@2063=7430
SZA / @@2064=7440
JMS I C0065 / long call to S3037 @@2065=4465
SKP / @@2066=7410
JMS I C0066 / long call to S3027 @@2067=4466
JMS I C0067 / long call to S3046 @@2070=4467
JMP L2056 / @@2071=5256
CLA / @@2072=7200
TAD C0124 / @@2073=1124
DCA D0154 / @@2074=3154
JMP I D0154 / long jump to L2004 @@2075=5554
CLA CLL / AC = 0000 @@2076=7300
TAD C0137 / @@2077=1137
DCA I C0071 / @@2100=3471
TAD C2133 / @@2101=1333
DCA I C0072 / @@2102=3472
TAD C0152 / @@2103=1152
DCA L0000 / @@2104=3000
TAD C2131 / @@2105=1331
DCA L0001 / @@2106=3001
L2107,
CLA CLL / AC = 0000 @@2107=7300
JMP I C0071 / long jump to L7776 @@2110=5471
NOP / @@2111=7000
NOP / @@2112=7000
JMS I C0064 / long call to S3017 @@2113=4464
SZL / @@2114=7430
SZA / @@2115=7440
JMS I C0065 / long call to S3037 @@2116=4465
SKP / @@2117=7410
JMS I C0066 / long call to S3027 @@2120=4466
JMS I C0067 / long call to S3046 @@2121=4467
JMP L2107 / @@2122=5307
CLA / @@2123=7200
TAD C0125 / @@2124=1125
DCA D0154 / @@2125=3154
JMP I D0154 / long jump to L2004 @@2126=5554
C2127, 2025 / ISZ D0025
C2130, 2060 / ISZ C0060
C2131, 2111 / ISZ C0111
C2132, 1003 / TAD L0003
C2133, 1421 / TAD I C0021
*2200
CLA CLL / AC = 0000 @@2200=7300
CLA CLL CMA / AC = 7777 (-0001) @@2201=7340
DCA I C0071 / @@2202=3471
TAD C0136 / @@2203=1136
DCA I C0072 / @@2204=3472
TAD C0142 / @@2205=1142
DCA L0000 / @@2206=3000
TAD C0141 / @@2207=1141
DCA L0001 / @@2210=3001
TAD D2324 / @@2211=1324
DCA S0002 / @@2212=3002
L2213,
CLA CLL CMA / AC = 7777 (-0001) @@2213=7340
JMP I C0072 / long jump to L7777 @@2214=5472
NOP / @@2215=7000
NOP / @@2216=7000
JMS I C0064 / long call to S3017 @@2217=4464
SZL / @@2220=7430
SZA / @@2221=7440
JMS I C0065 / long call to S3037 @@2222=4465
SKP / @@2223=7410
JMS I C0066 / long call to S3027 @@2224=4466
JMS I C0067 / long call to S3046 @@2225=4467
JMP L2213 / @@2226=5213
TAD C0126 / @@2227=1126
DCA D0154 / @@2230=3154
JMP I D0154 / long jump to L2004 @@2231=5554
CLA CLL / AC = 0000 @@2232=7300
CLA CLL / AC = 0000 @@2233=7300
TAD C0143 / @@2234=1143
DCA I C0072 / @@2235=3472
TAD C0137 / @@2236=1137
DCA L0000 / @@2237=3000
TAD C0137 / @@2240=1137
DCA L0001 / @@2241=3001
TAD C0151 / @@2242=1151
DCA S0002 / @@2243=3002
TAD C2325 / @@2244=1325
DCA L0003 / @@2245=3003
L2246,
CLA CLL CMA / AC = 7777 (-0001) @@2246=7340
DCA I C0071 / @@2247=3471
CMA / @@2250=7040
JMP I C0072 / long jump to L7777 @@2251=5472
NOP / @@2252=7000
NOP / @@2253=7000
JMS I C0064 / long call to S3017 @@2254=4464
SZL / @@2255=7430
SZA / @@2256=7440
JMS I C0065 / long call to S3037 @@2257=4465
SKP / @@2260=7410
JMS I C0066 / long call to S3027 @@2261=4466
JMS I C0067 / long call to S3046 @@2262=4467
JMP L2246 / @@2263=5246
CLA / @@2264=7200
TAD C0127 / @@2265=1127
DCA D0154 / @@2266=3154
JMP I D0154 / long jump to L2004 @@2267=5554
CLA CLL / AC = 0000 @@2270=7300
CLA CLL / AC = 0000 @@2271=7300
TAD C0144 / @@2272=1144
DCA I C0072 / @@2273=3472
TAD C0137 / @@2274=1137
DCA L0001 / @@2275=3001
TAD C0151 / @@2276=1151
DCA S0002 / @@2277=3002
TAD C2326 / @@2300=1326
DCA L0003 / @@2301=3003
L2302,
CLA CLL CMA / AC = 7777 (-0001) @@2302=7340
DCA L0000 / @@2303=3000
STA / AC = 7777 (-0001) @@2304=7240
JMP I C0072 / long jump to L7777 @@2305=5472
NOP / @@2306=7000
NOP / @@2307=7000
JMS I C0064 / long call to S3017 @@2310=4464
SZL / @@2311=7430
SZA / @@2312=7440
JMS I C0065 / long call to S3037 @@2313=4465
SKP / @@2314=7410
JMS I C0066 / long call to S3027 @@2315=4466
JMS I C0067 / long call to S3046 @@2316=4467
JMP L2302 / @@2317=5302
CLA / @@2320=7200
TAD C0130 / @@2321=1130
DCA D0154 / @@2322=3154
JMP I D0154 / long jump to L2004 @@2323=5554
D2324, 2215 / ISZ C2215
C2325, 2252 / ISZ C2252
C2326, 2306 / ISZ C2306
*2400
D2400, 7300 / CLA CLL
CLA CLL / AC = 0000 @@2401=7300
TAD C0145 / @@2402=1145
DCA I C0072 / @@2403=3472
TAD C0137 / @@2404=1137
DCA L0001 / @@2405=3001
TAD C0151 / @@2406=1151
DCA S0002 / @@2407=3002
TAD C2526 / @@2410=1326
DCA L0003 / @@2411=3003
L2412,
CLA CLL CMA / AC = 7777 (-0001) @@2412=7340
DCA AI0 / AUTO INDEX REGISTER @@2413=3010
CMA / @@2414=7040
DCA L0000 / @@2415=3000
CMA / @@2416=7040
JMP I C0072 / long jump to L7777 @@2417=5472
NOP / @@2420=7000
NOP / @@2421=7000
JMS I C0064 / long call to S3017 @@2422=4464
SZL / @@2423=7430
SZA / @@2424=7440
C2425, 4465 / JMS I C0065
SKP / @@2426=7410
JMS I C0066 / long call to S3027 @@2427=4466
JMS I C0067 / long call to S3046 @@2430=4467
JMP L2412 / @@2431=5212
CLA / @@2432=7200
TAD C0131 / @@2433=1131
DCA D0154 / @@2434=3154
JMP I D0154 / long jump to L2004 @@2435=5554
CLA CLL / AC = 0000 @@2436=7300
CLA CLL / AC = 0000 @@2437=7300
TAD C0137 / @@2440=1137
DCA L0000 / @@2441=3000
TAD C0137 / @@2442=1137
DCA L0001 / @@2443=3001
TAD D0140 / @@2444=1140
DCA S0002 / @@2445=3002
TAD C2527 / @@2446=1327
DCA S0004 / @@2447=3004
L2450,
CLA CLL / AC = 0000 @@2450=7300
TAD C0146 / @@2451=1146
DCA I C0072 / @@2452=3472
STA / AC = 7777 (-0001) @@2453=7240
JMP I C0072 / long jump to L7777 @@2454=5472
NOP / @@2455=7000
NOP / @@2456=7000
SZL / @@2457=7430
SZA / @@2460=7440
JMS I C0065 / long call to S3037 @@2461=4465
SKP / @@2462=7410
JMS I C0066 / long call to S3027 @@2463=4466
JMS I C0067 / long call to S3046 @@2464=4467
JMP L2450 / @@2465=5250
CLA / @@2466=7200
TAD C0132 / @@2467=1132
DCA D0154 / @@2470=3154
JMP I D0154 / long jump to L2004 @@2471=5554
CLA CLL / AC = 0000 @@2472=7300
CLA CLL CMA / AC = 7777 (-0001) @@2473=7340
DCA I C0071 / @@2474=3471
TAD C0137 / @@2475=1137
DCA L0000 / @@2476=3000
TAD C0141 / @@2477=1141
DCA L0001 / @@2500=3001
TAD C2530 / @@2501=1330
DCA S0002 / @@2502=3002
L2503,
CLA CLL / AC = 0000 @@2503=7300
TAD C0147 / @@2504=1147
DCA I C0072 / @@2505=3472
STA / AC = 7777 (-0001) @@2506=7240
JMP I C0072 / long jump to L7777 @@2507=5472
NOP / @@2510=7000
NOP / @@2511=7000
JMS I C0064 / long call to S3017 @@2512=4464
SZL / @@2513=7430
SZA / @@2514=7440
JMS I C0065 / long call to S3037 @@2515=4465
SKP / @@2516=7410
JMS I C0066 / long call to S3027 @@2517=4466
JMS I C0067 / long call to S3046 @@2520=4467
JMP L2503 / @@2521=5303
CLA / @@2522=7200
TAD C0133 / @@2523=1133
DCA D0154 / @@2524=3154
JMP I D0154 / long jump to L2004 @@2525=5554
C2526, 2420 / ISZ I D0020
C2527, 2455 / ISZ I C0055
C2530, 2510 / ISZ I C0110
*2600
D2600, 7300 / CLA CLL
CLA CLL / AC = 0000 @@2601=7300
TAD C0150 / @@2602=1150
DCA I C0072 / @@2603=3472
TAD C0137 / @@2604=1137
DCA L0001 / @@2605=3001
TAD C0151 / @@2606=1151
DCA S0002 / @@2607=3002
TAD C2715 / @@2610=1315
DCA L0003 / @@2611=3003
L2612,
CLA CLL CMA / AC = 7777 (-0001) @@2612=7340
DCA AI0 / AUTO INDEX REGISTER @@2613=3010
CMA / @@2614=7040
JMP I C0072 / long jump to L7777 @@2615=5472
NOP / @@2616=7000
NOP / @@2617=7000
JMS I C0064 / long call to S3017 @@2620=4464
SZL / @@2621=7430
SZA / @@2622=7440
JMS I C0065 / long call to S3037 @@2623=4465
SKP / @@2624=7410
JMS I C0066 / long call to S3027 @@2625=4466
JMS I C0067 / long call to S3046 @@2626=4467
JMP L2612 / @@2627=5212
CLA / @@2630=7200
TAD C0134 / @@2631=1134
DCA D0154 / @@2632=3154
JMP I D0154 / long jump to L2004 @@2633=5554
CLA CLL / AC = 0000 @@2634=7300
CLA CLL / AC = 0000 @@2635=7300
TAD C0137 / @@2636=1137
DCA L0000 / @@2637=3000
TAD C0141 / @@2640=1141
DCA L0001 / @@2641=3001
TAD C2716 / @@2642=1316
DCA S0002 / @@2643=3002
L2644,
CLA CLL / AC = 0000 @@2644=7300
TAD C0153 / @@2645=1153
DCA I C0072 / @@2646=3472
STA / AC = 7777 (-0001) @@2647=7240
JMP I C0072 / long jump to L7777 @@2650=5472
NOP / @@2651=7000
NOP / @@2652=7000
JMS I C0064 / long call to S3017 @@2653=4464
SZL / @@2654=7430
SZA / @@2655=7440
JMS I C0065 / long call to S3037 @@2656=4465
SKP / @@2657=7410
JMS I C0066 / long call to S3027 @@2660=4466
JMS I C0067 / long call to S3046 @@2661=4467
JMP L2644 / @@2662=5244
CLA / @@2663=7200
TAD C0135 / @@2664=1135
DCA D0154 / @@2665=3154
JMP I D0154 / long jump to L2004 @@2666=5554
CLA CLL / AC = 0000 @@2667=7300
CLA CLL / AC = 0000 @@2670=7300
TAD C0137 / @@2671=1137
DCA I C0072 / @@2672=3472
TAD C0152 / @@2673=1152
DCA L0000 / @@2674=3000
TAD C2717 / @@2675=1317
DCA L0001 / @@2676=3001
L2677,
CLA CLL CMA / AC = 7777 (-0001) @@2677=7340
JMP I C0072 / long jump to L7777 @@2700=5472
NOP / @@2701=7000
NOP / @@2702=7000
JMS I C0064 / long call to S3017 @@2703=4464
SZL / @@2704=7430
SZA / @@2705=7440
JMS I C0065 / long call to S3037 @@2706=4465
SKP / @@2707=7410
JMS I C0066 / long call to S3027 @@2710=4466
JMS I C0067 / long call to S3046 @@2711=4467
JMP L2677 / @@2712=5277
JMP I C2714 / long jump to L3200 @@2713=5714
C2714,
C2714, 3200 / DCA D2600
C2715, 2616 / ISZ I C2616
C2716, 2651 / ISZ I C2651
C2717, 2701 / ISZ I C2701
*3000
////////////////////////////////////////////////////////////////////////////////
/
/ SUBROUTINE: S3000
/
/ Called from:
/ 4251 4326 4451 4526
/ Total 0004 (4) calls
////////////////////////////////////////////////////////////////////////////////
S3000,
0 / return area
CLA CLL CMA / AC = 7777 (-0001) @@3001=7340
AND D0040 / @@3002=0040
CMA / @@3003=7040
AND D0037 / @@3004=0037
SZA CLA / @@3005=7640
JMP I S3000 / return @@3006=5600
CMA / @@3007=7040
AND D0037 / @@3010=0037
CMA / @@3011=7040
AND D0040 / @@3012=0040
SZA CLA / @@3013=7640
JMP I S3000 / return @@3014=5600
ISZ S3000 / @@3015=2200
JMP I S3000 / return @@3016=5600
////////////////////////////////////////////////////////////////////////////////
/
/ SUBROUTINE: S3017
/
/ Called from:
/ 2027 2062 2113 2217 2254 2310 2422 2512 2620 2653 2703 3436 3645 3661 4241
/ 4316 4441 4516
/ Total 0022 (18) calls
////////////////////////////////////////////////////////////////////////////////
S3017,
0 / return area
DCA D0025 / @@3020=3025
SZL / @@3021=7430
CMA / @@3022=7040
DCA L0026 / @@3023=3026
L3024,
CMA / @@3024=7040
AND D0025 / @@3025=0025
JMP I S3017 / return @@3026=5617
////////////////////////////////////////////////////////////////////////////////
/
/ SUBROUTINE: S3027
/
/ Called from:
/ 2034 2067 2120 2224 2261 2315 2427 2463 2517 2625 2660 2710
/ Total 0014 (12) calls
////////////////////////////////////////////////////////////////////////////////
S3027,
0 / return area
LAS / @@3030=7604
AND C0103 / @@3031=0103
SZA CLA / @@3032=7640
JMP I S3027 / return @@3033=5627
TAD D0154 / @@3034=1154
HLT / @@3035=7402
JMP I S3027 / return @@3036=5627
////////////////////////////////////////////////////////////////////////////////
/
/ SUBROUTINE: S3037
/
/ Called from:
/ 2032 2065 2116 2222 2257 2313 2461 2515 2623 2656 2706
/ Total 0013 (11) calls
////////////////////////////////////////////////////////////////////////////////
S3037,
0 / return area
LAS / @@3040=7604
AND C0104 / @@3041=0104
SNA / @@3042=7450
JMS S3056 / @@3043=4256
ISZ S3037 / @@3044=2237
JMP I S3037 / return @@3045=5637
////////////////////////////////////////////////////////////////////////////////
/
/ SUBROUTINE: S3046
/
/ Called from:
/ 2035 2070 2121 2225 2262 2316 2430 2464 2520 2626 2661 2711 3442 3651 3665
/ 3675 4253 4330 4453 4530
/ Total 0024 (20) calls
////////////////////////////////////////////////////////////////////////////////
S3046,
0 / return area
LAS / @@3047=7604
AND C0105 / @@3050=0105
SNA CLA / @@3051=7650
JMP L3054 / @@3052=5254
JMP I S3046 / return @@3053=5646
L3054,
ISZ S3046 / @@3054=2246
JMP I S3046 / return @@3055=5646
////////////////////////////////////////////////////////////////////////////////
/
/ SUBROUTINE: S3056
/
/ Called from:
/ 3043
/ Total 0001 (1) calls
////////////////////////////////////////////////////////////////////////////////
S3056,
0 / return area
JMS I D0046 / long call to S1600 @@3057=4446
C3060, 5744 / JMP I C3144
TAD D0037 / @@3061=1037
JMS I C3073 / long call to S3227 @@3062=4673
CLA CLL CMA / AC = 7777 (-0001) @@3063=7340
AND D0025 / @@3064=0025
DCA D0037 / @@3065=3037
AND L0026 / @@3066=0026
DCA D0040 / @@3067=3040
JMS I C0060 / long call to S0504 @@3070=4460
JMS I C0061 / long call to S0523 @@3071=4461
JMP I S3056 / return @@3072=5656
C3073,
C3073, 3227 / DCA S3027
*3200
L3200,
CLA CLL / AC = 0000 @@3200=7300
ISZ D0020 / @@3201=2020
JMP L3224 / @@3202=5224
LAS / @@3203=7604
AND L0115 / @@3204=0115
SNA CLA / @@3205=7650
JMP L3221 / @@3206=5221
L3207,
LAS / @@3207=7604
AND C0114 / @@3210=0114
SZA CLA / @@3211=7640
HLT / @@3212=7402
LAS / @@3213=7604
AND C0116 / @@3214=0116
SZA CLA / @@3215=7640
JMP L3224 / @@3216=5224
JMP I C3220 / long jump to L3400 @@3217=5620
C3220,
C3220, 3400 / DCA I L0000
L3221,
JMS I D0046 / long call to S1600 @@3221=4446
C3222, 5732 / JMP I C3332
JMP L3207 / @@3223=5207
L3224,
TAD C0122 / @@3224=1122
DCA D0154 / @@3225=3154
JMP I D0154 / long jump to L2004 @@3226=5554
////////////////////////////////////////////////////////////////////////////////
/
/ SUBROUTINE: S3227
/
/ Called from:
/ 3062
/ Total 0001 (1) calls
////////////////////////////////////////////////////////////////////////////////
S3227,
0 / return area
DCA D0037 / @@3230=3037
TAD D0037 / @@3231=1037
AND C0172 / @@3232=0172
DCA D3264 / @@3233=3264
TAD D0037 / @@3234=1037
RTL / @@3235=7006
RAL / @@3236=7004
AND C3266 / @@3237=0266
TAD D3264 / @@3240=1264
TAD C3267 / @@3241=1267
DCA D3264 / @@3242=3264
TAD D0037 / @@3243=1037
RTR / @@3244=7012
RTR / @@3245=7012
RTR / @@3246=7012
AND C0172 / @@3247=0172
DCA D3263 / @@3250=3263
TAD D0037 / @@3251=1037
RTR / @@3252=7012
RAR / @@3253=7010
AND C3266 / @@3254=0266
TAD D3263 / @@3255=1263
TAD C3267 / @@3256=1267
DCA D3263 / @@3257=3263
JMS I D0046 / long call to S1600 @@3260=4446
DCA D3262 / @@3261=3262
D3262, 5627 / JMP I S3227
D3263, 0000 / AND L0000
D3264, 0000 / AND L0000
JMS L0000 / @@3265=4000
C3266, 0700 / AND I C3300
C3267, 6060 / 6060
*3400
L3400,
C3400, 7300 / CLA CLL
JMS I C0073 / long call to S3512 @@3401=4473
L3402,
CLA CLL / AC = 0000 @@3402=7300
TAD L0041 / @@3403=1041
TAD D0043 / @@3404=1043
TAD D0043 / @@3405=1043
TAD L0041 / @@3406=1041
TAD L0041 / @@3407=1041
TAD L0041 / @@3410=1041
TAD D0043 / @@3411=1043
TAD D0043 / @@3412=1043
TAD L0041 / @@3413=1041
TAD L0041 / @@3414=1041
TAD D0043 / @@3415=1043
TAD L0041 / @@3416=1041
TAD D0043 / @@3417=1043
TAD D0043 / @@3420=1043
TAD L0041 / @@3421=1041
TAD L0041 / @@3422=1041
TAD D0043 / @@3423=1043
TAD D0043 / @@3424=1043
TAD D0043 / @@3425=1043
TAD L0041 / @@3426=1041
TAD D0043 / @@3427=1043
TAD L0041 / @@3430=1041
TAD L0041 / @@3431=1041
TAD L0041 / @@3432=1041
TAD D0043 / @@3433=1043
TAD D0043 / @@3434=1043
NOP / @@3435=7000
JMS I C0064 / long call to S3017 @@3436=4464
SZL / @@3437=7430
SZA / @@3440=7440
JMS I C3446 / long call to S3447 @@3441=4646
JMS I C0067 / long call to S3046 @@3442=4467
JMP L3402 / @@3443=5202
JMP I C3445 / long jump to L3600 @@3444=5645
C3445,
C3445, 3600 / DCA I L3400
C3446,
C3446, 3447 / DCA I C0047
////////////////////////////////////////////////////////////////////////////////
/
/ SUBROUTINE: S3447
/
/ Called from:
/ 3441
/ Total 0001 (1) calls
////////////////////////////////////////////////////////////////////////////////
S3447,
0 / return area
LAS / @@3450=7604
AND C0104 / @@3451=0104
SZA CLA / @@3452=7640
JMP L3502 / @@3453=5302
JMS I D0046 / long call to S1600 @@3454=4446
JMP I C0165 / long jump to L3024 @@3455=5565
JMS I D0046 / long call to S1600 @@3456=4446
JMP L3516 / @@3457=5316
CLA CLL CMA / AC = 7777 (-0001) @@3460=7340
AND L0041 / @@3461=0041
DCA D0037 / @@3462=3037
JMS I C0061 / long call to S0523 @@3463=4461
CLA CLL CMA / AC = 7777 (-0001) @@3464=7340
AND D0043 / @@3465=0043
DCA D0037 / @@3466=3037
JMS I C0061 / long call to S0523 @@3467=4461
CLA CLL CMA / AC = 7777 (-0001) @@3470=7340
AND D0025 / @@3471=0025
DCA D0037 / @@3472=3037
CMA / @@3473=7040
AND L0026 / @@3474=0026
DCA D0040 / @@3475=3040
JMS I C0060 / long call to S0504 @@3476=4460
JMS I C0061 / long call to S0523 @@3477=4461
JMS I D0046 / long call to S1600 @@3500=4446
JMP I C3542 / long jump to L0003 @@3501=5742
L3502,
LAS / @@3502=7604
AND C0103 / @@3503=0103
SZA CLA / @@3504=7640
JMP I S3447 / return @@3505=5647
CLA CLL / AC = 0000 @@3506=7300
TAD S3447 / @@3507=1247
HLT / @@3510=7402
JMP I S3447 / return @@3511=5647
////////////////////////////////////////////////////////////////////////////////
/
/ SUBROUTINE: S3512
/
/ Called from:
/ 3401
/ Total 0001 (1) calls
////////////////////////////////////////////////////////////////////////////////
S3512,
0 / return area
CLA CLL / AC = 0000 @@3513=7300
TAD L0041 / @@3514=1041
RAL / @@3515=7004
L3516,
SZL / @@3516=7430
TAD C3542 / @@3517=1342
DCA L0041 / @@3520=3041
TAD L0041 / @@3521=1041
CIA / @@3522=7041
DCA D0043 / @@3523=3043
CLL / @@3524=7100
TAD D3541 / @@3525=1341
RAL / @@3526=7004
SZL / @@3527=7430
TAD C3542 / @@3530=1342
DCA D3541 / @@3531=3341
SZL / @@3532=7430
CMA / @@3533=7040
DCA D0044 / @@3534=3044
TAD D0044 / @@3535=1044
CMA / @@3536=7040
DCA D0045 / @@3537=3045
JMP I S3512 / return @@3540=5712
D3541, 0001 / AND L0001
C3542,
C3542, 0003 / AND L0003
*3600
L3600,
CLA CLL CMA / AC = 7777 (-0001) @@3600=7340
AND L0041 / @@3601=0041
DCA D3746 / @@3602=3346
CMA / @@3603=7040
AND L0041 / @@3604=0041
CMA / @@3605=7040
DCA D3747 / @@3606=3347
CMA / @@3607=7040
AND C0103 / @@3610=0103
DCA D3752 / @@3611=3352
L3612,
CMA / @@3612=7040
AND D3752 / @@3613=0352
CMA / @@3614=7040
DCA D3753 / @@3615=3353
CMA / @@3616=7040
AND D3746 / @@3617=0346
AND D3752 / @@3620=0352
SZA / @@3621=7440
JMP L3632 / @@3622=5232
CMA / @@3623=7040
AND D3746 / @@3624=0346
JMS S3701 / @@3625=4301
CMA / @@3626=7040
AND D3747 / @@3627=0347
DCA D3751 / @@3630=3351
JMP L3640 / @@3631=5240
L3632,
STA / AC = 7777 (-0001) @@3632=7240
AND D3747 / @@3633=0347
JMS S3715 / @@3634=4315
CMA / @@3635=7040
AND D3746 / @@3636=0346
DCA D3751 / @@3637=3351
L3640,
CLA CLL CMA / AC = 7777 (-0001) @@3640=7340
AND D3750 / @@3641=0350
TAD D3751 / @@3642=1351
SZL / @@3643=7430
IAC / @@3644=7001
JMS I C0064 / long call to S3017 @@3645=4464
JMS I C0063 / long call to S3730 @@3646=4463
SKP / @@3647=7410
JMS I C3756 / long call to S4000 @@3650=4756
JMS I C0067 / long call to S3046 @@3651=4467
JMP L3640 / @@3652=5240
JMP L3654 / @@3653=5254
L3654,
CLA CLL CMA / AC = 7777 (-0001) @@3654=7340
AND D3751 / @@3655=0351
TAD D3750 / @@3656=1350
SZL / @@3657=7430
IAC / @@3660=7001
JMS I C0064 / long call to S3017 @@3661=4464
JMS I C0063 / long call to S3730 @@3662=4463
SKP / @@3663=7410
JMS I C3756 / long call to S4000 @@3664=4756
JMS I C0067 / long call to S3046 @@3665=4467
JMP L3654 / @@3666=5254
CLA CLL CMA / AC = 7777 (-0001) @@3667=7340
AND D3752 / @@3670=0352
RAR / @@3671=7010
DCA D3752 / @@3672=3352
SNL / @@3673=7420
JMP L3612 / @@3674=5212
JMS I C0067 / long call to S3046 @@3675=4467
JMP L3600 / @@3676=5200
JMP I C3700 / long jump to L4200 @@3677=5700
C3700,
C3700, 4200 / JMS L3600
////////////////////////////////////////////////////////////////////////////////
/
/ SUBROUTINE: S3701
/
/ Called from:
/ 3625
/ Total 0001 (1) calls
////////////////////////////////////////////////////////////////////////////////
S3701,
0 / return area
AND D3753 / @@3702=0353
CMA / @@3703=7040
DCA D3754 / @@3704=3354
CMA / @@3705=7040
AND D3747 / @@3706=0347
AND D3752 / @@3707=0352
CMA / @@3710=7040
AND D3754 / @@3711=0354
CMA / @@3712=7040
DCA D3750 / @@3713=3350
JMP I S3701 / return @@3714=5701
////////////////////////////////////////////////////////////////////////////////
/
/ SUBROUTINE: S3715
/
/ Called from:
/ 3634
/ Total 0001 (1) calls
////////////////////////////////////////////////////////////////////////////////
S3715,
0 / return area
AND D3752 / @@3716=0352
CMA / @@3717=7040
DCA D3754 / @@3720=3354
CMA / @@3721=7040
AND D3746 / @@3722=0346
AND D3753 / @@3723=0353
CMA / @@3724=7040
AND D3754 / @@3725=0354
DCA D3750 / @@3726=3350
JMP I S3715 / return @@3727=5715
////////////////////////////////////////////////////////////////////////////////
/
/ SUBROUTINE: S3730
/
/ Called from:
/ 3646 3662
/ Total 0002 (2) calls
////////////////////////////////////////////////////////////////////////////////
S3730,
0 / return area
CMA / @@3731=7040
DCA D3755 / @@3732=3355
CMA / @@3733=7040
AND D0025 / @@3734=0025
AND D3753 / @@3735=0353
D3736, 7440 / SZA
JMP L3744 / @@3737=5344
CMA / @@3740=7040
AND D3752 / @@3741=0352
AND D3755 / @@3742=0355
SZA / @@3743=7440
L3744,
ISZ S3730 / @@3744=2330
JMP I S3730 / return @@3745=5730
D3746, 0000 / AND L0000
D3747, 0000 / AND L0000
D3750, 0000 / AND L0000
D3751, 0000 / AND L0000
D3752, 0000 / AND L0000
D3753, 0000 / AND L0000
D3754, 0000 / AND L0000
D3755, 0000 / AND L0000
C3756,
C3756, 4000 / JMS L0000
*4000
////////////////////////////////////////////////////////////////////////////////
/
/ SUBROUTINE: S4000
/
/ Called from:
/ 3650 3664
/ Total 0002 (2) calls
////////////////////////////////////////////////////////////////////////////////
S4000,
0 / return area
LAS / @@4001=7604
AND C0104 / @@4002=0104
SZA CLA / @@4003=7640
JMP L4033 / @@4004=5233
C4005,
C4005, 4446 / JMS I D0046
JMP I C4005 / long jump to L4446 @@4006=5605
JMS I D0046 / long call to S1600 @@4007=4446
C4010, 5364 / JMP C4164
CLA CLL CMA / AC = 7777 (-0001) @@4011=7340
AND I C4177 / @@4012=0777
DCA D0037 / @@4013=3037
JMS I C0061 / long call to S0523 @@4014=4461
CMA / @@4015=7040
AND I C4176 / @@4016=0776
DCA D0037 / @@4017=3037
JMS I C0061 / long call to S0523 @@4020=4461
CMA / @@4021=7040
C4022, 0775 / AND I C4175
DCA D0037 / @@4023=3037
D4024, 4461 / JMS I C0061
CMA / @@4025=7040
AND D0025 / @@4026=0025
DCA D0037 / @@4027=3037
JMS I C0061 / long call to S0523 @@4030=4461
JMS I D0046 / long call to S1600 @@4031=4446
C4032, 5742 / JMP I C4142
L4033,
LAS / @@4033=7604
AND C0103 / @@4034=0103
SZA CLA / @@4035=7640
JMP I S4000 / return @@4036=5600
CLA CLL / AC = 0000 @@4037=7300
C4040, 1200 / TAD S4000
HLT / @@4041=7402
JMP I S4000 / return @@4042=5600
*4175
C4175, 3752 / DCA I C4152
C4176, 3751 / DCA I C4151
C4177, 3750 / DCA I C4150
*4200
L4200,
CLA CLL / AC = 0000 @@4200=7300
TAD D0044 / @@4201=1044
SZA / @@4202=7440
CLA CML / @@4203=7220
TAD L0041 / @@4204=1041
RAR / @@4205=7010
RAR / @@4206=7010
RAR / @@4207=7010
RAR / @@4210=7010
RAR / @@4211=7010
RAR / @@4212=7010
RAR / @@4213=7010
RAR / @@4214=7010
RAR / @@4215=7010
RAR / @@4216=7010
RAR / @@4217=7010
RAR / @@4220=7010
RAR / @@4221=7010
RAR / @@4222=7010
RAR / @@4223=7010
RAR / @@4224=7010
RAR / @@4225=7010
RAR / @@4226=7010
RAR / @@4227=7010
RAR / @@4230=7010
RAR / @@4231=7010
RAR / @@4232=7010
RAR / @@4233=7010
RAR / @@4234=7010
RAR / @@4235=7010
RAR / @@4236=7010
NOP / @@4237=7000
NOP / @@4240=7000
JMS I C0064 / long call to S3017 @@4241=4464
TAD D0043 / @@4242=1043
SZA CLA / @@4243=7640
JMP L4250 / @@4244=5250
TAD D0044 / @@4245=1044
DCA D0037 / @@4246=3037
TAD L0026 / @@4247=1026
L4250,
DCA D0040 / @@4250=3040
JMS I C0062 / long call to S3000 @@4251=4462
JMS I C4335 / long call to S5000 @@4252=4735
JMS I C0067 / long call to S3046 @@4253=4467
JMP L4200 / @@4254=5200
L4255,
CLA CLL / AC = 0000 @@4255=7300
TAD D0044 / @@4256=1044
SZA / @@4257=7440
CLA CML / @@4260=7220
TAD L0041 / @@4261=1041
RAL / @@4262=7004
RAL / @@4263=7004
RAL / @@4264=7004
RAL / @@4265=7004
RAL / @@4266=7004
RAL / @@4267=7004
RAL / @@4270=7004
RAL / @@4271=7004
RAL / @@4272=7004
RAL / @@4273=7004
RAL / @@4274=7004
RAL / @@4275=7004
RAL / @@4276=7004
RAL / @@4277=7004
RAL / @@4300=7004
RAL / @@4301=7004
RAL / @@4302=7004
RAL / @@4303=7004
RAL / @@4304=7004
RAL / @@4305=7004
RAL / @@4306=7004
RAL / @@4307=7004
RAL / @@4310=7004
RAL / @@4311=7004
RAL / @@4312=7004
RAL / @@4313=7004
NOP / @@4314=7000
NOP / @@4315=7000
JMS I C0064 / long call to S3017 @@4316=4464
TAD D0043 / @@4317=1043
SZA / @@4320=7440
JMP L4325 / @@4321=5325
TAD D0044 / @@4322=1044
DCA D0037 / @@4323=3037
TAD L0026 / @@4324=1026
L4325,
DCA D0040 / @@4325=3040
JMS I C0062 / long call to S3000 @@4326=4462
JMS I C4334 / long call to S5013 @@4327=4734
JMS I C0067 / long call to S3046 @@4330=4467
JMP L4255 / @@4331=5255
JMP I C4333 / long jump to L4400 @@4332=5733
C4333,
C4333, 4400 / JMS I L0000
C4334,
C4334, 5013 / JMP AI3
C4335,
C4335, 5000 / JMP L0000
*4400
L4400,
C4400, 7300 / CLA CLL
TAD D0044 / @@4401=1044
SZA / @@4402=7440
CLA CML / @@4403=7220
TAD L0041 / @@4404=1041
RTL / @@4405=7006
RTL / @@4406=7006
RTL / @@4407=7006
RTL / @@4410=7006
RTL / @@4411=7006
RTL / @@4412=7006
RTL / @@4413=7006
RTL / @@4414=7006
RTL / @@4415=7006
RTL / @@4416=7006
RTL / @@4417=7006
RTL / @@4420=7006
RTL / @@4421=7006
RTL / @@4422=7006
RTL / @@4423=7006
RTL / @@4424=7006
RTL / @@4425=7006
RTL / @@4426=7006
RTL / @@4427=7006
RTL / @@4430=7006
RTL / @@4431=7006
RTL / @@4432=7006
RTL / @@4433=7006
RTL / @@4434=7006
RTL / @@4435=7006
RTL / @@4436=7006
NOP / @@4437=7000
NOP / @@4440=7000
JMS I C0064 / long call to S3017 @@4441=4464
TAD D0043 / @@4442=1043
SZA / @@4443=7440
JMP L4450 / @@4444=5250
TAD D0044 / @@4445=1044
L4446,
DCA D0037 / @@4446=3037
TAD L0026 / @@4447=1026
L4450,
DCA D0040 / @@4450=3040
JMS I C0062 / long call to S3000 @@4451=4462
JMS I C4571 / long call to S5041 @@4452=4771
JMS I C0067 / long call to S3046 @@4453=4467
JMP L4400 / @@4454=5200
L4455,
CLA CLL / AC = 0000 @@4455=7300
TAD D0044 / @@4456=1044
SZA / @@4457=7440
L4460,
CLA CML / @@4460=7220
TAD L0041 / @@4461=1041
RTR / @@4462=7012
RTR / @@4463=7012
RTR / @@4464=7012
RTR / @@4465=7012
RTR / @@4466=7012
RTR / @@4467=7012
RTR / @@4470=7012
RTR / @@4471=7012
RTR / @@4472=7012
RTR / @@4473=7012
RTR / @@4474=7012
RTR / @@4475=7012
RTR / @@4476=7012
RTR / @@4477=7012
RTR / @@4500=7012
RTR / @@4501=7012
RTR / @@4502=7012
RTR / @@4503=7012
RTR / @@4504=7012
RTR / @@4505=7012
RTR / @@4506=7012
RTR / @@4507=7012
RTR / @@4510=7012
RTR / @@4511=7012
RTR / @@4512=7012
RTR / @@4513=7012
NOP / @@4514=7000
NOP / @@4515=7000
JMS I C0064 / long call to S3017 @@4516=4464
TAD D0043 / @@4517=1043
SZA / @@4520=7440
JMP L4525 / @@4521=5325
TAD D0044 / @@4522=1044
DCA D0037 / @@4523=3037
TAD L0026 / @@4524=1026
L4525,
DCA D0040 / @@4525=3040
JMS I C0062 / long call to S3000 @@4526=4462
JMS I C4570 / long call to S5026 @@4527=4770
JMS I C0067 / long call to S3046 @@4530=4467
JMP L4455 / @@4531=5255
ISZ D0020 / @@4532=2020
JMP L4566 / @@4533=5366
LAS / @@4534=7604
C4535,
C4535, 0115 / AND L0115
SNA CLA / @@4536=7650
JMP L4563 / @@4537=5363
L4540,
LAS / @@4540=7604
AND C0114 / @@4541=0114
SZA CLA / @@4542=7640
HLT / @@4543=7402
LAS / @@4544=7604
AND C0116 / @@4545=0116
SZA CLA / @@4546=7640
JMP L4566 / @@4547=5366
L4550,
LAS / @@4550=7604
AND C0173 / @@4551=0173
CLL RAR / @@4552=7110
RTR / @@4553=7012
DCA D0175 / @@4554=3175
LAS / @@4555=7604
AND C0107 / @@4556=0107
SZA CLA / @@4557=7640
JMP I C4572 / long jump to L4600 @@4560=5772
JMP I C4562 / long jump to L0200 @@4561=5762
C4562,
C4562, 0200 / AND L4400
L4563,
JMS I D0046 / long call to S1600 @@4563=4446
JMP I C4535 / long jump to L0115 @@4564=5735
JMP L4540 / @@4565=5340
L4566,
JMP I C4567 / long jump to L3400 @@4566=5767
C4567,
C4567, 3400 / DCA I L0000
C4570,
C4570, 5026 / JMP L0026
C4571,
C4571, 5041 / JMP L0041
C4572,
C4572, 4600 / JMS I L4400
*4600
L4600,
C4600, 4231 / JMS S4631
JMS S4664 / @@4601=4264
CLA CLL CMA RTL / AC = 7775 (-0003) @@4602=7346
JMS S4741 / @@4603=4341
JMS S4731 / @@4604=4331
JMS S4752 / @@4605=4352
JMS I D0046 / long call to S1600 @@4606=4446
JMP I C4755 / long jump to L1077 @@4607=5755
JMS S4760 / @@4610=4360
JMS S4731 / @@4611=4331
CLA CLL CMA RAL / AC = 7776 (-0002) @@4612=7344
JMS S4741 / @@4613=4341
TAD D0175 / @@4614=1175
CIA / @@4615=7041
TAD D0174 / @@4616=1174
SNA CLA / @@4617=7650
JMP L4623 / @@4620=5223
CLA HLT / @@4621=7602
JMP I C4770 / long jump to L4550 @@4622=5770
L4623,
TAD D4714 / @@4623=1314
TAD L0115 / @@4624=1115
DCA D4626 / @@4625=3226
D4626, 0000 / AND L0000
JMP I C4630 / long jump to L0200 @@4627=5630
C4630,
C4630, 0200 / AND L4600
////////////////////////////////////////////////////////////////////////////////
/
/ SUBROUTINE: S4631
/
/ Never called
////////////////////////////////////////////////////////////////////////////////
S4631,
0 / return area
CLA CLL / AC = 0000 @@4632=7300
DCA D0174 / @@4633=3174
TAD C4771 / @@4634=1371
DCA D0176 / @@4635=3176
CDF0 / Change to data field 0. The data fie @@4636=6201
DCA I C0171 / @@4637=3571
TAD C4772 / @@4640=1372
L4641,
TAD C0113 / @@4641=1113
DCA D4643 / @@4642=3243
D4643, 0000 / AND L0000
CLA CLL CMA / AC = 7777 (-0001) @@4644=7340
DCA I C0171 / @@4645=3571
TAD I C0171 / @@4646=1571
SNA CLA / @@4647=7650
JMP L4655 / @@4650=5255
ISZ D0174 / @@4651=2174
TAD D4643 / @@4652=1243
ISZ D0176 / @@4653=2176
JMP L4641 / @@4654=5241
L4655,
CLA CLL / AC = 0000 @@4655=7300
CDF0 / Change to data field 0. The data fie @@4656=6201
TAD I C0171 / @@4657=1571
SNA CLA / @@4660=7650
JMP I S4631 / return @@4661=5631
CLA HLT / @@4662=7602
JMP L4674 / @@4663=5274
////////////////////////////////////////////////////////////////////////////////
/
/ SUBROUTINE: S4664
/
/ Called from:
/ 4601
/ Total 0001 (1) calls
////////////////////////////////////////////////////////////////////////////////
S4664,
0 / return area
CLA CLL / AC = 0000 @@4665=7300
DCA D0176 / @@4666=3176
RIF / Same as RDF except reads the instruc @@4667=6224
TAD C0113 / @@4670=1113
AND C4775 / @@4671=0375
DCA L4712 / @@4672=3312
CLA CLL IAC / AC = 0001 @@4673=7301
L4674,
TAD D0174 / @@4674=1174
RAL / @@4675=7004
RTL / @@4676=7006
CIA / @@4677=7041
TAD L4712 / @@4700=1312
SNL CLA / @@4701=7620
TAD L4712 / @@4702=1312
TAD C4772 / @@4703=1372
DCA D4714 / @@4704=3314
RIF / Same as RDF except reads the instruc @@4705=6224
TAD C4772 / @@4706=1372
DCA L4712 / @@4707=3312
TAD L4712 / @@4710=1312
DCA D4717 / @@4711=3317
L4712,
D4712, 0000 / AND L0000
TAD I D0176 / @@4713=1576
D4714, 0000 / AND L0000
DCA I D0176 / @@4715=3576
TAD I D0176 / @@4716=1576
D4717, 0000 / AND L0000
CIA / @@4720=7041
TAD I D0176 / @@4721=1576
SNA CLA / @@4722=7650
JMP L4726 / @@4723=5326
CLA HLT / @@4724=7602
JMP L4712 / @@4725=5312
L4726,
ISZ D0176 / @@4726=2176
JMP L4712 / @@4727=5312
JMP I S4664 / return @@4730=5664
////////////////////////////////////////////////////////////////////////////////
/
/ SUBROUTINE: S4731
/
/ Called from:
/ 4604 4611
/ Total 0002 (2) calls
////////////////////////////////////////////////////////////////////////////////
S4731,
0 / return area
TAD C4771 / @@4732=1371
DCA D0176 / @@4733=3176
L4734,
TAD C4776 / @@4734=1376
JMS I C0047 / long call to S1652 @@4735=4447
ISZ D0176 / @@4736=2176
JMP L4734 / @@4737=5334
JMP I S4731 / return @@4740=5731
////////////////////////////////////////////////////////////////////////////////
/
/ SUBROUTINE: S4741
/
/ Called from:
/ 4603 4613
/ Total 0002 (2) calls
////////////////////////////////////////////////////////////////////////////////
S4741,
0 / return area
DCA D0176 / @@4742=3176
L4743,
TAD C4774 / @@4743=1374
JMS I C0047 / long call to S1652 @@4744=4447
TAD C4773 / @@4745=1373
JMS I C0047 / long call to S1652 @@4746=4447
ISZ D0176 / @@4747=2176
JMP L4743 / @@4750=5343
JMP I S4741 / return @@4751=5741
////////////////////////////////////////////////////////////////////////////////
/
/ SUBROUTINE: S4752
/
/ Called from:
/ 4605
/ Total 0001 (1) calls
////////////////////////////////////////////////////////////////////////////////
S4752,
0 / return area
TAD D0174 / @@4753=1174
AND C0172 / @@4754=0172
C4755,
C4755, 1077 / TAD C0077
JMS I C0047 / long call to S1652 @@4756=4447
JMP I S4752 / return @@4757=5752
////////////////////////////////////////////////////////////////////////////////
/
/ SUBROUTINE: S4760
/
/ Called from:
/ 4610
/ Total 0001 (1) calls
////////////////////////////////////////////////////////////////////////////////
S4760,
0 / return area
TAD D4714 / @@4761=1314
AND C0173 / @@4762=0173
RAR / @@4763=7010
RTR / @@4764=7012
TAD C0077 / @@4765=1077
JMS I C0047 / long call to S1652 @@4766=4447
JMP I S4760 / return @@4767=5760
C4770,
C4770, 4550 / JMS I C0150
C4771, 7771 / CLA MQA SCA MQL NMI
C4772, 6201 / CDF0
C4773, 0212 / AND C4612
C4774, 0215 / AND C4615
C4775, 0170 / AND C0170
C4776, 0252 / AND C4652
*5000
C5000, 0000 / AND L0000
LAS / @@5001=7604
AND C0104 / @@5002=0104
SZA CLA / @@5003=7640
JMP L5010 / @@5004=5210
JMS I D0046 / long call to S1600 @@5005=4446
JMP I C5025 / long jump to L5253 @@5006=5625
JMS S5064 / @@5007=4264
L5010,
CLA CLL / AC = 0000 @@5010=7300
TAD C5000 / @@5011=1200
JMP L5053 / @@5012=5253
C5013, 0000 / AND L0000
LAS / @@5014=7604
AND C0104 / @@5015=0104
SZA CLA / @@5016=7640
JMP L5023 / @@5017=5223
JMS I D0046 / long call to S1600 @@5020=4446
JMP I C5044 / long jump to L7640 @@5021=5644
JMS S5064 / @@5022=4264
L5023,
CLA CLL / AC = 0000 @@5023=7300
TAD C5013 / @@5024=1213
C5025,
C5025, 5253 / JMP L5053
C5026, 0000 / AND L0000
LAS / @@5027=7604
AND C0104 / @@5030=0104
SZA CLA / @@5031=7640
JMP L5036 / @@5032=5236
JMS I D0046 / long call to S1600 @@5033=4446
JMP I D5063 / long jump to L0000 @@5034=5663
JMS S5064 / @@5035=4264
L5036,
CLA CLL / AC = 0000 @@5036=7300
TAD C5026 / @@5037=1226
JMP L5053 / @@5040=5253
C5041, 0000 / AND L0000
LAS / @@5042=7604
AND C0104 / @@5043=0104
C5044,
C5044, 7640 / SZA CLA
JMP L5051 / @@5045=5251
JMS I D0046 / long call to S1600 @@5046=4446
JMP I C5102 / long jump to L4460 @@5047=5702
JMS S5064 / @@5050=4264
L5051,
CLA CLL / AC = 0000 @@5051=7300
TAD C5041 / @@5052=1241
L5053,
DCA D5063 / @@5053=3263
LAS / @@5054=7604
AND C0103 / @@5055=0103
SZA CLA / @@5056=7640
JMP L5062 / @@5057=5262
TAD D5063 / @@5060=1263
HLT / @@5061=7402
L5062,
JMP I D5063 / long jump to L0000 @@5062=5663
D5063, 0000 / AND L0000
////////////////////////////////////////////////////////////////////////////////
/
/ SUBROUTINE: S5064
/
/ Called from:
/ 5007 5022 5035 5050
/ Total 0004 (4) calls
////////////////////////////////////////////////////////////////////////////////
S5064,
0 / return area
JMS I D0046 / long call to S1600 @@5065=4446
C5066, 5347 / JMP C5147
CLA CLL CMA / AC = 7777 (-0001) @@5067=7340
AND D0044 / @@5070=0044
DCA D0040 / @@5071=3040
CMA / @@5072=7040
AND L0041 / @@5073=0041
DCA D0037 / @@5074=3037
JMS I C0060 / long call to S0504 @@5075=4460
JMS I C0061 / long call to S0523 @@5076=4461
CMA / @@5077=7040
AND L0026 / @@5100=0026
DCA D0040 / @@5101=3040
C5102,
C5102, 4460 / JMS I C0060
CMA / @@5103=7040
AND D0025 / @@5104=0025
DCA D0037 / @@5105=3037
JMS I C0061 / long call to S0523 @@5106=4461
JMS I D0046 / long call to S1600 @@5107=4446
C5110, 5742 / JMP I C5142
JMP I S5064 / return @@5111=5664
*5200
C5200, 3736 / DCA I C5336
D5201, 4040 / JMS D0040
C5202, 4001 / JMS L0001
ISZ D5207 / @@5203=2207
C5204, 6140 / 6140
D5205, 4040 / JMS D0040
JMS D0040 / @@5206=4040
D5207, 4040 / JMS D0040
JMS D0040 / @@5210=4040
D5211, 0122 / AND C0122
AND I C5362 / @@5212=0762
JMS D0040 / @@5213=4040
JMS D0040 / @@5214=4040
JMS D0040 / @@5215=4040
C5216, 4040 / JMS D0040
JMS D0023 / @@5217=4023
TAD L0115 / @@5220=1115
ISZ I C0114 / @@5221=2514
AND C0124 / @@5222=0124
AND I C0104 / @@5223=0504
JMS D0040 / @@5224=4040
JMS D0040 / @@5225=4040
JMS D0040 / @@5226=4040
C5227, 4001 / JMS L0001
ISZ D5207 / @@5230=2207
C5231, 6153 / 6153
AND C0122 / @@5232=0122
AND I C5362 / @@5233=0762
JMS D0040 / @@5234=4040
JMS D0040 / @@5235=4040
C5236, 4001 / JMS L0001
ISZ D5207 / @@5237=2207
C5240, 6253 / 6253
AND C0122 / @@5241=0122
AND I C5361 / @@5242=0761
DCA I C5336 / @@5243=3736
AND L0000 / @@5244=0000
DCA I C5336 / @@5245=3736
JMS D0040 / @@5246=4040
JMS D0040 / @@5247=4040
C5250, 4017 / JMS AI7
ISZ D5211 / @@5251=2211
AND I C5311 / @@5252=0711
L5253,
TAD I D5201 / @@5253=1601
TAD I D0040 / @@5254=1440
JMS D0040 / @@5255=4040
JMS D0040 / @@5256=4040
JMS D0023 / @@5257=4023
TAD L0115 / @@5260=1115
ISZ I C0114 / @@5261=2514
AND C0124 / @@5262=0124
AND I C0104 / @@5263=0504
JMS D0040 / @@5264=4040
JMS D0040 / @@5265=4040
JMS D0040 / @@5266=4040
C5267, 4001 / JMS L0001
AND C5324 / @@5270=0324
ISZ I L0101 / @@5271=2501
TAD I D0037 / @@5272=1437
DCA I C5200 / @@5273=3600
DCA I C5336 / @@5274=3736
ISZ D5201 / @@5275=2201
TAD I C5204 / @@5276=1604
AND D0140 / @@5277=0140
JMS D0040 / @@5300=4040
JMS D0040 / @@5301=4040
JMS D0040 / @@5302=4040
C5303, 4022 / JMS C0022
AND C0116 / @@5304=0116
AND I L0003 / @@5305=0403
JMS D0040 / @@5306=4040
JMS D0040 / @@5307=4040
JMS D0040 / @@5310=4040
C5311, 4040 / JMS D0040
ISZ D5205 / @@5312=2205
ISZ D5325 / @@5313=2325
TAD I D0024 / @@5314=1424
DCA I C5336 / @@5315=3736
AND L0000 / @@5316=0000
DCA I C5336 / @@5317=3736
ISZ D5201 / @@5320=2201
TAD I C5204 / @@5321=1604
C5322, 0140 / AND D0140
JMS D0040 / @@5323=4040
C5324, 4040 / JMS D0040
D5325, 4040 / JMS D0040
JMS S0002 / @@5326=4002
C5327, 2017 / ISZ AI7
ISZ D5340 / @@5330=2340
JMS D0040 / @@5331=4040
JMS D0040 / @@5332=4040
JMS D0040 / @@5333=4040
JMS D0040 / @@5334=4040
AND C5216 / @@5335=0216
C5336, 0507 / AND I C0107
JMS D0040 / @@5337=4040
D5340, 4040 / JMS D0040
JMS D0040 / @@5341=4040
JMS D0040 / @@5342=4040
C5343, 4022 / JMS C0022
AND I C0123 / @@5344=0523
ISZ I C0114 / @@5345=2514
ISZ I D0037 / @@5346=2437
DCA I C5200 / @@5347=3600
DCA I C5336 / @@5350=3736
TAD I C5322 / @@5351=1722
TAD C0107 / @@5352=1107
TAD C0116 / @@5353=1116
AND C0114 / @@5354=0114
JMS D0040 / @@5355=4040
JMS D0040 / @@5356=4040
JMS D0040 / @@5357=4040
AND C0103 / @@5360=0103
C5361, 2425 / ISZ I D0025
C5362, 0114 / AND C0114
DCA I C5336 / @@5363=3736
AND L0000 / @@5364=0000
DCA I C5336 / @@5365=3736
JMS D0040 / @@5366=4040
JMS D0040 / @@5367=4040
AND C0122 / @@5370=0122
AND I C5361 / @@5371=0761
JMS D0040 / @@5372=4040
JMS D0040 / @@5373=4040
JMS D0040 / @@5374=4040
JMS D0040 / @@5375=4040
C5376, 4001 / JMS L0001
ISZ D5207 / @@5377=2207
C5400, 6240 / 6240
C5401, 4040 / JMS D0040
JMS D0040 / @@5402=4040
JMS D0040 / @@5403=4040
AND I C0130 / @@5404=0530
C5405, 2005 / ISZ C0005
AND C5524 / @@5406=0324
AND I C0104 / @@5407=0504
JMS D0040 / @@5410=4040
JMS D0040 / @@5411=4040
JMS D0040 / @@5412=4040
AND C0103 / @@5413=0103
ISZ I D0025 / @@5414=2425
AND C0114 / @@5415=0114
DCA I C5536 / @@5416=3736
AND L0000 / @@5417=0000
DCA I C5536 / @@5420=3736
JMS D0040 / @@5421=4040
JMS D0040 / @@5422=4040
JMS D0023 / @@5423=4023
TAD L0115 / @@5424=1115
ISZ I C0114 / @@5425=2514
AND C0124 / @@5426=0124
AND I C0104 / @@5427=0504
C5430, 4001 / JMS L0001
AND I S0004 / @@5431=0404
JMS D0024 / @@5432=4024
AND I C0123 / @@5433=0523
ISZ I D0040 / @@5434=2440
AND I C5401 / @@5435=0601
TAD C0114 / @@5436=1114
AND I C0104 / @@5437=0504
AND L0000 / @@5440=0000
DCA I C5536 / @@5441=3736
JMS D0040 / @@5442=4040
JMS D0040 / @@5443=4040
JMS D0023 / @@5444=4023
TAD L0115 / @@5445=1115
ISZ I C0114 / @@5446=2514
AND C0124 / @@5447=0124
AND I C0104 / @@5450=0504
C5451, 4022 / JMS C0022
AND C0114 / @@5452=0114
JMS D0024 / @@5453=4024
AND I C0123 / @@5454=0523
ISZ I D0040 / @@5455=2440
AND I C5401 / @@5456=0601
TAD C0114 / @@5457=1114
AND I C0104 / @@5460=0504
AND L0000 / @@5461=0000
DCA I C5536 / @@5462=3736
JMS D0040 / @@5463=4040
JMS D0040 / @@5464=4040
JMS D0023 / @@5465=4023
TAD L0115 / @@5466=1115
ISZ I C0114 / @@5467=2514
AND C0124 / @@5470=0124
AND I C0104 / @@5471=0504
C5472, 4022 / JMS C0022
AND C0122 / @@5473=0122
JMS D0024 / @@5474=4024
AND I C0123 / @@5475=0523
ISZ I D0040 / @@5476=2440
AND I C5401 / @@5477=0601
TAD C0114 / @@5500=1114
AND I C0104 / @@5501=0504
AND L0000 / @@5502=0000
DCA I C5536 / @@5503=3736
JMS D0040 / @@5504=4040
JMS D0040 / @@5505=4040
JMS D0023 / @@5506=4023
TAD L0115 / @@5507=1115
ISZ I C0114 / @@5510=2514
AND C0124 / @@5511=0124
AND I C0104 / @@5512=0504
C5513, 4022 / JMS C0022
C5514, 2414 / ISZ I AI4
JMS D0024 / @@5515=4024
AND I C0123 / @@5516=0523
ISZ I D0040 / @@5517=2440
AND I C5401 / @@5520=0601
TAD C0114 / @@5521=1114
AND I C0104 / @@5522=0504
AND L0000 / @@5523=0000
C5524, 3736 / DCA I C5536
JMS D0040 / @@5525=4040
JMS D0040 / @@5526=4040
D5527, 4023 / JMS D0023
TAD L0115 / @@5530=1115
ISZ I C0114 / @@5531=2514
AND C0124 / @@5532=0124
AND I C0104 / @@5533=0504
C5534, 4022 / JMS C0022
ISZ I C0022 / @@5535=2422
C5536, 4024 / JMS D0024
AND I C0123 / @@5537=0523
ISZ I D0040 / @@5540=2440
AND I C5401 / @@5541=0601
TAD C0114 / @@5542=1114
AND I C0104 / @@5543=0504
AND L0000 / @@5544=0000
DCA I C5536 / @@5545=3736
JMS D0040 / @@5546=4040
JMS D0040 / @@5547=4040
JMS D0023 / @@5550=4023
TAD L0115 / @@5551=1115
ISZ I C0114 / @@5552=2514
AND C0124 / @@5553=0124
AND I C0104 / @@5554=0504
JMS S0002 / @@5555=4002
ISZ D5527 / @@5556=2327
JMS D0024 / @@5557=4024
AND I C0123 / @@5560=0523
ISZ I D0040 / @@5561=2440
AND I C5401 / @@5562=0601
TAD C0114 / @@5563=1114
AND I C0104 / @@5564=0504
AND L0000 / @@5565=0000
DCA I C5536 / @@5566=3736
JMS D0040 / @@5567=4040
JMS D0040 / @@5570=4040
C5571, 4022 / JMS C0022
AND C0116 / @@5572=0116
C5573, 0417 / AND I AI7
TAD I D0140 / @@5574=1540
AND C0104 / @@5575=0104
AND I D0040 / @@5576=0440
C5577, 2405 / ISZ I C0005
C5600, 2324 / ISZ D5724
D5601, 4061 / JMS C0061
C5602, 4006 / JMS C0006
C5603, 0111 / AND C0111
C5604, 1405 / TAD I C0005
AND I L0000 / @@5605=0400
DCA I C5736 / @@5606=3736
JMS D0040 / @@5607=4040
JMS D0040 / @@5610=4040
C5611, 4022 / JMS C0022
AND C0116 / @@5612=0116
C5613, 0417 / AND I AI7
TAD I D0140 / @@5614=1540
AND C0104 / @@5615=0104
AND I D0040 / @@5616=0440
D5617, 2405 / ISZ I C0005
ISZ D5724 / @@5620=2324
C5621, 4062 / JMS C0062
C5622, 4006 / JMS C0006
AND C0111 / @@5623=0111
D5624, 1405 / TAD I C0005
AND I L0000 / @@5625=0400
DCA I C5736 / @@5626=3736
JMS D0040 / @@5627=4040
JMS D0040 / @@5630=4040
C5631, 4022 / JMS C0022
AND C0116 / @@5632=0116
C5633, 0417 / AND I AI7
TAD I D0140 / @@5634=1540
ISZ D5601 / @@5635=2201
ISZ D5640 / @@5636=2240
D5637, 2405 / ISZ I C0005
D5640, 2324 / ISZ D5724
C5641, 4006 / JMS C0006
AND C0111 / @@5642=0111
C5643, 1405 / TAD I C0005
AND I L0000 / @@5644=0400
DCA I C5736 / @@5645=3736
JMS D0040 / @@5646=4040
JMS D0040 / @@5647=4040
C5650, 4022 / JMS C0022
AND C0116 / @@5651=0116
C5652, 0417 / AND I AI7
TAD I D0140 / @@5653=1540
ISZ D5601 / @@5654=2201
TAD I D0040 / @@5655=1440
C5656, 2405 / ISZ I C0005
ISZ D5724 / @@5657=2324
C5660, 4006 / JMS C0006
AND C0111 / @@5661=0111
C5662, 1405 / TAD I C0005
AND I L0000 / @@5663=0400
DCA I C5736 / @@5664=3736
JMS D0040 / @@5665=4040
JMS D0040 / @@5666=4040
C5667, 4022 / JMS C0022
AND C0116 / @@5670=0116
C5671, 0417 / AND I AI7
TAD I D0140 / @@5672=1540
ISZ D5624 / @@5673=2224
TAD I D0040 / @@5674=1440
C5675, 2405 / ISZ I C0005
ISZ D5724 / @@5676=2324
C5677, 4006 / JMS C0006
AND C0111 / @@5700=0111
C5701, 1405 / TAD I C0005
AND I L0000 / @@5702=0400
DCA I C5736 / @@5703=3736
JMS D0040 / @@5704=4040
JMS D0040 / @@5705=4040
C5706, 4022 / JMS C0022
AND C0116 / @@5707=0116
C5710, 0417 / AND I AI7
D5711, 1540 / TAD I D0140
ISZ D5624 / @@5712=2224
ISZ D5640 / @@5713=2240
C5714, 2405 / ISZ I C0005
C5715, 2324 / ISZ D5724
C5716, 4006 / JMS C0006
AND C0111 / @@5717=0111
C5720, 1405 / TAD I C0005
AND I L0000 / @@5721=0400
C5722, 3736 / DCA I C5736
ISZ D5711 / @@5723=2311
D5724, 1501 / TAD I L0101
AND I L0000 / @@5725=0400
DCA I C5736 / @@5726=3736
ISZ D5711 / @@5727=2311
TAD I C0122 / @@5730=1522
TAD I D5724 / @@5731=1724
AND L0000 / @@5732=0000
DCA I C5736 / @@5733=3736
AND I C5603 / @@5734=0603
ISZ I L0000 / @@5735=2400
C5736, 3736 / DCA I C5736
ISZ D5601 / @@5737=2201
D5740, 1604 / TAD I C5604
TAD I C5715 / @@5741=1715
AND L0000 / @@5742=0000
DCA I C5736 / @@5743=3736
AND L0000 / @@5744=0000
DCA I C5736 / @@5745=3736
JMS S0004 / @@5746=4004
AND C0124 / @@5747=0124
AND D0140 / @@5750=0140
AND I C0122 / @@5751=0522
ISZ D5617 / @@5752=2217
ISZ D5637 / @@5753=2237
DCA I C5600 / @@5754=3600
C5755, 7777 / CLA MQA SCA MQL LSR +
C5756, 4005 / JMS C0005
DCA D0024 / @@5757=3024
AND I C0116 / @@5760=0516
C5761, 0405 / AND I C0005
AND I D0040 / @@5762=0440
AND D5601 / @@5763=0201
TAD I C5613 / @@5764=1613
ISZ D5740 / @@5765=2340
TAD I C5706 / @@5766=1706
C5767, 4015 / JMS AI5
AND I L0115 / @@5770=0515
TAD I C5722 / @@5771=1722
DCA D0140 / @@5772=3140
C5773, 2417 / ISZ I AI7
JMS S0002 / @@5774=4002
AND C0116 / @@5775=0116
TAD D5740 / @@5776=1340
AND L0000 / @@5777=0000
*7600
CLA CLL / AC = 0000 @@7600=7300
TAD C0155 / @@7601=1155
DCA L7777 / @@7602=3377
JMP L7777 / @@7603=5377
$
View Git Blame Copy Permalink