376 lines
23 KiB
Text
376 lines
23 KiB
Text
TITLE "AUTOMATIC DISASSEMBLY OF maindec-8e-d0gc-pb.bin BY D8TAPE"
|
|
////////////////////////////////////////////////////////////////////////////////
|
|
/
|
|
/ Automatic Disassembly of maindec-8e-d0gc-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
|
|
/
|
|
/ 0405 locations used, 0324 code and 0061 data
|
|
////////////////////////////////////////////////////////////////////////////////
|
|
|
|
*0200
|
|
|
|
*0000
|
|
L0000,
|
|
C0000, 0000 / AND L0000
|
|
L0001,
|
|
C0001, 5001 / JMP L0001
|
|
C0002, 0002 / AND C0002
|
|
C0003, 0003 / AND C0003
|
|
AND L0000 / @@0004=0000
|
|
AND L0000 / @@0005=0000
|
|
D0006, 7771 / CLA MQA SCA MQL NMI
|
|
C0007,
|
|
C0007, 0400 / AND I L0000
|
|
AI0, 0000 / AUTO-INDEX REGISTER AND L0000
|
|
AI1, 0000 / AUTO-INDEX REGISTER AND L0000
|
|
AI2, 0300 / AUTO-INDEX REGISTER AND C0100
|
|
AI3, 0207 / AUTO-INDEX REGISTER AND C0007
|
|
AI4, 0003 / AUTO-INDEX REGISTER AND C0003
|
|
|
|
*0020
|
|
L0020,
|
|
TAD C0175 / @@0020=1175
|
|
DCA AI0 / AUTO INDEX REGISTER @@0021=3010
|
|
L0022,
|
|
DCA I AI0 / AUTO INDEX REGISTER @@0022=3410
|
|
TAD AI0 / AUTO INDEX REGISTER @@0023=1010
|
|
CIA / @@0024=7041
|
|
TAD C0174 / @@0025=1174
|
|
SZA CLA / @@0026=7640
|
|
JMP L0022 / @@0027=5022
|
|
L0030,
|
|
LAS / @@0030=7604
|
|
RTL / @@0031=7006
|
|
SPA / @@0032=7510
|
|
JMP L0052 / @@0033=5052
|
|
L0034,
|
|
JMS S0154 / @@0034=4154
|
|
DCA D0167 / @@0035=3167
|
|
TAD D0167 / @@0036=1167
|
|
SPA / @@0037=7510
|
|
JMP L0046 / @@0040=5046
|
|
CIA / @@0041=7041
|
|
TAD C0175 / @@0042=1175
|
|
SPA CLA / @@0043=7710
|
|
JMP L0052 / @@0044=5052
|
|
JMP L0034 / @@0045=5034
|
|
L0046,
|
|
CIA / @@0046=7041
|
|
TAD C0174 / @@0047=1174
|
|
SPA CLA / @@0050=7710
|
|
JMP L0034 / @@0051=5034
|
|
L0052,
|
|
LAS / @@0052=7604
|
|
RTL / @@0053=7006
|
|
RAL / @@0054=7004
|
|
SPA / @@0055=7510
|
|
JMP L0075 / @@0056=5075
|
|
L0057,
|
|
JMS S0154 / @@0057=4154
|
|
DCA D0166 / @@0060=3166
|
|
TAD D0166 / @@0061=1166
|
|
SPA / @@0062=7510
|
|
JMP L0071 / @@0063=5071
|
|
CIA / @@0064=7041
|
|
TAD C0175 / @@0065=1175
|
|
SPA CLA / @@0066=7710
|
|
JMP L0075 / @@0067=5075
|
|
JMP L0057 / @@0070=5057
|
|
L0071,
|
|
CIA / @@0071=7041
|
|
TAD C0174 / @@0072=1174
|
|
SPA CLA / @@0073=7710
|
|
JMP L0057 / @@0074=5057
|
|
L0075,
|
|
LAS / @@0075=7604
|
|
RTL / @@0076=7006
|
|
RTL / @@0077=7006
|
|
C0100, 7710 / SPA CLA
|
|
JMP L0104 / @@0101=5104
|
|
JMS S0154 / @@0102=4154
|
|
DCA D0170 / @@0103=3170
|
|
L0104,
|
|
TAD D0167 / @@0104=1167
|
|
CIA / @@0105=7041
|
|
TAD D0166 / @@0106=1166
|
|
SNA / @@0107=7450
|
|
JMP L0030 / @@0110=5030
|
|
CIA / @@0111=7041
|
|
CMA / @@0112=7040
|
|
SNA CLA / @@0113=7650
|
|
JMP L0030 / @@0114=5030
|
|
TAD C0171 / @@0115=1171
|
|
DCA I D0167 / @@0116=3567
|
|
TAD D0167 / @@0117=1167
|
|
IAC / @@0120=7001
|
|
DCA D0173 / @@0121=3173
|
|
TAD C0172 / @@0122=1172
|
|
DCA I D0173 / @@0123=3573
|
|
TAD D0170 / @@0124=1170
|
|
NOP / @@0125=7000
|
|
JMP I D0167 / long jump to L3001 @@0126=5567
|
|
HLT / @@0127=7402
|
|
TAD I D0166 / @@0130=1566
|
|
CIA / @@0131=7041
|
|
TAD D0170 / @@0132=1170
|
|
SZA CLA / @@0133=7640
|
|
JMS I C0177 / long call to S0201 @@0134=4577
|
|
DCA I D0166 / @@0135=3566
|
|
DCA I D0167 / @@0136=3567
|
|
DCA I D0173 / @@0137=3573
|
|
TAD AI1 / AUTO INDEX REGISTER @@0140=1011
|
|
IAC / @@0141=7001
|
|
DCA AI1 / AUTO INDEX REGISTER @@0142=3011
|
|
TAD AI1 / AUTO INDEX REGISTER @@0143=1011
|
|
TAD AI2 / AUTO INDEX REGISTER @@0144=1012
|
|
SZA CLA / @@0145=7640
|
|
JMP L0030 / @@0146=5030
|
|
DCA AI1 / AUTO INDEX REGISTER @@0147=3011
|
|
ISZ D0006 / @@0150=2006
|
|
JMP L0030 / @@0151=5030
|
|
JMS I C0007 / long call to S0400 @@0152=4407
|
|
JMP L0030 / @@0153=5030
|
|
|
|
////////////////////////////////////////////////////////////////////////////////
|
|
/
|
|
/ SUBROUTINE: S0154
|
|
/
|
|
/ Called from:
|
|
/ 0034 0057 0102
|
|
/ Total 0003 (3) calls
|
|
////////////////////////////////////////////////////////////////////////////////
|
|
S0154,
|
|
0 / return area
|
|
CLA / @@0155=7200
|
|
TAD D0165 / @@0156=1165
|
|
CLL RAL / @@0157=7104
|
|
SZL / @@0160=7430
|
|
TAD AI4 / AUTO INDEX REGISTER @@0161=1014
|
|
DCA D0165 / @@0162=3165
|
|
TAD D0165 / @@0163=1165
|
|
JMP I S0154 / return @@0164=5554
|
|
D0165, 2525 / ISZ I C0125
|
|
D0166, 3000 / DCA L0000
|
|
D0167, 3001 / DCA L0001
|
|
D0170, 2525 / ISZ I C0125
|
|
C0171, 3566 / DCA I D0166
|
|
C0172, 5130 / JMP C0130
|
|
D0173, 3002 / DCA C0002
|
|
C0174, 7600 / 7600
|
|
C0175, 0410 / AND I AI0
|
|
D0176, 0000 / AND L0000
|
|
C0177,
|
|
C0177, 0201 / AND L0001
|
|
|
|
*0200
|
|
JMP L0020 / @@0200=5020
|
|
|
|
////////////////////////////////////////////////////////////////////////////////
|
|
/
|
|
/ SUBROUTINE: S0201
|
|
/
|
|
/ Called from:
|
|
/ 0134
|
|
/ Total 0001 (1) calls
|
|
////////////////////////////////////////////////////////////////////////////////
|
|
S0201,
|
|
0 / return area
|
|
LAS / @@0202=7604
|
|
RAL / @@0203=7004
|
|
SPA CLA / @@0204=7710
|
|
JMP I S0201 / return @@0205=5601
|
|
JMS S0265 / @@0206=4265
|
|
TAD C0175 / @@0207=1175
|
|
DCA AI0 / AUTO INDEX REGISTER @@0210=3010
|
|
L0211,
|
|
TAD I AI0 / AUTO INDEX REGISTER @@0211=1410
|
|
SZA CLA / @@0212=7640
|
|
JMS S0233 / @@0213=4233
|
|
TAD AI0 / AUTO INDEX REGISTER @@0214=1010
|
|
CIA / @@0215=7041
|
|
TAD C0174 / @@0216=1174
|
|
SZA CLA / @@0217=7640
|
|
JMP L0211 / @@0220=5211
|
|
TAD C0374 / @@0221=1374
|
|
JMS S0351 / @@0222=4351
|
|
TAD C0375 / @@0223=1375
|
|
JMS S0351 / @@0224=4351
|
|
TAD C0376 / @@0225=1376
|
|
JMS S0351 / @@0226=4351
|
|
LAS / @@0227=7604
|
|
SMA CLA / @@0230=7700
|
|
HLT / @@0231=7402
|
|
JMP I S0201 / return @@0232=5601
|
|
|
|
////////////////////////////////////////////////////////////////////////////////
|
|
/
|
|
/ SUBROUTINE: S0233
|
|
/
|
|
/ Called from:
|
|
/ 0213
|
|
/ Total 0001 (1) calls
|
|
////////////////////////////////////////////////////////////////////////////////
|
|
S0233,
|
|
0 / return area
|
|
TAD AI0 / AUTO INDEX REGISTER @@0234=1010
|
|
CIA / @@0235=7041
|
|
TAD D0167 / @@0236=1167
|
|
SNA CLA / @@0237=7650
|
|
JMP I S0233 / return @@0240=5633
|
|
TAD AI0 / AUTO INDEX REGISTER @@0241=1010
|
|
CIA / @@0242=7041
|
|
TAD D0173 / @@0243=1173
|
|
SNA CLA / @@0244=7650
|
|
JMP I S0233 / return @@0245=5633
|
|
TAD C0372 / @@0246=1372
|
|
JMS S0351 / @@0247=4351
|
|
TAD AI0 / AUTO INDEX REGISTER @@0250=1010
|
|
C0251, 4310 / JMS L0310
|
|
TAD AI0 / AUTO INDEX REGISTER @@0252=1010
|
|
DCA D0176 / @@0253=3176
|
|
TAD C0373 / @@0254=1373
|
|
JMS S0351 / @@0255=4351
|
|
TAD I D0176 / @@0256=1576
|
|
C0257, 4310 / JMS L0310
|
|
TAD C0375 / @@0260=1375
|
|
JMS S0351 / @@0261=4351
|
|
TAD C0376 / @@0262=1376
|
|
JMS S0351 / @@0263=4351
|
|
JMP I S0233 / return @@0264=5633
|
|
|
|
////////////////////////////////////////////////////////////////////////////////
|
|
/
|
|
/ SUBROUTINE: S0265
|
|
/
|
|
/ Called from:
|
|
/ 0206
|
|
/ Total 0001 (1) calls
|
|
////////////////////////////////////////////////////////////////////////////////
|
|
S0265,
|
|
0 / return area
|
|
CLA / @@0266=7200
|
|
TAD C0367 / @@0267=1367
|
|
JMS S0351 / @@0270=4351
|
|
TAD D0167 / @@0271=1167
|
|
C0272, 4310 / JMS L0310
|
|
TAD C0371 / @@0273=1371
|
|
JMS S0351 / @@0274=4351
|
|
TAD D0166 / @@0275=1166
|
|
C0276, 4310 / JMS L0310
|
|
TAD C0377 / @@0277=1377
|
|
JMS S0351 / @@0300=4351
|
|
TAD D0170 / @@0301=1170
|
|
C0302, 4310 / JMS L0310
|
|
TAD C0375 / @@0303=1375
|
|
JMS S0351 / @@0304=4351
|
|
TAD C0376 / @@0305=1376
|
|
JMS S0351 / @@0306=4351
|
|
JMP I S0265 / return @@0307=5665
|
|
L0310,
|
|
C0310,
|
|
C0310, 5310 / JMP L0310
|
|
DCA D0366 / @@0311=3366
|
|
TAD D0366 / @@0312=1366
|
|
RTR / @@0313=7012
|
|
RAR / @@0314=7010
|
|
DCA D0365 / @@0315=3365
|
|
TAD D0365 / @@0316=1365
|
|
RTR / @@0317=7012
|
|
RAR / @@0320=7010
|
|
DCA D0364 / @@0321=3364
|
|
TAD D0364 / @@0322=1364
|
|
RTR / @@0323=7012
|
|
RAR / @@0324=7010
|
|
DCA D0363 / @@0325=3363
|
|
TAD C0370 / @@0326=1370
|
|
JMS S0351 / @@0327=4351
|
|
TAD C0357 / @@0330=1357
|
|
DCA D0360 / @@0331=3360
|
|
L0332,
|
|
TAD D0363 / @@0332=1363
|
|
AND C0361 / @@0333=0361
|
|
TAD C0362 / @@0334=1362
|
|
JMS S0351 / @@0335=4351
|
|
TAD D0364 / @@0336=1364
|
|
DCA D0363 / @@0337=3363
|
|
TAD D0365 / @@0340=1365
|
|
DCA D0364 / @@0341=3364
|
|
TAD D0366 / @@0342=1366
|
|
DCA D0365 / @@0343=3365
|
|
ISZ D0360 / @@0344=2360
|
|
JMP L0332 / @@0345=5332
|
|
TAD C0370 / @@0346=1370
|
|
JMS S0351 / @@0347=4351
|
|
JMP I L0310 / long jump to L5310 @@0350=5710
|
|
|
|
////////////////////////////////////////////////////////////////////////////////
|
|
/
|
|
/ SUBROUTINE: S0351
|
|
/
|
|
/ Called from:
|
|
/ 0222 0224 0226 0247 0255 0261 0263 0270 0274 0300 0304 0306 0327 0335 0347
|
|
/
|
|
/ Total 0017 (15) calls
|
|
////////////////////////////////////////////////////////////////////////////////
|
|
S0351,
|
|
0 / return area
|
|
TLS / Load the TTO from the content of AC4 @@0352=6046
|
|
L0353,
|
|
TSF / Skip if teleprinter flag is a 1. @@0353=6041
|
|
JMP L0353 / @@0354=5353
|
|
CLA / @@0355=7200
|
|
JMP I S0351 / return @@0356=5751
|
|
C0357, 7774 / SPA SNA SZL CLA OSR
|
|
D0360, 0000 / AND L0000
|
|
C0361, 0007 / AND C0007
|
|
C0362, 0260 / AND C0260
|
|
D0363, 0000 / AND L0000
|
|
D0364, 0000 / AND L0000
|
|
D0365, 0000 / AND L0000
|
|
D0366, 0000 / AND L0000
|
|
C0367, 0306 / AND C0306
|
|
C0370, 0240 / AND C0240
|
|
C0371, 0301 / AND C0301
|
|
C0372, 0314 / AND C0314
|
|
C0373, 0303 / AND C0303
|
|
C0374, 0305 / AND C0305
|
|
C0375, 0215 / AND C0215
|
|
C0376, 0212 / AND C0212
|
|
C0377, 0317 / AND C0317
|
|
|
|
*0400
|
|
|
|
////////////////////////////////////////////////////////////////////////////////
|
|
/
|
|
/ SUBROUTINE: S0400
|
|
/
|
|
/ Called from:
|
|
/ 0152
|
|
/ Total 0001 (1) calls
|
|
////////////////////////////////////////////////////////////////////////////////
|
|
S0400,
|
|
0 / return area
|
|
TAD C0407 / @@0401=1207
|
|
DCA D0006 / @@0402=3006
|
|
TAD AI3 / AUTO INDEX REGISTER @@0403=1013
|
|
TLS / Load the TTO from the content of AC4 @@0404=6046
|
|
CLA / @@0405=7200
|
|
JMP I S0400 / return @@0406=5600
|
|
C0407, 7771 / CLA MQA SCA MQL NMI
|
|
|
|
$
|