* EXTENDED MODE TEST PAGE 0001 0001 * EXTENDED MODE TEST 0002 * 0003 * START ADDRESS: (OCTAL) 1000 0004 * 0005 * DATE: JAN-15-2010 0006 * 0007 * AUTHOR : THEO ENGEL 0008 * CONTACT: INFO@THEOENGEL.NL 0009 * 0010 LOAD 0011 ORG '100 0012 * IN THIS PROGRAM USE IS MADE OF THE FOLLOWING CODE 0013 * TO CHECK WHETHER THE CPU IS IN NORMAL MODE OR IN 0014 * EXTEND MODE: 0015 * -TEST FOR EXTENDED MODE, WHEN X=1, BY DOING: 0016 * LDA* A,1 0017 * THE RESULT OF THIS LOAD SHOULD BE: 0018 * -NORMAL MODE: A=-1 (CONTENT OF C) 0019 * -EXTENDED MODE: A=0 (CONTENT OF D) 0020 * 0021 * A SWITCH FROM NORMAL TO EXTENDED MODE IS OBTAINED BY: 0022 * -EXECUTING THE EXA INSTRUCTION, OR 0023 * -AFTER AN INTERRUPT, OR 0024 * -EXECUTING AN OTK INSTRUCTION WITH A3=1 0025 * 0026 * A SWITCH FROM EXTENDED TO NORMAL MODE IS OBTAINED BY: 0027 * -EXECUTING THE DXA INSTRUCTION, OR 0028 * -EXECUTING AN OTK INSTRUCTION WITH A3=0 0029 * IN BOTH CASES, THE NORMAL MODE IS ACTIVATED AFTER 0030 * THE EXECTION OF 1ST JMP AFTER EITHER THE DXA OR OTK. 0031 * 0032 * WITH AN INTERRUPT, THE CURRENT MODE (EITHER NORMAL, 0033 * OR EXTENDED) IS STORED IN PMI. THE VALUE OF PMI CAN 0034 * BE OBTAINED IN A3 BY MEANS OF A INK INSTRUCTION. 0035 * 0036 000100 100102 A DAC* E 0040,8042 0037 000101 000103 B DAC C 0041,0043 * EXTENDED MODE TEST PAGE 0002 0038 000102 000103 E DAC C 0042,0043 0039 000103 177777 C OCT 177777 0043,FFFF 0040 000104 000000 D OCT 0 0044,0000 0041 * 0042 * CLOCK 1 INTERRUPT DATA 0043 * (ENTERS INTERRUPT WITH NORMAL MODE) 0044 000105 177716 M50 DEC -50 50 TICK PER SECOND 0045,FFCE 0045 000106 000001 MASK DEC 1 RTC MASK BIT 0046,0001 0046 000107 001124 INT1 DAC ID1 TO BE LOADED IN '63 0047,0254 0047 * CLOCK 2 INTERRUPT DATA 0048 * (ENTERS INTERRUPT WITH EXTENDED MODE) 0049 000110 001170 INT2 DAC ID2 TO BE LOADED IN '63 0048,0278 0050 000111 020000 PME OCT 020000 PME BIT 0049,2000 0051 * CLOCK 3 INTERRUPT DATA 0052 * (ENTERS INTERRUPT WITH NORMAL MODE) 0053 000112 001236 INT3 DAC ID3 TO BE LOADED IN '63 004A,029E 0054 * 0055 000113 100000 MSB OCT 100000 004B,8000 0056 000114 120000 MO1 OCT 120000 OTK:SET C AND EXTEND004C,A000 0057 000115 106612 ONL OCT '106612 NLCR 004D,8D8A 0058 AST BCI 1, * 000116 120252 004E,A0AA 0059 000117 030000 MSTR OCT 30000 004F,3000 0060 000120 047757 MEND OCT 47757 0050,4FEF 0061 000121 000001 ONE OCT 1 0051,0001 0062 000122 177777 FFFF OCT 177777 0052,FFFF 0063 * 0064 * POINTER TO EXTENDED MEMORY CODE 0065 000123 077760 MUP EAC ECD 0053,7FF0 0066 000124 001007 BACK DAC STR 0054,0207 0067 * 0068 * PRINT ASCII 0069 000125 000000 ASRO DAC ** 0055,0000 0070 000126 070104 SKS '104 0056,7044 0071 000127 002126 JMP *-1 0057,0456 0072 000130 030104 OCP '104 0058,3044 0073 000131 170004 OTA 4 0059,F004 * EXTENDED MODE TEST PAGE 0003 0074 000132 002131 JMP *-1 005A,0459 0075 000133 102125 JMP* ASRO 005B,8455 0076 * 0077 * PRINT 2 ASCII'S 0078 000134 000000 PRIN DAC ** 005C,0000 0079 000135 141340 ICA 005D,C2E0 0080 000136 020125 JST ASRO 005E,2055 0081 000137 141340 ICA 005F,C2E0 0082 000140 020125 JST ASRO 0060,2055 0083 000141 102134 JMP* PRIN 0061,845C 0084 * 0085 * PRINT NLCR 0086 000142 000000 NLCR DAC ** 0062,0000 0087 000143 004115 LDA ONL 0063,084D 0088 000144 020134 JST PRIN 0064,205C 0089 000145 102142 JMP* NLCR 0065,8462 0090 * 0091 BCI 15,X16 EXTENDED MODE TEST PROGRAM 000146 154261 0066,D8B1 000147 133240 0067,B6A0 000150 142730 0068,C5D8 000151 152305 0069,D4C5 000152 147304 006A,CEC4 000153 142704 006B,C5C4 000154 120315 006C,A0CD 000155 147704 006D,CFC4 000156 142640 006E,C5A0 000157 152305 006F,D4C5 000160 151724 0070,D3D4 000161 120320 0071,A0D0 000162 151317 0072,D2CF 000163 143722 0073,C7D2 000164 140715 0074,C1CD 0092 M1 EQU * 0093 000165 177761 ML DEC -15 0075,FFF1 0094 * 0095 ORG '1000 * EXTENDED MODE TEST PAGE 0004 0096 001000 140040 STRT CRA START ADDRESS 0200,C020 0097 001001 072165 LDX ML 0201,7475 0098 001002 044165 LDA M1,1 0202,4875 0099 001003 020134 JST PRIN 0203,205C 0100 001004 024000 IRS 0 0204,2800 0101 001005 003002 JMP *-3 0205,0602 0102 001006 020142 JST NLCR 0206,2062 0103 001007 140040 STR CRA 0207,C020 0104 * BASIC EXA AND DXA TESTING 0105 001010 141206 AOA 0208,C286 0106 001011 010000 STA 0 X=1 0209,1000 0107 001012 144100 LDA* A,1 NORMAL MODE? 020A,C840 0108 001013 140401 CMA 020B,C101 0109 001014 100040 SZE 020C,8020 0110 001015 000000 HLT NO=>ERROR 020D,0000 0111 001016 141206 AOA A#0 020E,C286 0112 001017 000013 EXA SET EXT MODE 020F,000B 0113 001020 144100 LDA* A,1 EXT MODE? 0210,C840 0114 001021 100040 SZE 0211,8020 0115 001022 000000 HLT NO=>ERROR 0212,0000 0116 001023 000011 DXA 0213,0009 0117 001024 141206 AOA A#0 0214,C286 0118 001025 144100 LDA* A,1 EXT MODE? 0215,C840 0119 001026 100040 SZE 0216,8020 0120 001027 000000 HLT NO=>ERROR 0217,0000 0121 001030 003031 JMP *+1 0218,0619 0122 * AFTER THIS JMP WE MUST HAVE NORMAL MODE 0123 001031 144100 LDA* A,1 NORMAL MODE? 0219,C840 0124 001032 140401 CMA 021A,C101 0125 001033 100040 SZE 021B,8020 0126 001034 000000 HLT NO=>ERROR 021C,0000 0127 * 0128 * BASIC INK AND OTK TESTING 0129 001035 140600 SCB C=1 021D,C180 0130 001036 000043 INK 021E,0023 0131 001037 012113 ERA MSB A1 MUST BE 1 021F,144B 0132 001040 100040 SZE 0220,8020 * EXTENDED MODE TEST PAGE 0005 0133 001041 000000 HLT 0221,0000 0134 001042 140200 RCB C=0 0222,C080 0135 001043 000043 INK A MUST BE 0 0223,0023 0136 001044 100040 SZE 0224,8020 0137 001045 000000 HLT 0225,0000 0138 001046 141206 AOA 0226,C286 0139 001047 041461 LGL 15 A1=1 0227,4331 0140 001050 171020 OTK C=1? 0228,F210 0141 001051 101001 SSC 0229,8201 0142 001052 000000 HLT 022A,0000 0143 001053 140040 CRA 022B,C020 0144 001054 171020 OTK C=0? 022C,F210 0145 001055 100001 SRC 022D,8001 0146 001056 000000 HLT 022E,0000 0147 * WE MUST BE IN NORMAL MODE 0148 001057 144100 LDA* A,1 NORMAL MODE? 022F,C840 0149 001060 140401 CMA 0230,C101 0150 001061 100040 SZE 0231,8020 0151 001062 000000 HLT NO=>ERROR 0232,0000 0152 * SET C AND EXTEND 0153 001063 004114 LDA MO1 '120000 0233,084C 0154 001064 171020 OTK 0234,F210 0155 001065 101001 SSC 0235,8201 0156 001066 000000 HLT 0236,0000 0157 001067 144100 LDA* A,1 EXT MODE? 0237,C840 0158 001070 100040 SZE 0238,8020 0159 001071 000000 HLT NO=>ERROR 0239,0000 0160 * RESET C AND SET NORMAL 0161 001072 171020 OTK C=0? 023A,F210 0162 001073 100001 SRC 023B,8001 0163 001074 000000 HLT 023C,0000 0164 001075 141206 AOA BUT STILL IN EXTEND 023D,C286 0165 001076 144100 LDA* A,1 EXT MODE? 023E,C840 0166 001077 100040 SZE 023F,8020 0167 001100 000000 HLT NO=>ERROR 0240,0000 0168 001101 003102 JMP *+1 0241,0642 0169 * NOW WE MUST NORMAL MODE * EXTENDED MODE TEST PAGE 0006 0170 001102 144100 LDA* A,1 NORMAL MODE? 0242,C840 0171 001103 140401 CMA 0243,C101 0172 001104 100040 SZE 0244,8020 0173 001105 000000 HLT NO=>ERROR 0245,0000 0174 * 0175 * ENTER IN NORMAL MODE AND TEST WHETHER IN 0176 * EXTENDED MODE AFTER INTERRUPT 0177 001106 004107 LDA INT1 INTERRUPT SETUP 0246,0847 0178 001107 010063 STA '63 0247,1033 0179 001110 004105 LDA M50 0248,0845 0180 001111 010061 STA '61 INIT RTC TO INTERRUPT (1 SEC)0249,1031 0181 001112 005123 LDA IA 024A,0A53 0182 001113 011124 STA ID1 024B,1254 0183 001114 030020 OCP '20 START RTC 024C,3010 0184 * 0185 * INIT THE INTERRUPT PROCESSING 0186 001115 004106 LDA MASK ENABLE RTC INTERRUPT024D,0846 0187 001116 170020 SMK '20 024E,F010 0188 001117 140040 CRA 024F,C020 0189 001120 000401 ENB 0250,0101 0190 001121 003121 CD JMP * AND WAIT FOR AN INTERRUPT0251,0651 0191 001122 101000 NOP 0252,8200 0192 001123 140000 IA DAC* **,1 0253,C000 0193 * 0194 * 0195 * INTERRUPT ROUTINE, ENTERS HERE * 0196 * CHECK WHETHER THE JST* '63 KEEPS THE FLAG IN ID1 0197 * AND DESTROYS ITS TAG BIT 0198 001124 140000 ID1 DAC* **,1 0254,C000 0199 * CHECK FOR A CLOCK INTERRUPT 0200 001125 070020 SKS '20 0255,7010 0201 001126 003132 JMP CLCK 0256,065A 0202 * NO RTC INTERRUPT, SO ERROR 0203 001127 000000 HLT 0257,0000 0204 001130 003127 JMP *-1 0258,0657 0205 * 0206 * RTC INTERRUPT * EXTENDED MODE TEST PAGE 0007 0207 001131 001121 ACD DAC CD 0259,0251 0208 001132 141206 CLCK AOA A#0 025A,C286 0209 001133 144100 LDA* A,1 EXT MODE? 025B,C840 0210 001134 100040 SZE 025C,8020 0211 001135 000000 HLT NO=>ERROR 025D,0000 0212 * PME AND C MUST BE 0 0213 001136 141206 AOA 025E,C286 0214 001137 000043 INK 025F,0023 0215 001140 100040 SZE 0260,8020 0216 001141 000000 HLT 0261,0000 0217 001142 005124 LDA ID1 0262,0A54 0218 001143 101400 SMI FLAG OK? 0263,8300 0219 001144 000000 HLT NO=>ERROR 0264,0000 0220 001145 140320 CSA 0265,C0D0 0221 001146 017131 SUB ACD ADDRESS OK? 0266,1E59 0222 001147 100040 SZE 0267,8020 0223 001150 000000 HLT NO=>ERROR 0268,0000 0224 001151 004116 LDA AST 0269,084E 0225 001152 020134 JST PRIN PRINT * 026A,205C 0226 * 0227 * ENTER IN EXTENDED MODE AND TEST WHETHER IN 0228 * EXTENDED MODE AFTER INTERRUPT 0229 001153 004110 LDA INT2 INTERRUPT SETUP 026B,0848 0230 001154 010063 STA '63 026C,1033 0231 001155 004105 LDA M50 026D,0845 0232 001156 010061 STA '61 INIT RTC TO INTERRUPT (1 SEC)026E,1031 0233 001157 005123 LDA IA 026F,0A53 0234 001160 011170 STA ID2 0270,1278 0235 001161 030020 OCP '20 START RTC 0271,3010 0236 * 0237 * INIT THE INTERRUPT PROCESSING 0238 001162 004106 LDA MASK ENABLE RTC INTERRUPT0272,0846 0239 001163 170020 SMK '20 0273,F010 0240 001164 140040 CRA 0274,C020 0241 001165 000401 ENB 0275,0101 0242 001166 003166 CD1 JMP * AND WAIT FOR AN INTERRUPT0276,0676 0243 001167 101000 NOP 0277,8200 * EXTENDED MODE TEST PAGE 0008 0244 * 0245 * 0246 * INTERRUPT ROUTINE, ENTERS HERE * 0247 * CHECK WHETHER THE JST* '63 KEEPS THE FLAG IN ID2 0248 * AND DESTROYS ITS TAG BIT 0249 001170 140000 ID2 DAC* **,1 0278,C000 0250 * CHECK FOR A CLOCK INTERRUPT 0251 001171 070020 SKS '20 0279,7010 0252 001172 003176 JMP CLK1 027A,067E 0253 * NO RTC INTERRUPT, SO ERROR 0254 001173 000000 HLT 027B,0000 0255 001174 003173 JMP *-1 027C,067B 0256 * 0257 * RTC INTERRUPT 0258 001175 001166 ACD1 DAC CD1 027D,0276 0259 001176 141206 CLK1 AOA A#0 027E,C286 0260 001177 144100 LDA* A,1 EXT MODE? 027F,C840 0261 001200 100040 SZE 0280,8020 0262 001201 000000 HLT NO=>ERROR 0281,0000 0263 * PME MUST BE 1 AND C MUST BE 0 0264 001202 141206 AOA 0282,C286 0265 001203 000043 INK 0283,0023 0266 001204 012111 ERA PME A3=1? 0284,1449 0267 001205 100040 SZE 0285,8020 0268 001206 000000 HLT 0286,0000 0269 001207 005170 LDA ID2 0287,0A78 0270 001210 101400 SMI FLAG OK? 0288,8300 0271 001211 000000 HLT NO=>ERROR 0289,0000 0272 001212 140320 CSA 028A,C0D0 0273 001213 017175 SUB ACD1 ADDRESS OK? 028B,1E7D 0274 001214 100040 SZE 028C,8020 0275 001215 000000 HLT NO=>ERROR 028D,0000 0276 001216 000011 DXA 028E,0009 0277 001217 004116 LDA AST 028F,084E 0278 001220 020134 JST PRIN PRINT * 0290,205C 0279 * 0280 * ENTER IN NORMAL MODE AND TEST WHETHER IN * EXTENDED MODE TEST PAGE 0009 0281 * EXTENDED MODE AFTER INTERRUPT 0282 001221 004112 LDA INT3 INTERRUPT SETUP 0291,084A 0283 001222 010063 STA '63 0292,1033 0284 001223 004105 LDA M50 0293,0845 0285 001224 010061 STA '61 INIT RTC TO INTERRUPT (1 SEC)0294,1031 0286 001225 005123 LDA IA 0295,0A53 0287 001226 011236 STA ID3 0296,129E 0288 001227 030020 OCP '20 START RTC 0297,3010 0289 * 0290 * INIT THE INTERRUPT PROCESSING 0291 001230 004106 LDA MASK ENABLE RTC INTERRUPT0298,0846 0292 001231 170020 SMK '20 0299,F010 0293 001232 140040 CRA 029A,C020 0294 001233 000401 ENB 029B,0101 0295 001234 003234 CD2 JMP * AND WAIT FOR AN INTERRUPT029C,069C 0296 001235 101000 NOP 029D,8200 0297 * 0298 * 0299 * INTERRUPT ROUTINE, ENTERS HERE * 0300 * CHECK WHETHER THE JST* '63 KEEPS THE FLAG IN ID3 0301 * AND DESTROYS ITS TAG BIT 0302 001236 140000 ID3 DAC* **,1 029E,C000 0303 * CHECK FOR A CLOCK INTERRUPT 0304 001237 070020 SKS '20 029F,7010 0305 001240 003244 JMP CLK2 02A0,06A4 0306 * NO RTC INTERRUPT, SO ERROR 0307 001241 000000 HLT 02A1,0000 0308 001242 003241 JMP *-1 02A2,06A1 0309 * 0310 * RTC INTERRUPT 0311 001243 001234 ACD2 DAC CD2 02A3,029C 0312 001244 141206 CLK2 AOA A#0 02A4,C286 0313 001245 144100 LDA* A,1 EXT MODE? 02A5,C840 0314 001246 100040 SZE 02A6,8020 0315 001247 000000 HLT NO=>ERROR 02A7,0000 0316 * PME MUST BE 0 AND C MUST BE 0 0317 001250 141206 AOA 02A8,C286 * EXTENDED MODE TEST PAGE 0010 0318 001251 000043 INK 02A9,0023 0319 001252 100040 SZE 02AA,8020 0320 001253 000000 HLT 02AB,0000 0321 001254 005236 LDA ID3 02AC,0A9E 0322 001255 101400 SMI FLAG OK? 02AD,8300 0323 001256 000000 HLT NO=>ERROR 02AE,0000 0324 001257 140320 CSA 02AF,C0D0 0325 001260 017243 SUB ACD2 ADDRESS OK? 02B0,1EA3 0326 001261 100040 SZE 02B1,8020 0327 001262 000000 HLT NO=>ERROR 02B2,0000 0328 001263 000011 DXA 02B3,0009 0329 001264 004116 LDA AST 02B4,084E 0330 001265 020134 JST PRIN PRINT * 02B5,205C 0331 001266 020142 JST NLCR 02B6,2062 0332 * NORMAL MODE AND PME==0 0333 * 0334 * TEST JST IN NORMAL MODE 0335 001267 144100 LDA* A,1 NORMAL MODE? 02B7,C840 0336 001270 140401 CMA 02B8,C101 0337 001271 100040 SZE 02B9,8020 0338 001272 000000 HLT NO=>ERROR 02BA,0000 0339 001273 005123 LDA IA 02BB,0A53 0340 001274 011277 STA ID4 02BC,12BF 0341 001275 021277 JST ID4 02BD,22BF 0342 001276 001276 ACD3 DAC * 02BE,02BE 0343 001277 000000 ID4 DAC ** 02BF,0000 0344 * FLAG AND TAG OK? 0345 001300 005277 LDA ID4 02C0,0ABF 0346 001301 007123 ANA IA 02C1,0E53 0347 001302 013123 ERA IA 02C2,1653 0348 001303 100040 SZE 02C3,8020 0349 001304 000000 HLT NO=>ERROR 02C4,0000 0350 001305 005277 LDA ID4 ADDRESS 02C5,0ABF 0351 001306 013123 ERA IA 02C6,1653 0352 001307 017276 SUB ACD3 02C7,1EBE 0353 001310 100040 SZE 02C8,8020 0354 001311 000000 HLT NO=>ERROR 02C9,0000 * EXTENDED MODE TEST PAGE 0011 0355 * 0356 001312 000013 EXA 02CA,000B 0357 * TEST JST IN EXTENDED MODE 0358 001313 141206 AOA 02CB,C286 0359 001314 144100 LDA* A,1 EXTENDED MODE? 02CC,C840 0360 001315 100040 SZE 02CD,8020 0361 001316 000000 HLT NO=>ERROR 02CE,0000 0362 001317 005123 LDA IA 02CF,0A53 0363 001320 011323 STA ID5 02D0,12D3 0364 001321 021323 JST ID5 02D1,22D3 0365 001322 001322 ACD4 DAC * 02D2,02D2 0366 001323 000000 ID5 DAC ** 02D3,0000 0367 * FLAG AND TAG OK? 0368 001324 005323 LDA ID5 02D4,0AD3 0369 001325 006113 ANA MSB 02D5,0C4B 0370 001326 012113 ERA MSB 02D6,144B 0371 001327 100040 SZE 02D7,8020 0372 001330 000000 HLT NO=>ERROR 02D8,0000 0373 001331 005323 LDA ID5 ADDRESS 02D9,0AD3 0374 001332 012113 ERA MSB 02DA,144B 0375 001333 017322 SUB ACD4 02DB,1ED2 0376 001334 100040 SZE 02DC,8020 0377 001335 000000 HLT NO=>ERROR 02DD,0000 0378 * 0379 * MEMORY STORE AND LOAD IN EXTENDED MODE 0380 001336 140040 CRA 02DE,C020 0381 001337 010000 STA 0 X=0 02DF,1000 0382 001340 140040 ML1 CRA 02E0,C020 0383 001341 141206 AOA 02E1,C286 0384 001342 150117 STA* MSTR,1 POSTINDEXING 02E2,D04F 0385 001343 024000 IRS 0 02E3,2800 0386 001344 004000 LDA 0 02E4,0800 0387 001345 022120 CAS MEND 02E5,2450 0388 001346 003351 JMP *+3 02E6,06E9 0389 001347 003340 JMP ML1 02E7,06E0 0390 001350 003340 JMP ML1 02E8,06E0 0391 * CHECK * EXTENDED MODE TEST PAGE 0012 0392 001351 140040 CRA 02E9,C020 0393 001352 010000 STA 0 X=0 02EA,1000 0394 001353 144117 ML11 LDA* MSTR,1 POSTINDEXING 02EB,C84F 0395 001354 022121 CAS ONE 02EC,2451 0396 001355 000000 HLT NE 1 =>ERROR 02ED,0000 0397 001356 100000 SKP 02EE,8000 0398 001357 000000 HLT NE 1 =>ERROR 02EF,0000 0399 001360 024000 IRS 0 02F0,2800 0400 001361 004000 LDA 0 02F1,0800 0401 001362 022120 CAS MEND 02F2,2450 0402 001363 003366 JMP *+3 02F3,06F6 0403 001364 003353 JMP ML11 02F4,06EB 0404 001365 003353 JMP ML11 02F5,06EB 0405 * OK, NEXT TEST 0406 001366 140040 CRA 02F6,C020 0407 001367 010000 STA 0 X=0 02F7,1000 0408 001370 004122 ML2 LDA FFFF 02F8,0852 0409 001371 150117 STA* MSTR,1 POSTINDEXING 02F9,D04F 0410 001372 024000 IRS 0 02FA,2800 0411 001373 004000 LDA 0 02FB,0800 0412 001374 022120 CAS MEND 02FC,2450 0413 001375 003400 JMP *+3 02FD,0700 0414 001376 003370 JMP ML2 02FE,06F8 0415 001377 003370 JMP ML2 02FF,06F8 0416 * CHECK 0417 001400 140040 CRA 0300,C020 0418 001401 010000 STA 0 X=0 0301,1000 0419 001402 144117 ML21 LDA* MSTR,1 POSTINDEXING 0302,C84F 0420 001403 140401 CMA 0303,C101 0421 001404 100040 SZE 0304,8020 0422 001405 000000 HLT NE FFFF => ERROR 0305,0000 0423 001406 024000 IRS 0 0306,2800 0424 001407 004000 LDA 0 0307,0800 0425 001410 022120 CAS MEND 0308,2450 0426 001411 003414 JMP *+3 0309,070C 0427 001412 003402 JMP ML21 030A,0702 0428 001413 003402 JMP ML21 030B,0702 * EXTENDED MODE TEST PAGE 0013 0429 * OK, NEXT TEST 0430 001414 140040 CRA 030C,C020 0431 001415 010000 STA 0 X=0 030D,1000 0432 001416 140040 ML3 CRA 030E,C020 0433 001417 150117 STA* MSTR,1 POSTINDEXING 030F,D04F 0434 001420 024000 IRS 0 0310,2800 0435 001421 004000 LDA 0 0311,0800 0436 001422 022120 CAS MEND 0312,2450 0437 001423 003426 JMP *+3 0313,0716 0438 001424 003416 JMP ML3 0314,070E 0439 001425 003416 JMP ML3 0315,070E 0440 * CHECK 0441 001426 140040 CRA 0316,C020 0442 001427 010000 STA 0 X=0 0317,1000 0443 001430 144117 ML31 LDA* MSTR,1 POSTINDEXING 0318,C84F 0444 001431 100040 SZE 0319,8020 0445 001432 000000 HLT NE 0 => ERROR 031A,0000 0446 001433 024000 IRS 0 031B,2800 0447 001434 004000 LDA 0 031C,0800 0448 001435 022120 CAS MEND 031D,2450 0449 001436 003441 JMP *+3 031E,0721 0450 001437 003430 JMP ML31 031F,0718 0451 001440 003430 JMP ML31 0320,0718 0452 * 0453 * EXE SOME CODE IN EXTENDED MEMORY 0454 001441 102123 JMP* MUP 0321,8453 0455 * 0456 ORG '77760 0457 ECD EQU * 0458 077760 101000 NOP 7FF0,8200 0459 077761 101000 NOP 7FF1,8200 0460 077762 101000 NOP 7FF2,8200 0461 077763 101000 NOP 7FF3,8200 0462 077764 101000 NOP 7FF4,8200 0463 077765 004113 LDA MSB 7FF5,084B 0464 077766 012113 ERA MSB 7FF6,144B 0465 077767 100040 SZE 7FF7,8020 * EXTENDED MODE TEST PAGE 0014 0466 077770 000000 HLT 7FF8,0000 0467 077771 105777 LDA* IIA 7FF9,8BFF 0468 077772 113777 ERA* IIA 7FFA,97FF 0469 077773 100040 SZE 7FFB,8020 0470 077774 000000 HLT 7FFC,0000 0471 077775 000011 DXA 7FFD,0009 0472 077776 102124 JMP* BACK 7FFE,8454 0473 077777 001123 IIA DAC IA 7FFF,0253 0474 END * EXTENDED MODE TEST PAGE 0015 SYMBOL TABLE A 000100 A ACD 001131 A ACD1 001175 A ACD2 001243 A ACD3 001276 A ACD4 001322 A ASRO 000125 A AST 000116 A B 000101 A BACK 000124 A C 000103 A CD 001121 A CD1 001166 A CD2 001234 A CLCK 001132 A CLK1 001176 A CLK2 001244 A D 000104 A E 000102 A ECD 077760 A FFFF 000122 A IA 001123 A ID1 001124 A ID2 001170 A ID3 001236 A ID4 001277 A ID5 001323 A IIA 077777 A INT1 000107 A INT2 000110 A INT3 000112 A M1 000165 A M50 000105 A MASK 000106 A MEND 000120 A ML 000165 A ML1 001340 A ML11 001353 A ML2 001370 A ML21 001402 A ML3 001416 A ML31 001430 A MO1 000114 A MSB 000113 A MSTR 000117 A MUP 000123 A NLCR 000142 A ONE 000121 A ONL 000115 A PME 000111 A PRIN 000134 A STR 001007 A STRT 001000 A X16Asm, version 0.4. End of assembly, 0 errors.