File: DILPAN.PA of Tape: Test/Tests/PAL-FILES2
(Source file text)
/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
PSKF=6661
PCLF=6662
PSKE=6663
PSTB=6664
PSIE=6665
PCLP=6666
PCIE=6667
*0000
303 /00000-0303 CC
VECTOR, CLA /00001-7200 :@
1053 /00002-1053 H+
3033 /00003-3033 X[
4500 /00004-4500 %@
2331 /00005-2331 SY
2324 /00006-2324 ST
0515 /00007-0515 EM
0 /00010-0000 @@
0 /00011-0000 @@
TABPTR, 0 /00012-0000 @@
INTPT2, JMP I (INT2 /00013-5777 /?
INTPT4, JMP I (INT4 /00014-5776 />
INTPT5, JMP I (INT5 /00015-5775 /=
1011 /00016-1011 HI
0 /00017-0000 @@
SWREG, 4600 /00020-4600 &@
SWITCH, 4000 /00021-4000 @ HARDWARE = 4000 SOFTWARE = 0000
HARD, 0 /00022-0000 @@ HARDWARE = 0000 SOFTWARE = 0400
XSWI, SWI /00023-6456 4.
LF, 212 /00024-0212 BJ
CR, 215 /00025-0215 BM
FF, 214 /00026-0214 BL
SPACE, 240 /00027-0240 B
AT, 300 /00030-0300 C@
QUESTN, 277 /00031-0277 B?
A, 301 /00032-0301 CA
EES, 305 /00033-0305 CE
M64, -100 /00034-7700 ?@
M96, -140 /00035-7640 >
M10, -12 /00036-7766 ?6
M200, -310 /00037-7470 <8 M1000 = - 1750
M2, -2 /00040-7776 ?>
M80, -120 /00041-7660 >0 -204 M132
P80, 120 /00042-0120 AP 204 P132
M4, -4 /00043-7774 ?< -5 M5
M20, -24 /00044-7754 ?, -30 M24
M17, -21 /00045-7757 ?/ -25 M21
P5, 5 /00046-0005 @E 6 P6
MSGMSK, -5 /00047-7773 ?; -7 M7
PSGMSK, 4 /00050-0004 @D 6 P6
MIN3, -3 /00051-7775 ?=
M12, -14 /00052-7764 ?4
TT1, -100 /00053-7700 ?@
TT2, -62 /00054-7716 ?N
TT3, 0 /00055-0000 @@
CHAR, 0 /00056-0000 @@
XERR1, ERR1 /00057-2401 TA
XERR2, ERR2 /00060-2403 TC
XERR3, ERR3 /00061-2405 TE
XERR4, ERR4 /00062-2407 TG
XERR5, ERR5 /00063-2411 TI
XERR6, ERR6 /00064-2413 TK
XERR7, ERR7 /00065-2415 TM
XERR8, ERR8 /00066-2417 TO
XERR9, ERR9 /00067-2421 TQ
XERR10, ERR10 /00070-2423 TS
XERR11, ERR11 /00071-2425 TU
XERR12, ERR12 /00072-2427 TW
XERR13, ERR13 /00073-2431 TY
XERR14, ERR14 /00074-2433 T[
XERR15, ERR15 /00075-2435 T]
XERR16, ERR16 /00076-2437 T_
XERR17, ERR17 /00077-2441 T!
XERR18, ERR18 /00100-2443 T#
XERR19, ERR19 /00101-2445 T%
XERR20, ERR20 /00102-2447 T'
XERR21, ERR21 /00103-2451 T)
XERR22, ERR22 /00104-2453 T+
XERR23, ERR23 /00105-2455 T-
XERR24, ERR24 /00106-2457 T/
XERR25, ERR25 /00107-2461 T1
WIDFLG, 0 /00110-0000 @@
INTPT1, JMS I XERR2 /00111-4460 $0
INTPT3, JMS I XERR7 /00112-4465 $5
PTTMSR, PRTTIM /00113-2200 R@
SLTMSR, SLWTIM /00114-2227 RW
FRTMSR, FRFTIM /00115-3665 ^5
SEGCNT, 0 /00116-0000 @@
CHRCNT, 0 /00117-0000 @@
CHRGEN, 0 /00120-0000 @@
LINCNT, 0 /00121-0000 @@
CYCCNT, 0 /00122-0000 @@
ERNO, 0 /00123-0000 @@
TSTNO, 0 /00124-0000 @@
LOCA, 0 /00125-0000 @@
TSTSW, 0 /00126-0000 @@
TEST1, TST1 /00127-0205 BE
TEST2, SNGCHR /00130-1200 J@
TEST3, ROTATE /00131-1400 L@
TEST4, TST6 /00132-1600 N@
TEST5, HAMALN /00133-2032 PZ
TEST6, SLWTST /00134-2071 P9
TEST7, SCOPE /00135-4400 $@
PRTINT, 0 /00136-0000 @@
JMS I (CKTS5 /00137-4774 '<
JMS I (CLEAR /00140-4773 ';
JMS I (WIDRST /00141-4772 ':
CLA /00142-7200 :@
TAD FF /00143-1026 HV
JMS I XPRCHR /00144-4562 %2
JMS I FRTMSR /00145-4515 %M
JMP .+3 /00146-5151 ))
CLA /00147-7200 :@
JMP I PRTINT /00150-5536 -^
JMS I (TYCHFL /00151-4771 '9
JMS I XSKFLG /00152-4555 %-
JMP .-1 /00153-5152 )*
JMP PRTINT+3 /00154-5141 )!
XSKFLG, SKPFLG /00155-5505 -E
XCLFLG, CLRFLG /00156-5514 -L
XSKERR, SKPERR /00157-5517 -O
XCPCHR, CLPCHR /00160-5524 -T
XSTINT, SETINT /00161-5527 -W
XPRCHR, PRTCHR /00162-5532 -Z
XCLINT, CLRINT /00163-5535 -]
0004 /00164-0004 @D
0077 /00165-0077 @?
P60, 60 /00166-0060 @0
P77, 77 /00167-0077 @?
P200, 200 /00170-0200 B@
*200
JMP I GO /00200-5760 /0
JMP I GO+1 /00201-5761 /1
JMP I GO+2 /00202-5762 /2
JMP I GO+3 /00203-5763 /3
JMP I GO+4 /00204-5764 /4
TST1, 0 /00205-0000 @@ TEST 1
CLA /00206-7200 :@
TAD (1 /00207-1377 K?
JMS I (PRTHDR /00210-4776 '>
JMS I XCLINT /00211-4563 %3
JMS I XCLFLG /00212-4556 %.
JMS I XSKFLG /00213-4555 %-
SKP /00214-7410 <H
JMS I XERR1 /00215-4457 $/
CLA /00216-7200 :@
TAD INTPT1 /00217-1111 II
DCA VECTOR /00220-3001 XA
ION /00221-6001 0A
TAD QUESTN /00222-1031 HY
JMS I XCPCHR /00223-4560 %0
CLA /00224-7200 :@
TAD M200 /00225-1037 H_
DCA TIMCNT /00226-3276 Z>
ISZ TIMCNT /00227-2276 R>
JMP .-1 /00230-5227 *W
IOF /00231-6002 0B
JMS I XSKFLG /00232-4555 %-
JMS I XERR3 /00233-4461 $1
JMS I XCLFLG /00234-4556 %.
JMS I XSKFLG /00235-4555 %-
SKP /00236-7410 <H
JMS I XERR4 /00237-4462 $2
JMS I XSTINT /00240-4561 %1
TAD INTPT2 /00241-1013 HK
DCA VECTOR /00242-3001 XA
ION /00243-6001 0A
TAD AT /00244-1030 HX
JMS I XPRCHR /00245-4562 %2
CLA /00246-7200 :@
TAD M200 /00247-1037 H_
DCA TIMCNT /00250-3276 Z>
ISZ TIMCNT /00251-2276 R>
JMP .-1 /00252-5251 *)
JMS I XERR5 /00253-4463 $3
INT2, JMS I XSKFLG /00254-4555 %-
JMS I XERR6 /00255-4464 $4
JMS I XCLINT /00256-4563 %3
TAD INTPT3 /00257-1112 IJ
DCA VECTOR /00260-3001 XA
ION /00261-6001 0A
TAD QUESTN /00262-1031 HY
JMS I XPRCHR /00263-4562 %2
CLA /00264-7200 :@
TAD M200 /00265-1037 H_
DCA TIMCNT /00266-3276 Z>
ISZ TIMCNT /00267-2276 R>
JMP .-1 /00270-5267 *7
JMS I XSKFLG /00271-4555 %-
JMS I XERR8 /00272-4466 $6
IOF /00273-6002 0B
JMS I (CONTSW /00274-4775 '=
JMP TEST2A /00275-5277 *?
TIMCNT, 0 /00276-0000 @@
TEST2A, CLA /00277-7200 :@
TAD (-41 /00300-1374 K<
DCA CYCCNT /00301-3122 YR
TAD M4 /00302-1043 H#
DCA LINCNT /00303-3121 YQ
TAD M17 /00304-1045 H%
DCA SEGCNT /00305-3116 YN
TAD SCHRSW /00306-1356 K.
DCA CHARSW /00307-3355 [-
T3A, JMS I XSKERR /00310-4557 %/
SKP /00311-7410 <H
JMS I XERR9 /00312-4467 $7
JMS I XSKFLG /00313-4555 %-
JMS I XERR10 /00314-4470 $8
JMP I CHARSW /00315-5755 /-
T1A, CLA /00316-7200 :@
TAD SCHRSW /00317-1356 K.
DCA CHARSW /00320-3355 [-
TAD QUESTN /00321-1031 HY
T5A, JMS I XPRCHR /00322-4562 %2
ISZ SEGCNT /00323-2116 QN
JMP T3A /00324-5310 +H
CLA /00325-7200 :@
TAD M20 /00326-1044 H$
DCA SEGCNT /00327-3116 YN
JMS I PTTMSR /00330-4513 %K
JMS I XERR11 /00331-4471 $9
ISZ LINCNT /00332-2121 QQ
JMP T3A /00333-5310 +H
JMS I (WIDTH /00334-4773 ';
JMP T3A /00335-5310 +H
TAD M4 /00336-1043 H#
DCA LINCNT /00337-3121 YQ
TAD LF /00340-1024 HT
JMS I XPRCHR /00341-4562 %2
JMS I SLTMSR /00342-4514 %L
JMS I XERR12 /00343-4472 $:
JMS I (CONTSW /00344-4775 '=
ISZ CYCCNT /00345-2122 QR
JMP T3A /00346-5310 +H
JMP I (TEST2B /00347-5772 /:
T2A, CLA /00350-7200 :@
TAD RCHRSW /00351-1357 K/
DCA CHARSW /00352-3355 [-
TAD AT /00353-1030 HX
JMP T5A /00354-5322 +R
CHARSW, 0 /00355-0000 @@
SCHRSW, T2A /00356-0350 C(
RCHRSW, T1A /00357-0316 CN
GO, START /00360-3200 Z@
STRAGN /00361-3222 ZR
PRTSPD /00362-5601 .A
TIMO /00363-5201 *A
SELCH /00364-6074 0<
PAGE
TEST2B, JMS I XSWI /00400-4423 $S
AND (1000 /00401-0377 C? "DOwN" - 64 CHAR / "UP" - 96 CHAR.
SNA CLA /00402-7650 >(
JMP .+7 /00403-5212 *J
TAD (-12 /00404-1376 K>
DCA CYCCNT /00405-3122 YR
TAD SNCHRS /00406-1366 K6
DCA NOCHRS /00407-3365 [5
TAD M96 /00410-1035 H]
JMP .+6 /00411-5217 *O
TAD (-16 /00412-1375 K=
DCA CYCCNT /00413-3122 YR
TAD RNCHRS /00414-1367 K7
DCA NOCHRS /00415-3365 [5
TAD M64 /00416-1034 H\
DCA LEGCHR /00417-3370 [8
T2B0, CLA /00420-7200 :@
TAD M4 /00421-1043 H#
DCA LINCNT /00422-3121 YQ
TAD SPACE /00423-1027 HW
DCA CHRGEN /00424-3120 YP
TAD LEGCHR /00425-1370 K8
DCA CHRCNT /00426-3117 YO
TAD M20 /00427-1044 H$
DCA SEGCNT /00430-3116 YN
T2B1, JMS I XSKERR /00431-4557 %/
SKP /00432-7410 <H
JMS I XERR13 /00433-4473 $;
JMS I XSKFLG /00434-4555 %-
JMS I XERR14 /00435-4474 $<
CLA /00436-7200 :@
TAD CHRGEN /00437-1120 IP
JMS I XPRCHR /00440-4562 %2
ISZ SEGCNT /00441-2116 QN
JMP T2B2 /00442-5262 *2
CLA /00443-7200 :@
TAD M20 /00444-1044 H$
DCA SEGCNT /00445-3116 YN
JMS I PTTMSR /00446-4513 %K
JMS I XERR15 /00447-4475 $=
JMP I NOCHRS /00450-5765 /5
T2B7, ISZ LINCNT /00451-2121 QQ
JMP T2B2 /00452-5262 *2
CLA /00453-7200 :@
TAD M4 /00454-1043 H#
DCA LINCNT /00455-3121 YQ
TAD LF /00456-1024 HT
JMS I XPRCHR /00457-4562 %2
JMS I SLTMSR /00460-4514 %L
JMS I XERR16 /00461-4476 $>
T2B2, ISZ CHRGEN /00462-2120 QP
ISZ CHRCNT /00463-2117 QO
JMP T2B1 /00464-5231 *Y
CLA /00465-7200 :@
TAD LF /00466-1024 HT
JMS I XPRCHR /00467-4562 %2
JMS I SLTMSR /00470-4514 %L
JMS I XERR16 /00471-4476 $>
JMS I (CONTSW /00472-4774 '<
CLA /00473-7200 :@
TAD M20 /00474-1044 H$
DCA SEGCNT /00475-3116 YN
TAD LEGCHR /00476-1370 K8
TAD P200 /00477-1170 I8
CMA IAC /00500-7041 8!
DCA CHRCNT /00501-3117 YO
T2B3, JMS I XSKERR /00502-4557 %/
SKP /00503-7410 <H
JMS I XERR17 /00504-4477 $?
JMS I XSKFLG /00505-4555 %-
JMS I XERR18 /00506-4500 %@
CLA /00507-7200 :@
TAD CHRGEN /00510-1120 IP
JMS I XPRCHR /00511-4562 %2
ISZ SEGCNT /00512-2116 QN
JMP T2B4 /00513-5321 +Q
CLA /00514-7200 :@
TAD M20 /00515-1044 H$
DCA SEGCNT /00516-3116 YN
JMS I PTTMSR /00517-4513 %K
JMP I XERR19 /00520-5501 -A
T2B4, ISZ CHRCNT /00521-2117 QO
SKP /00522-7410 <H
JMP T2B5 /00523-5354 +,
ISZ CHRGEN /00524-2120 QP
CLA /00525-7200 :@
TAD FORPTR /00526-1344 K$
DCA 0010 /00527-3010 XH
TAD MB4 /00530-1351 K)
DCA T2FRCT /00531-3353 [+
T2B6, CLA /00532-7200 :@
TAD CHRGEN /00533-1120 IP
AND MASK1 /00534-0352 C*
CMA IAC /00535-7041 8!
TAD I 0010 /00536-1410 LH
SNA /00537-7450 <(
JMP T2B4 /00540-5321 +Q
ISZ T2FRCT /00541-2353 S+
JMP T2B6 /00542-5332 +Z50
JMP T2B3 /00543-5302 +B
FORPTR, FORLST-1 /00544-0544 E$
FORLST, 0012 /00545-0012 @J
0015 /00546-0015 @M
0014 /00547-0014 @L
0001 /00550-0001 @A
MB4, -4 /00551-7774 ?<
MASK1, 0177 /00552-0177 A?
T2FRCT, 0 /00553-0000 @@
T2B5, CLA /00554-7200 :@
TAD LF /00555-1024 HT
JMS I XPRCHR /00556-4562 %2
JMS I SLTMSR /00557-4514 %L
JMS I XERR20 /00560-4502 %B
JMS I (CONTSW /00561-4774 '<
ISZ CYCCNT /00562-2122 QR
JMP T2B0 /00563-5220 *P
JMP I (TST38 /00564-5773 /;
NOCHRS, 0 /00565-0000 @@
SNCHRS, T2B7 /00566-0451 D)
RNCHRS, T2B2 /00567-0462 D2
LEGCHR, 0 /00570-0000 @@
PAGE
TST38, CLA /00600-7200 :@
PCLF /00601-6662 62
PSKF /00602-6661 61
SKP /00603-7410 <H
JMS XERR1 /00604-4057 /
CLA /00605-7200 :@
TAD (-100 /00606-1377 K?
DCA TT1 /00607-3053 X+
TAD (-62 /00610-1376 K>
DCA TT2 /00611-3054 X,
TST11, CLA /00612-7200 :@
TAD (240 /00613-1375 K=
DCA TT3 /00614-3055 X-
CLA /00615-7200 :@
TAD TT3 /00616-1055 H-
PCLP /00617-6666 66
PSKF /00620-6661 61
JMP .-1 /00621-5220 *P
ISZ TT3 /00622-2055 P-
ISZ TT1 /00623-2053 P+
JMP .-7 /00624-5215 *M
CLA /00625-7200 :@
TAD (-100 /00626-1377 K?
DCA TT1 /00627-3053 X+
TAD LF /00630-1024 HT
PCLP /00631-6666 66
PSKF /00632-6661 61
JMP .-1 /00633-5232 *Z
CLA /00634-7200 :@
TAD CR /00635-1025 HU
PCLP /00636-6666 66
PSKF /00637-6661 61
JMP .-1 /00640-5237 *_
ISZ TT2 /00641-2054 P,
JMP TST11 /00642-5212 *J
CLA /00643-7200 :@
TAD (-62 /00644-1376 K>
DCA TT2 /00645-3054 X,
TAD FF /00646-1026 HV
PCLP /00647-6666 66
PSKF /00650-6661 61
JMP .-1 /00651-5250 *(
CLA /00652-7200 :@
JMP I (TST3 /00653-5774 /<
PAGE
TST3, CLA /01000-7200 :@
TAD N /01001-1321 KQ
DCA T3NCNT /01002-3322 [R
T9, CLA CMA /01003-7240 :
DCA CYCTST /01004-3323 [S
TAD RPHFL /01005-1325 KU
DCA PHFLG /01006-3324 [T
TAD SSPFL /01007-1331 KY
DCA SPCFLG /01010-3327 [W
CLA CMA /01011-7240 :
DCA CYCCNT /01012-3122 YR
TAD M20 /01013-1044 H$
DCA SEGCNT /01014-3116 YN
T1, JMS I XSKERR /01015-4557 %/
SKP /01016-7410 <H
JMS I XERR21 /01017-4503 %C
JMS I XSKFLG /01020-4555 %-
JMS I XERR22 /01021-4504 %D
JMP I SPCFLG /01022-5727 /W
T5, CLA /01023-7200 :@
TAD SPACE /01024-1027 HW
JMS I XPRCHR /01025-4562 %2
ISZ SEGCNT /01026-2116 QN
JMP T1 /01027-5215 *M
CLA /01030-7200 :@
TAD M20 /01031-1044 H$
DCA SEGCNT /01032-3116 YN
JMS I PTTMSR /01033-4513 %K
JMS I XERR23 /01034-4505 %E
ISZ CYCCNT /01035-2122 QR
JMP T1 /01036-5215 *M
CLA /01037-7200 :@
TAD CYCTST /01040-1323 KS
DCA CYCCNT /01041-3122 YR
JMP I PHFLG /01042-5724 /T
T8, TAD SPHFL /01043-1326 KV
DCA PHFLG /01044-3324 [T
TAD RSPFL /01045-1330 KX
DCA SPCFLG /01046-3327 [W
CLA /01047-7200 :@
TAD CR /01050-1025 HU
JMS I XPRCHR /01051-4562 %2
JMS I PTTMSR /01052-4513 %K
JMP .+3 /01053-5256 *.
CLA /01054-7200 :@
JMP T1 /01055-5215 *M
JMS I (TYCRFL /01056-4777 '?
JMP .-10 /01057-5247 *'
T4, CLA /01060-7200 :@
TAD A /01061-1032 HZ
JMP T5+2 /01062-5225 *U
T7, TAD RPHFL /01063-1325 KU
DCA PHFLG /01064-3324 [T
TAD SSPFL /01065-1331 KY
DCA SPCFLG /01066-3327 [W
CLA /01067-7200 :@
TAD LF /01070-1024 HT
JMS I XPRCHR /01071-4562 %2
JMS I SLTMSR /01072-4514 %L
JMS I XERR24 /01073-4506 %F
JMS I (CONTSW /01074-4776 '>
CLA CMA /01075-7240 :
TAD CYCTST /01076-1323 KS
DCA CYCTST /01077-3323 [S
TAD CYCTST /01100-1323 KS
DCA CYCCNT /01101-3122 YR
TAD CYCTST /01102-1323 KS
TAD P5 /01103-1046 H&
SZA /01104-7440 <
JMP T1 /01105-5215 *M
ISZ T3NCNT /01106-2322 SR
JMP T9 /01107-5203 *C
CLA /01110-7200 :@
TAD FF /01111-1026 HV
JMS I XPRCHR /01112-4562 %2
JMS I (FRFTIM /01113-4775 '=
JMS I XERR25 /01114-4507 %G
CLA /01115-7200 :@
TAD I (TST1 /01116-1774 O<
DCA TST1EP /01117-3332 [Z
JMP I TST1EP /01120-5732 /Z
N, -14 /01121-7764 ?4
T3NCNT, 0 /01122-0000 @@
CYCTST, 0 /01123-0000 @@
PHFLG, 0 /01124-0000 @@
RPHFL, T8 /01125-1043 H#
SPHFL, T7 /01126-1063 H3
SPCFLG, 0 /01127-0000 @@
RSPFL, T4 /01130-1060 H0
SSPFL, T5 /01131-1023 HS
TST1EP, 0 /01132-0000 @@
PAGE
SNGCHR, 0 /01200-0000 @@ TEST 2
CLA /01201-7200 :@
TAD (2 /01202-1377 K?
JMS I (PRTHDR /01203-4776 '>
TAD M20 /01204-1044 H$
DCA SEGCNT /01205-3116 YN
JMS I XSWI /01206-4423 $S
AND (1000 /01207-0375 C= "DOwN" - 64 CHAR / "UP" - 96 CHAR. OPTION
SNA CLA /01210-7650 >(
JMP S2 /01211-5214 *L
TAD M96 /01212-1035 H]
SKP /01213-7410 <H
S2, TAD M64 /01214-1034 H\
DCA CHRCNT /01215-3117 YO
TAD M4 /01216-1043 H#
DCA LINCNT /01217-3121 YQ
TAD SPACE /01220-1027 HW
DCA CHRGEN /01221-3120 YP
S1, JMS I XSKERR /01222-4557 %/
SKP /01223-7410 <H
JMS I XERR1 /01224-4457 $/
JMS I XSKFLG /01225-4555 %-
JMS I XERR2 /01226-4460 $0
CLA /01227-7200 :@
TAD CHRGEN /01230-1120 IP
JMS I XPRCHR /01231-4562 %2
ISZ SEGCNT /01232-2116 QN
JMP S1 /01233-5222 *R
CLA /01234-7200 :@
TAD M20 /01235-1044 H$
DCA SEGCNT /01236-3116 YN
ISZ LINCNT /01237-2121 QQ
JMP ZZ7 /01240-5244 *$
JMS I (WIDTH /01241-4774 '<
SKP /01242-7410 <H
JMP S4 /01243-5247 *'
ZZ7, JMS I PTTMSR /01244-4513 %K
JMS I XERR3 /01245-4461 $1
JMP S1 /01246-5222 *R
S4, CLA /01247-7200 :@
TAD M4 /01250-1043 H#
DCA LINCNT /01251-3121 YQ
JMS I PTTMSR /01252-4513 %K
JMS I XERR4 /01253-4462 $2
JMS I XSKERR /01254-4557 %/
SKP /01255-7410 <H
JMS I XERR5 /01256-4463 $3
JMS I XSKFLG /01257-4555 %-
JMS I XERR7 /01260-4465 $5
CLA /01261-7200 :@
TAD LF /01262-1024 HT
JMS I XPRCHR /01263-4562 %2
JMS I SLTMSR /01264-4514 %L
JMS I XERR6 /01265-4464 $4
JMS I (CONTSW /01266-4773 ';
JMP S7 /01267-5270 *8
S7, ISZ CHRGEN /01270-2120 QP
ISZ CHRCNT /01271-2117 QO
JMP S1 /01272-5222 *R
JMS I (CONTSW /01273-4773 ';
JMS I (SEQTST /01274-4772 ':
CLA /01275-7200 :@
JMP SNGCHR+4 /01276-5204 *D
PAGE
ROTATE, 0 /01400-0000 @@ TEST 3
CLA /01401-7200 :@
TAD (3 /01402-1377 K?
JMS I (PRTHDR /01403-4776 '>
TAD M20 /01404-1044 H$
DCA SEGCNT /01405-3116 YN
TAD M4 /01406-1043 H#
DCA LINCNT /01407-3121 YQ
TAD RSSGFL /01410-1337 K_
DCA SEGFLG /01411-3335 []
TAD RSLNFL /01412-1342 K"
DCA LINFLG /01413-3340 [
ROT3, JMS I XSWI /01414-4423 $S
AND (1000 /01415-0375 C= "DOwN" - 64 CHAR / "UP" - 96 CHAR. OPTION
SNA CLA /01416-7650 >(
JMP ROT7 /01417-5222 *R
TAD M96 /01420-1035 H]
SKP /01421-7410 <H
ROT7, TAD M64 /01422-1034 H\
DCA STRCNT /01423-3344 [$
TAD SPACE /01424-1027 HW
DCA STRCHR /01425-3343 [#
ROT11, TAD STRCHR /01426-1343 K#
DCA CHRGEN /01427-3120 YP
TAD STRCNT /01430-1344 K$
DCA CHRCNT /01431-3117 YO
ROT1, JMS I XSKERR /01432-4557 %/
SKP /01433-7410 <H
JMS I XERR1 /01434-4457 $/
JMS I XSKFLG /01435-4555 %-
JMS I XERR2 /01436-4460 $0
TAD CHRGEN /01437-1120 IP
JMS I XPRCHR /01440-4562 %2
CLA /01441-7200 :@
ISZ SEGCNT /01442-2116 QN
SKP /01443-7410 <H
JMP ROT8 /01444-5260 *0
ROT9, ISZ CHRGEN /01445-2120 QP
ISZ CHRCNT /01446-2117 QO
SKP /01447-7410 <H
JMP ROT10 /01450-5275 *=
ROT4, JMP I LINFLG /01451-5740 /
ROT5, JMP I SEGFLG /01452-5735 /]
ROT2, TAD RSSGFL /01453-1337 K_
DCA SEGFLG /01454-3335 []
JMS I PTTMSR /01455-4513 %K
JMS I XERR3 /01456-4461 $1
JMP ROT1 /01457-5232 *Z
ROT8, TAD M20 /01460-1044 H$
DCA SEGCNT /01461-3116 YN
TAD STSGFL /01462-1336 K^
DCA SEGFLG /01463-3335 []
ISZ LINCNT /01464-2121 QQ
JMP ROT9 /01465-5245 *%
JMS I (WIDTH /01466-4774 '<
JMP ROT9 /01467-5245 *%
TAD M4 /01470-1043 H#
DCA LINCNT /01471-3121 YQ
TAD STLNFL /01472-1341 K!
DCA LINFLG /01473-3340 [
JMP ROT9 /01474-5245 *%
ROT10, TAD SPACE /01475-1027 HW
DCA CHRGEN /01476-3120 YP
JMS I XSWI /01477-4423 $S
AND (1000 /01500-0375 C= "DOwN" - 64 CHAR / "UP" - 96 CHAR. OPTION
SNA CLA /01501-7650 >(
JMP .+3 /01502-5305 +E
TAD M96 /01503-1035 H]
SKP /01504-7410 <H
TAD M64 /01505-1034 H\
DCA CHRCNT /01506-3117 YO
JMP ROT4 /01507-5251 *)
ROT6, TAD RSLNFL /01510-1342 K"
DCA LINFLG /01511-3340 [
TAD RSSGFL /01512-1337 K_
DCA SEGFLG /01513-3335 []
JMS I PTTMSR /01514-4513 %K
JMS I XERR4 /01515-4462 $2
JMS I XSKERR /01516-4557 %/
SKP /01517-7410 <H
JMS I XERR5 /01520-4463 $3
JMS I XSKFLG /01521-4555 %-
JMS I XERR6 /01522-4464 $4
TAD LF /01523-1024 HT
JMS I XPRCHR /01524-4562 %2
JMS I SLTMSR /01525-4514 %L
JMS I XERR7 /01526-4465 $5
JMS I (CONTSW /01527-4773 ';
ISZ STRCHR /01530-2343 S#
ISZ STRCNT /01531-2344 S$
JMP ROT11 /01532-5226 *V
JMS I (SEQTST /01533-4772 ':
JMP ROT3 /01534-5214 *L
SEGFLG, ROT1 /01535-1432 LZ
STSGFL, ROT2 /01536-1453 L+
RSSGFL, ROT1 /01537-1432 LZ
LINFLG, ROT5 /01540-1452 L*
STLNFL, ROT6 /01541-1510 MH
RSLNFL, ROT5 /01542-1452 L*
STRCHR, 0 /01543-0000 @@
STRCNT, 0 /01544-0000 @@
PAGE
TST6, 0 /01600-0000 @@ TEST 4
CLA /01601-7200 :@
TAD (4 /01602-1377 K?
JMS I (PRTHDR /01603-4776 '>
TAD QUESTN /01604-1031 HY
DCA CHRGEN /01605-3120 YP
TAD M80 /01606-1041 H!
DCA T6LNLG /01607-3370 [8
TAD M80 /01610-1041 H!
DCA T6LNCT /01611-3366 [6
TAD M20 /01612-1044 H$
DCA SEGCNT /01613-3116 YN
TAD M4 /01614-1043 H#
DCA LINCNT /01615-3121 YQ
T61, JMS I XSKERR /01616-4557 %/
SKP /01617-7410 <H
JMS I XERR1 /01620-4457 $/
JMS I XSKFLG /01621-4555 %-
JMS I XERR2 /01622-4460 $0
TAD CHRGEN /01623-1120 IP
JMS I XPRCHR /01624-4562 %2
CLA /01625-7200 :@
ISZ SEGCNT /01626-2116 QN
JMP T65 /01627-5235 *]
CLA /01630-7200 :@
TAD M20 /01631-1044 H$
DCA SEGCNT /01632-3116 YN
JMS I PTTMSR /01633-4513 %K
JMS I XERR6 /01634-4464 $4
T65, ISZ T6LNCT /01635-2366 S6
JMP T61 /01636-5216 *N
JMS I XSKERR /01637-4557 %/
SKP /01640-7410 <H
JMS I XERR3 /01641-4461 $1
JMS I XSKFLG /01642-4555 %-
JMS I XERR4 /01643-4462 $2
CLA /01644-7200 :@
TAD LF /01645-1024 HT
JMS I XPRCHR /01646-4562 %2
JMS I SLTMSR /01647-4514 %L
JMS I XERR5 /01650-4463 $3
JMS I (CONTSW /01651-4775 '=
CLA /01652-7200 :@
TAD M20 /01653-1044 H$
DCA SEGCNT /01654-3116 YN
ISZ T6LNLG /01655-2370 S8
SKP /01656-7410 <H
JMP T6PT2 /01657-5263 *3
TAD T6LNLG /01660-1370 K8
DCA T6LNCT /01661-3366 [6
JMP T61 /01662-5216 *N
T6PT2, TAD M80 /01663-1041 H!
DCA CYCCNT /01664-3122 YR
TAD M20 /01665-1044 H$
DCA SEGCNT /01666-3116 YN
TAD M4 /01667-1043 H#
DCA LINCNT /01670-3121 YQ
T66, JMS I XSKERR /01671-4557 %/
SKP /01672-7410 <H
JMS I XERR15 /01673-4475 $=
JMS I XSKFLG /01674-4555 %-
JMS I XERR7 /01675-4465 $5
TAD CHRGEN /01676-1120 IP
JMS I XPRCHR /01677-4562 %2
CLA /01700-7200 :@
ISZ SEGCNT /01701-2116 QN
JMP T66 /01702-5271 *9
CLA /01703-7200 :@
TAD M20 /01704-1044 H$
DCA SEGCNT /01705-3116 YN
JMS I PTTMSR /01706-4513 %K
JMS I XERR8 /01707-4466 $6
ISZ LINCNT /01710-2121 QQ
JMP T66 /01711-5271 *9
JMS I (WIDTH /01712-4774 '<
JMP T66 /01713-5271 *9
TAD M4 /01714-1043 H#
DCA LINCNT /01715-3121 YQ
JMS I XSKERR /01716-4557 %/
SKP /01717-7410 <H
JMS I XERR9 /01720-4467 $7
JMS I XSKFLG /01721-4555 %-
JMS I XERR10 /01722-4470 $8
TAD LF /01723-1024 HT
JMS I XPRCHR /01724-4562 %2
JMS I SLTMSR /01725-4514 %L
JMS I XERR11 /01726-4471 $9
JMS I (CONTSW /01727-4775 '=
ISZ CYCCNT /01730-2122 QR
JMP .+5 /01731-5336 +^
JMS I (CONTSW /01732-4775 '=
JMS I (SEQTST /01733-4773 ';
CLA /01734-7200 :@
JMP TST6+4 /01735-5204 *D
CLA /01736-7200 :@
TAD P80 /01737-1042 H"
TAD CYCCNT /01740-1122 IR
CMA IAC /01741-7041 8!
DCA T6SPCT /01742-3367 [7
T69, JMS I XSKERR /01743-4557 %/
SKP /01744-7410 <H
JMS I XERR12 /01745-4472 $:
JMS I XSKFLG /01746-4555 %-
JMS I XERR13 /01747-4473 $;
TAD SPACE /01750-1027 HW
JMS I XPRCHR /01751-4562 %2
CLA /01752-7200 :@
ISZ SEGCNT /01753-2116 QN
JMP T68 /01754-5363 +3
CLA /01755-7200 :@
TAD M20 /01756-1044 H$
DCA SEGCNT /01757-3116 YN
JMS I PTTMSR /01760-4513 %K
JMS I XERR14 /01761-4474 $<
JMP I (T6NEXT /01762-5772 /:
T68, ISZ T6SPCT /01763-2367 S7
JMP T69 /01764-5343 +#
JMP T66 /01765-5271 *9
T6LNCT, 0 /01766-0000 @@
T6SPCT, 0 /01767-0000 @@
T6LNLG, 0 /01770-0000 @@
PAGE
SCP1, 0 /02000-0000 @@
JMS I XSKERR /02001-4557 %/
SKP /02002-7410 <H
JMP .-2 /02003-5201 *A
JMS I PTTMSR /02004-4513 %K
JMS I (TYCHFL /02005-4777 '?
JMS I XSKFLG /02006-4555 %-
JMP .-1 /02007-5206 *F
CLA /02010-7200 :@
TAD QUESTN /02011-1031 HY
JMS I XSTINT /02012-4561 %1
JMS I XCLINT /02013-4563 %3
JMS I XCPCHR /02014-4560 %0
JMS I XCLFLG /02015-4556 %.
JMS I XPRCHR /02016-4562 %2
CLA /02017-7200 :@
TAD CR /02020-1025 HU
JMS I XPRCHR /02021-4562 %2
JMS I PTTMSR /02022-4513 %K
JMS I (TYCHFL /02023-4777 '?
JMS I XSKFLG /02024-4555 %-
JMP .-1 /02025-5224 *T
CLA /02026-7200 :@
TAD LF /02027-1024 HT
JMS I XPRCHR /02030-4562 %2
JMP I SCP1 /02031-5600 .@
HAMALN, 0 /02032-0000 @@ TEST 5
CLA /02033-7200 :@
TAD (5 /02034-1376 K>
JMS I (PRTHDR /02035-4775 '=
CLA /02036-7200 :@
TAD (-76 /02037-1374 K<
DCA HAMCNT /02040-3270 Z8
HAM1, JMS I (CONTSW /02041-4773 ';
CLA /02042-7200 :@
TAD M80 /02043-1041 H!
DCA LINCNT /02044-3121 YQ
TAD EES /02045-1033 H[
DCA CHAR /02046-3056 X.
TAD CHAR /02047-1056 H.
JMS I XSKFLG /02050-4555 %-
JMP .-1 /02051-5250 *(
PCLP /02052-6666 66
PSKF /02053-6661 61
JMP .-1 /02054-5253 *+
ISZ LINCNT /02055-2121 QQ
JMP .-6 /02056-5250 *(
CLA /02057-7200 :@
TAD LF /02060-1024 HT
JMS I XSKFLG /02061-4555 %-
JMP .-1 /02062-5261 *1
JMS I XPRCHR /02063-4562 %2
ISZ HAMCNT /02064-2270 R8
JMP HAM1 /02065-5241 *!
JMS I (SEQTST /02066-4772 ':
JMP HAMALN+4 /02067-5236 *^
HAMCNT, 0 /02070-0000 @@
SLWTST, 0 /02071-0000 @@ TEST 6
CLA /02072-7200 :@
TAD (6 /02073-1371 K9
JMS I (PRTHDR /02074-4775 '=
CLA /02075-7200 :@
TAD SLTBPT /02076-1332 KZ
DCA TABPTR /02077-3012 XJ
TAD (TABSTR-TABEND-1 /02100-1370 K8
DCA TABCNT /02101-3333 [[
SLW1, CLA /02102-7200 :@
TAD M80 /02103-1041 H!
DCA LINCNT /02104-3121 YQ
TAD EES /02105-1033 H[
JMS I XSKFLG /02106-4555 %-
JMP .-1 /02107-5306 +F
JMS I XPRCHR /02110-4562 %2
ISZ LINCNT /02111-2121 QQ
JMP .-4 /02112-5306 +F
CLA /02113-7200 :@
TAD I TABPTR /02114-1412 LJ
DCA SLWCNT /02115-3334 [\
TAD LF /02116-1024 HT
JMS I XSKFLG /02117-4555 %-
JMP .-1 /02120-5317 +O
JMS I XPRCHR /02121-4562 %2
ISZ SLWCNT /02122-2334 S\
JMP .-4 /02123-5317 +O
JMS I (CONTSW /02124-4773 ';
ISZ TABCNT /02125-2333 S[
JMP SLW1 /02126-5302 +B
JMS I (CONTSW /02127-4773 ';
JMS I (SEQTST /02130-4772 ':
JMP SLWTST+4 /02131-5275 *=
SLTBPT, TABSTR-1 /02132-2134 Q\
TABCNT, 0 /02133-0000 @@
SLWCNT, 0 /02134-0000 @@
TABSTR, -3 /02135-7775 ?=
-2 /02136-7776 ?>
-12 /02137-7766 ?6
-16 /02140-7762 ?2
-6 /02141-7772 ?:
-3 /02142-7775 ?=
-10 /02143-7770 ?8
-4 /02144-7774 ?<
-5 /02145-7773 ?;
-5 /02146-7773 ?;
TABEND, -3 /02147-7775 ?=
PAGE
PRTTIM, 0 /02200-0000 @@
JMS I XSKERR /02201-4557 %/
SKP /02202-7410 <H
JMS XERR9 /02203-4067 7
CLA CLL /02204-7300 ;@
TAD PTIMU /02205-1223 JS
DCA PTCNT2 /02206-3226 ZV
ZZ1, TAD PTIML /02207-1224 JT
DCA PTCNT1 /02210-3225 ZU
JMS I XSKFLG /02211-4555 %- 38 + 510
SKP /02212-7410 <H 12
JMP .+6 /02213-5221 *Q
ISZ PTCNT1 /02214-2225 RU 26
JMP .-4 /02215-5211 *I 12 sum = 598 * 64 = 38'272
ISZ PTCNT2 /02216-2226 RV * 176 = 6'735'872
JMP ZZ1 /02217-5207 *G
JMP I PRTTIM /02220-5600 .@
ISZ PRTTIM /02221-2200 R@
JMP I PRTTIM /02222-5600 .@
PTIMU, -260 /02223-7520 =P
PTIML, -100 /02224-7700 ?@
PTCNT1, 0 /02225-0000 @@
PTCNT2, 0 /02226-0000 @@
SLWTIM, 0 /02227-0000 @@
CLA CLL /02230-7300 ;@
TAD SLTIMU /02231-1247 J'
DCA SLCNT2 /02232-3252 Z*
ZZ2, TAD SLTIML /02233-1250 J(
DCA SLCNT1 /02234-3251 Z)
JMS I XSKFLG /02235-4555 %-
SKP /02236-7410 <H
JMP .+6 /02237-5245 *%
ISZ SLCNT1 /02240-2251 R)
JMP .-4 /02241-5235 *] sum = 598 * 85 = 50'830
ISZ SLCNT2 /02242-2252 R* * 128 = 6'506'240
JMP ZZ2 /02243-5233 *[
JMP I SLWTIM /02244-5627 .W
ISZ SLWTIM /02245-2227 RW
JMP I SLWTIM /02246-5627 .W
SLTIMU, -200 /02247-7600 >@ -600 ?
SLTIML, -125 /02250-7653 >+
SLCNT1, 0 /02251-0000 @@
SLCNT2, 0 /02252-0000 @@
TIMRDY, 0 /02253-0000 @@
CLA /02254-7200 :@
TAD RDTIMU /02255-1275 J=
DCA RTMCT2 /02256-3300 [@
ZZ4, TAD RDTIML /02257-1276 J>
DCA RTMCT1 /02260-3277 Z?
ZZ3, JMS I XSKERR /02261-4557 %/
JMP .+4 /02262-5266 *6
NOP /02263-7000 8@
NOP /02264-7000 8@
JMP I (RDER6 /02265-5777 /?
NOP /02266-7000 8@
NOP /02267-7000 8@
ISZ RTMCT1 /02270-2277 R?
JMP ZZ3 /02271-5261 *1
ISZ RTMCT2 /02272-2300 S@
JMP ZZ4 /02273-5257 */
JMP I (RDER6 /02274-5777 /?
RDTIMU, 4000 /02275-4000 @
RDTIML, 4000 /02276-4000 @
RTMCT1, 0 /02277-0000 @@
RTMCT2, 0 /02300-0000 @@
SEQTST, 0 /02301-0000 @@
JMS I XSWI /02302-4423 $S
AND P200 /02303-0170 A8 "DOWN" NORMAL / "UP" SEQUENTIAL
SZA CLA /02304-7640 >
JMP I (SWRTN /02305-5776 />
JMP I SEQTST /02306-5701 /A
WIDTH, 0 /02307-0000 @@
CLA /02310-7200 :@
TAD WIDFLG /02311-1110 IH
SNA CLA /02312-7650 >(
JMP XEXIT /02313-5332 +Z
JMP OFFSW /02314-5315 +M
OFFSW, TAD (JMP ONSW /02315-1375 K=
DCA .-2 /02316-3314 [L
TAD M12 /02317-1052 H*
DCA SEGCNT /02320-3116 YN
CLA CMA /02321-7240 :
DCA LINCNT /02322-3121 YQ
JMP I WIDTH /02323-5707 /G
ONSW, TAD (JMP OFFSW /02324-1374 K<
DCA OFFSW-1 /02325-3314 [L
TAD M20 /02326-1044 H$
DCA SEGCNT /02327-3116 YN
TAD M4 /02330-1043 H#
DCA LINCNT /02331-3121 YQ
XEXIT, ISZ WIDTH /02332-2307 SG
JMP I WIDTH /02333-5707 /G
WIDRST, 0 /02334-0000 @@
CLA /02335-7200 :@
TAD (JMP OFFSW /02336-1374 K<
DCA OFFSW-1 /02337-3314 [L
JMP I WIDRST /02340-5734 /\
TYPPWR, 0 /02341-0000 @@
JMS I (TYPINT /02342-4773 ';
JMS I (TYPSTR /02343-4772 ':
PWRUP /02344-2347 S'
JMS I (TPCRLF /02345-4771 '9
JMP I TYPPWR /02346-5741 /!
PWRUP, TEXT /POWER UP/
/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 @@
PAGE
0 /02400-0000 @@
ERR1, 0 /02401-0000 @@
JMS DEC /02402-4263 "3
ERR2, 0 /02403-0000 @@
JMS DEC /02404-4263 "3
ERR3, 0 /02405-0000 @@
JMS DEC /02406-4263 "3
ERR4, 0 /02407-0000 @@
JMS DEC /02410-4263 "3
ERR5, 0 /02411-0000 @@
JMS DEC /02412-4263 "3
ERR6, 0 /02413-0000 @@
JMS DEC /02414-4263 "3
ERR7, 0 /02415-0000 @@
JMS DEC /02416-4263 "3
ERR8, 0 /02417-0000 @@
JMS DEC /02420-4263 "3
ERR9, 0 /02421-0000 @@
JMS DEC /02422-4263 "3
ERR10, 0 /02423-0000 @@
JMS DEC /02424-4263 "3
ERR11, 0 /02425-0000 @@
JMS DEC /02426-4263 "3
ERR12, 0 /02427-0000 @@
JMS DEC /02430-4263 "3
ERR13, 0 /02431-0000 @@
JMS DEC /02432-4263 "3
ERR14, 0 /02433-0000 @@
JMS DEC /02434-4263 "3
ERR15, 0 /02435-0000 @@
JMS DEC /02436-4263 "3
ERR16, 0 /02437-0000 @@
JMS DEC /02440-4263 "3
ERR17, 0 /02441-0000 @@
JMS DEC /02442-4263 "3
ERR18, 0 /02443-0000 @@
JMS DEC /02444-4263 "3
ERR19, 0 /02445-0000 @@
JMS DEC /02446-4263 "3
ERR20, 0 /02447-0000 @@
JMS DEC /02450-4263 "3
ERR21, 0 /02451-0000 @@
JMS DEC /02452-4263 "3
ERR22, 0 /02453-0000 @@
JMS DEC /02454-4263 "3
ERR23, 0 /02455-0000 @@
JMS DEC /02456-4263 "3
ERR24, 0 /02457-0000 @@
JMS DEC /02460-4263 "3
ERR25, 0 /02461-0000 @@
JMS DEC /02462-4263 "3
DEC, 0 /02463-0000 @@
IOF /02464-6002 0B
CLA /02465-7200 :@
TAD I (SWERR+2 /02466-1777 O?
DCA I (SWERR /02467-3776 _>
TAD DEC /02470-1263 J3
CLL RAR /02471-7110 9H
AND P37 /02472-0323 CS
DCA ERNO /02473-3123 YS
TAD M2 /02474-1040 H
TAD DEC /02475-1263 J3
DCA LOCT /02476-3324 [T
TAD I LOCT /02477-1724 OT
TAD (-1 /02500-1375 K=
DCA LOCA /02501-3125 YU
TAD LOCA /02502-1125 IU
TAD (-1 /02503-1375 K=
SZA CLA /02504-7640 >
JMP .+3 /02505-5310 +H
TAD I (SWERR+1 /02506-1774 O<
DCA I (SWERR /02507-3776 _>
TAD I LOCT /02510-1724 OT
AND P1600 /02511-0325 CU
CLL RTR /02512-7112 9J
RTR /02513-7012 8J
RTR /02514-7012 8J
RAR /02515-7010 8H
TAD LNO /02516-1326 KV
DCA TNO /02517-3327 [W
TAD I TNO /02520-1727 OW
DCA TSTNO /02521-3124 YT
JMS I (TYPERR /02522-4773 ';
P37, 37 /02523-0037 @_
LOCT, 0 /02524-0000 @@
P1600, 1600 /02525-1600 N@
LNO, XNO /02526-2530 UX
TNO, 0 /02527-0000 @@
XNO, AND 0001 /02530-0001 @A
AND 0001 /02531-0001 @A XNO SHOULD BE HERE WVDM
AND 0001 /02532-0001 @A
AND 0001 /02533-0001 @A
AND 0001 /02534-0001 @A
AND 0001 /02535-0001 @A
AND 0002 /02536-0002 @B
AND 0003 /02537-0003 @C
AND 0004 /02540-0004 @D
PAGE
TYPSTR, 0 /02600-0000 @@
CLA CMA /02601-7240 :
TAD I TYPSTR /02602-1600 N@
DCA 11 /02603-3011 XI
TNEXT, TAD I 11 /02604-1411 LI
SZA /02605-7440 <
JMP .+3 /02606-5211 *I
TYP1, ISZ TYPSTR /02607-2200 R@
JMP I TYPSTR /02610-5600 .@
DCA WORK /02611-3237 Z_
TAD TJMP+1 /02612-1241 J!
DCA TJMP /02613-3240 Z
TAD WORK /02614-1237 J_
AND P77 /02615-0167 A7
SZA /02616-7440 <
JMP .+3 /02617-5222 *R
TAD TJMP+2 /02620-1242 J"
DCA TJMP /02621-3240 Z
DCA THALF /02622-3243 Z#
TAD WORK /02623-1237 J_
RTR /02624-7012 8J
RTR /02625-7012 8J
RTR /02626-7012 8J
AND P77 /02627-0167 A7
JMS TADJ /02630-4244 "$
JMS TYPCHR /02631-4255 "-
JMP I TJMP /02632-5640 .
TYP2, TAD THALF /02633-1243 J#
JMS TADJ /02634-4244 "$
JMS TYPCHR /02635-4255 "-
JMP TNEXT /02636-5204 *D
WORK, 0 /02637-0000 @@
TJMP, 0 /02640-0000 @@
TYP2 /02641-2633 V[
TYP1 /02642-2607 VG
THALF, 0 /02643-0000 @@
TADJ, 0 /02644-0000 @@
DCA CSV /02645-3265 Z5
TAD CSV /02646-1265 J5
AND (40 /02647-0377 C?
SNA CLA /02650-7650 >(
TAD (100 /02651-1376 K>
TAD (200 /02652-1375 K=
TAD CSV /02653-1265 J5
JMP I TADJ /02654-5644 .$
TYPCHR, 0 /02655-0000 @@
TSF /02656-6041 0!
JMP .-1 /02657-5256 *.
TLS /02660-6046 0&
TSF /02661-6041 0!
JMP .-1 /02662-5261 *1
CLA /02663-7200 :@
JMP I TYPCHR /02664-5655 .-
CSV, 0 /02665-0000 @@
TPCRLF, 0 /02666-0000 @@
CLA /02667-7200 :@
TAD CR /02670-1025 HU
JMS TYPCHR /02671-4255 "-
TAD LF /02672-1024 HT
JMS TYPCHR /02673-4255 "-
TCF /02674-6042 0"
JMP I TPCRLF /02675-5666 .6
TYPINT, 0000 /02676-0000 @@
CLA CLL /02677-7300 ;@
TLS /02700-6046 0&
TSF /02701-6041 0!
JMP .-1 /02702-5301 +A
JMP I TYPINT /02703-5676 .>
CLEAR, 0 /02704-0000 @@
IOF /02705-6002 0B
TCF /02706-6042 0"
KCC /02707-6032 0Z
PCLF /02710-6662 62
PCIE /02711-6667 67
JMP I CLEAR /02712-5704 /D
PAGE
TYPHDR, 0 /03000-0000 @@
JMS I (TYPINT /03001-4777 '?
JMS I (TYPSTR /03002-4776 '>
LINE1 /03003-3075 X=
JMS I (TPCRLF /03004-4775 '=
JMP I TYPHDR /03005-5600 .@
TYPERR, 0 /03006-0000 @@
JMS I (TYPINT /03007-4777 '?
JMS I (TYPSTR /03010-4776 '>
TSTNUM /03011-3053 X+
TAD TSTNO /03012-1124 IT
JMS I (CONVBD /03013-4774 '<
JMS I (TYPSTR /03014-4776 '>
CONVPT /03015-3327 [W
JMS I (TYPSTR /03016-4776 '>
ERRNUM /03017-3060 X0
TAD ERNO /03020-1123 IS
JMS I (CONVBD /03021-4774 '<
JMS I (TYPSTR /03022-4776 '>
CONVPT /03023-3327 [W
JMP I SWERR /03024-5650 .(
LOERR, JMS I (TYPSTR /03025-4776 '>
LOCATE /03026-3067 X7
TAD LOCA /03027-1125 IU
JMS I (OCTPR /03030-4773 ';
JMS I (TYPSTR /03031-4776 '>
OCTHI /03032-3635 ^]
GOERR, JMS I (TPCRLF /03033-4775 '=
JMS I (CLEAR /03034-4772 ':
JMS I XSWI /03035-4423 $S
RTL /03036-7006 8F "DOWN" CONT / "UP" HALT ERROR
SZL /03037-7430 <X
SKP /03040-7410 <H
JMP .-4 /03041-5235 *]
RAR /03042-7010 8H
JMP I (SW1 /03043-5771 /9
JMP I (SWRTN /03044-5770 /8
IERR, JMS I (TYPSTR /03045-4776 '>
INTERR /03046-3113 YK
JMP GOERR /03047-5233 *[
SWERR, 0 /03050-0000 @@
IERR /03051-3045 X%
LOERR /03052-3025 XU
TSTNUM, TEXT /TEST NO. /
ERRNUM, TEXT /, ERROR NO. /
LOCATE, TEXT /, LOCATION /
LINE1, TEXT "LE8/LP08 LINE PRINTER TEST"
INTERR, TEXT / INTERRUPT ERROR/
PAGE
START, JMS I (CONSO /03200-4777 '?
JMP .+2 /03201-5203 *C
0 /03202-0000 @@
JMS I (INTIOT /03203-4776 '>
JMS I (PRTWID /03204-4775 '=
JMS I (TYPINT /03205-4774 '<
JMS I (TPCRLF /03206-4773 ';
JMS I (CLEAR /03207-4772 ':
CLA /03210-7200 :@
TAD SFSTSW /03211-1274 J<
DCA FSTSWT /03212-3273 Z;
JMS I (TYPHDR /03213-4771 '9
JMS I (RDYSEQ /03214-4770 '8
JMS I (CLEAR /03215-4772 ':
JMS PRTINT /03216-4136 !^
SKP CLA /03217-7610 >H
DOTST1, JMS I (CLEAR /03220-4772 ':
JMS I (TST1 /03221-4767 '7
STRAGN, CLA /03222-7200 :@
JMS I (CLEAR /03223-4772 ':
JMS I (INTIOT /03224-4776 '>
JMS I (PRTWID /03225-4775 '=
CLA /03226-7200 :@
TAD RFSTSW /03227-1275 J=
DCA FSTSWT /03230-3273 Z;
TAD SWTBPT /03231-1265 J5
DCA SWPTR /03232-3271 Z9
TAD TSTCNT /03233-1266 J6
DCA SWCNT /03234-3263 Z3
JMS I XSWI /03235-4423 $S
DCA SWSAVE /03236-3264 Z4
TAD (1 /03237-1366 K6
JMP .+3 /03240-5243 *#
SW2, TAD TSTSW /03241-1126 IV
CLL RAL /03242-7104 9D
DCA TSTSW /03243-3126 YV
TAD SWSAVE /03244-1264 J4
RAR /03245-7010 8H
DCA SWSAVE /03246-3264 Z4
JMS I XSWI /03247-4423 $S
AND P200 /03250-0170 A8 "DOWN" NORMAL / "UP" SEQUENTIAL
SZA CLA /03251-7640 >
JMP SW1 /03252-5267 *7
SZL CLA /03253-7630 >X
JMP SW1 /03254-5267 *7
SWRTN, ISZ SWPTR /03255-2271 R9
ISZ SWCNT /03256-2263 R3
JMP SW2 /03257-5241 *!
JMS I (PRPASS /03260-4765 '5
NOP /03261-7000 8@
JMP STRAGN /03262-5222 *R
SWCNT, 0 /03263-0000 @@
SWSAVE, 0 /03264-0000 @@
SWTBPT, JMS I TEST1 /03265-4527 %W
TSTCNT, -7 /03266-7771 ?9
SW1, JMS PRTINT /03267-4136 !^
JMP I FSTSWT /03270-5673 .;
SWPTR, JMS I TEST1 /03271-4527 %W
JMP SWRTN /03272-5255 *-
FSTSWT, 0 /03273-0000 @@
SFSTSW, DOTST1 /03274-3220 ZP
RFSTSW, SWPTR /03275-3271 Z9
CONVBD, 0 /03276-0000 @@
DCA NUM /03277-3326 [V
DCA TENS /03300-3331 [Y
TAD NUM /03301-1326 KV
TAD M10 /03302-1036 H^
SPA /03303-7510 =H
JMP .+3 /03304-5307 +G
ISZ TENS /03305-2331 SY
JMP .-4 /03306-5302 +B
TAD P10 /03307-1333 K[
TAD P60 /03310-1166 I6
DCA UNITS /03311-3332 [Z
TAD TENS /03312-1331 KY
SNA /03313-7450 <(
JMP CON1 /03314-5324 +T
TAD P60 /03315-1166 I6
CLL RTL /03316-7106 9F
RTL /03317-7006 8F
RTL /03320-7006 8F
CON2, TAD UNITS /03321-1332 KZ
DCA CONVPT /03322-3327 [W
JMP I CONVBD /03323-5676 .>
CON1, TAD SPC /03324-1334 K\
JMP CON2 /03325-5321 +Q
NUM, 0 /03326-0000 @@
CONVPT, 4040 /03327-4040
0 /03330-0000 @@
TENS, 0 /03331-0000 @@
UNITS, 0 /03332-0000 @@
P10, 12 /03333-0012 @J
SPC, 4000 /03334-4000 @
PAGE
RDYSEQ, 0 /03400-0000 @@
JMS I (TYPPWR /03401-4777 '?
CLA /03402-7200 :@
JMS I (KEYFLG /03403-4776 '>
XRDON, JMS I (TYPMS1 /03404-4775 '=
JMS I (KEYFLG /03405-4776 '>
JMS I XSKERR /03406-4557 %/
SKP /03407-7410 <H
JMP RDER1 /03410-5301 +A
JMS I (TYPMS2 /03411-4774 '<
JMS I (KEYFLG /03412-4776 '>
JMS I XSKERR /03413-4557 %/
JMP RDER2 /03414-5303 +C
JMS I (TYPMS1 /03415-4775 '=
JMS I (KEYFLG /03416-4776 '>
JMS I XSKERR /03417-4557 %/
SKP /03420-7410 <H
JMP RDER3 /03421-5305 +E
JMS I (TYPMS3 /03422-4773 ';
JMS I (KEYFLG /03423-4776 '>
JMS I XSKERR /03424-4557 %/
JMP RDER4 /03425-5307 +G
JMS I (TYPMS1 /03426-4775 '=
JMS I (KEYFLG /03427-4776 '>
JMS I XSKERR /03430-4557 %/
SKP /03431-7410 <H
JMP RDER5 /03432-5311 +I
TAD INTPT4 /03433-1014 HL
DCA VECTOR /03434-3001 XA
JMS I (TYPMS4 /03435-4772 ':
JMS I XCLFLG /03436-4556 %.
JMS I XSTINT /03437-4561 %1
JMS I (KEYFLG /03440-4776 '>
ION /03441-6001 0A
NOP /03442-7000 8@
IOF /03443-6002 0B
JMS I XCLINT /03444-4563 %3
JMP RDER6 /03445-5313 +K
INT4, JMS I XSKERR /03446-4557 %/
JMP RDER7 /03447-5315 +M
JMS I (CLEAR /03450-4771 '9
JMS I (TYPMS6 /03451-4770 '8
JMS I (TYPMS1 /03452-4775 '=
JMS I (KEYFLG /03453-4776 '>
JMS I XSKERR /03454-4557 %/
SKP CLA /03455-7610 >H
JMP RDER8 /03456-5317 +O
JMS I (TYPMS4 /03457-4772 ':
JMS I (KEYFLG /03460-4776 '>
TAD INTPT5 /03461-1015 HM
DCA VECTOR /03462-3001 XA
ION /03463-6001 0A
NOP /03464-7000 8@
IOF /03465-6002 0B
JMS I (TYPMS6 /03466-4770 '8
JMS I (TYPMS1 /03467-4775 '=
JMS I (KEYFLG /03470-4776 '>
JMS I XSKERR /03471-4557 %/
SKP CLA /03472-7610 >H
JMP RDER10 /03473-5323 +S
JMS I (RDER11 /03474-4767 '7
JMS I (TYPMS5 /03475-4766 '6
JMP I RDYSEQ /03476-5600 .@
INT5, JMS I XCLINT /03477-4563 %3
JMP RDER9 /03500-5321 +Q
RDER1, TAD (1 /03501-1365 K5
JMP TPRDER /03502-5324 +T
RDER2, TAD (2 /03503-1364 K4
JMP TPRDER /03504-5324 +T
RDER3, TAD (3 /03505-1363 K3
JMP TPRDER /03506-5324 +T
RDER4, TAD (4 /03507-1362 K2
JMP TPRDER /03510-5324 +T
RDER5, TAD (5 /03511-1361 K1
JMP TPRDER /03512-5324 +T
RDER6, TAD (6 /03513-1360 K0
JMP TPRDER /03514-5324 +T
RDER7, TAD (7 /03515-1357 K/
JMP TPRDER /03516-5324 +T
RDER8, TAD (10 /03517-1356 K.
JMP TPRDER /03520-5324 +T
RDER9, TAD (11 /03521-1355 K-
JMP TPRDER /03522-5324 +T
RDER10, TAD (12 /03523-1354 K,
TPRDER, DCA RDERNM /03524-3347 ['
JMS I (TYPINT /03525-4753 '+
JMS I (TYPSTR /03526-4752 '*
RDYERR /03527-3537 ]_
TAD RDERNM /03530-1347 K'
JMS I (CONVBD /03531-4751 ')
JMS I (TYPSTR /03532-4752 '*
CONVPT /03533-3327 [W
JMS I (TPCRLF /03534-4750 '(
JMS I (KEYFLG /03535-4776 '>
JMP XRDON /03536-5204 *D
RDYERR, TEXT /READY ERROR NO./
RDERNM, 0 /03547-0000 @@
PAGE
RDER11, 0 /03600-0000 @@
JMS I XSKFLG /03601-4555 %-
SKP CLA /03602-7610 >H
JMP I RDER11 /03603-5600 .@
TAD (13 /03604-1377 K?
JMP I (TPRDER /03605-5776 />
KEYFLG, 0 /03606-0000 @@
CLA /03607-7200 :@
KCC /03610-6032 0Z
KSF /03611-6031 0Y
JMP .-1 /03612-5211 *I
JMS I (TREAD /03613-4775 '=
ISZ I (TINCNT /03614-2774 W<
JMS I (CHECK /03615-4773 ';
NOP /03616-7000 8@
KCC /03617-6032 0Z
JMP I KEYFLG /03620-5606 .F
OCTPR, 0 /03621-0000 @@
DCA OCTNUM /03622-3256 Z.
TAD OCTNUM /03623-1256 J.
JMS OCTHLF /03624-4240 "
DCA OCTLO /03625-3236 Z^
TAD OCTNUM /03626-1256 J.
CLL RTR /03627-7112 9J
CLL RTR /03630-7112 9J
CLL RTR /03631-7112 9J
JMS OCTHLF /03632-4240 "
DCA OCTHI /03633-3235 Z]
JMP I OCTPR /03634-5621 .Q
OCTHI, JMS 0040 /03635-4040
OCTLO, 0 /03636-0000 @@
0 /03637-0000 @@
OCTHLF, 0 /03640-0000 @@
DCA OCTH1 /03641-3254 Z,
TAD OCTH1 /03642-1254 J,
AND (7 /03643-0372 C:
DCA OCTH2 /03644-3255 Z-
TAD OCTH1 /03645-1254 J,
CLL RTL /03646-7106 9F
CLL RAL /03647-7104 9D
AND (0700 /03650-0371 C9
TAD OCTH2 /03651-1255 J-
TAD (6060 /03652-1370 K8
JMP I OCTHLF /03653-5640 .
OCTH1, 0 /03654-0000 @@
OCTH2, 0 /03655-0000 @@
OCTNUM, 0 /03656-0000 @@
T6NEXT, ISZ LINCNT /03657-2121 QQ
SKP /03660-7410 <H
JMS I (WIDTH /03661-4767 '7
SKP /03662-7410 <H
JMP I (T66 /03663-5766 /6
JMP I (T68 /03664-5765 /5
FRFTIM, 0 /03665-0000 @@
CLA CLL /03666-7300 ;@
TAD FFTIMU /03667-1305 KE
DCA FFCNT2 /03670-3310 [H
TAD FFTIML /03671-1306 KF
DCA FFCNT1 /03672-3307 [G
JMS I XSKFLG /03673-4555 %-
SKP /03674-7410 <H
JMP .+6 /03675-5303 +C
ISZ FFCNT1 /03676-2307 SG sum = 598 * 376 = 224'848
JMP .-4 /03677-5273 *;
ISZ FFCNT2 /03700-2310 SH 376 * 224'848 = 84'542'848
JMP .-10 /03701-5271 *9
JMP I FRFTIM /03702-5665 .5
ISZ FRFTIM /03703-2265 R5
JMP I FRFTIM /03704-5665 .5
FFTIMU, -570 /03705-7210 :H
FFTIML, -570 /03706-7210 :H
FFCNT1, 0 /03707-0000 @@
FFCNT2, 0 /03710-0000 @@
CONTSW, 0 /03711-0000 @@
JMS I XSWI /03712-4423 $S
AND (4000 /03713-0364 C4 "DOWN" - HALT / "UP" - CONTINUE
SNA CLA /03714-7650 >(
JMP .+2 /03715-5317 +O
JMP I CONTSW /03716-5711 /I
JMS I XSWI /03717-4423 $S
AND P200 /03720-0170 A8 "DOWN" NORMAL / "UP" - SEQUENTIAL
SZA CLA /03721-7640 >
JMP I CONTSW /03722-5711 /I
JMS I XSWI /03723-4423 $S
AND TSTSW /03724-0126 AV
SNA CLA /03725-7650 >(
JMP I (SWRTN /03726-5763 /3
JMP CONTSW+1 /03727-5312 +J
PAGE
SETRDY, TEXT /OK, SET PRINTER TO READY ON-LINE STATE./
RDYOK, TEXT /READY OK,/
TORNP, TEXT / TRY TORN PAPER SWITCH./
DRMGAT, TEXT / TRY DRUM GATE SWITCH./
INTRUP, TEXT / TRY ERROR INTERRUPT./
INTOK, TEXT /INITIAL MANUAL TEST O.K., TEST 1 SECTION 1 NEXT./
OKOK, TEXT /OK,/
TYPMS1, 0 /04127-0000 @@
JMS I (TYPINT /04130-4777 '?
JMS I (TYPSTR /04131-4776 '>
SETRDY /04132-4000 @
JMS I (TPCRLF /04133-4775 '=
JMP I TYPMS1 /04134-5727 /W
TYPMS2, 0 /04135-0000 @@
JMS I (TYPINT /04136-4777 '?
JMS I (TYPSTR /04137-4776 '>
RDYOK /04140-4024 T
JMS I (TYPSTR /04141-4776 '>
TORNP /04142-4031 Y
JMS I (TPCRLF /04143-4775 '=
JMP I TYPMS2 /04144-5735 /]
TYPMS3, 0 /04145-0000 @@
JMS I (TYPINT /04146-4777 '?
JMS I (TYPSTR /04147-4776 '>
RDYOK /04150-4024 T
JMS I (TYPSTR /04151-4776 '>
DRMGAT /04152-4045 %
JMS I (TPCRLF /04153-4775 '=
JMP I TYPMS3 /04154-5745 /%
TYPMS4, 0 /04155-0000 @@
JMS I (TYPINT /04156-4777 '?
JMS I (TYPSTR /04157-4776 '>
RDYOK /04160-4024 T
JMS I (TYPSTR /04161-4776 '>
INTRUP /04162-4061 1
JMS I (TPCRLF /04163-4775 '=
JMP I TYPMS4 /04164-5755 /-
TYPMS5, 0 /04165-0000 @@
JMS I (TYPINT /04166-4777 '?
JMS I (TYPSTR /04167-4776 '>
INTOK /04170-4074 <
JMS I (TPCRLF /04171-4775 '=
JMP I TYPMS5 /04172-5765 /5
PAGE
TYPMS6, 0 /04200-0000 @@
JMS I (TYPINT /04201-4777 '?
JMS I (TYPSTR /04202-4776 '>
INTROK /04203-6124 1T
JMS I (TPCRLF /04204-4775 '=
JMP I TYPMS6 /04205-5600 .@
PRTWID, 0 /04206-0000 @@
CLA /04207-7200 :@
TAD (-10 /04210-1374 K<
DCA CNTR /04211-3235 Z]
JMS I XSWI /04212-4423 $S
AND (400 /04213-0373 C; LINEPRINTER 132 WIDE
SZA CLA /04214-7640 >
JMP PRTW1 /04215-5230 *X
DCA WIDFLG /04216-3110 YH
TAD (TAB80-1 /04217-1372 K:
DCA 0010 /04220-3010 XH
PRTW2, TAD (M80-1 /04221-1371 K9
DCA 0011 /04222-3011 XI
TAD I 0010 /04223-1410 LH
DCA I 0011 /04224-3411 \I
ISZ CNTR /04225-2235 R]
JMP .-3 /04226-5223 *S
JMP I PRTWID /04227-5606 .F
PRTW1, CMA /04230-7040 8
DCA WIDFLG /04231-3110 YH
TAD (TAB132-1 /04232-1370 K8
DCA 0010 /04233-3010 XH
JMP PRTW2 /04234-5221 *Q
CNTR, 0 /04235-0000 @@
TAB80, -120 /04236-7660 >0
120 /04237-0120 AP
-4 /04240-7774 ?<
-24 /04241-7754 ?,
-21 /04242-7757 ?/
5 /04243-0005 @E
-5 /04244-7773 ?;
4 /04245-0004 @D
TAB132, -204 /04246-7574 =<
204 /04247-0204 BD
-5 /04250-7773 ?;
-30 /04251-7750 ?(
-25 /04252-7753 ?+
6 /04253-0006 @F
-7 /04254-7771 ?9
6 /04255-0006 @F
TYCHFL, 0 /04256-0000 @@
JMS I (TYPINT /04257-4777 '?
JMS I (TYPSTR /04260-4776 '>
CHRFLG /04261-4264 "4
JMS I (TPCRLF /04262-4775 '=
JMP I TYCHFL /04263-5656 ..
CHRFLG, TEXT /CHARACTER FLAG NOT HIGH, RESET PRINTER./
TYCRFL, 0 /04310-0000 @@
JMS I (TYPINT /04311-4777 '?
JMS I (TYPSTR /04312-4776 '>
CRCHFL /04313-4316 #N
JMS I (TPCRLF /04314-4775 '=
JMP I TYCRFL /04315-5710 /H
CRCHFL, TEXT /CHARACTER FLAG NOT HIGH AFTER CR DURING TEST 1 SEC. 4./
PAGE
SCOPE, 0 /04400-0000 @@ TEST 7
JMS I (TP5MSG /04401-4777 '?
CLA /04402-7200 :@
TAD (7 /04403-1376 K>
JMS I (PRTHDR /04404-4775 '=
JMS I (SEQTST /04405-4774 '<
JMS I XSWI /04406-4423 $S
AND (70 /04407-0373 C;
SNA /04410-7450 <(
JMP SC2 /04411-5225 *U
AND (40 /04412-0372 C:
SZA /04413-7440 <
JMS I (SCP1 /04414-4771 '9
JMS I XSWI /04415-4423 $S
AND (20 /04416-0370 C8
SZA /04417-7440 <
JMS I (PRTSEG /04420-4767 '7
JMS I XSWI /04421-4423 $S
AND (10 /04422-0366 C6
SZA /04423-7440 <
JMS I (PWRSUP /04424-4765 '5
SC2, JMS I (CONTSW /04425-4764 '4
JMP SCOPE+5 /04426-5205 *E
PAGE
TP5MSG, 0 /04600-0000 @@
JMS I (TYPINT /04601-4777 '?
JMS I (TYPSTR /04602-4776 '>
LINE11 /04603-4626 &V
JMS I (TPCRLF /04604-4775 '=
JMP I TP5SW /04605-5621 .Q
TP51, JMS I (TYPINT /04606-4777 '?
JMS I (TYPSTR /04607-4776 '>
LINE2 /04610-4642 &"
JMS ENDLIN /04611-4327 #W
JMS I (TYPSTR /04612-4776 '>
LINE3 /04613-4655 &-
JMS ENDLIN /04614-4327 #W
JMS I (TYPSTR /04615-4776 '>
LINE4 /04616-4710 'H
JMS I (TPCRLF /04617-4775 '=
TP53, JMP I TP5MSG /04620-5600 .@
TP5SW, TP52 /04621-4622 &R
TP52, CLA /04622-7200 :@
TAD (TP53 /04623-1374 K<
DCA TP5SW /04624-3221 ZQ
JMP TP51 /04625-5206 *F
LINE11, TEXT /SELECT TEST 7 SUB-TEST./
LINE2, TEXT /SW. 6 --- SCOPE LOOP./
LINE3, TEXT /SW. 7 --- SEGMENT PRINT -- SWS. 9,10 AND 11 SEL. SEG./
LINE4, TEXT /SW. 8 --- POWER SUPPLY TEST./
ENDLIN, 0 /04727-0000 @@
JMS I (TPCRLF /04730-4775 '=
JMS I (TYPINT /04731-4777 '?
JMP I ENDLIN /04732-5727 /W
PAGE
PRTSEG, 0 /05000-0000 @@
CLA /05001-7200 :@
TAD M20 /05002-1044 H$
DCA CHRCNT /05003-3117 YO
JMS I XSWI /05004-4423 $S
AND (7 /05005-0377 C?
SNA /05006-7450 <(
JMP I PRTSEG /05007-5600 .@
TAD MSGMSK /05010-1047 H'
SMA /05011-7500 =@
JMP I PRTSEG /05012-5600 .@
TAD PSGMSK /05013-1050 H(
TAD (JMPTAB /05014-1376 K>
DCA JMPTAB-1 /05015-3234 Z\
JMP I JMPTAB-1 /05016-5634 .\
PRTS1, CLA /05017-7200 :@
TAD EES /05020-1033 H[
JMS I XSKFLG /05021-4555 %-
JMP .-1 /05022-5221 *Q
JMS I XPRCHR /05023-4562 %2
ISZ CHRCNT /05024-2117 QO
JMP .-4 /05025-5221 *Q
JMS I XSKFLG /05026-4555 %-
JMP .-1 /05027-5226 *V
CLA /05030-7200 :@
TAD LF /05031-1024 HT
JMS I XPRCHR /05032-4562 %2
PRTS6, JMP I PRTSEG /05033-5600 .@
0 /05034-0000 @@
JMPTAB, JMP PRTS1 /05035-5217 *O
JMP PRTS2 /05036-5254 *,
JMP PRTS3 /05037-5253 *+
JMP PRTS4 /05040-5252 **
JMP PRTS5 /05041-5243 *#
TAD M20 /05042-1044 H$
PRTS5, TAD M20 /05043-1044 H$
DCA PRT1 /05044-3274 Z<
JMS I XSWI /05045-4423 $S
AND (400 /05046-0375 C=
SNA CLA /05047-7650 >( "DOwN" 80 COL / "UP" 132 COL
JMP PRTS6 /05050-5233 *[
TAD PRT1 /05051-1274 J<
PRTS4, TAD M20 /05052-1044 H$
PRTS3, TAD M20 /05053-1044 H$
PRTS2, TAD M20 /05054-1044 H$
DCA SEGCNT /05055-3116 YN
JMS I XSWI /05056-4423 $S
RAL /05057-7004 8D "DOWN" CONT / "UP" HALT ERROR
SMA CLA /05060-7700 ?@
JMP PRTSX /05061-5264 *4
TAD EES /05062-1033 H[
SKP /05063-7410 <H
PRTSX, TAD SPACE /05064-1027 HW
JMS I XSKFLG /05065-4555 %-
JMP .-1 /05066-5265 *5
JMS I XPRCHR /05067-4562 %2
CLA /05070-7200 :@
ISZ SEGCNT /05071-2116 QN
JMP PRTSX /05072-5264 *4
JMP PRTS1 /05073-5217 *O
PRT1, 0 /05074-0000 @@
PWRSUP, 0 /05075-0000 @@
JMS I XSWI /05076-4423 $S
AND PW1000 /05077-0351 C) "DOwN" 64 CHAR / "UP" 96 CHAR
SNA CLA /05100-7650 >(
TAD I (SPC1 /05101-1774 O<
TAD I (SM377 /05102-1773 O;
DCA PWRTMP /05103-3352 [*
JMS I XSWI /05104-4423 $S
AND PW400 /05105-0354 C, "DOwN" 80 COL. / "UP" - 132 COL
SZA CLA /05106-7640 >
CLA CLL CMA /05107-7340 ;
TAD M4 /05110-1043 H#
DCA LINCNT /05111-3121 YQ
CLA /05112-7200 :@
TAD EXCLM /05113-1356 K.
DCA CHRGEN /05114-3120 YP
PWR1, CLA CLL /05115-7300 ;@
TAD M20 /05116-1044 H$
DCA SEGCNT /05117-3116 YN
TAD CHRGEN /05120-1120 IP
JMS I XSKFLG /05121-4555 %-
JMP .-1 /05122-5321 +Q
JMS I XPRCHR /05123-4562 %2
ISZ SEGCNT /05124-2116 QN
JMP .-4 /05125-5321 +Q
ISZ LINCNT /05126-2121 QQ
SKP /05127-7410 <H
JMP PWR2 /05130-5343 +#
CLA /05131-7200 :@
TAD PWR56 /05132-1353 K+
TAD CHRGEN /05133-1120 IP
DCA CHRGEN /05134-3120 YP
TAD CHRGEN /05135-1120 IP
TAD PWRTMP /05136-1352 K*
SPA /05137-7510 =H
JMP PWR1 /05140-5315 +M
AND PWR77 /05141-0355 C-
JMP PWR1-2 /05142-5313 +K
PWR2, JMS I XSKFLG /05143-4555 %-
JMP .-1 /05144-5343 +#
CLA /05145-7200 :@
TAD LF /05146-1024 HT
JMS I XPRCHR /05147-4562 %2
JMP I PWRSUP /05150-5675 .=
PW1000, 1000 /05151-1000 H@
PWRTMP, 0 /05152-0000 @@
PWR56, 0065 /05153-0065 @5
PW400, 0400 /05154-0400 D@
PWR77, 0077 /05155-0077 @?
EXCLM, 241 /05156-0241 B!
PAGE
0 /05200-0000 @@
TIMO, CLA /05201-7200 :@
TAD LF /05202-1024 HT
JMS I XPRCHR /05203-4562 %2
JMS I XSKFLG /05204-4555 %-
JMP .-1 /05205-5204 *D
CLA CLL /05206-7300 ;@
TAD TM21 /05207-1256 J.
DCA TMC1 /05210-3254 Z,
TMAGN, CLA CLL /05211-7300 ;@
DCA TMC2 /05212-3251 Z)
TAD TM200 /05213-1255 J-
DCA TMC3 /05214-3252 Z*
JMS I XSWI /05215-4423 $S
AND I (SC400 /05216-0777 G? "DOwN" 80 COL / "UP" - 132 COL
SNA CLA /05217-7650 >(
JMP .+3 /05220-5223 *S
TAD I (SC132 /05221-1776 O>
SKP /05222-7410 <H
TAD I (SC80 /05223-1775 O=
DCA TMLEN /05224-3253 Z+
TAD EES /05225-1033 H[
JMS I XSKERR /05226-4557 %/
SKP /05227-7410 <H
JMP .-2 /05230-5226 *V
TMPR, JMS I XPRCHR /05231-4562 %2
JMS I XSKFLG /05232-4555 %-
JMP .-1 /05233-5232 *Z
JMS I XSKERR /05234-4557 %/
SKP /05235-7410 <H
HLT /05236-7402 <B
ISZ TMLEN /05237-2253 R+
JMP TMPR /05240-5231 *Y
TMLP, ISZ TMC2 /05241-2251 R)
JMP TMLP /05242-5241 *!
ISZ TMC3 /05243-2252 R*
JMP TMLP /05244-5241 *!
ISZ TMC1 /05245-2254 R,
JMP TMAGN /05246-5211 *I
CLA HLT /05247-7602 >B
JMP TIMO /05250-5201 *A
TMC2, 0 /05251-0000 @@
TMC3, 0 /05252-0000 @@
TMLEN, 0 /05253-0000 @@
TMC1, 0 /05254-0000 @@
TM200, -200 /05255-7600 >@
TM21, -21 /05256-7757 ?/
PAGE
PRTHDR, 0 /05400-0000 @@
TAD (260 /05401-1377 K?
DCA HDRNMB /05402-3233 Z[
TAD M12 /05403-1052 H*
DCA CHRCNT /05404-3117 YO
TAD (HEADER-1 /05405-1376 K>
DCA 0010 /05406-3010 XH
CLA /05407-7200 :@
TAD I 0010 /05410-1410 LH
JMS I XSKFLG /05411-4555 %-
JMP .-1 /05412-5211 *I
JMS I XPRCHR /05413-4562 %2
ISZ CHRCNT /05414-2117 QO
JMP .-6 /05415-5207 *G
JMS I XSKFLG /05416-4555 %-
JMP .-1 /05417-5216 *N
CLA /05420-7200 :@
JMP I PRTHDR /05421-5600 .@
HEADER, "T /05422-0324 CT
"E /05423-0305 CE
"S /05424-0323 CS
"T /05425-0324 CT
" /05426-0240 B
"N /05427-0316 CN
"O /05430-0317 CO
". /05431-0256 B.
" /05432-0240 B
HDRNMB, 0 /05433-0000 @@
212 /05434-0212 BJ LF
212 /05435-0212 BJ LF
CKTS5, 0 /05436-0000 @@
JMS I XSWI /05437-4423 $S
AND (200 /05440-0375 C= "DOWN" - NORMAL / "UP" - SEQUENTIAL
SNA CLA /05441-7650 >(
JMP I CKTS5 /05442-5636 .^
TAD TSTSW /05443-1126 IV
AND (100 /05444-0374 C<
SNA CLA /05445-7650 >(
JMP I CKTS5 /05446-5636 .^
JMP I (SWRTN /05447-5773 /;
IOTTAB, PSKF /05450-6661 61
PCLF /05451-6662 62
PSKE /05452-6663 63
PSTB /05453-6664 64
PSIE /05454-6665 65
PCLP /05455-6666 66
PCIE /05456-6667 67
INTIOT, 0 /05457-0000 @@
JMP INT1 /05460-5301 +A
CLA /05461-7200 :@
TAD IOTTAB /05462-1250 J(
DCA SKPFLG+1 /05463-3306 [F
TAD IOTTAB+1 /05464-1251 J)
DCA CLRFLG+1 /05465-3315 [M
TAD IOTTAB+2 /05466-1252 J*
DCA SKPERR+1 /05467-3320 [P
TAD IOTTAB+3 /05470-1253 J+
DCA CLPCHR+1 /05471-3325 [U
TAD IOTTAB+4 /05472-1254 J,
DCA SETINT+1 /05473-3330 [X
TAD IOTTAB+5 /05474-1255 J-
DCA PRTCHR+1 /05475-3333 [[
TAD IOTTAB+6 /05476-1256 J.
DCA CLRINT+1 /05477-3336 [^
JMP I INTIOT /05500-5657 ./
INT1, CLA /05501-7200 :@
TAD (JMP I INTIOT /05502-1372 K:
DCA INTIOT+1 /05503-3260 Z0
JMP INTIOT+2 /05504-5261 *1
SKPFLG, 0 /05505-0000 @@
PSKF /05506-6661 61 12
SKP /05507-7410 <H 12
ISZ SKPFLG /05510-2305 SE
JMS I (SAVE /05511-4771 '9 38 + 412
NOP /05512-7000 8@ 12
JMP I SKPFLG /05513-5705 /E 24 sum = 510
CLRFLG, 0 /05514-0000 @@
PCLF /05515-6662 62
JMP I CLRFLG /05516-5714 /L
SKPERR, 0 /05517-0000 @@
PSKE /05520-6663 63
SKP /05521-7410 <H
ISZ SKPERR /05522-2317 SO
JMP I SKPERR /05523-5717 /O
CLPCHR, 0 /05524-0000 @@
PSTB /05525-6664 64
JMP I CLPCHR /05526-5724 /T
SETINT, 0 /05527-0000 @@
PSIE /05530-6665 65
JMP I SETINT /05531-5727 /W
PRTCHR, 0 /05532-0000 @@
PCLP /05533-6666 66
JMP I PRTCHR /05534-5732 /Z
CLRINT, 0 /05535-0000 @@
PCIE /05536-6667 67
JMP I CLRINT /05537-5735 /]
PAGE
0 /05600-0000 @@
PRTSPD, CLA /05601-7200 :@
TAD ("A /05602-1377 K?
DCA CHAR /05603-3056 X.
JMS I (PRTWID /05604-4776 '>
JMS PRTINT /05605-4136 !^
CLA /05606-7200 :@
TAD (LIN1 /05607-1375 K=
DCA LINSW /05610-3252 Z*
JMS I XSWI /05611-4423 $S
AND I (SC400 /05612-0774 G< "DOwN" 80 COL / "UP" - 132 COL
SZA CLA /05613-7640 >
CMA /05614-7040 8
TAD M4 /05615-1043 H#
DCA M4 /05616-3043 X#
TAD M4 /05617-1043 H#
DCA CYCCNT /05620-3122 YR
TAD (LINTAB-1 /05621-1373 K;
DCA 0010 /05622-3010 XH
JMS I XSWI /05623-4423 $S
SPA CLA /05624-7710 ?H "DOWN" - HALT / "UP" - CONTINUE
JMP .-2 /05625-5223 *S
JMP I LINSW /05626-5652 .*
TAD PM12 /05627-1254 J,
TAD M20 /05630-1044 H$
TAD M20 /05631-1044 H$
TAD M20 /05632-1044 H$
TAD M20 /05633-1044 H$
LIN1, TAD M20 /05634-1044 H$
NOP /05635-7000 8@
DCA LINLEN /05636-3253 Z+
DCA LINCNT /05637-3121 YQ
JMS I XCLINT /05640-4563 %3
JMS PRTCR /05641-4255 "-
JMS PRTLF /05642-4270 "8
JMS I XSWI /05643-4423 $S
SPA CLA /05644-7710 ?H "DOWN" - HALT / "UP" - CONTINUE
JMP PSTTY /05645-5306 +F
ISZ LINCNT /05646-2121 QQ
JMP .-6 /05647-5241 *!
HLT /05650-7402 <B
JMP .-1 /05651-5250 *(
LINSW, 0 /05652-0000 @@
LINLEN, 0 /05653-0000 @@
PM12, -14 /05654-7764 ?4
PRTCR, 0 /05655-0000 @@
CLA /05656-7200 :@
TAD LINLEN /05657-1253 J+
DCA CHRCNT /05660-3117 YO
JMS I (RANDOM /05661-4772 ':
JMS I XSKFLG /05662-4555 %-
JMP .-1 /05663-5262 *2
JMS I XPRCHR /05664-4562 %2
ISZ CHRCNT /05665-2117 QO
JMP .-5 /05666-5261 *1
JMP I PRTCR /05667-5655 .-
PRTLF, 0 /05670-0000 @@
CLA /05671-7200 :@
TAD LF /05672-1024 HT
JMS I XSKFLG /05673-4555 %-
JMP .-1 /05674-5273 *;
JMS I XPRCHR /05675-4562 %2
CLA /05676-7200 :@
JMP I PRTLF /05677-5670 .8
LINTAB, 0 /05700-0000 @@
0 /05701-0000 @@
0 /05702-0000 @@
0 /05703-0000 @@
0 /05704-0000 @@
0 /05705-0000 @@
PSTTY, CLA /05706-7200 :@
TAD LINCNT /05707-1121 IQ
DCA I 0010 /05710-3410 \H
CMA /05711-7040 8
TAD LINSW /05712-1252 J*
DCA LINSW /05713-3252 Z*
JMS PRTLF /05714-4270 "8
JMS I XSWI /05715-4423 $S
SPA CLA /05716-7710 ?H "DOWN" - HALT / "UP" - CONTINUE
JMP .-2 /05717-5315 +M
ISZ CYCCNT /05720-2122 QR
JMP I LINSW /05721-5652 .*
JMS I (TYPINT /05722-4771 '9
JMS I (TPCRLF /05723-4770 '8
JMS I (TYPTIM /05724-4767 '7
HLT /05725-7402 <B
JMP PRTSPD /05726-5201 *A
PAGE
TYPTIM, 0 /06000-0000 @@
CLA /06001-7200 :@
TAD (LINTAB-1 /06002-1377 K?
DCA 0010 /06003-3010 XH
JMS I (TYPINT /06004-4776 '>
JMS I (TYPSTR /06005-4775 '=
TIMLN0 /06006-6323 3S
JMS I (ENDLIN /06007-4774 '<
TAD M4 /06010-1043 H#
DCA CYCCNT /06011-3122 YR
TAD (TIMLN1 /06012-1373 K;
DCA .+2 /06013-3215 ZM
JMS I (TYPSTR /06014-4775 '=
TIMLIN, TIMLN1 /06015-6336 3^
JMS I (CONLIN /06016-4772 ':
JMS I (TYPSTR /06017-4775 '=
CONTAB /06020-6267 27
JMS I (ENDLIN /06021-4774 '<
TAD (5 /06022-1371 K9
TAD TIMLIN /06023-1215 JM
DCA TIMLIN /06024-3215 ZM
ISZ CYCCNT /06025-2122 QR
JMP TIMLIN-1 /06026-5214 *L
JMP I TYPTIM /06027-5600 .@
RANDOM, 0 /06030-0000 @@
CLA CLL /06031-7300 ;@
TAD SEED1 /06032-1266 J6
RTL /06033-7006 8F
TAD SEED2 /06034-1267 J7
DCA SEED1 /06035-3266 Z6
TAD SEED1 /06036-1266 J6
RTL /06037-7006 8F
TAD SEED2 /06040-1267 J7
RTL /06041-7006 8F
DCA SEED2 /06042-3267 Z7
TAD SEED1 /06043-1266 J6
AND (377 /06044-0370 C8
DCA STEMP /06045-3272 Z:
TAD STEMP /06046-1272 J:
TAD (-240 /06047-1367 K7
SMA CLA /06050-7700 ?@
SKP /06051-7410 <H
JMP RANDOM+1 /06052-5231 *Y
JMS I XSWI /06053-4423 $S
RTL /06054-7006 8F "DOwN" 64 CHAR / "UP" 96 CHAR
SMA CLA /06055-7700 ?@
TAD SPC1 /06056-1270 J8
TAD SM377 /06057-1271 J9
TAD STEMP /06060-1272 J:
SPA CLA /06061-7710 ?H
SKP /06062-7410 <H
JMP RANDOM+1 /06063-5231 *Y
TAD STEMP /06064-1272 J:
JMP I RANDOM /06065-5630 .X
SEED1, 252 /06066-0252 B*
SEED2, 4361 /06067-4361 #1
SPC1, 0040 /06070-0040 @
SM377, -377 /06071-7401 <A
STEMP, 0 /06072-0000 @@
0 /06073-0000 @@
SELCH, JMP SC1 /06074-5313 +K
JMS I XSWI /06075-4423 $S
AND SC400 /06076-0321 CQ "DOwN" 80 COL / "UP" 132 COL
SZA CLA /06077-7640 >
JMP .+3 /06100-5303 +C
TAD SC80 /06101-1323 KS
SKP /06102-7410 <H
TAD SC132 /06103-1322 KR
DCA TT3 /06104-3055 X-
JMS I XSWI /06105-4423 $S
PCLP /06106-6666 66
PSKF /06107-6661 61
JMP .-1 /06110-5307 +G
ISZ TT3 /06111-2055 P-
JMP .-5 /06112-5305 +E
SC1, CLA CLL /06113-7300 ;@
TAD LF /06114-1024 HT
PCLP /06115-6666 66
PSKF /06116-6661 61
JMP .-1 /06117-5316 +N
JMP SELCH+1 /06120-5275 *=
SC400, 400 /06121-0400 D@
SC132, -204 /06122-7574 =<
SC80, -120 /06123-7660 >0
INTROK, TEXT /INTERRUPT O.K./
PAGE
CONLIN, 0 /06200-0000 @@
CLA /06201-7200 :@
TAD I 0010 /06202-1410 LH
JMS CONDIG /06203-4223 "S
JMS FIXDIG /06204-4272 ":
TAD THOUS /06205-1254 J,
CLL RTL /06206-7106 9F
RTL /06207-7006 8F
RTL /06210-7006 8F
TAD HUNDS /06211-1255 J-
DCA CONTAB /06212-3267 Z7
TAD TENS1 /06213-1256 J.
CLL RTL /06214-7106 9F
RTL /06215-7006 8F
RTL /06216-7006 8F
TAD UNITS1 /06217-1257 J/
DCA CONTAB+1 /06220-3270 Z8
JMP I CONLIN /06221-5600 .@
TEMP, 0 /06222-0000 @@
CONDIG, 0 /06223-0000 @@
DCA TEMP /06224-3222 ZR
DCA THOUS /06225-3254 Z,
DCA HUNDS /06226-3255 Z-
DCA TENS1 /06227-3256 Z.
TAD (MPYER+1 /06230-1377 K?
DCA MPYER /06231-3260 Z0
JMS RESTAB /06232-4315 #M
TAD TEMP /06233-1222 JR
ZZ5, TAD I MPYER /06234-1660 N0
SPA /06235-7510 =H
JMP .+3 /06236-5241 *!
ISZ I DIGTAB /06237-2653 V+
JMP .-4 /06240-5234 *\
ISZ MPYER /06241-2260 R0
TAD I MPYER /06242-1660 N0
ISZ DIGTAB /06243-2253 R+
ISZ MPYER /06244-2260 R0
ISZ DIGCNT /06245-2252 R*
JMP ZZ5 /06246-5234 *\
TAD (60 /06247-1376 K>
DCA UNITS1 /06250-3257 Z/
JMP I CONDIG /06251-5623 .S
DIGCNT, 0 /06252-0000 @@
DIGTAB, 0 /06253-0000 @@
THOUS, 0 /06254-0000 @@
HUNDS, 0 /06255-0000 @@
TENS1, 0 /06256-0000 @@
UNITS1, 0 /06257-0000 @@
MPYER, 0 /06260-0000 @@
-1750 /06261-6030 0X
1750 /06262-1750 O(
-144 /06263-7634 >\
144 /06264-0144 A$
-12 /06265-7766 ?6
12 /06266-0012 @J
CONTAB, 0 /06267-0000 @@
0 /06270-0000 @@
0 /06271-0000 @@
FIXDIG, 0 /06272-0000 @@
JMS RESTAB /06273-4315 #M
TAD I DIGTAB /06274-1653 N+
SZA /06275-7440 <
JMP FIXD1 /06276-5305 +E
TAD (40 /06277-1375 K=
DCA I DIGTAB /06300-3653 ^+
ISZ DIGTAB /06301-2253 R+
ISZ DIGCNT /06302-2252 R*
JMP .-7 /06303-5274 *<
JMP I FIXDIG /06304-5672 .:
FIXD1, TAD (60 /06305-1376 K>
DCA I DIGTAB /06306-3653 ^+
ISZ DIGTAB /06307-2253 R+
TAD I DIGTAB /06310-1653 N+
ISZ DIGCNT /06311-2252 R*
JMP .-5 /06312-5305 +E
CLA /06313-7200 :@
JMP I FIXDIG /06314-5672 .:
RESTAB, 0 /06315-0000 @@
TAD (DIGTAB+1 /06316-1374 K<
DCA DIGTAB /06317-3253 Z+
TAD MIN3 /06320-1051 H)
DCA DIGCNT /06321-3252 Z*
JMP I RESTAB /06322-5715 /M
TIMLN0, TEXT /PRINTER TIMING (LPM)/
TIMLN1, TEXT /1 SEG. /
TIMLN2, TEXT /2 SEGS. /
TIMLN3, TEXT /3 SEGS. /
TIMLN4, TEXT /4 SEGS. /
TIMLN5, TEXT /5 SEGS. /
TIMLN6, TEXT /6 SEGS. /
PAGE
PRPASS, 0 /06400-0000 @@
CLA /06401-7200 :@
TAD HARD /06402-1022 HR
AND (400 /06403-0377 C?
SZA CLA /06404-7640 >
JMP PROGO /06405-5213 *K
JMS I XSWI /06406-4423 $S
AND (400 /06407-0377 C? "DOwN" 80 COL / "UP" - 132 COL
SZA CLA /06410-7640 >
JMP I PRPASS /06411-5600 .@
JMP PASEXI /06412-5224 *T
PROGO, JMS PRPAS2 /06413-4226 "V
JMP PASEXI /06414-5224 *T
ISZ PASNUM /06415-2244 R$
JMS I (PRVTAB /06416-4776 '>
JMS PR6BIT /06417-4300 #@
PASTXT /06420-6447 4'
TAD PASNUM /06421-1244 J$
JMS I (PROCT /06422-4775 '=
JMS I (PRVTAB /06423-4776 '>
PASEXI, ISZ PRPASS /06424-2200 R@
JMP I PRPASS /06425-5600 .@
PRPAS2, 0 /06426-0000 @@
TAD PASSW /06427-1245 J%
SZA CLA /06430-7640 >
JMP .+5 /06431-5236 *^
TAD PASNUL /06432-1246 J&
CMA /06433-7040 8
DCA PASTEM /06434-3243 Z#
ISZ PASSW /06435-2245 R%
ISZ PASTEM /06436-2243 R#
JMP PASEXI /06437-5224 *T
DCA PASSW /06440-3245 Z%
ISZ PRPAS2 /06441-2226 RV
JMP I PRPAS2 /06442-5626 .V
PASTEM, 0 /06443-0000 @@
PASNUM, 0 /06444-0000 @@
PASSW, 0 /06445-0000 @@
PASNUL, 0 /06446-0000 @@
PASTXT, TEXT /DILPAN PASS /
SWI, 0 /06456-0000 @@
CLA /06457-7200 :@
JMS I (SAVE /06460-4774 '<
NOP /06461-7000 8@
TAD SWITCH /06462-1021 HQ
SPA CLA /06463-7710 ?H
SKP CLA OSR /06464-7614 >L HARDWARE
TAD SWREG /06465-1020 HP
JMP I SWI /06466-5656 ..
TREAD, 0 /06467-0000 @@
KSF /06470-6031 0Y
JMP .-1 /06471-5270 *8
KRB /06472-6036 0^
AND (177 /06473-0373 C;
TAD (200 /06474-1372 K:
DCA I (TIN /06475-3771 _9
TAD I (TIN /06476-1771 O9
JMP I TREAD /06477-5667 .7
PR6BIT, 0 /06500-0000 @@
CLA CLL /06501-7300 ;@
TAD I PR6BIT /06502-1700 O@
DCA PR6IND /06503-3333 [[
ISZ PR6BIT /06504-2300 S@
PR61, TAD I PR6IND /06505-1733 O[
AND (7700 /06506-0370 C8
SNA /06507-7450 <(
JMP I PR6BIT /06510-5700 /@
SMA /06511-7500 =@
CML /06512-7020 8P
IAC /06513-7001 8A
RTR /06514-7012 8J
RTR /06515-7012 8J
RTR /06516-7012 8J
JMS I (ECHO /06517-4767 '7
TAD I PR6IND /06520-1733 O[
AND (77 /06521-0366 C6
SNA /06522-7450 <(
JMP I PR6BIT /06523-5700 /@
TAD (3740 /06524-1365 K5
SMA /06525-7500 =@
TAD (100 /06526-1364 K4
TAD (240 /06527-1363 K3
JMS I (ECHO /06530-4767 '7
ISZ PR6IND /06531-2333 S[
JMP PR61 /06532-5305 +E
PR6IND, 0 /06533-0000 @@
WHTSTH, 0 /06534-0000 @@
SETHLT, 0 /06535-0000 @@
CLA CLL /06536-7300 ;@
TAD HARD /06537-1022 HR
AND (400 /06540-0377 C?
SZA CLA /06541-7640 >
JMP .+6 /06542-5350 +(
CMA /06543-7040 8 HARDWARE
TAD SETHLT /06544-1335 K]
DCA SETHLT /06545-3335 []
TAD (HLT /06546-1362 K2
DCA I SETHLT /06547-3735 _]
JMP I SETHLT /06550-5735 /]
PAGE
CHECK, 0 /06600-0000 @@
DCA I (AC /06601-3777 _?
TAD HARD /06602-1022 HR
AND (400 /06603-0376 C>
SZA CLA /06604-7640 >
JMP .+3 /06605-5210 *H
TAD I (AC /06606-1777 O? HARDWARE
JMP I CHECK /06607-5600 .@
GTF /06610-6004 0D
DCA I (FLAG /06611-3775 _=
MQA /06612-7501 =A
DCA I (MQ /06613-3774 _<
DCA XCNT /06614-3257 Z/
TAD XLIS /06615-1261 J1
DCA XPNT /06616-3260 Z0
NEXT, TAD I XPNT /06617-1660 N0
SNA /06620-7450 <(
JMP UNKN /06621-5230 *X
TAD I (TIN /06622-1773 O;
SNA CLA /06623-7650 >(
JMP KNOWN /06624-5245 *%
ISZ XCNT /06625-2257 R/
ISZ XPNT /06626-2260 R0
JMP NEXT /06627-5217 *O
UNKN, TAD I (TINCNT /06630-1772 O:
SZA CLA /06631-7640 >
JMP .+10 /06632-5242 *"
TAD I (TIN /06633-1773 O;
JMS I (ECHO /06634-4771 '9
TAD ("? /06635-1370 K8
JMS I (ECHO /06636-4771 '9
JMS I (PRVTAB /06637-4767 '7
ISZ CHECK /06640-2200 R@
JMP I CHECK /06641-5600 .@
ISZ CHECK /06642-2200 R@
TAD I (TIN /06643-1773 O;
JMP I CHECK /06644-5600 .@
KNOWN, TAD I (TIN /06645-1773 O;
TAD (100 /06646-1366 K6
DCA I (TIN /06647-3773 _;
TAD XLIS2 /06650-1262 J2
TAD XCNT /06651-1257 J/
DCA XIND /06652-3256 Z.
TAD I XIND /06653-1656 N.
DCA XIND /06654-3256 Z.
JMP I XIND /06655-5656 ..
XIND, 0 /06656-0000 @@
XCNT, 0 /06657-0000 @@
XPNT, 0 /06660-0000 @@
XLIS, YLIS /06661-6663 63
XLIS2, YLIS2 /06662-6674 6<
YLIS, -"C+100 /06663-7575 ==
-"L+100 /06664-7564 =4
-"O+100 /06665-7561 =1
-"Q+100 /06666-7557 =/
-"R+100 /06667-7556 =.
-"S+100 /06670-7555 =-
-"E+100 /06671-7573 =;
-"D+100 /06672-7574 =<
0 /06673-0000 @@
YLIS2, CTRLC /06674-7200 :@
CTRLL /06675-6735 7]
CTRLO /06676-6743 7#
CTRLQ /06677-6704 7D
CTRLR /06700-6710 7H
CTRLS /06701-6717 7O
CTRLE /06702-6751 7)
CTRLD /06703-7000 8@
CTRLQ, DCA CTSWI /06704-3333 [[
DCA I (TINCNT /06705-3772 _:
JMS I (REST /06706-4765 '5
JMP I CTNXT /06707-5734 /\
CTRLR, JMS I (PCTRL /06710-4764 '4
DCA CTSWI /06711-3333 [[
DCA I (TINCNT /06712-3772 _:
JMS I (PRVTAB /06713-4767 '7
INEXIT, DCA I (INFLG /06714-3763 _3
JMP I .+1 /06715-5716 /N
START /06716-3200 Z@
CTRLS, TAD CTSWI /06717-1333 K[
SZA CLA /06720-7640 >
JMP .+5 /06721-5326 +V
IAC /06722-7001 8A
TAD CHECK /06723-1200 J@
DCA CTNXT /06724-3334 [\
ISZ CTSWI /06725-2333 S[
JMS I (TREAD /06726-4762 '2
JMS I (REST /06727-4765 '5
JMS CHECK /06730-4200 "@
CLA /06731-7200 :@
JMP CTRLS /06732-5317 +O
CTSWI, 0 /06733-0000 @@
CTNXT, 0 /06734-0000 @@
CTRLL, TAD I (ESWI /06735-1761 O1
CMA /06736-7040 8
DCA I (ESWI /06737-3761 _1
JMS I (PCTRL /06740-4764 '4
JMS I (REST /06741-4765 '5
JMP I CHECK /06742-5600 .@
CTRLO, JMS I (PCTRL /06743-4764 '4
TAD I (WHTSTH /06744-1760 O0
CMA /06745-7040 8
DCA I (WHTSTH /06746-3760 _0
JMS I (REST /06747-4765 '5
JMP I CHECK /06750-5600 .@
CTRLE, JMS I (PCTRL /06751-4764 '4
JMS I (REST /06752-4765 '5
JMP I CHECK /06753-5600 .@
PAGE
CTRLD, JMS I (PCTRL /07000-4777 '?
TAD CTDSW /07001-1213 JK
SZA CLA /07002-7640 >
JMP .+4 /07003-5207 *G
TAD I (CHECK /07004-1776 O>
DCA CTDRET /07005-3214 ZL
ISZ CTDSW /07006-2213 RK
JMS CONSO /07007-4251 ")
DCA CTDSW /07010-3213 ZK
JMS REST /07011-4215 "M
JMP I CTDRET /07012-5614 .L
CTDSW, 0 /07013-0000 @@
CTDRET, 0 /07014-0000 @@
REST, 0 /07015-0000 @@
CLA /07016-7200 :@ 12
TAD I (MQ /07017-1775 O= 38
MQL /07020-7421 <Q 12
TAD I (FLAG /07021-1774 O< 38
RAL /07022-7004 8D 12
CLA /07023-7200 :@ 12
TAD I (AC /07024-1773 O; 38
JMP I REST /07025-5615 .M 26 sum 188
WAIT, 0 /07026-0000 @@
CLA CLL /07027-7300 ;@
TAD HARD /07030-1022 HR
AND (400 /07031-0372 C:
SNA CLA /07032-7650 >(
JMP I WAIT /07033-5626 .V HARDWARE
JMS I (PR6BIT /07034-4771 '9
WAITIN /07035-7044 8$
JMS I (PRVTAB /07036-4770 '8
JMS I (TREAD /07037-4767 '7
JMS REST /07040-4215 "M
JMS I (CHECK /07041-4776 '>
JMP I WAIT /07042-5626 .V
JMP WAIT+1 /07043-5227 *W
WAITIN, TEXT /WAITING /
CONSO, 0 /07051-0000 @@
CLA /07052-7200 :@
TAD HARD /07053-1022 HR
AND (400 /07054-0372 C:
SNA CLA /07055-7650 >(
JMP I CONSO /07056-5651 .) HARDWARE
TAD INFLG /07057-1342 K"
SZA CLA /07060-7640 >
JMP I (INEXIT /07061-5766 /6
ISZ INFLG /07062-2342 S"
JMS I (PR6BIT /07063-4771 '9
SREQ /07064-7205 :E
TAD SWREG /07065-1020 HP
JMS I (PROCT /07066-4765 '5
TAD (40 /07067-1364 K4
JMS I (ECHO /07070-4763 '3
ISZ I (TINCNT /07071-2762 W2
JMS I (KCMND /07072-4761 '1
JMS INTEST /07073-4312 #J
TAD I (TIN /07074-1760 O0
DCA SWREG /07075-3020 XP
TAD (-3 /07076-1357 K/
DCA INCNT /07077-3343 [#
JMS I (KCMND /07100-4761 '1
JMS INTEST /07101-4312 #J
TAD SWREG /07102-1020 HP
CLL RTL /07103-7106 9F
RAL /07104-7004 8D
TAD I (TIN /07105-1760 O0
DCA SWREG /07106-3020 XP
ISZ INCNT /07107-2343 S#
JMP .-10 /07110-5300 +@
JMP INEND /07111-5337 +_
INTEST, 0 /07112-0000 @@
CMA IAC /07113-7041 8!
TAD (215 /07114-1356 K.
SNA CLA /07115-7650 >(
JMP INEND /07116-5337 +_
TAD I (TIN /07117-1760 O0
TAD (-"0 /07120-1355 K-
SPA CLA /07121-7710 ?H
JMP INNONU /07122-5333 +[
TAD I (TIN /07123-1760 O0
TAD (-"8 /07124-1354 K,
SMA CLA /07125-7700 ?@
JMP INNONU /07126-5333 +[
TAD I (TIN /07127-1760 O0
AND (7 /07130-0353 C+
DCA I (TIN /07131-3760 _0
JMP I INTEST /07132-5712 /J
INNONU, TAD ("? /07133-1352 K*
JMS I (ECHO /07134-4763 '3
JMS I (PRVTAB /07135-4770 '8
JMP CONSO+1 /07136-5252 **
INEND, JMS I (PRVTAB /07137-4770 '8
DCA INFLG /07140-3342 ["
JMP I CONSO /07141-5651 .)
INFLG, 0 /07142-0000 @@
INCNT, 0 /07143-0000 @@
PAGE
CTRLC, DCA I (ESWI /07200-3777 _?
JMS PCTRL /07201-4233 "[
CIF CDF 0 /07202-6203 2C
CAF /07203-6007 0G
JMP I (7600 /07204-5776 />
SREQ, TEXT /SR= /
/ISZ 7322 /07205-2322 SR
/SMA SZA /07206-7540 =
/0 /07207-0000 @@
PROCT, 0 /07210-0000 @@
CLL RTL /07211-7106 9F
RTL /07212-7006 8F
DCA PROTEM /07213-3231 ZY
TAD (-4 /07214-1375 K=
DCA PROCNT /07215-3232 ZZ
PRONXT, TAD PROTEM /07216-1231 JY
AND (7 /07217-0374 C<
TAD ("0 /07220-1373 K;
JMS I (ECHO /07221-4772 ':
TAD PROTEM /07222-1231 JY
RTL /07223-7006 8F
RAL /07224-7004 8D
DCA PROTEM /07225-3231 ZY
ISZ PROCNT /07226-2232 RZ
JMP PRONXT /07227-5216 *N
JMP I PROCT /07230-5610 .H
PROTEM, 0 /07231-0000 @@
PROCNT, 0 /07232-0000 @@
PCTRL, 0 /07233-0000 @@
TAD ("^ /07234-1371 K9
JMS I (ECHO /07235-4772 ':
TAD I (TIN /07236-1770 O8
JMS I (ECHO /07237-4772 ':
JMP I PCTRL /07240-5633 .[
PRVTAB, 0 /07241-0000 @@
CLA CLL /07242-7300 ;@
TAD (215 /07243-1367 K7
JMS I (ECHO /07244-4772 ':
TAD XX4 /07245-1255 J-
CMA /07246-7040 8
DCA XXCNT /07247-3256 Z.
TAD (212 /07250-1366 K6
JMS I (ECHO /07251-4772 ':
ISZ XXCNT /07252-2256 R.
JMP .-2 /07253-5251 *)
JMP I PRVTAB /07254-5641 .!
XX4, AND 0004 /07255-0004 @D
XXCNT, 0 /07256-0000 @@
SAVE, 0 /07257-0000 @@
DCA I (AC /07260-3765 _5 38
GTF /07261-6004 0D 12
DCA I (FLAG /07262-3764 _4 38
MQA /07263-7501 =A 12
DCA I (MQ /07264-3763 _3 38
KSF /07265-6031 0Y 12
JMP SAEX /07266-5300 +@ 12
TAD HARD /07267-1022 HR
AND (400 /07270-0362 C2
SNA CLA /07271-7650 >(
JMP SAEX /07272-5300 +@ HARDWARE
JMS I (TREAD /07273-4761 '1
JMS I (REST /07274-4760 '0
JMS I (CHECK /07275-4757 '/
NOP /07276-7000 8@
ISZ SAVE /07277-2257 R/
SAEX, JMS I (REST /07300-4760 '0 38 + 188
JMP I SAVE /07301-5657 ./ 24 sum = 412
PAGE
KCMND, 0 /07400-0000 @@
JMS I (TREAD /07401-4777 '?
ISZ TINCNT /07402-2212 RJ
JMS I (CHECK /07403-4776 '>
JMP I KCMND /07404-5600 .@
JMS ECHO /07405-4213 "K
DCA TINCNT /07406-3212 ZJ
TAD TIN /07407-1211 JI
JMP I KCMND /07410-5600 .@
TIN, 0 /07411-0000 @@
TINCNT, 0 /07412-0000 @@
ECHO, 0 /07413-0000 @@
DCA ETEMP /07414-3237 Z_
TAD ESWI /07415-1240 J
SZA CLA /07416-7640 >
JMP ELPT /07417-5226 *V
TAD ETEMP /07420-1237 J_
TLS /07421-6046 0&
TSF /07422-6041 0!
JMP .-1 /07423-5222 *R
TCF /07424-6042 0"
JMP ECLA /07425-5235 *]
ELPT, TAD ETEMP /07426-1237 J_
PCLP /07427-6666 66
JMS I (SAVE /07430-4775 '=
NOP /07431-7000 8@
PSKF /07432-6661 61
JMP .-3 /07433-5230 *X
PCLF /07434-6662 62
ECLA, CLA /07435-7200 :@
JMP I ECHO /07436-5613 .K
ETEMP, 0 /07437-0000 @@
ESWI, 0 /07440-0000 @@
FATAL, 0 /07441-0000 @@
DCA AC /07442-3346 [&
GTF /07443-6004 0D
DCA FLAG /07444-3350 [(
MQA /07445-7501 =A
DCA MQ /07446-3347 ['
CLA CLL CMA /07447-7340 ;
TAD FATAL /07450-1241 J!
DCA PC /07451-3345 [%
TAD HARD /07452-1022 HR
AND (400 /07453-0374 C<
SNA CLA /07454-7650 >(
JMP FANTXT /07455-5312 +J HARDWARE
TAD I (WHTSTH /07456-1773 O;
SZA CLA /07457-7640 >
JMP FANTXT-5 /07460-5305 +E
JMS I (PRVTAB /07461-4772 ':
JMS I (PR6BIT /07462-4771 '9
DILPAN /07463-7521 =Q
JMS I (PR6BIT /07464-4771 '9
DPPC /07465-7531 =Y
TAD PC /07466-1345 K%
JMS I (PROCT /07467-4770 '8
JMS I (PR6BIT /07470-4771 '9
DPAC /07471-7534 =\
TAD AC /07472-1346 K&
JMS I (PROCT /07473-4770 '8
JMS I (PR6BIT /07474-4771 '9
DPMQ /07475-7537 =_
TAD MQ /07476-1347 K'
JMS I (PROCT /07477-4770 '8
JMS I (PR6BIT /07500-4771 '9
DPFL /07501-7542 ="
TAD FLAG /07502-1350 K(
JMS I (PROCT /07503-4770 '8
JMS I (PRVTAB /07504-4772 ':
JMS I XSWI /07505-4423 $S
SPA CLA /07506-7710 ?H "DOWN" - HALT / "UP" - CONTINUE
JMP I FATAL /07507-5641 .!
JMS I (WAIT /07510-4767 '7
JMP I FATAL /07511-5641 .!
FANTXT, JMS I XSWI /07512-4423 $S
SPA CLA /07513-7710 ?H "DOWN" - HALT / "UP" - CONTINUE
JMP I FATAL /07514-5641 .!
TAD (HLT /07515-1366 K6
DCA I PC /07516-3745 _%
JMS I (REST /07517-4765 '5
JMP I PC /07520-5745 /%
DILPAN, TEXT /DILPAN FAILED /
DPPC, TEXT / PC:/
DPAC, TEXT / AC:/
DPMQ, TEXT / MQ:/
DPFL, TEXT / FL:/
PC, 7777 /07545-7777 ??
AC, 7777 /07546-7777 ??
MQ, 7777 /07547-7777 ??
FLAG, 7777 /07550-7777 ??
$