638 lines
38 KiB
Text
638 lines
38 KiB
Text
TITLE "AUTOMATIC DISASSEMBLY OF maindec-8e-d0db-pb.bin BY D8TAPE"
|
|
////////////////////////////////////////////////////////////////////////////////
|
|
/
|
|
/ Automatic Disassembly of maindec-8e-d0db-pb.bin
|
|
/ Generated 2010 02 19 00:10:30
|
|
/ 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
|
|
/
|
|
/ 0663 locations used, 0561 code and 0102 data
|
|
////////////////////////////////////////////////////////////////////////////////
|
|
|
|
*0200
|
|
|
|
*0000
|
|
L0000,
|
|
D0000, 0000 / AND L0000
|
|
L0001,
|
|
D0001, 5001 / JMP L0001
|
|
D0002, 0002 / AND D0002
|
|
D0003, 0003 / AND D0003
|
|
AND D0003 / @@0004=0003
|
|
D0005, 0000 / AND L0000
|
|
D0006, 0000 / AND L0000
|
|
D0007, 0000 / AND L0000
|
|
|
|
*0010
|
|
AI0, 0000 / AUTO-INDEX REGISTER AND L0000
|
|
|
|
*0020
|
|
D0020, 0000 / AND L0000
|
|
|
|
*0200
|
|
L0200,
|
|
C0200, 6007 / 6007
|
|
D0201, 1204 / TAD D0204
|
|
D0202, 3201 / DCA D0201
|
|
D0203, 4205 / JMS S0205
|
|
D0204, 5274 / JMP C0274
|
|
|
|
////////////////////////////////////////////////////////////////////////////////
|
|
/
|
|
/ SUBROUTINE: S0205
|
|
/
|
|
/ Called from:
|
|
/ 0255
|
|
/ Total 0001 (1) calls
|
|
////////////////////////////////////////////////////////////////////////////////
|
|
S0205,
|
|
0 / return area
|
|
TAD C0374 / @@0206=1374
|
|
DCA S0266 / @@0207=3266
|
|
TAD C0374 / @@0210=1374
|
|
DCA D0202 / @@0211=3202
|
|
DCA D0203 / @@0212=3203
|
|
JMS S0225 / @@0213=4225
|
|
JMP I S0205 / return @@0214=5605
|
|
|
|
////////////////////////////////////////////////////////////////////////////////
|
|
/
|
|
/ SUBROUTINE: S0215
|
|
/
|
|
/ Called from:
|
|
/ 0244 0353
|
|
/ Total 0002 (2) calls
|
|
////////////////////////////////////////////////////////////////////////////////
|
|
S0215,
|
|
0 / return area
|
|
TAD C0374 / @@0216=1374
|
|
DCA S0266 / @@0217=3266
|
|
DCA D0202 / @@0220=3202
|
|
TAD C0374 / @@0221=1374
|
|
DCA D0203 / @@0222=3203
|
|
JMS S0225 / @@0223=4225
|
|
JMP I S0215 / return @@0224=5615
|
|
|
|
////////////////////////////////////////////////////////////////////////////////
|
|
/
|
|
/ SUBROUTINE: S0225
|
|
/
|
|
/ Called from:
|
|
/ 0213 0223 0253 0264
|
|
/ Total 0004 (4) calls
|
|
////////////////////////////////////////////////////////////////////////////////
|
|
S0225,
|
|
0 / return area
|
|
L0226,
|
|
TAD I D0202 / @@0226=1602
|
|
DCA I D0203 / @@0227=3603
|
|
TAD I D0202 / @@0230=1602
|
|
CIA / @@0231=7041
|
|
TAD I D0203 / @@0232=1603
|
|
SZA CLA / @@0233=7640
|
|
HLT / @@0234=7402
|
|
ISZ D0202 / @@0235=2202
|
|
NOP / @@0236=7000
|
|
ISZ D0203 / @@0237=2203
|
|
NOP / @@0240=7000
|
|
ISZ S0266 / @@0241=2266
|
|
JMP L0226 / @@0242=5226
|
|
JMP I S0225 / return @@0243=5625
|
|
L0244,
|
|
JMS S0215 / @@0244=4215
|
|
TAD C0373 / @@0245=1373
|
|
DCA S0266 / @@0246=3266
|
|
TAD C0365 / @@0247=1365
|
|
DCA D0202 / @@0250=3202
|
|
TAD C0372 / @@0251=1372
|
|
DCA D0203 / @@0252=3203
|
|
JMS S0225 / @@0253=4225
|
|
JMP I C0372 / long jump to L6600 @@0254=5772
|
|
L0255,
|
|
JMS S0205 / @@0255=4205
|
|
TAD C0373 / @@0256=1373
|
|
DCA S0266 / @@0257=3266
|
|
TAD C0372 / @@0260=1372
|
|
DCA D0202 / @@0261=3202
|
|
TAD C0365 / @@0262=1365
|
|
DCA D0203 / @@0263=3203
|
|
JMS S0225 / @@0264=4225
|
|
JMP I C0365 / long jump to L0200 @@0265=5765
|
|
|
|
////////////////////////////////////////////////////////////////////////////////
|
|
/
|
|
/ SUBROUTINE: S0266
|
|
/
|
|
/ Called from:
|
|
/ 0276 0351 0361
|
|
/ Total 0003 (3) calls
|
|
////////////////////////////////////////////////////////////////////////////////
|
|
S0266,
|
|
0 / return area
|
|
CLA CLL CML RAR / AC = 4000 (-4000 = -2048 dec) @@0267=7330
|
|
TAD S0266 / @@0270=1266
|
|
SZL CLA / @@0271=7630
|
|
TAD C0371 / @@0272=1371
|
|
JMP I S0266 / return @@0273=5666
|
|
CLA CLL / AC = 0000 @@0274=7300
|
|
DCA D0202 / @@0275=3202
|
|
JMS S0266 / @@0276=4266
|
|
JMP L0377 / @@0277=5377
|
|
|
|
////////////////////////////////////////////////////////////////////////////////
|
|
/
|
|
/ SUBROUTINE: S0300
|
|
/
|
|
/ Called from:
|
|
/ 0315
|
|
/ Total 0001 (1) calls
|
|
////////////////////////////////////////////////////////////////////////////////
|
|
S0300,
|
|
0 / return area
|
|
CMA / @@0301=7040
|
|
DCA D0204 / @@0302=3204
|
|
MQA / @@0303=7501
|
|
CMA / @@0304=7040
|
|
MQL / @@0305=7421
|
|
TAD D0204 / @@0306=1204
|
|
MQA / @@0307=7501
|
|
CMA / @@0310=7040
|
|
JMP I S0300 / return @@0311=5700
|
|
|
|
////////////////////////////////////////////////////////////////////////////////
|
|
/
|
|
/ SUBROUTINE: S0312
|
|
/
|
|
/ Called from:
|
|
/ 0326 0346 0357
|
|
/ Total 0003 (3) calls
|
|
////////////////////////////////////////////////////////////////////////////////
|
|
S0312,
|
|
0 / return area
|
|
MQL / @@0313=7421
|
|
LAS / @@0314=7604
|
|
JMS S0300 / @@0315=4300
|
|
SNA CLA / @@0316=7650
|
|
ISZ S0312 / @@0317=2312
|
|
JMP I S0312 / return @@0320=5712
|
|
C0321,
|
|
C0321, 0000 / AND L0000
|
|
ISZ D0202 / @@0322=2202
|
|
JMP I C0321 / long jump to L0000 @@0323=5721
|
|
CLA CLL CML RTR / AC = 2000 (1024) @@0324=7332
|
|
RTR / @@0325=7012
|
|
JMS S0312 / @@0326=4312
|
|
JMP L0336 / @@0327=5336
|
|
TAD C0366 / @@0330=1366
|
|
JMS S0337 / @@0331=4337
|
|
TAD C0367 / @@0332=1367
|
|
JMS S0337 / @@0333=4337
|
|
TAD C0370 / @@0334=1370
|
|
JMS S0337 / @@0335=4337
|
|
L0336,
|
|
JMP L0345 / @@0336=5345
|
|
|
|
////////////////////////////////////////////////////////////////////////////////
|
|
/
|
|
/ SUBROUTINE: S0337
|
|
/
|
|
/ Called from:
|
|
/ 0331 0333 0335
|
|
/ Total 0003 (3) calls
|
|
////////////////////////////////////////////////////////////////////////////////
|
|
S0337,
|
|
0 / return area
|
|
TLS / Load the TTO from the content of AC4 @@0340=6046
|
|
L0341,
|
|
TSF / Skip if teleprinter flag is a 1. @@0341=6041
|
|
JMP L0341 / @@0342=5341
|
|
CLA / @@0343=7200
|
|
JMP I S0337 / return @@0344=5737
|
|
L0345,
|
|
CLA CLL CML RTR / AC = 2000 (1024) @@0345=7332
|
|
JMS S0312 / @@0346=4312
|
|
SKP / @@0347=7410
|
|
JMP L0355 / @@0350=5355
|
|
JMS S0266 / @@0351=4266
|
|
SNA CLA / @@0352=7650
|
|
JMS S0215 / @@0353=4215
|
|
HLT / @@0354=7402
|
|
L0355,
|
|
CLA CLL CML RTR / AC = 2000 (1024) @@0355=7332
|
|
RAR / @@0356=7010
|
|
JMS S0312 / @@0357=4312
|
|
JMP I C0321 / long jump to L0000 @@0360=5721
|
|
JMS S0266 / @@0361=4266
|
|
SNA CLA / @@0362=7650
|
|
JMP L0244 / @@0363=5244
|
|
JMP L0255 / @@0364=5255
|
|
C0365,
|
|
C0365, 0200 / AND L0200
|
|
C0366, 0215 / AND S0215
|
|
C0367, 0212 / AND C0212
|
|
C0370, 0301 / AND C0301
|
|
C0371, 6400 / 6400
|
|
C0372,
|
|
C0372, 6600 / 6600
|
|
C0373, 7000 / NOP
|
|
C0374, 7600 / 7600
|
|
|
|
*0377
|
|
L0377,
|
|
NOP / @@0377=7000
|
|
|
|
*0400
|
|
DCA D0437 / @@0400=3237
|
|
TAD C0442 / @@0401=1242
|
|
TAD D0437 / @@0402=1237
|
|
DCA AI0 / AUTO INDEX REGISTER @@0403=3010
|
|
TAD C0443 / @@0404=1243
|
|
TAD D0437 / @@0405=1237
|
|
DCA I AI0 / AUTO INDEX REGISTER @@0406=3410
|
|
TAD C0445 / @@0407=1245
|
|
TAD D0437 / @@0410=1237
|
|
DCA I AI0 / AUTO INDEX REGISTER @@0411=3410
|
|
TAD C0446 / @@0412=1246
|
|
TAD D0437 / @@0413=1237
|
|
DCA I AI0 / AUTO INDEX REGISTER @@0414=3410
|
|
TAD C0447 / @@0415=1247
|
|
TAD D0437 / @@0416=1237
|
|
DCA I AI0 / AUTO INDEX REGISTER @@0417=3410
|
|
TAD C0444 / @@0420=1244
|
|
TAD D0437 / @@0421=1237
|
|
DCA I AI0 / AUTO INDEX REGISTER @@0422=3410
|
|
TAD D0437 / @@0423=1237
|
|
SZA CLA / @@0424=7640
|
|
JMP L0433 / @@0425=5233
|
|
TAD C0440 / @@0426=1240
|
|
DCA I AI0 / AUTO INDEX REGISTER @@0427=3410
|
|
TAD C0450 / @@0430=1250
|
|
DCA I AI0 / AUTO INDEX REGISTER @@0431=3410
|
|
JMP L0577 / @@0432=5377
|
|
L0433,
|
|
DCA I AI0 / AUTO INDEX REGISTER @@0433=3410
|
|
TAD C0451 / @@0434=1251
|
|
DCA I AI0 / AUTO INDEX REGISTER @@0435=3410
|
|
JMP L0577 / @@0436=5377
|
|
D0437, 0000 / AND L0000
|
|
C0440, 0200 / AND C0400
|
|
NOP / @@0441=7000
|
|
C0442, 0753 / AND I C0553
|
|
C0443, 1000 / TAD L0000
|
|
C0444, 0321 / AND C0521
|
|
C0445, 0300 / AND C0500
|
|
C0446, 0712 / AND I C0512
|
|
C0447, 0312 / AND C0512
|
|
C0450, 6600 / 6600
|
|
C0451, 1201 / TAD C0401
|
|
|
|
*0577
|
|
L0577,
|
|
NOP / @@0577=7000
|
|
|
|
*0600
|
|
L0600,
|
|
CLA CLL / AC = 0000 @@0600=7300
|
|
TAD C0755 / @@0601=1355
|
|
DCA L0000 / @@0602=3000
|
|
IAC / @@0603=7001
|
|
JMS I C0757 / long call to S0000 @@0604=4757
|
|
JMP L0624 / @@0605=5224
|
|
TAD C0762 / @@0606=1362
|
|
DCA D0006 / @@0607=3006
|
|
TAD C0761 / @@0610=1361
|
|
DCA D0007 / @@0611=3007
|
|
JMS I C0754 / long call to S0000 @@0612=4754
|
|
DCA D0765 / @@0613=3365
|
|
TAD L0001 / @@0614=1001
|
|
DCA D0763 / @@0615=3363
|
|
TAD D0002 / @@0616=1002
|
|
DCA D0764 / @@0617=3364
|
|
TAD D0003 / @@0620=1003
|
|
DCA D0766 / @@0621=3366
|
|
TAD D0005 / @@0622=1005
|
|
DCA D0767 / @@0623=3367
|
|
L0624,
|
|
CLL IAC RAL / @@0624=7105
|
|
JMS I C0757 / long call to S0000 @@0625=4757
|
|
JMP L0634 / @@0626=5234
|
|
TAD D0770 / @@0627=1370
|
|
CLL RAL / @@0630=7104
|
|
SZL / @@0631=7430
|
|
TAD C0774 / @@0632=1374
|
|
DCA D0770 / @@0633=3370
|
|
L0634,
|
|
CLA CLL IAC RTL / AC = 0004 @@0634=7307
|
|
JMS I C0757 / long call to S0000 @@0635=4757
|
|
JMP L0644 / @@0636=5244
|
|
TAD D0771 / @@0637=1371
|
|
CLL RAL / @@0640=7104
|
|
SZL / @@0641=7430
|
|
TAD C0774 / @@0642=1374
|
|
DCA D0771 / @@0643=3371
|
|
L0644,
|
|
CLA CLL / AC = 0000 @@0644=7300
|
|
TAD D0763 / @@0645=1363
|
|
DCA I D0764 / @@0646=3764
|
|
TAD D0765 / @@0647=1365
|
|
SNA CLA / @@0650=7650
|
|
JMP L0667 / @@0651=5267
|
|
TAD D0766 / @@0652=1366
|
|
TAD C0775 / @@0653=1375
|
|
SZL CLA / @@0654=7630
|
|
JMP L0662 / @@0655=5262
|
|
TAD D0766 / @@0656=1366
|
|
TAD C0776 / @@0657=1376
|
|
SZL CLA / @@0660=7630
|
|
CMA / @@0661=7040
|
|
L0662,
|
|
TAD D0767 / @@0662=1367
|
|
DCA I D0766 / @@0663=3766
|
|
TAD D0770 / @@0664=1370
|
|
DCA I D0767 / @@0665=3767
|
|
JMP L0671 / @@0666=5271
|
|
L0667,
|
|
TAD D0770 / @@0667=1370
|
|
DCA I D0766 / @@0670=3766
|
|
L0671,
|
|
CLA CLL / AC = 0000 @@0671=7300
|
|
TAD D0770 / @@0672=1370
|
|
MQL / @@0673=7421
|
|
TAD D0771 / @@0674=1371
|
|
JMS I C0755 / long call to S0000 @@0675=4755
|
|
DCA D0772 / @@0676=3372
|
|
TAD C0756 / @@0677=1356
|
|
DCA L0000 / @@0700=3000
|
|
TAD D0764 / @@0701=1364
|
|
IAC / @@0702=7001
|
|
SNA / @@0703=7450
|
|
JMP L0600 / @@0704=5200
|
|
DCA D0753 / @@0705=3353
|
|
TAD C0773 / @@0706=1373
|
|
DCA I D0753 / @@0707=3753
|
|
TAD D0771 / @@0710=1371
|
|
JMP I D0764 / long jump to L0000 @@0711=5764
|
|
DCA D0777 / @@0712=3377
|
|
SZL / @@0713=7430
|
|
JMS S0724 / @@0714=4324
|
|
TAD D0772 / @@0715=1372
|
|
CIA / @@0716=7041
|
|
TAD D0777 / @@0717=1377
|
|
SZA CLA / @@0720=7640
|
|
JMS S0724 / @@0721=4324
|
|
JMS I C0760 / long call to S0000 @@0722=4760
|
|
JMP L0600 / @@0723=5200
|
|
|
|
////////////////////////////////////////////////////////////////////////////////
|
|
/
|
|
/ SUBROUTINE: S0724
|
|
/
|
|
/ Called from:
|
|
/ 0714 0721
|
|
/ Total 0002 (2) calls
|
|
////////////////////////////////////////////////////////////////////////////////
|
|
S0724,
|
|
0 / return area
|
|
CLA CLL CML RAR / AC = 4000 (-4000 = -2048 dec) @@0725=7330
|
|
JMS I C0757 / long call to S0000 @@0726=4757
|
|
JMP L0751 / @@0727=5351
|
|
TAD D0770 / @@0730=1370
|
|
HLT / @@0731=7402
|
|
CLA / @@0732=7200
|
|
TAD D0771 / @@0733=1371
|
|
HLT / @@0734=7402
|
|
CLA / @@0735=7200
|
|
TAD L0001 / @@0736=1001
|
|
HLT / @@0737=7402
|
|
CLA / @@0740=7200
|
|
TAD D0764 / @@0741=1364
|
|
HLT / @@0742=7402
|
|
CLA / @@0743=7200
|
|
TAD D0766 / @@0744=1366
|
|
HLT / @@0745=7402
|
|
CLA / @@0746=7200
|
|
TAD D0767 / @@0747=1367
|
|
HLT / @@0750=7402
|
|
L0751,
|
|
CLA CLL / AC = 0000 @@0751=7300
|
|
JMP I S0724 / return @@0752=5724
|
|
D0753, 0000 / AND L0000
|
|
C0754,
|
|
C0754, 0000 / AND L0000
|
|
C0755,
|
|
C0755, 0000 / AND L0000
|
|
C0756, 0000 / AND L0000
|
|
C0757,
|
|
C0757, 0000 / AND L0000
|
|
C0760,
|
|
C0760, 0000 / AND L0000
|
|
C0761, 0000 / AND L0000
|
|
C0762, 0000 / AND L0000
|
|
D0763, 0000 / AND L0000
|
|
D0764, 0000 / AND L0000
|
|
D0765, 0000 / AND L0000
|
|
D0766, 0000 / AND L0000
|
|
D0767, 0000 / AND L0000
|
|
D0770, 0021 / AND C0021
|
|
D0771, 0037 / AND C0037
|
|
D0772, 0000 / AND L0000
|
|
C0773, 5400 / JMP I L0000
|
|
C0774, 0003 / AND D0003
|
|
C0775, 7760 / SMA SZA SNL CLA
|
|
C0776, 7770 / SPA SNA SZL CLA
|
|
D0777, 0000 / AND L0000
|
|
|
|
*1000
|
|
C1000,
|
|
C1000, 0000 / AND L0000
|
|
L1001,
|
|
TAD D1167 / @@1001=1367
|
|
JMS S1140 / @@1002=4340
|
|
DCA D1167 / @@1003=3367
|
|
TAD D1167 / @@1004=1367
|
|
MQL / @@1005=7421
|
|
TAD D0007 / @@1006=1007
|
|
MQA / @@1007=7501
|
|
MQL / @@1010=7421
|
|
TAD C1171 / @@1011=1371
|
|
JMS I L0000 / long call to S0000 @@1012=4400
|
|
DCA L0001 / @@1013=3001
|
|
TAD L0001 / @@1014=1001
|
|
JMS S1154 / @@1015=4354
|
|
DCA D0020 / @@1016=3020
|
|
L1017,
|
|
TAD D1172 / @@1017=1372
|
|
JMS S1140 / @@1020=4340
|
|
DCA D1172 / @@1021=3372
|
|
JMS S1145 / @@1022=4345
|
|
TAD D1172 / @@1023=1372
|
|
SNL CLA / @@1024=7620
|
|
JMP L1017 / @@1025=5217
|
|
TAD D1172 / @@1026=1372
|
|
TAD C1173 / @@1027=1373
|
|
SNL CLA / @@1030=7620
|
|
JMP L1046 / @@1031=5246
|
|
TAD D0020 / @@1032=1020
|
|
CIA / @@1033=7041
|
|
TAD D1172 / @@1034=1372
|
|
L1035,
|
|
JMS S1161 / @@1035=4361
|
|
SMA CLA / @@1036=7700
|
|
JMP L1017 / @@1037=5217
|
|
L1040,
|
|
TAD D0020 / @@1040=1020
|
|
SNA CLA / @@1041=7650
|
|
JMP L1001 / @@1042=5201
|
|
TAD D1172 / @@1043=1372
|
|
DCA D0002 / @@1044=3002
|
|
JMP L1061 / @@1045=5261
|
|
L1046,
|
|
TAD L0001 / @@1046=1001
|
|
MQL / @@1047=7421
|
|
TAD C1176 / @@1050=1376
|
|
JMS I L0000 / long call to S0000 @@1051=4400
|
|
SNA CLA / @@1052=7650
|
|
JMP L1040 / @@1053=5240
|
|
TAD D1172 / @@1054=1372
|
|
JMS S1154 / @@1055=4354
|
|
CIA / @@1056=7041
|
|
TAD D0020 / @@1057=1020
|
|
JMP L1035 / @@1060=5235
|
|
L1061,
|
|
TAD L0001 / @@1061=1001
|
|
MQL / @@1062=7421
|
|
TAD C1176 / @@1063=1376
|
|
JMS I L0000 / long call to S0000 @@1064=4400
|
|
SNA CLA / @@1065=7650
|
|
JMP L1106 / @@1066=5306
|
|
TAD D0002 / @@1067=1002
|
|
MQL / @@1070=7421
|
|
TAD C1173 / @@1071=1373
|
|
JMS I L0000 / long call to S0000 @@1072=4400
|
|
MQL / @@1073=7421
|
|
TAD D0020 / @@1074=1020
|
|
MQA / @@1075=7501
|
|
DCA D0003 / @@1076=3003
|
|
L1077,
|
|
TAD L0001 / @@1077=1001
|
|
MQL / @@1100=7421
|
|
TAD C1175 / @@1101=1375
|
|
JMS I L0000 / long call to S0000 @@1102=4400
|
|
SZA CLA / @@1103=7640
|
|
JMP L1111 / @@1104=5311
|
|
JMP I C1000 / long jump to L0000 @@1105=5600
|
|
L1106,
|
|
TAD D0020 / @@1106=1020
|
|
DCA D0003 / @@1107=3003
|
|
JMP L1077 / @@1110=5277
|
|
L1111,
|
|
TAD D1177 / @@1111=1377
|
|
JMS S1140 / @@1112=4340
|
|
DCA D1177 / @@1113=3377
|
|
JMS S1145 / @@1114=4345
|
|
TAD D1177 / @@1115=1377
|
|
SNL CLA / @@1116=7620
|
|
JMP L1111 / @@1117=5311
|
|
TAD D0002 / @@1120=1002
|
|
CIA / @@1121=7041
|
|
TAD D1177 / @@1122=1377
|
|
JMS S1161 / @@1123=4361
|
|
SMA CLA / @@1124=7700
|
|
JMP L1111 / @@1125=5311
|
|
TAD D0003 / @@1126=1003
|
|
CIA / @@1127=7041
|
|
TAD D1177 / @@1130=1377
|
|
JMS S1161 / @@1131=4361
|
|
SMA CLA / @@1132=7700
|
|
JMP L1111 / @@1133=5311
|
|
TAD D1177 / @@1134=1377
|
|
DCA D0005 / @@1135=3005
|
|
CMA / @@1136=7040
|
|
JMP I C1000 / long jump to L0000 @@1137=5600
|
|
|
|
////////////////////////////////////////////////////////////////////////////////
|
|
/
|
|
/ SUBROUTINE: S1140
|
|
/
|
|
/ Called from:
|
|
/ 1002 1020 1112
|
|
/ Total 0003 (3) calls
|
|
////////////////////////////////////////////////////////////////////////////////
|
|
S1140,
|
|
0 / return area
|
|
CLL RAL / @@1141=7104
|
|
SZL / @@1142=7430
|
|
TAD C1170 / @@1143=1370
|
|
JMP I S1140 / return @@1144=5740
|
|
|
|
////////////////////////////////////////////////////////////////////////////////
|
|
/
|
|
/ SUBROUTINE: S1145
|
|
/
|
|
/ Called from:
|
|
/ 1022 1114
|
|
/ Total 0002 (2) calls
|
|
////////////////////////////////////////////////////////////////////////////////
|
|
S1145,
|
|
0 / return area
|
|
TAD D0007 / @@1146=1007
|
|
CLL / @@1147=7100
|
|
SNA CLA / @@1150=7650
|
|
CML / @@1151=7020
|
|
TAD D0006 / @@1152=1006
|
|
JMP I S1145 / return @@1153=5745
|
|
|
|
////////////////////////////////////////////////////////////////////////////////
|
|
/
|
|
/ SUBROUTINE: S1154
|
|
/
|
|
/ Called from:
|
|
/ 1015 1055
|
|
/ Total 0002 (2) calls
|
|
////////////////////////////////////////////////////////////////////////////////
|
|
S1154,
|
|
0 / return area
|
|
MQL / @@1155=7421
|
|
TAD C1174 / @@1156=1374
|
|
JMS I L0000 / long call to S0000 @@1157=4400
|
|
JMP I S1154 / return @@1160=5754
|
|
|
|
////////////////////////////////////////////////////////////////////////////////
|
|
/
|
|
/ SUBROUTINE: S1161
|
|
/
|
|
/ Called from:
|
|
/ 1035 1123 1131
|
|
/ Total 0003 (3) calls
|
|
////////////////////////////////////////////////////////////////////////////////
|
|
S1161,
|
|
0 / return area
|
|
SMA / @@1162=7500
|
|
CIA / @@1163=7041
|
|
IAC / @@1164=7001
|
|
IAC / @@1165=7001
|
|
JMP I S1161 / return @@1166=5761
|
|
D1167, 0001 / AND L0001
|
|
C1170, 0003 / AND D0003
|
|
C1171, 0777 / AND I D1177
|
|
D1172, 0005 / AND D0005
|
|
C1173, 7600 / 7600
|
|
C1174, 0177 / AND C0177
|
|
C1175, 0400 / AND I L0000
|
|
C1176, 0200 / AND C1000
|
|
D1177, 0015 / AND AI5
|
|
|
|
$
|