TITLE "AUTOMATIC DISASSEMBLY OF maindec-8i-d8ae-pb.bin BY D8TAPE" //////////////////////////////////////////////////////////////////////////////// / / Automatic Disassembly of maindec-8i-d8ae-pb.bin / Generated 2010 02 19 00:10:31 / 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 / / 0426 locations used, 0322 code and 0104 data //////////////////////////////////////////////////////////////////////////////// *0000 C0000, 0000 / AND C0000 L0001, D0001, 5001 / JMP L0001 D0002, 0002 / AND D0002 C0003, 0003 / AND C0003 *0010 AI0, 0000 / AUTO-INDEX REGISTER AND C0000 *0020 D0020, 0000 / AND C0000 D0021, 0000 / AND C0000 D0022, 0000 / AND C0000 C0023, 0023 / AND C0023 C0024, 0215 / AND AI5 C0025, 0212 / AND AI2 C0026, 0305 / AND C0105 C0027, 0322 / AND C0122 C0030, 0322 / AND C0122 C0031, 0317 / AND C0117 C0032, 0322 / AND C0122 AND C0040 / @@0033=0240 D0034, 0000 / AND C0000 C0035, C0035, 0423 / AND I C0023 C0036, C0036, 1400 / TAD I C0000 C0037, 1026 / TAD C0026 C0040, 7700 / SMA CLA C0041, 7774 / SPA SNA SZL CLA OSR C0042, 7770 / SPA SNA SZL CLA C0043, 0313 / AND C0113 C0044, 0340 / AND C0140 C0045, 0307 / AND C0107 D0046, 0000 / AND C0000 D0047, 0000 / AND C0000 SMA SZA SNL CLA / @@0050=7760 C0051, 5402 / JMP I D0002 C0052, 0240 / AND C0040 C0053, C0053, 1435 / TAD I C0035 C0054, C0054, 1522 / TAD I C0122 AND C0000 / @@0055=0000 *0176 NOP / @@0176=7000 CCFF / The flag, flag buffer, clock enable, @@0177=6132 TCF / Clear teleprinter flag. @@0200=6042 KCC / Clear AC and clear keyboard flag. @@0201=6032 RFB / Read the content of the reader buffe @@0202=6012 PCF / Clear punch flag and punch buffer. @@0203=6022 L0204, C0204, 6133 / CSCF JMP L0213 / @@0205=5213 JMS I C0036 / long call to S1400 @@0206=4436 AND L0001 / @@0207=0001 HLT / @@0210=7402 AND L0204 / @@0211=0204 AND C0234 / @@0212=0234 L0213, ISZ D0020 / @@0213=2020 JMP L0204 / @@0214=5204 STA / AC = 7777 (-0001) @@0215=7240 CECI / All clock control flip-flops are cle @@0216=6137 NOP / @@0217=7000 CLA CLL / AC = 0000 @@0220=7300 TAD C0051 / @@0221=1051 DCA L0001 / @@0222=3001 LAS / @@0223=7604 RTL / @@0224=7006 RTL / @@0225=7006 SMA CLA / @@0226=7700 JMP L0233 / @@0227=5233 CLA CLL IAC / AC = 0001 @@0230=7301 CECI / All clock control flip-flops are cle @@0231=6137 NOP / @@0232=7000 L0233, CLA CLL / AC = 0000 @@0233=7300 C0234, 1040 / TAD C0040 DCA D0021 / @@0235=3021 L0236, CSCF / When the flag flip-flop has been set @@0236=6133 SKP / @@0237=7410 JMP L0253 / @@0240=5253 ISZ D0020 / @@0241=2020 JMP L0236 / @@0242=5236 ISZ D0021 / @@0243=2021 JMP L0236 / @@0244=5236 JMP L0246 / @@0245=5246 L0246, JMS I C0036 / long call to S1400 @@0246=4436 AND C0003 / @@0247=0003 HLT / @@0250=7402 AND C0234 / @@0251=0234 AND L0253 / @@0252=0253 L0253, C0253, 7301 / CLA CLL IAC CECI / All clock control flip-flops are cle @@0254=6137 NOP / @@0255=7000 CLA CLL / AC = 0000 @@0256=7300 TAD C0040 / @@0257=1040 DCA D0021 / @@0260=3021 C0261, 1043 / TAD C0043 DCA D0002 / @@0262=3002 ION / Enable Interrupts @@0263=6001 L0264, ISZ D0020 / @@0264=2020 JMP L0264 / @@0265=5264 ISZ D0021 / @@0266=2021 JMP L0264 / @@0267=5264 IOF / Disable Interrupts @@0270=6002 JMS I C0036 / long call to S1400 @@0271=4436 C0272, 0004 / AND C0004 HLT / @@0273=7402 AND C0261 / @@0274=0261 AND L0277 / @@0275=0277 NOP / @@0276=7000 L0277, C0277, 6136 / CCEC TAD C0045 / @@0300=1045 DCA D0002 / @@0301=3002 ION / Enable Interrupts @@0302=6001 NOP / @@0303=7000 NOP / @@0304=7000 IOF / Disable Interrupts @@0305=6002 JMP L0326 / @@0306=5326 JMS I C0036 / long call to S1400 @@0307=4436 C0310, 0005 / AND C0005 HLT / @@0311=7402 AND L0277 / @@0312=0277 AND C0314 / @@0313=0314 C0314, 6133 / CSCF SKP / @@0315=7410 JMP L0277 / @@0316=5277 JMS I C0036 / long call to S1400 @@0317=4436 C0320, 0006 / AND C0006 HLT / @@0321=7402 AND C0314 / @@0322=0314 AND L0326 / @@0323=0326 ISZ D0020 / @@0324=2020 JMP L0326 / @@0325=5326 L0326, C0326, 6132 / CCFF TAD C0044 / @@0327=1044 DCA D0002 / @@0330=3002 ION / Enable Interrupts @@0331=6001 NOP / @@0332=7000 NOP / @@0333=7000 IOF / Disable Interrupts @@0334=6002 ISZ D0020 / @@0335=2020 JMP L0326 / @@0336=5326 JMP L0345 / @@0337=5345 JMS I C0036 / long call to S1400 @@0340=4436 C0341, 0007 / AND C0007 HLT / @@0342=7402 AND L0326 / @@0343=0326 AND L0345 / @@0344=0345 L0345, C0345, 6133 / CSCF JMP L0354 / @@0346=5354 JMS I C0036 / long call to S1400 @@0347=4436 AND AI0 / AUTO INDEX REGISTER @@0350=0010 HLT / @@0351=7402 AND L0345 / @@0352=0345 AND L0356 / @@0353=0356 L0354, ISZ D0020 / @@0354=2020 JMP L0356 / @@0355=5356 L0356, C0356, 5176 / JMP C0176 *0400 L0400, CLA CLL / AC = 0000 @@0400=7300 DCA D0046 / @@0401=3046 L0402, TAD D0046 / @@0402=1046 L0403, CCEC / All clock control flip-flops are fir @@0403=6136 CLA CLL / AC = 0000 @@0404=7300 CRCA / The output buffer is gated to the I/ @@0405=6134 DCA D0034 / @@0406=3034 TAD D0034 / @@0407=1034 IAC / @@0410=7001 TAD D0046 / @@0411=1046 SZA CLA / @@0412=7640 JMP L0417 / @@0413=5217 ISZ D0046 / @@0414=2046 JMP L0402 / @@0415=5202 JMP L0400 / @@0416=5200 L0417, JMS I C0035 / long call to S0423 @@0417=4435 C0420, 1456 / TAD I C0056 JMS S0440 / @@0421=4240 JMP L0403 / @@0422=5203 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0423 / / Called from: / 0417 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0423, 0 / return area TAD I S0423 / @@0424=1623 DCA D0047 / @@0425=3047 TAD I D0047 / @@0426=1447 DCA D0022 / @@0427=3022 TAD D0047 / @@0430=1047 DCA AI0 / AUTO INDEX REGISTER @@0431=3010 L0432, TAD I AI0 / AUTO INDEX REGISTER @@0432=1410 JMS I C0054 / long call to S1522 @@0433=4454 ISZ D0022 / @@0434=2022 JMP L0432 / @@0435=5232 ISZ S0423 / @@0436=2223 JMP I S0423 / return @@0437=5623 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S0440 / / Called from: / 0421 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S0440, 0 / return area TAD D0046 / @@0441=1046 JMS I C0053 / long call to S1435 @@0442=4453 TAD C0052 / @@0443=1052 JMS I C0054 / long call to S1522 @@0444=4454 TAD D0034 / @@0445=1034 JMS I C0053 / long call to S1435 @@0446=4453 JMP I S0440 / return @@0447=5640 *1400 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1400 / / Called from: / 0206 0246 0271 0307 0317 0340 0347 / Total 0007 (7) calls //////////////////////////////////////////////////////////////////////////////// S1400, 0 / return area LAS / @@1401=7604 RAL / @@1402=7004 SMA CLA / @@1403=7700 JMS S1421 / @@1404=4221 ISZ S1400 / @@1405=2200 LAS / @@1406=7604 SMA CLA / @@1407=7700 JMP I S1400 / return @@1410=5600 ISZ S1400 / @@1411=2200 C1412, 7604 / LAS RTL / @@1413=7006 SMA CLA / @@1414=7700 C1415, 2200 / ISZ S1400 TAD I S1400 / @@1416=1600 DCA S1400 / @@1417=3200 JMP I S1400 / return @@1420=5600 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1421 / / Called from: / 1404 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S1421, 0 / return area TAD C0023 / @@1422=1023 C1423, 3017 / DCA AI7 TAD C0042 / @@1424=1042 DCA D0022 / @@1425=3022 L1426, C1426, 1417 / TAD I AI7 JMS S1522 / @@1427=4322 ISZ D0022 / @@1430=2022 JMP L1426 / @@1431=5226 TAD I S1400 / @@1432=1600 JMS S1435 / @@1433=4235 JMP I S1421 / return @@1434=5621 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1435 / / Called from: / 0442 0446 1433 / Total 0003 (3) calls //////////////////////////////////////////////////////////////////////////////// S1435, 0 / return area DCA D0047 / @@1436=3047 TAD C0041 / @@1437=1041 C1440, 3021 / DCA D0021 L1441, TAD C0037 / @@1441=1037 L1442, DCA D0020 / @@1442=3020 TAD D0047 / @@1443=1047 RAL / @@1444=7004 DCA D0047 / @@1445=3047 TAD D0020 / @@1446=1020 RAL / @@1447=7004 SNL / @@1450=7420 JMP L1442 / @@1451=5242 JMS S1522 / @@1452=4322 ISZ D0021 / @@1453=2021 JMP L1441 / @@1454=5241 JMP I S1435 / return @@1455=5635 C1456, 7735 / CLA MQA MQL ASR + AND C1415 / @@1457=0215 AND C1412 / @@1460=0212 AND C1503 / @@1461=0303 AND C1514 / @@1462=0314 AND C1517 / @@1463=0317 AND C1503 / @@1464=0303 AND C1513 / @@1465=0313 AND C1440 / @@1466=0240 AND C1503 / @@1467=0303 AND C1517 / @@1470=0317 AND C1525 / @@1471=0325 AND C1516 / @@1472=0316 AND C1524 / @@1473=0324 AND C1505 / @@1474=0305 AND S1522 / @@1475=0322 AND C1440 / @@1476=0240 AND C1506 / @@1477=0306 AND C1501 / @@1500=0301 C1501, 0311 / AND C1511 AND C1514 / @@1502=0314 C1503, 0305 / AND C1505 C1504, 0304 / AND C1504 C1505, 0215 / AND C1415 C1506, 0212 / AND C1412 AND C1523 / @@1507=0323 AND C1505 / @@1510=0305 AND C1516 / @@1511=0316 AND C1524 / @@1512=0324 C1513, 0240 / AND C1440 C1514, 0322 / AND S1522 AND C1530 / @@1515=0330 C1516, 0305 / AND C1505 C1517, 0304 / AND C1504 AND C1415 / @@1520=0215 AND C1412 / @@1521=0212 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S1522 / / Called from: / 0433 0444 1427 1452 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S1522, 0 / return area C1523, 6046 / TLS C1524, 6041 / TSF C1525, 5324 / JMP C1524 TCF / Clear teleprinter flag. @@1526=6042 KCC / Clear AC and clear keyboard flag. @@1527=6032 C1530, 7300 / CLA CLL JMP I S1522 / return @@1531=5722 $