TITLE "AUTOMATIC DISASSEMBLY OF dec-d8-sba1-pb.bin BY D8TAPE" //////////////////////////////////////////////////////////////////////////////// / / Automatic Disassembly of dec-d8-sba1-pb.bin / Generated 2010 02 19 00:10:17 / 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 / / 0202 locations used, 0137 code and 0043 data //////////////////////////////////////////////////////////////////////////////// *0200 *1314 C1314, 6246 / 6246 C1315, 2030 / ISZ C0030 C1316, 3700 / DCA I C1300 C1317, 0000 / AND C0000 *5200 C5200, 0077 / AND C0077 CLA / @@5201=7200 C5202, C5202, 7400 / CLA / @@5203=7200 / @@5204=7400 TAD C5376 / @@5205=1376 DCA D5227 / @@5206=3227 TAD C5373 / @@5207=1373 DCA D5233 / @@5210=3233 TAD C5241 / @@5211=1241 JMS S5225 / @@5212=4225 TAD C5241 / @@5213=1241 IAC / @@5214=7001 JMS S5225 / @@5215=4225 TAD C5352 / @@5216=1352 DCA D5233 / @@5217=3233 IAC / @@5220=7001 JMS S5225 / @@5221=4225 CLA CLL CML RTL / AC = 0002 @@5222=7326 JMS S5225 / @@5223=4225 JMP I C5202 / long jump to L7400 @@5224=5602 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S5225 / / Called from: / 5212 5215 5221 5223 / Total 0004 (4) calls //////////////////////////////////////////////////////////////////////////////// S5225, 0 / return area DCA D5234 / @@5226=3234 D5227, 1601 / TAD I C5201 ISZ D5227 / @@5230=2227 DCA D5235 / @@5231=3235 JMS S5242 / @@5232=4242 D5233, 0000 / AND C0000 D5234, 0000 / AND C0000 D5235, 0000 / AND C0000 D5236, 0000 / AND C0000 HLT / @@5237=7402 JMP I S5225 / return @@5240=5625 C5241, 0000 / AND C0000 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S5242 / / Called from: / 5232 / Total 0001 (1) calls //////////////////////////////////////////////////////////////////////////////// S5242, 0 / return area STA / AC = 7777 (-0001) @@5243=7240 DCA D5377 / @@5244=3377 TAD I S5242 / @@5245=1642 AND C5357 / @@5246=0357 DCA D5236 / @@5247=3236 TAD I S5242 / @@5250=1642 AND C5374 / @@5251=0374 TAD C5375 / @@5252=1375 DCA D5362 / @@5253=3362 TAD I S5242 / @@5254=1642 CLL RTL / @@5255=7106 RAL / @@5256=7004 C5257, 7600 / 7600 TAD I S5242 / @@5260=1642 ISZ S5242 / @@5261=2242 C5262, 0200 / AND C5200 DCA D5233 / @@5263=3233 TAD I S5242 / @@5264=1642 ISZ S5242 / @@5265=2242 DCA D5234 / @@5266=3234 TAD I S5242 / @@5267=1642 DCA D5235 / @@5270=3235 TAD S5242 / @@5271=1242 SZL / @@5272=7430 STA / AC = 7777 (-0001) @@5273=7240 DCA D5353 / @@5274=3353 ISZ S5242 / @@5275=2242 ISZ S5242 / @@5276=2242 TAD I S5242 / @@5277=1642 SZL / @@5300=7430 DCA S5242 / @@5301=3242 L5302, STA / AC = 7777 (-0001) @@5302=7240 TAD D5235 / @@5303=1235 C5304, 3351 / DCA C5351 TAD D5233 / @@5305=1233 DEAL / The disk extended-address extension @@5306=6615 TAD C5356 / @@5307=1356 DCA S5360 / @@5310=3360 DCA D5355 / @@5311=3355 TAD D5234 / @@5312=1234 DCA D5354 / @@5313=3354 L5314, TAD D5354 / @@5314=1354 CLL RAL / @@5315=7104 DCA D5354 / @@5316=3354 TAD D5355 / @@5317=1355 RAL / @@5320=7004 DCA D5355 / @@5321=3355 ISZ S5360 / @@5322=2360 JMP L5314 / @@5323=5314 TAD D5354 / @@5324=1354 TAD D5234 / @@5325=1234 DCA D5354 / @@5326=3354 SZL / @@5327=7430 ISZ D5355 / @@5330=2355 TAD D5236 / @@5331=1236 TAD D5355 / @@5332=1355 C5333, 6643 / 6643 TAD C5257 / @@5334=1257 C5335, 3350 / DCA C5350 JMS S5360 / @@5336=4360 CMA / @@5337=7040 C5340, 3350 / DCA C5350 TAD D5353 / @@5341=1353 C5342, 3351 / DCA C5351 TAD C5262 / @@5343=1262 JMS S5360 / @@5344=4360 ISZ S5242 / @@5345=2242 DCMA / Clears memory address register, pari @@5346=6601 JMP I S5242 / return @@5347=5642 *5352 C5352, 0003 / AND C0003 D5353, 0000 / AND C0000 D5354, 0000 / AND C0000 D5355, 0000 / AND C0000 C5356, 7771 / CLA MQA SCA MQL NMI C5357, 0700 / AND I C5300 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S5360 / / Called from: / 5336 5344 / Total 0002 (2) calls //////////////////////////////////////////////////////////////////////////////// S5360, 0 / return area TAD D5354 / @@5361=1354 D5362, 0000 / AND C0000 L5363, C5363, 6622 / 6622 JMP L5363 / @@5364=5363 DEAL / The disk extended-address extension @@5365=6615 DFSE / Skip next instruction if the complet @@5366=6621 JMP I S5360 / return @@5367=5760 ISZ D5377 / @@5370=2377 JMP I S5242 / return @@5371=5642 JMP L5302 / @@5372=5302 C5373, 0005 / AND C0005 C5374, 0007 / AND C0007 C5375, 6600 / 6600 C5376, 1201 / TAD C5201 D5377, 0000 / AND C0000 $