AB16-CMT5

* NAME: AB16-CMT5 DOC 70181454000 REV E PAGE 26

01664 077000 01665 076000 01666 000077 01667 000015 01670 177774 01671 177760 01672 177740 1199 * 1200 01673 0 001674 ENDT DAC *+1 1201 * 1202 * 1203 * 1204 ORG '2000 1205 02000 0 000000 S2IN DAC ** ONE TIME INITAILIZATION 1206 02001 0 35 02120 LDX ZERO 1207 02002 000021 RMP INSURE THE MEMORY PARITY FLOP IS RESET 1208 02003 0 10 00240 JST LFCR LINE FEED, CARRIAGE RETURN 1209 02004 0 10 00240 JST LFCR 1210 02005 0 10 00240 JST LFCR 1211 02006 0 10 00244 JST OPCO PRINT HEADING 1212 02007 0 002100 DAC MESA 1213 02010 0 02 02007 LDA *-1 1214 02011 000201 IAB STORE WORD IN B REG 1215 02012 0 02 02007 LDA *-3 LOAD THE WORD AGAIN 1216 02013 0 05 00002 ERA 2 XOR WITH LOC.2 1217 02014 101040 SNZ IF NON-ZERO, SKIP 1218 02015 0 01 02044 JMP X13R IF ZERO, CP IS 716 1219 02016 140040 CRA CRA DETERMINE MACHINE TYPE BY TIMING 1220 02017 141206 AOA 1221 02020 34 0104 SKS '104 1222 02021 0 01 02017 JMP *-2 1223 02022 0 07 02152 SUB =20000 1224 02023 100400 SPL 1225 02024 0 01 02057 JMP H316 1226 02025 0 10 00240 JST LFCR 1227 02026 0 10 00244 JST OPCO PRINT COMPUTER TYPE 1228 02027 0 002121 DAC DD5 1229 02030 0 35 02151 D5X LDX =-11 11 WORD OVERLAY 1230 02031 -0 02 02074 LDA* DAC1 FETCH OVERLAY WORD 1231 02032 -0 04 02075 STA* DAC2 STORE IT 1232 02033 0 12 02074 IRS DAC1 INCREMENT POINTERS 1233 02034 0 12 02075 IRS DAC2 1234 02035 0 12 00000 IRS 0 INCREMENT WORD COUNT 1235 02036 0 01 02031 JMP *-5 GO BACK FOR NEXT WORD 1236 02037 0 02 02150 LDA ='101000 1237 02040 -0 04 02077 STA* DGGS DELETE CALL TO 8K MOD GEN SER ROUT 1238 02041 0 02 02147 LDA ='100000 PLACE SKIP INSTRUCTION 1239 02042 -0 04 02076 STA* DAC3 1240 02043 0 01 02062 JMP D5H3