IMD 1.16: 2/09/2008 13:15:50 84-93717-02 a100 f71702 2/4 channel ht program listing and jcl scout multi-channel serial board hdwr. test program    @0|)wwЀЀtQql)  " }gA ` MIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIOS4 ME681072008435400810720084354 8107200843540F71702 VOL2/4 CHAN. HT PROGRAM LISTING & JCL   IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII M@jjggg@ o G`k_C# b# }B u[ ]e JRiCCp@<;: F8P@ G;NPCHC C GTqE'ɞ * Cϟx @0DAJL )‘ЀЀΎQBx"  i+ fEB)3 `jmBBI,v  BI,m  @EEFF)D^EF% jH@pOğv g7g4]X] PhV+s=胾c_N GF֞ؾ “@ALS)"$ C k1/j-h p vRw ppwp ki 15 !^\d X %'+Ns愾Q)s ED|{ @$ o O m J K i g. V tsFn`"FED) E`Cnrgy w"N{Rq1H }L2`0tG- Bc (>= OR< THE ADDRESS 01B 5 8042 0002 0276 COPY TSTFLG(Y),A IN TECH TEST MODE 01B6 1141 01B8 0277 JEQ A,SAL:END 01B7 9E77 01AF 0278 JMP SAL:1 THE TECH LOOP 000001B8 0279 SAL:END EQU $ 01B8 662F 0280  SAL 2,:F *W* (0008/0271) ML *W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W*W 01B9 9E94 01CE 0281 JMP BEGIN 000001BA 0282 SAL:2 EQU $ 01BA 8042 0002 0283 COPY TSTFLG(Y),A 01BB 1141 01BD 0284 JEQ A,SAL:ERR 01BC 9E72 01AF 0285 JMP SAL:1 000001BD 0286 SAL:ERR EQU $ 01BD 090A 0287 COPY =10,A 1PAGE 0009 MACRO (F100) THE MONITOR FOR 2/4 S I/O 76-93717-20 (A100) 1981/08/10 03:50:17.25 01BE 8789 01C8 0288 COPY A,ER 18E3 18E7 0289 CALL ERR 01CC 8442 0002 0290 COPY A,TSTFLG(Y) 01CD 11AC 01BA 0291 JNE  A,SAL:2 000001CE 0292 BEGIN EQU $ 01CE 8378 01C7 0293 COPY BUTDA,A RESET THE BOARD 01CF 2900 0294 COPY =0,X 01D0 030A 0295 XNX A 01D1 2403 0296 SELP X,3 01D2 290C 0297 COPY =:C,X 01D3 030A 0298 XNX A 01D4 2403 0299 SELP X,3 01D5 29A2 0300 COPY =:A2,X 01D6 030A 0301 XNX A 01D7 2205 0302  OUT X,5 OUTPUT THE MODE 01D8 030A 0303 XNX A 01D9 2207 0304 OUT  X,7 01DA 2927 0305 COPY =:27,X 01DB 030A 0306 XNX A 01DC 2205 0307 OUT X,5 01DD 030A 0308 XNX A 01DE 2207 0309 OUT X,7 01DF 030A 0310  XNX A 01E0 2105 0311 IN 5,X INPUT THE STAT REG CH 3 01E1 38FF 0312 AND =:FF,X 01E2 2CFF 0313 CLSN X,=:FF 01E3 9E81 01E5 0314 JMP BOARD21 01E4 9EA1 0206  0315 JMP BOARD4 INPUT THE STAT REG CH 4 000001E5 0316 BOARD21 EQU $ 01E5 030A 0317  XNX A 01E6 2107 0318 IN 7,X CHECK THE 4 CH 01E7 38FF 0319 AND  =:FF,X 01E8 2CFF 0320 CLSN X,=:FF 01E9 9E81 01EB 0321 JMP BOARD2 01EA 9E9B 0206 0322 JMP BOARD4 000001EB 0323 BOARD2 EQU $ 1PAGE 0010 MACRO (F100) THE MONITOR FOR 2/4 S I/O 76-93717-20 (A100) 1981/08/10 03:50:19.00 01EB 2900 0324 COPY =0,X 01EC A790 01FD 0325 COPY  X,SW1 01ED 8020 0020 0326 COPY MODEREG,A 01EE 008F 0327 TBIT MODEFLAG,A 01EF 36D8 0208 0328 JF OV,START 18E3 18E7 0329 CALL O:MSG,=CO,BORCH2L,=BORCH2 0205 9E82 0208 0330  JMP START 00000206 0331 BOARD4 EQU $ 0206 2901 0332 COPY =1,X 0207 A775 01FD 0333 COPY X,SW1 00000208 0334 START EQU $ 0208 2800 0335 COPY =-256,X 0209 A7A3   022D 0336 COPY X,STORE COUNTER FOR THE SPEC CHAR 020A 2900 0337 COPY =0,X DATA = SPEC CHAR 020B 833B 01C7 0338 COPY BUTDA,A 0000020C 0339 OUTSPEC EQU $ 020C 030A 0340 XNX A 020D 2400 0341 SELP X,0 OUT 0 TO THE RAM CH1 020E 030A 0342  XNX A 020F 2402 0343 SELP X,2 OUT 0 TO THE RAM CH2 0210 030A 0344 XNX  A 0211 2404 0345 SELP X,4 OUT 0 TO THE RAM CH3 0212 030A 0346 XNX A 0213 2406 0347 SELP X,6 OUT 0 TO THE RAM CH4 0214 2B01 0348 ADD =1,X INCREMENT THE COUNTER 0215 DF97 022D 0349 IMS STORE 0216 9E75 020C 0350 JMP OUTSPEC 0217 802F 002F 0351 COPY PASSCNT,A 0218 1141 021A 0352 JEQ A,$+2 0219 9F94 022E 0353 JMP AROUND 021A 8020 0020 0354 COPY MODEREG,A 021B 008F 0355 TBIT MODEFLAG,A 021C 3641 021E 0356 JT OV,CALL1 021D 9EC7 0265 0357 JMP B96 18E3 18E7 0358 CALL1 CALL O:MSG,=CO,BAUDL,=BAUD 0233 FFD4 0288 0359 JSK IHEX 1PAGE 0011 MACRO (F100) THE MONITOR FOR 2/4 S I/O 76-93717-20 (A100) 1981/08/10 03:50:23.00 0234 4020 0360 COPY X,Q 0235 FAD3 0289 0361 CSK Q,=:1200 0236 0000 0362 NOP 0237 9E81 0239 0363 JMP $+2 0238 9EA6 025F 0364 JMP B12  BAUD RATE 1200 0239 FAD0 028A 0365 CSK Q,=:4800 023A 0000 0366 NOP 023B 9E81 023D 0367  JMP $+2 023C 9EA4 0261 0368 JMP B48 BAUD RATE 4800 023D FACD 028B 0369 CSK  Q,=:2400 023E 0000 0370 NOP 023F 9E81 0241 0371 JMP $+2 0240 9EA2 0263 0372 JMP B24 BAUD RATE 2400 0241 FACA 028C 0373 CSK Q,=:9600 0242 0000 0374 NOP 0243 9E81 0245 0375 JMP $+2 0244 9EA0 0265 0376 JMP B96 0245 FAC7 028D 0377 CSK Q,=:600 0246 0000 0378 NOP 0247 9E81 0249 0379 JMP $+2 0248 9E9E 0267 0380 JMP B60 BAUD RATE 600 0249 FAC4 028E 0381 CSK Q,=:300 024A 0000 0382 NOP 024B 9E81 024D 0383 JMP $+2 024C 9E9C 0269 0384 JMP B30 BAUD RATE 300 024D FAC1 028F 0385  CSK Q,=:150 024E 0000 0386 NOP 024F 9E81 0251 0387 JMP $+2 0250 9E9A 026B 0388  JMP B15 BAUD RATE 150 0251 FABE 0290 0389 CSK Q,=:110 0252 0000 0390 NOP 0253 9E81 0255 0391 JMP $+2 0254 9E98 026D 0392 JMP B11 BAUD RATE 110 0255 2900  0393 COPY =0,X 0256 402A 0394 CSN X,Q 0257 9E81 0259 0395 JMP $+2 1PAGE 0012 MACRO (F100) THE MONITOR FOR 2/4 S I/O 76-93717-20 (A100) 1981/08/10 03:50:23.75 0258 9E83 025C 0396 JMP   BAK+1 0259 0C0D 0397 CLSN =:D,A 025A 9E8A 0265 0398 JMP B96 DEFALT 9600  0000025B 0399 BAK EQU $ 025B FFAC 0288 0400 JSK IHEX 025C 0C0D 0401 CLSN =:D,A 025D 9E40 021E 0402 JMP CALL1 025E 9E7C 025B 0403 JMP BAK 0000025F 0404 B12  EQU $ 025F 09A0 0405 COPY =160,A NUMBER OF LOOPS FOR 1200 BAUD RATE 0260 9E8D 026E 0406  JMP WTABL 00000261 0407 B48 EQU $ 0261 0928 0408 COPY =40,A "-----" 4800 0262 9E8B 026E 0409 JMP WTABL 00000263 0410 B24 EQU $ 0263 0950 0411 COPY =80,A "----------" 2400 0264 9E89 026E 0412 JMP WTABL 00000265 0413 B96 EQU $ 0265 0914 0414 COPY =20,A "----------" 9600 0266 9E87 026E 0415 JMP WTABL 00000267 0416 B60 EQU $ 0267 82A9 0291 0417 COPY =320,A "----------" 600 0268 9E85 026E 0418 JMP WTABL 00000269 0419 B30 EQU $ 0269 82A8 0292 0420 COPY =640,A "-----------" 300 026A 9E83 026E 0421 JMP WTABL 0000026B 0422 B15 EQU $ 026B 82A7 0293 0423  COPY =1280,A "----------"150 026C 9E81 026E 0424 JMP WTABL 0000026D 0425 B11 EQU $ 026D 82A6 0294 0426 COPY =1745,A "----------" 110 0000026E 0427 WTABL EQU $ 026E 2980 0428 COPY =BAUDR,X THE START ADDR 026F C397 0287 0429 COPY BAUDR,Q THE OFFSET (# BOARD) 0270 4B01 0430 ADD =1,Q 0271 430A 0431 XNX Q 1PAGE 0013 MACRO (F100) THE MONITOR FOR 2/4 S I/O 76-93717-20 (A100) 1981/08/10 03:50:25.00 0272 8480 0000 0432 COPY A,0(X)  SORE IN THE TABLE 00000273 0433 SHORT1 EQU $ 0273 0001 0434 NEG A 0274 87A0 0295 0435 COPY A,SHORT STORE FOR SHORT LOOPS 0275 0001 0436 NEG A 0276 C790 0287 0437  COPY Q,BAUDR PREPARE FOR A NEXT BOARD 0277 490A 0438 COPY =10,Q 0278 C79D 0296 0439  COPY Q,MUL 0279 4000 0440 COPY A,Q 027A 0900 0441 COPY =0,A 027B 4700 0442 MUL MUL,AQ COUNT NUMBER OF LONG LOOPS 027D 4041 0443 NEG Q 027E C798 0297 0444  COPY Q,LONG STORE THE NUMBER 18E3 18E7 0445 CALL TSTIO 0000029B 0446 NEXT1  EQU $ 029B A28A 02A6 0447 COPY =TABLINT,X 029C A78A 02A7 0448 COPY X,TABINT 18E3 18E7 0449 CALL TSTINT 18E3 18E7 0450 CALL TSTSPEC 18E3 18E7 0451 CALL TSTAUT 18E3 18E7 0452 CALL TSTECHO 02CB 8392 02DE 0453 COPY BUTDA,A 02CC 2900 0454  COPY =0,X 02CD 030A 0455 XNX A 02CE 2403 0456 SELP X,3 02CF 9F8F 02DF 0457   JMP PIC0100 000002D0 0458 AROUND EQU $ 02D0 2980 0459 COPY =BAUDR,X THE START ADDR 02D1 C335 0287 0460 COPY BAUDR,Q THE OFFSET (# BOARD) 02D2 4B01 0461 ADD  =1,Q 02D3 430A 0462 XNX Q 02D4 8080 0000 0463 COPY 0(X),A RESTORE DATA 02D5 9E1D 0273 0464 JMP SHORT1 000002D6 0465 PICEND EQU $ 02D6 DC2F 002F 0466 IMS PASSCNT 02D7 9E81 02D9 0467 JMP EXIT 1PAGE 0014 MACRO (F100) THE MONITOR FOR 2/4 S I/O 76-93717-20 (A100) 1981/08/10 03:50:28.50 02D8 DC2F 002F 0468 IMS PASSCNT 18E3 18E7 0469 EXIT EXIT 0003 0470  LPOOL 0471 ****************************** 0472 * 0473 * IHEX - INPUT UP TO 4 HEX DIGITS 0474 * TO FORM A 16 BIT HEX NUMBER 0475 * FROM THE CRT OR TTY. 0476 * 0477 * CALLING SEQUENCE: 0478 * JSK IHEX  0479 * 0480 * EXIT UPON INPUT OF THE FIRST NON-HEX 0481 * ASCII CHARACTER, WHICH IS RETURNED IN 0482 * THE A-REG. WITH THE HEX VALUE IN 0483 *  THE X-REG. 0484 * 0485 * CALLS: CALLED BY: 0486 * IKB QUERIES 0487 * 0488 ***************************** 0489 * 02E0 2900 0490 IHEX COPY =0,X SET INITIAL VALUE FOR 0 18E3 18E7 0491 IHEX1 CALL O:IO,=CI GET CHARACTER 02ED 0E79 0492 SHIFT A,RO,8 02EE 8443 0003 0493 COPY A,TERCHAR(Y) STORE POSSIBLE TERMINATING CHAR. 02EF 0AD0 0494 SUB ='0',A SUBTRACT ASCII 0 02F0 13CA 02FB 0495  JLT A,IHEX2 IF LESS THAN 0 EXIT 02F1 0D0A 0496 CSK A,=10 IS CHARACTER 0-9? 02F2 9E8A 02FD 0497 JMP IHEX3 YES, SET VALUE 02F3 0000 0498 NOP NO,CONTINUE 02F4 0AF9 0499 SUB =7,A SUBTRACT FOR ASCII A-F 02F5 0D0A 0500 CSK A,=10 IS CHARACTER NON-HEX A-F? 02F6 9E84 02FB 0501 JMP IHEX2 YES, GO TO EXIT 02F7 0000 0502 NOP NO, CONTINUE 02F8 0D10 0503 CSK A,=16 IS CHARACTER HEX A-F? 1PAGE 0015 MACRO (F100) THE MONITOR FOR 2/4 S I/O 76-93717-20 (A100) 1981/08/10 03:50:30.25 02F9 9E83 02FD 0504 JMP IHEX3 YES, SET VALUE 02FA 0000 0505 NOP NO,CONTINUE 02FB 8043 0003 0506 IHEX2 COPY TERCHAR(Y),A SET TERMINATING CHAR. IN A-REG. 02FC 2309 0507 RSK EXIT 02FD 2E31 0508 IHEX3 SHIFT X,LO,4 SHIFT X FOR POSITION OF DIGIT 02FE 2007 0509 OR A,X  PUT DIGIT INTO PLACE 02FF 9E61 02E1 0510 JMP IHEX1 GET ANOTHER CHARACTER 0511   END 0000 ERRORS (0000/0000) 0002 WARNINGS (0008/0280) NO,CONTINUE 02FB 8043 0003 0506 IHEX2 COPY TERCHAR(Y),A SET TERMINATING CHAR. IN A-REG. 02FC 2309 0507 RSK EXIT 02FD 2E31 0508 IHEX3 SHIFT X,LO,4 SHIFT X FOR POSITION OF DIGIT 02FE 2007 0509 OR A,X  PUT DIGIT INTO PLACE 02FF 9E61 02E1 0510 JMP IHEX1 GET ANOTHER CHARACTER 0511 1PAGE 0001 MACRO (F100) PROGRAMMED I/O TEST SUBROTINE 76-93717-21 (A100) 1981/08/10 03:51:33.25 SI = DM01.TSTIO.ASM SO = DM01.TSTIO.OBJ LO = DM01.TSTIO.LST 00B6 0002 NAM TSTIO 0029 0003 NAM MSG2,MSG3,MSG4 0054 0004 NAM MSG5,LMSG2 0005 EXTR O:MSG,O:IO  0006 EXTR SYSERR,FLUSH 0007 EXTR ERR 0008 EXTR  DBUGX 0009 * 0010 * ER IS THE COUNTER FOR THE ERROR MSG. 0011 * ERRARG IS THE ARGUMENT FOR THE ERROR MSG. 0012 * BUTDA IS THE DEVICE ADDRESS. 0013 * 18E3 18E7 0014 DEFINE TSTIO 0001 0015 MSGPTR RES 1 0002 0016 LMSG RES 1 0003  0017 MSGPTR1 RES 1 0004 0018 LMSG16 RES 1 0000 0003 0019 ENDEF 0000 0D0A  0020 MSG1 BYTE :0D,:0A,'EXTERNAL TEST CABLE IS MISSING' 0010 0020 0021 LMSG1 WORD $-MSG1*2 0011 0D0A 0022 MSG: BYTE :0D,:0A,'CONNECT THE TEST CABLE AND RESTART THE TEST' 0028 002E 0023 LMSG: WORD $-MSG:*2 0029 0D0A 0024 MSG2 BYTE :0D,:0A,'CH1 TRANSMIT; CH2 RECEIVE' 0037 001C 0025 LMSG2 WORD $-MSG2*2 0038 0D0A 0026 MSG3 BYTE :0D,:0A,'CH2 TRANSMIT; CH1 RECEIVE' 0046 0D0A 0027 MSG4 BYTE :0D,:0A,'CH3 TRANSMIT; CH4 RECEIVE' 0054 0D0A 0028 MSG5 BYTE :0D,:0A,'CH4 TRANSMIT; CH3 RECEIVE' 0062 0D0A 0029 MSG6 BYTE :0D,:0A,'PROGRAMMED I/O TEST ' 006D 0016 0030 LMSG6 WORD $-MSG6*2 006E 008E 0031 TABLE WORD :8E,:4E,:DE,:EE,:CE,:5E,:9E,:7E,:BE,:FE,:0 0079 0D0A 0032 TRANSM BYTE :0D,:0A,:0A 007B 4441  0033 BYTE 'DATA TRANSFER TEST, ' 0085 0D0A 0034 SEND BYTE :0D,:0A,:0A 0087 4252 0035  BYTE 'BREAK DETECT TEST, ' 0091 0D0A 0036 OVER BYTE :0D,:0A,:0A 0093 4F56 0037 BYTE  'OVERRUN ERROR TEST, ' 1PAGE 0002 MACRO (F100) PROGRAMMED I/O TEST SUBROTINE 76-93717-21 (A100) 1981/08/10 03:51:35.00  009D 0D0A 0038 PAR BYTE :0D,:0A,:0A 009F 5041 0039 BYTE 'PARITY ERROR TEST, ' 00A9 0D0A 0040 FRAM BYTE :0D,:0A,:0A 00AB 4652 0041 BYTE 'FRAMING ERROR TEST, ' 00B5 0018 0042 LTRANSM WORD $-FRAM*2 18E3 18E7 0043 TSTIO ENTRY 00C5 2901 0044 COPY =1,X 00C6 A795 00DC 0045 COPY X,COUNT1 00C7 A795 00DD 0046 COPY X,COUNT2 00C8 A795 00DE 0047 COPY X  ,COUNT3 00C9 A020 0020 0048 COPY MODEREG,X 00CA 208F 0049 TBIT MODEFLAG,X 00CB 36D6 00E2 0050 JF OV,COPY 18E3 18E7 0051 CALL O:MSG,=CO,LMSG6,=MSG6 00E2 2900 0052 COPY COPY =0,X SW=0 FOR THE TEST CABLE 00E3 A7A1 0105 0053 COPY X,SW 00E4 83A1 0106 0054 COPY BUTDA,A 00E5 030A 0055 XNX A 00E6 2403 0056 SELP X,3 RESET THE BOARD 00E7 290C 0057 COPY =:C,X TEST ENABLE 00E8 030A 0058 XNX A 00E9 2403 0059 SELP X,3 00EA 030A 0060 XNX A 00EB 0600 0061 SST 0 IS THE CABLE PRESENT? 00EC 9E87 00F4 0062 JMP WITHOUT IT IS TEST WITHOUTTHE TEST CABLE 00ED 2901 0063  COPY =1,X 00EE A796 0105 0064 COPY X,SW 00EF 8396 0106 0065 COPY BUTDA,A !!  00F0 2908 0066 COPY =8,X !! 00F1 030A 0067 XNX A !! 00F2 2403  0068 SELP X,3 !! TEST DISABLE 00F3 9EB7 012B 0069 JMP TEST 000000F4 0070 WITHOUT EQU $ 00F4 A020 0020 0071 COPY MODEREG,X 00F5 208F 0072 TBIT MODEFLAG,X 00F6 36F4 012B 0073 JF OV,TEST 1PAGE 0003 MACRO (F100) PROGRAMMED I/O TEST SUBROTINE 76-93717-21 (A100) 1981/08/10 03:51:39.25 18E3 18E7 0074 CALL O:MSG,=CO,LMSG1,=MSG1 18E3 18E7 0075 CALL O:MSG,=CO,LMSG:,=MSG: 18E3 18E7 0076 CALL FLUSH,=:0D,=CI WAIT A CARRIAGE RETURN 0000012B 0077 TEST  EQU $ 012B 2900 0078 COPY =0,X THE TABLE COUNTER IS 0 012C A797 0144 0079 COPY  X,STORE1 012D 8358 0106 0080 COPY BUTDA,A 012E 8792 0141 0081 COPY A,CHTX DA+#CH FOR THE CH TX 012F 1902 0082 OR =2,A 0130 8791 0142 0083 COPY A,CHRX DA+#CH FOR THE CH RX 0131 A020 0020 0084 COPY MODEREG,X 0132 208F 0085 TBIT MODEFLAG,X 0133 36D5 0149 0086  JF OV,BIGLOOP1 18E3 18E7 0087 CALL O:MSG,=CO,LMSG2,=MSG2 00000149 0088 BIGLOOP1 EQU $ 0149 8377 0141 0089 COPY CHTX,TX RESTORE TX 014A C377 0142 0090 COPY CHRX,RX  RESTORE RX 014B 2942 0091 COPY =:42,X THE MODE WORD 014C 030A 0092 XNX TX 014D 2201 0093 OUT X,1 OUTPUT IT 014E 430A 0094 XNX RX 014F 2201 0095 OUT X,1 0150 A334 0105 0096 COPY SW,X 0151 2C01 0097 CLSN X,=1 IS THE CABLE PRESENT ? 0152 9E85 0158 0098 JMP CABLPRES GO TO CHECK LENGTH WITH THE TEST CABLE 0153 2925 0099 COPY =CONTX2,X 0154 030A 0100 XNX TX 0155 2201 0101 OUT X,1 OUT IT 0156 2925 0102 COPY =CONRX2,X CONTR WORD CHRX WITHOUT CONTR CABLE 0157 9E84 015C 0 103 JMP CABLPR GO TO OUTPUT IT 00000158 0104 CABLPRES EQU $ 0158 2927 0105 COPY =CONTX1,X THE CONTR WORD WITH THE TEST CABLE 0159 030A 0106 XNX TX 015A 2201 0107  OUT X,1 015B 2927 0108 COPY =CONRX1,X 0000015C 0109 CABLPR EQU $ 1PAGE 0004 MACRO (F100) PROGRAMMED I/O TEST SUBROTINE 76-93717-21 (A100) 1981/08/10 03:51:44.25 015C 430A 0110 XNX  RX 015D 2201 0111 OUT X,1 015E 030A 0112 XNX TX 015F 2101 0113 IN 1,X 0160 387F 0114 AND =:7F,X MASK DSR + #DON'T CARE 0161 2C05 0115 CLSN  X,=STATTX1 0162 9E9A 017D 0116 JMP NOERR 0163 0901 0117 COPY =1,A 0164 878E 0173 0118 COPY A,ER 0165 3705 0119 XOR =STATTX1,X 0166 A78D 0174 0120 COPY X,ERRARG 0167 0900 0121 COPY =0,A 0168 878C 0175 0122 COPY A,CHTEST 0169 828C 0176 0123 COPY =TRANSM,A 016A FF8C 0177 0124 JSK MSGOUT 18E3 18E7 0125 CALL ERR 017B 0C01 0126 CLSN A,=1 017C 9E9E 019B 0127 JMP BIG ERROR TECH EXIT 0000017D 0128 NOERR EQU $ 017D 8343 0141 0129 COPY CHTX,TX 017E 430A 0130 XNX RX 017F 2101 0131 IN 1,X THE RX STATUS 0180 387F 0132 AND =:7F,X MASK DSR +# DON'T CARE 0181 2C05 0133 CLSN X,=STATRX1 0182 9E9F 01A2 0134 JMP WRITE1 GO TO WRITE DATA 0183 0901 0135 COPY =1,A 0184 876E 0173 0136 COPY A,ER 0185 3705 0137 XOR =STATRX1,X 0186 A76D 0174 0138 COPY X,ERRARG 0187 0901 0139 COPY =1,A 0188 876C 0175 0140 COPY A,CHTEST 0189 826C 0176 0141 COPY =TRANSM,A 018A FF6C 0177 0142 JSK MSGOUT  18E3 18E7 0143 CALL ERR 0198 0C01 0144 CLSN A,=1 0199 9E81 019B 0145 JMP  BIG TECH TEST ENTER 1PAGE 0005 MACRO (F100) PROGRAMMED I/O TEST SUBROTINE 76-93717-21 (A100) 1981/08/10 03:51:46.50 019A 9E87 01A2 0146 JMP WRITE1 0000019B 0147 BIG EQU $ 019B 2940 0148  COPY =:40,X 019C 8324 0141 0149 COPY CHTX,TX 019D 030A 0150 XNX TX 019E 2201  0151 OUT X,1 019F 430A 0152 XNX RX 01A0 2201 0153 OUT X,1  RESET CHANNELS 01A1 9E27 0149 0154 JMP BIGLOOP1 TECH TEST ENTER 000001A2 0155 WRITE1 EQU  $ 01A2 831E 0141 0156 COPY CHTX,TX 01A3 29FF 0157 COPY =:FF,X THE DATA 01A4 030A  0158 XNX TX 01A5 2200 0159 OUT X,0 01A6 C396 01BD 0160 COPY SHORT,Q  ? SMALL LOOP *********** 000001A7 0161 L1 EQU $ ? 01A7 030A 0162  XNX TX 01A8 2101 0163 IN 1,X 01A9 387F 0164 AND =:7F,X 01AA 2C01 0165  CLSN X,=STATTX3 01AB 9E97 01C3 0166 JMP READ1 GO TO CHECK DATA 01AC 54BA 01A7 0167  IJNE Q,L1 ? 01AD 0901 0168 COPY =1,A 01AE 8744 0173 0169 COPY A,ER 01AF 3701 0170 XOR =STATTX3,X 01B0 A743 0174 0171 COPY X,ERRARG 01B1 0900 0172 COPY =0,A 01B2 8742 0175 0173 COPY A,CHTEST 01B3 8242 0176 0174 COPY =TRANSM,A 01B4 FF42 0177 0175 JSK MSGOUT 18E3 18E7 0176 CALL ERR 01C1 0C01 0177 CLSN A,=1 01C2 9E58 019B 0178 JMP BIG TECH TEST 000001C3 0179 READ1 EQU $ 01C3 8398 01DC 0180  COPY LONG,A ? 01C4 C396 01DB 0181 COPY CHRX,RX ? 1PAGE 0006 MACRO (F100) PROGRAMMED I/O TEST SUBROTINE 76-93717-21 (A100) 1981/08/10 03:51:48.25 000001C5 0182 L2 EQU $ ? 01C5 430A 0183 XNX RX 01C6 2101 0184 IN 1,X STATUS REG 01C7 387F 0185 AND =:7F,X 01C8 2C07 0186 CLSN X,=STATRX3 01C9 9E98 01E2 0187 JMP READDAT GO TO READ THE DATA 01CA 14BA 01C5 0188 IJNE A,L2 ? 01CB 0901 0189 COPY =1,A 01CC 8726 0173 0190 COPY A,ER 01CD 3707 0191 XOR =STATRX3,X 01CE A725 0174 0192  COPY X,ERRARG 01CF 0901 0193 COPY =1,A 01D0 8724 0175 0194 COPY A,CHTEST 01D1 8224 0176 0195 COPY =TRANSM,A 01D2 FF24 0177 0196 JSK MSGOUT 18E3 18E7 0197 CALL  ERR 01E0 0C01 0198 CLSN A,=1 01E1 9E39 019B 0199 JMP BIG TECH TEST ENTER  000001E2 0200 READDAT EQU $ 01E2 C378 01DB 0201 COPY CHRX,RX ? 01E3 430A 0202 XNX RX 01E4 2100 0203 IN 0,X INPUT THE DATA 01E5 2C1F 0204 CLSN =:1F,X 01E6 9E8F 01F6 0205 JMP BIGL 01E7 0906 0206 COPY =6,A 01E8 870A 0173 0207 COPY A,ER 18E3 18E7 0208 CALL ERR 01F4 0C01 0209 CLSN A,=1 01F5 9E25 019B 0210  JMP BIG TECH TEST ENTER 000001F6 0211 BIGL EQU $ 01F6 8395 020C 0212 COPY  CHTX,TX RESTORE CHTX 01F7 030A 0213 XNX TX 01F8 2101 0214 IN 1,X  INPUT STAT TX 01F9 387F 0215 AND =:7F,X MASK DSR & DON'T CARE 01FA 2C05 0216 CLSN X,=STATTX1 01FB 9E9B 0217 0217 JMP GRATE 1PAGE 0007 MACRO (F100) PROGRAMMED I/O TEST SUBROTINE 76-93717-21 (A100) 1981/08/10 03:51:50.25 01FC 0901 0218 COPY =1,A 01FD 878F 020D 0219 COPY A,ER 01FE 3705 0220 XOR =STATTX1,X 01FF A78E 020E 0221 COPY X,ERRARG 0200 0900 0222   COPY =0,A 0201 878D 020F 0223 COPY A,CHTEST 0202 828D 0210 0224 COPY =TRANSM,A 0203 FF8D 0211 0225 JSK MSGOUT 18E3 18E7 0226 CALL ERR 0215 0C01 0227 CLSN  A,=1 0216 9E04 019B 0228 JMP BIG TECH TEST ENTER 00000217 0229 GRATE EQU $ 0217 430A 0230 XNX RX 0218 2101 0231 IN 1,X 0219 387F 0232 AND =:7F,X 021A 2C05 0233 CLSN X,=STATRX1 021B 9E96 0232 0234 JMP BIGLOOP 021C 0901 0235  COPY =1,A 021D 876F 020D 0236 COPY A,ER 021E 3705 0237 XOR =STATRX1,X 021F A76E 020E 0238 COPY X,ERRARG 0220 0901 0239 COPY =1,A 0221 876D 020F 0240 COPY  A,CHTEST 0222 826D 0210 0241 COPY =TRANSM,A 0223 FF6D 0211 0242 JSK MSGOUT 18E3 18E7 0243 CALL ERR 0230 0C01 0244 CLSN A,=1 0231 9FB6 0268 0245 JMP BIG 00000232 0246 BIGLOOP EQU $ 0232 8359 020C 0247 COPY CHTX,TX DA+#CH FOR CH TX 0233 C327 01DB 0248  COPY CHRX,RX DA+#CH FOR CH RX 0234 2940 0249 COPY =:40,X RESET 0235 030A 0250 XNX TX 0236 2201 0251 OUT X,1 0237 430A 0252 XNX RX 0238 2201  0253 OUT X,1 1PAGE 0008 MACRO (F100) PROGRAMMED I/O TEST SUBROTINE 76-93717-21 (A100) 1981/08/10 03:51:52.75 0239 A2AF 0269 0254 COPY =TABLE,X THE TABLE ADDRESS  023A 83AF 026A 0255 COPY STORE1,A RESTORE THE COUNTER 023B 030A 0256 XNX A 023C A080 0000 0257 COPY 0(X),X  LOAD THE WORD FROM THE TABLE 023D 834E 020C 0258 COPY CHTX,TX 023E 030A 0259 XNX TX 023F 2201 0260 OUT X,1 OUT THE MODE WORD 0240 430A 0261 XNX RX 0241 2201  0262 OUT X,1 0242 A3A8 026B 0263 COPY SW,X IS THE CABLE PRESENT? 0243 2C00 0264 CLSN X,=0 0244 9E85 024A 0265 JMP WITHOUT1 TEST WITHOUT THE TEST CABLE 0245 2927 0266 COPY =CONTX1,X OUTPUT THE CONTROL WORD 0246 030A 0267 XNX TX 0247 2201 0268  OUT X,1 0248 2927 0269 COPY =CONRX1,X 0249 9E84 024E 0270 JMP OUTCH2 0000024A 0271 WITHOUT1 EQU $ 0272 * 0273 * WITHOUT THE TEST CABLE 0274 * 024A 2925 0275 COPY =CONTX2,X THE CONTR.WORD TO THE CH TX 024B 030A 0276 XNX TX 024C 2201 0277 OUT X,1 024D 2925 0278 COPY =CONRX2,X THE CONTR. WORD TO THE CH RX 024E 430A 0279 OUTCH2 XNX RX 024F 2201 0280 OUT X,1 0250 A39A 026B 0281 COPY SW,X IS THE CABLE PRESENT? 0251 2C01 0282 CLSN X,=1 0252 9EBB 028E 0283 JMP   CONTRCAB JMP CHECK THE =STAT REGS WITH THE CABLE 0253 030A 0284 XNX TX READ THE =STAT TX WITHOUT THE CABLE 0254 2101 0285 IN 1,X 0255 38BF 0286 AND =:BF,X MASK THE BIT #6 0256 2C05 0287 CLSN X,=STATTX1 CHECK THE STAT REG CH TX 0257 9E9A 0272 0288 JMP CHECK1 GOOD, GO TO CHECK CH RX 0258 0901 0289 COPY =1,A SAVE THE COUNT FOR THE ERR SUBR 1PAGE 0009 MACRO (F100) PROGRAMMED I/O TEST SUBROTINE 76-93717-21 (A100) 1981/08/10 03:51:54.00 0259 8733 020D 0290  COPY A,ER 025A 3705 0291 XOR =STATTX1,X PASS ERROR BITS ONLY 025B A732 020E 0292 COPY X,ERRARG SAVE THE ARGUMENT 025C 0900 0293 COPY =0,A 025D 8731 020F 0294 COPY A,CHTEST 025E 8231 0210 0295 COPY =TRANSM,A 025F FF31 0211 0296 JSK MSGOUT 18E3 18E7 0297  CALL ERR 0270 0C01 0298 CLSN A,=1 0271 9E40 0232 0299 JMP BIGLOOP 00000272 0300 CHECK1 EQU $ 0272 8319 020C 0301 COPY CHTX,TX RESTORE CHTX AFTER CALL 0273 430A  0302 XNX RX 0274 2101 0303 IN 1,X READ THE =STAT CH RX 0275 38BF 0304  AND =:BF,X MASK THE BIT #6 0276 2C05 0305 CLSN X,=STATRX1 0277 9ED2 02CA 0306  JMP WRITE GOOD, GO TO WRITE A DATA 0278 0901 0307 COPY =1,A 0279 8713 020D 0308  COPY A,ER 027A 3705 0309 XOR =STATRX1,X 027B A712 020E 0310 COPY X,ERRARG 027C 0901  0311 COPY =1,A 027D 8711 020F 0312 COPY A,CHTEST 027E 8211 0210 0313 COPY =TRANSM,A 027F FF11 0211 0314 JSK MSGOUT 18E3 18E7 0315 CALL ERR 028B 0C01 0316  CLSN A,=1 028C 9E25 0232 0317 JMP BIGLOOP 028D 9EBC 02CA 0318 JMP WRITE 0000  0319 LPOOL 0000028E 0320 CONTRCAB EQU $ 028E 8395 02A4 0321 COPY CHTX,TX RESTORE TX AFTER CALL 028F 030A 0322 XNX TX 0290 2101 0323 IN 1,X READ A =STAT WITH THE TEST CABLE CH TX 0291 38BF 0324 AND =:BF,X MASK THE BIT #6 0292 2C85 0325  CLSN X,=STATTX2 CHECK THE STAT REG WITH THE CABLE CH TX 1PAGE 0010 MACRO (F100) PROGRAMMED I/O TEST SUBROTINE 76-93717-21 (A100) 1981/08/10 03:51:56.25 0293 9E9B 02AF 0326 JMP CHECK2 GOOD GO TO CHECK CH RX 0294 0901 0327 COPY =1,A 0295 878F 02A5 0328 COPY A,ER 0296 3785 0329 XOR =STATTX2,X 0297 A78E 02A6 0330 COPY X,ERRARG 0298 0900 0331 COPY =0,A 0299 878D 02A7 0332  COPY A,CHTEST 029A 828D 02A8 0333 COPY =TRANSM,A 029B FF8D 02A9 0334 JSK MSGOUT  18E3 18E7 0335 CALL ERR 02AD 0C01 0336 CLSN A,=1 02AE 9E03 0232 0337 JMP  BIGLOOP 000002AF 0338 CHECK2 EQU $ 02AF 8374 02A4 0339 COPY CHTX,TX RESTORE TX 02B0 430A  0340 XNX RX 02B1 2101 0341 IN 1,X READ A =STAT REG WITH THE CABLE CH RX 02B2 38BF 0342 AND =:BF,X MASK THE BIT #6 02B3 2C85 0343 CLSN X,=STATRX2 CHECK THE STAT REG WITH THE CABLE CH RX 02B4 9E95 02CA 0344 JMP WRITE GOOD GO TO WRITE A DATA 02B5 0901  0345 COPY =1,A 02B6 876E 02A5 0346 COPY A,ER 02B7 3785 0347 XOR =STATRX2,X 02B8 A76D 02A6 0348 COPY X,ERRARG 02B9 0901 0349 COPY =1,A 02BA 876C 02A7 0350  COPY A,CHTEST 02BB 826C 02A8 0351 COPY =TRANSM,A 02BC FF6C 02A9 0352 JSK MSGOUT 18E3 18E7 0353 CALL ERR 02C8 0C01 0354 CLSN A,=1 02C9 9F9F 02E9 0355 JMP BIGLOOP 0356 * 0357 * TEST A DATA 0358 * 000002CA 0359 WRITE EQU  $ 02CA 8359 02A4 0360 COPY CHTX,TX RESTORE TX 02CB 28FE 0361 COPY =-2,X THE COUNTER FOR LOOPS THE READ&WRITE 1PAGE 0011 MACRO (F100) PROGRAMMED I/O TEST SUBROTINE 76-93717-21 (A100) 1981/08/10 03:51:58.50 02CC A441 0001 0362 COPY X,MSGPTR(Y) 02CD 29AA 0363 COPY =:AA,X DATA 02CE A442 0002 0364 RET COPY X,LMSG(Y) STORE IT 02CF 030A 0365 XNX TX 02D0 2200 0366  OUT X,0 OUTPUT THE DATA 02D1 C398 02EA 0367 COPY SHORT,Q ? SMALL LOOP ******************** 000002D2 0368 L3 EQU $ ? 02D2 030A 0369 XNX TX 02D3 2101 0370 IN 1,X READ A =STAT REG IMMEDIAT. 02D4 387F 0371 AND =:7F,X  MASK 02D5 2C01 0372 CLSN X,=STATTX3 CHECK THE STAT REG 02D6 9E99 02F0 0373 JMP WAIT 02D7 54BA 02D2 0374 IJNE Q,L3 ? 02D8 0901 0375 COPY =1,A 02D9 874B 02A5 0376  COPY A,ER 02DA 3701 0377 XOR =STATTX3,X 02DB 38BF 0378 AND =:BF,X 02DC A749 02A6 0379 COPY X,ERRARG 02DD 0900 0380 COPY =0,A 02DE 8748 02A7 0381 COPY A,CHTEST 02DF 8248 02A8 0382 COPY =TRANSM,A 02E0 FF48 02A9 0383 JSK MSGOUT 18E3 18E7 0384 CALL ERR 02EE 0C01 0385 CLSN A,=1 02EF 9F79 02E9 0386 JMP BIGLOOP 000002F0 0387 WAIT EQU $ 02F0 C398 0309 0388 COPY CHRX,RX RESRORE RX 02F1 8396 0308 0389  COPY LONG,A ? 000002F2 0390 L4 EQU $ ? 02F2 430A 0391 XNX RX 02F3 2101 0392 IN 1,X READ A =STAT REG CH RX 02F4 387F 0393 AND =:7F,X MASK 02F5 2C07 0394 CLSN X,=STATRX3 CHECK THE STAT REG AFTER RECEVED THE DATA 02F6 9E98 030F 0 395 JMP READ GOOD GO TO READ THE DATA 02F7 14BA 02F2 0396 IJNE A,L4 ? 02F8 0901 0397 COPY =1,A 1PAGE 0012 MACRO (F100) PROGRAMMED I/O TEST SUBROTINE 76-93717-21 (A100) 1981/08/10 03:52:00.25 02F9 872B 02A5 0398 COPY A,ER 02FA 3707 0399 XOR =STATRX3,X 02FB A72A 02A6 0400 COPY X,ERRARG 02FC 0901 0401 COPY =1,A 02FD 8729 02A7 0402 COPY A,CHTEST 02FE 8229 02A8 0403 COPY =TRANSM,A 02FF FF29 02A9 0404 JSK MSGOUT 18E3 18E7 0405  CALL ERR 030D 0C01 0406 CLSN A,=1 030E 9F5A 02E9 0407 JMP BIGLOOP 0000030F  0408 READ EQU $ 030F 430A 0409 XNX RX 0310 2100 0410 IN 0,X READ THE DATA 0311 0020 0411 COPY X,A 0312 B842 0002 0412 CSK A,LMSG(Y) COMPARE THE DATA 0313 0000 0413 NOP 0314 9E83 0318 0414 JMP TECH 0315 9E90 0326 0415 JMP GOOD 0002 0416 LPOOL 0318 0906 0417 TECH COPY =6,A 0319 870B 02A5 0418 COPY A,ER 18E3 18E7 0419 CALL ERR 0324 0C01 0420 CLSN A,=1 0325 9F43 02E9 0421 JMP BIGLOOP 00000326 0422 GOOD EQU $ 0326 430A 0423 XNX RX 0327 2101 0424  IN 1,X READ THE =STAT REG AFTER THE DATA READ 0328 387F 0425 AND =:7F,X MASK  0329 2C05 0426 CLSN X,=STATRX4 CHECK THE STAT REG AFTER THE DATA READ 032A 9E9A 0345 0427 JMP SECOND GO TO SECOND CHECK A DATA 032B 0901 0428 COPY =1,A 032C 878E 033B 0429 COPY A,ER 032D 3705 0430 XOR =STATRX4,X 032E A78D 033C 0431 COPY X,ERRARG 032F 0901  0432 COPY =1,A 0330 878C 033D 0433 COPY A,CHTEST 1PAGE 0013 MACRO (F100) PROGRAMMED I/O TEST SUBROTINE 76-93717-21 (A100) 1981/08/10 03:52:02.50 0331 828D 033F 0434 COPY =TRANSM,A 0332 FF8B 033E 0435 JSK MSGOUT 18E3 18E7 0436 CALL ERR 0343 0C01 0437 CLSN A,=1 0344 9F24 02E9 0438 JMP BIGLOOP 00000345 0439 SECOND EQU $ 0345 83A7 036D 0440 COPY CHTX,TX RESTORE TX 0346 29FF 0441 COPY =:FF,X 0347 DC41 0001 0442 IMS MSGPTR(Y) 0348 9E05 02CE 0443 JMP RET SE=COND PASS 0444 * 0445 * OVERRUN ERROR  0446 * 00000349 0447 OVERRUNR EQU $ 0349 29AA 0448 COPY =:AA,X DATA 034A 030A 0449 XNX TX 034B 2200 0450 OUT X,0 OUTPUT IT 034C A33B 0308 0451  COPY LONG,X 034D 34BF 034D 0452 IJNE X,$ 034E 29FF 0453 COPY =:FF,X CHANGE THE DATA 034F 030A 0454 XNX TX 0350 2200 0455 OUT X,0 OUTPUT IT 0351  A336 0308 0456 COPY LONG,X 0352 34BF 0352 0457 IJNE X,$ WAIT 0353 2955 0458  COPY =:55,X 0354 030A 0459 XNX TX 0355 2200 0460 OUT X,0 0356 8331 0308  0461 COPY LONG,A ? 00000357 0462 L5 EQU $ ? 0357 430A 0463  XNX RX 0358 2101 0464 IN 1,X READ THE =STAT 0359 387F 0465 AND =:7F,X MASK 035A 2C17 0466 CLSN X,=STATRX7 CHECK THE OVERRUN ERROR 035B 9E98 0374 0467 JMP REPEAT GO TO INCREMENT THE COUNT 035C 14BA 0357 0468 IJNE A,L5 ? 035D 0901 0469  COPY =1,A 1PAGE 0014 MACRO (F100) PROGRAMMED I/O TEST SUBROTINE 76-93717-21 (A100) 1981/08/10 03:52:04.25 035E 875C 033B 0470 COPY A,ER 035F 3717 0471 XOR =STATRX7,X 0360 A75B 033C 0472  COPY X,ERRARG 0361 0901 0473 COPY =1,A 0362 875A 033D 0474 COPY A,CHTEST 0363 828A 036E 0475 COPY =OVER,A 0364 FF59 033E 0476 JSK MSGOUT 18E3 18E7 0477 CALL ERR 0372 0C01 0478 CLSN A,=1 0373 9F8B 037F 0479 JMP BIGLOOP 00000374 0480 REPEAT EQU $ 0374 8389 037E 0481 COPY STORE1,A WAS THE TABLE ENDING? 0375 0B01 0482 ADD  =1,A 0376 8787 037E 0483 COPY A,STORE1 NEXT WORD FROM THE TABL 0377 A288 0380 0484 COPY =TABLE,X 0378 030A 0485 XNX A 0379 A080 0000 0486 COPY 0(X),X 037A 2C00 0487  CLSN X,=0 037B 9E86 0382 0488 JMP SBKERR YES,IT WAS 037C 9F82 037F 0489 JMP BIGLOOP GO TO CHECK NEXT WORD FROM THE TABL 0005 0490 LPOOL 0491 * 0492 * THE SBK ERROR 0493 * 00000382 0494 SBKERR EQU $ 0382 836A 036D 0495 COPY  CHTX,TX RESTORE TX 0383 2940 0496 COPY =:40,X RESET CHANNELS 0384 030A 0497 XNX TX 0385 2201 0498 OUT X,1 0386 430A 0499 XNX RX 0387 2201 0500  OUT X,1 0388 298E 0501 COPY =MODE1,X WRITE THE MODE WORD TO CHANNELS 0389 030A 0502  XNX TX 038A 2201 0503 OUT X,1 038B 430A 0504 XNX RX 038C 2201 0505 OUT X,1 1PAGE 0015 MACRO (F100) PROGRAMMED I/O TEST SUBROTINE 76-93717-21 (A100) 1981/08/10 03:52:06.00 038D A3A9 03B7 0506 COPY SW,X 038E 2C00 0507 CLSN X,=0 IS THE CABLE PRESENT? 038F 9E85 0395 0508 JMP SBCCAB 0390 2927 0509 COPY =CONRX3,X LOAD THE CONTR WORD INTO CH RX 0391 430A 0510 XNX RX 0392 2201 0511 OUT X,1 OUTPUT IT CH IS WITH THE TEST CABLE 0393 292F 0512 COPY =CONTX3,X THE CONTR WORD INTO CH TX WITH THE TEST CABLE 0394 9E84 0399  0513 JMP SBCWITH 00000395 0514 SBCCAB EQU $ 0395 2905 0515 COPY =CONRX4,X  THE CONTR WORD INTO CH RX WITHOUT THE CABLE 0396 430A 0516 XNX RX 0397 2201 0517 OUT  X,1 0398 292D 0518 COPY =CONTX4,X THE CONTR WORD INTO CH TX WITHOUT THE CABLE 00000399 0519 SBCWITH EQU $ 0399 839F 03B9 0520 COPY SHORT,A 039A 14BF 039A 0521 IJNE A,$ 039B 8351 036D 0522 COPY CHTX,TX 039C 030A 0523 XNX TX 039D 2201 0524 OUT X,1 039E 8399 03B8 0525 COPY LONG,A ? WAIT FOR SBC 0000039F 0526 L6 EQU $ 039F 430A 0527 XNX RX 03A0 2101 0528 IN 1,X 03A1 206F 0529 TBIT 6,X  RECIEVE READY 03A2 3641 03A4 0530 JT OV,$+2 YES 03A3 14BB 039F 0531 IJNE A,L6  LOOP 03A4 386F 0532 AND =:6F,X MASK 03A5 2C67 0533 CLSN X,=STATRX5 CHECK IT FOR SBC 03A6 9E99 03C0 0534 JMP PARITY GO TO CHECK PARITY ERR 03A7 0901 0535 COPY =1,A 03A8 8712 033B 0536 COPY A,ER 03A9 3767 0537 XOR =STATRX5,X 03AA A711 033C 0538 COPY X,ERRARG 03AB 0901 0539 COPY =1,A 03AC 8710 033D 0540 COPY A,CHTEST  03AD 828C 03BA 0541 COPY =SEND,A 1PAGE 0016 MACRO (F100) PROGRAMMED I/O TEST SUBROTINE 76-93717-21 (A100) 1981/08/10 03:52:07.50 03AE FF0F 033E 0542 JSK MSGOUT 18E3 18E7 0543 CALL ERR 03BE 0C01 0544 CLSN A,=1 03BF 9E42 0382 0545 JMP SBKERR 0546 * 0547 * PARITY ERROR 0548 * 000003C0 0549 PARITY EQU $ 03C0 832C 036D 0550 COPY  CHTX,TX RESTORE TX 03C1 28FE 0551 COPY =-2,X 03C2 A73B 037E 0552 COPY X,STORE1 03C3 2940 0553 COPY =:40,X RESET CHANNELS 03C4 030A 0554 XNX TX 03C5 2201 0555 OUT X,1 03C6 430A 0556 XNX RX 03C7 2201 0557 OUT X,1 03C8 295E  0558 COPY =MODE2,X LOAD THE MODE WORD 03C9 030A 0559 XNX TX 03CA 2201 0560  OUT X,1 OUTPUT IT INTO CH TX 03CB 297E 0561 COPY =MODE3,X LOAD THE MODE WORD CH RX 000003CC 0562 PASSEC EQU $ 03CC 430A 0563 XNX RX 03CD 2201 0564 OUT  X,1 OUTPUT IT INTO CH RX 03CE A368 03B7 0565 COPY SW,X IS THE CABLE PRESENT? 03CF 2C00  0566 CLSN X,=0 03D0 9E87 03D8 0567 JMP PARYES WITHOUT THE CABLE 03D1 2927 0568 COPY =CONTX6,X THE CONTR WORD FOR THE CH TX WITH THE CABLE 03D2 030A 0569 XNX TX 03D3 2201 0570 OUT X,1 03D4 2927 0571 COPY =CONRX6,X THE CONTR WORD FOR THE CH RX WITH  THE CABLE 03D5 9E86 03DC 0572 JMP PARWITH GO TO OUTPUT IT INTO CH RX 0002 0573 LPOOL 000003D8 0574 PARYES EQU $ 03D8 2925 0575 COPY =CONTX7,X THE CONTR WORD FOR THE CH TX WITHOUT THE CABLE 03D9 030A 0576 XNX TX 03DA 2201 0577 OUT X,1 1PAGE 0017 MACRO (F100) PROGRAMMED I/O TEST SUBROTINE 76-93717-21 (A100) 1981/08/10 03:52:09.25 03DB 2905 0578 COPY =CONRX7,X THE CONTR WORD FOR THE CH RX WITHOUT THE CABLE 03DC 430A 0579 PARWITH XNX RX 03DD 2201 0580  OUT X,1 03DE 29AA 0581 COPY =:AA,X THE DATA 03DF 030A 0582 XNX TX  03E0 2200 0583 OUT X,0 OUTPUT IT 03E1 A356 03B8 0584 COPY LONG,X 03E2 34BF 03E2 0585 IJNE X,$ WAIT 03E3 2955 0586 COPY =:55,X 03E4 030A 0587 XNX TX 03E5 2200 0588 OUT X,0 03E6 8351 03B8 0589 COPY LONG,A ? 000003E7 0590 L7 EQU $ ? 03E7 430A 0591 XNX RX 03E8 2101 0592 IN 1,X READ A =STAT REG 03E9 387F 0593 AND =:7F,X MASK 03EA 2C0F 0594 CLSN  X,=STATRX6 CHECK THE PARITY ERROR 03EB 9E9B 0407 0595 JMP PARSEC GO TO CHECK FRAMING ERROR 03EC 14BA 03E7 0596 IJNE A,L7 ? 03ED 0901 0597 COPY =1,A 03EE 878E 03FD 0598 COPY A,ER 03EF 370F 0599 XOR =STATRX6,X 03F0 A78D 03FE 0600 COPY X,ERRARG 03F1 0901  0601 COPY =1,A 03F2 878C 03FF 0602 COPY A,CHTEST 03F3 828D 0401 0603 COPY =PAR,A 03F4 FF8B 0400 0604 JSK MSGOUT 18E3 18E7 0605 CALL ERR 0405 0C01 0606 CLSN A,=1 0406 9E39 03C0 0607 JMP PARITY 00000407 0608 PARSEC EQU $ 0407 DFC8 0450 0609  IMS STORE1 0408 9E81 040A 0610 JMP PASS 0409 9E8B 0415 0611 JMP FRAMING 0000040A 0612 PASS EQU $ 040A 83C6 0451 0613 COPY CHTX,TX 1PAGE 0018 MACRO (F100) PROGRAMMED I/O TEST SUBROTINE 76-93717-21 (A100) 1981/08/10 03:52:11.25 040B 2940 0614 COPY =:40,X 040C 030A 0615 XNX TX 040D 2201 0616 OUT X,1 040E 430A 0617 XNX RX 040F 2201  0618 OUT X,1 0410 297E 0619 COPY =MODE3,X 0411 030A 0620 XNX TX 0412 2201 0621 OUT X,1 0413 295E 0622 COPY =MODE2,X 0414 9E37 03CC 0623 JMP  PASSEC 0624 * 0625 * FRAMING ERROR 0626 * 00000415 0627 FRAMING EQU $ 0415 83BB 0451 0628 COPY CHTX,TX RESTORE CHTX 0416 2940 0629 COPY =:40,X RESET CHANNELS 0417 030A 0630 XNX TX 0418 2201 0631 OUT X,1 0419 430A   0632 XNX RX 041A 2201 0633 OUT X,1 041B 298E 0634 COPY =MODE1,X 041C 030A 0635 XNX TX 041D 2201 0636 OUT X,1 OUTPUT MODE WORD -> CHTX 041E 2982 0637 COPY =MODEFRAM,X 041F 430A 0638 XNX RX 0420 2201 0639 OUT  X,1 OUTPUT MODE WORD -> CHRX 0421 A315 03B7 0640 COPY SW,X 0422 2C00 0641 CLSN  X,=0 IS THE CABLE PRESENT 0423 9E85 0429 0642 JMP FRAMCAB 0424 2927 0643 COPY =CONRX3,X THE CONTR WORD CH RX 0425 430A 0644 XNX RX 0426 2201 0645 OUT X,1  OUTPUT IT 0427 2927 0646 COPY =CONTX1,X THE CONTR WORD CH TX 0428 9E84 042D 0647 JMP  FRAMWITH 00000429 0648 FRAMCAB EQU $ 0429 2905 0649 COPY =CONRX4,X CONTR WORD CH RX WITHOUT THE CABLE 1PAGE 0019 MACRO (F100) PROGRAMMED I/O TEST SUBROTINE 76-93717-21 (A100) 1981/08/10 03:52:12.50 042A 430A 0650 XNX RX 042B 2201 0651 OUT X,1 OUTPUT IT 042C 2925 0652  COPY =CONTX2,X CONTR WORD CH TX WITHOUT THE CABLE 0000042D 0653 FRAMWITH EQU $ 042D 030A 0654 XNX TX 042E 2201 0655 OUT X,1 042F 2900 0656 COPY =0,X THE DATA 0430 030A 0657 XNX TX 0431 2200 0658 OUT X,0 OUTPUT THE DATA 0432 8305 03B8 0659 COPY LONG,A ? 00000433 0660 L8 EQU $ ? 0433 430A 0661 XNX RX 0434 2101 0662 IN 1,X READ STAT 0435 201F 0663 TBIT  1,X RECIEVER READY 0436 3641 0438 0664 JT OV,$+2 0437 14BB 0433 0665 IJNE A,L8 0438 430A 0666 XNX RX 0439 2100 0667 IN 0,X 043A 430A 0668 XNX RX 043B 2101 0669 IN 1,X INPUT THE STATUS 043C 387F 0670 AND =:7F,X  MASK 043D 2C25 0671 CLSN X,=STATRX5F CHECK FOR FRAMING ERROR 043E 9E99 0458 0672 JMP RESET 043F 0901 0673 COPY =1,A 0440 873C 03FD 0674 COPY A,ER 0441 3725 0675 XOR =STATRX5F,X 0442 A73B 03FE 0676 COPY X,ERRARG 0443 0901 0677 COPY =1,A 0444 873A 03FF 0678 COPY A,CHTEST 0445 828C 0452 0679 COPY =FRAM,A 0446 FEE4 04AB 0680 JSK  MSGOUT 18E3 18E7 0681 CALL ERR 0456 0C01 0682 CLSN A,=1 0457 9E3D 0415 0683  JMP FRAMING 00000458 0684 RESET EQU $ 0458 8378 0451 0685 COPY CHTX,TX RESTORE TX 1PAGE 0020 MACRO (F100) PROGRAMMED I/O TEST SUBROTINE 76-93717-21 (A100) 1981/08/10 03:52:14.50 0459 2900 0686  COPY =0,X COUNT=0 045A A775 0450 0687 COPY X,STORE1 045B 2940 0688 COPY   =:40,X RESET CHANNELS 045C 030A 0689 XNX TX 045D 2201 0690 OUT X,1 045E 430A 0691 XNX RX 045F 2201 0692 OUT X,1 0460 A3BC 049D 0693 COPY COUNT1,X 0461 2C00 0694 CLSN X,=0 MADE 1 ? 0462 9E8A 046D 0695 JMP CHANGE GO TO CHANGE CH3 WITH CH1 & CH4 WITH CH2 0463 4008 0696 EXCH TX,RX EXCHANGE CH1 & CH2 0464 876C 0451 0697 COPY TX,CHTX STORE IT 0465 C7B8 049E 0698 COPY RX,CHRX STORE IT 0466 2900 0699 COPY =0,X 0467 A7B5 049D 0700 COPY X,COUNT1 0468 A2B6 049F 0701 COPY =MSG3,X 0469 A441 0001 0702 COPY X,MSGPTR(Y) 046A A3B5 04A0 0703 COPY LMSG2,X 046B A442 0002 0704  COPY X,LMSG(Y) 046C 9E9F 048C 0705 JMP CALL 0000046D 0706 CHANGE EQU $ 046D A3B3 04A1 0707 COPY SW1,X 046E 2C00 0708 CLSN X,=0 046F 9ED4 04C4 0709 JMP EXIT 0470 A3B1 04A2 0710 COPY COUNT2,X 0471 2C00 0711 CLSN X,=0 0472 9E8D 0480 0712 JMP  CHANGE1 0473 83AF 04A3 0713 COPY BUTDA,TX 0474 C3AE 04A3 0714 COPY BUTDA,RX 0475 1904  0715 OR =4,TX CH3 IS TX 0476 5906 0716 OR =6,RX CH4 IS RX 0477 C7A6 049E 0717 COPY RX,CHRX STORE,IT 0478 8758 0451 0718 COPY TX,CHTX 0479 2900 0719  COPY =0,X 047A A7A7 04A2 0720 COPY X,COUNT2 047B A2A8 04A4 0721 COPY =MSG4,X 1PAGE 0021 MACRO (F100) PROGRAMMED I/O TEST SUBROTINE 76-93717-21 (A100) 1981/08/10 03:52:16.00 047C A441 0001 0722 COPY X,MSGPTR(Y) 047D A3A2 04A0 0723 COPY LMSG2,X 047E A442 0002 0724 COPY X,LMSG(Y) 047F 9E8C 048C 0725 JMP CALL 0480 A3A4 04A5 0726 CHANGE1 COPY COUNT3,X 0481 2C00 0727 CLSN X,=0 0482 9EC1 04C4 0728 JMP EXIT 0483 4008 0729 EXCH TX,RX 0484 874C 0451 0730  COPY TX,CHTX 0485 C798 049E 0731 COPY RX,CHRX 0486 2900 0732 COPY =0,X 0487 A79D 04A5 0733 COPY X,COUNT3 0488 A29D 04A6 0734 COPY =MSG5,X 0489 A441 0001 0735 COPY X,MSGPTR(Y) 048A A395 04A0 0736 COPY LMSG2,X 048B A442 0002 0737 COPY X,LMSG(Y) 0000048C 0738 CALL EQU $ 048C A020 0020 0739 COPY MODEREG,X SKIP MSG 048D 208F 0740 TBIT  MODEFLAG,X 048E 36DB 04AA 0741 JF OV,JMP 18E3 18E7 0742 CALL O:MSG,=CO,LMSG,MSGPTR  000004AA 0743 JMP EQU $ 04AA 9F94 04BF 0744 JMP BIGLOOP1 000004AB 0745 MSGOUT EQU  $ 04AB 8443 0003 0746 COPY A,MSGPTR1(Y) 04AC 8393 04C0 0747 COPY LTRANSM,A 04AD 8444 0004 0748 COPY A,LMSG16(Y) 04AE 8020 0020 0749 COPY MODEREG,A 04AF 008F 0750 TBIT MOD EFLAG,A 04B0 36D2 04C3 0751 JF OV,RSK 18E3 18E7 0752 CALL O:MSG,=CO,LMSG16,MSGPTR1 000004C3 0753 RSK EQU $ 04C3 2309 0754 RSK 18E3 18E7 0755 EXIT EXIT 0756 END 1PAGE 0022 MACRO (F100) PROGRAMMED I/O TEST SUBROTINE 76-93717-21 (A100) 1981/08/10 03:52:20.50 0000  ERRORS (0000/0000) 0000 WARNINGS (0000/0000) 49 COPY MODEREG,A 04AF 008F 0750 TBIT MODEFLAG,A 04B0 36D2 04C3 0751 JF OV,RSK 18E3 18E7 0752 CALL O:MSG,=CO,LMSG16,MSGPTR1 000004C3 0753 RSK EQU $ 04C3 2309 0754 RSK 18E3 18E7 0755 EXIT EXIT 01PAGE 0001 MACRO (F100) AUTO I/O TEST SUBROTINE 76-93717-24 (A100) 1981/08/10 03:55:39.00 SI = DM01.TSTAUT.ASM SO = DM01.TSTAUT.OBJ LO = DM01.TSTAUT.LST 000C 0002 NAM TSTAUT 0003 EXTR MSG2,MSG3,MSG4 0004 EXTR MSG5,LMSG2 0005 EXTR O:MSG,ERR 18E3 18E7 0006 DEFINE TSTAUT 0001 0007 MSGPTR RES 1 0002 0008 LMSG RES 1 0003  0009 AIB RES 1 THE AIB INSTRUCTION 0004 0010 AOB RES 1 THE AOB INSTRUCTION 0005 0011 COUNTRX RES 1 COUNTER FOR THE AUTO I/O RX 0006 0012 COUNTTX RES 1 COUNTER FOR THE AUTO I/O TX 0007 0013 BUFFRX RES 1 BUFFER FOR THE AIB INSTRUCTION 0008 0014 ADDRTX RES 1 THE MEMORY ADDR FOR THE AOB INSTRUCTION 0009 0015 ADDRRX RES 1 THE MEMORY ADDR FOR THE AIB INSTRUCTION 000A 0016 ADDRBUFT RES 1  THE ADDR THE DATA TX 000B 0017 ADDRBUFR RES 1 THE ADDRESS THE DATA RX 000C 0018 STTX RES 1 000D 0019 STRX RES 1 0000 0003 0020 ENDEF 0000 55AA 0021 BUFFTX  BYTE :55,:AA THE DATA TX 00000002 0022 LBUFFTX EQU $-BUFFTX*2 0001 4500 0023 AIB: AIB  0 AIB INSTRUCTION 0002 6508 0024 AOB: AOB 8 AOB INSTRUCTION 0003 0D0A 0025 MSG1 BYTE :0D,:0A,'AUTO I/O TEST ' 000B 0010 0026 LMSG1 WORD $-MSG1*2 18E3 18E7 0027 TSTAUT ENTRY  001B 2901 0028 COPY =1,X 001C A795 0032 0029 COPY X,COUNT1 001D A795 0033 0030 COPY X,COUNT2 001E A795 0034 0031 COPY X,COUNT3 001F A020 0020 0032 COPY MODEREG,X 0020 208F 0033 TBIT MODEFLAG,X 0021 36E8 004A 0034 JF OV,SKIP SKIP THE MSG 18E3 18E7 0035 CALL O:MSG,=CO,LMSG1,=MSG1 18E3 18E7 0036 CALL O:MSG,=CO,LMSG2,=MSG2 0000004A 0037 SKIP EQU $ 1PAGE 0002 MACRO (F100) AUTO I/O TEST SUBROTINE 76-93717-24 (A100) 1981/08/10 03:55:43.50 004A 2902 0038 COPY =LBUFFTX,X 004B 2021 0039 NEG X,X NEGATIVE BYTE COUNTER 004C  82BD 008A 0040 COPY =BUFFTX,A COMPUTE THE ADDR THE TX BUFFER 004D 0E01 0041 SHIFT A,LO,1 CONVERT TO BYTE ADDRESS 004E 36C1 0050 0042 JF OV,$+2 TEST FOR THE OVERFLOW 004F 20FD 0043 RBIT 15,X THE COUNTER AUTO I/O INSTRUCTION+ADDR INDICATOR 0050 0AFF 0044 SUB =1,A THE ADDR THE BUFFER TX 0051 844A 000A 0045 COPY A,ADDRBUFT(Y) STORE IT 0052 A446 0006 0046  COPY X,COUNTTX(Y) STORE THE COUNTER FOR THE TX 0053 2902 0047 COPY =LBUFFTX,X 0054 2021 0048  NEG X,X NEGATIVE BYTE COUNTER FOR THE RX 0055 0907 0049 COPY =BUFFRX,A 0056 0062  0050 ADD Y,A THE WORD ADDR THE BUFF RX 0057 0E01 0051 SHIFT A,LO,1 CONVERT TO BYTE MODE 0058 36C1 005A 0052 JF OV,$+2 TEST FOR OVERFLOW 0059 20FD 0053 RBIT  15,X THE COUNTER + INDIKATOR THE ADDRESS 005A 0AFF 0054 SUB =1,A THE ADDR IN THE BYTE MODE 005B 844B 000B 0055 COPY A,ADDRBUFR(Y) STORE THE ADDRESS 005C A445 0005 0056 COPY X,COUNTRX(Y) STORE THE COUNTER RX 005D A3A8 0086 0057 COPY BUTDA,X 005E A7A8 0087 0058 COPY X,CHTX  DA+#CH FOR CHTX 005F 3902 0059 OR =2,X 0060 A7A7 0088 0060 COPY X,CHRX DA+#CH FOR CHRX 00000061 0061 BIGLOOP EQU $ 0061 83A5 0087 0062 COPY CHTX,TX 0062 C3A5 0088 0063  COPY CHRX,RX 0063 298E 0064 COPY =MODE,X 0064 030A 0065 XNX TX 0065 2201  0066 OUT X,1 0066 430A 0067 XNX RX 0067 2201 0068 OUT X,1 0068 2921 0069 COPY =CONTR,X 0069 030A 0070 XNX TX 006A 2201 0071 OUT X,1 006B 2924 0072 COPY =CONTX,X 006C 430A 0073 XNX RX 1PAGE 0003 MACRO (F100) AUTO I/O TEST SUBROTINE 76-93717-24 (A100) 1981/08/10 03:55:45.00 006D 2201 0074 OUT X,1 0000006E  0075 START EQU $ 006E C399 0088 0076 COPY CHRX,RX 006F 8397 0087 0077 COPY CHTX,TX 0070 A211 0002 0078 COPY AOB:,X AOB INSTR -> X REG 0071 2007 0079 OR TX,X AOB+#CH+FC FOR CHTX 0072 A444 0004 0080 COPY X,AOB(Y) STORE IT 0073 A20D 0001 0081 COPY AIB:,X AIB INSTR -> X REG 0074 2047 0082 OR RX,X AIB+DA+#CH+FC FOR CH RX 0075 A443 0003 0083 COPY X,AIB(Y) STORE IT 0076 1806 0084 AND =6,TX 0077 5806 0085 AND  =6,RX 0078 A290 0089 0086 COPY =VECTBASE,X THE VECTOR BASE ADDRESS 0079 0E11 0087 SHIFT  TX,LO,2 MULTIPLAY CHTX*8 007A 0B20 0088 ADD =32,TX 007B 2002 0089 ADD TX,X  THE ADDR FOR THE AOB INSTRUCTION 007C A448 0008 0090 COPY X,ADDRTX(Y) STORE IT 007D 8080 0000 0091   COPY 0(X),A 007E 878C 008B 0092 COPY A,STORETX 007F 8081 0001 0093 COPY 1(X),A 0080 878B 008C 0094 COPY A,STORETX+1 0081 8082 0002 0095 COPY 2(X),A 0082 878A 008D 0096  COPY A,STORETX+2 0083 8083 0003 0097 COPY 3(X),A 0084 8789 008E 0098 COPY A,STORETX+3 0085 9E8A 0090 0099 JMP !LPL:004 JUMP AROUND LPOOL 000A 0099+ LPOOL 00000090 0099+ !LPL:004 EQU $ 0090 A278 0089 0100 COPY =VECTBASE,X 0091 4E11 0101 SHIFT RX,LO,2  MULTIPLAY CH*8 0092 2042 0102 ADD RX,X THE ADDRESS FOR THE AIB INSTRUCTION 0093 A449 0009 0103 COPY X,ADDRRX(Y) STORE IT 0094 8080 0000 0104 COPY 0(X),A 0095 87A2 00B8 0105 COPY A,STORERX 0096 8081 0001 0106 COPY 1(X),A 0097 87A1 00B9 0107 COPY A,STORERX+1 1PAGE 0004 MACRO (F100) AUTO I/O TEST SUBROTINE 76-93717-24 (A100) 1981/08/10 03:55:46.75 0098 8082 0002 0108 COPY  2(X),A 0099 87A0 00BA 0109 COPY A,STORERX+2 009A 8083 0003 0110 COPY 3(X),A 009B 879F 00BB 0111 COPY A,STORERX+3 009C 836A 0087 0112 COPY CHTX,TX 009D C36A 0088 0113 COPY CHRX,RX 009E 1806 0114 AND =6,TX 009F 5806 0115 AND =6,RX 00A0 0E01 0116  SHIFT TX,LO,1 CHTX*4 00A1 4E01 0117 SHIFT RX,LO,1 CHRX*4 00A2 A399 00BC 0118 COPY TABINT,X 00A3 2002 0119 ADD TX,X 00A4 2B01 0120 ADD =1,X ADDR FOR CHECING DATA TX EOB 00A5 A080 0000 0121 COPY 0(X),X THE DATA FOR CHECING CH TX 00A6 A44C 000C 0122  COPY X,STTX(Y) 00A7 0020 0123 COPY X,A TEMPORARY STORE 00A8 A393 00BC 0124 COPY TABINT,X 00A9 2042 0125 ADD RX,X 00AA 2B03 0126 ADD =3,X ADD FOR THE CHECING DATA 00AB A080 0000 0127 COPY 0(X),X DATA FOR CHECING EOB CHRX 00AC A44D 000D 0128 COPY X,STRX(Y) 00AD 2007 0129 OR A,X DATA FOR CHEKING BOTH EOB 00AE A787 00B6 0130  COPY X,STORE STORE IT 00AF 8356 0086 0131 COPY BUTDA,A 00B0 A386 00B7 0132 COPY SW,X !! 00B1 2C00 0133 CLSN X,=0 !! 00B2 9E8D 00C0 0134 JMP CABLE !! 00B3 2908 0135 COPY =8,X !! 00B4 9E8C 00C1 0136 JMP CABLE00 !! 00B5 9E8A 00C0 0137 JMP !LPL:005 JUMP AROUND LPOOL 000A 0137+ LPOOL 000000C0 0137+ !LPL:005 EQU $ 000000C0 0138 CABLE EQU $ !! 00C0 290C 0139 COPY =:C,X  000000C1 0140 CABLE00 EQU $ !! 00C1 030A 0141 XNX A 1PAGE 0005 MACRO (F100) AUTO I/O TEST SUBROTINE 76-93717-24 (A100) 1981/08/10 03:55:48.25 00C2 2403 0142 SELP X,3 DISAB LE BOARD INTERRUPTION 00C3 8043 0003 0143 COPY AIB(Y),A RESTORE AIB INSTRUCTION 00C4 A049 0009 0144  COPY ADDRRX(Y),X RESTORE THE ADDR FOR THE AIB INSTRUCTION 00C5 8480 0000 0145 COPY A,0(X) LOAD AIB INSTRUCTION TO THE INPUT BLOK 00C6 8045 0005 0146 COPY COUNTRX(Y),A RESTORE TE COUNTER FOR RX 00C7 8481 0001 0147 COPY A,1(X) LOAD IT TO THE INPUT BLOK 00C8 804B 000B 0148 COPY ADDRBUFR(Y),A THE ADDR THE BUFF FOR RX 00C9 8482 0002 0149 COPY A,2(X) LOAD IT TO THE INPUT BLOK 00CA 8044 0004 0150  COPY AOB(Y),A RESTORE AOB INSTRUCTION 00CB A048 0008 0151 COPY ADDRTX(Y),X RESTORE THE ADDR FOR THE AIB INSTRUCTION 00CC 8480 0000 0152 COPY A,0(X) LOAD AOB INSTRUCTION TO THE OUTPUT BLOK 00CD 8046 0006 0153 COPY COUNTTX(Y),A RESTORE COUNTER FOR THE CH TX 00CE 8481 0001 0154 COPY A,1(X) LOAD THE COUNTER TO THE OUTPUT BLOK 00CF 804A 000A 0155 COPY ADDRBUFT(Y),A THE ADDR THE BUFF FOR CH TX 00D0 8482 0002 0156 COPY A,2(X) LOAD IT TO THE OUTPUT BLOK 00D1 C334 0086 0157 COPY BUTDA,Q 00D2 0900 0158 COPY =0,A THE CHEKING INFORMATION 00D3 A363 00B7 0159 COPY SW,X !! 00D4 2C00 0160 CLSN X,=0 !! 00D5 9E82 00D8 0161 JMP CABLE1 !! 00D6 2909 0162 COPY =9,X !! 00D7 9E81 00D9 0163 JMP CABLE01 !! 000000D8 0164 CABLE1 EQU $ !! 00D8 290D 0165 COPY =:D,X 000000D9 0166 CABLE01 EQU $ 00D9 430A 0167 XNX Q 00DA 2403 0168 SELP X,3 EXECUT AOB,AIB 00DB A3C9 0125  0169 COPY LONG,X 00DC 0900 0170 COPY =0,A 00DD E7C8 0126 0171 COPY Y,STY 00DE C04D 000D 0172 COPY STRX(Y),Q 00DF E04C 000C 0173 COPY STTX(Y),Y 00E0 0E85 0174  SBIT 8,S 000000E1 0175 S1 EQU $ 00E1 0000 0176 NOP 00E2 0000 0177 NOP 1PAGE 0006 MACRO (F100) AUTO I/O TEST SUBROTINE 76-93717-24 (A100) 1981/08/10 03:55:49.75 00E3 0000 0178  NOP 00E4 400A 0179 CSN A,Q 00E5 9E8A 00F0 0180 JMP CLEARREC 00E6 600A 0181  CSN A,Y 00E7 9E81 00E9 0182 JMP CLEARTX 00E8 34B8 00E1 0183 IJNE X,S1 000000E9 0184 CLEARTX EQU $ 00E9 0E87 0185 RBIT 8,S 00EA E3BB 0126 0186 COPY STY,Y 00EB C31B 0087 0187 COPY CHTX,Q 00EC 5908 0188 OR =8,Q 00ED 430A 0189 XNX  Q 00EE 2101 0190 IN 1,X 00EF 9E85 00F5 0191 JMP OUT * 000000F0 0192  CLEARREC EQU $ * 00F0 0E87 0193 RBIT 8,S 00F1 E3B4 0126 0194 COPY STY,Y 00F2 C315 0088 0195 COPY CHRX,RX * 00F3 430A 0196 XNX RX * 00F4 2101   0197 IN 1,X * 000000F5 0198 OUT EQU $ * 00F5 A3AF 0125 0199  COPY LONG,X 00F6 C33F 00B6 0200 COPY STORE,Q 00F7 0E85 0201 SBIT 8,S 000000F8  0202 S2 EQU $ 00F8 0000 0203 NOP 00F9 0000 0204 NOP 00FA 0000 0205  NOP 00FB 400A 0206 CSN A,Q 00FC 9E81 00FE 0207 JMP $+2 00FD 34BA 00F8 0208  IJNE X,S2 00FE 0E87 0209 RBIT 8,S 00FF 8441 0001 0210 COPY A,MSGPTR(Y) STORE A REG FOR THE TEST ERRORS 0100 C305 0086 0211 COPY BUTDA,Q 0101 A39F 0121 0212 COPY SW1,X !! 0102 2C00 0213 CLSN X,=0 !! 1PAGE 0007 MACRO (F100) AUTO I/O TEST SUBROTINE 76-93717-24 (A100)  1981/08/10 03:55:51.00 0103 9E82 0106 0214 JMP CABLE2 !! 0104 2908 0215 COPY =8,X !! 0105 9E81 0107 0216 JMP CABLE02 !! 00000106 0217 CABLE2 EQU $ !! 0106 290C 0218 COPY =:C,X 00000107 0219 CABLE02 EQU $ 0107 430A 0220 XNX Q 0108 2403 0221 SELP X,3 DISABLE INTERRUPT 0109 C398 0122 0222 COPY CHTX,Q * 010A 5908 0223 OR =8,Q * 010B 430A 0224 XNX Q * 010C 2101 0225 IN 1,X * 010D C395 0123 0226 COPY CHRX,RX RESTORE CHRX 010E 430A 0227 XNX RX 010F 2101 0228 IN 1,X CLEAR RECEVE EOB 0110 8041 0001 0229 COPY MSGPTR(Y),A RESTORE THE TEST INFORMATION 0111 A324 00B6 0230 COPY STORE,X RESTORE THE CHECK INFORMATION 0112 200A 0231 CSN A,X 0113 9E9C 0130 0232 JMP CHANGE 00000114 0233 ERROR EQU $ 0114 2900 0234 COPY =0,X 0115 200A 0235 CSN A,X 0116 9E97 012E 0236 JMP ERR5 0117 2904 0237 COPY =4,X 00000118 0238 ERR51 EQU $  0118 A78E 0127 0239 COPY X,ER 18E3 18E7 0240 CALL ERR 012B 0C01 0241 CLSN  A,=1 012C 9FD9 0186 0242 JMP START 012D 9E82 0130 0243 JMP CHANGE 0000012E 0244 ERR5 EQU $ 012E 2905 0245 COPY =5,X 012F 9E68 0118 0246 JMP ERR51 00000130  0247 CHANGE EQU $ 0130 A048 0008 0248 COPY ADDRTX(Y),X 0131 83D5 0187 0249 COPY STORETX,A 1PAGE 0008 MACRO (F100) AUTO I/O TEST SUBROTINE 76-93717-24 (A100) 1981/08/10 03:55:52.75 0132 8480 0000 0250  COPY A,0(X) 0133 83D4 0188 0251 COPY STORETX+1,A 0134 8481 0001 0252 COPY A,1(X) 0135 83D3 0189 0253 COPY STORETX+2,A 0136 8482 0002 0254 COPY A,2(X) 0137 83D2 018A 0255 COPY STORETX+3,A 0138 8483 0003 0256 COPY A,3(X) 0139 A049 0009 0257 COPY ADDRRX(Y),X 013A 8 3D0 018B 0258 COPY STORERX,A 013B 8480 0000 0259 COPY A,0(X) 013C 83CF 018C 0260 COPY STORERX+1,A 013D 8481 0001 0261 COPY A,1(X) 013E 83CE 018D 0262 COPY STORERX+2,A 013F 8482 0002 0263 COPY A,2(X) 0140 83CD 018E 0264 COPY STORERX+3,A 0141 8483 0003 0265 COPY  A,3(X) 0142 835F 0122 0266 COPY CHTX,TX 0143 C35F 0123 0267 COPY CHRX,RX 0144 2940 0268 COPY =:40,X 0145 030A 0269 XNX TX 0146 2201 0270 OUT X,1 0147 430A 0271 XNX RX 0148 2201 0272 OUT X,1 0149 A3C5 018F 0273 COPY COUNT1,X 014A 2C00 0274 CLSN X,=0 014B 9E8A 0156 0275 JMP CHANGE1 014C 4008 0276 EXCH TX,RX 014D 8754 0122 0277 COPY TX,CHTX STORE IT 014E C754 0123 0278 COPY RX,CHRX  STORE IT 014F 2900 0279 COPY =0,X 0150 A7BE 018F 0280 COPY X,COUNT1 0151 A2BE 0190 0281 COPY =MSG3,X 0152 A441 0001 0282 COPY X,MSGPTR(Y) 0153 A3BD 0191 0283 COPY LMSG2,X 0154 A442 0002 0284 COPY X,LMSG(Y) 0155 9E9F 0175 0285 JMP CALL 1PAGE 0009 MACRO (F100) AUTO I/O TEST SUBROTINE 76-93717-24 (A100) 1981/08/10 03:55:54.00 00000156 0286 CHANGE1 EQU $ 0156 A34A 0121 0287 COPY SW1,X 0157 2C00 0288 CLSN X,=0 0158 9EC5 019E 0289 JMP EXIT 0159 A3B8 0192 0290 COPY COUNT2,X 015A 2C00 0291 CLSN X,=0 015B 9E8D 0169 0292 JMP CHANGE2 015C 83B6 0193 0293 COPY BUTDA,TX 015D C3B5 0193 0294 COPY BUTDA,RX 015E 1904  0295 OR =4,TX 015F 5906 0296 OR =6,RX 0160 8741 0122 0297 COPY TX,CHTX 0161 C741 0123 0298 COPY RX,CHRX 0162 2900 0299 COPY =0,X 0163 A7AE 0192 0300  COPY X,COUNT2 0164 A2AF 0194 0301 COPY =MSG4,X 0165 A441 0001 0302 COPY X,MSGPTR(Y) 0166 A3AA 0191 0303 COPY LMSG2,X 0167 A442 0002 0304 COPY X,LMSG(Y) 0168 9E8C 0175 0305 JMP CALL 00000169 0306 CHANGE2 EQU $ 0169 A3AB 0195 0307 COPY COUNT3,X 016A 2C00 0308  CLSN X,=0 016B 9EB2 019E 0309 JMP EXIT 016C 4008 0310 EXCH TX,RX 016D 8734 0122 0311 COPY TX,CHTX 016E C734 0123 0312 COPY RX,CHRX 016F 2900 0313 COPY =0,X 0170 A7A4 0195 0314 COPY X,COUNT3 0171 A2A4 0196 0315 COPY =MSG5,X 0172 A441 0001 0316  COPY X,MSGPTR(Y) 0173 A39D 0191 0317 COPY LMSG2,X 0174 A442 0002 0318 COPY X,LMSG(Y)  00000175 0319 CALL EQU $ 0175 A020 0020 0320 COPY MODEREG,X 0176 208F 0321 TBIT MODEFLAG,X 1PAGE 0010 MACRO (F100) AUTO I/O TEST SUBROTINE 76-93717-24 (A100) 1981/08/10 03:55:55.25 0177 36E3 0 19B 0322 JF OV,JMP 18E3 18E7 0323 CALL O:MSG,=CO,LMSG,MSGPTR 0000019B 0324 JMP  EQU $ 019B 9F81 019D 0325 JMP BIGLOOP 0002 0326 LPOOL 0000019E 0327 EXIT EQU $ 18E3 18E7 0328 EXIT 0329 END 0000 ERRORS (0000/0000) 0000 WARNINGS (0000/0000) GE 0010 MACRO (F100) AUTO I/O TEST SUBROTINE 76-93717-24 (A100) 1981/08/10 03:55:55.25 0177 36E3 019B 0322 JF OV,JMP 18E3 18E7 0323 CALL O:MSG,=CO,LMSG,MSGPTR 0000019B 0324 JMP  EQU $ 019B 9F81 019D 0325 JMP BIGLOOP 0002 0326 LPOOL 0000019E 0327 EXIT1PAGE 0001 MACRO (F100) ERROR HANDLER 76-93717-26 (A100) 1981/08/10 03:57:33.25 SI = DM01.ERR.ASM SO = DM01.ERR.OBJ LO = DM01.ERR.LST 0002 EXTR SYSERR 0003 EXTR O:MSG,O:IO  0004 EXTR TECHTST,LTECHTST 01E8 0005 NAM ERR 18E3 18E7 0006 DEFINE ERR 0001 0007 MSGPTR RES 1 0002 0008 LMSG RES 1 0000 0003 0009 ENDEF 0000 0008 0010 ERR0 WORD ERR1 0001 001F 0011 WORD ERR11 0002 0036 0012  WORD ERR12 0003 004D 0013 WORD ERR13 0004 0064 0014 WORD ERR14 0005 007B 0015 WORD ERR15 0006 0092 0016 WORD ERR37 0007 00A9 0017 WORD ERR16 0008 0D0A 0018 ERR1 BYTE :0D,:0A,' ** E ** UART STATUS ERROR -- TXRDY ' 001F 0D0A 0019 ERR11 BYTE :0D,:0A,' ** E ** UART STATUS ERROR -- RCVRDY ' 0036 0D0A 0020 ERR12 BYTE :0D,:0A,' ** E ** UART STATUS ERROR -- TXE ' 004D 0D0A 0021 ERR13 BYTE :0D,:0A,' ** E ** UART STATUS ERROR -- PARITY ERR ' 0064 0D0A 0022 ERR14 BYTE :0D,:0A,' ** E ** UART STATUS ERROR -- OVERRUN ERR ' 007B 0D0A 0023 ERR15 BYTE :0D,:0A,' ** E ** UART STATUS ERROR -- FRAMING ERR ' 0092 0D0A 0024 ERR37 BYTE :0D,:0A,' ** E ** UART STATUS ERROR -- BD ' 00A9 0D0A 0025 ERR16 BYTE :0D,:0A,' ** E ** UART STATUS ERROR -- DSR ' 00C0 002E 0026 LERR1 WORD $-ERR16*2 00C1 0D0A 0027 ERR2 BYTE :0D,:0A,' ** E ** BOARD INTERRUPT DISABLE FAILURE' 00D7 002C 0028 LERR2 WORD $-ERR2*2 00D8 0D0A 0029 ERR3 BYTE :0D,:0A,' ** E ** UIS INTERRUPT DISABLE FAILURE' 00ED 002A 0030 LERR3 WORD $-ERR3*2 00EE 0D0A 0031 ERR4 BYTE :0D,:0A,'  ** E ** INTERRUPT VECTOR INCORRECT' 0102 0028 0032 LERR4 WORD $-ERR4*2 0103 0D0A 0033 ERR5 BYTE  :0D,:0A,' ** E ** EXPECTED INTERRUPT WAS NOT REQUESTED' 011C 0032 0034 LERR5 WORD $-ERR5*2 011D 0D0A 0035 ERR6 BYTE :0D,:0A,:0A,' ** E ** RECEIVE DATA BAD' 012C 001E 0036 LERR6 WORD $-ERR6*2 012D 0D0A  0037 ERR7 BYTE :0D,:0A,' ** E ** ' 1PAGE 0002 MACRO (F100) ERROR HANDLER 76-93717-26 (A100) 1981/08/10 03:57  :35.75 0134 5350 0038 BYTE 'SPECIAL CHARACTER RAM BAD - CAN''T WRITE ''1''' 014A 003A 0039 LERR7  WORD $-ERR7*2 014B 0D0A 0040 ERR8 BYTE :0D,:0A,' ** E ** ' 0152 5350 0041 BYTE 'SPECIAL CHARACTER RAM BAD - CAN''T WRITE ''0''' 0168 003A 0042 LERR8 WORD $-ERR8*2 0169 0D0A 0043 ERR9 BYTE :0D,:0A,' ** E ** AUTO ECHO FAILURE' 0178 001E 0044 LERR9 WORD $-ERR9*2 0179 0D0A 0045 ERR10  BYTE :0D,:0A,' ** E ** INCORRECT DEVICR ADDR. RECEIVED ON ' 0191 2752 0046 BYTE '''RAL''' 0194 0036 0047 LERR10 WORD $-ERR10*2 0195 0D0A 0048 ERR17 BYTE :0D,:0A,' ** E ** UNEXPECTED INTERRUPT' 01A6 0022 0049 LERR17 WORD $-ERR17*2 01A7 0D0A 0050 ERR18 BYTE :0D,:0A,' ** E ** MISSING SPECIAL CHAR. INTERRUPT' 01BD 002C 0051 LERR18 WORD $-ERR18*2 01BE 0D0A 0052 ERR19 BYTE :0D,:0A,' ** E ** SPECIAL CHAR. DETECT FAILED' 01D2 0028 0053 LERR19 WORD $-ERR19*2 01D3 5452 0054 CHERRTX BYTE 'TRANSMITTER ERRORS:' 01DD 5245 0055 CHERRRX BYTE 'RECEIVER ERRORS: ' 01E7 0014 0056 LENERR WORD $-CHERRRX*2 18E3 18E7 0057 ERR ENTRY 01F7 2921 0058 COPY =:21,X FIRST STATUS REGISTER 01F8 2C2F 0059 FINDBRD CLSN X,=:2F CECED ALL STAT.REG? 01F9 9E84 01FE 0060 JMP FOUND IF SO, USE :2F 01FA C080 0000 0061 COPY 0(X),Q READ A STAT. REG 01FB 40FF 0062 TBIT 15,Q  TEST THE CURRENT FLAG 01FC 3641 01FE 0063 JT OV,FOUND 01FD 34BA 01F8 0064 IJNE X,FINDBRD KEEP TRYING 01FE DC80 0000 0065 FOUND IMS 0(X) INCREMENT FAILURE COUNT FOR THIS BOARD 01FF 0000  0066 NOP OVERFLOW 0200 C080 0000 0067 COPY 0(X),Q 0201 40FC 0068 SBIT 15,Q 0202 C480 0000 0069 COPY Q,0(X) 0203 C020 0020 0070 COPY MODEREG,Q TESTFLAG FOR ACTION TO TAKE 0204 408F 0071 TBIT MODEFLAG,Q IS IT AN INTERACTIVE TEST? 0205 36E0 0226 0072  JF OV,FLG05 IF NOT THEN BYPASS MSGOUTPUT 0206 40CF 0073 TBIT ALRMFLAG,Q 1PAGE 0003 MACRO (F100) ERROR HANDLER 76-93717-26 (A100) 1981/08/10 03:57:38.00 0207 36D0 0218 0074 JF OV,FLG01 IF FLAG=0, THEN GO ON 18E3 18E7 0075 CALL O:IO,=CO,=:07 RING BELL 0218 C020 0020 0076 FLG01 COPY MODEREG,Q GET MODEREG 0219 40DF 0077 TBIT MSGFLAG,Q ARE MESSEGES WONTED? 021A 36CB 0226 0078 JF OV,FLG05 SKIP MESSEGES 021B 2900 0079 COPY =:0,X 021C A7C6 0263 0080 COPY X,SW2 021D C3C9 0267 0081 COPY ER,Q RESTORE COUNT FOR THE MESSEGES 021E 4D04 0082 CSK  Q,=4 4TH MESSEGE 021F 9EDD 027D 0083 JMP LESS # < 0220 9E86 0227 0084 JMP  MORE # > 0221 A3C6 0268 0085 COPY LERR4,X # = 0222 A442 0002 0086 COPY X,LMSG(Y)!  LENGTH FOR THE CRT 0223 A2C5 0269 0087 COPY =ERR4,X 0224 A441 0001 0088 COPY X,MSGPTR(Y) ADDR. THE MESSEGE FOR THE CRT 0225 9FBE 0264 0089 JMP CALL MSG. TO THE CRT 0226 9FBE 0265 0090 FLG05 JMP FLG02 0227 4D06 0091 MORE CSK Q,=6 THE SAME 4TH 0228 9E86 022F 0092 JMP  FIFE 0229 9E8A 0234 0093 JMP MORE1 022A A3BF 026A 0094 COPY LERR6,X 022B A442 0002 0095  COPY X,LMSG(Y) 022C A2BE 026B 0096 COPY =ERR6,X 022D A441 0001 0097 COPY X,MSGPTR(Y) 022E 9FB5 0264 0098 JMP CALL 022F A3BC 026C 0099 FIFE COPY LERR5,X 0230 A442 0002 0100 COPY X,LMSG(Y) 0231 A2BB 026D 0101 COPY =ERR5,X 0232 A441 0001 0102 COPY X,MSGPTR(Y) 0233 9FB0 0264 0103 JMP CALL 0234 4D08 0104 MORE1 CSK Q,=8 THE SAME 4TH 0235 9EA8 025E 0105  JMP SEVEN 0236 9E8A 0241 0106 JMP TEN 0237 A3B6 026E 0107 COPY LERR8,X 0238 A442 0002 0108 COPY X,LMSG(Y) 0239 A2B5 026F 0109 COPY =ERR8,X 1PAGE 0004 MACRO (F100) ERROR HANDLER 76-93717-26 (A100) 1981/08/10 03:57:40.25 023A A441 0001 0110 COPY X,MSGPTR(Y) 023B 9FA8 0264 0111  JMP CALL 0000023C 0112 NINE EQU $ 023C A3B3 0270 0113 COPY LERR9,X 023D A442 0002 0114 COPY X,LMSG(Y) 023E A2B2 0271 0115 COPY =ERR9,X 023F A441 0001 0116 COPY X,MSGPTR(Y) 0240 9FA3 0264 0117 JMP CALL 00000241 0118 TEN EQU $ 0241 4D0A 0119  CSK Q,=10 0242 9E79 023C 0120 JMP NINE 0243 9E85 0249 0121 JMP TW 0244 A3AD 0272 0122 COPY LERR10,X 0245 A442 0002 0123 COPY X,LMSG(Y) 0246 A2AC 0273 0124 COPY =ERR10,X 0247 A441 0001 0125 COPY X,MSGPTR(Y) 0248 9EFE 02C7 0126 JMP CALL 00000249 0127 TW  EQU $ 0249 4D12 0128 CSK Q,=18 024A 9E86 0251 0129 JMP EL 024B 9E8A 0256 0130 JMP TR 024C A3A7 0274 0131 COPY LERR18,X 024D A442 0002 0132 COPY X,LMSG(Y) 024E A2A6 0275 0133 COPY =ERR18,X 024F A441 0001 0134 COPY X,MSGPTR(Y) 0250 9EF6 02C7 0135  JMP CALL 00000251 0136 EL EQU $ 0251 A3A4 0276 0137 COPY LERR17,X 0252 A442 0002 0138 COPY X,LMSG(Y) 0253 A2A3 0277 0139 COPY =ERR17,X 0254 A441 0001 0140 COPY X,MSGPTR(Y) 0255 9EF1 02C7 0141 JMP CALL 00000256 0142 TR EQU $ 0256 4D13 0143  CSK Q,=19 0257 9E71 0249 0144 JMP TW 0258 0000 0145 NOP 1PAGE 0005 MACRO (F100) ERROR HANDLER 76-93717-26 (A100) 1981/08/10 03:57:41.50 0259 A39E 0278 0146 COPY LERR19,X 025A A442 0002 0147 COPY X,LMSG(Y) 025B A29D 0279 0148 COPY =ERR19,X 025C A441 0001 0149 COPY X,MSGPT" R(Y) 025D 9EE9 02C7 0150 JMP CALL 025E A39B 027A 0151 SEVEN COPY LERR7,X THE SAME 4TH 025F A442 0002 0152 COPY X,LMSG(Y) 0260 A29A 027B 0153 COPY =ERR7,X 0261 A441 0001 0154 COPY  X,MSGPTR(Y) 0262 9EE4 02C7 0155 JMP CALL 001A 0156 LPOOL 027D 4D02 0157 LESS  CSK Q,=2 THE SAME 4TH 027E 9E8B 028A 0158 JMP FIRST 027F 9E85 0285 0159 JMP TREE 0280 A3A3 02A4 0160 COPY LERR2,X 0281 A442 0002 0161 COPY X,LMSG(Y) 0282 A2A2 02A5 0162  COPY =ERR2,X 0283 A441 0001 0163 COPY X,MSGPTR(Y) 0284 9EC2 02C7 0164 JMP CALL 0285 A3A0 02A6 0165 TREE COPY LERR3,X THE SAME 4TH 0286 A442 0002 0166 COPY X,LMSG(Y) 0287 A29F 02A7 0167 COPY =ERR3,X 0288 A441 0001 0168 COPY X,MSGPTR(Y) 0289 9EBD 02C7 0169 JMP  CALL 0000028A 0170 FIRST EQU $ 028A A39D 02A8 0171 COPY CHTEST,X WHAT CHANNEL IS UNDER TEST 028B 3143 028F 0172 JEQ X,CHANTR TRANSMIT 028C A29C 02A9 0173 COPY =CHERRRX,X 028D A441 0001 0174 COPY X,MSGPTR(Y) 028E 9E82 0291 0175 JMP FIRST1 0000028F 0176 CHANTR EQU $ 028F A29A 02AA 0177 COPY =CHERRTX,X RECEIVE CHANNEL 0290 A441 0001 0178 COPY X,MSGPTR(Y) 00000291 0179 FIRST1 EQU $ 0291 A399 02AB 0180 COPY LENERR,X 0292 A442 0002 0181  COPY X,LMSG(Y) 1PAGE 0006 MACRO (F100) ERROR HANDLER 76-93717-26 (A100) 1981/08/10 03:57:43.00 0293 A020 0020 0182 COPY MODEREG,X 0294 208F 0183 TBIT MODEFLAG,X 0295 36D8 02AE 0184 JF OV,FIRST2 18E3 18E7 0185 CALL O:MSG,=CO,LMSG,MSGPTR 000002AE 0186 FIRST2 EQU $ 02AE A3A7 02D6 0187 COPY LERR1,X 02AF A442 0002 0188 COPY X,LMSG(Y) ONE IN THE ERR. COUTER 02B0 83A6 02D7  0189 COPY ERRARG,A RESTORE THE COUNT FOR THE 1 MSG. 02B1 2901 0190 COPY =:1,X 02B2 A730 0263 0191 COPY X,SW2 02B3 2900 0192 COPY =:0,X COUNTER FOR THE STAT. REG.=0 02B4 000F 0193 TBIT TBIT 0,A THE BIT 0 ERROR? 02B5 3649 02BF 0194 JT OV,CALL1 YES 02B6 0E09 0195 SHIFT A,RO,1 GO TO CHECK ATHER BITS 02B7 2B01 0196 ADD =:1,X  INCREMENT COUNTER 02B8 2C07 0197 CLSN X,=7 WAS CHECKING 7 BITS? 02B9 9E81 02BB 0198 JMP COUNT YES 02BA 9E79 02B4 0199 JMP TBIT NO 000002BB 0200 COUNT EQU $  02BB 000F 0201 TBIT 0,A 02BC 36E7 02E4 0202 JF OV,SW:2:0 WITHOUT ERROR IN THIS BIT 02BD C000 0000 0203 COPY 0,Q 02BE C724 0263 0204 COPY Q,SW2 02BF 8795 02D5 0205 CALL1 COPY  A,STORE STORE A REG 02C0 0020 0206 COPY X,A 02C1 4020 0207 COPY X,Q #  STORE Q REG 02C2 A295 02D8 0208 COPY =ERR0,X LOAD THE ADDR. INDERECT. THE MSG 02C3 030A 0209  XNX A 02C4 A080 0000 0210 COPY 0(X),X LOAD REALLY ADDR. 02C5 A441 0001 0211 COPY  X,MSGPTR(Y) 02C6 2040 0212 COPY Q,X 18E3 18E7 0213 CALL CALL O:MSG,=CO,LMSG,MSGPTR OUTPUT THE MSG. 02DB 8379 02D5 0214 COPY STORE,A RESTORE A 02DC C306 0263 0215 COPY SW2,Q  FIRST MSG? 02DD 4C00 0216 CLSN Q,=:0 02DE 9E87 02E6 0217 JMP FLG02 YES 1PAGE 0007 MACRO (F100) ERROR HANDLER 76-93717-26 (A100) 1981/08/10 03:57:47.00 02DF 2B01 0218 ADD =:1,X 02E0 0E09 0219 SHIFT A,RO,1 02E1 2C07 0220 CLSN X,=7 02E2 9E58 02BB 0221 JMP  COUNT 02E3 9E50 02B4 0222 JMP TBIT 02E4 2900 0223 SW:2:0 COPY =:0,X STAT. REG WAS CHECKING 02E5 A797 02FD 0224 COPY X,SW2 02E6 8020 0020 0225 FLG02 COPY MODEREG,A 02E7 00AF 0226  TBIT ACTNFLG2,A HALT OR CONTINUE? 02E8 36C1 02EA 0227 JF OV,FLG03 02E9 0E0D 0228  HLT 02EA 8020 0020 0229 FLG03 COPY MODEREG,A 02EB 009F 0230 TBIT ACTNFLG1,A TECHTEST OR CONTINUE? 02EC 36DD 030A 0231 JF OV,FLG04 02ED 8020 0020 0232 COPY MODEREG,A 02EE 008F 0233 TBIT MODEFLAG,A 02EF 36D2 0302 0234 JF OV,FLG03A SKIP MSG 18E3 18E7 0235  CALL O:MSG,=CO,LTECHTST,=TECHTST 00000302 0236 FLG03A EQU $ 0302 A020 0020 0237 COPY MODEREG,X 0303 208D 0238 RBIT MODEFLAG,X 0304 A420 0020 0239 COPY X,MODEREG 18E3 18E7 0240 EXIT =1 0000030A 0241 FLG04 EQU $ 18E3 18E7 0242 EXIT =0 0243 END 0000 ERRORS (0000/0000) 0000 WARNINGS (0000/0000) LG03A SKIP MSG 18E3 18E7 0235  CALL O:MSG,=CO,LTECHTST,=TECHTST 00000302 0236 FLG03A EQU $ 0302 A020 0020 0237 COPY MODERE1PAGE 0001 MULTI-TASKING LINKER (F1) 1981/11/04 08:49:49 FILE USAGE SUMMARY DM1.TEST.BIN=DM1.HFT:EXEC.OBJ(RELOCATABLE=E000)+ DM1.HFT:IO.OBJ(UNCONDITIONAL)+ DM1.TSTIO.OBJ(UNCONDITIONAL)+ DM1.TSTINT.OBJ(UNCONDITIONAL)+ DM1.TSTSPEC.OBJ(UNCONDITIONAL)+ DM1.TSTAUT.OBJ(UNCONDITIONAL)+ DM1.TSTECHO.OBJ(UNCONDITIONAL)+ DM1.ERR.OBJ(UNCONDITIONAL)+ DM1.HFT.LIB 1PAGE 0002 MULTI-TASKING LINKER (F1,EB,E5,E3,--,E3,E1) 1981/11/04 08:52:14 ALL SYMBOLS THE TRANSFER ADDRESS IS E000(ROM) MEMORY RELOCATABLE (E000 - DFFF) E000-R:LOW FA15-R:HIGH SEGMENT ROM (E000 - F965) RELOCATABLE - RAM (E000 - F965) E000-HFT:EXC F008-TSTAUT F723-LBRDPRMT F78C-LERRHLT F7F3-LVERIFY E386-HFT:IO F1A8-TSTECHO F724-CNTPRMT F78D-ERRLOOP F7F4-TSTRT E5D5-MSG2 F4B0-ERR F74B-LCNTPRMT F79A-LERRLOOP F804-LTSTRT E5E3-LMSG2 F5D7-PRTHEX F74C-DSHPRMT F79B-ALRMBEL F805-TSTRT2 E5E4-MSG3 F628-FLUSH F758-LDSH$ PRMT F7AB-LALRMBEL F826-LTSTRT2 E5F2-MSG4 F669-SYSERR F759-SIGNOFF F7AC-XTEND F827-TECHTST E600-MSG5 F681-RTCSERV F765-LSIGNOFF F7C4-LXTEND F834-LTECHTST E662-TSTIO F685-YES:NO F766-AIDS F7C5-SINGLE F835-O:MSG EA7E-TSTINT F6D1-BLINKER F77E-LAIDS F7DC-LSINGLE F878-O:BY2H EC8E-TSTSPEC F6EE-BRDPRMT F77F-ERRHLT F7DD-VERIFY F8A9-O:IO SEGMENT TESTENTR (F966 - F981) RELOCATABLE - RAM (F966 - F981) F966-EXCINIT: F96E-TSTINT:  F976-TSTAUT: F97A-TSTECHO: F97E-ERR: F96A-TSTIO: F972-TSTSPEC: SEGMENT JUMPTABL (F982 - F988) RELOCATABLE - RAM  (F982 - F988) F988-ENDTABL SEGMENT MESSAGE (F989 - FA11) RELOCATABLE - RAM (F989 - FA11) FA11-ENDMSG SEGMENT BRDENTR (FA12 - FA15) RELOCATABLE - RAM (FA12 - FA15) FA12-HFT:IO: NO WARNINGS IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII% IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII& IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIe;810720084354810720084354810810082652e@810720084354810720084354810810082651e:' 810720084354810720084354810720084354e810720084354810720084354810720084354810720084354810720084354810720084354e8108100310425081110409025025811104090250ex8107171622292581110409025825811104090258 e8107171618582581081003490425810810082353  e9pJ8107171619030081081003503175810810082416 (  eOU8107171619130081081003522125810810082444  e>)P8107171619252581081003532750810810082504  egS8107171619325081081003545700810810082531  e'L8107171619457581081003555825810810082549 e,8107171619527581081003565150810810082605 e9N8107171619587581081003575100810810082622 e) ^8111040903027581110409031075811104090310 * + , - . / 0 . HFTIO JCLHFTPRINT JCLHFTIO LST HFT:IO LST TSTIO LST TSTINT LST TSTSPEC LST TSTAUT LSTTSTECHO LSTERR LSTMCS:LINK MAP1PAGE 0001 MACRO (F100) INTERRUPT TEST SUBROTINE 76-93717-22 (A100) 1981/08/10 03:53:05.50 SI = DM01.TSTINT.ASM SO = DM01.TSTINT.OBJ LO = DM01.TSTINT.LST 000A 0002 NAM TSTINT 0003 EXTR MS1 G2,MSG3,MSG4 0004 EXTR MSG5,LMSG2 0005 EXTR O:MSG,ERR 18E3 18E7 0006 DEFINE TSTINT 0001 0007 MSGPTR RES 1 0002 0008 LMSG RES 1 0003  0009 ST1 RES 1 0000 0003 0010 ENDEF 0000 0D0A 0011 MSG1 BYTE :0D,:0A,'INTERRUPT TEST ' 0009 0012 0012 LMSG1 WORD $-MSG1*2 18E3 18E7 0013 TSTINT ENTRY 0019 2901 0014  COPY =1,X 001A A795 0030 0015 COPY X,COUNT1 001B A795 0031 0016 COPY X,COUNT2 001C A795 0032 0017 COPY X,COUNT3 001D 8020 0020 0018 COPY MODEREG,A 001E 008F 0019 TBIT MODEFLAG,A 001F 36E8 0048 0020 JF OV,SKIP SKIP THE MSG 18E3 18E7 0021 CALL O:MSG,=CO,LMSG1,=MSG1 18E3 18E7 0022 CALL O:MSG,=CO,LMSG2,=MSG2 00000048 0023 SKIP EQU $ 0048 A3C8 0091 0024 COPY BUTDA,X 0049 A7C8 0092 0025 COPY X,CHTX DA+#CH 004A 3902 0026 OR =2,X 004B A7C7 0093 0027 COPY X,CHRX DA+#CH FOR THE RX 004C 83C5 0092 0028  COPY CHTX,TX 004D C3C5 0093 0029 COPY CHRX,RX 004E A2C9 0098 0030 COPY =VECTBASE,X 004F 030A 0031 XNX TX 0050 2401 0032 SELP X,1 LOAD THE FECTOR BASE ADDRESS 0051 298E 0033 LOOP COPY =MODE,X MODE FOR THE BOTH CH 0052 83BF 0092 0034 COPY CHTX,TX 0053 030A 0035 XNX TX 0054 2201 0036 OUT X,1 OUTPUT IT TO THE CH TX 0055 430A  0037 XNX RX 1PAGE 0002 MACRO (F100) INTERRUPT TEST SUBROTINE 76-93717-22 (A100) 1981/08/10 03:53:10.00  0056 2201 0038 OUT X,1 OUTPUT IT TO THE CH RX 0057 2921 0039 COPY =CONTR,X CONTROL WORD FOR BOTH CH 0058 030A 0040 XNX TX 0059 2201 0041 OUT X,1  OUTPYT IT TO THE TX 005A 2924 0042 COPY =CONTX,X CONTR WORD FOR CH RX 005B 430A 0043  XNX RX 005C 2201 0044 OUT X,1 OUTPUT IT TO THE RX 0000005D 0045 BOARDINT EQU  $ 005D C3B5 0093 0046 COPY CHRX,RX 005E 2934 0047 COPY =ERRES,X 005F 430A 0048  XNX RX 0060 2201 0049 OUT X,1 0061 2924 0050 COPY =CONTX,X 0062 430A  0051 XNX RX 0063 2201 0052 OUT X,1 0064 0ED7 0053 RBIT DATA,S 0065 0EC5 0054 SBIT EOB,S 0066 0309 0055 UIS ENABLE DATA AND DISABLE EOB INTERRUPT 0067 A3AC 0094 0056 COPY SW,X !! IS THE CABLE PRESENT ? 0068 2C00 0057 CLSN  X,=0 !! 0069 9E82 006C 0058 JMP CABLE !! YES 006A 2908 0059 COPY =8,X  !! NO 006B 9E81 006D 0060 JMP CABLE00 !! 0000006C 0061 CABLE EQU $ !!2  006C 290C 0062 COPY =:C,X 0000006D 0063 CABLE00 EQU $ !! 006D 83A3 0091 0064  COPY BUTDA,A 006E 030A 0065 XNX A 006F 2403 0066 SELP X,3 0070 83A1 0092 0067 COPY CHTX,TX RESTORE CH+#CH 0071 290A 0068 COPY =:A,X DATA 0072 030A  0069 XNX TX 0073 2200 0070 OUT X,0 OUTPUT IT 0074 A3A0 0095 0071  COPY SHORT,X 0075 34BF 0075 0072 IJNE X,$ THE SMALL LOOP 0076 2920 0073 COPY  =:20,X 1PAGE 0003 MACRO (F100) INTERRUPT TEST SUBROTINE 76-93717-22 (A100) 1981/08/10 03:53:11.25 0077 030A 0074 XNX TX 0078 2201 0075 OUT X,1 0079 0900 0076 COPY =0,A 007A A39B 0096 0077 COPY LONG,X 007B 0E85 0078 SBIT 8,S 0000007C 0079 C2 EQU $ 007C C396 0093 0080 COPY CHRX,RX 007D 430A 0081 XNX RX 007E 4101 0082 IN  1,Q 007F 401F 0083 TBIT 1,Q 0080 3641 0082 0084 JT OV,C5 0081 34BA 007C 0085  IJNE X,C2 00000082 0086 C5 EQU $ 0082 0E87 0087 RBIT 8,S 0083 C38F 0093 0088  COPY CHRX,RX 0084 430A 0089 XNX RX 0085 2100 0090 IN 0,X 0086 1156 009D 0091 JEQ A,PROCINT 0087 2903 0092 COPY =3,X 0088 A78E 0097 0093 COPY X,ER  18E3 18E7 0094 CALL ERR 009B 0C01 0095 CLSN A,=1 009C 9E40 005D 0096 JMP  BOARDINT ENTER TECH TEST 0000009D 0097 PROCINT EQU $ 009D C375 0093 0098 COPY CHRX,RX 009E 2934 0099 COPY =ERRES,X 009F 430A 0100 XNX RX 00A0 2201 0101 OUT  X,1 00A1 2924 0102 COPY =CONTX,X 00A2 430A 0103 XNX RX 00A3 2201 0104  OUT X,1 00A4 A36F 0094 0105 COPY SW,X !! IS THE CABLE PRESENT ? 00A5 2C00 0106  CLSN X,=0 !! 00A6 9E82 00A9 0107 JMP CABLE1 !! YES 00A7 2909 0108 COPY =9,X !! NO 00A8 9E81 00AA 0109 JMP CABLE01 !! 1PAGE 0004 MACRO (F100) INTERRUPT TEST SUBROTINE 76-93717-22 (A100) 1981/08/10 03:53:13.00 000000A9 0110 CABLE1 EQU $ !! 00A9 290D  0111 COPY =:D,X **** 000000AA 0112 CABLE01 EQU $ 00AA 8366 0091 0113 COPY  BUTDA,A **** 00AB 030A 0114 XNX A **** 00AC 2403 0115 SELP X,3  **** 00AD 0ED5 0116 SBIT DATA,S DISABLE DATA INTERRUPT 00AE 0EC7 0117 RBIT  EOB,S 00AF 0309 0118 UIS 00B0 8361 0092 0119 COPY CHTX,TX 00B1 2921 0120 COPY =CONTR,X 00B2 030A 0121 XNX TX 00B3 2201 0122 OUT X,1 00B4 290A 0123 3  COPY =:A,X DATA 00B5 030A 0124 XNX TX 00B6 2200 0125 OUT X,0  OUTPUT IT 00B7 A35D 0095 0126 COPY SHORT,X 00B8 34BF 00B8 0127 IJNE X,$ THE SMOLL LOOP 00B9 2920 0128 COPY =:20,X 00BA 030A 0129 XNX TX 00BB 2201 0130  OUT X,1 00BC 0900 0131 COPY =0,A 00BD A358 0096 0132 COPY LONG,X 00BE 0E85  0133 SBIT 8,S 000000BF 0134 C3 EQU $ 00BF C353 0093 0135 COPY CHRX,RX 00C0 430A 0136 XNX RX 00C1 4101 0137 IN 1,Q 00C2 401F 0138 TBIT 1,Q 00C3 3641 00C5 0139 JT OV,C6 00C4 34BA 00BF 0140 IJNE X,C3 000000C5 0141 C6 EQU  $ 00C5 0E87 0142 RBIT 8,S 00C6 C34C 0093 0143 COPY CHRX,RX 00C7 430A 0144  XNX RX 00C8 2100 0145 IN 0,X 1PAGE 0005 MACRO (F100) INTERRUPT TEST SUBROTINE 76-93717-22 (A100) 1981/08/10 03:53:14.25 00C9 114F 00D9 0146 JEQ A,BOARDEOB 00CA 2903 0147 COPY =3,X 00CB A74B 0097 0148 COPY X,ER 18E3 18E7 0149 CALL ERR 00D7 0C01 0150 CLSN A,=1 00D8 9E44 009D 0151 JMP PROCINT 000000D9 0152 BOARDEOB EQU $ 00D9 C339 0093 0153  COPY CHRX,RX 00DA 2934 0154 COPY =ERRES,X 00DB 430A 0155 XNX RX 00DC 2201 0156 OUT X,1 00DD 2924 0157 COPY =CONTX,X 00DE 430A 0158 XNX RX 00DF 2201 0159 OUT X,1 00E0 0EC7 0160 RBIT EOB,S ENABLE EOB INTERR 00E1 0ED7 0161 RBIT DATA,S ENABLE DATA INTERR 00E2 0309 0162 UIS 00E3 A330 0094 0163  COPY SW,X !! 00E4 2C00 0164 CLSN X,=0 !! 00E5 9E82 00E8 0165 JMP  CABLE2 !! 00E6 2908 0166 COPY =8,X !! 00E7 9E81 00E9 0167 JMP CABLE02  !! 000000E8 0168 CABLE2 EQU $ !! 00E8 290C 0169 COPY =:C,X 000000E9  0170 CABLE02 EQU $ 00E9 8327 0091 0171 COPY BUTDA,A 00EA 030A 0172 XNX A 00EB 2403 0173 SELP X,3 DISABLE BOARD INTERR 00EC 8325 0092 0174 COPY CHTX,TX 00ED 2921  0175 COPY =CONTR,X 00EE 030A 0176 XNX TX 00EF 2201 0177 OUT X,1  00F0 290F 0178 COPY =:F,X 00F1 030A 0179 XNX TX 00F2 2200 0180 OUT  X,0 00F3 A321 0095 0181 COPY SHORT,X 1PAGE 0006 MACRO (F100) INTERRUPT TEST SUBROTINE 76-93717-22 (A100) 1981/08/10 03:53:16.00 00F4 34BF 00F4 0182 IJNE X,$ THE SMOLL LOOP 00F5 2920 0183  COPY =:20,X 00F6 030A 0184 XNX TX 00F7 2201 0185 OUT X,1 00F8 0900 0184 6 COPY =0,A 00F9 A31C 0096 0187 COPY LONG,X 00FA 0E85 0188 SBIT 8,S 000000FB 0189 C1 EQU $ 00FB C317 0093 0190 COPY CHRX,RX 00FC 430A 0191 XNX RX 00FD 4101 0192 IN 1,Q 00FE 401F 0193 TBIT 1,Q 00FF 3641 0101 0194 JT  OV,C7 0100 34BA 00FB 0195 IJNE X,C1 00000101 0196 C7 EQU $ 0101 0E87 0197  RBIT 8,S 0102 C310 0093 0198 COPY CHRX,RX 0103 430A 0199 XNX RX 0104 2100 0200 IN 0,X 0105 114E 0114 0201 JEQ A,WRITE 0106 2902 0202 COPY =2,X 0107 A70F 0097 0203 COPY X,ER 18E3 18E7 0204 CALL ERR 0112 0C01 0205 CLSN A,=1  0113 9E45 00D9 0206 JMP BOARDEOB 00000114 0207 WRITE EQU $ 0114 A3D0 0165 0208 COPY SW,X !! 0115 2C00 0209 CLSN X,=0 !! 0116 9E82 0119 0210 JMP CABLE3 !! 0117 2909 0211 COPY =9,X !! 0118 9E81 011A 0212 JMP CABLE03 !!  00000119 0213 CABLE3 EQU $ !! 0119 290D 0214 COPY =:D,X 0000011A 0215 CABLE03 EQU $ !! 011A 83C5 0160 0216 COPY BUTDA,A 011B 030A 0217 XNX A 1PAGE 0007 MACRO (F100) INTERRUPT TEST SUBROTINE 76-93717-22 (A100) 1981/08/10 03:53:17.50 011C 2403 0218  SELP X,3 011D 83C3 0161 0219 COPY CHTX,TX **** 011E C3C3 0162 0220 COPY CHRX,RX 011F 1806 0221 AND =6,TX ONLY #CH TX 0120 5806 0222 AND =6,RX ONLY #CH RX 0121 0E01 0223 SHIFT TX,LO,1 MULTIPLAY CH TX BY 4 0122 A3C3 0166 0224 COPY TABINT,X 0123 2002 0225 ADD TX,X 0124 A080 0000 0226 COPY 0(X),X DATA FOR CH TX INTERRUPTION  0125 A7BD 0163 0227 COPY X,STORE1 0126 A443 0003 0228 COPY X,ST1(Y) 0127 4E01 0229  SHIFT RX,LO,1 MULTIPLAY CH RX BY 4 0128 A3BD 0166 0230 COPY TABINT,X 0129 2042 0231  ADD RX,X 012A 2B02 0232 ADD =2,X ADDR FOR THE1 CHECK DATA 012B A080 0000 0233 COPY 0(X),X 012C 83B6 0163 0234 COPY STORE1,A 012D 2007 0235 OR A,X DATA FOR CHE1CING 012E A7B4 0163 0236 COPY X,STORE1 STOREIT 012F 83B1 0161 0237 COPY CHTX,TX  RE1STORE DA+#CH TX 0130 2921 0238 COPY =CONTR,X 0131 030A 0239 XNX TX 0132 2201  0240 OUT X,1 0133 C3AE 0162 0241 COPY CHRX,RX RESTORE DA+#CH RX 0134 2934 0242  COPY =ERRES,X 0135 430A 0243 XNX RX 0136 2201 0244 OUT X,1 0137 2924  0245 COPY =CONTX,X 0138 430A 0246 XNX RX 0139 2201 0247 OUT X,1 5 013A 29FF 0248 COPY =:FF,X DATA 013B 030A 0249 XNX TX 013C 2200 0250  OUT X,0 OUTPUT IT 013D A3A9 0167 0251 COPY SHORT,X 013E 0900 0252 COPY  =0,A 013F C043 0003 0253 COPY ST1(Y),Q 1PAGE 0008 MACRO (F100) INTERRUPT TEST SUBROTINE 76-93717-22 (A100) 1981/08/10 03:53:18.75 0140 0E85 0254 SBIT 8,S 00000141 0255 S1 EQU $ 0141 004A  0256 CSN Q,A 0142 9E81 0144 0257 JMP $+2 0143 34BD 0141 0258 IJNE X,S1 0144 0E87 0259 RBIT 8,S 0145 C39B 0161 0260 COPY CHTX,RX 0146 2926 0261 COPY  =:26,X 0147 430A 0262 XNX RX 0148 2201 0263 OUT X,1 0149 A39E 0168 0264  COPY LONG,X 014A C398 0163 0265 COPY STORE1,Q 014B 0E85 0266 SBIT 8,S 0000014C 0267 S2 EQU $ 014C 004A 0268 CSN Q,A 014D 9E81 014F 0269 JMP DAT 014E 34BD 014C 0270 IJNE X,S2 0000014F 0271 DAT EQU $ 014F 0E87 0272 RBIT 8,S 0150 C391 0162 0273 COPY CHRX,RX 0151 430A 0274 XNX RX 0152 4100 0275 IN  0,Q 0153 4CFF 0276 CLSN Q,=:FF CHECK A DATA 0154 9E9A 016F 0277 JMP INT 0155 8442 0002 0278 COPY A,LMSG(Y) STORE THE CHECK DATA 0156 2906 0279 COPY =6,X 0157 A78C 0164 0280 COPY X,ER 18E3 18E7 0281 CALL ERR 016C 0C01 0282 CLSN A,=1 016D 9E26 0114 0283 JMP WRITE 016E 8042 0002 0284 COPY LMSG(Y),A 0000016F 0285 INT EQU $ 016F A373 0163 0286 COPY STORE1,X 0170 002A 0287 CSN X,A COMPARE PLASES  0171 9EA3 0195 0288 JMP CHANGE 0172 4900 0289 COPY =0,Q 1PAGE 0009 MACRO (F100) INTERRUPT TEST SUBROTINE 76-93717-22 (A100) 1981/08/10 03:53:20.25 0173 400A 0290 CSN A,Q 0174 9E92 0187 0291 JMP INTERR 0175 2904 0292 COPY =4,X 0176 A76D 0164 0293 COPY X,ER 18E3 18E7 0294 CALL ERR 0184 0C01 0295 CLSN =1,A 0185 9E0E 0114 0296 JMP WRITE 0186 9E8E 0195 0297 JMP CHANGE 00000187 0298 INTERR EQU $ 0187 2905 0299 COPY =5,X 0188 A75B 0164 0300 COPY X,ER 18E3 18E7 0301 CALL ERR 0193 0C01 0302  CLSN =1,A 0194 9F97 01AC 0303 JMP WRITE 00000195 0304 CHANGE EQU $ 0195 C34C 0162  0305 COPY CHRX,RX 0196 430A 0306 XNX RX 0197 2101 0307 IN 1,X 0198 383F 0308 AND =:3F,X 0199 2C05 0309 CLSN X,=INTCONTR 019A 9E99 01B4 0310 JMP CHANGE: 019B C346 0162 0311 COPY CHRX,RX 019C 430A 0312 XNX RX 019D 0100 036 13 IN 0,A 019E 0901 0314 COPY =1,A 019F 8744 0164 0315 COPY A,ER 01A0 3705 0316 XOR =INTCONTR,X 01A1 A78B 01AD 0317 COPY X,ERRARG 01A2 0901 0318 COPY =1,A 01A3 878A 01AE 0319 COPY A,CHTEST 18E3 18E7 0320 CALL ERR 01B2 0C01 0321  CLSN A,=1 01B3 9F78 01AC 0322 JMP WRITE 000001B4 0323 CHANGE: EQU $ 01B4 832C 0161 0324 COPY CHTX,TX 01B5 2940 0325 COPY =:40,X RESEST CHANNELS 1PAGE 0010 MACRO (F100) INTERRUPT TEST SUBROTINE 76-93717-22 (A100) 1981/08/10 03:53:22.75 01B6 030A 0326 XNX TX 01B7 2201 0327 OUT X,1 01B8 430A 0328 XNX RX 01B9 2201 0329 OUT X,1 01BA A3BB 01F6 0330 COPY COUNT1,X 01BB 2C00 0331 CLSN X,=0 01BC 9E8A 01C7 0332 JMP CHANGE1 01BD 4008 0333 EXCH TX,RX 01BE 8722 0161 0334 COPY TX,CHTX STORE IT 01BF C722 0162 0335 COPY RX,CHRX STORE IT 01C0 2900 0336 COPY =0,X 01C1 A7B4 01F6 0337 COPY X,COUNT1 01C2 A2B4 01F7 0338 COPY =MSG3,X 01C3 A441 0001 0339 COPY X,MSGPTR(Y) 01C4 A3B3 01F8 0340 COPY LMSG2,X 01C5 A442 0002 0341 COPY X,LMSG(Y) 01C6 9E9F 01E6 0342  JMP CALL 000001C7 0343 CHANGE1 EQU $ 01C7 A3B1 01F9 0344 COPY SW1,X 01C8 2C00  0345 CLSN X,=0 01C9 9EBB 0205 0346 JMP EXIT 01CA A3AF 01FA 0347 COPY COUNT2,X 01CB 2C00 0348 CLSN X,=0 01CC 9E8D 01DA 0349 JMP CHANGE2 01CD 8312 0160 0350 COPY BUTDA,TX 01CE C311 0160 0351 COPY BUTDA,RX 01CF 1904 0352 OR =4,TX 01D0 5906  0353 OR =6,RX 01D1 870F 0161 0354 COPY TX,CHTX 01D2 C70F 0162 0355 COPY RX,CHRX 01D3 2900 0356 COPY =0,X 01D4 A7A5 01FA 0357 COPY X,COUNT2 01D5 A2A5 01FB 0358  COPY =MSG4,X 01D6 A441 0001 0359 COPY X,MSGPTR(Y) 01D7 A3A0 01F8 0360 COPY LMSG2,X 01D8 A442 0002 0361 COPY X,LMSG(Y) 1PAGE 0011 MACRO (F100) INTERRUPT TEST SUBROTINE 76-93717-22 (A100) 1981/08/10  03:53:24.25 01D9 9E8C 01E6 0362 JMP CALL 000001DA 0363 CHANGE2 EQU $ 01DA A3A1 01FC 0364  COPY COUNT3,X 01DB 2C00 0365 CLSN X,=0 01DC 9EA8 0205 0366 JMP EXIT 01DD 4008 0367 EXCH TX,RX 01DE 8702 0161 0368 COPY TX,CHTX 01DF C702 0162 0369 COPY RX,CHRX 01E0 2900 0370 COPY =0,X 01E1 A79A 01FC 0371 COPY X,COUNT3 01E2 A29A 01FD 0372  COPY =MSG5,X 01E3 A441 0001 0373 COPY X,MSGPTR(Y) 01E4 A393 01F8 0374 COPY LMSG2,X 01E5 A442 0002 0375 COPY X,LMSG(Y) 000001E6 0376 CALL EQU $ 01E6 A020 0020 0377 COPY7  MODEREG,X SKIP MSG 01E7 208F 0378 TBIT MODEFLAG,X 01E8 36D9 0202 0379 JF OV,JMP  18E3 18E7 0380 CALL O:MSG,=CO,LMSG,MSGPTR 00000202 0381 JMP EQU $ 0202 9F81 0204 0382  JMP LOOP 0002 0383 LPOOL 18E3 18E7 0384 EXIT EXIT 0385  END 0000 ERRORS (0000/0000) 0000 WARNINGS (0000/0000) 376 CALL EQU $ 01E6 A020 0020 0377 COPY MODEREG,X SKIP MSG 01E7 208F 0378 TBIT MODEFLAG,X 01E8 36D9 0202 0379 JF OV,JMP  18E3 18E7 0380 CALL O:MSG,=CO,LMSG,MSGPTR 00000202 0381 JMP EQU $ 0202 9F81 0204 0382 1PAGE 0001 MACRO (F100) SPECIAL CHARACHTER DETECT TEST SUBROTINE 76-93717-23 (A100) 1981/08/10 03:54:19.75 SI = DM01.TSTSPEC.ASM SO = DM01.TSTSPEC.OBJ LO = DM01.TSTSPEC.LST 0011 0002 NAM TSTSPEC 0003  EXTR MSG2,MSG3,MSG4 0004 EXTR MSG5,LMSG2 0005 EXTR O:MSG,ERR,BLINKER 18E3 18E7 0006 DEFINE TSTSPEC 0001 0007 MSGPTR RES 1 0002 0008 LMSG RES 1 0003 0009 COUN RES 1 0004 0010 DATTXINT RES 1 0005 0011 ST1 RES 1 0000 0003 0012 ENDEF 0000 0D0A 0013 MSG1 BYTE :0D,:0A,'SPECIAL CHARACTER DETECT TEST ' 0010 0020 0014 LMSG1 WORD $-MSG1*2 18E3 18E7 0015 TSTSPEC ENTRY 0020 2901 0016  COPY =1,X 0021 A795 0037 0017 COPY X,COUNT1 0022 A795 0038 0018 COPY X,COUNT2 0023 A795 0039 0019 COPY X,COUNT3 0024 8020 0020 0020 COPY MODEREG,A 0025 008F 0021 TBIT MODEFLAG,A 0026 36E8 004F 0022 JF OV,SKIP SKIP THE MSG 18E3 18E7 0023 CALL O:MSG,=CO,LMSG1,=MSG1 18E3 18E7 0024 CALL O:MSG,=CO,LMSG2,=MSG2 0000004F 0025 SKIP EQU $ 004F A3B9 0089 0026 COPY BUTDA,X 0050 A7B5 0086 0027 COPY X,CHTX 0051 3902 0028 OR =2,X 0052 A7B4 0087 0029 COPY X,CHRX DA + # CH CHRX 00000053 0030 BIGLOOP EQU $ 0053 83B2 0086 0031 COPY CHTX,TX 0054 C3B2 0087 0032 COPY CHRX,RX 0055 298E 0033  COPY =MODE,X 0056 030A 0034 XNX TX 0057 2201 0035 OUT X,1 0058 430A 0036 XNX RX 0059 2201 0037 OUT X,1 1PAGE 0002 MACRO (F100) SPECIAL CHARACHTER DETECT TEST SUBROTINE 76-93717-23 (A100) 1981/08/10 03:54:24.00 005A 2921 0038 COPY =CONTR,X 005B 030A 0039 XNX TX 005C 2201 0040 OUT X,1 005D 2924 0041 COPY =CONTX,X 005E 430A 0042 XNX RX 005F 2201 0043 OUT X,1 0060 1806 0044 AND =6,TX  MASK DA 0061 5806 0045 AND =6,RX MASK DA 0062 0E01 0046 SHIFT TX,LO,1 8  MULTIPLAY BY 4 0063 A3A6 008A 0047 COPY TABINT,X 0064 2002 0048 ADD TX,X ADDR DATA 0065 A080 0000 0049 COPY 0(X),X DATA FOR CHECING 0066 0020 0050 COPY X,A 0067 A444 0004 0051 COPY X,DATTXINT(Y) TRANSMIT DATA INTERRUPT 0068 4E01 0052 SHIFT RX,LO,1  MULTIPLAY BY 4 0069 A3A0 008A 0053 COPY TABINT,X 006A 2042 0054 ADD RX,X 006B 2B02  0055 ADD =2,X 006C A080 0000 0056 COPY 0(X),X DATA FOR CHECING 006D 0027 0057  OR X,A DATA INTERR 006E 8799 0088 0058 COPY A,STORE1 006F A39A 008A 0059 COPY  TABINT,X 0070 2042 0060 ADD RX,X 0071 2B03 0061 ADD =3,X 0072 A080 0000 0062  COPY 0(X),X DATA FOR CHECING 0073 2007 0063 OR A,X BOTH DATA INTERR AND EOB INTERR 0074 A441 0001 0064 COPY X,MSGPTR(Y) STORE IT 0075 0ED7 0065 RBIT DATA,S 0076 0EC7 0066 RBIT EOB,S 0077 0309 0067 UIS OUTPUT BITS 12,13 FROM S REG 0078 2800 0068 COPY =-256,X COUNTER 0079 A442 0002 0069 COPY X,LMSG(Y) 007A 2900 0070 COPY =0,X DATA FOR OUTPUT 0000007B 0071 LOOP EQU $ 007B 0020 0072 COPY X,A 007C 180F 0073 AND =:F,A 1PAGE 0003 MACRO (F100) SPECIAL CHARACHTER DETECT TEST SUBROTINE 76-93717-23 (A100) 1981/08/10 03:54:25.50 007D 11CF 008D 0074 JNE A,NOBLINK1 18E3 18E7 0075  CALL BLINKER 0000008D 0076 NOBLINK1 EQU $ 008D C379 0087 0077 COPY CHRX,RX 008E 0934 0078 COPY =ERRES,A 008F 430A 0079 XNX RX 0090 0201 0080 OUT A,1 0091 0924 0081 COPY =CONTX,A 0092 430A 0082 XNX RX 0093 0201 0083 OUT A,1 0094 8371 0086 0084 COPY CHTX,TX RESTORE TX 0095 030A 0085 XNX TX 0096 2200  0086 OUT X,0 OUTPUT SPEC CHAR 0097 A445 0005 0087 COPY X,ST1(Y) STORE IT 0098 A3B8 00D1 0088 COPY SHORT,X PREPARE FOR A LOOP 0099 0900 0089 COPY =0,A PREPARE FOR TRANSMIT DATA INTERRUPT 009A C044 0004 0090 COPY DATTXINT(Y),Q CHECK DATA 009B 0E85 0091  SBIT 8,S INTERRUPT ENABLE 0000009C 0092 S4 EQU $ 009C 004A 0093 CSN Q,A AN INTERRUPT ? 009D 9E81 009F 0094 JMP $+2 YES 009E 34BD 009C 0095 IJNE X,S4 GO BAK 009F 0E87 0096 RBIT 8,S DISABLE INTERRUPT 00A0 87B1 00D2 0097 COPY A,STORE2 SAVE FOR FUTURE 00A1 8364 0086 0098 COPY CHTX,TX RESTORE TX 00A2 2926 0099  COPY =:26,X 00A3 030A 0100 XNX TX 00A4 2201 0101 OUT X,1 00A5 A3AD 00D3 09 102 COPY LONG,X PREPARE FOR RECIEVE CHAR LOOP 00A6 83AB 00D2 0103 COPY STORE2,A TRANSMIT+RECIEVE INTERRUPTS 00A7 C360 0088 0104 COPY STORE1,Q CHECK DATA 00A8 0E85 0105 SBIT  8,S ENABLE INTERRUPT 000000A9 0106 S5 EQU $ 00A9 004A 0107 CSN Q,A  AN INTERRUPT? 00AA 9E81 00AC 0108 JMP $+2 YES 00AB 34BD 00A9 0109 IJNE X,S5  GO BAK 1PAGE 0004 MACRO (F100) SPECIAL CHARACHTER DETECT TEST SUBROTINE 76-93717-23 (A100) 1981/08/10 03:54:27.25 00AC 0E87 0110 RBIT 8,S DISABLE INTERRUPT 00AD 87A4 00D2 0111 COPY A,STORE2 SAVE FOR FUTURE 00AE 8357 0086 0112 COPY CHTX,TX 00AF C357 0087 0113 COPY CHRX,RX 00B0 430A 0114 XNX RX 00B1 4100 0115 IN 0,Q 00B2 839F 00D2 0116 COPY STORE2,A 00B3 A39D 00D1 0117 COPY SHORT,X PREPARE FOR EOB LOOP 00B4 C041 0001 0118 COPY MSGPTR(Y),Q TRANSMIT+RECIEVE+EOB INTERRUPTS 00B5 0E85 0119 SBIT 8,S ENABLE INTERRUPTS 000000B6 0120 S6  EQU $ 00B6 400A 0121 CSN A,Q AN INTERRUPT? 00B7 9E81 00B9 0122 JMP $+2 00B8 34BD 00B6 0123 IJNE X,S6 GO BAK 00B9 0E87 0124 RBIT 8,S DISABLE INTERRUPTS 00BA A045 0005 0125 COPY ST1(Y),X RESTORE DATA=SPEC CHAR 00BB 8796 00D2 0126 COPY A,STORE2 00BC 8349 0086 0127 COPY CHTX,TX 00BD 4921 0128 COPY =CONTR,Q 00BE 030A 0129 XNX TX 00BF 4201 0130 OUT Q,1 00C0 8391 00D2 0131 COPY STORE2,A 00C1 C346 0088 0132 COPY STORE1,Q RESTORE DATA FOR THE CHECKING 00C2 400A 0133 CSN A,Q 00C3 9E97 00DB 0134 JMP INCR GO TO CHECK NEQT CHARACHTER 00C4 4905 0135 COPY =5,Q 00C5 1141 00C7 0136 JEQ A,CALLER 00C6 4911 0137 COPY =17,Q 000000C7 0138 CALLER EQU  $ 00C7 C78C 00D4 0139 COPY Q,ER 18E3 18E7 0140 CALL ERR 00D8 0C01 0141  CLSN A,=1 00D9 9E21 007B 0142 JMP LOOP 00DA 9E83 00DE 0143 JMP SPEC 000000DB 0144 INCR EQU $ 00DB 2B01 0145 ADD =1,X INCREMENT DATA=SPEC CHARACTER 1PAGE 0005 MACRO (F100) SPECIAL CHARACHTER DETECT TEST SUBROTINE 76-93717-23 (A100) 1981/08/10 03:54:29.00 00DC DC42 0002 0146 IMS LMSG(Y) 00DD 9E1D 007B 0147 JMP LOOP 000000DE 0148 SPEC EQU $ 00DE 2800 0149  COPY =-256,X COUNTER 00DF A442 0002 0150 COPY X,LMSG(Y) 00E0 A297 00F8 0151 COPY  =:100,X SPECIAL CHARACHTER ENABLE 000000E1 0152 XNX EQU $ 00E1 C325 0087 0153 COPY CHRX,RX 00E2 430A 0154 XNX RX 00E3 2400 0155 SELP X,0 OUTPUT IT 00E4 2B01 :  0156 ADD =1,X NEXT ADDR 00E5 DC42 0002 0157 IMS LMSG(Y) 00E6 9E7A 00E1 0158  JMP XNX GO TO OUTPUT NEXT CHARACHTER 00E7 0900 0159 COPY =0,A COUNTER FOR THE BAD MEMORY 00E8 8443 0003 0160 COPY A,COUN(Y) 00E9 2900 0161 COPY =0,X 00EA 0800 0162 COPY =-256,A THE LOOP COUNTER 00EB 8442 0002 0163 COPY A,LMSG(Y) 000000EC 0164 SPECIAL EQU $ 00EC 0020 0165 COPY X,A 00ED 180F 0166 AND =:F,A 00EE 11CC 00FB 0167 JNE A,NOBLINK 18E3 18E7 0168 CALL BLINKER 000000FB 0169 NOBLINK EQU $ 00FB C30B 0087 0170 COPY CHRX,RX 00FC 0934 0171 COPY =ERRES,A 00FD 430A 0172 XNX RX 00FE 0201 0173 OUT A,1 00FF 0924 0174 COPY =CONTX,A 0100 430A 0175 XNX RX 0101 0201 0176 OUT A,1 0102 8303 0086 0177 COPY CHTX,TX RESTORE TX 0103 030A 0178 XNX TX 0104 2200 0179 OUT X,0 OUTPUT SPEC CHAR 0105 A445 0005 0180 COPY X,ST1(Y) STORE IT 0106 A34A 00D1 0181 COPY SHORT,X PREPARE FOR A LOOP 1PAGE 0006 MACRO (F100) SPECIAL CHARACHTER DETECT TEST SUBROTINE 76-93717-23 (A100) 1981/08/10 03:54:30.75 0107 0900 0182 COPY =0,A PREPARE FOR TRANSMIT DATA INTERRUPT 0108 C044 0004 0183 COPY DATTXINT(Y),Q CHECK DATA 0109 0E85 0184 SBIT 8,S INTERRUPT ENABLE 0000010A 0185 S1 EQU  $ 010A 004A 0186 CSN Q,A AN INTERRUPT ? 010B 9E81 010D 0187 JMP $+2  YES 010C 34BD 010A 0188 IJNE X,S1 GO BAK 010D 0E87 0189 RBIT 8,S DISABLE INTERRUPT 010E 8743 00D2 0190 COPY A,STORE2 SAVE FOR FUTURE 010F 83B6 0146 0191 COPY CHTX,TX RESTORE TX 0110 2926 0192 COPY =:26,X 0111 030A 0193 XNX TX 0112 2201  0194 OUT X,1 0113 A33F 00D3 0195 COPY LONG,X PREPARE FOR RECIEVE CHAR LOOP 0114 833D 00D2 0196 COPY STORE2,A TRANSMIT+RECIEVE INTERRUPTS 0115 C3B1 0147 0197 COPY STORE1,Q CHECK DATA 0116 0E85 0198 SBIT 8,S ENABLE INTERRUPT 00000117 0199 S2 EQU $ 0117 004A 0200 CSN Q,A AN INTERRUPT? 0118 9E81 011A 0201 JMP $+2 YES 0119 34BD 0117 0202 IJNE X,S2 GO BAK 011A 0E87 0203 RBIT 8,S DISABLE INTERRUPT 011B 8736 00D2 0204 COPY A,STORE2 SAVE FOR FUTURE 011C 83A9 0146 0205 COPY CHTX,TX 011D C3AA 0148 0206 COPY CHRX,RX 011E 430A 0207 XNX RX 011F 4100 0208 IN  0,Q 0120 8331 00D2 0209 COPY STORE2,A 0121 A32F 00D1 0210 COPY SHORT,X PREPARE FOR EOB L; OOP 0122 C041 0001 0211 COPY MSGPTR(Y),Q TRANSMIT+RECIEVE+EOB INTERRUPTS 0123 0E85 0212 SBIT  8,S ENABLE INTERRUPTS 00000124 0213 S3 EQU $ 0124 400A 0214 CSN A,Q  AN INTERRUPT? 0125 9E81 0127 0215 JMP $+2 0126 34BD 0124 0216 IJNE X,S3 GO BAK 0127 0E87 0217 RBIT 8,S DISABLE INTERRUPTS 1PAGE 0007 MACRO (F100) SPECIAL CHARACHTER DETECT TEST SUBROTINE 76-93717-23 (A100) 1981/08/10 03:54:32.25 0128 A045 0005 0218 COPY ST1(Y),X RESTORE DATA=SPEC CHAR 0129 8728 00D2 0219 COPY A,STORE2 012A 839B 0146 0220 COPY CHTX,TX 012B 4921 0221 COPY =CONTR,Q 012C 030A 0222 XNX TX 012D 4201 0223 OUT Q,1 012E 8323 00D2 0224 COPY STORE2,A 012F C041 0001 0225 COPY MSGPTR(Y),Q RESTORE DATA FOR THE CHECKING 0130 400A 0226 CSN A,Q 0131 9EA1 0153 0227 JMP INCRDAT GO TO INCREMENT DATA 0132 8043 0003 0228 COPY COUN(Y),A 0133 0B01 0229 ADD =1,A 0134 8443 0003 0230 COPY  A,COUN(Y) INCREMENT THE COUNTER 0135 DC42 0002 0231 IMS LMSG(Y) 0136 9E9F 0156 0232 JMP INCRDAT1 GO TO INCREMENT DATA 0137 8240 00F8 0233 COPY =256,A 0138 B843 0003 0234 CSK A,COUN(Y) 0139 9E82 013C 0235 JMP ER7 013A 0000 0236 NOP 013B 9E95 0151 0237 JMP ERR8 0000013C 0238 ER7 EQU $ 013C 4912 0239 COPY =18,Q 0000013D 0240 ER87 EQU $ 013D C716 00D4 0241 COPY Q,ER 18E3 18E7 0242 CALL ERR 014E 0C01 0243  CLSN A,=1 014F 9E1C 00EC 0244 JMP SPECIAL 0150 9E8B 015C 0245 JMP MEM 00000151  0246 ERR8 EQU $ 0151 4913 0247 COPY =19,Q 0152 9E6A 013D 0248 JMP ER87 00000153 0249 INCRDAT EQU $ 0153 DC42 0002 0250 IMS LMSG(Y) 0154 9E81 0156 0251 JMP INCRDAT1 0155 9E82 0158 0252 JMP COUNT0 0156 2B01 0253 INCRDAT1 ADD =1,X INCREMENT DATA 1PAGE 0008 MACRO (F100) SPECIAL CHARACHTER DETECT TEST SUBROTINE 76-93717-23 (A100) 1981/08/10 03:54:34.00 0157 9E14 00EC 0254 JMP SPECIAL 00000158 0255 COUNT0 EQU $ 0158 8043 0003 0256 COPY COUN(Y),A 0159 0C00 0257 CLSN A,=0 CHECK THE COUNTER 015A 9E81 015C 0258 JMP MEM 015B 9E60 013C 0259 JMP ER7 0000015C 0260 MEM EQU $ 015C C36B 0148 0261 COPY CHRX,RX 015D 0934 0262 COPY =ERRES,A 015E 430A 0263 XNX RX 015F 0201 0264 OUT  A,1 0160 0924 0265 COPY =CONTX,A 0161 430A 0266 XNX RX 0162 0201 0267  OUT A,1 0163 0EC5 0268 SBIT EOB,S 0164 0ED5 0269 SBIT DATA,S 0165 0309 <  0270 UIS 0166 2900 0271 COPY =0,X 0167 835E 0146 0272 COPY CHTX,TX RESTORE TX 0168 030A 0273 XNX TX 0169 2200 0274 OUT X,0 OUTPUT SPEC CHAR 016A A3B2 019D 0275 COPY SHORT,X PREPARE FOR A LOOP 016B 0900 0276 COPY =0,A PREPARE FOR TRANSMIT DATA INTERRUPT 016C C044 0004 0277 COPY DATTXINT(Y),Q CHECK DATA 016D 0E85 0278  SBIT 8,S INTERRUPT ENABLE 0000016E 0279 S8 EQU $ 016E 004A 0280 CSN Q,A AN INTERRUPT ? 016F 9E81 0171 0281 JMP $+2 YES 0170 34BD 016E 0282 IJNE X,S8 GO BAK 0171 0E87 0283 RBIT 8,S DISABLE INTERRUPT 0172 87AB 019E 0284 COPY A,STORE2 SAVE FOR FUTURE 0173 8352 0146 0285 COPY CHTX,TX RESTORE TX 0174 2926 0286  COPY =:26,X 0175 030A 0287 XNX TX 0176 2201 0288 OUT X,1 0177 A3A7 019F 0289 COPY LONG,X PREPARE FOR RECIEVE CHAR LOOP 1PAGE 0009 MACRO (F100) SPECIAL CHARACHTER DETECT TEST SUBROTINE 76-93717-23 (A100) 1981/08/10 03:54:35.25 0178 83A5 019E 0290 COPY STORE2,A TRANSMIT+RECIEVE INTERRUPTS 0179 C34D 0147 0291 COPY STORE1,Q CHECK DATA 017A 0E85 0292 SBIT 8,S  ENABLE INTERRUPT 0000017B 0293 S9 EQU $ 017B 004A 0294 CSN Q,A AN INTERRUPT? 017C 9E81 017E 0295 JMP $+2 YES 017D 34BD 017B 0296 IJNE X,S9 GO BAK 017E 0E87 0297 RBIT 8,S DISABLE INTERRUPT 017F 879E 019E 0298 COPY A,STORE2 SAVE FOR FUTURE 0180 8345 0146 0299 COPY CHTX,TX 0181 C346 0148 0300 COPY CHRX,RX 0182 430A 0301 XNX RX 0183 4100 0302 IN 0,Q 0184 8399 019E 0303 COPY STORE2,A 0185 A397 019D 0304 COPY SHORT,X PREPARE FOR EOB LOOP 0186 C041 0001 0305 COPY MSGPTR(Y),Q TRANSMIT+RECIEVE+EOB INTERRUPTS 0187 0E85 0306 SBIT 8,S ENABLE INTERRUPTS 00000188 0307 S10  EQU $ 0188 400A 0308 CSN A,Q AN INTERRUPT? 0189 9E81 018B 0309 JMP $+2 018A 34BD 0188 0310 IJNE X,S10 GO BAK 018B 0E87 0311 RBIT 8,S DISABLE INTERRUPTS 018C 8791 019E 0312 COPY A,STORE2 018D 8338 0146 0313 COPY CHTX,TX 018E 4921 0314 COPY =CONTR,Q 018F 030A 0315 XNX TX 0190 4201 0316 OUT Q,1 0191 838C 019E 0317 COPY STORE2,A 0192 1152 01A5 0318 JEQ A,MEM: 0193 2903 0319 COPY  =3,X 0194 A78B 01A0 0320 COPY X,ER 18E3 18E7 0321 CALL ERR 01A3 0C01 0322  CLSN A,=1 01A4 9E37 015C 0323 JMP MEM 000001A5 0324 MEM: EQU $ 01A5 0ED7 0325 =  RBIT DATA,S 1PAGE 0010 MACRO (F100) SPECIAL CHARACHTER DETECT TEST SUBROTINE 76-93717-23 (A100) 1981/08/10 03:54:37.00 01A6 0EC7 0326 RBIT EOB,S 01A7 0309 0327 UIS 01A8 2880 0328 COPY =-128,X 01A9 A442 0002 0329 COPY X,LMSG(Y) 01AA A29A 01C5 0330 COPY =:100,X SPECIAL CHARACHTER ENABLE 01AB C31C 0148 0331 COPY CHRX,RX 000001AC 0332 MEMOR EQU $ 01AC 430A 0333 XNX RX 01AD 2400 0334 SELP X,0 OUTPUT SPECIAL CHARACTER 01AE 2B01 0335  ADD =1,X INCREMENT THE DATA 01AF 208D 0336 RBIT 8,X DISABLE SPECIAL CHARACTER 01B0 430A 0337 XNX RX 01B1 2400 0338 SELP X,0 OUTPUT NEXT SPECIAL CHARACTER 01B2 208C 0339 SBIT 8,X ENABLE SPECIAL CHARACTER 01B3 2B01 0340 ADD =1,X 01B4 DC42 0002 0341 IMS LMSG(Y) 01B5 9E76 01AC 0342 JMP MEMOR 01B6 2880 0343  COPY =-128,X 01B7 A442 0002 0344 COPY X,LMSG(Y) 01B8 2900 0345 COPY =0,X DATA=SPECIAL CHARACTER 000001B9 0346 CHAR EQU $ 01B9 0020 0347 COPY X,A 01BA 180F 0348 AND =:F,A 01BB 11CC 01C8 0349 JNE A,NOBLINK2 18E3 18E7 0350 CALL BLINKER 000001C8 0351 NOBLINK2 EQU $ 01C8 C3C1 020A 0352 COPY CHRX,RX 01C9 0934 0353 COPY =ERRES,A 01CA 430A 0354 XNX RX 01CB 0201 0355 OUT A,1 01CC 0924 0356  COPY =CONTX,A 01CD 430A 0357 XNX RX 01CE 0201 0358 OUT A,1 01CF 83BB 020B 0359 COPY CHTX,TX RESTORE TX 01D0 030A 0360 XNX TX 01D1 2200 0361  OUT X,0 OUTPUT SPEC CHAR 1PAGE 0011 MACRO (F100) SPECIAL CHARACHTER DETECT TEST SUBROTINE 76-93717-23 (A100) 1981/08/10 03:54:38.75 01D2 A445 0005 0362 COPY X,ST1(Y) STORE IT 01D3 A349 019D 0363 COPY SHORT,X PREPARE FOR A LOOP 01D4 0900 0364 COPY =0,A PREPARE FOR TRANSMIT DATA INTERRUPT 01D5 C044 0004 0365 COPY DATTXINT(Y),Q CHECK DATA 01D6 0E85 0366 SBIT 8,S INTERRUPT ENABLE 000001D7 0367 S11 EQU $ 01D7 004A 0368 CSN Q,A AN INTERRUPT ? 01D8 9E81 01DA 0369 JMP $+2 YES 01D9 34BD 01D7 0370 IJNE X,S11 GO BAK 01DA 0E87  0371 RBIT 8,S DISABLE INTERRUPT 01DB 8742 019E 0372 COPY A,STORE2 SAVE FOR FUTURE 01DC 83AE 020B 0373 COPY CHTX,TX RESTORE TX 01DD 2926 0374 COPY =:26,X 01DE 030A 0375 XNX TX 01DF 2201 0376 OUT X,1 01E0 A33E 019F 0377 COPY LONG,X  PREPARE FOR RECIEVE CHAR LOOP 01E1 833C 019E 0378 COPY STORE2,A TRANSMIT+RECIEVE INTERRUPTS 01E2 C3> A9 020C 0379 COPY STORE1,Q CHECK DATA 01E3 0E85 0380 SBIT 8,S ENABLE INTERRUPT 000001E4 0381 S12 EQU $ 01E4 004A 0382 CSN Q,A AN INTERRUPT? 01E5 9E81 01E7 0383 JMP $+2 YES 01E6 34BD 01E4 0384 IJNE X,S12 GO BAK 01E7 0E87 0385 RBIT 8,S DISABLE INTERRUPT 01E8 8735 019E 0386 COPY A,STORE2 SAVE FOR FUTURE 01E9 83A1 020B 0387 COPY CHTX,TX 01EA C39F 020A 0388 COPY CHRX,RX 01EB 430A 0389 XNX RX 01EC 4100 0390 IN 0,Q 01ED 8330 019E 0391 COPY STORE2,A 01EE A32E 019D 0392  COPY SHORT,X PREPARE FOR EOB LOOP 01EF C041 0001 0393 COPY MSGPTR(Y),Q TRANSMIT+RECIEVE+EOB INTERRUPTS 01F0 0E85 0394 SBIT 8,S ENABLE INTERRUPTS 000001F1 0395 S13 EQU $ 01F1 400A 0396 CSN A,Q AN INTERRUPT? 01F2 9E81 01F4 0397 JMP $+2 1PAGE 0012 MACRO (F100) SPECIAL CHARACHTER DETECT TEST SUBROTINE 76-93717-23 (A100) 1981/08/10 03:54:40.25 01F3 34BD 01F1 0398  IJNE X,S13 GO BAK 01F4 0E87 0399 RBIT 8,S DISABLE INTERRUPTS 01F5 A045 0005 0400 COPY ST1(Y),X RESTORE DATA=SPEC CHAR 01F6 8727 019E 0401 COPY A,STORE2 01F7 8393 020B 0402 COPY CHTX,TX 01F8 4921 0403 COPY =CONTR,Q 01F9 030A 0404 XNX TX 01FA 4201 0405 OUT Q,1 01FB 8322 019E 0406 COPY STORE2,A 01FC C041 0001 0407 COPY  MSGPTR(Y),Q RESTORE DATA FOR THE CHECKING 01FD 400A 0408 CSN A,Q 01FE 9E94 0213 0409 JMP  NEXTCHAR 01FF 4907 0410 COPY =7,Q 0200 C71F 01A0 0411 COPY Q,ER 18E3 18E7 0412  CALL ERR 0210 0C01 0413 CLSN A,=1 0211 9E27 01B9 0414 JMP CHAR 0212 9FC2 0255 0415 JMP CHANGE 00000213 0416 NEXTCHAR EQU $ 0213 2B01 0417 ADD =1,X  00000214 0418 NEXTCH EQU $ 0214 C375 020A 0419 COPY CHRX,RX 0215 0934 0420 COPY =ERRES,A 0216 430A 0421 XNX RX 0217 0201 0422 OUT A,1 0218 0924 0423  COPY =CONTX,A 0219 430A 0424 XNX RX 021A 0201 0425 OUT A,1 021B 836F 020B 0426 COPY CHTX,TX RESTORE TX 021C 030A 0427 XNX TX 021D 2200 0428 OUT  X,0 OUTPUT SPEC CHAR 021E A445 0005 0429 COPY X,ST1(Y) STORE IT 021F A3B6 0256 0430  COPY SHORT,X PREPARE FOR A LOOP 0220 0900 0431 COPY =0,A PREPARE FOR TRANSMIT DATA INTERRUPT 0221 C044 0004 0432 COPY DATTXINT(Y),Q CHECK DATA 0222 0E85 0433 SBIT 8,S  INTERRUPT ENABLE 1PAGE 0013 MACRO (F100) SPECIAL CHARACHTER DETECT TEST SUBROTINE 76-93717-23 (A100) 1981/08/10 03:54:42.0? 0 00000223 0434 S14 EQU $ 0223 004A 0435 CSN Q,A AN INTERRUPT ? 0224 9E81 0226 0436 JMP $+2 YES 0225 34BD 0223 0437 IJNE X,S14 GO BAK 0226 0E87 0438 RBIT 8,S DISABLE INTERRUPT 0227 87AF 0257 0439 COPY A,STORE2 SAVE FOR FUTURE 0228 8362 020B 0440 COPY CHTX,TX RESTORE TX 0229 2926 0441 COPY =:26,X 022A 030A  0442 XNX TX 022B 2201 0443 OUT X,1 022C A3AB 0258 0444 COPY LONG,X PREPARE FOR RECIEVE CHAR LOOP 022D 83A9 0257 0445 COPY STORE2,A TRANSMIT+RECIEVE INTERRUPTS 022E C35D 020C 0446 COPY STORE1,Q CHECK DATA 022F 0E85 0447 SBIT 8,S ENABLE INTERRUPT  00000230 0448 S15 EQU $ 0230 004A 0449 CSN Q,A AN INTERRUPT? 0231 9E81 0233 0450 JMP $+2 YES 0232 34BD 0230 0451 IJNE X,S15 GO BAK 0233 0E87 0452  RBIT 8,S DISABLE INTERRUPT 0234 87A2 0257 0453 COPY A,STORE2 SAVE FOR FUTURE 0235 8355 020B 0454 COPY CHTX,TX 0236 C353 020A 0455 COPY CHRX,RX 0237 430A 0456 XNX RX 0238 4100 0457 IN 0,Q 0239 839D 0257 0458 COPY STORE2,A 023A A39B 0256 0459  COPY SHORT,X PREPARE FOR EOB LOOP 023B C041 0001 0460 COPY MSGPTR(Y),Q TRANSMIT+RECIEVE+EOB INTERRUPTS 023C 0E85 0461 SBIT 8,S ENABLE INTERRUPTS 0000023D 0462 S16 EQU $ 023D 400A 0463 CSN A,Q AN INTERRUPT? 023E 9E81 0240 0464 JMP $+2 023F 34BD 023D 0465  IJNE X,S16 GO BAK 0240 0E87 0466 RBIT 8,S DISABLE INTERRUPTS 0241 A045 0005 0467 COPY ST1(Y),X RESTORE DATA=SPEC CHAR 0242 8794 0257 0468 COPY A,STORE2 0243 8347 020B 0469 COPY CHTX,TX 1PAGE 0014 MACRO (F100) SPECIAL CHARACHTER DETECT TEST SUBROTINE 76-93717-23 (A100) 1981/08/10 03:54:43.25 0244 4921 0470 COPY =CONTR,Q 0245 030A 0471 XNX TX 0246 4201  0472 OUT Q,1 0247 838F 0257 0473 COPY STORE2,A 0248 C343 020C 0474 COPY STORE1,Q RESTORE DATA FOR THE CHECKING 0249 400A 0475 CSN A,Q 024A 9E95 0260 0476 JMP NEXCHAR1 024B 4908 0477 COPY =8,Q 024C C78C 0259 0478 COPY Q,ER 18E3 18E7 0479  CALL ERR 025D 0C01 0480 CLSN A,=1 025E 9E35 0214 0481 JMP NEXTCH 025F 9F75 0255 0482 JMP CHANGE 00000260 0483 NEXCHAR1 EQU $ 0260 2B01 0484 ADD =1,X 0261 DC42 0002 0485 IMS LMSG(Y) 0262 9F9D 0280 0486 JMP CHAR LOOP 128 TIMES 0263 2880 0487 COPY =-128,X 0264 A442 0002 0488 COPY X,LMSG(Y) COUNTER FOR THE LOOP 0265 2900 0489 @  COPY =0,X DATA=SPECIAL CHARACTER 0266 C323 020A 0490 COPY CHRX,RX 00000267 0491 SPEC1 EQU $ 0267 430A 0492 XNX RX 0268 2400 0493 SELP X,0 OUTPUT SPECIAL CHARACTER 0269 208C 0494 SBIT 8,X ENABLE SPECIAL CHARACTER 026A 2B01 0495 ADD =1,X CHANGE DATA 026B 430A 0496 XNX RX 026C 2400 0497 SELP X,0  OUTPUT SPECIAL CHARACTER 026D 208D 0498 RBIT 8,X 026E 2B01 0499 ADD =1,X  CHANGE DATA 026F DC42 0002 0500 IMS LMSG(Y) 0270 9E76 0267 0501 JMP SPEC1 0271 2880 0502 COPY =-128,X COUNTER FOR THE LOOP 0272 A442 0002 0503 COPY X,LMSG(Y) 0273 2900 0504 COPY =0,X DATA=SPECIAL CHARACTER 00000274 0505 SPEC2 EQU $ 1PAGE 0015 MACRO (F100) SPECIAL CHARACHTER DETECT TEST SUBROTINE 76-93717-23 (A100) 1981/08/10 03:54:45.25 0274 0020 0506 COPY  X,A 0275 180F 0507 AND =:F,A 0276 11CC 0283 0508 JNE A,NOBLINK3 18E3 18E7 0509  CALL BLINKER 00000283 0510 NOBLINK3 EQU $ 0283 C306 020A 0511 COPY CHRX,RX 0284 0934 0512 COPY =ERRES,A 0285 430A 0513 XNX RX 0286 0201 0514 OUT A,1 0287 0924 0515 COPY =CONTX,A 0288 430A 0516 XNX RX 0289 0201 0517 OUT A,1 028A 83B9 02C4 0518 COPY CHTX,TX RESTORE TX 028B 030A 0519 XNX TX 028C 2200 0520 OUT X,0 OUTPUT SPEC CHAR 028D A445 0005 0521 COPY X,ST1(Y) STORE IT 028E A347 0256 0522 COPY SHORT,X PREPARE FOR A LOOP 028F 0900 0523 COPY =0,A  PREPARE FOR TRANSMIT DATA INTERRUPT 0290 C044 0004 0524 COPY DATTXINT(Y),Q CHECK DATA 0291 0E85 0525  SBIT 8,S INTERRUPT ENABLE 00000292 0526 S17 EQU $ 0292 004A 0527 CSN  Q,A AN INTERRUPT ? 0293 9E81 0295 0528 JMP $+2 YES 0294 34BD 0292 0529 IJNE X,S17 GO BAK 0295 0E87 0530 RBIT 8,S DISABLE INTERRUPT 0296 8740 0257 0531  COPY A,STORE2 SAVE FOR FUTURE 0297 83AC 02C4 0532 COPY CHTX,TX RESTORE TX 0298 2926 0533 COPY =:26,X 0299 030A 0534 XNX TX 029A 2201 0535 OUT X,1 029B A33C 0258 0536 COPY LONG,X PREPARE FOR RECIEVE CHAR LOOP 029C 833A 0257 0537 COPY STORE2,A  TRANSMIT+RECIEVE INTERRUPTS 029D C3A7 02C5 0538 COPY STORE1,Q CHECK DATA 029E 0E85 0539 SBIT 8,S ENABLE INTERRUPT 0000029F 0540 S18 EQU $ 029F 004A 0541 CSN Q,A  AN INTERRUPT? 1PAGE 0016 MACRO (F100) SPECIAL CHARACHTER DETECT TEST SUBROTINE 76-93717-23 (A100) 1981/08/10 03:5A 4:47.00 02A0 9E81 02A2 0542 JMP $+2 YES 02A1 34BD 029F 0543 IJNE X,S18 GO BAK 02A2 0E87 0544 RBIT 8,S DISABLE INTERRUPT 02A3 8733 0257 0545 COPY A,STORE2  SAVE FOR FUTURE 02A4 839F 02C4 0546 COPY CHTX,TX 02A5 C3A0 02C6 0547 COPY CHRX,RX 02A6 430A  0548 XNX RX 02A7 4100 0549 IN 0,Q 02A8 832E 0257 0550 COPY STORE2,A  02A9 A32C 0256 0551 COPY SHORT,X PREPARE FOR EOB LOOP 02AA C041 0001 0552 COPY MSGPTR(Y),Q TRANSMIT+RECIEVE+EOB INTERRUPTS 02AB 0E85 0553 SBIT 8,S ENABLE INTERRUPTS 000002AC 0554 S19 EQU $ 02AC 400A 0555 CSN A,Q AN INTERRUPT? 02AD 9E81 02AF 0556 JMP  $+2 02AE 34BD 02AC 0557 IJNE X,S19 GO BAK 02AF 0E87 0558 RBIT 8,S DISABLE INTERRUPTS 02B0 A045 0005 0559 COPY ST1(Y),X RESTORE DATA=SPEC CHAR 02B1 8725 0257 0560 COPY A,STORE2 02B2 8391 02C4 0561 COPY CHTX,TX 02B3 4921 0562 COPY =CONTR,Q 02B4 030A  0563 XNX TX 02B5 4201 0564 OUT Q,1 02B6 8320 0257 0565 COPY STORE2,A 02B7 C38D 02C5 0566 COPY STORE1,Q RESTORE DATA FOR THE CHECKING 02B8 400A 0567 CSN A,Q 02B9 9E93 02CD 0568 JMP SPEC3 02BA 4908 0569 COPY =8,Q 02BB C71D 0259 0570 COPY Q,ER 18E3 18E7 0571 CALL ERR 02CA 0C01 0572 CLSN A,=1 02CB 9E28 0274 0573  JMP SPEC2 02CC 9ECF 031C 0574 JMP CHANGE 000002CD 0575 SPEC3 EQU $ 02CD 2B01  0576 ADD =1,X 000002CE 0577 SPEC4 EQU $ 1PAGE 0017 MACRO (F100) SPECIAL CHARACHTER DETECT TEST SUBROTINE 76-93717-23 (A100) 1981/08/10 03:54:48.75 02CE C377 02C6 0578 COPY CHRX,RX 02CF 0934 0579 COPY =ERRES,A 02D0 430A 0580 XNX RX 02D1 0201 0581 OUT A,1 02D2 0924 0582 COPY =CONTX,A 02D3 430A 0583 XNX RX 02D4 0201 0584 OUT A,1 02D5 836E 02C4 0585 COPY CHTX,TX RESTORE TX 02D6 030A 0586 XNX TX 02D7 2200  0587 OUT X,0 OUTPUT SPEC CHAR 02D8 A445 0005 0588 COPY X,ST1(Y) STORE IT 02D9 A3B5 030F 0589 COPY SHORT,X PREPARE FOR A LOOP 02DA 0900 0590 COPY =0,A PREPARE FOR TRANSMIT DATA INTERRUPT 02DB C044 0004 0591 COPY DATTXINT(Y),Q CHECK DATA 02DC 0E85 0592 SBIT 8,S INTERRUPT ENABLE 000002DD 0593 S20 EQU $ 02DD 004A 0594 CSN Q,A  AN INTERRUPT ? 02DE 9E81 02E0 0595 JMP $+2 YES 02DF 34BD 02DD 0596 IJNE X,S20 GO BAK 02E0 0E87 0597 RBIT 8,S DISABLE INTERRUPT 02E1 87AE 0310 0598 COPY B  A,STORE2 SAVE FOR FUTURE 02E2 8361 02C4 0599 COPY CHTX,TX RESTORE TX 02E3 2926 0600  COPY =:26,X 02E4 030A 0601 XNX TX 02E5 2201 0602 OUT X,1 02E6 A3AA 0311 0603 COPY LONG,X PREPARE FOR RECIEVE CHAR LOOP 02E7 83A8 0310 0604 COPY STORE2,A TRANSMIT+RECIEVE INTERRUPTS 02E8 C35C 02C5 0605 COPY STORE1,Q CHECK DATA 02E9 0E85 0606 SBIT 8,S ENABLE INTERRUPT 000002EA 0607 S21 EQU $ 02EA 004A 0608 CSN Q,A  AN INTERRUPT? 02EB 9E81 02ED 0609 JMP $+2 YES 02EC 34BD 02EA 0610 IJNE X,S21  GO BAK 02ED 0E87 0611 RBIT 8,S DISABLE INTERRUPT 02EE 87A1 0310 0612 COPY A,STORE2 SAVE FOR FUTURE 02EF 8354 02C4 0613 COPY CHTX,TX 1PAGE 0018 MACRO (F100) SPECIAL CHARACHTER DETECT TEST SUBROTINE 76-93717-23 (A100) 1981/08/10 03:54:50.25 02F0 C355 02C6 0614 COPY CHRX,RX 02F1 430A 0615 XNX RX 02F2 4100 0616 IN 0,Q 02F3 839C 0310 0617 COPY STORE2,A 02F4 A39A 030F 0618 COPY SHORT,X PREPARE FOR EOB LOOP 02F5 C041 0001 0619 COPY MSGPTR(Y),Q TRANSMIT+RECIEVE+EOB INTERRUPTS 02F6 0E85 0620 SBIT 8,S ENABLE INTERRUPTS 000002F7 0621 S22  EQU $ 02F7 400A 0622 CSN A,Q AN INTERRUPT? 02F8 9E81 02FA 0623 JMP $+2  02F9 34BD 02F7 0624 IJNE X,S22 GO BAK 02FA 0E87 0625 RBIT 8,S DISABLE INTERRUPTS 02FB A045 0005 0626 COPY ST1(Y),X RESTORE DATA=SPEC CHAR 02FC 8793 0310 0627 COPY A,STORE2 02FD 8346 02C4 0628 COPY CHTX,TX 02FE 4921 0629 COPY =CONTR,Q 02FF 030A 0630 XNX TX 0300 4201 0631 OUT Q,1 0301 838E 0310 0632 COPY STORE2,A 0302 C041 0001 0633 COPY MSGPTR(Y),Q RESTORE DATA FOR THE CHECKING 0303 400A 0634 CSN A,Q 0304 9E94 0319 0635 JMP SPEC5 GO TO CHECK NEXT CHAR 0305 4907 0636 COPY =7,Q 0306 C78B 0312 0637 COPY Q,ER 18E3 18E7 0638 CALL ERR 0316 0C01 0639 CLSN A,=1 0317 9E36 02CE 0640 JMP SPEC4 0318 9E83 031C 0641 JMP CHANGE 00000319 0642 SPEC5 EQU  $ 0319 2B01 0643 ADD =1,X 031A DC42 0002 0644 IMS LMSG(Y) 031B 9FCC 0368 0645  JMP SPEC2 0000031C 0646 CHANGE EQU $ 031C C329 02C6 0647 COPY CHRX,RX 031D 8326 02C4  0648 COPY CHTX,TX 031E 2940 0649 COPY =:40,X 1PAGE 0019 MACRO (F100) SPECIAL CHARACHTER DETECT TEST SUBROTINE 76-93717-23 (A100) 1981/08/10 03:54:52.00 031F 030A 0650 XNX TX 0320 2201 0651 OUT X,1 0321 430A 0652 XNX RX 0322 2201 0653 OUT X,1 0323 2800 C  0654 COPY =-256,X 0324 A442 0002 0655 COPY X,LMSG(Y) 0325 2900 0656 COPY  =0,X 0326 430A 0657 SELP: XNX RX 0327 2400 0658 SELP X,0 0328 2B01 0659 ADD =1,X 0329 DC42 0002 0660 IMS LMSG(Y) 032A 9E7B 0326 0661 JMP SELP: 032B A3BD 0369 0662 COPY COUNT1,X 032C 2C00 0663 CLSN X,=0 032D 9E8A 0338 0664 JMP CHANGE1 032E 4008 0665 EXCH TX,RX 032F 8714 02C4 0666 COPY TX,CHTX STORE IT 0330 C715 02C6 0667 COPY RX,CHRX STORE IT 0331 2900 0668 COPY =0,X 0332 A7B6 0369 0669 COPY X,COUNT1 0333 A2B6 036A 0670 COPY =MSG3,X 0334 A441 0001 0671 COPY X,MSGPTR(Y) 0335 A3B5 036B 0672 COPY LMSG2,X 0336 A442 0002 0673 COPY X,LMSG(Y) 0337 9E9F 0357 0674 JMP  CALL 00000338 0675 CHANGE1 EQU $ 0338 A3B3 036C 0676 COPY SW1,X 0339 2C00 0677 CLSN X,=0 033A 9EC0 037B 0678 JMP EXIT 033B A3B1 036D 0679 COPY COUNT2,X 033C 2C00 0680 CLSN X,=0 033D 9E8D 034B 0681 JMP CHANGE2 033E 83AF 036E 0682 COPY BUTDA,TX 033F C3AE 036E 0683 COPY BUTDA,RX 0340 1904 0684 OR =4,TX 0341 5906 0685 OR =6,RX 1PAGE 0020 MACRO (F100) SPECIAL CHARACHTER DETECT TEST SUBROTINE 76-93717-23 (A100) 1981/08/10 03:54:53.25  0342 8701 02C4 0686 COPY TX,CHTX 0343 C702 02C6 0687 COPY RX,CHRX 0344 2900 0688  COPY =0,X 0345 A7A7 036D 0689 COPY X,COUNT2 0346 A2A8 036F 0690 COPY =MSG4,X 0347 A441 0001 0691 COPY X,MSGPTR(Y) 0348 A3A2 036B 0692 COPY LMSG2,X 0349 A442 0002 0693 COPY  X,LMSG(Y) 034A 9E8C 0357 0694 JMP CALL 0000034B 0695 CHANGE2 EQU $ 034B A3A4 0370 0696  COPY COUNT3,X 034C 2C00 0697 CLSN X,=0 034D 9EAD 037B 0698 JMP EXIT 034E 4008  0699 EXCH TX,RX 034F 87A1 0371 0700 COPY TX,CHTX 0350 C7A1 0372 0701 COPY RX,CHRX 0351 2900 0702 COPY =0,X 0352 A79D 0370 0703 COPY X,COUNT3 0353 A29F 0373 0704  COPY =MSG5,X 0354 A441 0001 0705 COPY X,MSGPTR(Y) 0355 A395 036B 0706 COPY LMSG2,X 0356 A442 0002 0707 COPY X,LMSG(Y) 00000357 0708 CALL EQU $ 0357 A020 0020 0709 COPY  MODEREG,X 0358 208F 0710 TBIT MODEFLAG,X SKIP THE MSG 0359 36DE 0378 0711 JF OV,JMP 18E3 18E7 0712 CALL O:MSG,=CO,LMSG,MSGPTR 00000378 0713 JMP EQU $ 0378 9F81 037A 0714 JMP BIGLOOP 0002 0715 LPOOL 18E3 18E7 0716 EXIT EXIT 0717  END 0000 ERRORS (0000/0000) 0000 WARNINGS (0000/0000) ALL EQU $ 0357 A020 0020 0709 COPY D 1PAGE 0001 MACRO (F100) AUTO ECHO TEST SUBROTINE 76-93717-25 (A100) 1981/08/10 03:56:37.75 SI = DM01.TSTECHO.ASM SO = DM01.TSTECHO.OBJ LO = DM01.TSTECHO.LST 000A 0002 NAM TSTECHO 0003 EXTR  MSG2,MSG3,MSG4 0004 EXTR MSG5,LMSG2 0005 EXTR O:MSG,ERR 18E3 18E7 0006 DEFINE TSTECHO 0001 0007 MSGPTR RES 1 0002 0008 LMSG RES 1 0003 0009 STOREDAT RES 1 0000 0003 0010 ENDEF 0000 0D0A 0011 MSG1 BYTE :0D,:0A,'AUTO ECHO TEST ' 0009 0012 0012 LMSG1 WORD $-MSG1*2 18E3 18E7 0013 TSTECHO ENTRY 0019 2901 0014  COPY =1,X 001A A795 0030 0015 COPY X,COUNT1 001B A795 0031 0016 COPY X,COUNT2 001C A795 0032 0017 COPY X,COUNT3 001D A020 0020 0018 COPY MODEREG,X 001E 208F 0019  TBIT MODEFLAG,X 001F 36E8 0048 0020 JF OV,SKIP SKIP THE MSG 18E3 18E7 0021 CALL  O:MSG,=CO,LMSG1,=MSG1 18E3 18E7 0022 CALL O:MSG,=CO,LMSG2,=MSG2 00000048 0023 SKIP EQU $ 0048 29FF 0024 COPY =:FF,X 0049 A443 0003 0025 COPY X,STOREDAT(Y) 004A 83C1 008C 0026  COPY BUTDA,A DEVICE ADDR 004B A3C1 008D 0027 COPY SW,X !! 004C 2C00 0028  CLSN X,=0 !! 004D 9E82 0050 0029 JMP CABLE !! 004E 2928 0030 COPY  =ECHO2C,X !! 004F 9E81 0051 0031 JMP CABLE00 !! 00000050 0032 CABLE EQU $  !! 0050 292C 0033 COPY =ECHO2,X 00000051 0034 CABLE00 EQU $ !! 0051 030A  0035 XNX A 0052 2403 0036 SELP X,3 AUTO ECHO ENABLE CH2 0053 87BA 008E 0037 COPY A,CHTX 1PAGE 0002 MACRO (F100) AUTO ECHO TEST SUBROTINE 76-93717-25 (A100) 1981/08/10 03:56:42.00 0054 1902 0038 OR =2,A 0055 87B9 008F 0039 COPY A,CHRX 0040 *  0041 * CHTX TRANMITTER, CHRX RECEVER 0042 * 00000056 0043 BIGLOOP EQU $ 0056 83B7 008E  0044 COPY CHTX,TX 0057 C3B7 008F 0045 COPY CHRX,RX 0058 298E 0046 COPY =MODE,X MODE WORD FOR BOTH CH 0059 030A 0047 XNX TX 005A 2201 0048 OUT X,1  OUTPUT IT 005B 430A 0049 XNX RX 005C 2201 0050 OUT X,1 OUTPUT IT 005D 2925 0051 COPY =CONECHOT,X CONTROL WORD CHTX 005E 030A 0052 XNX TX 005F 2201 0053 OUT X,1 OUTPUT IT 0060 2924 0054 COPY =CONECHOR,X CONTROL WORD CHRX 0061 430A 0055 XNX RX 0062 2201 0056 OUT X,1 00000063 0057 BIGLOOP1 EQU $ 0063 83AA 008E 0058 COPY CHTX,TX 0064 C3AA 008F 0059 COPY CHRX,RX 0065 A043 0003 0060 COE PY STOREDAT(Y),X 0066 030A 0061 XNX TX 0067 2200 0062 OUT X,0 OUTPUT IT 0068 C3A8 0091 0063 COPY LONG,Q 0069 4043 0064 SUB Q,Q 0000006A 0065 L1 EQU $ 006A 030A 0066 XNX TX 006B 2101 0067 IN 1,X READ A STATUS 006C 201F 0068 TBIT 1,X 006D 3641 006F 0069 JT OV,$+2 006E 54BB 006A 0070 IJNE  Q,L1 006F 387F 0071 AND =:7F,X 0070 2C07 0072 CLSN X,=STATRX3 0071 9EA7 0099 0073  JMP DATCHECK GO TO CHECK A DATA 1PAGE 0003 MACRO (F100) AUTO ECHO TEST SUBROTINE 76-93717-25 (A100) 1981/08/10 03:56:43.25 0072 C39C 008F 0074 COPY CHRX,RX 0073 430A 0075 XNX RX 0074 4100  0076 IN 0,Q 0075 030A 0077 XNX TX 0076 4100 0078 IN 0,Q 0077 0901 0079 COPY =1,A 0078 8797 0090 0080 COPY A,ER 0079 3707 0081 XOR =STATRX3,X 007A A797 0092 0082 COPY X,ERRARG 007B 8392 008E 0083 COPY CHTX,TX 007C 2934 0084 COPY =ERRES,X 007D 030A 0085 XNX TX 007E 2201 0086 OUT X,1 007F 2925 0087 COPY =CONECHOT,X 0080 030A 0088 XNX TX 0081 2201 0089 OUT  X,1 0082 0900 0090 COPY =0,A 0083 878F 0093 0091 COPY A,CHTEST 18E3 18E7 0092  CALL ERR 0097 0C01 0093 CLSN A,=1 0098 9E4A 0063 0094 JMP BIGLOOP1 00000099 0095 DATCHECK EQU $ 0099 8374 008E 0096 COPY CHTX,TX 009A C374 008F 0097 COPY CHRX,RX 009B 030A 0098 XNX TX 009C 0100 0099 IN 0,A INPUT DATA 009D A043 0003 0100 COPY STOREDAT(Y),X 009E 200A 0101 CSN A,X CHECK THE ECHO SIGNAL 009F 9E93 00B3 0102 JMP CHANGE GO TO CHANGE CHANNELS 00A0 C36E 008F 0103 COPY CHRX,RX 00A1 430A 0104 XNX RX 00A2 2100 0105 IN 0,X 00A3 0909 0106 COPY =9,A 00A4 876B 0090 0107 COPY A,ER 18E3 18E7 0108 CALL ERR 00B1 0C01 0109 CLSN A,=1 1PAGE 0004 MACRO (F100) AUTO ECHO TEST SUBROTINE 76-93717-25 (A100) 1981/08/10 03:56:45.25 00B2 9E30 0063 0110  JMP BIGLOOP1 000000B3 0111 CHANGE EQU $ 00B3 835A 008E 0112 COPY CHTX,TX 00B4 C35A 008F 0113 COPY CHRX,RX 00B5 2940 0114 COPY =:40,X 00B6 030A 0115 XNX TX 00B7 2201 0116 OUT X,1 00B8 430A 0117 XNX RX 00B9 2201 0118 OUT X,1 00BA A3DC 0117 0119 COPY COUNT1,X 00BB 2C00 0120 CLSN X,=0 00BC 9E95 00D2 0121  JMP CHANGE1 00BD 4008 0122 EXCH TX,RX 00BE 874F 008E 0123 COPY TX,CHTX 00BF C74F 00F 8F 0124 COPY RX,CHRX 00C0 2900 0125 COPY =0,X 00C1 A7D5 0117 0126 COPY X,COUNT1 00C2 A2D5 0118 0127 COPY =MSG3,X 00C3 A441 0001 0128 COPY X,MSGPTR(Y) 00C4 A3D4 0119 0129  COPY LMSG2,X 00C5 A442 0002 0130 COPY X,LMSG(Y) 00C6 8345 008C 0131 COPY BUTDA,A 00C7 A345 008D 0132 COPY SW,X !! 00C8 2C00 0133 CLSN X,=0 !! 00C9 9E82 00CC 0134 JMP CABLE1 !! 00CA 2918 0135 COPY =ECHO1C,X !! 00CB 9E81 00CD 0136  JMP CABLE01 !! 000000CC 0137 CABLE1 EQU $ !! 00CC 291C 0138 COPY  =ECHO1,X 000000CD 0139 CABLE01 EQU $ !! 00CD 030A 0140 XNX A 00CE 2403  0141 SELP X,3 00CF 2955 0142 COPY =:55,X 00D0 A443 0003 0143 COPY X,STOREDAT(Y) 00D1 9EB5 0107 0144 JMP CALL 000000D2 0145 CHANGE1 EQU $ 1PAGE 0005 MACRO (F100) AUTO ECHO TEST SUBROTINE 76-93717-25 (A100) 1981/08/10 03:56:46.50 00D2 A3C7 011A 0146 COPY SW1,X 00D3 2C00  0147 CLSN X,=0 00D4 9ECF 0124 0148 JMP EXIT 00D5 A3C5 011B 0149 COPY COUNT2,X 00D6 2C00 0150 CLSN X,=0 00D7 9E98 00F0 0151 JMP CHANGE2 00D8 8333 008C 0152 COPY BUTDA,TX 00D9 C332 008C 0153 COPY BUTDA,RX 00DA 1904 0154 OR =4,TX 00DB 5906  0155 OR =6,RX 00DC 8731 008E 0156 COPY TX,CHTX 00DD C731 008F 0157 COPY RX,CHRX 00DE 2900 0158 COPY =0,X 00DF A7BB 011B 0159 COPY X,COUNT2 00E0 A2BB 011C 0160  COPY =MSG4,X 00E1 A441 0001 0161 COPY X,MSGPTR(Y) 00E2 A3B6 0119 0162 COPY LMSG2,X 00E3 A442 0002 0163 COPY X,LMSG(Y) 00E4 8327 008C 0164 COPY BUTDA,A 00E5 A327 008D 0165 COPY SW,X !! 00E6 2C00 0166 CLSN X,=0 !! 00E7 9E82 00EA 0167 JMP CABLE2  !! 00E8 2988 0168 COPY =ECHO4C,X !! 00E9 9E81 00EB 0169 JMP CABLE02 !!  000000EA 0170 CABLE2 EQU $ !! 00EA 298C 0171 COPY =ECHO4,X 000000EB 0172  CABLE02 EQU $ !! 00EB 030A 0173 XNX A 00EC 2403 0174 SELP X,3 00ED 29DD 0175 COPY =:DD,X 00EE A443 0003 0176 COPY X,STOREDAT(Y) 00EF 9E97 0107 0177  JMP CALL 000000F0 0178 CHANGE2 EQU $ 00F0 A3AC 011D 0179 COPY COUNT3,X 00F1 2C00 0180 CLSN X,=0 00F2 9EB1 0124 0181 JMP EXIT 1PAGE 0006 MACRO (F100) AUTO ECHO TEST SUBROTINE 76-93717-25 (A100) 1981/08/10 03:56:48.00 00F3 4008 0182 EXCH TX,RX 00F4 8719 008E 0183 COPY  TX,CHTX 00F5 C719 008F 0184 COPY RX,CHRX 00F6 2900 0185 COPY =0,X 00F7 A7A5 011D 0186G  COPY X,COUNT3 00F8 A2A5 011E 0187 COPY =MSG5,X 00F9 A441 0001 0188 COPY X,MSGPTR(Y) 00FA A39E 0119 0189 COPY LMSG2,X 00FB A442 0002 0190 COPY X,LMSG(Y) 00FC 830F 008C 0191  COPY BUTDA,A 00FD A30F 008D 0192 COPY SW,X !! 00FE 2C00 0193 CLSN X,=0  !! 00FF 9E82 0102 0194 JMP CABLE3 !! 0100 2948 0195 COPY =ECHO3C,X !!  0101 9E81 0103 0196 JMP CABLE03 !! 00000102 0197 CABLE3 EQU $ !! 0102 294C  0198 COPY =ECHO3,X 00000103 0199 CABLE03 EQU $ !! 0103 030A 0200 XNX A 0104 2403 0201 SELP X,3 0105 29E5 0202 COPY =:E5,X 0106 A443 0003 0203  COPY X,STOREDAT(Y) 00000107 0204 CALL EQU $ 0107 A020 0020 0205 COPY MODEREG,X 0108 208F 0206 TBIT MODEFLAG,X 0109 36D9 0123 0207 JF OV,JMP 18E3 18E7 0208  CALL O:MSG,=CO,LMSG,MSGPTR 00000123 0209 JMP EQU $ 0123 9F85 0129 0210 JMP BIGLOOP  18E3 18E7 0211 EXIT EXIT 0212 END 0000 ERRORS (0000/0000) 0000 WARNINGS (0000/0000) COPY X,STOREDAT(Y) 00000107 0204 CALL EQU $ 0107 A020 0020 0205 COPY MODEREG,X 0108 208F 0206 TBIT MODEFLAG,X 0109 36D9 0123 0207 JF OV,JMP 18E3 18E7 0208  CALL O:MSG,=CO,LMSG,MSGPTR 00000123 0209 JMP EQU $ 0123 9F85 0129 0210 JMP BIGLOOP  STORE,A RESTORE A 02DC C306 0263 0215 COPY SW2,Q FIRST MSG? 02DD 4C00 0216 CLSN Q,=:0 02DE 9E87 02E6 0217 JMP FLG02 YES 02DF 2B01 0218 ADD =:1,X 02E0 0E09 0219 SHIFT A,RO,1 02E1 2C07 0220 CLSN X,=7 02E2 9E58 02BB 0221 JMP COUNT 02E3 9E50 02B4 0222 JMP TBIT 02E4 2900 0223 SW:2:0 COPY =:0,X STAT. REG WAS CHECKING 02E5 A797 02FD 0224 COPY X,SW2 02E6 8020 0020 0225 FLG02 COPY MODEREG,A 02E7 00AF 0226  TBIT ACTNFLG2,A HALT OR CONTINUE? 02E8 36C1 02EA 0227 JF OV,FLG03 02E9 0E0D 0228 HLT  02EA 8020 0020 0229 FLG03 COPY MODEREG,A 02EB 009F 0230 TBIT ACTNFLG1,A TECHTEST OR CONTINUE?  02EC 36DD 030A 0231 JF OV,FLG04 02ED 8020 0020 0232 COPY MODEREG,A 02EE 008F 0233  TBIT MODEFLAG,A 02EF 36D2 0302 0234 JF OV,FLG03A SKIP MSG 18E3 18E7 0235 CALL  O:MSG,=CO,LTECHTST,=TECHTST 00000302 0236 FLG03A EQU $ 0302 A020 0020 0237 COPY MODEREG,X 0303 208D 0238 RBIT MODEFLAG,X 0304 A420 0020 0239 COPY X,MODEREG 18E3 18E7 0240  EXIT =1 0000030A 0241 FLG04 EQU $ 18E3 18E7 0242 EXIT =0 0243 H  END 1PAGE 0005 MACRO (F100) ERROR HANDLER 76-93717-26 (A000) 1981/08/06 04:06:01.50 0000 ERRORS (0000/0000) 0000 WARNINGS (0000/0000) T 00000302 0236 FLG03A EQU $ 0302 A020 0020 0237 COPY MODEREG,X 0303 208D 0238 RBIT MODEFLAG,X 0304 A420 0020 0239 COPY X,MODEREG 18E3 18E7 0240  EXIT =1 0000030A 0241 FLG04 EQU $ 18E3 18E7 0242 EXIT =0 0243 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIJ IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIK IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIL IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII