TITLE "AUTOMATIC DISASSEMBLY OF decus-8-214.bin BY D8TAPE" //////////////////////////////////////////////////////////////////////////////// / / Automatic Disassembly of decus-8-214.bin / Generated 2010 02 19 00:10:21 / 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 / / 0135 locations used, 0113 code and 0022 data //////////////////////////////////////////////////////////////////////////////// *5000 C5000, C5000, 0000 / AND L0000 SMA / @@5001=7500 JMP L5011 / @@5002=5211 CIA / @@5003=7041 DCA D5115 / @@5004=3315 TLS / Load the TTO from the content of AC4 @@5005=6046 TAD C5116 / @@5006=1316 JMS S5107 / @@5007=4307 JMP L5015 / @@5010=5215 L5011, DCA D5115 / @@5011=3315 TLS / Load the TTO from the content of AC4 @@5012=6046 TAD C5117 / @@5013=1317 JMS S5107 / @@5014=4307 L5015, TAD C5120 / @@5015=1320 DCA D5121 / @@5016=3321 TAD C5123 / @@5017=1323 DCA D5124 / @@5020=3324 TAD C5125 / @@5021=1325 DCA D5126 / @@5022=3326 TAD C5122 / @@5023=1322 TAD D5115 / @@5024=1315 JMP L5030 / @@5025=5230 L5026, TAD D5115 / @@5026=1315 L5027, TAD D5124 / @@5027=1324 L5030, SMA / @@5030=7500 JMP L5062 / @@5031=5262 ISZ D5126 / @@5032=2326 JMP L5027 / @@5033=5227 TAD D5124 / @@5034=1324 DCA D5115 / @@5035=3315 TAD D5121 / @@5036=1321 SZA CLA / @@5037=7640 JMP L5044 / @@5040=5244 TAD C5127 / @@5041=1327 JMS S5107 / @@5042=4307 JMP L5046 / @@5043=5246 L5044, TAD C5117 / @@5044=1317 JMS S5107 / @@5045=4307 L5046, TAD D5124 / @@5046=1324 TAD C5130 / @@5047=1330 SNA CLA / @@5050=7650 JMP L5071 / @@5051=5271 TAD D5124 / @@5052=1324 TAD C5131 / @@5053=1331 SNA CLA / @@5054=7650 JMP L5101 / @@5055=5301 TAD C5127 / @@5056=1327 TAD D5115 / @@5057=1315 JMS S5107 / @@5060=4307 JMP I C5000 / long jump to L0000 @@5061=5600 L5062, DCA D5115 / @@5062=3315 DCA D5121 / @@5063=3321 TAD D5126 / @@5064=1326 CIA / @@5065=7041 TAD C5127 / @@5066=1327 JMS S5107 / @@5067=4307 JMP L5046 / @@5070=5246 L5071, TAD C5130 / @@5071=1330 TAD D5115 / @@5072=1315 DCA D5115 / @@5073=3315 TAD C5132 / @@5074=1332 DCA D5124 / @@5075=3324 L5076, TAD C5133 / @@5076=1333 DCA D5126 / @@5077=3326 JMP L5026 / @@5100=5226 L5101, TAD C5131 / @@5101=1331 TAD D5115 / @@5102=1315 DCA D5115 / @@5103=3315 TAD C5134 / @@5104=1334 DCA D5124 / @@5105=3324 JMP L5076 / @@5106=5276 //////////////////////////////////////////////////////////////////////////////// / / SUBROUTINE: S5107 / / Called from: / 5007 5014 5042 5045 5060 5067 / Total 0006 (6) calls //////////////////////////////////////////////////////////////////////////////// S5107, 0 / return area L5110, TSF / Skip if teleprinter flag is a 1. @@5110=6041 JMP L5110 / @@5111=5310 TLS / Load the TTO from the content of AC4 @@5112=6046 CLA / @@5113=7200 JMP I S5107 / return @@5114=5707 D5115, 0000 / AND L0000 C5116, 0255 / AND C5055 C5117, 0240 / AND C5040 C5120, 7777 / CLA MQA SCA MQL LSR + D5121, 0000 / AND L0000 C5122, 4060 / JMS C0060 C5123, 1750 / TAD I C5150 D5124, 0000 / AND L0000 C5125, 7776 / SPA SNA SZL CLA OSR HLT D5126, 0000 / AND L0000 C5127, 0260 / AND C5060 C5130, 6030 / 6030 C5131, 7634 / SZL CLA OSR C5132, 0144 / AND C0144 C5133, 7767 / CLA MQA SCA MQL DVI + C5134, 0012 / AND AI2 $