* TEST PROGRAM FOR X16 -- VERSION 2 PAGE 0001 0001 * TEST PROGRAM FOR X16 -- VERSION 2 0002 * X16 IS AN FPGA IMPLEMENTATION OF THE HONEYWELL 316/516 0003 * THIS PROGRAM CHECKS ALL THE CPU INSTRUCTIONS, NOT IN DEPTH, BUT AS A QUICK 0004 * CHECK. IT ALSO CHECKS THE MEMORY (16K WORDS), THE ADDRESSING MODES, INTERRUPT 0005 * MECHANISM AND THE RTC AS WELL AND TTY INPUT AND OUTPUT. 0006 * 0007 * START ADDRESS: (OCTAL) 1000 0008 * 0009 * DATE: JAN-10-2010 0010 * 0011 * AUTHOR : THEO ENGEL 0012 * CONTACT: INFO@THEOENGEL.NL 0013 * 0014 LOAD 0015 ORG '100 0016 BCI 8,X16 TEST PROGRAM 000100 154261 0040,D8B1 000101 133240 0041,B6A0 000102 152305 0042,D4C5 000103 151724 0043,D3D4 000104 120320 0044,A0D0 000105 151317 0045,D2CF 000106 143722 0046,C7D2 000107 140715 0047,C1CD 0017 M1 EQU * 0018 BCI 9,RAM TEST; #SWEEPS: 000110 151301 0048,D2C1 000111 146640 0049,CDA0 000112 152305 004A,D4C5 000113 151724 004B,D3D4 000114 135640 004C,BBA0 000115 121723 004D,A3D3 000116 153705 004E,D7C5 000117 142720 004F,C5D0 000120 151672 0050,D3BA 0019 M2 EQU * 0020 000121 177770 M8 DEC -8 0051,FFF8 * TEST PROGRAM FOR X16 -- VERSION 2 PAGE 0002 0021 000122 177767 M9 DEC -9 0052,FFF7 0022 000123 000260 O260 OCT '260 ASCII 0 0053,00B0 0023 000124 000000 SWP DEC 0 0054,0000 0024 000125 000000 SSWP DEC 0 0055,0000 0025 000126 106612 ONL OCT '106612 NLCR 0056,8D8A 0026 000127 000001 ONE DEC 1 0057,0001 0027 000130 177777 FFFF OCT '177777 0058,FFFF 0028 000131 170017 F00F OCT '170017 0059,F00F 0029 000132 177400 FF00 OCT '177400 005A,FF00 0030 000133 000377 FF OCT '000377 005B,00FF 0031 000134 177417 FF0F OCT '177417 005C,FF0F 0032 000135 170377 F0FF OCT '170377 005D,F0FF 0033 000136 100000 MSB OCT '100000 005E,8000 0034 000137 077777 LN OCT '77777 005F,7FFF 0035 000140 000000 NULL DEC 0 0060,0000 0036 000141 000000 SAVE DEC 0 0061,0000 0037 000142 000777 MPAG OCT '777 0062,01FF 0038 000143 177000 MSEC OCT '177000 0063,FE00 0039 000144 000000 PNTR DEC 0 0064,0000 0040 000145 027777 MEND OCT '27777 12K 0065,2FFF 0041 M10 BCI 1,RY 000146 151331 0066,D2D9 0042 BCI 1,01 000147 130261 0067,B0B1 0043 BCI 1,02 000150 130262 0068,B0B2 0044 BCI 1,03 000151 130263 0069,B0B3 0045 BCI 1,04 000152 130264 006A,B0B4 0046 BCI 1,05 000153 130265 006B,B0B5 0047 BCI 1,06 000154 130266 006C,B0B6 0048 BCI 1,07 000155 130267 006D,B0B7 0049 BCI 1,08 * TEST PROGRAM FOR X16 -- VERSION 2 PAGE 0003 000156 130270 006E,B0B8 0050 BCI 1,09 000157 130271 006F,B0B9 0051 BCI 1,10 000160 130660 0070,B1B0 0052 * PAGE TABLE (PREINDEXING) 0053 P EQU * 0054 000161 002000 P2 DAC '2000 0071,0400 0055 000162 003000 P3 DAC '3000 0072,0600 0056 000163 004000 P4 DAC '4000 0073,0800 0057 000164 005000 P5 DAC '5000 0074,0A00 0058 000165 006000 P6 DAC '6000 0075,0C00 0059 000166 007000 P7 DAC '7000 0076,0E00 0060 * PAGE TABLE (POSTINDEXING) 0061 PP EQU * 0062 000167 052000 PP2 DAC '12000,1 0077,5400 0063 000170 053000 PP3 DAC '13000,1 0078,5600 0064 000171 054000 PP4 DAC '14000,1 0079,5800 0065 000172 055000 PP5 DAC '15000,1 007A,5A00 0066 000173 056000 PP6 DAC '16000,1 007B,5C00 0067 000174 057000 PP7 DAC '17000,1 007C,5E00 0068 * 0069 000175 030445 A DAC AA 007D,3125 0070 000176 030446 B DAC BB 007E,3126 0071 000177 030447 C DAC CC 007F,3127 0072 000200 030450 D DAC DD 0080,3128 0073 000201 030451 E DAC EE 0081,3129 0074 000202 030452 F DAC FFF 0082,312A 0075 000203 030455 G DAC GG 0083,312D 0076 000204 030456 H DAC HH 0084,312E 0077 000205 177777 A11 OCT '177777 0085,FFFF 0078 000206 177400 B11 OCT '177400 0086,FF00 0079 000207 000377 C11 OCT '377 0087,00FF 0080 000210 100001 D11 OCT '100001 0088,8001 0081 000211 000600 E11 OCT '000600 0089,0180 0082 000212 000400 F11 OCT '000400 008A,0100 0083 000213 000200 G11 OCT '000200 008B,0080 * TEST PROGRAM FOR X16 -- VERSION 2 PAGE 0004 0084 * 0085 000214 030070 TMII DAC TMI MULTILEVEL INDIRECTS008C,3038 0086 000215 030152 SHII DAC SHFT SHIFT INSTRUCTION ROUTINES008D,306A 0087 000216 030000 MTST DAC MEMT TEST MEMORY TEST ROUTINE008E,3000 0088 000217 030457 TRTC DAC TINT TEST INTERRUPT ROUTINE008F,312F 0089 * 0090 * PRINT ASCII 0091 000220 000000 ASRO DAC ** 0090,0000 0092 000221 070104 SKS '104 0091,7044 0093 000222 002221 JMP *-1 0092,0491 0094 000223 030104 OCP '104 0093,3044 0095 000224 170004 OTA 4 0094,F004 0096 000225 002224 JMP *-1 0095,0494 0097 000226 102220 JMP* ASRO 0096,8490 0098 * 0099 * READ ASCII 0100 000227 000000 ASRI DAC ** 0097,0000 0101 000230 070104 SKS '104 0098,7044 0102 000231 002230 JMP *-1 0099,0498 0103 000232 030004 OCP '4 009A,3004 0104 000233 131004 INA '1004 009B,B204 0105 000234 002233 JMP *-1 009C,049B 0106 000235 102227 JMP* ASRI 009D,8497 0107 * 0108 * PRINT 2 ASCII'S 0109 000236 000000 PRIN DAC ** 009E,0000 0110 000237 141340 ICA 009F,C2E0 0111 000240 020220 JST ASRO 00A0,2090 0112 000241 141340 ICA 00A1,C2E0 0113 000242 020220 JST ASRO 00A2,2090 0114 000243 102236 JMP* PRIN 00A3,849E 0115 * 0116 * PRINT NLCR 0117 000244 000000 NLCR DAC ** 00A4,0000 0118 000245 004126 LDA ONL 00A5,0856 0119 000246 020236 JST PRIN 00A6,209E 0120 000247 102244 JMP* NLCR 00A7,84A4 * TEST PROGRAM FOR X16 -- VERSION 2 PAGE 0005 0121 * 0122 ORG '1000 0123 001000 072121 STRT LDX M8 START ADDRESS 0200,7451 0124 001001 044110 LDA M1,1 0201,4848 0125 001002 020236 JST PRIN 0202,209E 0126 001003 024000 IRS 0 0203,2800 0127 001004 003001 JMP *-3 0204,0601 0128 001005 020244 JST NLCR 0205,20A4 0129 * SETUP THE MEMORY TEST 0130 001006 072122 LDX M9 0206,7452 0131 001007 044121 LDA M2,1 0207,4851 0132 001010 020236 JST PRIN 0208,209E 0133 001011 024000 IRS 0 0209,2800 0134 001012 003007 JMP *-3 020A,0607 0135 001013 020227 JST ASRI NUMBER OF SWEEPS? 020B,2097 0136 001014 016123 SUB O260 020C,1C53 0137 001015 010124 STA SWP 020D,1054 0138 * 0139 STT EQU * TEST LOOP (TEST 1--10) 0140 001016 020244 JST NLCR 020E,20A4 0141 * 0142 * TEST 1 0143 * 0144 001017 100020 SR1 020F,8010 0145 001020 000000 HLT 0210,0000 0146 001021 100010 SR2 0211,8008 0147 001022 000000 HLT 0212,0000 0148 001023 100004 SR3 0213,8004 0149 001024 000000 HLT 0214,0000 0150 001025 100002 SR4 0215,8002 0151 001026 000000 HLT 0216,0000 0152 001027 100036 SSR 0217,801E 0153 001030 000000 HLT 0218,0000 0154 001031 101020 SS1 0219,8210 0155 001032 100020 SR1 021A,8010 0156 001033 000000 HLT 021B,0000 0157 001034 101010 SS2 021C,8208 * TEST PROGRAM FOR X16 -- VERSION 2 PAGE 0006 0158 001035 100010 SR2 021D,8008 0159 001036 000000 HLT 021E,0000 0160 001037 101004 SS3 021F,8204 0161 001040 100004 SR3 0220,8004 0162 001041 000000 HLT 0221,0000 0163 001042 101002 SS4 0222,8202 0164 001043 100002 SR4 0223,8002 0165 001044 000000 HLT 0224,0000 0166 001045 101036 SSS 0225,821E 0167 001046 100036 SSR 0226,801E 0168 001047 000000 HLT 0227,0000 0169 001050 104175 LDA* A 0228,887D 0170 001051 110176 STA* B 0229,907E 0171 001052 112175 ERA* A 022A,947D 0172 001053 110177 STA* C 022B,907F 0173 001054 100040 SZE 022C,8020 0174 001055 000000 HLT 022D,0000 0175 001056 104175 LDA* A 022E,887D 0176 001057 106201 ANA* E 022F,8C81 0177 001060 116201 SUB* E 0230,9C81 0178 001061 100040 SZE 0231,8020 0179 001062 000000 HLT 0232,0000 0180 001063 126176 IMA* B 0233,AC7E 0181 001064 112175 ERA* A 0234,947D 0182 001065 100040 SZE 0235,8020 0183 001066 000000 HLT 0236,0000 0184 001067 120202 JST* F 0237,A082 0185 001070 101040 SNZ 0238,8220 0186 001071 100000 SKP 0239,8000 0187 001072 003067 JMP *-3 023A,0637 0188 001073 122203 CAS* G A=0 023B,A483 0189 001074 000000 HLT > 023C,0000 0190 001075 000000 HLT = 023D,0000 0191 001076 104203 LDA* G 023E,8883 0192 001077 122203 CAS* G 023F,A483 0193 001100 000000 HLT > 0240,0000 0194 001101 100000 SKP = 0241,8000 * TEST PROGRAM FOR X16 -- VERSION 2 PAGE 0007 0195 001102 000000 HLT < 0242,0000 0196 001103 104175 LDA* A 0243,887D 0197 001104 140100 SSP 0244,C040 0198 001105 122203 CAS* G A='77777 0245,A483 0199 001106 101000 NOP > 0246,8200 0200 001107 100000 SKP = 0247,8000 0201 001110 000000 HLT < 0248,0000 0202 001111 106200 ANA* D A='77770=> '77770 0249,8C80 0203 001112 140401 CMA A='100007 024A,C101 0204 001113 112204 ERA* H 024B,9484 0205 001114 100040 SZE 024C,8020 0206 001115 000000 HLT 024D,0000 0207 001116 104175 LDA* A 024E,887D 0208 001117 110176 STA* B 024F,907E 0209 001120 124176 IRS* B 0250,A87E 0210 001121 000000 HLT 0251,0000 0211 001122 172200 LDX* D 0252,F480 0212 001123 132176 STX* B 0253,B47E 0213 001124 104176 LDA* B 0254,887E 0214 001125 012000 ERA 0 0255,1400 0215 001126 100040 SZE 0256,8020 0216 001127 000000 HLT 0257,0000 0217 * 0218 001130 140040 CRA 0258,C020 0219 001131 140401 CMA 0259,C101 0220 001132 012205 ERA A11 025A,1485 0221 001133 100040 SZE 025B,8020 0222 001134 000000 HLT 025C,0000 0223 001135 140600 SCB C=1 025D,C180 0224 001136 101001 SSC 025E,8201 0225 001137 000000 HLT 025F,0000 0226 001140 141216 ACA A=1 0260,C28E 0227 001141 101100 SLN 0261,8240 0228 001142 000000 HLT 0262,0000 0229 001143 140401 CMA A=177776 0263,C101 0230 001144 100100 SLZ 0264,8040 0231 001145 000000 HLT 0265,0000 * TEST PROGRAM FOR X16 -- VERSION 2 PAGE 0008 0232 001146 140320 CSA C=1 A=77776 0266,C0D0 0233 001147 101001 SSC 0267,8201 0234 001150 000000 HLT 0268,0000 0235 001151 100400 SPL 0269,8100 0236 001152 000000 HLT 026A,0000 0237 001153 140024 CHS A=177776 026B,C014 0238 001154 101400 SMI 026C,8300 0239 001155 000000 HLT 026D,0000 0240 001156 101040 SNZ 026E,8220 0241 001157 000000 HLT 026F,0000 0242 001160 140024 CHS A=77776 0270,C014 0243 001161 140500 SSM A=177776 0271,C140 0244 001162 101400 SMI 0272,8300 0245 001163 000000 HLT 0273,0000 0246 001164 141044 CAR A=177400 0274,C224 0247 001165 012206 ERA B11 0275,1486 0248 001166 100040 SZE 0276,8020 0249 001167 000000 HLT 0277,0000 0250 001170 004205 LDA A11 0278,0885 0251 001171 141050 CAL A=377 0279,C228 0252 001172 012207 ERA C11 027A,1487 0253 001173 100040 SZE 027B,8020 0254 001174 000000 HLT 027C,0000 0255 001175 140407 TCA 027D,C107 0256 001176 100040 SZE 027E,8020 0257 001177 000000 HLT 027F,0000 0258 001200 101001 SSC 0280,8201 0259 001201 000000 HLT 0281,0000 0260 001202 004210 LDA D11 0282,0888 0261 001203 141340 ICA 0283,C2E0 0262 001204 016211 SUB E11 0284,1C89 0263 001205 100040 SZE 0285,8020 0264 001206 000000 HLT 0286,0000 0265 001207 004210 LDA D11 0287,0888 0266 001210 141240 ICR A=000400 0288,C2A0 0267 001211 012212 ERA F11 0289,148A 0268 001212 100040 SZE 028A,8020 * TEST PROGRAM FOR X16 -- VERSION 2 PAGE 0009 0269 001213 000000 HLT 028B,0000 0270 001214 004210 LDA D11 028C,0888 0271 001215 141140 ICL A=000200 028D,C260 0272 001216 012213 ERA G11 028E,148B 0273 001217 100040 SZE 028F,8020 0274 001220 000000 HLT 0290,0000 0275 001221 004205 LDA A11 0291,0885 0276 001222 000201 IAB 0292,0081 0277 001223 140040 CRA 0293,C020 0278 001224 000201 IAB 0294,0081 0279 001225 140401 CMA 0295,C101 0280 001226 100040 SZE 0296,8020 0281 001227 000000 HLT 0297,0000 0282 * READY 0283 001230 004146 LDA M10 0298,0866 0284 001231 020236 JST PRIN 0299,209E 0285 001232 004147 LDA M10+1 029A,0867 0286 001233 020236 JST PRIN 029B,209E 0287 * 0288 * TEST 2 (INDEXING) 0289 * 0290 * PREINDEXING 0291 * CLEAR MEMORY 0292 001234 004161 LDA P2 029C,0871 0293 001235 010141 STA SAVE 029D,1061 0294 001236 140040 CRA 029E,C020 0295 001237 110141 CM1 STA* SAVE 029F,9061 0296 001240 024141 IRS SAVE 02A0,2861 0297 001241 004141 LDA SAVE 02A1,0861 0298 001242 022205 CAS A11 02A2,2485 0299 001243 003246 JMP *+3 > 02A3,06A6 0300 001244 003237 JMP CM1 = 02A4,069F 0301 001245 003237 JMP CM1 < 02A5,069F 0302 * 0303 001246 140040 CRA 02A6,C020 0304 001247 010000 STA 0 X=0 02A7,1000 0305 001250 004161 LDA P2 02A8,0871 * TEST PROGRAM FOR X16 -- VERSION 2 PAGE 0010 0306 001251 010141 STA SAVE 02A9,1061 0307 001252 140040 MM1 CRA 02AA,C020 0308 001253 140401 CMA 02AB,C101 0309 001254 150161 STA* P,1 02AC,D071 0310 001255 024161 IRS P2 02AD,2871 0311 001256 004161 LDA P2 02AE,0871 0312 001257 022162 CAS P3 02AF,2472 0313 001260 000000 HLT 02B0,0000 0314 001261 100000 SKP 02B1,8000 0315 001262 003252 JMP MM1 02B2,06AA 0316 001263 004141 LDA SAVE 02B3,0861 0317 001264 010161 STA P2 02B4,1071 0318 001265 164161 MM2 IRS* P,1 02B5,E871 0319 001266 000000 HLT 02B6,0000 0320 001267 024161 IRS P2 02B7,2871 0321 001270 004161 LDA P2 02B8,0871 0322 001271 022162 CAS P3 02B9,2472 0323 001272 000000 HLT 02BA,0000 0324 001273 100000 SKP 02BB,8000 0325 001274 003265 JMP MM2 02BC,06B5 0326 001275 004141 LDA SAVE 02BD,0861 0327 001276 010161 STA P2 02BE,1071 0328 * SAME WITH P3 0329 * CLEAR MEMORY 0330 001277 140040 CRA 02BF,C020 0331 001300 110141 CM2 STA* SAVE 02C0,9061 0332 001301 024141 IRS SAVE 02C1,2861 0333 001302 004141 LDA SAVE 02C2,0861 0334 001303 022205 CAS A11 02C3,2485 0335 001304 003307 JMP *+3 > 02C4,06C7 0336 001305 003300 JMP CM2 = 02C5,06C0 0337 001306 003300 JMP CM2 < 02C6,06C0 0338 * 0339 001307 024000 IRS 0 02C7,2800 0340 001310 004162 LDA P3 02C8,0872 0341 001311 010141 STA SAVE 02C9,1061 0342 001312 140040 MM3 CRA 02CA,C020 * TEST PROGRAM FOR X16 -- VERSION 2 PAGE 0011 0343 001313 140401 CMA 02CB,C101 0344 001314 150161 STA* P,1 02CC,D071 0345 001315 024162 IRS P3 02CD,2872 0346 001316 004162 LDA P3 02CE,0872 0347 001317 022163 CAS P4 02CF,2473 0348 001320 000000 HLT 02D0,0000 0349 001321 100000 SKP 02D1,8000 0350 001322 003312 JMP MM3 02D2,06CA 0351 001323 004141 LDA SAVE 02D3,0861 0352 001324 010162 STA P3 02D4,1072 0353 001325 164161 MM4 IRS* P,1 02D5,E871 0354 001326 000000 HLT 02D6,0000 0355 001327 024162 IRS P3 02D7,2872 0356 001330 004162 LDA P3 02D8,0872 0357 001331 022163 CAS P4 02D9,2473 0358 001332 000000 HLT 02DA,0000 0359 001333 100000 SKP 02DB,8000 0360 001334 003325 JMP MM4 02DC,06D5 0361 001335 004141 LDA SAVE 02DD,0861 0362 001336 010162 STA P3 02DE,1072 0363 * POSTINDEXING 0364 001337 140040 CRA 02DF,C020 0365 001340 010000 STA 0 02E0,1000 0366 001341 140040 MM5 CRA 02E1,C020 0367 001342 140401 CMA 02E2,C101 0368 001343 110167 STA* PP2 02E3,9077 0369 001344 024000 IRS 0 02E4,2800 0370 001345 004000 LDA 0 02E5,0800 0371 001346 022142 CAS MPAG 02E6,2462 0372 001347 003352 JMP *+3 02E7,06EA 0373 001350 101000 NOP 02E8,8200 0374 001351 003341 JMP MM5 02E9,06E1 0375 001352 140040 CRA CHECK 02EA,C020 0376 001353 010000 STA 0 02EB,1000 0377 001354 124167 MM6 IRS* PP2 02EC,A877 0378 001355 000000 HLT 02ED,0000 0379 001356 024000 IRS 0 02EE,2800 * TEST PROGRAM FOR X16 -- VERSION 2 PAGE 0012 0380 001357 004000 LDA 0 02EF,0800 0381 001360 022142 CAS MPAG 02F0,2462 0382 001361 003364 JMP *+3 02F1,06F4 0383 001362 101000 NOP 02F2,8200 0384 001363 003354 JMP MM6 02F3,06EC 0385 * SAME WITH P7 0386 001364 140040 CRA 02F4,C020 0387 001365 010000 STA 0 02F5,1000 0388 001366 140040 MM7 CRA 02F6,C020 0389 001367 140401 CMA 02F7,C101 0390 001370 110174 STA* PP7 02F8,907C 0391 001371 024000 IRS 0 02F9,2800 0392 001372 004000 LDA 0 02FA,0800 0393 001373 022142 CAS MPAG 02FB,2462 0394 001374 003377 JMP *+3 02FC,06FF 0395 001375 101000 NOP 02FD,8200 0396 001376 003366 JMP MM7 02FE,06F6 0397 001377 140040 CRA CHECK 02FF,C020 0398 001400 010000 STA 0 0300,1000 0399 001401 124174 MM8 IRS* PP7 0301,A87C 0400 001402 000000 HLT 0302,0000 0401 001403 024000 IRS 0 0303,2800 0402 001404 004000 LDA 0 0304,0800 0403 001405 022142 CAS MPAG 0305,2462 0404 001406 003411 JMP *+3 0306,0709 0405 001407 101000 NOP 0307,8200 0406 001410 003401 JMP MM8 0308,0701 0407 * READY 0408 001411 004146 LDA M10 0309,0866 0409 001412 020236 JST PRIN 030A,209E 0410 001413 004150 LDA M10+2 030B,0868 0411 001414 020236 JST PRIN 030C,209E 0412 * 0413 * TEST 3 (IMA) 0414 * 0415 001415 004166 LDA P7 030D,0876 0416 001416 010144 STA PNTR 030E,1064 * TEST PROGRAM FOR X16 -- VERSION 2 PAGE 0013 0417 001417 004142 LDA MPAG 030F,0862 0418 001420 140407 TCA 0310,C107 0419 001421 010000 STA 0 0311,1000 0420 001422 140040 MM9 CRA 0312,C020 0421 001423 126144 IMA* PNTR 0313,AC64 0422 001424 024144 IRS PNTR 0314,2864 0423 001425 024000 IRS 0 0315,2800 0424 001426 003422 JMP MM9 0316,0712 0425 001427 004166 LDA P7 0317,0876 0426 001430 010144 STA PNTR 0318,1064 0427 001431 004142 LDA MPAG 0319,0862 0428 001432 140407 TCA 031A,C107 0429 001433 010000 STA 0 031B,1000 0430 001434 126144 MM10 IMA* PNTR 031C,AC64 0431 001435 100040 SZE 031D,8020 0432 001436 000000 HLT 031E,0000 0433 001437 024144 IRS PNTR 031F,2864 0434 001440 024000 IRS 0 0320,2800 0435 001441 003434 JMP MM10 0321,071C 0436 001442 004166 LDA P7 0322,0876 0437 001443 010144 STA PNTR 0323,1064 0438 001444 004142 LDA MPAG 0324,0862 0439 001445 140407 TCA 0325,C107 0440 001446 010000 STA 0 0326,1000 0441 001447 140040 MM11 CRA 0327,C020 0442 001450 140401 CMA 0328,C101 0443 001451 126144 IMA* PNTR 0329,AC64 0444 001452 024144 IRS PNTR 032A,2864 0445 001453 024000 IRS 0 032B,2800 0446 001454 003447 JMP MM11 032C,0727 0447 001455 004166 LDA P7 032D,0876 0448 001456 010144 STA PNTR 032E,1064 0449 001457 004142 LDA MPAG 032F,0862 0450 001460 140407 TCA 0330,C107 0451 001461 010000 STA 0 0331,1000 0452 001462 126144 MM12 IMA* PNTR 0332,AC64 0453 001463 141206 AOA 0333,C286 * TEST PROGRAM FOR X16 -- VERSION 2 PAGE 0014 0454 001464 100040 SZE 0334,8020 0455 001465 000000 HLT 0335,0000 0456 001466 024144 IRS PNTR 0336,2864 0457 001467 024000 IRS 0 0337,2800 0458 001470 003462 JMP MM12 0338,0732 0459 * READY 0460 001471 004146 LDA M10 0339,0866 0461 001472 020236 JST PRIN 033A,209E 0462 001473 004151 LDA M10+3 033B,0869 0463 001474 020236 JST PRIN 033C,209E 0464 * 0465 * TEST 4 (ICA, ETC.) 0466 * 0467 001475 140040 CRA 033D,C020 0468 001476 140401 CMA 033E,C101 0469 001477 000201 IAB 033F,0081 0470 001500 140040 CRA 0340,C020 0471 001501 000201 IAB 0341,0081 0472 001502 141044 CAR 0342,C224 0473 001503 012132 ERA FF00 0343,145A 0474 001504 100040 SZE 0344,8020 0475 001505 000000 HLT 0345,0000 0476 001506 140401 CMA 0346,C101 0477 001507 141050 CAL 0347,C228 0478 001510 012133 ERA FF 0348,145B 0479 001511 100040 SZE 0349,8020 0480 001512 000000 HLT 034A,0000 0481 001513 004131 LDA F00F 034B,0859 0482 001514 141340 ICA 034C,C2E0 0483 001515 006131 ANA F00F 034D,0C59 0484 001516 100040 SZE 034E,8020 0485 001517 000000 HLT 034F,0000 0486 001520 004131 LDA F00F 0350,0859 0487 001521 141240 ICR 0351,C2A0 0488 001522 012135 ERA F0FF 0352,145D 0489 001523 012130 ERA FFFF 0353,1458 0490 001524 100040 SZE 0354,8020 * TEST PROGRAM FOR X16 -- VERSION 2 PAGE 0015 0491 001525 000000 HLT 0355,0000 0492 001526 004131 LDA F00F 0356,0859 0493 001527 141140 ICL 0357,C260 0494 001530 012134 ERA FF0F 0358,145C 0495 001531 012130 ERA FFFF 0359,1458 0496 001532 100040 SZE 035A,8020 0497 001533 000000 HLT 035B,0000 0498 * READY 0499 001534 004146 LDA M10 035C,0866 0500 001535 020236 JST PRIN 035D,209E 0501 001536 004152 LDA M10+4 035E,086A 0502 001537 020236 JST PRIN 035F,209E 0503 * 0504 * TEST 5 0505 * 0506 001540 072122 LDX M9 0360,7452 0507 001541 032141 STX SAVE 0361,3461 0508 001542 004122 LDA M9 0362,0852 0509 001543 140407 TCA 0363,C107 0510 001544 014141 ADD SAVE 0364,1861 0511 001545 100040 SZE 0365,8020 0512 001546 000000 HLT 0366,0000 0513 001547 140600 MM13 SCB 0367,C180 0514 001550 101001 SSC 0368,8201 0515 001551 000000 HLT 0369,0000 0516 001552 004130 LDA FFFF 036A,0858 0517 001553 101001 SSC 036B,8201 0518 001554 000000 HLT 036C,0000 0519 001555 141206 AOA 036D,C286 0520 001556 100001 SRC 036E,8001 0521 001557 000000 HLT 036F,0000 0522 001560 100040 SZE 0370,8020 0523 001561 000000 HLT 0371,0000 0524 001562 140401 CMA 0372,C101 0525 001563 101400 SMI 0373,8300 0526 001564 000000 HLT 0374,0000 0527 001565 101100 SLN 0375,8240 * TEST PROGRAM FOR X16 -- VERSION 2 PAGE 0016 0528 001566 000000 HLT 0376,0000 0529 001567 140600 SCB 0377,C180 0530 001570 141216 ACA 0378,C28E 0531 001571 100040 SZE 0379,8020 0532 001572 000000 HLT 037A,0000 0533 001573 100400 SPL 037B,8100 0534 001574 000000 HLT 037C,0000 0535 001575 100100 SLZ 037D,8040 0536 001576 000000 HLT 037E,0000 0537 001577 140024 CHS 037F,C014 0538 001600 101400 SMI 0380,8300 0539 001601 000000 HLT 0381,0000 0540 001602 140200 RCB 0382,C080 0541 001603 100001 SRC 0383,8001 0542 001604 000000 HLT 0384,0000 0543 001605 004130 LDA FFFF 0385,0858 0544 001606 140320 CSA 0386,C0D0 0545 001607 100400 SPL 0387,8100 0546 001610 000000 HLT 0388,0000 0547 001611 101001 SSC 0389,8201 0548 001612 000000 HLT 038A,0000 0549 001613 140401 CMA 038B,C101 0550 001614 101400 SMI 038C,8300 0551 001615 000000 HLT 038D,0000 0552 001616 141206 AOA 038E,C286 0553 001617 100001 SRC 038F,8001 0554 001620 000000 HLT 0390,0000 0555 001621 016127 SUB ONE 0391,1C57 0556 001622 100001 SRC 0392,8001 0557 001623 000000 HLT 0393,0000 0558 001624 016127 SUB ONE 0394,1C57 0559 001625 101001 SSC 0395,8201 0560 001626 000000 HLT 0396,0000 0561 001627 140200 RCB 0397,C080 0562 001630 004137 LDA LN 0398,085F 0563 001631 100001 SRC 0399,8001 0564 001632 000000 HLT 039A,0000 * TEST PROGRAM FOR X16 -- VERSION 2 PAGE 0017 0565 001633 141206 AOA 039B,C286 0566 001634 101001 SSC 039C,8201 0567 001635 000000 HLT 039D,0000 0568 001636 140040 CRA 039E,C020 0569 001637 022140 CAS NULL 039F,2460 0570 001640 000000 HLT 03A0,0000 0571 001641 100000 SKP 03A1,8000 0572 001642 000000 HLT 03A2,0000 0573 001643 022130 CAS FFFF 03A3,2458 0574 001644 003647 JMP *+3 03A4,07A7 0575 001645 000000 HLT 03A5,0000 0576 001646 000000 HLT 03A6,0000 0577 001647 022127 CAS ONE 03A7,2457 0578 001650 000000 HLT 03A8,0000 0579 001651 000000 HLT 03A9,0000 0580 001652 004136 LDA MSB 03AA,085E 0581 001653 141206 AOA 03AB,C286 0582 001654 022136 CAS MSB 03AC,245E 0583 001655 003660 JMP *+3 03AD,07B0 0584 001656 000000 HLT 03AE,0000 0585 001657 000000 HLT 03AF,0000 0586 001660 004137 LDA LN 03B0,085F 0587 001661 022136 CAS MSB 03B1,245E 0588 001662 003665 JMP *+3 03B2,07B5 0589 001663 000000 HLT 03B3,0000 0590 001664 000000 HLT 03B4,0000 0591 001665 004136 LDA MSB 03B5,085E 0592 001666 022137 CAS LN 03B6,245F 0593 001667 000000 HLT 03B7,0000 0594 001670 000000 HLT 03B8,0000 0595 001671 024141 IRS SAVE 03B9,2861 0596 001672 003547 JMP MM13 03BA,0767 0597 * READY 0598 001673 004146 LDA M10 03BB,0866 0599 001674 020236 JST PRIN 03BC,209E 0600 001675 004153 LDA M10+5 03BD,086B 0601 001676 020236 JST PRIN 03BE,209E * TEST PROGRAM FOR X16 -- VERSION 2 PAGE 0018 0602 * 0603 * TEST 6 0604 * 0605 001677 140040 CRA 03BF,C020 0606 001700 141206 AOA 03C0,C286 0607 001701 101040 SNZ 03C1,8220 0608 001702 000000 HLT 03C2,0000 0609 001703 004137 LDA LN 03C3,085F 0610 001704 014127 ADD ONE OVERFLOW 03C4,1857 0611 001705 101040 SNZ 03C5,8220 0612 001706 000000 HLT 03C6,0000 0613 001707 101400 SMI 03C7,8300 0614 001710 000000 HLT 03C8,0000 0615 001711 101001 SSC 03C9,8201 0616 001712 000000 HLT 03CA,0000 0617 001713 004137 LDA LN 03CB,085F 0618 001714 141216 ACA OVERFLOW 03CC,C28E 0619 001715 101040 SNZ 03CD,8220 0620 001716 000000 HLT 03CE,0000 0621 001717 101400 SMI 03CF,8300 0622 001720 000000 HLT 03D0,0000 0623 001721 101001 SSC 03D1,8201 0624 001722 000000 HLT 03D2,0000 0625 001723 140040 CRA 03D3,C020 0626 001724 141216 ACA 03D4,C28E 0627 001725 016127 SUB ONE 03D5,1C57 0628 001726 100040 SZE 03D6,8020 0629 001727 000000 HLT 03D7,0000 0630 001730 100001 SRC 03D8,8001 0631 001731 000000 HLT 03D9,0000 0632 001732 140200 RCB 03DA,C080 0633 001733 004136 LDA MSB 03DB,085E 0634 001734 016127 SUB ONE OVERFLOW 03DC,1C57 0635 001735 101001 SSC 03DD,8201 0636 001736 000000 HLT 03DE,0000 0637 001737 140200 RCB 03DF,C080 0638 001740 016137 SUB LN 03E0,1C5F * TEST PROGRAM FOR X16 -- VERSION 2 PAGE 0019 0639 001741 100040 SZE 03E1,8020 0640 001742 000000 HLT 03E2,0000 0641 001743 100001 SRC 03E3,8001 0642 001744 000000 HLT 03E4,0000 0643 * READY 0644 001745 004146 LDA M10 03E5,0866 0645 001746 020236 JST PRIN 03E6,209E 0646 001747 004154 LDA M10+6 03E7,086C 0647 001750 020236 JST PRIN 03E8,209E 0648 * 0649 * TEST 7 MULTI LEVEL INDIRECT ADDRESSING 0650 * 0651 001751 120214 JST* TMII 03E9,A08C 0652 * READY 0653 001752 004146 LDA M10 03EA,0866 0654 001753 020236 JST PRIN 03EB,209E 0655 001754 004155 LDA M10+7 03EC,086D 0656 001755 020236 JST PRIN 03ED,209E 0657 * 0658 * TEST 8 SHIFT INSTRUCTIONS 0659 * 0660 001756 120215 JST* SHII 03EE,A08D 0661 * READY 0662 001757 004146 LDA M10 03EF,0866 0663 001760 020236 JST PRIN 03F0,209E 0664 001761 004156 LDA M10+8 03F1,086E 0665 001762 020236 JST PRIN 03F2,209E 0666 * 0667 * TEST 9: MEMORY TEST 0668 * 0669 001763 120216 JST* MTST 03F3,A08E 0670 * READY 0671 001764 004146 LDA M10 03F4,0866 0672 001765 020236 JST PRIN 03F5,209E 0673 001766 004157 LDA M10+9 03F6,086F 0674 001767 020236 JST PRIN 03F7,209E 0675 * * TEST PROGRAM FOR X16 -- VERSION 2 PAGE 0020 0676 * TEST 10: INTERRUPT AND RTC 0677 * 0678 001770 120217 T10 JST* TRTC 03F8,A08F 0679 * 0680 * RESTART 0681 * 0682 001771 003016 RST JMP STT RESTART 03F9,060E 0683 ******************************************************************* 0684 * 0685 * START OF MEM TO TEST AREA 0686 * 0687 001772 001773 PPP1 DAC *+1 03FA,03FB 0688 * END OF MEMORY TEST AREA 0689 ORG '30000 0690 * 0691 * MEMORY TEST ROUTINE 0692 * 0693 030000 000000 MEMT DAC ** 3000,0000 0694 030001 004124 LDA SWP 3001,0854 0695 030002 010125 STA SSWP 3002,1055 0696 030003 021020 ST JST ONCE 3003,2210 0697 030004 004130 LDA FFFF 3004,0858 0698 030005 021020 JST ONCE 3005,2210 0699 030006 004136 LDA MSB 3006,085E 0700 030007 021020 JST ONCE 3007,2210 0701 030010 140040 CRA TEST ZERO 3008,C020 0702 030011 021020 JST ONCE 3009,2210 0703 030012 004125 LDA SSWP 300A,0855 0704 030013 016127 SUB ONE 300B,1C57 0705 030014 010125 STA SSWP 300C,1055 0706 030015 100040 SZE 300D,8020 0707 030016 003003 JMP ST 300E,0603 0708 030017 103000 JMP* MEMT 300F,8600 0709 * 0710 * ROUTINE TO FILL MEMORY 0711 * 0712 030020 000000 ONCE DAC ** 3010,0000 * TEST PROGRAM FOR X16 -- VERSION 2 PAGE 0021 0713 030021 010141 STA SAVE 3011,1061 0714 030022 105067 LDA* PP1 3012,8A37 0715 030023 010144 STA PNTR 3013,1064 0716 030024 004141 H1 LDA SAVE 3014,0861 0717 030025 110144 STA* PNTR 3015,9064 0718 030026 024144 IRS PNTR 3016,2864 0719 030027 004144 LDA PNTR 3017,0864 0720 030030 022145 CAS MEND 3018,2465 0721 030031 000000 HLT 3019,0000 0722 030032 100000 SKP END MEMORY 301A,8000 0723 030033 003024 JMP H1 301B,0614 0724 * COMPARE STORED VALUES 0725 030034 105067 LDA* PP1 301C,8A37 0726 030035 010144 STA PNTR 301D,1064 0727 030036 104144 H2 LDA* PNTR 301E,8864 0728 030037 022141 CAS SAVE 301F,2461 0729 030040 000000 HLT 3020,0000 0730 030041 100000 SKP EQUAL 3021,8000 0731 030042 000000 HLT 3022,0000 0732 030043 006141 ANA SAVE 3023,0C61 0733 030044 012141 ERA SAVE SHOULD BE 0 3024,1461 0734 030045 100040 SZE 3025,8020 0735 030046 000000 HLT 3026,0000 0736 030047 004141 LDA SAVE 3027,0861 0737 030050 140401 CMA 3028,C101 0738 030051 106144 ANA* PNTR SHOULD BE 0 3029,8C64 0739 030052 100040 SZE 302A,8020 0740 030053 000000 HLT 302B,0000 0741 030054 004141 LDA SAVE 302C,0861 0742 030055 112144 ERA* PNTR PNTR SHOULD BE 0 302D,9464 0743 030056 100040 SZE 302E,8020 0744 030057 000000 HLT 302F,0000 0745 030060 024144 IRS PNTR 3030,2864 0746 030061 004144 LDA PNTR 3031,0864 0747 030062 022145 CAS MEND 3032,2465 0748 030063 000000 HLT 3033,0000 0749 030064 100000 SKP 3034,8000 * TEST PROGRAM FOR X16 -- VERSION 2 PAGE 0022 0750 030065 003036 JMP H2 3035,061E 0751 030066 103020 JMP* ONCE READY 3036,8610 0752 030067 001772 PP1 DAC PPP1 3037,03FA 0753 * 0754 * TEST MULTI LEVEL INDIRECT 0755 030070 000000 TMI DAC ** 3038,0000 0756 030071 140040 CRA 3039,C020 0757 030072 010000 STA 0 303A,1000 0758 030073 105141 LDA* TBA1 303B,8A61 0759 030074 022127 CAS ONE 303C,2457 0760 030075 000000 HLT 303D,0000 0761 030076 100000 SKP 303E,8000 0762 030077 000000 HLT 303F,0000 0763 030100 113141 ERA* TBA1 3040,9661 0764 030101 100040 SZE 3041,8020 0765 030102 000000 HLT 3042,0000 0766 030103 141206 AOA 3043,C286 0767 030104 010000 STA 0 3044,1000 0768 030105 105141 LDA* TBA1 3045,8A61 0769 030106 022136 CAS MSB 3046,245E 0770 030107 000000 HLT 3047,0000 0771 030110 100000 SKP 3048,8000 0772 030111 000000 HLT 3049,0000 0773 030112 113141 ERA* TBA1 304A,9661 0774 030113 100040 SZE 304B,8020 0775 030114 000000 HLT 304C,0000 0776 030115 010000 STA 0 304D,1000 0777 030116 145141 LDA* TBA1,1 304E,CA61 0778 030117 022127 CAS ONE 304F,2457 0779 030120 000000 HLT 3050,0000 0780 030121 100000 SKP 3051,8000 0781 030122 000000 HLT 3052,0000 0782 030123 153141 ERA* TBA1,1 3053,D661 0783 030124 100040 SZE 3054,8020 0784 030125 000000 HLT 3055,0000 0785 030126 141206 AOA 3056,C286 0786 030127 010000 STA 0 3057,1000 * TEST PROGRAM FOR X16 -- VERSION 2 PAGE 0023 0787 030130 145141 LDA* TBA1,1 3058,CA61 0788 030131 022136 CAS MSB 3059,245E 0789 030132 000000 HLT 305A,0000 0790 030133 100000 SKP 305B,8000 0791 030134 000000 HLT 305C,0000 0792 030135 153141 ERA* TBA1,1 305D,D661 0793 030136 100040 SZE 305E,8020 0794 030137 000000 HLT 305F,0000 0795 030140 103070 JMP* TMI 3060,8638 0796 030141 130143 TBA1 DAC* *+2 3061,B063 0797 030142 130143 TBA2 DAC* *+1 3062,B063 0798 030143 130144 DAC* *+1 3063,B064 0799 030144 130145 DAC* *+1 3064,B065 0800 030145 130146 DAC* *+1 3065,B066 0801 030146 130147 DAC* *+1 3066,B067 0802 030147 070150 DAC *+1,1 3067,7068 0803 030150 000001 DEC 1 3068,0001 0804 030151 100000 OCT '100000 3069,8000 0805 * 0806 * TEST SHIFT INSTRUCTIONS 0807 * 0808 030152 000000 SHFT DAC ** 306A,0000 0809 * LONG SHIFTS 0810 030153 140040 CRA 306B,C020 0811 030154 140200 RCB C=0 306C,C080 0812 030155 141206 AOA A16=1 306D,C286 0813 030156 000201 IAB A=0, B16=1 306E,0081 0814 030157 041040 LLL 32 306F,4220 0815 030160 100040 SZE ? A=0 3070,8020 0816 030161 000000 HLT 3071,0000 0817 030162 101001 SSC ? C=1 3072,8201 0818 030163 000000 HLT 3073,0000 0819 030164 140200 RCB 3074,C080 0820 030165 000201 IAB 3075,0081 0821 030166 100040 SZE ? B=0 3076,8020 0822 030167 000000 HLT 3077,0000 0823 * * TEST PROGRAM FOR X16 -- VERSION 2 PAGE 0024 0824 030170 004136 LDA MSB A1=1, B=0 3078,085E 0825 030171 040040 LRL 32 3079,4020 0826 030172 100040 SZE ? A=0 307A,8020 0827 030173 000000 HLT 307B,0000 0828 030174 000201 IAB ? B=0 307C,0081 0829 030175 100040 SZE 307D,8020 0830 030176 000000 HLT 307E,0000 0831 030177 101001 SSC ? C=1 307F,8201 0832 030200 000000 HLT 3080,0000 0833 * 0834 030201 140200 RCB C=0 3081,C080 0835 030202 141206 AOA A16=1, B=0 3082,C286 0836 030203 041260 LLR 16 3083,42B0 0837 030204 101001 SSC ? C=0 3084,8201 0838 030205 000000 HLT 3085,0000 0839 030206 100040 SZE ? A=0 3086,8020 0840 030207 000000 HLT 3087,0000 0841 030210 000201 IAB ? B16=1 3088,0081 0842 030211 101100 SLN 3089,8240 0843 030212 000000 HLT 308A,0000 0844 * 0845 030213 140200 RCB C=0 A16=1 B=0 308B,C080 0846 030214 040260 LRR 16 308C,40B0 0847 030215 100001 SRC ? C=0 308D,8001 0848 030216 000000 HLT 308E,0000 0849 030217 100040 SZE ? A=0 308F,8020 0850 030220 000000 HLT 3090,0000 0851 030221 000201 IAB ? B16=1 3091,0081 0852 030222 101100 SLN 3092,8240 0853 030223 000000 HLT 3093,0000 0854 030224 000201 IAB 3094,0081 0855 030225 040277 LRR 1 3095,40BF 0856 030226 022136 CAS MSB ? A1=1 3096,245E 0857 030227 000000 HLT 3097,0000 0858 030230 100000 SKP 3098,8000 0859 030231 000000 HLT 3099,0000 0860 030232 101001 SSC ? C=1 309A,8201 * TEST PROGRAM FOR X16 -- VERSION 2 PAGE 0025 0861 030233 000000 HLT 309B,0000 0862 030234 000201 IAB ? B=0 309C,0081 0863 030235 100040 SZE 309D,8020 0864 030236 000000 HLT 309E,0000 0865 * 0866 030237 140200 RCB 309F,C080 0867 030240 140040 CRA 30A0,C020 0868 030241 140401 CMA B=FFFF 30A1,C101 0869 030242 000201 IAB 30A2,0081 0870 030243 041141 LLS 31 30A3,4261 0871 030244 100040 SZE ? A=0 30A4,8020 0872 030245 000000 HLT 30A5,0000 0873 030246 000201 IAB ? B=8000 30A6,0081 0874 030247 022136 CAS MSB 30A7,245E 0875 030250 000000 HLT 30A8,0000 0876 030251 100000 SKP 30A9,8000 0877 030252 000000 HLT 30AA,0000 0878 030253 101001 SSC ? C=1 30AB,8201 0879 030254 000000 HLT 30AC,0000 0880 * 0881 030255 140200 RCB C=0 30AD,C080 0882 030256 140040 CRA 30AE,C020 0883 030257 000201 IAB B=0 30AF,0081 0884 030260 140040 CRA A=0 30B0,C020 0885 030261 140401 CMA A=FFFF 30B1,C101 0886 030262 040141 LRS 31 30B2,4061 0887 030263 012130 ERA FFFF ? A=FFFF 30B3,1458 0888 030264 100040 SZE 30B4,8020 0889 030265 000000 HLT 30B5,0000 0890 030266 101001 SSC ? C=1 30B6,8201 0891 030267 000000 HLT 30B7,0000 0892 030270 000201 IAB ? B=7FFF 30B8,0081 0893 030271 140401 CMA 30B9,C101 0894 030272 022136 CAS MSB 30BA,245E 0895 030273 000000 HLT 30BB,0000 0896 030274 100000 SKP 30BC,8000 0897 030275 000000 HLT 30BD,0000 * TEST PROGRAM FOR X16 -- VERSION 2 PAGE 0026 0898 * 0899 * SHORT SHIFTS 0900 030276 140200 RCB LGL 30BE,C080 0901 030277 140040 CRA 30BF,C020 0902 030300 141206 AOA 30C0,C286 0903 030301 041461 LGL 15 30C1,4331 0904 030302 101400 SMI A1=1? 30C2,8300 0905 030303 000000 HLT 30C3,0000 0906 030304 041477 LGL 1 30C4,433F 0907 030305 101001 SSC C=1? 30C5,8201 0908 030306 000000 HLT 30C6,0000 0909 030307 100040 SZE A=0? 30C7,8020 0910 030310 000000 HLT 30C8,0000 0911 030311 140200 RCB 30C9,C080 0912 030312 140401 CMA 30CA,C101 0913 030313 041460 LGL 16 30CB,4330 0914 030314 101001 SSC C=1? 30CC,8201 0915 030315 000000 HLT 30CD,0000 0916 030316 100040 SZE A=0? 30CE,8020 0917 030317 000000 HLT 30CF,0000 0918 * 0919 030320 140200 RCB LGR 30D0,C080 0920 030321 140024 CHS A1=1 30D1,C014 0921 030322 040461 LGR 15 30D2,4131 0922 030323 101100 SLN A16=1? 30D3,8240 0923 030324 000000 HLT 30D4,0000 0924 030325 040477 LGR 1 30D5,413F 0925 030326 100040 SZE A=0? 30D6,8020 0926 030327 000000 HLT 30D7,0000 0927 030330 101001 SSC C=1? 30D8,8201 0928 030331 000000 HLT 30D9,0000 0929 030332 140200 RCB 30DA,C080 0930 030333 140401 CMA 30DB,C101 0931 030334 040460 LGR 16 30DC,4130 0932 030335 100040 SZE A=0? 30DD,8020 0933 030336 000000 HLT 30DE,0000 0934 030337 101001 SSC C=1? 30DF,8201 * TEST PROGRAM FOR X16 -- VERSION 2 PAGE 0027 0935 030340 000000 HLT 30E0,0000 0936 * 0937 030341 140200 RCB ALR 30E1,C080 0938 030342 140040 CRA 30E2,C020 0939 030343 141206 AOA 30E3,C286 0940 030344 041661 ALR 15 30E4,43B1 0941 030345 100001 SRC C=0? 30E5,8001 0942 030346 000000 HLT 30E6,0000 0943 030347 041677 ALR 1 30E7,43BF 0944 030350 100400 SPL A1=0? 30E8,8100 0945 030351 000000 HLT 30E9,0000 0946 030352 101001 SSC C=1? 30EA,8201 0947 030353 000000 HLT 30EB,0000 0948 030354 101100 SLN A16=1? 30EC,8240 0949 030355 000000 HLT 30ED,0000 0950 030356 140200 RCB 30EE,C080 0951 030357 040477 LGR 1 30EF,413F 0952 030360 100040 SZE A=0? 30F0,8020 0953 030361 000000 HLT 30F1,0000 0954 030362 101001 SSC C=1? 30F2,8201 0955 030363 000000 HLT 30F3,0000 0956 * 0957 030364 140200 RCB ARR 30F4,C080 0958 030365 141206 AOA 30F5,C286 0959 030366 040677 ARR 1 30F6,41BF 0960 030367 100100 SLZ A16=0? 30F7,8040 0961 030370 000000 HLT 30F8,0000 0962 030371 101001 SSC C=1? 30F9,8201 0963 030372 000000 HLT 30FA,0000 0964 030373 101400 SMI 30FB,8300 0965 030374 000000 HLT A1=1? 30FC,0000 0966 030375 140200 RCB 30FD,C080 0967 030376 040661 ARR 15 30FE,41B1 0968 030377 101100 SLN A16=1? 30FF,8240 0969 030400 000000 HLT 3100,0000 0970 030401 040477 LGR 1 3101,413F 0971 030402 100040 SZE A=0? 3102,8020 * TEST PROGRAM FOR X16 -- VERSION 2 PAGE 0028 0972 030403 000000 HLT 3103,0000 0973 030404 101001 SSC C=1? 3104,8201 0974 030405 000000 HLT 3105,0000 0975 * 0976 030406 140200 RCB ALS 3106,C080 0977 030407 141206 AOA 3107,C286 0978 030410 041561 ALS 15 3108,4371 0979 030411 101400 SMI A1=1? 3109,8300 0980 030412 000000 HLT 310A,0000 0981 030413 101001 SSC C=1? 310B,8201 0982 030414 000000 HLT 310C,0000 0983 030415 140200 RCB 310D,C080 0984 030416 041577 ALS 1 310E,437F 0985 030417 100040 SZE A=0? 310F,8020 0986 030420 000000 HLT 3110,0000 0987 030421 101001 SSC C=1? 3111,8201 0988 030422 000000 HLT 3112,0000 0989 030423 041577 ALS 1 3113,437F 0990 030424 100001 SRC C=0? 3114,8001 0991 030425 000000 HLT 3115,0000 0992 * 0993 030426 004136 LDA MSB ARS 3116,085E 0994 030427 040561 ARS 15 3117,4171 0995 030430 100001 SRC C=0? 3118,8001 0996 030431 000000 HLT 3119,0000 0997 030432 140401 CMA 311A,C101 0998 030433 100040 SZE A=0? 311B,8020 0999 030434 000000 HLT 311C,0000 1000 030435 141206 AOA 311D,C286 1001 030436 040676 ARR 2 311E,41BE 1002 030437 040561 ARS 15 311F,4171 1003 030440 100040 SZE A=0? 3120,8020 1004 030441 000000 HLT 3121,0000 1005 030442 101001 SSC C=1? 3122,8201 1006 030443 000000 HLT 3123,0000 1007 * 1008 030444 103152 JMP* SHFT 3124,866A * TEST PROGRAM FOR X16 -- VERSION 2 PAGE 0029 1009 * 1010 030445 177777 AA OCT '177777 3125,FFFF 1011 030446 000000 BB DEC 0 3126,0000 1012 030447 000000 CC DEC 0 3127,0000 1013 030450 177770 DD OCT '177770 3128,FFF8 1014 030451 000007 EE DEC 7 3129,0007 1015 * 1016 030452 000000 FFF DAC ** 312A,0000 1017 030453 141206 AOA 312B,C286 1018 030454 103452 JMP* *-2 312C,872A 1019 * 1020 030455 001000 GG OCT '1000 312D,0200 1021 030456 100007 HH OCT '100007 312E,8007 1022 * 1023 * ROUTINE TO TEST INTERRUPT LOGIC AND RTC 1024 * 1025 030457 000000 TINT DAC ** 312F,0000 1026 030460 005526 LDA N10 3130,0B56 1027 030461 011527 STA CNT CHECK 10 CLOCK INTERRUPTS3131,1357 1028 030462 005525 LDA M50 3132,0B55 1029 030463 010061 STA RTC INIT RTC TO INTERRUPT (1 SEC)3133,1031 1030 030464 030020 OCP '20 START RTC 3134,3010 1031 * 1032 * INIT THE INTERRUPT PROCESSING 1033 030465 005473 LDA LINK 3135,0B3B 1034 030466 010063 STA INT 3136,1033 1035 030467 005522 LDA MASK ENABLE RTC INTERRUPT3137,0B52 1036 030470 170020 SMK '20 3138,F010 1037 030471 000401 ENB 3139,0101 1038 030472 003472 JMP * AND WAIT FOR AN INTERRUPT313A,073A 1039 030473 030474 LINK DAC *+1 313B,313C 1040 * 1041 * 1042 * INTERRUPT ROUTINE, ENTERS HERE 1043 030474 000000 IPRC *** ** 313C,0000 1044 * CHECK FOR A CLOCK INTERRUPT 1045 030475 070020 SKS '20 313D,7010 * TEST PROGRAM FOR X16 -- VERSION 2 PAGE 0030 1046 030476 003501 JMP CLCK 313E,0741 1047 * NO RTC INTERRUPT, SO ERROR 1048 030477 000000 HLT 313F,0000 1049 030500 003477 JMP *-1 3140,073F 1050 * 1051 * RTC INTERRUPT 1052 030501 011524 CLCK STA SA 3141,1354 1053 030502 005523 LDA AST PRINT A * 3142,0B53 1054 030503 070104 SKS '104 3143,7044 1055 030504 003503 JMP *-1 3144,0743 1056 030505 030104 OCP '104 3145,3044 1057 030506 170004 OTA 4 3146,F004 1058 030507 003506 JMP *-1 3147,0746 1059 030510 000011 DXA 3148,0009 1060 030511 025527 IRS CNT 3149,2B57 1061 030512 100000 SKP NO 10 INTERRUPTS YET314A,8000 1062 030513 103457 JMP* TINT STOP 314B,872F 1063 * RELOAD THE RTC LOCATION AND ENABLE INTERRUPT AND BACK TO PROGRAM 1064 030514 005525 LDA M50 314C,0B55 1065 030515 010061 STA RTC 314D,1031 1066 030516 030020 OCP '20 RESET CLOCK INTERRUPT314E,3010 1067 030517 005524 LDA SA RESTORE A 314F,0B54 1068 030520 000401 ENB 3150,0101 1069 030521 103474 JMP* IPRC 3151,873C 1070 * 1071 RTC EQU '61 CLOCK LOCATION 1072 INT EQU '63 INTERRUPT LOCATION 1073 030522 000001 MASK DEC 1 RTC MASK BIT 3152,0001 1074 AST BCI 1, * 030523 120252 3153,A0AA 1075 030524 000000 SA DEC 0 LOCATION TO SAVE A REG3154,0000 1076 030525 177716 M50 DEC -50 50 TICK PER SECOND 3155,FFCE 1077 030526 177766 N10 DEC -10 10 CLOCK INTERRUPTS 3156,FFF6 1078 030527 000000 CNT DEC 0 INTERRUPT COUNTER 3157,0000 1079 END * TEST PROGRAM FOR X16 -- VERSION 2 PAGE 0031 SYMBOL TABLE A 000175 A A11 000205 A AA 030445 A ASRI 000227 A ASRO 000220 A AST 030523 A B 000176 A B11 000206 A BB 030446 A C 000177 A C11 000207 A CC 030447 A CLCK 030501 A CM1 001237 A CM2 001300 A CNT 030527 A D 000200 A D11 000210 A DD 030450 A E 000201 A E11 000211 A EE 030451 A F 000202 A F00F 000131 A F0FF 000135 A F11 000212 A FF 000133 A FF00 000132 A FF0F 000134 A FFF 030452 A FFFF 000130 A G 000203 A G11 000213 A GG 030455 A H 000204 A H1 030024 A H2 030036 A HH 030456 A INT 000063 A IPRC 030474 A LINK 030473 A LN 000137 A M1 000110 A M10 000146 A M2 000121 A M50 030525 A M8 000121 A M9 000122 A MASK 030522 A MEMT 030000 A MEND 000145 A MM1 001252 A MM10 001434 A MM11 001447 A MM12 001462 A MM13 001547 A MM2 001265 A MM3 001312 A MM4 001325 A MM5 001341 A MM6 001354 A MM7 001366 A MM8 001401 A MM9 001422 A MPAG 000142 A MSB 000136 A MSEC 000143 A MTST 000216 A N10 030526 A NLCR 000244 A NULL 000140 A O260 000123 A ONCE 030020 A ONE 000127 A ONL 000126 A P 000161 A P2 000161 A P3 000162 A P4 000163 A P5 000164 A P6 000165 A P7 000166 A PNTR 000144 A PP 000167 A PP1 030067 A PP2 000167 A PP3 000170 A PP4 000171 A PP5 000172 A PP6 000173 A PP7 000174 A PPP1 001772 A PRIN 000236 A RST 001771 A RTC 000061 A SA 030524 A SAVE 000141 A SHFT 030152 A SHII 000215 A SSWP 000125 A ST 030003 A STRT 001000 A STT 001016 A SWP 000124 A T10 001770 A TBA1 030141 A TBA2 030142 A TINT 030457 A TMI 030070 A TMII 000214 A TRTC 000217 A X16Asm, version 0.3. End of assembly, 0 errors.