TITLE "AUTOMATIC DISASSEMBLY OF decus-8-39.bin BY D8TAPE" //////////////////////////////////////////////////////////////////////////////// / / Automatic Disassembly of decus-8-39.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 / / 0200 locations used, 0135 code and 0043 data //////////////////////////////////////////////////////////////////////////////// *3000 D3000, 7402 / HLT JMP L3053 / @@3001=5253 D3002, 7402 / HLT L3003, KCC / Clear AC and clear keyboard flag. @@3003=6032 DCA D3176 / @@3004=3376 DCA D3177 / @@3005=3377 L3006, CMA / @@3006=7040 L3007, DCA D3143 / @@3007=3343 L3010, KSF / Skip if keyboard flag is a 1. @@3010=6031 JMP L3010 / @@3011=5210 KRB / Clear AC, clear keyboard flag, and r @@3012=6036 C3013, 4371 / JMS D3171 DCA I D3002 / @@3014=3602 TAD I D3002 / @@3015=1602 TAD C3140 / @@3016=1340 SNA / @@3017=7450 JMP L3112 / @@3020=5312 TAD C3137 / @@3021=1337 SNA / @@3022=7450 JMP L3007 / @@3023=5207 TAD C3136 / @@3024=1336 SNA / @@3025=7450 JMP L3006 / @@3026=5206 TAD C3135 / @@3027=1335 DCA D3040 / @@3030=3240 CLL CMA CML / @@3031=7160 TAD C3142 / @@3032=1342 TAD D3040 / @@3033=1240 SZL CLA / @@3034=7630 JMP L3043 / @@3035=5243 C3036, 4315 / JMS C3115 C3037, 4355 / JMS D3155 D3040, 0000 / AND C0000 C3041, 0000 / AND C0000 JMP L3010 / @@3042=5210 L3043, ISZ D3143 / @@3043=2343 C3044, 4343 / JMS D3143 ISZ D3002 / @@3045=2202 TAD D3176 / @@3046=1376 DCA I D3002 / @@3047=3602 ISZ D3002 / @@3050=2202 TAD D3177 / @@3051=1377 JMP I D3002 / long jump to L7402 @@3052=5602 L3053, DCA D3177 / @@3053=3377 TAD I D3000 / @@3054=1600 DCA D3176 / @@3055=3376 ISZ D3000 / @@3056=2200 TAD C3141 / @@3057=1341 DCA D3002 / @@3060=3202 TAD D3176 / @@3061=1376 SMA CLA / @@3062=7700 JMP L3066 / @@3063=5266 C3064, 4343 / JMS D3143 TAD C3134 / @@3065=1334 L3066, TAD C3133 / @@3066=1333 JMP L3105 / @@3067=5305 L3070, DCA D3143 / @@3070=3343 L3071, C3071, 4355 / JMS D3155 KCLR / Clear All; clear the status A and B @@3072=6700 C3073, 7413 / SHL + ISZ D3143 / @@3074=2343 SZL / @@3075=7430 JMP L3071 / @@3076=5271 C3077, 4355 / JMS D3155 C3100, 1100 / TAD C0100 AND C3164 / @@3101=0364 C3102, 4315 / JMS C3115 TAD D3143 / @@3103=1343 TAD C3132 / @@3104=1332 L3105, C3105, 4371 / JMS D3171 CLA CLL / AC = 0000 @@3106=7300 ISZ D3002 / @@3107=2202 JMP L3070 / @@3110=5270 JMP I D3000 / long jump to L7402 @@3111=5600 L3112, TAD C3132 / @@3112=1332 C3113, 4371 / JMS D3171 JMP L3003 / @@3114=5203 C3115, C3115, 7402 / HLT TAD C3142 / @@3116=1342 DCA D3171 / @@3117=3371 TAD D3176 / @@3120=1376 DCA D3126 / @@3121=3326 TAD D3177 / @@3122=1377 DCA D3125 / @@3123=3325 L3124, C3124, 4355 / JMS D3155 D3125, 0000 / AND C0000 D3126, 0000 / AND C0000 ISZ D3171 / @@3127=2371 JMP L3124 / @@3130=5324 JMP I C3115 / long jump to L7402 @@3131=5715 C3132, 0257 / AND C3057 C3133, 0240 / AND D3040 C3134, 0015 / AND AI5 C3135, 7773 / CLA MQA SCA MQL SHL + C3136, 0002 / AND C0002 C3137, 0122 / AND C0122 C3140, 7401 / NOP C3141, 7770 / SPA SNA SZL CLA C3142, 7767 / CLA MQA SCA MQL DVI + D3143, 7402 / HLT TAD D3177 / @@3144=1377 CLL CMA IAC / @@3145=7141 DCA D3177 / @@3146=3377 TAD D3176 / @@3147=1376 CMA / @@3150=7040 SZL / @@3151=7430 IAC / @@3152=7001 DCA D3176 / @@3153=3376 JMP I D3143 / long jump to L7402 @@3154=5743 D3155, 7402 / HLT CLL / @@3156=7100 TAD I D3155 / @@3157=1755 ISZ D3155 / @@3160=2355 TAD D3177 / @@3161=1377 DCA D3177 / @@3162=3377 RAL / @@3163=7004 C3164, 1755 / TAD I D3155 ISZ D3155 / @@3165=2355 TAD D3176 / @@3166=1376 DCA D3176 / @@3167=3376 JMP I D3155 / long jump to L7402 @@3170=5755 D3171, 7402 / HLT L3172, TSF / Skip if teleprinter flag is a 1. @@3172=6041 JMP L3172 / @@3173=5372 TLS / Load the TTO from the content of AC4 @@3174=6046 JMP I D3171 / long jump to L7402 @@3175=5771 D3176, 0000 / AND C0000 D3177, 0000 / AND C0000 $