File: DILPAN.LS of Tape: Test/Tests/LISTING-FILES4
(Source file text)
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1
/DILPAN
/LIST OF SWITCH SETTINGS USED IN THIS TEST.*******************************
/
/SWITCH MASK DESCRIPTION
/
/11 0001 SELECT TEST 1 - PRELIMINARY TEST.
/10 0002 SELECT TEST 2 - SINGLE CHAR. ALL COLS,
/09 0004 SELECT TEST 3 - ROTATING PATTERN
/08 0010 SELECT TEST 4 - WEDGE PATTERN
/07 0020 SELECT TEST 5 - HAMMER ALIGN.
/06 0040 SELECT TEST 6 - SLEW TEST
/05 0100 SELECT TEST 7
/ SUB-TESTS WITHIN TEST 7.
/ SWI6 - SCOPE DRIVE
/ SWI7 - PRINT SEGMENTS - SWS.9,10 AND 11 FOR SEGS.
/ SWI8 - POWER SUPPLY TEST
/04 0200 "DOWN" - NORMAL OPER. / "UP" - PERFORM SEQUENTIAL TEST
/03 0400 "DOwN" - 80 COL. / "UP" - 132 COL. OPTION
/02 1000 "DOwN" - 64 CHAR, / "UP" - 96 CHAR. OPTION
/01 2000 "DOWN" - CONTINUE / "UP" - HALT AFTER ERROR PRINT OUT
/00 4000 "DOWN" - HALT / "UP" - CONTINUE
/
/*************************************************************************
/LOCATION IS WHAT OPTIONS
/
/00021 4000 SWITCHES HARDWARE = 4000 SOFTWARE = 0000
/00022 0000 USER INTERFACE HARDWARE = 0000 SOFTWARE = 0400
/
/*************************************************************************
/
/
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-1
/DILPAN
6661 PSKF=6661
6662 PCLF=6662
6663 PSKE=6663
6664 PSTB=6664
6665 PSIE=6665
6666 PCLP=6666
6667 PCIE=6667
0000 *0000
000000 0303 303 /00000-0303 CC
000001 7200 VECTOR, CLA /00001-7200 :@
000002 1053 1053 /00002-1053 H+
000003 3033 3033 /00003-3033 X[
000004 4500 4500 /00004-4500 %@
000005 2331 2331 /00005-2331 SY
000006 2324 2324 /00006-2324 ST
000007 0515 0515 /00007-0515 EM
000010 0000 0 /00010-0000 @@
000011 0000 0 /00011-0000 @@
000012 0000 TABPTR, 0 /00012-0000 @@
000013 5577 INTPT2, JMP I (INT2 /00013-5777 /?
000014 5576 INTPT4, JMP I (INT4 /00014-5776 />
000015 5575 INTPT5, JMP I (INT5 /00015-5775 /=
000016 1011 1011 /00016-1011 HI
000017 0000 0 /00017-0000 @@
000020 4600 SWREG, 4600 /00020-4600 &@
000021 4000 SWITCH, 4000 /00021-4000 @ HARDWARE = 4000 SOFTWARE = 0000
000022 0000 HARD, 0 /00022-0000 @@ HARDWARE = 0000 SOFTWARE = 0400
000023 6456 XSWI, SWI /00023-6456 4.
000024 0212 LF, 212 /00024-0212 BJ
000025 0215 CR, 215 /00025-0215 BM
000026 0214 FF, 214 /00026-0214 BL
000027 0240 SPACE, 240 /00027-0240 B
000030 0300 AT, 300 /00030-0300 C@
000031 0277 QUESTN, 277 /00031-0277 B?
000032 0301 A, 301 /00032-0301 CA
000033 0305 EES, 305 /00033-0305 CE
000034 7700 M64, -100 /00034-7700 ?@
000035 7640 M96, -140 /00035-7640 >
000036 7766 M10, -12 /00036-7766 ?6
000037 7470 M200, -310 /00037-7470 <8 M1000 = - 1750
000040 7776 M2, -2 /00040-7776 ?>
000041 7660 M80, -120 /00041-7660 >0 -204 M132
000042 0120 P80, 120 /00042-0120 AP 204 P132
000043 7774 M4, -4 /00043-7774 ?< -5 M5
000044 7754 M20, -24 /00044-7754 ?, -30 M24
000045 7757 M17, -21 /00045-7757 ?/ -25 M21
000046 0005 P5, 5 /00046-0005 @E 6 P6
000047 7773 MSGMSK, -5 /00047-7773 ?; -7 M7
000050 0004 PSGMSK, 4 /00050-0004 @D 6 P6
000051 7775 MIN3, -3 /00051-7775 ?=
000052 7764 M12, -14 /00052-7764 ?4
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-2
000053 7700 TT1, -100 /00053-7700 ?@
000054 7716 TT2, -62 /00054-7716 ?N
000055 0000 TT3, 0 /00055-0000 @@
000056 0000 CHAR, 0 /00056-0000 @@
000057 2401 XERR1, ERR1 /00057-2401 TA
000060 2403 XERR2, ERR2 /00060-2403 TC
000061 2405 XERR3, ERR3 /00061-2405 TE
000062 2407 XERR4, ERR4 /00062-2407 TG
000063 2411 XERR5, ERR5 /00063-2411 TI
000064 2413 XERR6, ERR6 /00064-2413 TK
000065 2415 XERR7, ERR7 /00065-2415 TM
000066 2417 XERR8, ERR8 /00066-2417 TO
000067 2421 XERR9, ERR9 /00067-2421 TQ
000070 2423 XERR10, ERR10 /00070-2423 TS
000071 2425 XERR11, ERR11 /00071-2425 TU
000072 2427 XERR12, ERR12 /00072-2427 TW
000073 2431 XERR13, ERR13 /00073-2431 TY
000074 2433 XERR14, ERR14 /00074-2433 T[
000075 2435 XERR15, ERR15 /00075-2435 T]
000076 2437 XERR16, ERR16 /00076-2437 T_
000077 2441 XERR17, ERR17 /00077-2441 T!
000100 2443 XERR18, ERR18 /00100-2443 T#
000101 2445 XERR19, ERR19 /00101-2445 T%
000102 2447 XERR20, ERR20 /00102-2447 T'
000103 2451 XERR21, ERR21 /00103-2451 T)
000104 2453 XERR22, ERR22 /00104-2453 T+
000105 2455 XERR23, ERR23 /00105-2455 T-
000106 2457 XERR24, ERR24 /00106-2457 T/
000107 2461 XERR25, ERR25 /00107-2461 T1
000110 0000 WIDFLG, 0 /00110-0000 @@
000111 4460 INTPT1, JMS I XERR2 /00111-4460 $0
000112 4465 INTPT3, JMS I XERR7 /00112-4465 $5
000113 2200 PTTMSR, PRTTIM /00113-2200 R@
000114 2227 SLTMSR, SLWTIM /00114-2227 RW
000115 3665 FRTMSR, FRFTIM /00115-3665 ^5
000116 0000 SEGCNT, 0 /00116-0000 @@
000117 0000 CHRCNT, 0 /00117-0000 @@
000120 0000 CHRGEN, 0 /00120-0000 @@
000121 0000 LINCNT, 0 /00121-0000 @@
000122 0000 CYCCNT, 0 /00122-0000 @@
000123 0000 ERNO, 0 /00123-0000 @@
000124 0000 TSTNO, 0 /00124-0000 @@
000125 0000 LOCA, 0 /00125-0000 @@
000126 0000 TSTSW, 0 /00126-0000 @@
000127 0205 TEST1, TST1 /00127-0205 BE
000130 1200 TEST2, SNGCHR /00130-1200 J@
000131 1400 TEST3, ROTATE /00131-1400 L@
000132 1600 TEST4, TST6 /00132-1600 N@
000133 2032 TEST5, HAMALN /00133-2032 PZ
000134 2071 TEST6, SLWTST /00134-2071 P9
000135 4400 TEST7, SCOPE /00135-4400 $@
000136 0000 PRTINT, 0 /00136-0000 @@
000137 4574 JMS I (CKTS5 /00137-4774 '<
000140 4573 JMS I (CLEAR /00140-4773 ';
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-3
000141 4572 JMS I (WIDRST /00141-4772 ':
000142 7200 CLA /00142-7200 :@
000143 1026 TAD FF /00143-1026 HV
000144 4562 JMS I XPRCHR /00144-4562 %2
000145 4515 JMS I FRTMSR /00145-4515 %M
000146 5151 JMP .+3 /00146-5151 ))
000147 7200 CLA /00147-7200 :@
000150 5536 JMP I PRTINT /00150-5536 -^
000151 4571 JMS I (TYCHFL /00151-4771 '9
000152 4555 JMS I XSKFLG /00152-4555 %-
000153 5152 JMP .-1 /00153-5152 )*
000154 5141 JMP PRTINT+3 /00154-5141 )!
000155 5505 XSKFLG, SKPFLG /00155-5505 -E
000156 5514 XCLFLG, CLRFLG /00156-5514 -L
000157 5517 XSKERR, SKPERR /00157-5517 -O
000160 5524 XCPCHR, CLPCHR /00160-5524 -T
000161 5527 XSTINT, SETINT /00161-5527 -W
000162 5532 XPRCHR, PRTCHR /00162-5532 -Z
000163 5535 XCLINT, CLRINT /00163-5535 -]
000164 0004 0004 /00164-0004 @D
000165 0077 0077 /00165-0077 @?
000166 0060 P60, 60 /00166-0060 @0
000167 0077 P77, 77 /00167-0077 @?
000170 0200 P200, 200 /00170-0200 B@
0200 *200
000200 5760 JMP I GO /00200-5760 /0
000201 5761 JMP I GO+1 /00201-5761 /1
000202 5762 JMP I GO+2 /00202-5762 /2
000203 5763 JMP I GO+3 /00203-5763 /3
000204 5764 JMP I GO+4 /00204-5764 /4
000205 0000 TST1, 0 /00205-0000 @@ TEST 1
000206 7200 CLA /00206-7200 :@
000207 1377 TAD (1 /00207-1377 K?
000210 4776 JMS I (PRTHDR /00210-4776 '>
000211 4563 JMS I XCLINT /00211-4563 %3
000212 4556 JMS I XCLFLG /00212-4556 %.
000213 4555 JMS I XSKFLG /00213-4555 %-
000214 7410 SKP /00214-7410 <H
000215 4457 JMS I XERR1 /00215-4457 $/
000216 7200 CLA /00216-7200 :@
000217 1111 TAD INTPT1 /00217-1111 II
000220 3001 DCA VECTOR /00220-3001 XA
000221 6001 ION /00221-6001 0A
000222 1031 TAD QUESTN /00222-1031 HY
000223 4560 JMS I XCPCHR /00223-4560 %0
000224 7200 CLA /00224-7200 :@
000225 1037 TAD M200 /00225-1037 H_
000226 3276 DCA TIMCNT /00226-3276 Z>
000227 2276 ISZ TIMCNT /00227-2276 R>
000230 5227 JMP .-1 /00230-5227 *W
000231 6002 IOF /00231-6002 0B
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-4
000232 4555 JMS I XSKFLG /00232-4555 %-
000233 4461 JMS I XERR3 /00233-4461 $1
000234 4556 JMS I XCLFLG /00234-4556 %.
000235 4555 JMS I XSKFLG /00235-4555 %-
000236 7410 SKP /00236-7410 <H
000237 4462 JMS I XERR4 /00237-4462 $2
000240 4561 JMS I XSTINT /00240-4561 %1
000241 1013 TAD INTPT2 /00241-1013 HK
000242 3001 DCA VECTOR /00242-3001 XA
000243 6001 ION /00243-6001 0A
000244 1030 TAD AT /00244-1030 HX
000245 4562 JMS I XPRCHR /00245-4562 %2
000246 7200 CLA /00246-7200 :@
000247 1037 TAD M200 /00247-1037 H_
000250 3276 DCA TIMCNT /00250-3276 Z>
000251 2276 ISZ TIMCNT /00251-2276 R>
000252 5251 JMP .-1 /00252-5251 *)
000253 4463 JMS I XERR5 /00253-4463 $3
000254 4555 INT2, JMS I XSKFLG /00254-4555 %-
000255 4464 JMS I XERR6 /00255-4464 $4
000256 4563 JMS I XCLINT /00256-4563 %3
000257 1112 TAD INTPT3 /00257-1112 IJ
000260 3001 DCA VECTOR /00260-3001 XA
000261 6001 ION /00261-6001 0A
000262 1031 TAD QUESTN /00262-1031 HY
000263 4562 JMS I XPRCHR /00263-4562 %2
000264 7200 CLA /00264-7200 :@
000265 1037 TAD M200 /00265-1037 H_
000266 3276 DCA TIMCNT /00266-3276 Z>
000267 2276 ISZ TIMCNT /00267-2276 R>
000270 5267 JMP .-1 /00270-5267 *7
000271 4555 JMS I XSKFLG /00271-4555 %-
000272 4466 JMS I XERR8 /00272-4466 $6
000273 6002 IOF /00273-6002 0B
000274 4775 JMS I (CONTSW /00274-4775 '=
000275 5277 JMP TEST2A /00275-5277 *?
000276 0000 TIMCNT, 0 /00276-0000 @@
000277 7200 TEST2A, CLA /00277-7200 :@
000300 1374 TAD (-41 /00300-1374 K<
000301 3122 DCA CYCCNT /00301-3122 YR
000302 1043 TAD M4 /00302-1043 H#
000303 3121 DCA LINCNT /00303-3121 YQ
000304 1045 TAD M17 /00304-1045 H%
000305 3116 DCA SEGCNT /00305-3116 YN
000306 1356 TAD SCHRSW /00306-1356 K.
000307 3355 DCA CHARSW /00307-3355 [-
000310 4557 T3A, JMS I XSKERR /00310-4557 %/
000311 7410 SKP /00311-7410 <H
000312 4467 JMS I XERR9 /00312-4467 $7
000313 4555 JMS I XSKFLG /00313-4555 %-
000314 4470 JMS I XERR10 /00314-4470 $8
000315 5755 JMP I CHARSW /00315-5755 /-
000316 7200 T1A, CLA /00316-7200 :@
000317 1356 TAD SCHRSW /00317-1356 K.
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-5
000320 3355 DCA CHARSW /00320-3355 [-
000321 1031 TAD QUESTN /00321-1031 HY
000322 4562 T5A, JMS I XPRCHR /00322-4562 %2
000323 2116 ISZ SEGCNT /00323-2116 QN
000324 5310 JMP T3A /00324-5310 +H
000325 7200 CLA /00325-7200 :@
000326 1044 TAD M20 /00326-1044 H$
000327 3116 DCA SEGCNT /00327-3116 YN
000330 4513 JMS I PTTMSR /00330-4513 %K
000331 4471 JMS I XERR11 /00331-4471 $9
000332 2121 ISZ LINCNT /00332-2121 QQ
000333 5310 JMP T3A /00333-5310 +H
000334 4773 JMS I (WIDTH /00334-4773 ';
000335 5310 JMP T3A /00335-5310 +H
000336 1043 TAD M4 /00336-1043 H#
000337 3121 DCA LINCNT /00337-3121 YQ
000340 1024 TAD LF /00340-1024 HT
000341 4562 JMS I XPRCHR /00341-4562 %2
000342 4514 JMS I SLTMSR /00342-4514 %L
000343 4472 JMS I XERR12 /00343-4472 $:
000344 4775 JMS I (CONTSW /00344-4775 '=
000345 2122 ISZ CYCCNT /00345-2122 QR
000346 5310 JMP T3A /00346-5310 +H
000347 5772 JMP I (TEST2B /00347-5772 /:
000350 7200 T2A, CLA /00350-7200 :@
000351 1357 TAD RCHRSW /00351-1357 K/
000352 3355 DCA CHARSW /00352-3355 [-
000353 1030 TAD AT /00353-1030 HX
000354 5322 JMP T5A /00354-5322 +R
000355 0000 CHARSW, 0 /00355-0000 @@
000356 0350 SCHRSW, T2A /00356-0350 C(
000357 0316 RCHRSW, T1A /00357-0316 CN
000360 3200 GO, START /00360-3200 Z@
000361 3222 STRAGN /00361-3222 ZR
000362 5601 PRTSPD /00362-5601 .A
000363 5201 TIMO /00363-5201 *A
000364 6074 SELCH /00364-6074 0<
000372 0400
000373 2307
000374 7737
000375 3711
000376 5400
000377 0001
0400 PAGE
000400 4423 TEST2B, JMS I XSWI /00400-4423 $S
000401 0377 AND (1000 /00401-0377 C? "DOwN" - 64 CHAR / "UP" - 96 CHAR.
000402 7650 SNA CLA /00402-7650 >(
000403 5212 JMP .+7 /00403-5212 *J
000404 1376 TAD (-12 /00404-1376 K>
000405 3122 DCA CYCCNT /00405-3122 YR
000406 1366 TAD SNCHRS /00406-1366 K6
000407 3365 DCA NOCHRS /00407-3365 [5
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-6
000410 1035 TAD M96 /00410-1035 H]
000411 5217 JMP .+6 /00411-5217 *O
000412 1375 TAD (-16 /00412-1375 K=
000413 3122 DCA CYCCNT /00413-3122 YR
000414 1367 TAD RNCHRS /00414-1367 K7
000415 3365 DCA NOCHRS /00415-3365 [5
000416 1034 TAD M64 /00416-1034 H\
000417 3370 DCA LEGCHR /00417-3370 [8
000420 7200 T2B0, CLA /00420-7200 :@
000421 1043 TAD M4 /00421-1043 H#
000422 3121 DCA LINCNT /00422-3121 YQ
000423 1027 TAD SPACE /00423-1027 HW
000424 3120 DCA CHRGEN /00424-3120 YP
000425 1370 TAD LEGCHR /00425-1370 K8
000426 3117 DCA CHRCNT /00426-3117 YO
000427 1044 TAD M20 /00427-1044 H$
000430 3116 DCA SEGCNT /00430-3116 YN
000431 4557 T2B1, JMS I XSKERR /00431-4557 %/
000432 7410 SKP /00432-7410 <H
000433 4473 JMS I XERR13 /00433-4473 $;
000434 4555 JMS I XSKFLG /00434-4555 %-
000435 4474 JMS I XERR14 /00435-4474 $<
000436 7200 CLA /00436-7200 :@
000437 1120 TAD CHRGEN /00437-1120 IP
000440 4562 JMS I XPRCHR /00440-4562 %2
000441 2116 ISZ SEGCNT /00441-2116 QN
000442 5262 JMP T2B2 /00442-5262 *2
000443 7200 CLA /00443-7200 :@
000444 1044 TAD M20 /00444-1044 H$
000445 3116 DCA SEGCNT /00445-3116 YN
000446 4513 JMS I PTTMSR /00446-4513 %K
000447 4475 JMS I XERR15 /00447-4475 $=
000450 5765 JMP I NOCHRS /00450-5765 /5
000451 2121 T2B7, ISZ LINCNT /00451-2121 QQ
000452 5262 JMP T2B2 /00452-5262 *2
000453 7200 CLA /00453-7200 :@
000454 1043 TAD M4 /00454-1043 H#
000455 3121 DCA LINCNT /00455-3121 YQ
000456 1024 TAD LF /00456-1024 HT
000457 4562 JMS I XPRCHR /00457-4562 %2
000460 4514 JMS I SLTMSR /00460-4514 %L
000461 4476 JMS I XERR16 /00461-4476 $>
000462 2120 T2B2, ISZ CHRGEN /00462-2120 QP
000463 2117 ISZ CHRCNT /00463-2117 QO
000464 5231 JMP T2B1 /00464-5231 *Y
000465 7200 CLA /00465-7200 :@
000466 1024 TAD LF /00466-1024 HT
000467 4562 JMS I XPRCHR /00467-4562 %2
000470 4514 JMS I SLTMSR /00470-4514 %L
000471 4476 JMS I XERR16 /00471-4476 $>
000472 4774 JMS I (CONTSW /00472-4774 '<
000473 7200 CLA /00473-7200 :@
000474 1044 TAD M20 /00474-1044 H$
000475 3116 DCA SEGCNT /00475-3116 YN
000476 1370 TAD LEGCHR /00476-1370 K8
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-7
000477 1170 TAD P200 /00477-1170 I8
000500 7041 CMA IAC /00500-7041 8!
000501 3117 DCA CHRCNT /00501-3117 YO
000502 4557 T2B3, JMS I XSKERR /00502-4557 %/
000503 7410 SKP /00503-7410 <H
000504 4477 JMS I XERR17 /00504-4477 $?
000505 4555 JMS I XSKFLG /00505-4555 %-
000506 4500 JMS I XERR18 /00506-4500 %@
000507 7200 CLA /00507-7200 :@
000510 1120 TAD CHRGEN /00510-1120 IP
000511 4562 JMS I XPRCHR /00511-4562 %2
000512 2116 ISZ SEGCNT /00512-2116 QN
000513 5321 JMP T2B4 /00513-5321 +Q
000514 7200 CLA /00514-7200 :@
000515 1044 TAD M20 /00515-1044 H$
000516 3116 DCA SEGCNT /00516-3116 YN
000517 4513 JMS I PTTMSR /00517-4513 %K
000520 5501 JMP I XERR19 /00520-5501 -A
000521 2117 T2B4, ISZ CHRCNT /00521-2117 QO
000522 7410 SKP /00522-7410 <H
000523 5354 JMP T2B5 /00523-5354 +,
000524 2120 ISZ CHRGEN /00524-2120 QP
000525 7200 CLA /00525-7200 :@
000526 1344 TAD FORPTR /00526-1344 K$
000527 3010 DCA 0010 /00527-3010 XH
000530 1351 TAD MB4 /00530-1351 K)
000531 3353 DCA T2FRCT /00531-3353 [+
000532 7200 T2B6, CLA /00532-7200 :@
000533 1120 TAD CHRGEN /00533-1120 IP
000534 0352 AND MASK1 /00534-0352 C*
000535 7041 CMA IAC /00535-7041 8!
000536 1410 TAD I 0010 /00536-1410 LH
000537 7450 SNA /00537-7450 <(
000540 5321 JMP T2B4 /00540-5321 +Q
000541 2353 ISZ T2FRCT /00541-2353 S+
000542 5332 JMP T2B6 /00542-5332 +Z50
000543 5302 JMP T2B3 /00543-5302 +B
000544 0544 FORPTR, FORLST-1 /00544-0544 E$
000545 0012 FORLST, 0012 /00545-0012 @J
000546 0015 0015 /00546-0015 @M
000547 0014 0014 /00547-0014 @L
000550 0001 0001 /00550-0001 @A
000551 7774 MB4, -4 /00551-7774 ?<
000552 0177 MASK1, 0177 /00552-0177 A?
000553 0000 T2FRCT, 0 /00553-0000 @@
000554 7200 T2B5, CLA /00554-7200 :@
000555 1024 TAD LF /00555-1024 HT
000556 4562 JMS I XPRCHR /00556-4562 %2
000557 4514 JMS I SLTMSR /00557-4514 %L
000560 4502 JMS I XERR20 /00560-4502 %B
000561 4774 JMS I (CONTSW /00561-4774 '<
000562 2122 ISZ CYCCNT /00562-2122 QR
000563 5220 JMP T2B0 /00563-5220 *P
000564 5773 JMP I (TST38 /00564-5773 /;
000565 0000 NOCHRS, 0 /00565-0000 @@
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-8
000566 0451 SNCHRS, T2B7 /00566-0451 D)
000567 0462 RNCHRS, T2B2 /00567-0462 D2
000570 0000 LEGCHR, 0 /00570-0000 @@
000573 0600
000574 3711
000575 7762
000576 7766
000577 1000
0600 PAGE
000600 7200 TST38, CLA /00600-7200 :@
000601 6662 PCLF /00601-6662 62
000602 6661 PSKF /00602-6661 61
000603 7410 SKP /00603-7410 <H
000604 4057 JMS XERR1 /00604-4057 /
000605 7200 CLA /00605-7200 :@
000606 1377 TAD (-100 /00606-1377 K?
000607 3053 DCA TT1 /00607-3053 X+
000610 1376 TAD (-62 /00610-1376 K>
000611 3054 DCA TT2 /00611-3054 X,
000612 7200 TST11, CLA /00612-7200 :@
000613 1375 TAD (240 /00613-1375 K=
000614 3055 DCA TT3 /00614-3055 X-
000615 7200 CLA /00615-7200 :@
000616 1055 TAD TT3 /00616-1055 H-
000617 6666 PCLP /00617-6666 66
000620 6661 PSKF /00620-6661 61
000621 5220 JMP .-1 /00621-5220 *P
000622 2055 ISZ TT3 /00622-2055 P-
000623 2053 ISZ TT1 /00623-2053 P+
000624 5215 JMP .-7 /00624-5215 *M
000625 7200 CLA /00625-7200 :@
000626 1377 TAD (-100 /00626-1377 K?
000627 3053 DCA TT1 /00627-3053 X+
000630 1024 TAD LF /00630-1024 HT
000631 6666 PCLP /00631-6666 66
000632 6661 PSKF /00632-6661 61
000633 5232 JMP .-1 /00633-5232 *Z
000634 7200 CLA /00634-7200 :@
000635 1025 TAD CR /00635-1025 HU
000636 6666 PCLP /00636-6666 66
000637 6661 PSKF /00637-6661 61
000640 5237 JMP .-1 /00640-5237 *_
000641 2054 ISZ TT2 /00641-2054 P,
000642 5212 JMP TST11 /00642-5212 *J
000643 7200 CLA /00643-7200 :@
000644 1376 TAD (-62 /00644-1376 K>
000645 3054 DCA TT2 /00645-3054 X,
000646 1026 TAD FF /00646-1026 HV
000647 6666 PCLP /00647-6666 66
000650 6661 PSKF /00650-6661 61
000651 5250 JMP .-1 /00651-5250 *(
000652 7200 CLA /00652-7200 :@
000653 5774 JMP I (TST3 /00653-5774 /<
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-9
000774 1000
000775 0240
000776 7716
000777 7700
1000 PAGE
001000 7200 TST3, CLA /01000-7200 :@
001001 1321 TAD N /01001-1321 KQ
001002 3322 DCA T3NCNT /01002-3322 [R
001003 7240 T9, CLA CMA /01003-7240 :
001004 3323 DCA CYCTST /01004-3323 [S
001005 1325 TAD RPHFL /01005-1325 KU
001006 3324 DCA PHFLG /01006-3324 [T
001007 1331 TAD SSPFL /01007-1331 KY
001010 3327 DCA SPCFLG /01010-3327 [W
001011 7240 CLA CMA /01011-7240 :
001012 3122 DCA CYCCNT /01012-3122 YR
001013 1044 TAD M20 /01013-1044 H$
001014 3116 DCA SEGCNT /01014-3116 YN
001015 4557 T1, JMS I XSKERR /01015-4557 %/
001016 7410 SKP /01016-7410 <H
001017 4503 JMS I XERR21 /01017-4503 %C
001020 4555 JMS I XSKFLG /01020-4555 %-
001021 4504 JMS I XERR22 /01021-4504 %D
001022 5727 JMP I SPCFLG /01022-5727 /W
001023 7200 T5, CLA /01023-7200 :@
001024 1027 TAD SPACE /01024-1027 HW
001025 4562 JMS I XPRCHR /01025-4562 %2
001026 2116 ISZ SEGCNT /01026-2116 QN
001027 5215 JMP T1 /01027-5215 *M
001030 7200 CLA /01030-7200 :@
001031 1044 TAD M20 /01031-1044 H$
001032 3116 DCA SEGCNT /01032-3116 YN
001033 4513 JMS I PTTMSR /01033-4513 %K
001034 4505 JMS I XERR23 /01034-4505 %E
001035 2122 ISZ CYCCNT /01035-2122 QR
001036 5215 JMP T1 /01036-5215 *M
001037 7200 CLA /01037-7200 :@
001040 1323 TAD CYCTST /01040-1323 KS
001041 3122 DCA CYCCNT /01041-3122 YR
001042 5724 JMP I PHFLG /01042-5724 /T
001043 1326 T8, TAD SPHFL /01043-1326 KV
001044 3324 DCA PHFLG /01044-3324 [T
001045 1330 TAD RSPFL /01045-1330 KX
001046 3327 DCA SPCFLG /01046-3327 [W
001047 7200 CLA /01047-7200 :@
001050 1025 TAD CR /01050-1025 HU
001051 4562 JMS I XPRCHR /01051-4562 %2
001052 4513 JMS I PTTMSR /01052-4513 %K
001053 5256 JMP .+3 /01053-5256 *.
001054 7200 CLA /01054-7200 :@
001055 5215 JMP T1 /01055-5215 *M
001056 4777 JMS I (TYCRFL /01056-4777 '?
001057 5247 JMP .-10 /01057-5247 *'
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-10
001060 7200 T4, CLA /01060-7200 :@
001061 1032 TAD A /01061-1032 HZ
001062 5225 JMP T5+2 /01062-5225 *U
001063 1325 T7, TAD RPHFL /01063-1325 KU
001064 3324 DCA PHFLG /01064-3324 [T
001065 1331 TAD SSPFL /01065-1331 KY
001066 3327 DCA SPCFLG /01066-3327 [W
001067 7200 CLA /01067-7200 :@
001070 1024 TAD LF /01070-1024 HT
001071 4562 JMS I XPRCHR /01071-4562 %2
001072 4514 JMS I SLTMSR /01072-4514 %L
001073 4506 JMS I XERR24 /01073-4506 %F
001074 4776 JMS I (CONTSW /01074-4776 '>
001075 7240 CLA CMA /01075-7240 :
001076 1323 TAD CYCTST /01076-1323 KS
001077 3323 DCA CYCTST /01077-3323 [S
001100 1323 TAD CYCTST /01100-1323 KS
001101 3122 DCA CYCCNT /01101-3122 YR
001102 1323 TAD CYCTST /01102-1323 KS
001103 1046 TAD P5 /01103-1046 H&
001104 7440 SZA /01104-7440 <
001105 5215 JMP T1 /01105-5215 *M
001106 2322 ISZ T3NCNT /01106-2322 SR
001107 5203 JMP T9 /01107-5203 *C
001110 7200 CLA /01110-7200 :@
001111 1026 TAD FF /01111-1026 HV
001112 4562 JMS I XPRCHR /01112-4562 %2
001113 4775 JMS I (FRFTIM /01113-4775 '=
001114 4507 JMS I XERR25 /01114-4507 %G
001115 7200 CLA /01115-7200 :@
001116 1774 TAD I (TST1 /01116-1774 O<
001117 3332 DCA TST1EP /01117-3332 [Z
001120 5732 JMP I TST1EP /01120-5732 /Z
001121 7764 N, -14 /01121-7764 ?4
001122 0000 T3NCNT, 0 /01122-0000 @@
001123 0000 CYCTST, 0 /01123-0000 @@
001124 0000 PHFLG, 0 /01124-0000 @@
001125 1043 RPHFL, T8 /01125-1043 H#
001126 1063 SPHFL, T7 /01126-1063 H3
001127 0000 SPCFLG, 0 /01127-0000 @@
001130 1060 RSPFL, T4 /01130-1060 H0
001131 1023 SSPFL, T5 /01131-1023 HS
001132 0000 TST1EP, 0 /01132-0000 @@
001174 0205
001175 3665
001176 3711
001177 4310
1200 PAGE
001200 0000 SNGCHR, 0 /01200-0000 @@ TEST 2
001201 7200 CLA /01201-7200 :@
001202 1377 TAD (2 /01202-1377 K?
001203 4776 JMS I (PRTHDR /01203-4776 '>
001204 1044 TAD M20 /01204-1044 H$
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-11
001205 3116 DCA SEGCNT /01205-3116 YN
001206 4423 JMS I XSWI /01206-4423 $S
001207 0375 AND (1000 /01207-0375 C= "DOwN" - 64 CHAR / "UP" - 96 CHAR. OPTION
001210 7650 SNA CLA /01210-7650 >(
001211 5214 JMP S2 /01211-5214 *L
001212 1035 TAD M96 /01212-1035 H]
001213 7410 SKP /01213-7410 <H
001214 1034 S2, TAD M64 /01214-1034 H\
001215 3117 DCA CHRCNT /01215-3117 YO
001216 1043 TAD M4 /01216-1043 H#
001217 3121 DCA LINCNT /01217-3121 YQ
001220 1027 TAD SPACE /01220-1027 HW
001221 3120 DCA CHRGEN /01221-3120 YP
001222 4557 S1, JMS I XSKERR /01222-4557 %/
001223 7410 SKP /01223-7410 <H
001224 4457 JMS I XERR1 /01224-4457 $/
001225 4555 JMS I XSKFLG /01225-4555 %-
001226 4460 JMS I XERR2 /01226-4460 $0
001227 7200 CLA /01227-7200 :@
001230 1120 TAD CHRGEN /01230-1120 IP
001231 4562 JMS I XPRCHR /01231-4562 %2
001232 2116 ISZ SEGCNT /01232-2116 QN
001233 5222 JMP S1 /01233-5222 *R
001234 7200 CLA /01234-7200 :@
001235 1044 TAD M20 /01235-1044 H$
001236 3116 DCA SEGCNT /01236-3116 YN
001237 2121 ISZ LINCNT /01237-2121 QQ
001240 5244 JMP ZZ7 /01240-5244 *$
001241 4774 JMS I (WIDTH /01241-4774 '<
001242 7410 SKP /01242-7410 <H
001243 5247 JMP S4 /01243-5247 *'
001244 4513 ZZ7, JMS I PTTMSR /01244-4513 %K
001245 4461 JMS I XERR3 /01245-4461 $1
001246 5222 JMP S1 /01246-5222 *R
001247 7200 S4, CLA /01247-7200 :@
001250 1043 TAD M4 /01250-1043 H#
001251 3121 DCA LINCNT /01251-3121 YQ
001252 4513 JMS I PTTMSR /01252-4513 %K
001253 4462 JMS I XERR4 /01253-4462 $2
001254 4557 JMS I XSKERR /01254-4557 %/
001255 7410 SKP /01255-7410 <H
001256 4463 JMS I XERR5 /01256-4463 $3
001257 4555 JMS I XSKFLG /01257-4555 %-
001260 4465 JMS I XERR7 /01260-4465 $5
001261 7200 CLA /01261-7200 :@
001262 1024 TAD LF /01262-1024 HT
001263 4562 JMS I XPRCHR /01263-4562 %2
001264 4514 JMS I SLTMSR /01264-4514 %L
001265 4464 JMS I XERR6 /01265-4464 $4
001266 4773 JMS I (CONTSW /01266-4773 ';
001267 5270 JMP S7 /01267-5270 *8
001270 2120 S7, ISZ CHRGEN /01270-2120 QP
001271 2117 ISZ CHRCNT /01271-2117 QO
001272 5222 JMP S1 /01272-5222 *R
001273 4773 JMS I (CONTSW /01273-4773 ';
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-12
001274 4772 JMS I (SEQTST /01274-4772 ':
001275 7200 CLA /01275-7200 :@
001276 5204 JMP SNGCHR+4 /01276-5204 *D
001372 2301
001373 3711
001374 2307
001375 1000
001376 5400
001377 0002
1400 PAGE
001400 0000 ROTATE, 0 /01400-0000 @@ TEST 3
001401 7200 CLA /01401-7200 :@
001402 1377 TAD (3 /01402-1377 K?
001403 4776 JMS I (PRTHDR /01403-4776 '>
001404 1044 TAD M20 /01404-1044 H$
001405 3116 DCA SEGCNT /01405-3116 YN
001406 1043 TAD M4 /01406-1043 H#
001407 3121 DCA LINCNT /01407-3121 YQ
001410 1337 TAD RSSGFL /01410-1337 K_
001411 3335 DCA SEGFLG /01411-3335 []
001412 1342 TAD RSLNFL /01412-1342 K"
001413 3340 DCA LINFLG /01413-3340 [
001414 4423 ROT3, JMS I XSWI /01414-4423 $S
001415 0375 AND (1000 /01415-0375 C= "DOwN" - 64 CHAR / "UP" - 96 CHAR. OPTION
001416 7650 SNA CLA /01416-7650 >(
001417 5222 JMP ROT7 /01417-5222 *R
001420 1035 TAD M96 /01420-1035 H]
001421 7410 SKP /01421-7410 <H
001422 1034 ROT7, TAD M64 /01422-1034 H\
001423 3344 DCA STRCNT /01423-3344 [$
001424 1027 TAD SPACE /01424-1027 HW
001425 3343 DCA STRCHR /01425-3343 [#
001426 1343 ROT11, TAD STRCHR /01426-1343 K#
001427 3120 DCA CHRGEN /01427-3120 YP
001430 1344 TAD STRCNT /01430-1344 K$
001431 3117 DCA CHRCNT /01431-3117 YO
001432 4557 ROT1, JMS I XSKERR /01432-4557 %/
001433 7410 SKP /01433-7410 <H
001434 4457 JMS I XERR1 /01434-4457 $/
001435 4555 JMS I XSKFLG /01435-4555 %-
001436 4460 JMS I XERR2 /01436-4460 $0
001437 1120 TAD CHRGEN /01437-1120 IP
001440 4562 JMS I XPRCHR /01440-4562 %2
001441 7200 CLA /01441-7200 :@
001442 2116 ISZ SEGCNT /01442-2116 QN
001443 7410 SKP /01443-7410 <H
001444 5260 JMP ROT8 /01444-5260 *0
001445 2120 ROT9, ISZ CHRGEN /01445-2120 QP
001446 2117 ISZ CHRCNT /01446-2117 QO
001447 7410 SKP /01447-7410 <H
001450 5275 JMP ROT10 /01450-5275 *=
001451 5740 ROT4, JMP I LINFLG /01451-5740 /
001452 5735 ROT5, JMP I SEGFLG /01452-5735 /]
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-13
001453 1337 ROT2, TAD RSSGFL /01453-1337 K_
001454 3335 DCA SEGFLG /01454-3335 []
001455 4513 JMS I PTTMSR /01455-4513 %K
001456 4461 JMS I XERR3 /01456-4461 $1
001457 5232 JMP ROT1 /01457-5232 *Z
001460 1044 ROT8, TAD M20 /01460-1044 H$
001461 3116 DCA SEGCNT /01461-3116 YN
001462 1336 TAD STSGFL /01462-1336 K^
001463 3335 DCA SEGFLG /01463-3335 []
001464 2121 ISZ LINCNT /01464-2121 QQ
001465 5245 JMP ROT9 /01465-5245 *%
001466 4774 JMS I (WIDTH /01466-4774 '<
001467 5245 JMP ROT9 /01467-5245 *%
001470 1043 TAD M4 /01470-1043 H#
001471 3121 DCA LINCNT /01471-3121 YQ
001472 1341 TAD STLNFL /01472-1341 K!
001473 3340 DCA LINFLG /01473-3340 [
001474 5245 JMP ROT9 /01474-5245 *%
001475 1027 ROT10, TAD SPACE /01475-1027 HW
001476 3120 DCA CHRGEN /01476-3120 YP
001477 4423 JMS I XSWI /01477-4423 $S
001500 0375 AND (1000 /01500-0375 C= "DOwN" - 64 CHAR / "UP" - 96 CHAR. OPTION
001501 7650 SNA CLA /01501-7650 >(
001502 5305 JMP .+3 /01502-5305 +E
001503 1035 TAD M96 /01503-1035 H]
001504 7410 SKP /01504-7410 <H
001505 1034 TAD M64 /01505-1034 H\
001506 3117 DCA CHRCNT /01506-3117 YO
001507 5251 JMP ROT4 /01507-5251 *)
001510 1342 ROT6, TAD RSLNFL /01510-1342 K"
001511 3340 DCA LINFLG /01511-3340 [
001512 1337 TAD RSSGFL /01512-1337 K_
001513 3335 DCA SEGFLG /01513-3335 []
001514 4513 JMS I PTTMSR /01514-4513 %K
001515 4462 JMS I XERR4 /01515-4462 $2
001516 4557 JMS I XSKERR /01516-4557 %/
001517 7410 SKP /01517-7410 <H
001520 4463 JMS I XERR5 /01520-4463 $3
001521 4555 JMS I XSKFLG /01521-4555 %-
001522 4464 JMS I XERR6 /01522-4464 $4
001523 1024 TAD LF /01523-1024 HT
001524 4562 JMS I XPRCHR /01524-4562 %2
001525 4514 JMS I SLTMSR /01525-4514 %L
001526 4465 JMS I XERR7 /01526-4465 $5
001527 4773 JMS I (CONTSW /01527-4773 ';
001530 2343 ISZ STRCHR /01530-2343 S#
001531 2344 ISZ STRCNT /01531-2344 S$
001532 5226 JMP ROT11 /01532-5226 *V
001533 4772 JMS I (SEQTST /01533-4772 ':
001534 5214 JMP ROT3 /01534-5214 *L
001535 1432 SEGFLG, ROT1 /01535-1432 LZ
001536 1453 STSGFL, ROT2 /01536-1453 L+
001537 1432 RSSGFL, ROT1 /01537-1432 LZ
001540 1452 LINFLG, ROT5 /01540-1452 L*
001541 1510 STLNFL, ROT6 /01541-1510 MH
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-14
001542 1452 RSLNFL, ROT5 /01542-1452 L*
001543 0000 STRCHR, 0 /01543-0000 @@
001544 0000 STRCNT, 0 /01544-0000 @@
001572 2301
001573 3711
001574 2307
001575 1000
001576 5400
001577 0003
1600 PAGE
001600 0000 TST6, 0 /01600-0000 @@ TEST 4
001601 7200 CLA /01601-7200 :@
001602 1377 TAD (4 /01602-1377 K?
001603 4776 JMS I (PRTHDR /01603-4776 '>
001604 1031 TAD QUESTN /01604-1031 HY
001605 3120 DCA CHRGEN /01605-3120 YP
001606 1041 TAD M80 /01606-1041 H!
001607 3370 DCA T6LNLG /01607-3370 [8
001610 1041 TAD M80 /01610-1041 H!
001611 3366 DCA T6LNCT /01611-3366 [6
001612 1044 TAD M20 /01612-1044 H$
001613 3116 DCA SEGCNT /01613-3116 YN
001614 1043 TAD M4 /01614-1043 H#
001615 3121 DCA LINCNT /01615-3121 YQ
001616 4557 T61, JMS I XSKERR /01616-4557 %/
001617 7410 SKP /01617-7410 <H
001620 4457 JMS I XERR1 /01620-4457 $/
001621 4555 JMS I XSKFLG /01621-4555 %-
001622 4460 JMS I XERR2 /01622-4460 $0
001623 1120 TAD CHRGEN /01623-1120 IP
001624 4562 JMS I XPRCHR /01624-4562 %2
001625 7200 CLA /01625-7200 :@
001626 2116 ISZ SEGCNT /01626-2116 QN
001627 5235 JMP T65 /01627-5235 *]
001630 7200 CLA /01630-7200 :@
001631 1044 TAD M20 /01631-1044 H$
001632 3116 DCA SEGCNT /01632-3116 YN
001633 4513 JMS I PTTMSR /01633-4513 %K
001634 4464 JMS I XERR6 /01634-4464 $4
001635 2366 T65, ISZ T6LNCT /01635-2366 S6
001636 5216 JMP T61 /01636-5216 *N
001637 4557 JMS I XSKERR /01637-4557 %/
001640 7410 SKP /01640-7410 <H
001641 4461 JMS I XERR3 /01641-4461 $1
001642 4555 JMS I XSKFLG /01642-4555 %-
001643 4462 JMS I XERR4 /01643-4462 $2
001644 7200 CLA /01644-7200 :@
001645 1024 TAD LF /01645-1024 HT
001646 4562 JMS I XPRCHR /01646-4562 %2
001647 4514 JMS I SLTMSR /01647-4514 %L
001650 4463 JMS I XERR5 /01650-4463 $3
001651 4775 JMS I (CONTSW /01651-4775 '=
001652 7200 CLA /01652-7200 :@
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-15
001653 1044 TAD M20 /01653-1044 H$
001654 3116 DCA SEGCNT /01654-3116 YN
001655 2370 ISZ T6LNLG /01655-2370 S8
001656 7410 SKP /01656-7410 <H
001657 5263 JMP T6PT2 /01657-5263 *3
001660 1370 TAD T6LNLG /01660-1370 K8
001661 3366 DCA T6LNCT /01661-3366 [6
001662 5216 JMP T61 /01662-5216 *N
001663 1041 T6PT2, TAD M80 /01663-1041 H!
001664 3122 DCA CYCCNT /01664-3122 YR
001665 1044 TAD M20 /01665-1044 H$
001666 3116 DCA SEGCNT /01666-3116 YN
001667 1043 TAD M4 /01667-1043 H#
001670 3121 DCA LINCNT /01670-3121 YQ
001671 4557 T66, JMS I XSKERR /01671-4557 %/
001672 7410 SKP /01672-7410 <H
001673 4475 JMS I XERR15 /01673-4475 $=
001674 4555 JMS I XSKFLG /01674-4555 %-
001675 4465 JMS I XERR7 /01675-4465 $5
001676 1120 TAD CHRGEN /01676-1120 IP
001677 4562 JMS I XPRCHR /01677-4562 %2
001700 7200 CLA /01700-7200 :@
001701 2116 ISZ SEGCNT /01701-2116 QN
001702 5271 JMP T66 /01702-5271 *9
001703 7200 CLA /01703-7200 :@
001704 1044 TAD M20 /01704-1044 H$
001705 3116 DCA SEGCNT /01705-3116 YN
001706 4513 JMS I PTTMSR /01706-4513 %K
001707 4466 JMS I XERR8 /01707-4466 $6
001710 2121 ISZ LINCNT /01710-2121 QQ
001711 5271 JMP T66 /01711-5271 *9
001712 4774 JMS I (WIDTH /01712-4774 '<
001713 5271 JMP T66 /01713-5271 *9
001714 1043 TAD M4 /01714-1043 H#
001715 3121 DCA LINCNT /01715-3121 YQ
001716 4557 JMS I XSKERR /01716-4557 %/
001717 7410 SKP /01717-7410 <H
001720 4467 JMS I XERR9 /01720-4467 $7
001721 4555 JMS I XSKFLG /01721-4555 %-
001722 4470 JMS I XERR10 /01722-4470 $8
001723 1024 TAD LF /01723-1024 HT
001724 4562 JMS I XPRCHR /01724-4562 %2
001725 4514 JMS I SLTMSR /01725-4514 %L
001726 4471 JMS I XERR11 /01726-4471 $9
001727 4775 JMS I (CONTSW /01727-4775 '=
001730 2122 ISZ CYCCNT /01730-2122 QR
001731 5336 JMP .+5 /01731-5336 +^
001732 4775 JMS I (CONTSW /01732-4775 '=
001733 4773 JMS I (SEQTST /01733-4773 ';
001734 7200 CLA /01734-7200 :@
001735 5204 JMP TST6+4 /01735-5204 *D
001736 7200 CLA /01736-7200 :@
001737 1042 TAD P80 /01737-1042 H"
001740 1122 TAD CYCCNT /01740-1122 IR
001741 7041 CMA IAC /01741-7041 8!
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-16
001742 3367 DCA T6SPCT /01742-3367 [7
001743 4557 T69, JMS I XSKERR /01743-4557 %/
001744 7410 SKP /01744-7410 <H
001745 4472 JMS I XERR12 /01745-4472 $:
001746 4555 JMS I XSKFLG /01746-4555 %-
001747 4473 JMS I XERR13 /01747-4473 $;
001750 1027 TAD SPACE /01750-1027 HW
001751 4562 JMS I XPRCHR /01751-4562 %2
001752 7200 CLA /01752-7200 :@
001753 2116 ISZ SEGCNT /01753-2116 QN
001754 5363 JMP T68 /01754-5363 +3
001755 7200 CLA /01755-7200 :@
001756 1044 TAD M20 /01756-1044 H$
001757 3116 DCA SEGCNT /01757-3116 YN
001760 4513 JMS I PTTMSR /01760-4513 %K
001761 4474 JMS I XERR14 /01761-4474 $<
001762 5772 JMP I (T6NEXT /01762-5772 /:
001763 2367 T68, ISZ T6SPCT /01763-2367 S7
001764 5343 JMP T69 /01764-5343 +#
001765 5271 JMP T66 /01765-5271 *9
001766 0000 T6LNCT, 0 /01766-0000 @@
001767 0000 T6SPCT, 0 /01767-0000 @@
001770 0000 T6LNLG, 0 /01770-0000 @@
001772 3657
001773 2301
001774 2307
001775 3711
001776 5400
001777 0004
2000 PAGE
002000 0000 SCP1, 0 /02000-0000 @@
002001 4557 JMS I XSKERR /02001-4557 %/
002002 7410 SKP /02002-7410 <H
002003 5201 JMP .-2 /02003-5201 *A
002004 4513 JMS I PTTMSR /02004-4513 %K
002005 4777 JMS I (TYCHFL /02005-4777 '?
002006 4555 JMS I XSKFLG /02006-4555 %-
002007 5206 JMP .-1 /02007-5206 *F
002010 7200 CLA /02010-7200 :@
002011 1031 TAD QUESTN /02011-1031 HY
002012 4561 JMS I XSTINT /02012-4561 %1
002013 4563 JMS I XCLINT /02013-4563 %3
002014 4560 JMS I XCPCHR /02014-4560 %0
002015 4556 JMS I XCLFLG /02015-4556 %.
002016 4562 JMS I XPRCHR /02016-4562 %2
002017 7200 CLA /02017-7200 :@
002020 1025 TAD CR /02020-1025 HU
002021 4562 JMS I XPRCHR /02021-4562 %2
002022 4513 JMS I PTTMSR /02022-4513 %K
002023 4777 JMS I (TYCHFL /02023-4777 '?
002024 4555 JMS I XSKFLG /02024-4555 %-
002025 5224 JMP .-1 /02025-5224 *T
002026 7200 CLA /02026-7200 :@
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-17
002027 1024 TAD LF /02027-1024 HT
002030 4562 JMS I XPRCHR /02030-4562 %2
002031 5600 JMP I SCP1 /02031-5600 .@
002032 0000 HAMALN, 0 /02032-0000 @@ TEST 5
002033 7200 CLA /02033-7200 :@
002034 1376 TAD (5 /02034-1376 K>
002035 4775 JMS I (PRTHDR /02035-4775 '=
002036 7200 CLA /02036-7200 :@
002037 1374 TAD (-76 /02037-1374 K<
002040 3270 DCA HAMCNT /02040-3270 Z8
002041 4773 HAM1, JMS I (CONTSW /02041-4773 ';
002042 7200 CLA /02042-7200 :@
002043 1041 TAD M80 /02043-1041 H!
002044 3121 DCA LINCNT /02044-3121 YQ
002045 1033 TAD EES /02045-1033 H[
002046 3056 DCA CHAR /02046-3056 X.
002047 1056 TAD CHAR /02047-1056 H.
002050 4555 JMS I XSKFLG /02050-4555 %-
002051 5250 JMP .-1 /02051-5250 *(
002052 6666 PCLP /02052-6666 66
002053 6661 PSKF /02053-6661 61
002054 5253 JMP .-1 /02054-5253 *+
002055 2121 ISZ LINCNT /02055-2121 QQ
002056 5250 JMP .-6 /02056-5250 *(
002057 7200 CLA /02057-7200 :@
002060 1024 TAD LF /02060-1024 HT
002061 4555 JMS I XSKFLG /02061-4555 %-
002062 5261 JMP .-1 /02062-5261 *1
002063 4562 JMS I XPRCHR /02063-4562 %2
002064 2270 ISZ HAMCNT /02064-2270 R8
002065 5241 JMP HAM1 /02065-5241 *!
002066 4772 JMS I (SEQTST /02066-4772 ':
002067 5236 JMP HAMALN+4 /02067-5236 *^
002070 0000 HAMCNT, 0 /02070-0000 @@
002071 0000 SLWTST, 0 /02071-0000 @@ TEST 6
002072 7200 CLA /02072-7200 :@
002073 1371 TAD (6 /02073-1371 K9
002074 4775 JMS I (PRTHDR /02074-4775 '=
002075 7200 CLA /02075-7200 :@
002076 1332 TAD SLTBPT /02076-1332 KZ
002077 3012 DCA TABPTR /02077-3012 XJ
002100 1370 TAD (TABSTR-TABEND-1 /02100-1370 K8
002101 3333 DCA TABCNT /02101-3333 [[
002102 7200 SLW1, CLA /02102-7200 :@
002103 1041 TAD M80 /02103-1041 H!
002104 3121 DCA LINCNT /02104-3121 YQ
002105 1033 TAD EES /02105-1033 H[
002106 4555 JMS I XSKFLG /02106-4555 %-
002107 5306 JMP .-1 /02107-5306 +F
002110 4562 JMS I XPRCHR /02110-4562 %2
002111 2121 ISZ LINCNT /02111-2121 QQ
002112 5306 JMP .-4 /02112-5306 +F
002113 7200 CLA /02113-7200 :@
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-18
002114 1412 TAD I TABPTR /02114-1412 LJ
002115 3334 DCA SLWCNT /02115-3334 [\
002116 1024 TAD LF /02116-1024 HT
002117 4555 JMS I XSKFLG /02117-4555 %-
002120 5317 JMP .-1 /02120-5317 +O
002121 4562 JMS I XPRCHR /02121-4562 %2
002122 2334 ISZ SLWCNT /02122-2334 S\
002123 5317 JMP .-4 /02123-5317 +O
002124 4773 JMS I (CONTSW /02124-4773 ';
002125 2333 ISZ TABCNT /02125-2333 S[
002126 5302 JMP SLW1 /02126-5302 +B
002127 4773 JMS I (CONTSW /02127-4773 ';
002130 4772 JMS I (SEQTST /02130-4772 ':
002131 5275 JMP SLWTST+4 /02131-5275 *=
002132 2134 SLTBPT, TABSTR-1 /02132-2134 Q\
002133 0000 TABCNT, 0 /02133-0000 @@
002134 0000 SLWCNT, 0 /02134-0000 @@
002135 7775 TABSTR, -3 /02135-7775 ?=
002136 7776 -2 /02136-7776 ?>
002137 7766 -12 /02137-7766 ?6
002140 7762 -16 /02140-7762 ?2
002141 7772 -6 /02141-7772 ?:
002142 7775 -3 /02142-7775 ?=
002143 7770 -10 /02143-7770 ?8
002144 7774 -4 /02144-7774 ?<
002145 7773 -5 /02145-7773 ?;
002146 7773 -5 /02146-7773 ?;
002147 7775 TABEND, -3 /02147-7775 ?=
002170 7765
002171 0006
002172 2301
002173 3711
002174 7702
002175 5400
002176 0005
002177 4256
2200 PAGE
002200 0000 PRTTIM, 0 /02200-0000 @@
002201 4557 JMS I XSKERR /02201-4557 %/
002202 7410 SKP /02202-7410 <H
002203 4067 JMS XERR9 /02203-4067 7
002204 7300 CLA CLL /02204-7300 ;@
002205 1223 TAD PTIMU /02205-1223 JS
002206 3226 DCA PTCNT2 /02206-3226 ZV
002207 1224 ZZ1, TAD PTIML /02207-1224 JT
002210 3225 DCA PTCNT1 /02210-3225 ZU
002211 4555 JMS I XSKFLG /02211-4555 %- 38 + 510
002212 7410 SKP /02212-7410 <H 12
002213 5221 JMP .+6 /02213-5221 *Q
002214 2225 ISZ PTCNT1 /02214-2225 RU 26
002215 5211 JMP .-4 /02215-5211 *I 12 sum = 598 * 64 = 38'272
002216 2226 ISZ PTCNT2 /02216-2226 RV * 176 = 6'735'872
002217 5207 JMP ZZ1 /02217-5207 *G
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-19
002220 5600 JMP I PRTTIM /02220-5600 .@
002221 2200 ISZ PRTTIM /02221-2200 R@
002222 5600 JMP I PRTTIM /02222-5600 .@
002223 7520 PTIMU, -260 /02223-7520 =P
002224 7700 PTIML, -100 /02224-7700 ?@
002225 0000 PTCNT1, 0 /02225-0000 @@
002226 0000 PTCNT2, 0 /02226-0000 @@
002227 0000 SLWTIM, 0 /02227-0000 @@
002230 7300 CLA CLL /02230-7300 ;@
002231 1247 TAD SLTIMU /02231-1247 J'
002232 3252 DCA SLCNT2 /02232-3252 Z*
002233 1250 ZZ2, TAD SLTIML /02233-1250 J(
002234 3251 DCA SLCNT1 /02234-3251 Z)
002235 4555 JMS I XSKFLG /02235-4555 %-
002236 7410 SKP /02236-7410 <H
002237 5245 JMP .+6 /02237-5245 *%
002240 2251 ISZ SLCNT1 /02240-2251 R)
002241 5235 JMP .-4 /02241-5235 *] sum = 598 * 85 = 50'830
002242 2252 ISZ SLCNT2 /02242-2252 R* * 128 = 6'506'240
002243 5233 JMP ZZ2 /02243-5233 *[
002244 5627 JMP I SLWTIM /02244-5627 .W
002245 2227 ISZ SLWTIM /02245-2227 RW
002246 5627 JMP I SLWTIM /02246-5627 .W
002247 7600 SLTIMU, -200 /02247-7600 >@ -600 ?
002250 7653 SLTIML, -125 /02250-7653 >+
002251 0000 SLCNT1, 0 /02251-0000 @@
002252 0000 SLCNT2, 0 /02252-0000 @@
002253 0000 TIMRDY, 0 /02253-0000 @@
002254 7200 CLA /02254-7200 :@
002255 1275 TAD RDTIMU /02255-1275 J=
002256 3300 DCA RTMCT2 /02256-3300 [@
002257 1276 ZZ4, TAD RDTIML /02257-1276 J>
002260 3277 DCA RTMCT1 /02260-3277 Z?
002261 4557 ZZ3, JMS I XSKERR /02261-4557 %/
002262 5266 JMP .+4 /02262-5266 *6
002263 7000 NOP /02263-7000 8@
002264 7000 NOP /02264-7000 8@
002265 5777 JMP I (RDER6 /02265-5777 /?
002266 7000 NOP /02266-7000 8@
002267 7000 NOP /02267-7000 8@
002270 2277 ISZ RTMCT1 /02270-2277 R?
002271 5261 JMP ZZ3 /02271-5261 *1
002272 2300 ISZ RTMCT2 /02272-2300 S@
002273 5257 JMP ZZ4 /02273-5257 */
002274 5777 JMP I (RDER6 /02274-5777 /?
002275 4000 RDTIMU, 4000 /02275-4000 @
002276 4000 RDTIML, 4000 /02276-4000 @
002277 0000 RTMCT1, 0 /02277-0000 @@
002300 0000 RTMCT2, 0 /02300-0000 @@
002301 0000 SEQTST, 0 /02301-0000 @@
002302 4423 JMS I XSWI /02302-4423 $S
002303 0170 AND P200 /02303-0170 A8 "DOWN" NORMAL / "UP" SEQUENTIAL
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-20
002304 7640 SZA CLA /02304-7640 >
002305 5776 JMP I (SWRTN /02305-5776 />
002306 5701 JMP I SEQTST /02306-5701 /A
002307 0000 WIDTH, 0 /02307-0000 @@
002310 7200 CLA /02310-7200 :@
002311 1110 TAD WIDFLG /02311-1110 IH
002312 7650 SNA CLA /02312-7650 >(
002313 5332 JMP XEXIT /02313-5332 +Z
002314 5315 JMP OFFSW /02314-5315 +M
002315 1375 OFFSW, TAD (JMP ONSW /02315-1375 K=
002316 3314 DCA .-2 /02316-3314 [L
002317 1052 TAD M12 /02317-1052 H*
002320 3116 DCA SEGCNT /02320-3116 YN
002321 7240 CLA CMA /02321-7240 :
002322 3121 DCA LINCNT /02322-3121 YQ
002323 5707 JMP I WIDTH /02323-5707 /G
002324 1374 ONSW, TAD (JMP OFFSW /02324-1374 K<
002325 3314 DCA OFFSW-1 /02325-3314 [L
002326 1044 TAD M20 /02326-1044 H$
002327 3116 DCA SEGCNT /02327-3116 YN
002330 1043 TAD M4 /02330-1043 H#
002331 3121 DCA LINCNT /02331-3121 YQ
002332 2307 XEXIT, ISZ WIDTH /02332-2307 SG
002333 5707 JMP I WIDTH /02333-5707 /G
002334 0000 WIDRST, 0 /02334-0000 @@
002335 7200 CLA /02335-7200 :@
002336 1374 TAD (JMP OFFSW /02336-1374 K<
002337 3314 DCA OFFSW-1 /02337-3314 [L
002340 5734 JMP I WIDRST /02340-5734 /\
002341 0000 TYPPWR, 0 /02341-0000 @@
002342 4773 JMS I (TYPINT /02342-4773 ';
002343 4772 JMS I (TYPSTR /02343-4772 ':
002344 2347 PWRUP /02344-2347 S'
002345 4771 JMS I (TPCRLF /02345-4771 '9
002346 5741 JMP I TYPPWR /02346-5741 /!
002347 2017 PWRUP, TEXT /POWER UP/
002350 2705
002351 2240
002352 2520
002353 0000
/ISZ 0017 /02347-2017 PO
/ISZ I 2305 /02350-2705 WE
/ISZ 2240 /02351-2240 R
/ISZ I 0120 /02352-2520 UP
/0 /02353-0000 @@
002371 2666
002372 2600
002373 2676
002374 5315
002375 5324
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-21
002376 3255
002377 3513
2400 PAGE
002400 0000 0 /02400-0000 @@
002401 0000 ERR1, 0 /02401-0000 @@
002402 4263 JMS DEC /02402-4263 "3
002403 0000 ERR2, 0 /02403-0000 @@
002404 4263 JMS DEC /02404-4263 "3
002405 0000 ERR3, 0 /02405-0000 @@
002406 4263 JMS DEC /02406-4263 "3
002407 0000 ERR4, 0 /02407-0000 @@
002410 4263 JMS DEC /02410-4263 "3
002411 0000 ERR5, 0 /02411-0000 @@
002412 4263 JMS DEC /02412-4263 "3
002413 0000 ERR6, 0 /02413-0000 @@
002414 4263 JMS DEC /02414-4263 "3
002415 0000 ERR7, 0 /02415-0000 @@
002416 4263 JMS DEC /02416-4263 "3
002417 0000 ERR8, 0 /02417-0000 @@
002420 4263 JMS DEC /02420-4263 "3
002421 0000 ERR9, 0 /02421-0000 @@
002422 4263 JMS DEC /02422-4263 "3
002423 0000 ERR10, 0 /02423-0000 @@
002424 4263 JMS DEC /02424-4263 "3
002425 0000 ERR11, 0 /02425-0000 @@
002426 4263 JMS DEC /02426-4263 "3
002427 0000 ERR12, 0 /02427-0000 @@
002430 4263 JMS DEC /02430-4263 "3
002431 0000 ERR13, 0 /02431-0000 @@
002432 4263 JMS DEC /02432-4263 "3
002433 0000 ERR14, 0 /02433-0000 @@
002434 4263 JMS DEC /02434-4263 "3
002435 0000 ERR15, 0 /02435-0000 @@
002436 4263 JMS DEC /02436-4263 "3
002437 0000 ERR16, 0 /02437-0000 @@
002440 4263 JMS DEC /02440-4263 "3
002441 0000 ERR17, 0 /02441-0000 @@
002442 4263 JMS DEC /02442-4263 "3
002443 0000 ERR18, 0 /02443-0000 @@
002444 4263 JMS DEC /02444-4263 "3
002445 0000 ERR19, 0 /02445-0000 @@
002446 4263 JMS DEC /02446-4263 "3
002447 0000 ERR20, 0 /02447-0000 @@
002450 4263 JMS DEC /02450-4263 "3
002451 0000 ERR21, 0 /02451-0000 @@
002452 4263 JMS DEC /02452-4263 "3
002453 0000 ERR22, 0 /02453-0000 @@
002454 4263 JMS DEC /02454-4263 "3
002455 0000 ERR23, 0 /02455-0000 @@
002456 4263 JMS DEC /02456-4263 "3
002457 0000 ERR24, 0 /02457-0000 @@
002460 4263 JMS DEC /02460-4263 "3
002461 0000 ERR25, 0 /02461-0000 @@
002462 4263 JMS DEC /02462-4263 "3
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-22
002463 0000 DEC, 0 /02463-0000 @@
002464 6002 IOF /02464-6002 0B
002465 7200 CLA /02465-7200 :@
002466 1777 TAD I (SWERR+2 /02466-1777 O?
002467 3776 DCA I (SWERR /02467-3776 _>
002470 1263 TAD DEC /02470-1263 J3
002471 7110 CLL RAR /02471-7110 9H
002472 0323 AND P37 /02472-0323 CS
002473 3123 DCA ERNO /02473-3123 YS
002474 1040 TAD M2 /02474-1040 H
002475 1263 TAD DEC /02475-1263 J3
002476 3324 DCA LOCT /02476-3324 [T
002477 1724 TAD I LOCT /02477-1724 OT
002500 1375 TAD (-1 /02500-1375 K=
002501 3125 DCA LOCA /02501-3125 YU
002502 1125 TAD LOCA /02502-1125 IU
002503 1375 TAD (-1 /02503-1375 K=
002504 7640 SZA CLA /02504-7640 >
002505 5310 JMP .+3 /02505-5310 +H
002506 1774 TAD I (SWERR+1 /02506-1774 O<
002507 3776 DCA I (SWERR /02507-3776 _>
002510 1724 TAD I LOCT /02510-1724 OT
002511 0325 AND P1600 /02511-0325 CU
002512 7112 CLL RTR /02512-7112 9J
002513 7012 RTR /02513-7012 8J
002514 7012 RTR /02514-7012 8J
002515 7010 RAR /02515-7010 8H
002516 1326 TAD LNO /02516-1326 KV
002517 3327 DCA TNO /02517-3327 [W
002520 1727 TAD I TNO /02520-1727 OW
002521 3124 DCA TSTNO /02521-3124 YT
002522 4773 JMS I (TYPERR /02522-4773 ';
002523 0037 P37, 37 /02523-0037 @_
002524 0000 LOCT, 0 /02524-0000 @@
002525 1600 P1600, 1600 /02525-1600 N@
002526 2530 LNO, XNO /02526-2530 UX
002527 0000 TNO, 0 /02527-0000 @@
002530 0001 XNO, AND 0001 /02530-0001 @A
002531 0001 AND 0001 /02531-0001 @A XNO SHOULD BE HERE WVDM
002532 0001 AND 0001 /02532-0001 @A
002533 0001 AND 0001 /02533-0001 @A
002534 0001 AND 0001 /02534-0001 @A
002535 0001 AND 0001 /02535-0001 @A
002536 0002 AND 0002 /02536-0002 @B
002537 0003 AND 0003 /02537-0003 @C
002540 0004 AND 0004 /02540-0004 @D
002573 3006
002574 3051
002575 7777
002576 3050
002577 3052
2600 PAGE
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-23
002600 0000 TYPSTR, 0 /02600-0000 @@
002601 7240 CLA CMA /02601-7240 :
002602 1600 TAD I TYPSTR /02602-1600 N@
002603 3011 DCA 11 /02603-3011 XI
002604 1411 TNEXT, TAD I 11 /02604-1411 LI
002605 7440 SZA /02605-7440 <
002606 5211 JMP .+3 /02606-5211 *I
002607 2200 TYP1, ISZ TYPSTR /02607-2200 R@
002610 5600 JMP I TYPSTR /02610-5600 .@
002611 3237 DCA WORK /02611-3237 Z_
002612 1241 TAD TJMP+1 /02612-1241 J!
002613 3240 DCA TJMP /02613-3240 Z
002614 1237 TAD WORK /02614-1237 J_
002615 0167 AND P77 /02615-0167 A7
002616 7440 SZA /02616-7440 <
002617 5222 JMP .+3 /02617-5222 *R
002620 1242 TAD TJMP+2 /02620-1242 J"
002621 3240 DCA TJMP /02621-3240 Z
002622 3243 DCA THALF /02622-3243 Z#
002623 1237 TAD WORK /02623-1237 J_
002624 7012 RTR /02624-7012 8J
002625 7012 RTR /02625-7012 8J
002626 7012 RTR /02626-7012 8J
002627 0167 AND P77 /02627-0167 A7
002630 4244 JMS TADJ /02630-4244 "$
002631 4255 JMS TYPCHR /02631-4255 "-
002632 5640 JMP I TJMP /02632-5640 .
002633 1243 TYP2, TAD THALF /02633-1243 J#
002634 4244 JMS TADJ /02634-4244 "$
002635 4255 JMS TYPCHR /02635-4255 "-
002636 5204 JMP TNEXT /02636-5204 *D
002637 0000 WORK, 0 /02637-0000 @@
002640 0000 TJMP, 0 /02640-0000 @@
002641 2633 TYP2 /02641-2633 V[
002642 2607 TYP1 /02642-2607 VG
002643 0000 THALF, 0 /02643-0000 @@
002644 0000 TADJ, 0 /02644-0000 @@
002645 3265 DCA CSV /02645-3265 Z5
002646 1265 TAD CSV /02646-1265 J5
002647 0377 AND (40 /02647-0377 C?
002650 7650 SNA CLA /02650-7650 >(
002651 1376 TAD (100 /02651-1376 K>
002652 1375 TAD (200 /02652-1375 K=
002653 1265 TAD CSV /02653-1265 J5
002654 5644 JMP I TADJ /02654-5644 .$
002655 0000 TYPCHR, 0 /02655-0000 @@
002656 6041 TSF /02656-6041 0!
002657 5256 JMP .-1 /02657-5256 *.
002660 6046 TLS /02660-6046 0&
002661 6041 TSF /02661-6041 0!
002662 5261 JMP .-1 /02662-5261 *1
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-24
002663 7200 CLA /02663-7200 :@
002664 5655 JMP I TYPCHR /02664-5655 .-
002665 0000 CSV, 0 /02665-0000 @@
002666 0000 TPCRLF, 0 /02666-0000 @@
002667 7200 CLA /02667-7200 :@
002670 1025 TAD CR /02670-1025 HU
002671 4255 JMS TYPCHR /02671-4255 "-
002672 1024 TAD LF /02672-1024 HT
002673 4255 JMS TYPCHR /02673-4255 "-
002674 6042 TCF /02674-6042 0"
002675 5666 JMP I TPCRLF /02675-5666 .6
002676 0000 TYPINT, 0000 /02676-0000 @@
002677 7300 CLA CLL /02677-7300 ;@
002700 6046 TLS /02700-6046 0&
002701 6041 TSF /02701-6041 0!
002702 5301 JMP .-1 /02702-5301 +A
002703 5676 JMP I TYPINT /02703-5676 .>
002704 0000 CLEAR, 0 /02704-0000 @@
002705 6002 IOF /02705-6002 0B
002706 6042 TCF /02706-6042 0"
002707 6032 KCC /02707-6032 0Z
002710 6662 PCLF /02710-6662 62
002711 6667 PCIE /02711-6667 67
002712 5704 JMP I CLEAR /02712-5704 /D
002775 0200
002776 0100
002777 0040
3000 PAGE
003000 0000 TYPHDR, 0 /03000-0000 @@
003001 4777 JMS I (TYPINT /03001-4777 '?
003002 4776 JMS I (TYPSTR /03002-4776 '>
003003 3075 LINE1 /03003-3075 X=
003004 4775 JMS I (TPCRLF /03004-4775 '=
003005 5600 JMP I TYPHDR /03005-5600 .@
003006 0000 TYPERR, 0 /03006-0000 @@
003007 4777 JMS I (TYPINT /03007-4777 '?
003010 4776 JMS I (TYPSTR /03010-4776 '>
003011 3053 TSTNUM /03011-3053 X+
003012 1124 TAD TSTNO /03012-1124 IT
003013 4774 JMS I (CONVBD /03013-4774 '<
003014 4776 JMS I (TYPSTR /03014-4776 '>
003015 3327 CONVPT /03015-3327 [W
003016 4776 JMS I (TYPSTR /03016-4776 '>
003017 3060 ERRNUM /03017-3060 X0
003020 1123 TAD ERNO /03020-1123 IS
003021 4774 JMS I (CONVBD /03021-4774 '<
003022 4776 JMS I (TYPSTR /03022-4776 '>
003023 3327 CONVPT /03023-3327 [W
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-25
003024 5650 JMP I SWERR /03024-5650 .(
003025 4776 LOERR, JMS I (TYPSTR /03025-4776 '>
003026 3067 LOCATE /03026-3067 X7
003027 1125 TAD LOCA /03027-1125 IU
003030 4773 JMS I (OCTPR /03030-4773 ';
003031 4776 JMS I (TYPSTR /03031-4776 '>
003032 3635 OCTHI /03032-3635 ^]
003033 4775 GOERR, JMS I (TPCRLF /03033-4775 '=
003034 4772 JMS I (CLEAR /03034-4772 ':
003035 4423 JMS I XSWI /03035-4423 $S
003036 7006 RTL /03036-7006 8F "DOWN" CONT / "UP" HALT ERROR
003037 7430 SZL /03037-7430 <X
003040 7410 SKP /03040-7410 <H
003041 5235 JMP .-4 /03041-5235 *]
003042 7010 RAR /03042-7010 8H
003043 5771 JMP I (SW1 /03043-5771 /9
003044 5770 JMP I (SWRTN /03044-5770 /8
003045 4776 IERR, JMS I (TYPSTR /03045-4776 '>
003046 3113 INTERR /03046-3113 YK
003047 5233 JMP GOERR /03047-5233 *[
003050 0000 SWERR, 0 /03050-0000 @@
003051 3045 IERR /03051-3045 X%
003052 3025 LOERR /03052-3025 XU
003053 2405 TSTNUM, TEXT /TEST NO. /
003054 2324
003055 4016
003056 1756
003057 4000
003060 5440 ERRNUM, TEXT /, ERROR NO. /
003061 0522
003062 2217
003063 2240
003064 1617
003065 5640
003066 0000
003067 5440 LOCATE, TEXT /, LOCATION /
003070 1417
003071 0301
003072 2411
003073 1716
003074 4000
003075 1405 LINE1, TEXT "LE8/LP08 LINE PRINTER TEST"
003076 7057
003077 1420
003100 6070
003101 4014
003102 1116
003103 0540
003104 2022
003105 1116
003106 2405
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-26
003107 2240
003110 2405
003111 2324
003112 0000
003113 4011 INTERR, TEXT / INTERRUPT ERROR/
003114 1624
003115 0522
003116 2225
003117 2024
003120 4005
003121 2222
003122 1722
003123 0000
003170 3255
003171 3267
003172 2704
003173 3621
003174 3276
003175 2666
003176 2600
003177 2676
3200 PAGE
003200 4777 START, JMS I (CONSO /03200-4777 '?
003201 5203 JMP .+2 /03201-5203 *C
003202 0000 0 /03202-0000 @@
003203 4776 JMS I (INTIOT /03203-4776 '>
003204 4775 JMS I (PRTWID /03204-4775 '=
003205 4774 JMS I (TYPINT /03205-4774 '<
003206 4773 JMS I (TPCRLF /03206-4773 ';
003207 4772 JMS I (CLEAR /03207-4772 ':
003210 7200 CLA /03210-7200 :@
003211 1274 TAD SFSTSW /03211-1274 J<
003212 3273 DCA FSTSWT /03212-3273 Z;
003213 4771 JMS I (TYPHDR /03213-4771 '9
003214 4770 JMS I (RDYSEQ /03214-4770 '8
003215 4772 JMS I (CLEAR /03215-4772 ':
003216 4136 JMS PRTINT /03216-4136 !^
003217 7610 SKP CLA /03217-7610 >H
003220 4772 DOTST1, JMS I (CLEAR /03220-4772 ':
003221 4767 JMS I (TST1 /03221-4767 '7
003222 7200 STRAGN, CLA /03222-7200 :@
003223 4772 JMS I (CLEAR /03223-4772 ':
003224 4776 JMS I (INTIOT /03224-4776 '>
003225 4775 JMS I (PRTWID /03225-4775 '=
003226 7200 CLA /03226-7200 :@
003227 1275 TAD RFSTSW /03227-1275 J=
003230 3273 DCA FSTSWT /03230-3273 Z;
003231 1265 TAD SWTBPT /03231-1265 J5
003232 3271 DCA SWPTR /03232-3271 Z9
003233 1266 TAD TSTCNT /03233-1266 J6
003234 3263 DCA SWCNT /03234-3263 Z3
003235 4423 JMS I XSWI /03235-4423 $S
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-27
003236 3264 DCA SWSAVE /03236-3264 Z4
003237 1366 TAD (1 /03237-1366 K6
003240 5243 JMP .+3 /03240-5243 *#
003241 1126 SW2, TAD TSTSW /03241-1126 IV
003242 7104 CLL RAL /03242-7104 9D
003243 3126 DCA TSTSW /03243-3126 YV
003244 1264 TAD SWSAVE /03244-1264 J4
003245 7010 RAR /03245-7010 8H
003246 3264 DCA SWSAVE /03246-3264 Z4
003247 4423 JMS I XSWI /03247-4423 $S
003250 0170 AND P200 /03250-0170 A8 "DOWN" NORMAL / "UP" SEQUENTIAL
003251 7640 SZA CLA /03251-7640 >
003252 5267 JMP SW1 /03252-5267 *7
003253 7630 SZL CLA /03253-7630 >X
003254 5267 JMP SW1 /03254-5267 *7
003255 2271 SWRTN, ISZ SWPTR /03255-2271 R9
003256 2263 ISZ SWCNT /03256-2263 R3
003257 5241 JMP SW2 /03257-5241 *!
003260 4765 JMS I (PRPASS /03260-4765 '5
003261 7000 NOP /03261-7000 8@
003262 5222 JMP STRAGN /03262-5222 *R
003263 0000 SWCNT, 0 /03263-0000 @@
003264 0000 SWSAVE, 0 /03264-0000 @@
003265 4527 SWTBPT, JMS I TEST1 /03265-4527 %W
003266 7771 TSTCNT, -7 /03266-7771 ?9
003267 4136 SW1, JMS PRTINT /03267-4136 !^
003270 5673 JMP I FSTSWT /03270-5673 .;
003271 4527 SWPTR, JMS I TEST1 /03271-4527 %W
003272 5255 JMP SWRTN /03272-5255 *-
003273 0000 FSTSWT, 0 /03273-0000 @@
003274 3220 SFSTSW, DOTST1 /03274-3220 ZP
003275 3271 RFSTSW, SWPTR /03275-3271 Z9
003276 0000 CONVBD, 0 /03276-0000 @@
003277 3326 DCA NUM /03277-3326 [V
003300 3331 DCA TENS /03300-3331 [Y
003301 1326 TAD NUM /03301-1326 KV
003302 1036 TAD M10 /03302-1036 H^
003303 7510 SPA /03303-7510 =H
003304 5307 JMP .+3 /03304-5307 +G
003305 2331 ISZ TENS /03305-2331 SY
003306 5302 JMP .-4 /03306-5302 +B
003307 1333 TAD P10 /03307-1333 K[
003310 1166 TAD P60 /03310-1166 I6
003311 3332 DCA UNITS /03311-3332 [Z
003312 1331 TAD TENS /03312-1331 KY
003313 7450 SNA /03313-7450 <(
003314 5324 JMP CON1 /03314-5324 +T
003315 1166 TAD P60 /03315-1166 I6
003316 7106 CLL RTL /03316-7106 9F
003317 7006 RTL /03317-7006 8F
003320 7006 RTL /03320-7006 8F
003321 1332 CON2, TAD UNITS /03321-1332 KZ
003322 3327 DCA CONVPT /03322-3327 [W
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-28
003323 5676 JMP I CONVBD /03323-5676 .>
003324 1334 CON1, TAD SPC /03324-1334 K\
003325 5321 JMP CON2 /03325-5321 +Q
003326 0000 NUM, 0 /03326-0000 @@
003327 4040 CONVPT, 4040 /03327-4040
003330 0000 0 /03330-0000 @@
003331 0000 TENS, 0 /03331-0000 @@
003332 0000 UNITS, 0 /03332-0000 @@
003333 0012 P10, 12 /03333-0012 @J
003334 4000 SPC, 4000 /03334-4000 @
003365 6400
003366 0001
003367 0205
003370 3400
003371 3000
003372 2704
003373 2666
003374 2676
003375 4206
003376 5457
003377 7051
3400 PAGE
003400 0000 RDYSEQ, 0 /03400-0000 @@
003401 4777 JMS I (TYPPWR /03401-4777 '?
003402 7200 CLA /03402-7200 :@
003403 4776 JMS I (KEYFLG /03403-4776 '>
003404 4775 XRDON, JMS I (TYPMS1 /03404-4775 '=
003405 4776 JMS I (KEYFLG /03405-4776 '>
003406 4557 JMS I XSKERR /03406-4557 %/
003407 7410 SKP /03407-7410 <H
003410 5301 JMP RDER1 /03410-5301 +A
003411 4774 JMS I (TYPMS2 /03411-4774 '<
003412 4776 JMS I (KEYFLG /03412-4776 '>
003413 4557 JMS I XSKERR /03413-4557 %/
003414 5303 JMP RDER2 /03414-5303 +C
003415 4775 JMS I (TYPMS1 /03415-4775 '=
003416 4776 JMS I (KEYFLG /03416-4776 '>
003417 4557 JMS I XSKERR /03417-4557 %/
003420 7410 SKP /03420-7410 <H
003421 5305 JMP RDER3 /03421-5305 +E
003422 4773 JMS I (TYPMS3 /03422-4773 ';
003423 4776 JMS I (KEYFLG /03423-4776 '>
003424 4557 JMS I XSKERR /03424-4557 %/
003425 5307 JMP RDER4 /03425-5307 +G
003426 4775 JMS I (TYPMS1 /03426-4775 '=
003427 4776 JMS I (KEYFLG /03427-4776 '>
003430 4557 JMS I XSKERR /03430-4557 %/
003431 7410 SKP /03431-7410 <H
003432 5311 JMP RDER5 /03432-5311 +I
003433 1014 TAD INTPT4 /03433-1014 HL
003434 3001 DCA VECTOR /03434-3001 XA
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-29
003435 4772 JMS I (TYPMS4 /03435-4772 ':
003436 4556 JMS I XCLFLG /03436-4556 %.
003437 4561 JMS I XSTINT /03437-4561 %1
003440 4776 JMS I (KEYFLG /03440-4776 '>
003441 6001 ION /03441-6001 0A
003442 7000 NOP /03442-7000 8@
003443 6002 IOF /03443-6002 0B
003444 4563 JMS I XCLINT /03444-4563 %3
003445 5313 JMP RDER6 /03445-5313 +K
003446 4557 INT4, JMS I XSKERR /03446-4557 %/
003447 5315 JMP RDER7 /03447-5315 +M
003450 4771 JMS I (CLEAR /03450-4771 '9
003451 4770 JMS I (TYPMS6 /03451-4770 '8
003452 4775 JMS I (TYPMS1 /03452-4775 '=
003453 4776 JMS I (KEYFLG /03453-4776 '>
003454 4557 JMS I XSKERR /03454-4557 %/
003455 7610 SKP CLA /03455-7610 >H
003456 5317 JMP RDER8 /03456-5317 +O
003457 4772 JMS I (TYPMS4 /03457-4772 ':
003460 4776 JMS I (KEYFLG /03460-4776 '>
003461 1015 TAD INTPT5 /03461-1015 HM
003462 3001 DCA VECTOR /03462-3001 XA
003463 6001 ION /03463-6001 0A
003464 7000 NOP /03464-7000 8@
003465 6002 IOF /03465-6002 0B
003466 4770 JMS I (TYPMS6 /03466-4770 '8
003467 4775 JMS I (TYPMS1 /03467-4775 '=
003470 4776 JMS I (KEYFLG /03470-4776 '>
003471 4557 JMS I XSKERR /03471-4557 %/
003472 7610 SKP CLA /03472-7610 >H
003473 5323 JMP RDER10 /03473-5323 +S
003474 4767 JMS I (RDER11 /03474-4767 '7
003475 4766 JMS I (TYPMS5 /03475-4766 '6
003476 5600 JMP I RDYSEQ /03476-5600 .@
003477 4563 INT5, JMS I XCLINT /03477-4563 %3
003500 5321 JMP RDER9 /03500-5321 +Q
003501 1365 RDER1, TAD (1 /03501-1365 K5
003502 5324 JMP TPRDER /03502-5324 +T
003503 1364 RDER2, TAD (2 /03503-1364 K4
003504 5324 JMP TPRDER /03504-5324 +T
003505 1363 RDER3, TAD (3 /03505-1363 K3
003506 5324 JMP TPRDER /03506-5324 +T
003507 1362 RDER4, TAD (4 /03507-1362 K2
003510 5324 JMP TPRDER /03510-5324 +T
003511 1361 RDER5, TAD (5 /03511-1361 K1
003512 5324 JMP TPRDER /03512-5324 +T
003513 1360 RDER6, TAD (6 /03513-1360 K0
003514 5324 JMP TPRDER /03514-5324 +T
003515 1357 RDER7, TAD (7 /03515-1357 K/
003516 5324 JMP TPRDER /03516-5324 +T
003517 1356 RDER8, TAD (10 /03517-1356 K.
003520 5324 JMP TPRDER /03520-5324 +T
003521 1355 RDER9, TAD (11 /03521-1355 K-
003522 5324 JMP TPRDER /03522-5324 +T
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-30
003523 1354 RDER10, TAD (12 /03523-1354 K,
003524 3347 TPRDER, DCA RDERNM /03524-3347 ['
003525 4753 JMS I (TYPINT /03525-4753 '+
003526 4752 JMS I (TYPSTR /03526-4752 '*
003527 3537 RDYERR /03527-3537 ]_
003530 1347 TAD RDERNM /03530-1347 K'
003531 4751 JMS I (CONVBD /03531-4751 ')
003532 4752 JMS I (TYPSTR /03532-4752 '*
003533 3327 CONVPT /03533-3327 [W
003534 4750 JMS I (TPCRLF /03534-4750 '(
003535 4776 JMS I (KEYFLG /03535-4776 '>
003536 5204 JMP XRDON /03536-5204 *D
003537 2205 RDYERR, TEXT /READY ERROR NO./
003540 0104
003541 3140
003542 0522
003543 2217
003544 2240
003545 1617
003546 5600
003547 0000 RDERNM, 0 /03547-0000 @@
003550 2666
003551 3276
003552 2600
003553 2676
003554 0012
003555 0011
003556 0010
003557 0007
003560 0006
003561 0005
003562 0004
003563 0003
003564 0002
003565 0001
003566 4165
003567 3600
003570 4200
003571 2704
003572 4155
003573 4145
003574 4135
003575 4127
003576 3606
003577 2341
3600 PAGE
003600 0000 RDER11, 0 /03600-0000 @@
003601 4555 JMS I XSKFLG /03601-4555 %-
003602 7610 SKP CLA /03602-7610 >H
003603 5600 JMP I RDER11 /03603-5600 .@
003604 1377 TAD (13 /03604-1377 K?
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-31
003605 5776 JMP I (TPRDER /03605-5776 />
003606 0000 KEYFLG, 0 /03606-0000 @@
003607 7200 CLA /03607-7200 :@
003610 6032 KCC /03610-6032 0Z
003611 6031 KSF /03611-6031 0Y
003612 5211 JMP .-1 /03612-5211 *I
003613 4775 JMS I (TREAD /03613-4775 '=
003614 2774 ISZ I (TINCNT /03614-2774 W<
003615 4773 JMS I (CHECK /03615-4773 ';
003616 7000 NOP /03616-7000 8@
003617 6032 KCC /03617-6032 0Z
003620 5606 JMP I KEYFLG /03620-5606 .F
003621 0000 OCTPR, 0 /03621-0000 @@
003622 3256 DCA OCTNUM /03622-3256 Z.
003623 1256 TAD OCTNUM /03623-1256 J.
003624 4240 JMS OCTHLF /03624-4240 "
003625 3236 DCA OCTLO /03625-3236 Z^
003626 1256 TAD OCTNUM /03626-1256 J.
003627 7112 CLL RTR /03627-7112 9J
003630 7112 CLL RTR /03630-7112 9J
003631 7112 CLL RTR /03631-7112 9J
003632 4240 JMS OCTHLF /03632-4240 "
003633 3235 DCA OCTHI /03633-3235 Z]
003634 5621 JMP I OCTPR /03634-5621 .Q
003635 4040 OCTHI, JMS 0040 /03635-4040
003636 0000 OCTLO, 0 /03636-0000 @@
003637 0000 0 /03637-0000 @@
003640 0000 OCTHLF, 0 /03640-0000 @@
003641 3254 DCA OCTH1 /03641-3254 Z,
003642 1254 TAD OCTH1 /03642-1254 J,
003643 0372 AND (7 /03643-0372 C:
003644 3255 DCA OCTH2 /03644-3255 Z-
003645 1254 TAD OCTH1 /03645-1254 J,
003646 7106 CLL RTL /03646-7106 9F
003647 7104 CLL RAL /03647-7104 9D
003650 0371 AND (0700 /03650-0371 C9
003651 1255 TAD OCTH2 /03651-1255 J-
003652 1370 TAD (6060 /03652-1370 K8
003653 5640 JMP I OCTHLF /03653-5640 .
003654 0000 OCTH1, 0 /03654-0000 @@
003655 0000 OCTH2, 0 /03655-0000 @@
003656 0000 OCTNUM, 0 /03656-0000 @@
003657 2121 T6NEXT, ISZ LINCNT /03657-2121 QQ
003660 7410 SKP /03660-7410 <H
003661 4767 JMS I (WIDTH /03661-4767 '7
003662 7410 SKP /03662-7410 <H
003663 5766 JMP I (T66 /03663-5766 /6
003664 5765 JMP I (T68 /03664-5765 /5
003665 0000 FRFTIM, 0 /03665-0000 @@
003666 7300 CLA CLL /03666-7300 ;@
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-32
003667 1305 TAD FFTIMU /03667-1305 KE
003670 3310 DCA FFCNT2 /03670-3310 [H
003671 1306 TAD FFTIML /03671-1306 KF
003672 3307 DCA FFCNT1 /03672-3307 [G
003673 4555 JMS I XSKFLG /03673-4555 %-
003674 7410 SKP /03674-7410 <H
003675 5303 JMP .+6 /03675-5303 +C
003676 2307 ISZ FFCNT1 /03676-2307 SG sum = 598 * 376 = 224'848
003677 5273 JMP .-4 /03677-5273 *;
003700 2310 ISZ FFCNT2 /03700-2310 SH 376 * 224'848 = 84'542'848
003701 5271 JMP .-10 /03701-5271 *9
003702 5665 JMP I FRFTIM /03702-5665 .5
003703 2265 ISZ FRFTIM /03703-2265 R5
003704 5665 JMP I FRFTIM /03704-5665 .5
003705 7210 FFTIMU, -570 /03705-7210 :H
003706 7210 FFTIML, -570 /03706-7210 :H
003707 0000 FFCNT1, 0 /03707-0000 @@
003710 0000 FFCNT2, 0 /03710-0000 @@
003711 0000 CONTSW, 0 /03711-0000 @@
003712 4423 JMS I XSWI /03712-4423 $S
003713 0364 AND (4000 /03713-0364 C4 "DOWN" - HALT / "UP" - CONTINUE
003714 7650 SNA CLA /03714-7650 >(
003715 5317 JMP .+2 /03715-5317 +O
003716 5711 JMP I CONTSW /03716-5711 /I
003717 4423 JMS I XSWI /03717-4423 $S
003720 0170 AND P200 /03720-0170 A8 "DOWN" NORMAL / "UP" - SEQUENTIAL
003721 7640 SZA CLA /03721-7640 >
003722 5711 JMP I CONTSW /03722-5711 /I
003723 4423 JMS I XSWI /03723-4423 $S
003724 0126 AND TSTSW /03724-0126 AV
003725 7650 SNA CLA /03725-7650 >(
003726 5763 JMP I (SWRTN /03726-5763 /3
003727 5312 JMP CONTSW+1 /03727-5312 +J
003763 3255
003764 4000
003765 1763
003766 1671
003767 2307
003770 6060
003771 0700
003772 0007
003773 6600
003774 7412
003775 6467
003776 3524
003777 0013
4000 PAGE
004000 1713 SETRDY, TEXT /OK, SET PRINTER TO READY ON-LINE STATE./
004001 5440
004002 2305
004003 2440
004004 2022
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-33
004005 1116
004006 2405
004007 2240
004010 2417
004011 4022
004012 0501
004013 0431
004014 4017
004015 1655
004016 1411
004017 1605
004020 4023
004021 2401
004022 2405
004023 5600
004024 2205 RDYOK, TEXT /READY OK,/
004025 0104
004026 3140
004027 1713
004030 5400
004031 4024 TORNP, TEXT / TRY TORN PAPER SWITCH./
004032 2231
004033 4024
004034 1722
004035 1640
004036 2001
004037 2005
004040 2240
004041 2327
004042 1124
004043 0310
004044 5600
004045 4024 DRMGAT, TEXT / TRY DRUM GATE SWITCH./
004046 2231
004047 4004
004050 2225
004051 1540
004052 0701
004053 2405
004054 4023
004055 2711
004056 2403
004057 1056
004060 0000
004061 4024 INTRUP, TEXT / TRY ERROR INTERRUPT./
004062 2231
004063 4005
004064 2222
004065 1722
004066 4011
004067 1624
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-34
004070 0522
004071 2225
004072 2024
004073 5600
004074 1116 INTOK, TEXT /INITIAL MANUAL TEST O.K., TEST 1 SECTION 1 NEXT./
004075 1124
004076 1101
004077 1440
004100 1501
004101 1625
004102 0114
004103 4024
004104 0523
004105 2440
004106 1756
004107 1356
004110 5440
004111 2405
004112 2324
004113 4061
004114 4023
004115 0503
004116 2411
004117 1716
004120 4061
004121 4016
004122 0530
004123 2456
004124 0000
004125 1713 OKOK, TEXT /OK,/
004126 5400
004127 0000 TYPMS1, 0 /04127-0000 @@
004130 4777 JMS I (TYPINT /04130-4777 '?
004131 4776 JMS I (TYPSTR /04131-4776 '>
004132 4000 SETRDY /04132-4000 @
004133 4775 JMS I (TPCRLF /04133-4775 '=
004134 5727 JMP I TYPMS1 /04134-5727 /W
004135 0000 TYPMS2, 0 /04135-0000 @@
004136 4777 JMS I (TYPINT /04136-4777 '?
004137 4776 JMS I (TYPSTR /04137-4776 '>
004140 4024 RDYOK /04140-4024 T
004141 4776 JMS I (TYPSTR /04141-4776 '>
004142 4031 TORNP /04142-4031 Y
004143 4775 JMS I (TPCRLF /04143-4775 '=
004144 5735 JMP I TYPMS2 /04144-5735 /]
004145 0000 TYPMS3, 0 /04145-0000 @@
004146 4777 JMS I (TYPINT /04146-4777 '?
004147 4776 JMS I (TYPSTR /04147-4776 '>
004150 4024 RDYOK /04150-4024 T
004151 4776 JMS I (TYPSTR /04151-4776 '>
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-35
004152 4045 DRMGAT /04152-4045 %
004153 4775 JMS I (TPCRLF /04153-4775 '=
004154 5745 JMP I TYPMS3 /04154-5745 /%
004155 0000 TYPMS4, 0 /04155-0000 @@
004156 4777 JMS I (TYPINT /04156-4777 '?
004157 4776 JMS I (TYPSTR /04157-4776 '>
004160 4024 RDYOK /04160-4024 T
004161 4776 JMS I (TYPSTR /04161-4776 '>
004162 4061 INTRUP /04162-4061 1
004163 4775 JMS I (TPCRLF /04163-4775 '=
004164 5755 JMP I TYPMS4 /04164-5755 /-
004165 0000 TYPMS5, 0 /04165-0000 @@
004166 4777 JMS I (TYPINT /04166-4777 '?
004167 4776 JMS I (TYPSTR /04167-4776 '>
004170 4074 INTOK /04170-4074 <
004171 4775 JMS I (TPCRLF /04171-4775 '=
004172 5765 JMP I TYPMS5 /04172-5765 /5
004175 2666
004176 2600
004177 2676
4200 PAGE
004200 0000 TYPMS6, 0 /04200-0000 @@
004201 4777 JMS I (TYPINT /04201-4777 '?
004202 4776 JMS I (TYPSTR /04202-4776 '>
004203 6124 INTROK /04203-6124 1T
004204 4775 JMS I (TPCRLF /04204-4775 '=
004205 5600 JMP I TYPMS6 /04205-5600 .@
004206 0000 PRTWID, 0 /04206-0000 @@
004207 7200 CLA /04207-7200 :@
004210 1374 TAD (-10 /04210-1374 K<
004211 3235 DCA CNTR /04211-3235 Z]
004212 4423 JMS I XSWI /04212-4423 $S
004213 0373 AND (400 /04213-0373 C; LINEPRINTER 132 WIDE
004214 7640 SZA CLA /04214-7640 >
004215 5230 JMP PRTW1 /04215-5230 *X
004216 3110 DCA WIDFLG /04216-3110 YH
004217 1372 TAD (TAB80-1 /04217-1372 K:
004220 3010 DCA 0010 /04220-3010 XH
004221 1371 PRTW2, TAD (M80-1 /04221-1371 K9
004222 3011 DCA 0011 /04222-3011 XI
004223 1410 TAD I 0010 /04223-1410 LH
004224 3411 DCA I 0011 /04224-3411 \I
004225 2235 ISZ CNTR /04225-2235 R]
004226 5223 JMP .-3 /04226-5223 *S
004227 5606 JMP I PRTWID /04227-5606 .F
004230 7040 PRTW1, CMA /04230-7040 8
004231 3110 DCA WIDFLG /04231-3110 YH
004232 1370 TAD (TAB132-1 /04232-1370 K8
004233 3010 DCA 0010 /04233-3010 XH
004234 5221 JMP PRTW2 /04234-5221 *Q
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-36
004235 0000 CNTR, 0 /04235-0000 @@
004236 7660 TAB80, -120 /04236-7660 >0
004237 0120 120 /04237-0120 AP
004240 7774 -4 /04240-7774 ?<
004241 7754 -24 /04241-7754 ?,
004242 7757 -21 /04242-7757 ?/
004243 0005 5 /04243-0005 @E
004244 7773 -5 /04244-7773 ?;
004245 0004 4 /04245-0004 @D
004246 7574 TAB132, -204 /04246-7574 =<
004247 0204 204 /04247-0204 BD
004250 7773 -5 /04250-7773 ?;
004251 7750 -30 /04251-7750 ?(
004252 7753 -25 /04252-7753 ?+
004253 0006 6 /04253-0006 @F
004254 7771 -7 /04254-7771 ?9
004255 0006 6 /04255-0006 @F
004256 0000 TYCHFL, 0 /04256-0000 @@
004257 4777 JMS I (TYPINT /04257-4777 '?
004260 4776 JMS I (TYPSTR /04260-4776 '>
004261 4264 CHRFLG /04261-4264 "4
004262 4775 JMS I (TPCRLF /04262-4775 '=
004263 5656 JMP I TYCHFL /04263-5656 ..
004264 0310 CHRFLG, TEXT /CHARACTER FLAG NOT HIGH, RESET PRINTER./
004265 0122
004266 0103
004267 2405
004270 2240
004271 0614
004272 0107
004273 4016
004274 1724
004275 4010
004276 1107
004277 1054
004300 4022
004301 0523
004302 0524
004303 4020
004304 2211
004305 1624
004306 0522
004307 5600
004310 0000 TYCRFL, 0 /04310-0000 @@
004311 4777 JMS I (TYPINT /04311-4777 '?
004312 4776 JMS I (TYPSTR /04312-4776 '>
004313 4316 CRCHFL /04313-4316 #N
004314 4775 JMS I (TPCRLF /04314-4775 '=
004315 5710 JMP I TYCRFL /04315-5710 /H
004316 0310 CRCHFL, TEXT /CHARACTER FLAG NOT HIGH AFTER CR DURING TEST 1 SEC. 4./
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-37
004317 0122
004320 0103
004321 2405
004322 2240
004323 0614
004324 0107
004325 4016
004326 1724
004327 4010
004330 1107
004331 1040
004332 0106
004333 2405
004334 2240
004335 0322
004336 4004
004337 2522
004340 1116
004341 0740
004342 2405
004343 2324
004344 4061
004345 4023
004346 0503
004347 5640
004350 6456
004351 0000
004370 4245
004371 0040
004372 4235
004373 0400
004374 7770
004375 2666
004376 2600
004377 2676
4400 PAGE
004400 0000 SCOPE, 0 /04400-0000 @@ TEST 7
004401 4777 JMS I (TP5MSG /04401-4777 '?
004402 7200 CLA /04402-7200 :@
004403 1376 TAD (7 /04403-1376 K>
004404 4775 JMS I (PRTHDR /04404-4775 '=
004405 4774 JMS I (SEQTST /04405-4774 '<
004406 4423 JMS I XSWI /04406-4423 $S
004407 0373 AND (70 /04407-0373 C;
004410 7450 SNA /04410-7450 <(
004411 5225 JMP SC2 /04411-5225 *U
004412 0372 AND (40 /04412-0372 C:
004413 7440 SZA /04413-7440 <
004414 4771 JMS I (SCP1 /04414-4771 '9
004415 4423 JMS I XSWI /04415-4423 $S
004416 0370 AND (20 /04416-0370 C8
004417 7440 SZA /04417-7440 <
004420 4767 JMS I (PRTSEG /04420-4767 '7
004421 4423 JMS I XSWI /04421-4423 $S
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-38
004422 0366 AND (10 /04422-0366 C6
004423 7440 SZA /04423-7440 <
004424 4765 JMS I (PWRSUP /04424-4765 '5
004425 4764 SC2, JMS I (CONTSW /04425-4764 '4
004426 5205 JMP SCOPE+5 /04426-5205 *E
004564 3711
004565 5075
004566 0010
004567 5000
004570 0020
004571 2000
004572 0040
004573 0070
004574 2301
004575 5400
004576 0007
004577 4600
4600 PAGE
004600 0000 TP5MSG, 0 /04600-0000 @@
004601 4777 JMS I (TYPINT /04601-4777 '?
004602 4776 JMS I (TYPSTR /04602-4776 '>
004603 4626 LINE11 /04603-4626 &V
004604 4775 JMS I (TPCRLF /04604-4775 '=
004605 5621 JMP I TP5SW /04605-5621 .Q
004606 4777 TP51, JMS I (TYPINT /04606-4777 '?
004607 4776 JMS I (TYPSTR /04607-4776 '>
004610 4642 LINE2 /04610-4642 &"
004611 4327 JMS ENDLIN /04611-4327 #W
004612 4776 JMS I (TYPSTR /04612-4776 '>
004613 4655 LINE3 /04613-4655 &-
004614 4327 JMS ENDLIN /04614-4327 #W
004615 4776 JMS I (TYPSTR /04615-4776 '>
004616 4710 LINE4 /04616-4710 'H
004617 4775 JMS I (TPCRLF /04617-4775 '=
004620 5600 TP53, JMP I TP5MSG /04620-5600 .@
004621 4622 TP5SW, TP52 /04621-4622 &R
004622 7200 TP52, CLA /04622-7200 :@
004623 1374 TAD (TP53 /04623-1374 K<
004624 3221 DCA TP5SW /04624-3221 ZQ
004625 5206 JMP TP51 /04625-5206 *F
004626 2305 LINE11, TEXT /SELECT TEST 7 SUB-TEST./
004627 1405
004630 0324
004631 4024
004632 0523
004633 2440
004634 6740
004635 2325
004636 0255
004637 2405
004640 2324
004641 5600
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-39
004642 2327 LINE2, TEXT /SW. 6 --- SCOPE LOOP./
004643 5640
004644 6640
004645 5555
004646 5540
004647 2303
004650 1720
004651 0540
004652 1417
004653 1720
004654 5600
004655 2327 LINE3, TEXT /SW. 7 --- SEGMENT PRINT -- SWS. 9,10 AND 11 SEL. SEG./
004656 5640
004657 6740
004660 5555
004661 5540
004662 2305
004663 0715
004664 0516
004665 2440
004666 2022
004667 1116
004670 2440
004671 5555
004672 4023
004673 2723
004674 5640
004675 7154
004676 6160
004677 4001
004700 1604
004701 4061
004702 6140
004703 2305
004704 1456
004705 4023
004706 0507
004707 5600
004710 2327 LINE4, TEXT /SW. 8 --- POWER SUPPLY TEST./
004711 5640
004712 7040
004713 5555
004714 5540
004715 2017
004716 2705
004717 2240
004720 2325
004721 2020
004722 1431
004723 4024
004724 0523
004725 2456
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-40
004726 0000
004727 0000 ENDLIN, 0 /04727-0000 @@
004730 4775 JMS I (TPCRLF /04730-4775 '=
004731 4777 JMS I (TYPINT /04731-4777 '?
004732 5727 JMP I ENDLIN /04732-5727 /W
004774 4620
004775 2666
004776 2600
004777 2676
5000 PAGE
005000 0000 PRTSEG, 0 /05000-0000 @@
005001 7200 CLA /05001-7200 :@
005002 1044 TAD M20 /05002-1044 H$
005003 3117 DCA CHRCNT /05003-3117 YO
005004 4423 JMS I XSWI /05004-4423 $S
005005 0377 AND (7 /05005-0377 C?
005006 7450 SNA /05006-7450 <(
005007 5600 JMP I PRTSEG /05007-5600 .@
005010 1047 TAD MSGMSK /05010-1047 H'
005011 7500 SMA /05011-7500 =@
005012 5600 JMP I PRTSEG /05012-5600 .@
005013 1050 TAD PSGMSK /05013-1050 H(
005014 1376 TAD (JMPTAB /05014-1376 K>
005015 3234 DCA JMPTAB-1 /05015-3234 Z\
005016 5634 JMP I JMPTAB-1 /05016-5634 .\
005017 7200 PRTS1, CLA /05017-7200 :@
005020 1033 TAD EES /05020-1033 H[
005021 4555 JMS I XSKFLG /05021-4555 %-
005022 5221 JMP .-1 /05022-5221 *Q
005023 4562 JMS I XPRCHR /05023-4562 %2
005024 2117 ISZ CHRCNT /05024-2117 QO
005025 5221 JMP .-4 /05025-5221 *Q
005026 4555 JMS I XSKFLG /05026-4555 %-
005027 5226 JMP .-1 /05027-5226 *V
005030 7200 CLA /05030-7200 :@
005031 1024 TAD LF /05031-1024 HT
005032 4562 JMS I XPRCHR /05032-4562 %2
005033 5600 PRTS6, JMP I PRTSEG /05033-5600 .@
005034 0000 0 /05034-0000 @@
005035 5217 JMPTAB, JMP PRTS1 /05035-5217 *O
005036 5254 JMP PRTS2 /05036-5254 *,
005037 5253 JMP PRTS3 /05037-5253 *+
005040 5252 JMP PRTS4 /05040-5252 **
005041 5243 JMP PRTS5 /05041-5243 *#
005042 1044 TAD M20 /05042-1044 H$
005043 1044 PRTS5, TAD M20 /05043-1044 H$
005044 3274 DCA PRT1 /05044-3274 Z<
005045 4423 JMS I XSWI /05045-4423 $S
005046 0375 AND (400 /05046-0375 C=
005047 7650 SNA CLA /05047-7650 >( "DOwN" 80 COL / "UP" 132 COL
005050 5233 JMP PRTS6 /05050-5233 *[
005051 1274 TAD PRT1 /05051-1274 J<
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-41
005052 1044 PRTS4, TAD M20 /05052-1044 H$
005053 1044 PRTS3, TAD M20 /05053-1044 H$
005054 1044 PRTS2, TAD M20 /05054-1044 H$
005055 3116 DCA SEGCNT /05055-3116 YN
005056 4423 JMS I XSWI /05056-4423 $S
005057 7004 RAL /05057-7004 8D "DOWN" CONT / "UP" HALT ERROR
005060 7700 SMA CLA /05060-7700 ?@
005061 5264 JMP PRTSX /05061-5264 *4
005062 1033 TAD EES /05062-1033 H[
005063 7410 SKP /05063-7410 <H
005064 1027 PRTSX, TAD SPACE /05064-1027 HW
005065 4555 JMS I XSKFLG /05065-4555 %-
005066 5265 JMP .-1 /05066-5265 *5
005067 4562 JMS I XPRCHR /05067-4562 %2
005070 7200 CLA /05070-7200 :@
005071 2116 ISZ SEGCNT /05071-2116 QN
005072 5264 JMP PRTSX /05072-5264 *4
005073 5217 JMP PRTS1 /05073-5217 *O
005074 0000 PRT1, 0 /05074-0000 @@
005075 0000 PWRSUP, 0 /05075-0000 @@
005076 4423 JMS I XSWI /05076-4423 $S
005077 0351 AND PW1000 /05077-0351 C) "DOwN" 64 CHAR / "UP" 96 CHAR
005100 7650 SNA CLA /05100-7650 >(
005101 1774 TAD I (SPC1 /05101-1774 O<
005102 1773 TAD I (SM377 /05102-1773 O;
005103 3352 DCA PWRTMP /05103-3352 [*
005104 4423 JMS I XSWI /05104-4423 $S
005105 0354 AND PW400 /05105-0354 C, "DOwN" 80 COL. / "UP" - 132 COL
005106 7640 SZA CLA /05106-7640 >
005107 7340 CLA CLL CMA /05107-7340 ;
005110 1043 TAD M4 /05110-1043 H#
005111 3121 DCA LINCNT /05111-3121 YQ
005112 7200 CLA /05112-7200 :@
005113 1356 TAD EXCLM /05113-1356 K.
005114 3120 DCA CHRGEN /05114-3120 YP
005115 7300 PWR1, CLA CLL /05115-7300 ;@
005116 1044 TAD M20 /05116-1044 H$
005117 3116 DCA SEGCNT /05117-3116 YN
005120 1120 TAD CHRGEN /05120-1120 IP
005121 4555 JMS I XSKFLG /05121-4555 %-
005122 5321 JMP .-1 /05122-5321 +Q
005123 4562 JMS I XPRCHR /05123-4562 %2
005124 2116 ISZ SEGCNT /05124-2116 QN
005125 5321 JMP .-4 /05125-5321 +Q
005126 2121 ISZ LINCNT /05126-2121 QQ
005127 7410 SKP /05127-7410 <H
005130 5343 JMP PWR2 /05130-5343 +#
005131 7200 CLA /05131-7200 :@
005132 1353 TAD PWR56 /05132-1353 K+
005133 1120 TAD CHRGEN /05133-1120 IP
005134 3120 DCA CHRGEN /05134-3120 YP
005135 1120 TAD CHRGEN /05135-1120 IP
005136 1352 TAD PWRTMP /05136-1352 K*
005137 7510 SPA /05137-7510 =H
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-42
005140 5315 JMP PWR1 /05140-5315 +M
005141 0355 AND PWR77 /05141-0355 C-
005142 5313 JMP PWR1-2 /05142-5313 +K
005143 4555 PWR2, JMS I XSKFLG /05143-4555 %-
005144 5343 JMP .-1 /05144-5343 +#
005145 7200 CLA /05145-7200 :@
005146 1024 TAD LF /05146-1024 HT
005147 4562 JMS I XPRCHR /05147-4562 %2
005150 5675 JMP I PWRSUP /05150-5675 .=
005151 1000 PW1000, 1000 /05151-1000 H@
005152 0000 PWRTMP, 0 /05152-0000 @@
005153 0065 PWR56, 0065 /05153-0065 @5
005154 0400 PW400, 0400 /05154-0400 D@
005155 0077 PWR77, 0077 /05155-0077 @?
005156 0241 EXCLM, 241 /05156-0241 B!
005173 6071
005174 6070
005175 0400
005176 5035
005177 0007
5200 PAGE
005200 0000 0 /05200-0000 @@
005201 7200 TIMO, CLA /05201-7200 :@
005202 1024 TAD LF /05202-1024 HT
005203 4562 JMS I XPRCHR /05203-4562 %2
005204 4555 JMS I XSKFLG /05204-4555 %-
005205 5204 JMP .-1 /05205-5204 *D
005206 7300 CLA CLL /05206-7300 ;@
005207 1256 TAD TM21 /05207-1256 J.
005210 3254 DCA TMC1 /05210-3254 Z,
005211 7300 TMAGN, CLA CLL /05211-7300 ;@
005212 3251 DCA TMC2 /05212-3251 Z)
005213 1255 TAD TM200 /05213-1255 J-
005214 3252 DCA TMC3 /05214-3252 Z*
005215 4423 JMS I XSWI /05215-4423 $S
005216 0777 AND I (SC400 /05216-0777 G? "DOwN" 80 COL / "UP" - 132 COL
005217 7650 SNA CLA /05217-7650 >(
005220 5223 JMP .+3 /05220-5223 *S
005221 1776 TAD I (SC132 /05221-1776 O>
005222 7410 SKP /05222-7410 <H
005223 1775 TAD I (SC80 /05223-1775 O=
005224 3253 DCA TMLEN /05224-3253 Z+
005225 1033 TAD EES /05225-1033 H[
005226 4557 JMS I XSKERR /05226-4557 %/
005227 7410 SKP /05227-7410 <H
005230 5226 JMP .-2 /05230-5226 *V
005231 4562 TMPR, JMS I XPRCHR /05231-4562 %2
005232 4555 JMS I XSKFLG /05232-4555 %-
005233 5232 JMP .-1 /05233-5232 *Z
005234 4557 JMS I XSKERR /05234-4557 %/
005235 7410 SKP /05235-7410 <H
005236 7402 HLT /05236-7402 <B
005237 2253 ISZ TMLEN /05237-2253 R+
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-43
005240 5231 JMP TMPR /05240-5231 *Y
005241 2251 TMLP, ISZ TMC2 /05241-2251 R)
005242 5241 JMP TMLP /05242-5241 *!
005243 2252 ISZ TMC3 /05243-2252 R*
005244 5241 JMP TMLP /05244-5241 *!
005245 2254 ISZ TMC1 /05245-2254 R,
005246 5211 JMP TMAGN /05246-5211 *I
005247 7602 CLA HLT /05247-7602 >B
005250 5201 JMP TIMO /05250-5201 *A
005251 0000 TMC2, 0 /05251-0000 @@
005252 0000 TMC3, 0 /05252-0000 @@
005253 0000 TMLEN, 0 /05253-0000 @@
005254 0000 TMC1, 0 /05254-0000 @@
005255 7600 TM200, -200 /05255-7600 >@
005256 7757 TM21, -21 /05256-7757 ?/
005375 6123
005376 6122
005377 6121
5400 PAGE
005400 0000 PRTHDR, 0 /05400-0000 @@
005401 1377 TAD (260 /05401-1377 K?
005402 3233 DCA HDRNMB /05402-3233 Z[
005403 1052 TAD M12 /05403-1052 H*
005404 3117 DCA CHRCNT /05404-3117 YO
005405 1376 TAD (HEADER-1 /05405-1376 K>
005406 3010 DCA 0010 /05406-3010 XH
005407 7200 CLA /05407-7200 :@
005410 1410 TAD I 0010 /05410-1410 LH
005411 4555 JMS I XSKFLG /05411-4555 %-
005412 5211 JMP .-1 /05412-5211 *I
005413 4562 JMS I XPRCHR /05413-4562 %2
005414 2117 ISZ CHRCNT /05414-2117 QO
005415 5207 JMP .-6 /05415-5207 *G
005416 4555 JMS I XSKFLG /05416-4555 %-
005417 5216 JMP .-1 /05417-5216 *N
005420 7200 CLA /05420-7200 :@
005421 5600 JMP I PRTHDR /05421-5600 .@
005422 0324 HEADER, "T /05422-0324 CT
005423 0305 "E /05423-0305 CE
005424 0323 "S /05424-0323 CS
005425 0324 "T /05425-0324 CT
005426 0240 " /05426-0240 B
005427 0316 "N /05427-0316 CN
005430 0317 "O /05430-0317 CO
005431 0256 ". /05431-0256 B.
005432 0240 " /05432-0240 B
005433 0000 HDRNMB, 0 /05433-0000 @@
005434 0212 212 /05434-0212 BJ LF
005435 0212 212 /05435-0212 BJ LF
005436 0000 CKTS5, 0 /05436-0000 @@
005437 4423 JMS I XSWI /05437-4423 $S
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-44
005440 0375 AND (200 /05440-0375 C= "DOWN" - NORMAL / "UP" - SEQUENTIAL
005441 7650 SNA CLA /05441-7650 >(
005442 5636 JMP I CKTS5 /05442-5636 .^
005443 1126 TAD TSTSW /05443-1126 IV
005444 0374 AND (100 /05444-0374 C<
005445 7650 SNA CLA /05445-7650 >(
005446 5636 JMP I CKTS5 /05446-5636 .^
005447 5773 JMP I (SWRTN /05447-5773 /;
005450 6661 IOTTAB, PSKF /05450-6661 61
005451 6662 PCLF /05451-6662 62
005452 6663 PSKE /05452-6663 63
005453 6664 PSTB /05453-6664 64
005454 6665 PSIE /05454-6665 65
005455 6666 PCLP /05455-6666 66
005456 6667 PCIE /05456-6667 67
005457 0000 INTIOT, 0 /05457-0000 @@
005460 5301 JMP INT1 /05460-5301 +A
005461 7200 CLA /05461-7200 :@
005462 1250 TAD IOTTAB /05462-1250 J(
005463 3306 DCA SKPFLG+1 /05463-3306 [F
005464 1251 TAD IOTTAB+1 /05464-1251 J)
005465 3315 DCA CLRFLG+1 /05465-3315 [M
005466 1252 TAD IOTTAB+2 /05466-1252 J*
005467 3320 DCA SKPERR+1 /05467-3320 [P
005470 1253 TAD IOTTAB+3 /05470-1253 J+
005471 3325 DCA CLPCHR+1 /05471-3325 [U
005472 1254 TAD IOTTAB+4 /05472-1254 J,
005473 3330 DCA SETINT+1 /05473-3330 [X
005474 1255 TAD IOTTAB+5 /05474-1255 J-
005475 3333 DCA PRTCHR+1 /05475-3333 [[
005476 1256 TAD IOTTAB+6 /05476-1256 J.
005477 3336 DCA CLRINT+1 /05477-3336 [^
005500 5657 JMP I INTIOT /05500-5657 ./
005501 7200 INT1, CLA /05501-7200 :@
005502 1372 TAD (JMP I INTIOT /05502-1372 K:
005503 3260 DCA INTIOT+1 /05503-3260 Z0
005504 5261 JMP INTIOT+2 /05504-5261 *1
005505 0000 SKPFLG, 0 /05505-0000 @@
005506 6661 PSKF /05506-6661 61 12
005507 7410 SKP /05507-7410 <H 12
005510 2305 ISZ SKPFLG /05510-2305 SE
005511 4771 JMS I (SAVE /05511-4771 '9 38 + 412
005512 7000 NOP /05512-7000 8@ 12
005513 5705 JMP I SKPFLG /05513-5705 /E 24 sum = 510
005514 0000 CLRFLG, 0 /05514-0000 @@
005515 6662 PCLF /05515-6662 62
005516 5714 JMP I CLRFLG /05516-5714 /L
005517 0000 SKPERR, 0 /05517-0000 @@
005520 6663 PSKE /05520-6663 63
005521 7410 SKP /05521-7410 <H
005522 2317 ISZ SKPERR /05522-2317 SO
005523 5717 JMP I SKPERR /05523-5717 /O
005524 0000 CLPCHR, 0 /05524-0000 @@
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-45
005525 6664 PSTB /05525-6664 64
005526 5724 JMP I CLPCHR /05526-5724 /T
005527 0000 SETINT, 0 /05527-0000 @@
005530 6665 PSIE /05530-6665 65
005531 5727 JMP I SETINT /05531-5727 /W
005532 0000 PRTCHR, 0 /05532-0000 @@
005533 6666 PCLP /05533-6666 66
005534 5732 JMP I PRTCHR /05534-5732 /Z
005535 0000 CLRINT, 0 /05535-0000 @@
005536 6667 PCIE /05536-6667 67
005537 5735 JMP I CLRINT /05537-5735 /]
005571 7257
005572 5657
005573 3255
005574 0100
005575 0200
005576 5421
005577 0260
5600 PAGE
005600 0000 0 /05600-0000 @@
005601 7200 PRTSPD, CLA /05601-7200 :@
005602 1377 TAD ("A /05602-1377 K?
005603 3056 DCA CHAR /05603-3056 X.
005604 4776 JMS I (PRTWID /05604-4776 '>
005605 4136 JMS PRTINT /05605-4136 !^
005606 7200 CLA /05606-7200 :@
005607 1375 TAD (LIN1 /05607-1375 K=
005610 3252 DCA LINSW /05610-3252 Z*
005611 4423 JMS I XSWI /05611-4423 $S
005612 0774 AND I (SC400 /05612-0774 G< "DOwN" 80 COL / "UP" - 132 COL
005613 7640 SZA CLA /05613-7640 >
005614 7040 CMA /05614-7040 8
005615 1043 TAD M4 /05615-1043 H#
005616 3043 DCA M4 /05616-3043 X#
005617 1043 TAD M4 /05617-1043 H#
005620 3122 DCA CYCCNT /05620-3122 YR
005621 1373 TAD (LINTAB-1 /05621-1373 K;
005622 3010 DCA 0010 /05622-3010 XH
005623 4423 JMS I XSWI /05623-4423 $S
005624 7710 SPA CLA /05624-7710 ?H "DOWN" - HALT / "UP" - CONTINUE
005625 5223 JMP .-2 /05625-5223 *S
005626 5652 JMP I LINSW /05626-5652 .*
005627 1254 TAD PM12 /05627-1254 J,
005630 1044 TAD M20 /05630-1044 H$
005631 1044 TAD M20 /05631-1044 H$
005632 1044 TAD M20 /05632-1044 H$
005633 1044 TAD M20 /05633-1044 H$
005634 1044 LIN1, TAD M20 /05634-1044 H$
005635 7000 NOP /05635-7000 8@
005636 3253 DCA LINLEN /05636-3253 Z+
005637 3121 DCA LINCNT /05637-3121 YQ
005640 4563 JMS I XCLINT /05640-4563 %3
005641 4255 JMS PRTCR /05641-4255 "-
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-46
005642 4270 JMS PRTLF /05642-4270 "8
005643 4423 JMS I XSWI /05643-4423 $S
005644 7710 SPA CLA /05644-7710 ?H "DOWN" - HALT / "UP" - CONTINUE
005645 5306 JMP PSTTY /05645-5306 +F
005646 2121 ISZ LINCNT /05646-2121 QQ
005647 5241 JMP .-6 /05647-5241 *!
005650 7402 HLT /05650-7402 <B
005651 5250 JMP .-1 /05651-5250 *(
005652 0000 LINSW, 0 /05652-0000 @@
005653 0000 LINLEN, 0 /05653-0000 @@
005654 7764 PM12, -14 /05654-7764 ?4
005655 0000 PRTCR, 0 /05655-0000 @@
005656 7200 CLA /05656-7200 :@
005657 1253 TAD LINLEN /05657-1253 J+
005660 3117 DCA CHRCNT /05660-3117 YO
005661 4772 JMS I (RANDOM /05661-4772 ':
005662 4555 JMS I XSKFLG /05662-4555 %-
005663 5262 JMP .-1 /05663-5262 *2
005664 4562 JMS I XPRCHR /05664-4562 %2
005665 2117 ISZ CHRCNT /05665-2117 QO
005666 5261 JMP .-5 /05666-5261 *1
005667 5655 JMP I PRTCR /05667-5655 .-
005670 0000 PRTLF, 0 /05670-0000 @@
005671 7200 CLA /05671-7200 :@
005672 1024 TAD LF /05672-1024 HT
005673 4555 JMS I XSKFLG /05673-4555 %-
005674 5273 JMP .-1 /05674-5273 *;
005675 4562 JMS I XPRCHR /05675-4562 %2
005676 7200 CLA /05676-7200 :@
005677 5670 JMP I PRTLF /05677-5670 .8
005700 0000 LINTAB, 0 /05700-0000 @@
005701 0000 0 /05701-0000 @@
005702 0000 0 /05702-0000 @@
005703 0000 0 /05703-0000 @@
005704 0000 0 /05704-0000 @@
005705 0000 0 /05705-0000 @@
005706 7200 PSTTY, CLA /05706-7200 :@
005707 1121 TAD LINCNT /05707-1121 IQ
005710 3410 DCA I 0010 /05710-3410 \H
005711 7040 CMA /05711-7040 8
005712 1252 TAD LINSW /05712-1252 J*
005713 3252 DCA LINSW /05713-3252 Z*
005714 4270 JMS PRTLF /05714-4270 "8
005715 4423 JMS I XSWI /05715-4423 $S
005716 7710 SPA CLA /05716-7710 ?H "DOWN" - HALT / "UP" - CONTINUE
005717 5315 JMP .-2 /05717-5315 +M
005720 2122 ISZ CYCCNT /05720-2122 QR
005721 5652 JMP I LINSW /05721-5652 .*
005722 4771 JMS I (TYPINT /05722-4771 '9
005723 4770 JMS I (TPCRLF /05723-4770 '8
005724 4767 JMS I (TYPTIM /05724-4767 '7
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-47
005725 7402 HLT /05725-7402 <B
005726 5201 JMP PRTSPD /05726-5201 *A
005767 6000
005770 2666
005771 2676
005772 6030
005773 5677
005774 6121
005775 5634
005776 4206
005777 0301
6000 PAGE
006000 0000 TYPTIM, 0 /06000-0000 @@
006001 7200 CLA /06001-7200 :@
006002 1377 TAD (LINTAB-1 /06002-1377 K?
006003 3010 DCA 0010 /06003-3010 XH
006004 4776 JMS I (TYPINT /06004-4776 '>
006005 4775 JMS I (TYPSTR /06005-4775 '=
006006 6323 TIMLN0 /06006-6323 3S
006007 4774 JMS I (ENDLIN /06007-4774 '<
006010 1043 TAD M4 /06010-1043 H#
006011 3122 DCA CYCCNT /06011-3122 YR
006012 1373 TAD (TIMLN1 /06012-1373 K;
006013 3215 DCA .+2 /06013-3215 ZM
006014 4775 JMS I (TYPSTR /06014-4775 '=
006015 6336 TIMLIN, TIMLN1 /06015-6336 3^
006016 4772 JMS I (CONLIN /06016-4772 ':
006017 4775 JMS I (TYPSTR /06017-4775 '=
006020 6267 CONTAB /06020-6267 27
006021 4774 JMS I (ENDLIN /06021-4774 '<
006022 1371 TAD (5 /06022-1371 K9
006023 1215 TAD TIMLIN /06023-1215 JM
006024 3215 DCA TIMLIN /06024-3215 ZM
006025 2122 ISZ CYCCNT /06025-2122 QR
006026 5214 JMP TIMLIN-1 /06026-5214 *L
006027 5600 JMP I TYPTIM /06027-5600 .@
006030 0000 RANDOM, 0 /06030-0000 @@
006031 7300 CLA CLL /06031-7300 ;@
006032 1266 TAD SEED1 /06032-1266 J6
006033 7006 RTL /06033-7006 8F
006034 1267 TAD SEED2 /06034-1267 J7
006035 3266 DCA SEED1 /06035-3266 Z6
006036 1266 TAD SEED1 /06036-1266 J6
006037 7006 RTL /06037-7006 8F
006040 1267 TAD SEED2 /06040-1267 J7
006041 7006 RTL /06041-7006 8F
006042 3267 DCA SEED2 /06042-3267 Z7
006043 1266 TAD SEED1 /06043-1266 J6
006044 0370 AND (377 /06044-0370 C8
006045 3272 DCA STEMP /06045-3272 Z:
006046 1272 TAD STEMP /06046-1272 J:
006047 1367 TAD (-240 /06047-1367 K7
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-48
006050 7700 SMA CLA /06050-7700 ?@
006051 7410 SKP /06051-7410 <H
006052 5231 JMP RANDOM+1 /06052-5231 *Y
006053 4423 JMS I XSWI /06053-4423 $S
006054 7006 RTL /06054-7006 8F "DOwN" 64 CHAR / "UP" 96 CHAR
006055 7700 SMA CLA /06055-7700 ?@
006056 1270 TAD SPC1 /06056-1270 J8
006057 1271 TAD SM377 /06057-1271 J9
006060 1272 TAD STEMP /06060-1272 J:
006061 7710 SPA CLA /06061-7710 ?H
006062 7410 SKP /06062-7410 <H
006063 5231 JMP RANDOM+1 /06063-5231 *Y
006064 1272 TAD STEMP /06064-1272 J:
006065 5630 JMP I RANDOM /06065-5630 .X
006066 0252 SEED1, 252 /06066-0252 B*
006067 4361 SEED2, 4361 /06067-4361 #1
006070 0040 SPC1, 0040 /06070-0040 @
006071 7401 SM377, -377 /06071-7401 <A
006072 0000 STEMP, 0 /06072-0000 @@
006073 0000 0 /06073-0000 @@
006074 5313 SELCH, JMP SC1 /06074-5313 +K
006075 4423 JMS I XSWI /06075-4423 $S
006076 0321 AND SC400 /06076-0321 CQ "DOwN" 80 COL / "UP" 132 COL
006077 7640 SZA CLA /06077-7640 >
006100 5303 JMP .+3 /06100-5303 +C
006101 1323 TAD SC80 /06101-1323 KS
006102 7410 SKP /06102-7410 <H
006103 1322 TAD SC132 /06103-1322 KR
006104 3055 DCA TT3 /06104-3055 X-
006105 4423 JMS I XSWI /06105-4423 $S
006106 6666 PCLP /06106-6666 66
006107 6661 PSKF /06107-6661 61
006110 5307 JMP .-1 /06110-5307 +G
006111 2055 ISZ TT3 /06111-2055 P-
006112 5305 JMP .-5 /06112-5305 +E
006113 7300 SC1, CLA CLL /06113-7300 ;@
006114 1024 TAD LF /06114-1024 HT
006115 6666 PCLP /06115-6666 66
006116 6661 PSKF /06116-6661 61
006117 5316 JMP .-1 /06117-5316 +N
006120 5275 JMP SELCH+1 /06120-5275 *=
006121 0400 SC400, 400 /06121-0400 D@
006122 7574 SC132, -204 /06122-7574 =<
006123 7660 SC80, -120 /06123-7660 >0
006124 1116 INTROK, TEXT /INTERRUPT O.K./
006125 2405
006126 2222
006127 2520
006130 2440
006131 1756
006132 1356
006133 0000
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-49
006167 7540
006170 0377
006171 0005
006172 6200
006173 6336
006174 4727
006175 2600
006176 2676
006177 5677
6200 PAGE
006200 0000 CONLIN, 0 /06200-0000 @@
006201 7200 CLA /06201-7200 :@
006202 1410 TAD I 0010 /06202-1410 LH
006203 4223 JMS CONDIG /06203-4223 "S
006204 4272 JMS FIXDIG /06204-4272 ":
006205 1254 TAD THOUS /06205-1254 J,
006206 7106 CLL RTL /06206-7106 9F
006207 7006 RTL /06207-7006 8F
006210 7006 RTL /06210-7006 8F
006211 1255 TAD HUNDS /06211-1255 J-
006212 3267 DCA CONTAB /06212-3267 Z7
006213 1256 TAD TENS1 /06213-1256 J.
006214 7106 CLL RTL /06214-7106 9F
006215 7006 RTL /06215-7006 8F
006216 7006 RTL /06216-7006 8F
006217 1257 TAD UNITS1 /06217-1257 J/
006220 3270 DCA CONTAB+1 /06220-3270 Z8
006221 5600 JMP I CONLIN /06221-5600 .@
006222 0000 TEMP, 0 /06222-0000 @@
006223 0000 CONDIG, 0 /06223-0000 @@
006224 3222 DCA TEMP /06224-3222 ZR
006225 3254 DCA THOUS /06225-3254 Z,
006226 3255 DCA HUNDS /06226-3255 Z-
006227 3256 DCA TENS1 /06227-3256 Z.
006230 1377 TAD (MPYER+1 /06230-1377 K?
006231 3260 DCA MPYER /06231-3260 Z0
006232 4315 JMS RESTAB /06232-4315 #M
006233 1222 TAD TEMP /06233-1222 JR
006234 1660 ZZ5, TAD I MPYER /06234-1660 N0
006235 7510 SPA /06235-7510 =H
006236 5241 JMP .+3 /06236-5241 *!
006237 2653 ISZ I DIGTAB /06237-2653 V+
006240 5234 JMP .-4 /06240-5234 *\
006241 2260 ISZ MPYER /06241-2260 R0
006242 1660 TAD I MPYER /06242-1660 N0
006243 2253 ISZ DIGTAB /06243-2253 R+
006244 2260 ISZ MPYER /06244-2260 R0
006245 2252 ISZ DIGCNT /06245-2252 R*
006246 5234 JMP ZZ5 /06246-5234 *\
006247 1376 TAD (60 /06247-1376 K>
006250 3257 DCA UNITS1 /06250-3257 Z/
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-50
006251 5623 JMP I CONDIG /06251-5623 .S
006252 0000 DIGCNT, 0 /06252-0000 @@
006253 0000 DIGTAB, 0 /06253-0000 @@
006254 0000 THOUS, 0 /06254-0000 @@
006255 0000 HUNDS, 0 /06255-0000 @@
006256 0000 TENS1, 0 /06256-0000 @@
006257 0000 UNITS1, 0 /06257-0000 @@
006260 0000 MPYER, 0 /06260-0000 @@
006261 6030 -1750 /06261-6030 0X
006262 1750 1750 /06262-1750 O(
006263 7634 -144 /06263-7634 >\
006264 0144 144 /06264-0144 A$
006265 7766 -12 /06265-7766 ?6
006266 0012 12 /06266-0012 @J
006267 0000 CONTAB, 0 /06267-0000 @@
006270 0000 0 /06270-0000 @@
006271 0000 0 /06271-0000 @@
006272 0000 FIXDIG, 0 /06272-0000 @@
006273 4315 JMS RESTAB /06273-4315 #M
006274 1653 TAD I DIGTAB /06274-1653 N+
006275 7440 SZA /06275-7440 <
006276 5305 JMP FIXD1 /06276-5305 +E
006277 1375 TAD (40 /06277-1375 K=
006300 3653 DCA I DIGTAB /06300-3653 ^+
006301 2253 ISZ DIGTAB /06301-2253 R+
006302 2252 ISZ DIGCNT /06302-2252 R*
006303 5274 JMP .-7 /06303-5274 *<
006304 5672 JMP I FIXDIG /06304-5672 .:
006305 1376 FIXD1, TAD (60 /06305-1376 K>
006306 3653 DCA I DIGTAB /06306-3653 ^+
006307 2253 ISZ DIGTAB /06307-2253 R+
006310 1653 TAD I DIGTAB /06310-1653 N+
006311 2252 ISZ DIGCNT /06311-2252 R*
006312 5305 JMP .-5 /06312-5305 +E
006313 7200 CLA /06313-7200 :@
006314 5672 JMP I FIXDIG /06314-5672 .:
006315 0000 RESTAB, 0 /06315-0000 @@
006316 1374 TAD (DIGTAB+1 /06316-1374 K<
006317 3253 DCA DIGTAB /06317-3253 Z+
006320 1051 TAD MIN3 /06320-1051 H)
006321 3252 DCA DIGCNT /06321-3252 Z*
006322 5715 JMP I RESTAB /06322-5715 /M
006323 2022 TIMLN0, TEXT /PRINTER TIMING (LPM)/
006324 1116
006325 2405
006326 2240
006327 2411
006330 1511
006331 1607
006332 4050
006333 1420
006334 1551
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-51
006335 0000
006336 6140 TIMLN1, TEXT /1 SEG. /
006337 2305
006340 0756
006341 4040
006342 0000
006343 6240 TIMLN2, TEXT /2 SEGS. /
006344 2305
006345 0723
006346 5640
006347 0000
006350 6340 TIMLN3, TEXT /3 SEGS. /
006351 2305
006352 0723
006353 5640
006354 0000
006355 6440 TIMLN4, TEXT /4 SEGS. /
006356 2305
006357 0723
006360 5640
006361 0000
006362 6540 TIMLN5, TEXT /5 SEGS. /
006363 2305
006364 0723
006365 5640
006366 0000
006367 6640 TIMLN6, TEXT /6 SEGS. /
006370 2305
006371 0723
006372 5640
006373 0000
006374 6254
006375 0040
006376 0060
006377 6261
6400 PAGE
006400 0000 PRPASS, 0 /06400-0000 @@
006401 7200 CLA /06401-7200 :@
006402 1022 TAD HARD /06402-1022 HR
006403 0377 AND (400 /06403-0377 C?
006404 7640 SZA CLA /06404-7640 >
006405 5213 JMP PROGO /06405-5213 *K
006406 4423 JMS I XSWI /06406-4423 $S
006407 0377 AND (400 /06407-0377 C? "DOwN" 80 COL / "UP" - 132 COL
006410 7640 SZA CLA /06410-7640 >
006411 5600 JMP I PRPASS /06411-5600 .@
006412 5224 JMP PASEXI /06412-5224 *T
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-52
006413 4226 PROGO, JMS PRPAS2 /06413-4226 "V
006414 5224 JMP PASEXI /06414-5224 *T
006415 2244 ISZ PASNUM /06415-2244 R$
006416 4776 JMS I (PRVTAB /06416-4776 '>
006417 4300 JMS PR6BIT /06417-4300 #@
006420 6447 PASTXT /06420-6447 4'
006421 1244 TAD PASNUM /06421-1244 J$
006422 4775 JMS I (PROCT /06422-4775 '=
006423 4776 JMS I (PRVTAB /06423-4776 '>
006424 2200 PASEXI, ISZ PRPASS /06424-2200 R@
006425 5600 JMP I PRPASS /06425-5600 .@
006426 0000 PRPAS2, 0 /06426-0000 @@
006427 1245 TAD PASSW /06427-1245 J%
006430 7640 SZA CLA /06430-7640 >
006431 5236 JMP .+5 /06431-5236 *^
006432 1246 TAD PASNUL /06432-1246 J&
006433 7040 CMA /06433-7040 8
006434 3243 DCA PASTEM /06434-3243 Z#
006435 2245 ISZ PASSW /06435-2245 R%
006436 2243 ISZ PASTEM /06436-2243 R#
006437 5224 JMP PASEXI /06437-5224 *T
006440 3245 DCA PASSW /06440-3245 Z%
006441 2226 ISZ PRPAS2 /06441-2226 RV
006442 5626 JMP I PRPAS2 /06442-5626 .V
006443 0000 PASTEM, 0 /06443-0000 @@
006444 0000 PASNUM, 0 /06444-0000 @@
006445 0000 PASSW, 0 /06445-0000 @@
006446 0000 PASNUL, 0 /06446-0000 @@
006447 0411 PASTXT, TEXT /DILPAN PASS /
006450 1420
006451 0116
006452 4040
006453 2001
006454 2323
006455 4000
006456 0000 SWI, 0 /06456-0000 @@
006457 7200 CLA /06457-7200 :@
006460 4774 JMS I (SAVE /06460-4774 '<
006461 7000 NOP /06461-7000 8@
006462 1021 TAD SWITCH /06462-1021 HQ
006463 7710 SPA CLA /06463-7710 ?H
006464 7614 SKP CLA OSR /06464-7614 >L HARDWARE
006465 1020 TAD SWREG /06465-1020 HP
006466 5656 JMP I SWI /06466-5656 ..
006467 0000 TREAD, 0 /06467-0000 @@
006470 6031 KSF /06470-6031 0Y
006471 5270 JMP .-1 /06471-5270 *8
006472 6036 KRB /06472-6036 0^
006473 0373 AND (177 /06473-0373 C;
006474 1372 TAD (200 /06474-1372 K:
006475 3771 DCA I (TIN /06475-3771 _9
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-53
006476 1771 TAD I (TIN /06476-1771 O9
006477 5667 JMP I TREAD /06477-5667 .7
006500 0000 PR6BIT, 0 /06500-0000 @@
006501 7300 CLA CLL /06501-7300 ;@
006502 1700 TAD I PR6BIT /06502-1700 O@
006503 3333 DCA PR6IND /06503-3333 [[
006504 2300 ISZ PR6BIT /06504-2300 S@
006505 1733 PR61, TAD I PR6IND /06505-1733 O[
006506 0370 AND (7700 /06506-0370 C8
006507 7450 SNA /06507-7450 <(
006510 5700 JMP I PR6BIT /06510-5700 /@
006511 7500 SMA /06511-7500 =@
006512 7020 CML /06512-7020 8P
006513 7001 IAC /06513-7001 8A
006514 7012 RTR /06514-7012 8J
006515 7012 RTR /06515-7012 8J
006516 7012 RTR /06516-7012 8J
006517 4767 JMS I (ECHO /06517-4767 '7
006520 1733 TAD I PR6IND /06520-1733 O[
006521 0366 AND (77 /06521-0366 C6
006522 7450 SNA /06522-7450 <(
006523 5700 JMP I PR6BIT /06523-5700 /@
006524 1365 TAD (3740 /06524-1365 K5
006525 7500 SMA /06525-7500 =@
006526 1364 TAD (100 /06526-1364 K4
006527 1363 TAD (240 /06527-1363 K3
006530 4767 JMS I (ECHO /06530-4767 '7
006531 2333 ISZ PR6IND /06531-2333 S[
006532 5305 JMP PR61 /06532-5305 +E
006533 0000 PR6IND, 0 /06533-0000 @@
006534 0000 WHTSTH, 0 /06534-0000 @@
006535 0000 SETHLT, 0 /06535-0000 @@
006536 7300 CLA CLL /06536-7300 ;@
006537 1022 TAD HARD /06537-1022 HR
006540 0377 AND (400 /06540-0377 C?
006541 7640 SZA CLA /06541-7640 >
006542 5350 JMP .+6 /06542-5350 +(
006543 7040 CMA /06543-7040 8 HARDWARE
006544 1335 TAD SETHLT /06544-1335 K]
006545 3335 DCA SETHLT /06545-3335 []
006546 1362 TAD (HLT /06546-1362 K2
006547 3735 DCA I SETHLT /06547-3735 _]
006550 5735 JMP I SETHLT /06550-5735 /]
006562 7402
006563 0240
006564 0100
006565 3740
006566 0077
006567 7413
006570 7700
006571 7411
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-54
006572 0200
006573 0177
006574 7257
006575 7210
006576 7241
006577 0400
6600 PAGE
006600 0000 CHECK, 0 /06600-0000 @@
006601 3777 DCA I (AC /06601-3777 _?
006602 1022 TAD HARD /06602-1022 HR
006603 0376 AND (400 /06603-0376 C>
006604 7640 SZA CLA /06604-7640 >
006605 5210 JMP .+3 /06605-5210 *H
006606 1777 TAD I (AC /06606-1777 O? HARDWARE
006607 5600 JMP I CHECK /06607-5600 .@
006610 6004 GTF /06610-6004 0D
006611 3775 DCA I (FLAG /06611-3775 _=
006612 7501 MQA /06612-7501 =A
006613 3774 DCA I (MQ /06613-3774 _<
006614 3257 DCA XCNT /06614-3257 Z/
006615 1261 TAD XLIS /06615-1261 J1
006616 3260 DCA XPNT /06616-3260 Z0
006617 1660 NEXT, TAD I XPNT /06617-1660 N0
006620 7450 SNA /06620-7450 <(
006621 5230 JMP UNKN /06621-5230 *X
006622 1773 TAD I (TIN /06622-1773 O;
006623 7650 SNA CLA /06623-7650 >(
006624 5245 JMP KNOWN /06624-5245 *%
006625 2257 ISZ XCNT /06625-2257 R/
006626 2260 ISZ XPNT /06626-2260 R0
006627 5217 JMP NEXT /06627-5217 *O
006630 1772 UNKN, TAD I (TINCNT /06630-1772 O:
006631 7640 SZA CLA /06631-7640 >
006632 5242 JMP .+10 /06632-5242 *"
006633 1773 TAD I (TIN /06633-1773 O;
006634 4771 JMS I (ECHO /06634-4771 '9
006635 1370 TAD ("? /06635-1370 K8
006636 4771 JMS I (ECHO /06636-4771 '9
006637 4767 JMS I (PRVTAB /06637-4767 '7
006640 2200 ISZ CHECK /06640-2200 R@
006641 5600 JMP I CHECK /06641-5600 .@
006642 2200 ISZ CHECK /06642-2200 R@
006643 1773 TAD I (TIN /06643-1773 O;
006644 5600 JMP I CHECK /06644-5600 .@
006645 1773 KNOWN, TAD I (TIN /06645-1773 O;
006646 1366 TAD (100 /06646-1366 K6
006647 3773 DCA I (TIN /06647-3773 _;
006650 1262 TAD XLIS2 /06650-1262 J2
006651 1257 TAD XCNT /06651-1257 J/
006652 3256 DCA XIND /06652-3256 Z.
006653 1656 TAD I XIND /06653-1656 N.
006654 3256 DCA XIND /06654-3256 Z.
006655 5656 JMP I XIND /06655-5656 ..
006656 0000 XIND, 0 /06656-0000 @@
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-55
006657 0000 XCNT, 0 /06657-0000 @@
006660 0000 XPNT, 0 /06660-0000 @@
006661 6663 XLIS, YLIS /06661-6663 63
006662 6674 XLIS2, YLIS2 /06662-6674 6<
006663 7575 YLIS, -"C+100 /06663-7575 ==
006664 7564 -"L+100 /06664-7564 =4
006665 7561 -"O+100 /06665-7561 =1
006666 7557 -"Q+100 /06666-7557 =/
006667 7556 -"R+100 /06667-7556 =.
006670 7555 -"S+100 /06670-7555 =-
006671 7573 -"E+100 /06671-7573 =;
006672 7574 -"D+100 /06672-7574 =<
006673 0000 0 /06673-0000 @@
006674 7200 YLIS2, CTRLC /06674-7200 :@
006675 6735 CTRLL /06675-6735 7]
006676 6743 CTRLO /06676-6743 7#
006677 6704 CTRLQ /06677-6704 7D
006700 6710 CTRLR /06700-6710 7H
006701 6717 CTRLS /06701-6717 7O
006702 6751 CTRLE /06702-6751 7)
006703 7000 CTRLD /06703-7000 8@
006704 3333 CTRLQ, DCA CTSWI /06704-3333 [[
006705 3772 DCA I (TINCNT /06705-3772 _:
006706 4765 JMS I (REST /06706-4765 '5
006707 5734 JMP I CTNXT /06707-5734 /\
006710 4764 CTRLR, JMS I (PCTRL /06710-4764 '4
006711 3333 DCA CTSWI /06711-3333 [[
006712 3772 DCA I (TINCNT /06712-3772 _:
006713 4767 JMS I (PRVTAB /06713-4767 '7
006714 3763 INEXIT, DCA I (INFLG /06714-3763 _3
006715 5716 JMP I .+1 /06715-5716 /N
006716 3200 START /06716-3200 Z@
006717 1333 CTRLS, TAD CTSWI /06717-1333 K[
006720 7640 SZA CLA /06720-7640 >
006721 5326 JMP .+5 /06721-5326 +V
006722 7001 IAC /06722-7001 8A
006723 1200 TAD CHECK /06723-1200 J@
006724 3334 DCA CTNXT /06724-3334 [\
006725 2333 ISZ CTSWI /06725-2333 S[
006726 4762 JMS I (TREAD /06726-4762 '2
006727 4765 JMS I (REST /06727-4765 '5
006730 4200 JMS CHECK /06730-4200 "@
006731 7200 CLA /06731-7200 :@
006732 5317 JMP CTRLS /06732-5317 +O
006733 0000 CTSWI, 0 /06733-0000 @@
006734 0000 CTNXT, 0 /06734-0000 @@
006735 1761 CTRLL, TAD I (ESWI /06735-1761 O1
006736 7040 CMA /06736-7040 8
006737 3761 DCA I (ESWI /06737-3761 _1
006740 4764 JMS I (PCTRL /06740-4764 '4
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-56
006741 4765 JMS I (REST /06741-4765 '5
006742 5600 JMP I CHECK /06742-5600 .@
006743 4764 CTRLO, JMS I (PCTRL /06743-4764 '4
006744 1760 TAD I (WHTSTH /06744-1760 O0
006745 7040 CMA /06745-7040 8
006746 3760 DCA I (WHTSTH /06746-3760 _0
006747 4765 JMS I (REST /06747-4765 '5
006750 5600 JMP I CHECK /06750-5600 .@
006751 4764 CTRLE, JMS I (PCTRL /06751-4764 '4
006752 4765 JMS I (REST /06752-4765 '5
006753 5600 JMP I CHECK /06753-5600 .@
006760 6534
006761 7440
006762 6467
006763 7142
006764 7233
006765 7015
006766 0100
006767 7241
006770 0277
006771 7413
006772 7412
006773 7411
006774 7547
006775 7550
006776 0400
006777 7546
7000 PAGE
007000 4777 CTRLD, JMS I (PCTRL /07000-4777 '?
007001 1213 TAD CTDSW /07001-1213 JK
007002 7640 SZA CLA /07002-7640 >
007003 5207 JMP .+4 /07003-5207 *G
007004 1776 TAD I (CHECK /07004-1776 O>
007005 3214 DCA CTDRET /07005-3214 ZL
007006 2213 ISZ CTDSW /07006-2213 RK
007007 4251 JMS CONSO /07007-4251 ")
007010 3213 DCA CTDSW /07010-3213 ZK
007011 4215 JMS REST /07011-4215 "M
007012 5614 JMP I CTDRET /07012-5614 .L
007013 0000 CTDSW, 0 /07013-0000 @@
007014 0000 CTDRET, 0 /07014-0000 @@
007015 0000 REST, 0 /07015-0000 @@
007016 7200 CLA /07016-7200 :@ 12
007017 1775 TAD I (MQ /07017-1775 O= 38
007020 7421 MQL /07020-7421 <Q 12
007021 1774 TAD I (FLAG /07021-1774 O< 38
007022 7004 RAL /07022-7004 8D 12
007023 7200 CLA /07023-7200 :@ 12
007024 1773 TAD I (AC /07024-1773 O; 38
007025 5615 JMP I REST /07025-5615 .M 26 sum 188
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-57
007026 0000 WAIT, 0 /07026-0000 @@
007027 7300 CLA CLL /07027-7300 ;@
007030 1022 TAD HARD /07030-1022 HR
007031 0372 AND (400 /07031-0372 C:
007032 7650 SNA CLA /07032-7650 >(
007033 5626 JMP I WAIT /07033-5626 .V HARDWARE
007034 4771 JMS I (PR6BIT /07034-4771 '9
007035 7044 WAITIN /07035-7044 8$
007036 4770 JMS I (PRVTAB /07036-4770 '8
007037 4767 JMS I (TREAD /07037-4767 '7
007040 4215 JMS REST /07040-4215 "M
007041 4776 JMS I (CHECK /07041-4776 '>
007042 5626 JMP I WAIT /07042-5626 .V
007043 5227 JMP WAIT+1 /07043-5227 *W
007044 2701 WAITIN, TEXT /WAITING /
007045 1124
007046 1116
007047 0740
007050 0000
007051 0000 CONSO, 0 /07051-0000 @@
007052 7200 CLA /07052-7200 :@
007053 1022 TAD HARD /07053-1022 HR
007054 0372 AND (400 /07054-0372 C:
007055 7650 SNA CLA /07055-7650 >(
007056 5651 JMP I CONSO /07056-5651 .) HARDWARE
007057 1342 TAD INFLG /07057-1342 K"
007060 7640 SZA CLA /07060-7640 >
007061 5766 JMP I (INEXIT /07061-5766 /6
007062 2342 ISZ INFLG /07062-2342 S"
007063 4771 JMS I (PR6BIT /07063-4771 '9
007064 7205 SREQ /07064-7205 :E
007065 1020 TAD SWREG /07065-1020 HP
007066 4765 JMS I (PROCT /07066-4765 '5
007067 1364 TAD (40 /07067-1364 K4
007070 4763 JMS I (ECHO /07070-4763 '3
007071 2762 ISZ I (TINCNT /07071-2762 W2
007072 4761 JMS I (KCMND /07072-4761 '1
007073 4312 JMS INTEST /07073-4312 #J
007074 1760 TAD I (TIN /07074-1760 O0
007075 3020 DCA SWREG /07075-3020 XP
007076 1357 TAD (-3 /07076-1357 K/
007077 3343 DCA INCNT /07077-3343 [#
007100 4761 JMS I (KCMND /07100-4761 '1
007101 4312 JMS INTEST /07101-4312 #J
007102 1020 TAD SWREG /07102-1020 HP
007103 7106 CLL RTL /07103-7106 9F
007104 7004 RAL /07104-7004 8D
007105 1760 TAD I (TIN /07105-1760 O0
007106 3020 DCA SWREG /07106-3020 XP
007107 2343 ISZ INCNT /07107-2343 S#
007110 5300 JMP .-10 /07110-5300 +@
007111 5337 JMP INEND /07111-5337 +_
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-58
007112 0000 INTEST, 0 /07112-0000 @@
007113 7041 CMA IAC /07113-7041 8!
007114 1356 TAD (215 /07114-1356 K.
007115 7650 SNA CLA /07115-7650 >(
007116 5337 JMP INEND /07116-5337 +_
007117 1760 TAD I (TIN /07117-1760 O0
007120 1355 TAD (-"0 /07120-1355 K-
007121 7710 SPA CLA /07121-7710 ?H
007122 5333 JMP INNONU /07122-5333 +[
007123 1760 TAD I (TIN /07123-1760 O0
007124 1354 TAD (-"8 /07124-1354 K,
007125 7700 SMA CLA /07125-7700 ?@
007126 5333 JMP INNONU /07126-5333 +[
007127 1760 TAD I (TIN /07127-1760 O0
007130 0353 AND (7 /07130-0353 C+
007131 3760 DCA I (TIN /07131-3760 _0
007132 5712 JMP I INTEST /07132-5712 /J
007133 1352 INNONU, TAD ("? /07133-1352 K*
007134 4763 JMS I (ECHO /07134-4763 '3
007135 4770 JMS I (PRVTAB /07135-4770 '8
007136 5252 JMP CONSO+1 /07136-5252 **
007137 4770 INEND, JMS I (PRVTAB /07137-4770 '8
007140 3342 DCA INFLG /07140-3342 ["
007141 5651 JMP I CONSO /07141-5651 .)
007142 0000 INFLG, 0 /07142-0000 @@
007143 0000 INCNT, 0 /07143-0000 @@
007152 0277
007153 0007
007154 7510
007155 7520
007156 0215
007157 7775
007160 7411
007161 7400
007162 7412
007163 7413
007164 0040
007165 7210
007166 6714
007167 6467
007170 7241
007171 6500
007172 0400
007173 7546
007174 7550
007175 7547
007176 6600
007177 7233
7200 PAGE
007200 3777 CTRLC, DCA I (ESWI /07200-3777 _?
007201 4233 JMS PCTRL /07201-4233 "[
007202 6203 CIF CDF 0 /07202-6203 2C
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-59
007203 6007 CAF /07203-6007 0G
007204 5776 JMP I (7600 /07204-5776 />
007205 2322 SREQ, TEXT /SR= /
007206 7540
007207 0000
/ISZ 7322 /07205-2322 SR
/SMA SZA /07206-7540 =
/0 /07207-0000 @@
007210 0000 PROCT, 0 /07210-0000 @@
007211 7106 CLL RTL /07211-7106 9F
007212 7006 RTL /07212-7006 8F
007213 3231 DCA PROTEM /07213-3231 ZY
007214 1375 TAD (-4 /07214-1375 K=
007215 3232 DCA PROCNT /07215-3232 ZZ
007216 1231 PRONXT, TAD PROTEM /07216-1231 JY
007217 0374 AND (7 /07217-0374 C<
007220 1373 TAD ("0 /07220-1373 K;
007221 4772 JMS I (ECHO /07221-4772 ':
007222 1231 TAD PROTEM /07222-1231 JY
007223 7006 RTL /07223-7006 8F
007224 7004 RAL /07224-7004 8D
007225 3231 DCA PROTEM /07225-3231 ZY
007226 2232 ISZ PROCNT /07226-2232 RZ
007227 5216 JMP PRONXT /07227-5216 *N
007230 5610 JMP I PROCT /07230-5610 .H
007231 0000 PROTEM, 0 /07231-0000 @@
007232 0000 PROCNT, 0 /07232-0000 @@
007233 0000 PCTRL, 0 /07233-0000 @@
007234 1371 TAD ("^ /07234-1371 K9
007235 4772 JMS I (ECHO /07235-4772 ':
007236 1770 TAD I (TIN /07236-1770 O8
007237 4772 JMS I (ECHO /07237-4772 ':
007240 5633 JMP I PCTRL /07240-5633 .[
007241 0000 PRVTAB, 0 /07241-0000 @@
007242 7300 CLA CLL /07242-7300 ;@
007243 1367 TAD (215 /07243-1367 K7
007244 4772 JMS I (ECHO /07244-4772 ':
007245 1255 TAD XX4 /07245-1255 J-
007246 7040 CMA /07246-7040 8
007247 3256 DCA XXCNT /07247-3256 Z.
007250 1366 TAD (212 /07250-1366 K6
007251 4772 JMS I (ECHO /07251-4772 ':
007252 2256 ISZ XXCNT /07252-2256 R.
007253 5251 JMP .-2 /07253-5251 *)
007254 5641 JMP I PRVTAB /07254-5641 .!
007255 0004 XX4, AND 0004 /07255-0004 @D
007256 0000 XXCNT, 0 /07256-0000 @@
007257 0000 SAVE, 0 /07257-0000 @@
007260 3765 DCA I (AC /07260-3765 _5 38
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-60
007261 6004 GTF /07261-6004 0D 12
007262 3764 DCA I (FLAG /07262-3764 _4 38
007263 7501 MQA /07263-7501 =A 12
007264 3763 DCA I (MQ /07264-3763 _3 38
007265 6031 KSF /07265-6031 0Y 12
007266 5300 JMP SAEX /07266-5300 +@ 12
007267 1022 TAD HARD /07267-1022 HR
007270 0362 AND (400 /07270-0362 C2
007271 7650 SNA CLA /07271-7650 >(
007272 5300 JMP SAEX /07272-5300 +@ HARDWARE
007273 4761 JMS I (TREAD /07273-4761 '1
007274 4760 JMS I (REST /07274-4760 '0
007275 4757 JMS I (CHECK /07275-4757 '/
007276 7000 NOP /07276-7000 8@
007277 2257 ISZ SAVE /07277-2257 R/
007300 4760 SAEX, JMS I (REST /07300-4760 '0 38 + 188
007301 5657 JMP I SAVE /07301-5657 ./ 24 sum = 412
007357 6600
007360 7015
007361 6467
007362 0400
007363 7547
007364 7550
007365 7546
007366 0212
007367 0215
007370 7411
007371 0336
007372 7413
007373 0260
007374 0007
007375 7774
007376 7600
007377 7440
7400 PAGE
007400 0000 KCMND, 0 /07400-0000 @@
007401 4777 JMS I (TREAD /07401-4777 '?
007402 2212 ISZ TINCNT /07402-2212 RJ
007403 4776 JMS I (CHECK /07403-4776 '>
007404 5600 JMP I KCMND /07404-5600 .@
007405 4213 JMS ECHO /07405-4213 "K
007406 3212 DCA TINCNT /07406-3212 ZJ
007407 1211 TAD TIN /07407-1211 JI
007410 5600 JMP I KCMND /07410-5600 .@
007411 0000 TIN, 0 /07411-0000 @@
007412 0000 TINCNT, 0 /07412-0000 @@
007413 0000 ECHO, 0 /07413-0000 @@
007414 3237 DCA ETEMP /07414-3237 Z_
007415 1240 TAD ESWI /07415-1240 J
007416 7640 SZA CLA /07416-7640 >
007417 5226 JMP ELPT /07417-5226 *V
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-61
007420 1237 TAD ETEMP /07420-1237 J_
007421 6046 TLS /07421-6046 0&
007422 6041 TSF /07422-6041 0!
007423 5222 JMP .-1 /07423-5222 *R
007424 6042 TCF /07424-6042 0"
007425 5235 JMP ECLA /07425-5235 *]
007426 1237 ELPT, TAD ETEMP /07426-1237 J_
007427 6666 PCLP /07427-6666 66
007430 4775 JMS I (SAVE /07430-4775 '=
007431 7000 NOP /07431-7000 8@
007432 6661 PSKF /07432-6661 61
007433 5230 JMP .-3 /07433-5230 *X
007434 6662 PCLF /07434-6662 62
007435 7200 ECLA, CLA /07435-7200 :@
007436 5613 JMP I ECHO /07436-5613 .K
007437 0000 ETEMP, 0 /07437-0000 @@
007440 0000 ESWI, 0 /07440-0000 @@
007441 0000 FATAL, 0 /07441-0000 @@
007442 3346 DCA AC /07442-3346 [&
007443 6004 GTF /07443-6004 0D
007444 3350 DCA FLAG /07444-3350 [(
007445 7501 MQA /07445-7501 =A
007446 3347 DCA MQ /07446-3347 ['
007447 7340 CLA CLL CMA /07447-7340 ;
007450 1241 TAD FATAL /07450-1241 J!
007451 3345 DCA PC /07451-3345 [%
007452 1022 TAD HARD /07452-1022 HR
007453 0374 AND (400 /07453-0374 C<
007454 7650 SNA CLA /07454-7650 >(
007455 5312 JMP FANTXT /07455-5312 +J HARDWARE
007456 1773 TAD I (WHTSTH /07456-1773 O;
007457 7640 SZA CLA /07457-7640 >
007460 5305 JMP FANTXT-5 /07460-5305 +E
007461 4772 JMS I (PRVTAB /07461-4772 ':
007462 4771 JMS I (PR6BIT /07462-4771 '9
007463 7521 DILPAN /07463-7521 =Q
007464 4771 JMS I (PR6BIT /07464-4771 '9
007465 7531 DPPC /07465-7531 =Y
007466 1345 TAD PC /07466-1345 K%
007467 4770 JMS I (PROCT /07467-4770 '8
007470 4771 JMS I (PR6BIT /07470-4771 '9
007471 7534 DPAC /07471-7534 =\
007472 1346 TAD AC /07472-1346 K&
007473 4770 JMS I (PROCT /07473-4770 '8
007474 4771 JMS I (PR6BIT /07474-4771 '9
007475 7537 DPMQ /07475-7537 =_
007476 1347 TAD MQ /07476-1347 K'
007477 4770 JMS I (PROCT /07477-4770 '8
007500 4771 JMS I (PR6BIT /07500-4771 '9
007501 7542 DPFL /07501-7542 ="
007502 1350 TAD FLAG /07502-1350 K(
007503 4770 JMS I (PROCT /07503-4770 '8
007504 4772 JMS I (PRVTAB /07504-4772 ':
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-62
007505 4423 JMS I XSWI /07505-4423 $S
007506 7710 SPA CLA /07506-7710 ?H "DOWN" - HALT / "UP" - CONTINUE
007507 5641 JMP I FATAL /07507-5641 .!
007510 4767 JMS I (WAIT /07510-4767 '7
007511 5641 JMP I FATAL /07511-5641 .!
007512 4423 FANTXT, JMS I XSWI /07512-4423 $S
007513 7710 SPA CLA /07513-7710 ?H "DOWN" - HALT / "UP" - CONTINUE
007514 5641 JMP I FATAL /07514-5641 .!
007515 1366 TAD (HLT /07515-1366 K6
007516 3745 DCA I PC /07516-3745 _%
007517 4765 JMS I (REST /07517-4765 '5
007520 5745 JMP I PC /07520-5745 /%
007521 0411 DILPAN, TEXT /DILPAN FAILED /
007522 1420
007523 0116
007524 4040
007525 0601
007526 1114
007527 0504
007530 4000
007531 4040 DPPC, TEXT / PC:/
007532 2003
007533 7200
007534 4040 DPAC, TEXT / AC:/
007535 0103
007536 7200
007537 4040 DPMQ, TEXT / MQ:/
007540 1521
007541 7200
007542 4040 DPFL, TEXT / FL:/
007543 0614
007544 7200
007545 7777 PC, 7777 /07545-7777 ??
007546 7777 AC, 7777 /07546-7777 ??
007547 7777 MQ, 7777 /07547-7777 ??
007550 7777 FLAG, 7777 /07550-7777 ??
007565 7015
007566 7402
007567 7026
007570 7210
007571 6500
007572 7241
007573 6534
007574 0400
007575 7257
007576 6600
007577 6467
/DILPAN PAL8-V50X 04-JAN-89 PAGE 1-63
$
000171 4256
000172 2334
000173 2704
000174 5436
000175 3477
000176 3446
000177 0254
/DILPAN PAL8-V50X 04-JAN-89 PAGE 2
A 0032 ENDLIN 4727 IERR 3045 M200 0037
AC 7546 ERNO 0123 INCNT 7143 M4 0043
AT 0030 ERRNUM 3060 INEND 7137 M64 0034
CHAR 0056 ERR1 2401 INEXIT 6714 M80 0041
CHARSW 0355 ERR10 2423 INFLG 7142 M96 0035
CHECK 6600 ERR11 2425 INNONU 7133 N 1121
CHRCNT 0117 ERR12 2427 INTERR 3113 NEXT 6617
CHRFLG 4264 ERR13 2431 INTEST 7112 NOCHRS 0565
CHRGEN 0120 ERR14 2433 INTIOT 5457 NUM 3326
CKTS5 5436 ERR15 2435 INTOK 4074 OCTHI 3635
CLEAR 2704 ERR16 2437 INTPT1 0111 OCTHLF 3640
CLPCHR 5524 ERR17 2441 INTPT2 0013 OCTH1 3654
CLRFLG 5514 ERR18 2443 INTPT3 0112 OCTH2 3655
CLRINT 5535 ERR19 2445 INTPT4 0014 OCTLO 3636
CNTR 4235 ERR2 2403 INTPT5 0015 OCTNUM 3656
CONDIG 6223 ERR20 2447 INTROK 6124 OCTPR 3621
CONLIN 6200 ERR21 2451 INTRUP 4061 OFFSW 2315
CONSO 7051 ERR22 2453 INT1 5501 OKOK 4125
CONTAB 6267 ERR23 2455 INT2 0254 ONSW 2324
CONTSW 3711 ERR24 2457 INT4 3446 PASEXI 6424
CONVBD 3276 ERR25 2461 INT5 3477 PASNUL 6446
CONVPT 3327 ERR3 2405 IOTTAB 5450 PASNUM 6444
CON1 3324 ERR4 2407 JMPTAB 5035 PASSW 6445
CON2 3321 ERR5 2411 KCMND 7400 PASTEM 6443
CR 0025 ERR6 2413 KEYFLG 3606 PASTXT 6447
CRCHFL 4316 ERR7 2415 KNOWN 6645 PC 7545
CSV 2665 ERR8 2417 LEGCHR 0570 PCIE 6667
CTDRET 7014 ERR9 2421 LF 0024 PCLF 6662
CTDSW 7013 ESWI 7440 LINCNT 0121 PCLP 6666
CTNXT 6734 ETEMP 7437 LINE1 3075 PCTRL 7233
CTRLC 7200 EXCLM 5156 LINE11 4626 PHFLG 1124
CTRLD 7000 FANTXT 7512 LINE2 4642 PM12 5654
CTRLE 6751 FATAL 7441 LINE3 4655 PROCNT 7232
CTRLL 6735 FF 0026 LINE4 4710 PROCT 7210
CTRLO 6743 FFCNT1 3707 LINFLG 1540 PROGO 6413
CTRLQ 6704 FFCNT2 3710 LINLEN 5653 PRONXT 7216
CTRLR 6710 FFTIML 3706 LINSW 5652 PROTEM 7231
CTRLS 6717 FFTIMU 3705 LINTAB 5700 PRPASS 6400
CTSWI 6733 FIXDIG 6272 LIN1 5634 PRPAS2 6426
CYCCNT 0122 FIXD1 6305 LNO 2526 PRTCHR 5532
CYCTST 1123 FLAG 7550 LOCA 0125 PRTCR 5655
DEC 2463 FORLST 0545 LOCATE 3067 PRTHDR 5400
DIGCNT 6252 FORPTR 0544 LOCT 2524 PRTINT 0136
DIGTAB 6253 FRFTIM 3665 LOERR 3025 PRTLF 5670
DILPAN 7521 FRTMSR 0115 MASK1 0552 PRTSEG 5000
DOTST1 3220 FSTSWT 3273 MB4 0551 PRTSPD 5601
DPAC 7534 GO 0360 MIN3 0051 PRTSX 5064
DPFL 7542 GOERR 3033 MPYER 6260 PRTS1 5017
DPMQ 7537 HAMALN 2032 MQ 7547 PRTS2 5054
DPPC 7531 HAMCNT 2070 MSGMSK 0047 PRTS3 5053
DRMGAT 4045 HAM1 2041 M10 0036 PRTS4 5052
ECHO 7413 HARD 0022 M12 0052 PRTS5 5043
ECLA 7435 HDRNMB 5433 M17 0045 PRTS6 5033
EES 0033 HEADER 5422 M2 0040 PRTTIM 2200
ELPT 7426 HUNDS 6255 M20 0044 PRTWID 4206
/DILPAN PAL8-V50X 04-JAN-89 PAGE 2-1
PRTW1 4230 REST 7015 SNCHRS 0566 TIMLN1 6336
PRTW2 4221 RESTAB 6315 SNGCHR 1200 TIMLN2 6343
PRT1 5074 RFSTSW 3275 SPACE 0027 TIMLN3 6350
PRVTAB 7241 RNCHRS 0567 SPC 3334 TIMLN4 6355
PR6BIT 6500 ROTATE 1400 SPCFLG 1127 TIMLN5 6362
PR6IND 6533 ROT1 1432 SPC1 6070 TIMLN6 6367
PR61 6505 ROT10 1475 SPHFL 1126 TIMO 5201
PSGMSK 0050 ROT11 1426 SREQ 7205 TIMRDY 2253
PSIE 6665 ROT2 1453 SSPFL 1131 TIN 7411
PSKE 6663 ROT3 1414 START 3200 TINCNT 7412
PSKF 6661 ROT4 1451 STEMP 6072 TJMP 2640
PSTB 6664 ROT5 1452 STLNFL 1541 TMAGN 5211
PSTTY 5706 ROT6 1510 STRAGN 3222 TMC1 5254
PTCNT1 2225 ROT7 1422 STRCHR 1543 TMC2 5251
PTCNT2 2226 ROT8 1460 STRCNT 1544 TMC3 5252
PTIML 2224 ROT9 1445 STSGFL 1536 TMLEN 5253
PTIMU 2223 RPHFL 1125 SWCNT 3263 TMLP 5241
PTTMSR 0113 RSLNFL 1542 SWERR 3050 TMPR 5231
PWRSUP 5075 RSPFL 1130 SWI 6456 TM200 5255
PWRTMP 5152 RSSGFL 1537 SWITCH 0021 TM21 5256
PWRUP 2347 RTMCT1 2277 SWPTR 3271 TNEXT 2604
PWR1 5115 RTMCT2 2300 SWREG 0020 TNO 2527
PWR2 5143 SAEX 7300 SWRTN 3255 TORNP 4031
PWR56 5153 SAVE 7257 SWSAVE 3264 TPCRLF 2666
PWR77 5155 SCHRSW 0356 SWTBPT 3265 TPRDER 3524
PW1000 5151 SCOPE 4400 SW1 3267 TP5MSG 4600
PW400 5154 SCP1 2000 SW2 3241 TP5SW 4621
P10 3333 SC1 6113 S1 1222 TP51 4606
P1600 2525 SC132 6122 S2 1214 TP52 4622
P200 0170 SC2 4425 S4 1247 TP53 4620
P37 2523 SC400 6121 S7 1270 TREAD 6467
P5 0046 SC80 6123 TABCNT 2133 TSTCNT 3266
P60 0166 SEED1 6066 TABEND 2147 TSTNO 0124
P77 0167 SEED2 6067 TABPTR 0012 TSTNUM 3053
P80 0042 SEGCNT 0116 TABSTR 2135 TSTSW 0126
QUESTN 0031 SEGFLG 1535 TAB132 4246 TST1 0205
RANDOM 6030 SELCH 6074 TAB80 4236 TST1EP 1132
RCHRSW 0357 SEQTST 2301 TADJ 2644 TST11 0612
RDERNM 3547 SETHLT 6535 TEMP 6222 TST3 1000
RDER1 3501 SETINT 5527 TENS 3331 TST38 0600
RDER10 3523 SETRDY 4000 TENS1 6256 TST6 1600
RDER11 3600 SFSTSW 3274 TEST1 0127 TT1 0053
RDER2 3503 SKPERR 5517 TEST2 0130 TT2 0054
RDER3 3505 SKPFLG 5505 TEST2A 0277 TT3 0055
RDER4 3507 SLCNT1 2251 TEST2B 0400 TYCHFL 4256
RDER5 3511 SLCNT2 2252 TEST3 0131 TYCRFL 4310
RDER6 3513 SLTBPT 2132 TEST4 0132 TYPCHR 2655
RDER7 3515 SLTIML 2250 TEST5 0133 TYPERR 3006
RDER8 3517 SLTIMU 2247 TEST6 0134 TYPHDR 3000
RDER9 3521 SLTMSR 0114 TEST7 0135 TYPINT 2676
RDTIML 2276 SLWCNT 2134 THALF 2643 TYPMS1 4127
RDTIMU 2275 SLWTIM 2227 THOUS 6254 TYPMS2 4135
RDYERR 3537 SLWTST 2071 TIMCNT 0276 TYPMS3 4145
RDYOK 4024 SLW1 2102 TIMLIN 6015 TYPMS4 4155
RDYSEQ 3400 SM377 6071 TIMLN0 6323 TYPMS5 4165
/DILPAN PAL8-V50X 04-JAN-89 PAGE 2-2
TYPMS6 4200 XERR13 0073
TYPPWR 2341 XERR14 0074
TYPSTR 2600 XERR15 0075
TYPTIM 6000 XERR16 0076
TYP1 2607 XERR17 0077
TYP2 2633 XERR18 0100
T1 1015 XERR19 0101
T1A 0316 XERR2 0060
T2A 0350 XERR20 0102
T2B0 0420 XERR21 0103
T2B1 0431 XERR22 0104
T2B2 0462 XERR23 0105
T2B3 0502 XERR24 0106
T2B4 0521 XERR25 0107
T2B5 0554 XERR3 0061
T2B6 0532 XERR4 0062
T2B7 0451 XERR5 0063
T2FRCT 0553 XERR6 0064
T3A 0310 XERR7 0065
T3NCNT 1122 XERR8 0066
T4 1060 XERR9 0067
T5 1023 XEXIT 2332
T5A 0322 XIND 6656
T6LNCT 1766 XLIS 6661
T6LNLG 1770 XLIS2 6662
T6NEXT 3657 XNO 2530
T6PT2 1663 XPNT 6660
T6SPCT 1767 XPRCHR 0162
T61 1616 XRDON 3404
T65 1635 XSKERR 0157
T66 1671 XSKFLG 0155
T68 1763 XSTINT 0161
T69 1743 XSWI 0023
T7 1063 XXCNT 7256
T8 1043 XX4 7255
T9 1003 YLIS 6663
UNITS 3332 YLIS2 6674
UNITS1 6257 ZZ1 2207
UNKN 6630 ZZ2 2233
VECTOR 0001 ZZ3 2261
WAIT 7026 ZZ4 2257
WAITIN 7044 ZZ5 6234
WHTSTH 6534 ZZ7 1244
WIDFLG 0110
WIDRST 2334
WIDTH 2307
WORK 2637
XCLFLG 0156
XCLINT 0163
XCNT 6657
XCPCHR 0160
XERR1 0057
XERR10 0070
XERR11 0071
XERR12 0072
ERRORS DETECTED: 0
LINKS GENERATED: 0