File: DJKMAD.PA of Tape: Test/Tests/PAL-FILES3
(Source file text)
/DJKMAD
SWAB=7431
SWBA=7447
SCL=7403
ACS=7403
MUY=7405
DVI=7407
NMI=7411
SHL=7413
ASR=7415
LSR=7417
SCA=7441
DAD=7443
DST=7445
DPSZ=7451
DPIC=7573
DCM=7575
SAM=7457
KCF=6030
CINT=6204
SINT=6254
CUF=6264
SUF=6274
SDSS=6771
SPL=6102
SBE=6101
CAL=6103
LBM=6170
RBM=6171
RLB=6162
RMR=6173
MBC=6174
RACA=6175
RACB=6176
RACC=6177
/SIMULATOR NOT USED
CLRSIM=6150
LODRG2=6152
LODRG3=6153
CLREMA=6154
REDEMA=6155
CLRMOD=6160
EXECUT=6164
SKPEMA=6166
FIELD 0
*0000
INTSER, 303 /00000-0303 CC
DCA DATREC /00001-3064 X4
SPL /00002-6102 1B
SKP /00003-7410 <H
JMP I XPWRFL /00004-5510 -H
SBE /00005-6101 1A
SKP /00006-7410 <H
JMP I XBAT /00007-5511 -I
RIF /00010-6224 2T
SZA CLA /00011-7640 >
JMS I ERROR /00012-4503 %C
RDF /00013-6214 2L
SZA CLA /00014-7640 >
JMS I ERROR /00015-4503 %C
ISZ INTSER /00016-2000 P@
JMP I INTSER /00017-5400 ,@
SWITCH, AND 0000 /00020-0000 @@
OP1SEL, 5077 /00021-1003 HC SR-OPT1-OPT2-SIM-TEST-XOR-8E-MEM
OP2SEL, AND 0000 /00022-0000 @@
RK8E, HLT /00023-7402 <B
HLT /00024-7402 <B
HLT /00025-7402 <B
HLT /00026-7402 <B
HLT /00027-7402 <B
HLT /00030-7402 <B
HLT /00031-7402 <B
HLT /00032-7402 <B
*0062
AND 0000 /00062-0000 @@
AND 0062 /00063-0062 @2
DATREC, AND 0000 /00064-0000 @@
SAVESZ, AND 0000 /00065-0000 @@
FLDLIM, AND 0000 /00066-0000 @@
UPERLM, AND 0000 /00067-0000 @@
WRKFLD, AND 0000 /00070-0000 @@
DATPAT, AND 0000 /00071-0000 @@
WRKADD, AND 0000 /00072-0000 @@
HGHLIM, AND 0000 /00073-0000 @@
K6201, CDF 0 /00074-6201 2A
SAVWFD, AND 0000 /00075-0000 @@
ADDCNT, AND 0000 /00076-0000 @@
BADPAS, 6520 /00077-6520 5P
GOODPS, 6500 /00100-6500 5@
AUTRST, PRGRST /00101-5053 (+ OR OPRINT
TEST, AND 0000 /00102-0000 @@
ERROR, ERRORX /00103-5101 )A
LOOP, TSTLOP /00104-5160 )0
SCOPLP, TESTAD /00105-5060 (0
TESTZZ, TESTXX /00106-5207 *G
TESTZ, TESTX /00107-5200 *@
XPWRFL, POWFAL /00110-5043 (#
XBAT, BATEMT /00111-5067 (7
PASEND, ENDPAS /00112-5017 (O
M1, MQA MQL CLA SAM /00113-7777 ??
SPA SNA SZL CLA OSR HLT /00114-7776 ?>
M4, SPA SNA SZL CLA OSR /00115-7774 ?<
M5, MQA MQL CLA DPIC /00116-7773 ?;
MQA MQL CLA DPSZ /00117-7771 ?9
SPA SNA SZL CLA /00120-7770 ?8
MQA MQL CLA SWBA /00121-7767 ?7
SMA SZA SNL CLA /00122-7760 ?0
7753 /00123-7753 ?+
MQA CLA DST /00124-7745 ?%
MQA MQL CLA ASR /00125-7735 ?]
SPA SZL CLA OSR /00126-7734 ?\
SPA SZL CLA /00127-7730 ?X
MQA MQL CLA ACS /00130-7723 ?S
SMA SNL CLA /00131-7720 ?P
SPA CLA HLT /00132-7712 ?J
M70, SPA CLA /00133-7710 ?H
MQA CLA /00134-7701 ?A
SMA CLA /00135-7700 ?@
7653 /00136-7653 >+
SNL CLA OSR HLT /00137-7626 >V
6700 /00140-6700 7@
2700 /00141-2700 W@
K7, AND 0007 /00142-0007 @G
AND 0010 /00143-0010 @H
K70, AND 0070 /00144-0070 @8
AND 0077 /00145-0077 @?
K200, 200 /00146-0200 B@
400 /00147-0400 D@
SPA SNA SZL CLA OSR /00150-7774 ?<
JMS 0100 /00151-4100 !@
*0200
START, JMS I 0107 /00200-4507 %G
TEST1, 6160 /00201-6160 10
JMS I SCOPLP /00202-4505 %E
CAF /00203-6007 0G
CUF /00204-6264 24
SKP /00205-7410 <H
JMS I ERROR /00206-4503 %C
SINT /00207-6254 2,
SKP /00210-7410 <H
JMS I ERROR /00211-4503 %C
ION /00212-6001 0A
CDF 0 /00213-6201 2A
SKP /00214-7410 <H
JMS I ERROR /00215-4503 %C
RDF /00216-6214 2L
SKP /00217-7410 <H
JMS I ERROR /00220-4503 %C
SZA CLA /00221-7640 >
JMS I ERROR /00222-4503 %C
RIF /00223-6224 2T
SKP /00224-7410 <H
JMS I ERROR /00225-4503 %C
SZA CLA /00226-7640 >
JMS I ERROR /00227-4503 %C
CDF 70 /00230-6271 29
RDF /00231-6214 2L
TAD M70 /00232-1133 I[
SZA CLA /00233-7640 >
JMS I ERROR /00234-4503 %C
TAD 0375 /00235-1375 K=
RDF /00236-6214 2L
CMA /00237-7040 8
SZA CLA /00240-7640 >
JMS I ERROR /00241-4503 %C
RIF /00242-6224 2T
SZA CLA /00243-7640 >
JMS I ERROR /00244-4503 %C
CDF 20 /00245-6221 2Q
RDF /00246-6214 2L
TAD 0122 /00247-1122 IR
SZA CLA /00250-7640 >
JMS I ERROR /00251-4503 %C
TAD 0372 /00252-1372 K:
RDF /00253-6214 2L
CMA /00254-7040 8
SZA CLA /00255-7640 >
JMS I ERROR /00256-4503 %C
RIF /00257-6224 2T
SZA CLA /00260-7640 >
JMS I ERROR /00261-4503 %C
CDF 50 /00262-6251 2)
RDF /00263-6214 2L
TAD 0127 /00264-1127 IW
SZA CLA /00265-7640 >
JMS I ERROR /00266-4503 %C
RIF /00267-6224 2T
SZA CLA /00270-7640 >
JMS I ERROR /00271-4503 %C
CDF 30 /00272-6231 2Y
RDF /00273-6214 2L
TAD 0373 /00274-1373 K;
SZA CLA /00275-7640 >
JMS I ERROR /00276-4503 %C
RIF /00277-6224 2T
SZA CLA /00300-7640 >
JMS I ERROR /00301-4503 %C
CDF 40 /00302-6241 2!
RDF /00303-6214 2L
TAD 0374 /00304-1374 K<
SZA CLA /00305-7640 >
JMS I ERROR /00306-4503 %C
RIF /00307-6224 2T
SZA CLA /00310-7640 >
JMS I ERROR /00311-4503 %C
CDF 10 /00312-6211 2I
RDF /00313-6214 2L
TAD 0120 /00314-1120 IP
SZA CLA /00315-7640 >
JMS I ERROR /00316-4503 %C
RIF /00317-6224 2T
SZA CLA /00320-7640 >
JMS I ERROR /00321-4503 %C
CDF 60 /00322-6261 21
RDF /00323-6214 2L
TAD 0131 /00324-1131 IY
SZA CLA /00325-7640 >
JMS I ERROR /00326-4503 %C
RIF /00327-6224 2T
SZA CLA /00330-7640 >
JMS I ERROR /00331-4503 %C
CDF 0 /00332-6201 2A
RDF /00333-6214 2L
SZA CLA /00334-7640 >
JMS I ERROR /00335-4503 %C
RIF /00336-6224 2T
SZA CLA /00337-7640 >
JMS I ERROR /00340-4503 %C
JMS I 0104 /00341-4504 %D
JMS I SCOPLP /00342-4505 %E
CAF /00343-6007 0G
CUF /00344-6264 24
SKP /00345-7410 <H
JMS I ERROR /00346-4503 %C
CINT /00347-6204 2D
SKP /00350-7410 <H
JMS I ERROR /00351-4503 %C
SINT /00352-6254 2,
SKP /00353-7410 <H
JMS I ERROR /00354-4503 %C
ION /00355-6001 0A
SUF /00356-6274 2<
JMP 0361 /00357-5361 +1
JMP 0360 /00360-5360 +0
HLT /00361-7402 <B
JMP 0362 /00362-5362 +2
SINT /00363-6254 2,
JMP 0364 /00364-5364 +4
CINT /00365-6204 2D
SINT /00366-6254 2,
SKP /00367-7410 <H
JMP 0370 /00370-5370 +8
JMP I 0377 /00371-5777 /?
MQA CLA SAM /00372-7757 ?/
SPA SNA CLA /00373-7750 ?(
SMA SZA CLA /00374-7740 ?
MQA CLA DVI /00375-7707 ?G
*0377
AND I 0004 /00377-0404 DD
*0400
JMP I 0401 /00400-5601 .A
DCA I 0477 /00401-3677 ^?
MQL CLA SAM /00402-7677 >?
SMA /00403-7500 =@
GTF /00404-6004 0D
SKP /00405-7410 <H
JMP 0406 /00406-5206 *F
TAD 0135 /00407-1135 I]
SZA CLA /00410-7640 >
JMP 0411 /00411-5211 *I
CLA CLL /00412-7300 ;@
RIB /00413-6234 2\
SKP /00414-7410 <H
JMP 0415 /00415-5215 *M
TAD 0135 /00416-1135 I]
SZA CLA /00417-7640 >
JMP 0420 /00420-5220 *P
TAD 0402 /00421-1202 JB
RIB /00422-6234 2\
CMA /00423-7040 8
SZA CLA /00424-7640 >
JMP 0425 /00425-5225 *U
CLA CLL CMA /00426-7340 ;
GTF /00427-6004 0D
TAD 0135 /00430-1135 I]
SZA CLA /00431-7640 >
JMP 0432 /00432-5232 *Z
JMS I 0104 /00433-4504 %D
JMS I SCOPLP /00434-4505 %E
CAF /00435-6007 0G
ION /00436-6001 0A
SUF /00437-6274 2<
JMP 0441 /00440-5241 *!
OSR /00441-7404 <D
JMP 0442 /00442-5242 *"
SINT /00443-6254 2,
JMP 0444 /00444-5244 *$
CINT /00445-6204 2D
SINT /00446-6254 2,
SKP /00447-7410 <H
JMP 0450 /00450-5250 *(
ION /00451-6001 0A
JMP 0453 /00452-5253 *+
OSR /00453-7404 <D
SKP CLA /00454-7610 >H
JMP 0455 /00455-5255 *-
RIB /00456-6234 2\
TAD 0135 /00457-1135 I]
SZA CLA /00460-7640 >
JMS I ERROR /00461-4503 %C
CLA CLL CMA /00462-7340 ;
GTF /00463-6004 0D
TAD 0403 /00464-1203 JC
SZA CLA /00465-7640 >
JMS I ERROR /00466-4503 %C
RIF /00467-6224 2T
SZA CLA /00470-7640 >
JMS I ERROR /00471-4503 %C
RDF /00472-6214 2L
SZA CLA /00473-7640 >
JMS I ERROR /00474-4503 %C
JMS I 0104 /00475-4504 %D
JMS I SCOPLP /00476-4505 %E
CAF /00477-6007 0G
ION /00500-6001 0A
SUF /00501-6274 2<
JMP 0503 /00502-5303 +C
ION /00503-6001 0A
JMP 0504 /00504-5304 +D
SINT /00505-6254 2,
JMP 0506 /00506-5306 +F
CAF /00507-6007 0G
SINT /00510-6254 2,
SKP /00511-7410 <H
JMP 0512 /00512-5312 +J
ION /00513-6001 0A
JMP 0515 /00514-5315 +M
ION /00515-6001 0A
SKP /00516-7410 <H
JMP 0517 /00517-5317 +O
RIB /00520-6234 2\
TAD 0135 /00521-1135 I]
SZA CLA /00522-7640 >
JMS I ERROR /00523-4503 %C
CLA CLL CMA /00524-7340 ;
GTF /00525-6004 0D
TAD 0403 /00526-1203 JC
SZA CLA /00527-7640 >
JMS I ERROR /00530-4503 %C
JMS I 0104 /00531-4504 %D
JMS I SCOPLP /00532-4505 %E
CAF /00533-6007 0G
ION /00534-6001 0A
SUF /00535-6274 2<
JMP 0537 /00536-5337 +_
HLT /00537-7402 <B
JMP 0540 /00540-5340 +
SINT /00541-6254 2,
JMS I ERROR /00542-4503 %C
CAF /00543-6007 0G
SINT /00544-6254 2,
SKP /00545-7410 <H
JMS I ERROR /00546-4503 %C
RIB /00547-6234 2\
TAD 0135 /00550-1135 I]
SZA CLA /00551-7640 >
JMS I ERROR /00552-4503 %C
ION /00553-6001 0A
SUF /00554-6274 2<
CUF /00555-6264 24
SKP /00556-7410 <H
JMP 0557 /00557-5357 +/
JMP 0561 /00560-5361 +1
ION /00561-6001 0A
SKP /00562-7410 <H
JMP 0563 /00563-5363 +3
SINT /00564-6254 2,
SKP /00565-7410 <H
JMS I ERROR /00566-4503 %C
CLA CLL CMA /00567-7340 ;
GTF /00570-6004 0D
TAD 0403 /00571-1203 JC
SZA CLA /00572-7640 >
JMS I ERROR /00573-4503 %C
RIB /00574-6234 2\
TAD 0135 /00575-1135 I]
SZA CLA /00576-7640 >
JMS I ERROR /00577-4503 %C
JMS I 0104 /00600-4504 %D
JMP 0604 /00601-5204 *D
DCA I 0700 /00602-3700 _@
NOP /00603-7000 8@
JMS I SCOPLP /00604-4505 %E
CAF /00605-6007 0G
ION /00606-6001 0A
SUF /00607-6274 2<
ION /00610-6001 0A
SKP /00611-7410 <H
JMP 0612 /00612-5212 *J
OSR /00613-7404 <D
SKP CLA /00614-7610 >H
JMP 0615 /00615-5215 *M
CLA OSR /00616-7604 >D
SKP CLA /00617-7610 >H
JMP 0620 /00620-5220 *P
JMS 0622 /00621-4222 "R
HLT /00622-7402 <B
HLT /00623-7402 <B
JMP 0624 /00624-5224 *T
SINT /00625-6254 2,
JMS I ERROR /00626-4503 %C
RIB /00627-6234 2\
TAD 0135 /00630-1135 I]
SZA CLA /00631-7640 >
JMS I ERROR /00632-4503 %C
CLA CLL CMA /00633-7340 ;
GTF /00634-6004 0D
TAD 0140 /00635-1140 I
SZA CLA /00636-7640 >
JMS I ERROR /00637-4503 %C
CINT /00640-6204 2D
CLA CLL CMA CML /00641-7360 ;0
GTF /00642-6004 0D
TAD 0602 /00643-1202 JB
SZA CLA /00644-7640 >
JMS I ERROR /00645-4503 %C
CLL /00646-7100 9@
GTF /00647-6004 0D
TAD 0135 /00650-1135 I]
SZA CLA /00651-7640 >
JMS I ERROR /00652-4503 %C
JMS I 0104 /00653-4504 %D
JMS I SCOPLP /00654-4505 %E
CAF /00655-6007 0G
ION /00656-6001 0A
SUF /00657-6274 2<
JMP 0661 /00660-5261 *1
HLT /00661-7402 <B
JMP 0662 /00662-5262 *2
SINT /00663-6254 2,
JMS I ERROR /00664-4503 %C
CLA CMA /00665-7240 :
GTF /00666-6004 0D
TAD 0140 /00667-1140 I
SZA CLA /00670-7640 >
JMS I ERROR /00671-4503 %C
ION /00672-6001 0A
NOP /00673-7000 8@
JMS I ERROR /00674-4503 %C
CLA CLL CMA /00675-7340 ;
GTF /00676-6004 0D
TAD 0603 /00677-1203 JC
SZA CLA /00700-7640 >
JMS I ERROR /00701-4503 %C
CINT /00702-6204 2D
SINT /00703-6254 2,
SKP /00704-7410 <H
JMS I ERROR /00705-4503 %C
CLA CLL CMA /00706-7340 ;
GTF /00707-6004 0D
SZA CLA /00710-7640 >
JMS I ERROR /00711-4503 %C
JMS I 0104 /00712-4504 %D
JMS I SCOPLP /00713-4505 %E
CAF /00714-6007 0G
ION /00715-6001 0A
SUF /00716-6274 2<
JMP 0720 /00717-5320 +P
HLT /00720-7402 <B
JMP 0721 /00721-5321 +Q
SINT /00722-6254 2,
JMS I ERROR /00723-4503 %C
CINT /00724-6204 2D
SINT /00725-6254 2,
SKP /00726-7410 <H
JMS I ERROR /00727-4503 %C
RIB /00730-6234 2\
TAD 0135 /00731-1135 I]
SZA CLA /00732-7640 >
JMS I ERROR /00733-4503 %C
CLL /00734-7100 9@
TAD 0151 /00735-1151 I)
RTF /00736-6005 0E
SKP CLA /00737-7610 >H
JMP 0740 /00740-5340 +
RIF /00741-6224 2T
SZA CLA /00742-7640 >
JMP 0743 /00743-5343 +#
RDF /00744-6214 2L
SZA CLA /00745-7640 >
JMP 0746 /00746-5346 +&
JMP 0750 /00747-5350 +(
HLT /00750-7402 <B
JMP 0751 /00751-5351 +)
SINT /00752-6254 2,
JMS I ERROR /00753-4503 %C
GTF /00754-6004 0D
TAD 0141 /00755-1141 I!
SZA CLA /00756-7640 >
JMS I ERROR /00757-4503 %C
CLL /00760-7100 9@
ION /00761-6001 0A
JMP 0763 /00762-5363 +3
JMS I ERROR /00763-4503 %C
GTF /00764-6004 0D
TAD 0603 /00765-1203 JC
SZA CLA /00766-7640 >
JMS I ERROR /00767-4503 %C
SINT /00770-6254 2,
JMS I ERROR /00771-4503 %C
CINT /00772-6204 2D
SINT /00773-6254 2,
SKP CLA /00774-7610 >H
JMS I ERROR /00775-4503 %C
CLA CLL CMA /00776-7340 ;
GTF /00777-6004 0D
SZA CLA /01000-7640 >
JMS I ERROR /01001-4503 %C
JMS I 0104 /01002-4504 %D
JMS I SCOPLP /01003-4505 %E
NOP /01004-7000 8@
CAF /01005-6007 0G
ION /01006-6001 0A
SUF /01007-6274 2<
JMP 1011 /01010-5211 *I
HLT /01011-7402 <B
JMP 1012 /01012-5212 *J
SINT /01013-6254 2,
JMS I ERROR /01014-4503 %C
CINT /01015-6204 2D
SINT /01016-6254 2,
SKP /01017-7410 <H
JMS I ERROR /01020-4503 %C
RIB /01021-6234 2\
TAD 0135 /01022-1135 I]
SZA CLA /01023-7640 >
JMS I ERROR /01024-4503 %C
ION /01025-6001 0A
RMF /01026-6244 2$
SKP CLA /01027-7610 >H
JMP 1030 /01030-5230 *X
JMP 1032 /01031-5232 *Z
HLT /01032-7402 <B
JMP 1033 /01033-5233 *[
SINT /01034-6254 2,
JMS I ERROR /01035-4503 %C
CLL /01036-7100 9@
GTF /01037-6004 0D
TAD 0140 /01040-1140 I
SZA CLA /01041-7640 >
JMS I ERROR /01042-4503 %C
ION /01043-6001 0A
JMP 1045 /01044-5245 *%
JMS I ERROR /01045-4503 %C
RIB /01046-6234 2\
SZA CLA /01047-7640 >
JMS I ERROR /01050-4503 %C
SINT /01051-6254 2,
JMS I ERROR /01052-4503 %C
CINT /01053-6204 2D
SINT /01054-6254 2,
SKP /01055-7410 <H
JMS I ERROR /01056-4503 %C
JMS I 0104 /01057-4504 %D
JMS I SCOPLP /01060-4505 %E
CAF /01061-6007 0G
TAD 0151 /01062-1151 I)
RTF /01063-6005 0E
SNL CLA /01064-7620 >P
HLT /01065-7402 <B
SKON /01066-6000 0@
HLT /01067-7402 <B
SKON /01070-6000 0@
SKP /01071-7410 <H
HLT /01072-7402 <B
ION /01073-6001 0A
JMP 1075 /01074-5275 *=
HLT /01075-7402 <B
JMP 1076 /01076-5276 *>
SINT /01077-6254 2,
JMS I ERROR /01100-4503 %C
GTF /01101-6004 0D
TAD 0141 /01102-1141 I!
SZA CLA /01103-7640 >
JMS I ERROR /01104-4503 %C
CLA CLL /01105-7300 ;@
RTF /01106-6005 0E
JMP 1110 /01107-5310 +H
JMS I ERROR /01110-4503 %C
SINT /01111-6254 2,
JMS I ERROR /01112-4503 %C
CINT /01113-6204 2D
RIB /01114-6234 2\
SZA CLA /01115-7640 >
JMS I ERROR /01116-4503 %C
GTF /01117-6004 0D
SZA CLA /01120-7640 >
JMS I ERROR /01121-4503 %C
JMS I 0104 /01122-4504 %D
JMS I SCOPLP /01123-4505 %E
CAF /01124-6007 0G
ION /01125-6001 0A
SUF /01126-6274 2<
JMP 1130 /01127-5330 +X
HLT /01130-7402 <B
JMP 1131 /01131-5331 +Y
SINT /01132-6254 2,
JMS I ERROR /01133-4503 %C
GTF /01134-6004 0D
TAD 0140 /01135-1140 I
SZA CLA /01136-7640 >
JMS I ERROR /01137-4503 %C
RIB /01140-6234 2\
TAD 0135 /01141-1135 I]
SZA CLA /01142-7640 >
JMS I ERROR /01143-4503 %C
CIF 0 /01144-6202 2B
CLA CLL /01145-7300 ;@
ION /01146-6001 0A
RIF /01147-6224 2T
SZA /01150-7440 <
HLT /01151-7402 <B
JMP 1153 /01152-5353 ++
JMS I ERROR /01153-4503 %C
GTF /01154-6004 0D
TAD 1160 /01155-1360 K0
SZA CLA /01156-7640 >
JMS I ERROR /01157-4503 %C
NOP /01160-7000 8@
RIB /01161-6234 2\
SZA CLA /01162-7640 >
JMS I ERROR /01163-4503 %C
CLA CMA /01164-7240 :
DCA 1174 /01165-3374 [<
CIF 70 /01166-6272 2:
ION /01167-6001 0A
RIF /01170-6224 2T
SZA /01171-7440 <
HLT /01172-7402 <B
JMS 1174 /01173-4374 #<
HLT /01174-7402 <B
JMS I ERROR /01175-4503 %C
CLA CLL CMA CML /01176-7360 ;0
GTF /01177-6004 0D
TAD 1374 /01200-1374 K<
TAD M70 /01201-1133 I[
SZA CLA /01202-7640 >
JMS I ERROR /01203-4503 %C
RIB /01204-6234 2\
TAD M70 /01205-1133 I[
SZA CLA /01206-7640 >
JMS I ERROR /01207-4503 %C
ISZ I 1377 /01210-2777 W?
JMS I ERROR /01211-4503 %C
CLA CMA /01212-7240 :
DCA 1224 /01213-3224 ZT
SINT /01214-6254 2,
JMS I ERROR /01215-4503 %C
CIF 50 /01216-6252 2*
ION /01217-6001 0A
RIF /01220-6224 2T
SZA /01221-7440 <
HLT /01222-7402 <B
JMS 1224 /01223-4224 "T
HLT /01224-7402 <B
JMS I ERROR /01225-4503 %C
CLA CLL CMA /01226-7340 ;
GTF /01227-6004 0D
TAD 1373 /01230-1373 K;
TAD 0127 /01231-1127 IW
SZA CLA /01232-7640 >
JMS I ERROR /01233-4503 %C
RIB /01234-6234 2\
TAD 0127 /01235-1127 IW
SZA CLA /01236-7640 >
JMS I ERROR /01237-4503 %C
ISZ 1224 /01240-2224 RT
JMS I ERROR /01241-4503 %C
CLA CMA /01242-7240 :
DCA 1252 /01243-3252 Z*
CIF 20 /01244-6222 2R
ION /01245-6001 0A
RIF /01246-6224 2T
SZA /01247-7440 <
HLT /01250-7402 <B
JMS 1252 /01251-4252 "*
HLT /01252-7402 <B
JMS I ERROR /01253-4503 %C
CLA CLL CMA CML /01254-7360 ;0
GTF /01255-6004 0D
TAD 1374 /01256-1374 K<
TAD 0122 /01257-1122 IR
SZA CLA /01260-7640 >
JMS I ERROR /01261-4503 %C
RIB /01262-6234 2\
TAD 0122 /01263-1122 IR
SZA CLA /01264-7640 >
JMS I ERROR /01265-4503 %C
ISZ 1252 /01266-2252 R*
JMS I ERROR /01267-4503 %C
CLA CMA /01270-7240 :
DCA 1300 /01271-3300 [@
CIF 10 /01272-6212 2J
ION /01273-6001 0A
RIF /01274-6224 2T
SZA /01275-7440 <
HLT /01276-7402 <B
JMS 1300 /01277-4300 #@
HLT /01300-7402 <B
JMS I ERROR /01301-4503 %C
CLA CLL CMA /01302-7340 ;
GTF /01303-6004 0D
TAD 1373 /01304-1373 K;
TAD 0120 /01305-1120 IP
SZA CLA /01306-7640 >
JMS I ERROR /01307-4503 %C
RIB /01310-6234 2\
TAD 0120 /01311-1120 IP
SZA CLA /01312-7640 >
JMS I ERROR /01313-4503 %C
ISZ 1300 /01314-2300 S@
JMS I ERROR /01315-4503 %C
CLA CMA /01316-7240 :
DCA 1326 /01317-3326 [V
CIF 60 /01320-6262 22
ION /01321-6001 0A
RIF /01322-6224 2T
SZA /01323-7440 <
HLT /01324-7402 <B
JMS 1326 /01325-4326 #V
HLT /01326-7402 <B
JMS I ERROR /01327-4503 %C
CLA CLL CMA CML /01330-7360 ;0
GTF /01331-6004 0D
TAD 1374 /01332-1374 K<
TAD 0131 /01333-1131 IY
SZA CLA /01334-7640 >
JMS I ERROR /01335-4503 %C
RIB /01336-6234 2\
TAD 0131 /01337-1131 IY
SZA CLA /01340-7640 >
JMS I ERROR /01341-4503 %C
ISZ 1326 /01342-2326 SV
JMS I ERROR /01343-4503 %C
CLA CMA /01344-7240 :
DCA 1354 /01345-3354 [,
CIF 30 /01346-6232 2Z
ION /01347-6001 0A
RIF /01350-6224 2T
SZA /01351-7440 <
HLT /01352-7402 <B
JMS 1354 /01353-4354 #,
HLT /01354-7402 <B
JMS I ERROR /01355-4503 %C
CLA CLL CMA /01356-7340 ;
GTF /01357-6004 0D
TAD 1373 /01360-1373 K;
TAD 1375 /01361-1375 K=
SZA CLA /01362-7640 >
JMS I ERROR /01363-4503 %C
RIB /01364-6234 2\
TAD 1375 /01365-1375 K=
SZA CLA /01366-7640 >
JMS I ERROR /01367-4503 %C
ISZ 1354 /01370-2354 S,
JMS I ERROR /01371-4503 %C
JMP I 1376 /01372-5776 />
NOP /01373-7000 8@
DCA 0000 /01374-3000 X@
SPA SNA CLA /01375-7750 ?(
TAD I 0000 /01376-1400 L@
TAD 0174 /01377-1174 I<
*1400
CLA CMA /01400-7240 :
DCA 1410 /01401-3210 ZH
CIF 40 /01402-6242 2"
ION /01403-6001 0A
RIF /01404-6224 2T
SZA /01405-7440 <
HLT /01406-7402 <B
JMS 1410 /01407-4210 "H
HLT /01410-7402 <B
JMS I ERROR /01411-4503 %C
CLA CLL CMA CML /01412-7360 ;0
GTF /01413-6004 0D
TAD 1563 /01414-1363 K3
TAD 1564 /01415-1364 K4
SZA CLA /01416-7640 >
JMS I ERROR /01417-4503 %C
RIB /01420-6234 2\
TAD 1564 /01421-1364 K4
SZA CLA /01422-7640 >
JMS I ERROR /01423-4503 %C
ISZ 1410 /01424-2210 RH
JMS I ERROR /01425-4503 %C
CLA CLL CMA /01426-7340 ;
DCA 1436 /01427-3236 Z^
CIF 0 /01430-6202 2B
ION /01431-6001 0A
RIF /01432-6224 2T
SZA /01433-7440 <
HLT /01434-7402 <B
JMS 1436 /01435-4236 "^
HLT /01436-7402 <B
JMS I ERROR /01437-4503 %C
GTF /01440-6004 0D
TAD 1442 /01441-1242 J"
NOP /01442-7000 8@
SZA CLA /01443-7640 >
JMS I ERROR /01444-4503 %C
RIB /01445-6234 2\
SZA CLA /01446-7640 >
JMS I ERROR /01447-4503 %C
ISZ 1436 /01450-2236 R^
SKP CLA /01451-7610 >H
JMS I ERROR /01452-4503 %C
CAF /01453-6007 0G
GTF /01454-6004 0D
SZA CLA /01455-7640 >
JMS I ERROR /01456-4503 %C
JMS I 0104 /01457-4504 %D
JMP I 1577 /01460-5777 /?
XORCHK, AND 0000 /01461-0000 @@
SPA CLA /01462-7710 ?H
HLT /01463-7402 <B
TAD OP1SEL /01464-1021 HQ
AND 1576 /01465-0376 C>
SNA CLA /01466-7650 >(
JMP I XORCHK /01467-5661 .1
CAF /01470-6007 0G
RMR /01471-6173 1;
SKP CLA /01472-7610 >H
JMP 1477 /01473-5277 *?
6160 /01474-6160 10
LBM /01475-6170 18
JMP I XORCHK /01476-5661 .1
CAF /01477-6007 0G
RBM /01500-6171 19
LBM /01501-6170 18
CAF /01502-6007 0G
JMP I XORCHK /01503-5661 .1
XORLOP, AND 0000 /01504-0000 @@
DCA 1521 /01505-3321 [Q
TAD OP1SEL /01506-1021 HQ
AND 1576 /01507-0376 C>
SZA CLA /01510-7640 >
JMP 1516 /01511-5316 +N
TAD 1521 /01512-1321 KQ
SMA CLA /01513-7700 ?@
JMP I 1504 /01514-5704 /D
JMP I TEST /01515-5502 -B
RBM /01516-6171 19
JMP 1512 /01517-5312 +J
JMP I TEST /01520-5502 -B
AND 0000 /01521-0000 @@
RX8ADD, AND 0024 /01522-0024 @T
SMA SZA CLA HLT /01523-7742 ?"
CLL CML RTL /01524-7126 9V
TAD 0060 /01525-1060 H0
6751 /01526-6751 7)
CLA IAC /01527-7201 :A
JMS 0053 /01530-4053 +
JMS 0053 /01531-4053 +
CLL RAL /01532-7104 9D
6755 /01533-6755 7-
JMP 0054 /01534-5054 (,
6754 /01535-6754 7,
SNA /01536-7450 <(
SKP CLA /01537-7610 >H
JMP 0046 /01540-5046 (&
TAD 0060 /01541-1060 H0
CMA IAC /01542-7041 8!
TAD 0061 /01543-1061 H1
DCA 0060 /01544-3060 X0
JMP 0024 /01545-5024 (T
6751 /01546-6751 7)
JMS 0053 /01547-4053 +
DCA 0002 /01550-3002 XB
ISZ 0050 /01551-2050 P(
JMP 0047 /01552-5047 ('
AND 0000 /01553-0000 @@
6753 /01554-6753 7+
JMP 0033 /01555-5033 ([
6752 /01556-6752 7*
JMP I 0053 /01557-5453 ,+
CML RAL /01560-7024 8T
KCF /01561-6030 0X
AND 0000 /01562-0000 @@
DCA 0000 /01563-3000 X@
SMA SZA CLA /01564-7740 ?
*1576
AND 0100 /01576-0100 A@
TAD I 1400 /01577-1600 N@
*1600
JMS I SCOPLP /01600-4505 %E
CAF /01601-6007 0G
ION /01602-6001 0A
SUF /01603-6274 2<
JMP 1605 /01604-5205 *E
HLT /01605-7402 <B
JMP 1606 /01606-5206 *F
SINT /01607-6254 2,
JMS I ERROR /01610-4503 %C
GTF /01611-6004 0D
TAD 0140 /01612-1140 I
SZA CLA /01613-7640 >
JMS I ERROR /01614-4503 %C
CLA CLL CMA /01615-7340 ;
DCA 0062 /01616-3062 X2
CLA CLL CMA /01617-7340 ;
DCA 1627 /01620-3227 ZW
CDF 60 /01621-6261 21
CIF 10 /01622-6212 2J
DCA I 0063 /01623-3463 \3
ION /01624-6001 0A
JMS I 1626 /01625-4626 &V
TAD I 1627 /01626-1627 NW
HLT /01627-7402 <B
JMS I ERROR /01630-4503 %C
GTF /01631-6004 0D
TAD 1761 /01632-1361 K1
SZA CLA /01633-7640 >
JMS I ERROR /01634-4503 %C
RIB /01635-6234 2\
TAD 1770 /01636-1370 K8
SZA CLA /01637-7640 >
JMS I ERROR /01640-4503 %C
ISZ 0062 /01641-2062 P2
JMS I ERROR /01642-4503 %C
ISZ 1627 /01643-2227 RW
JMS I ERROR /01644-4503 %C
CLA CLL CMA /01645-7340 ;
DCA 0062 /01646-3062 X2
CLA CLL CMA /01647-7340 ;
DCA 1657 /01650-3257 Z/
CDF 10 /01651-6211 2I
CIF 60 /01652-6262 22
DCA I 0063 /01653-3463 \3
ION /01654-6001 0A
JMS I 1656 /01655-4656 &.
TAD I 1657 /01656-1657 N/
HLT /01657-7402 <B
JMS I ERROR /01660-4503 %C
CLA CLL CMA /01661-7340 ;
GTF /01662-6004 0D
TAD 1762 /01663-1362 K2
SZA CLA /01664-7640 >
JMS I ERROR /01665-4503 %C
RIB /01666-6234 2\
TAD 1767 /01667-1367 K7
SZA CLA /01670-7640 >
JMS I ERROR /01671-4503 %C
ISZ 0062 /01672-2062 P2
JMS I ERROR /01673-4503 %C
ISZ 1657 /01674-2257 R/
JMS I ERROR /01675-4503 %C
CLA CLL CMA /01676-7340 ;
DCA 0062 /01677-3062 X2
CLA CLL CMA /01700-7340 ;
DCA 1710 /01701-3310 [H
CIF 30 /01702-6232 2Z
CDF 40 /01703-6241 2!
DCA I 0063 /01704-3463 \3
ION /01705-6001 0A
JMS I 1707 /01706-4707 'G
TAD I 1710 /01707-1710 OH
HLT /01710-7402 <B
JMS I ERROR /01711-4503 %C
CLA CLL CMA /01712-7340 ;
GTF /01713-6004 0D
TAD 1763 /01714-1363 K3
SZA CLA /01715-7640 >
JMS I ERROR /01716-4503 %C
RIB /01717-6234 2\
TAD 1765 /01720-1365 K5
SZA CLA /01721-7640 >
JMS I ERROR /01722-4503 %C
ISZ 0062 /01723-2062 P2
JMS I ERROR /01724-4503 %C
ISZ 1710 /01725-2310 SH
JMS I ERROR /01726-4503 %C
CLA CLL CMA /01727-7340 ;
DCA 0062 /01730-3062 X2
CLA CLL CMA /01731-7340 ;
DCA 1741 /01732-3341 [!
CIF 50 /01733-6252 2*
CDF 20 /01734-6221 2Q
DCA I 0063 /01735-3463 \3
ION /01736-6001 0A
JMS I 1740 /01737-4740 '
TAD I 1741 /01740-1741 O!
HLT /01741-7402 <B
JMS I ERROR /01742-4503 %C
CLA CLL CMA /01743-7340 ;
GTF /01744-6004 0D
TAD 1764 /01745-1364 K4
SZA CLA /01746-7640 >
JMS I ERROR /01747-4503 %C
RIB /01750-6234 2\
TAD 1766 /01751-1366 K6
SZA CLA /01752-7640 >
JMS I ERROR /01753-4503 %C
ISZ 0062 /01754-2062 P2
JMS I ERROR /01755-4503 %C
ISZ 1741 /01756-2341 S!
JMS I ERROR /01757-4503 %C
JMP I 1777 /01760-5777 /?
6762 /01761-6762 72
6717 /01762-6717 7O
6744 /01763-6744 7$
6726 /01764-6726 7V
SMA SZA CLA OSR /01765-7744 ?$
SMA SNL CLA OSR HLT /01766-7726 ?V
MQA CLA LSR /01767-7717 ?O
SMA SZA SNL CLA HLT /01770-7762 ?2
*1777
ISZ 0005 /01777-2005 PE
*2000
JMS I AUTRST /02000-4501 %A
6753 /02001-6753 7+
6735 /02002-6735 7]
6710 /02003-6710 7H
SDSS /02004-6771 79
CLA CLL CMA /02005-7340 ;
DCA 0062 /02006-3062 X2
CLA CMA /02007-7240 :
DCA 2017 /02010-3217 ZO
CDF 50 /02011-6251 2)
CIF 20 /02012-6222 2R
DCA I 0063 /02013-3463 \3
ION /02014-6001 0A
JMS I 2016 /02015-4616 &N
ISZ 0017 /02016-2017 PO
HLT /02017-7402 <B
JMS I ERROR /02020-4503 %C
CLA CLL CMA /02021-7340 ;
GTF /02022-6004 0D
TAD 2001 /02023-1201 JA
SZA CLA /02024-7640 >
JMS I ERROR /02025-4503 %C
RIB /02026-6234 2\
TAD 0123 /02027-1123 IS
SZA CLA /02030-7640 >
JMS I ERROR /02031-4503 %C
ISZ 0062 /02032-2062 P2
JMS I ERROR /02033-4503 %C
ISZ 2017 /02034-2217 RO
JMS I ERROR /02035-4503 %C
CLA CLL CMA /02036-7340 ;
DCA 0062 /02037-3062 X2
CLA CMA /02040-7240 :
DCA 2050 /02041-3250 Z(
CDF 30 /02042-6231 2Y
CIF 40 /02043-6242 2"
DCA I 0063 /02044-3463 \3
ION /02045-6001 0A
JMS I 2047 /02046-4647 &'
ISZ 0050 /02047-2050 P(
HLT /02050-7402 <B
JMS I ERROR /02051-4503 %C
CLA CLL CMA /02052-7340 ;
GTF /02053-6004 0D
TAD 2002 /02054-1202 JB
SZA CLA /02055-7640 >
JMS I ERROR /02056-4503 %C
RIB /02057-6234 2\
TAD 0125 /02060-1125 IU
SZA CLA /02061-7640 >
JMS I ERROR /02062-4503 %C
ISZ 0062 /02063-2062 P2
JMS I ERROR /02064-4503 %C
ISZ 2050 /02065-2250 R(
JMS I ERROR /02066-4503 %C
CLA CLL CMA /02067-7340 ;
DCA 0062 /02070-3062 X2
CLA CMA /02071-7240 :
DCA 2101 /02072-3301 [A
CDF 70 /02073-6271 29
CIF 0 /02074-6202 2B
DCA I 0063 /02075-3463 \3
ION /02076-6001 0A
JMS I 2100 /02077-4700 '@
ISZ 0101 /02100-2101 QA
HLT /02101-7402 <B
JMS I ERROR /02102-4503 %C
CLA CLL CMA /02103-7340 ;
GTF /02104-6004 0D
TAD 2004 /02105-1204 JD
SZA CLA /02106-7640 >
JMS I ERROR /02107-4503 %C
RIB /02110-6234 2\
TAD 0117 /02111-1117 IO
SZA CLA /02112-7640 >
JMS I ERROR /02113-4503 %C
ISZ 0062 /02114-2062 P2
JMS I ERROR /02115-4503 %C
ISZ 2101 /02116-2301 SA
SKP /02117-7410 <H
JMS I ERROR /02120-4503 %C
CLA CLL CMA /02121-7340 ;
DCA 0062 /02122-3062 X2
CLA CLL CMA /02123-7340 ;
DCA 2133 /02124-3333 [[
CDF 0 /02125-6201 2A
CIF 70 /02126-6272 2:
DCA I 0063 /02127-3463 \3
ION /02130-6001 0A
JMS I 2132 /02131-4732 'Z
ISZ 0133 /02132-2133 Q[
HLT /02133-7402 <B
JMS I ERROR /02134-4503 %C
CLA CLL CMA /02135-7340 ;
GTF /02136-6004 0D
TAD 2003 /02137-1203 JC
SZA CLA /02140-7640 >
JMS I ERROR /02141-4503 %C
RIB /02142-6234 2\
TAD M70 /02143-1133 I[
SZA CLA /02144-7640 >
JMS I ERROR /02145-4503 %C
ISZ 0062 /02146-2062 P2
SKP /02147-7410 <H
JMS I ERROR /02150-4503 %C
ISZ 2133 /02151-2333 S[
JMS I ERROR /02152-4503 %C
CLA CMA /02153-7240 :
DCA 0062 /02154-3062 X2
CLA CLL CMA /02155-7340 ;
DCA 2165 /02156-3365 [5
CDF 0 /02157-6201 2A
CIF 0 /02160-6202 2B
DCA I 0063 /02161-3463 \3
ION /02162-6001 0A
JMS I 2164 /02163-4764 '4
ISZ 0165 /02164-2165 Q5
HLT /02165-7402 <B
JMS I ERROR /02166-4503 %C
CLA CLL CMA /02167-7340 ;
GTF /02170-6004 0D
TAD 2172 /02171-1372 K:
NOP /02172-7000 8@
SZA CLA /02173-7640 >
JMS I ERROR /02174-4503 %C
RIB /02175-6234 2\
SZA CLA /02176-7640 >
JMS I ERROR /02177-4503 %C
ISZ 0062 /02200-2062 P2
SKP /02201-7410 <H
JMS I ERROR /02202-4503 %C
ISZ I 2377 /02203-2777 W?
SKP /02204-7410 <H
JMS I ERROR /02205-4503 %C
TAD 2371 /02206-1371 K9
RIF /02207-6224 2T
TAD K70 /02210-1144 I$
CMA /02211-7040 8
SZA CLA /02212-7640 >
JMS I ERROR /02213-4503 %C
SINT /02214-6254 2,
JMS I ERROR /02215-4503 %C
CAF /02216-6007 0G
SINT /02217-6254 2,
SKP /02220-7410 <H
JMS I ERROR /02221-4503 %C
JMS I 0104 /02222-4504 %D
JMS I SCOPLP /02223-4505 %E
CAF /02224-6007 0G
CIF 0 /02225-6202 2B
CDF 0 /02226-6201 2A
JMP 2230 /02227-5230 *X
ION /02230-6001 0A
SUF /02231-6274 2<
JMP 2233 /02232-5233 *[
HLT /02233-7402 <B
JMP 2234 /02234-5234 *\
SINT /02235-6254 2,
JMS I ERROR /02236-4503 %C
RIB /02237-6234 2\
TAD 0135 /02240-1135 I]
SZA CLA /02241-7640 >
JMS I ERROR /02242-4503 %C
CLA CMA /02243-7240 :
DCA 0062 /02244-3062 X2
CLA CMA /02245-7240 :
DCA 2253 /02246-3253 Z+
CIF CDF 70 /02247-6273 2;
DCA I 0063 /02250-3463 \3
ION /02251-6001 0A
JMS 2253 /02252-4253 "+
HLT /02253-7402 <B
JMS I ERROR /02254-4503 %C
RIB /02255-6234 2\
TAD 0134 /02256-1134 I\
SZA CLA /02257-7640 >
JMS I ERROR /02260-4503 %C
ISZ 0062 /02261-2062 P2
JMS I ERROR /02262-4503 %C
ISZ 2253 /02263-2253 R+
JMS I ERROR /02264-4503 %C
SINT /02265-6254 2,
JMS I ERROR /02266-4503 %C
CLA CMA /02267-7240 :
DCA 0062 /02270-3062 X2
CLA CMA /02271-7240 :
DCA 2277 /02272-3277 Z?
CIF CDF 20 /02273-6223 2S
DCA I 0063 /02274-3463 \3
ION /02275-6001 0A
JMS 2277 /02276-4277 "?
HLT /02277-7402 <B
JMS I ERROR /02300-4503 %C
RIB /02301-6234 2\
TAD 2372 /02302-1372 K:
SZA CLA /02303-7640 >
JMS I ERROR /02304-4503 %C
ISZ 0062 /02305-2062 P2
JMS I ERROR /02306-4503 %C
ISZ 2277 /02307-2277 R?
JMS I ERROR /02310-4503 %C
CLA CMA /02311-7240 :
DCA 0062 /02312-3062 X2
CLA CMA /02313-7240 :
DCA 2321 /02314-3321 [Q
CIF CDF 50 /02315-6253 2+
DCA I 0063 /02316-3463 \3
ION /02317-6001 0A
JMS 2321 /02320-4321 #Q
HLT /02321-7402 <B
JMS I ERROR /02322-4503 %C
RIB /02323-6234 2\
TAD 0130 /02324-1130 IX
SZA CLA /02325-7640 >
JMS I ERROR /02326-4503 %C
ISZ 0062 /02327-2062 P2
JMS I ERROR /02330-4503 %C
ISZ 2321 /02331-2321 SQ
JMS I ERROR /02332-4503 %C
SINT /02333-6254 2,
JMS I ERROR /02334-4503 %C
CLA CMA /02335-7240 :
DCA 0062 /02336-3062 X2
CLA CMA /02337-7240 :
DCA 2345 /02340-3345 [%
CIF CDF 40 /02341-6243 2#
DCA I 0063 /02342-3463 \3
ION /02343-6001 0A
JMS 2345 /02344-4345 #%
HLT /02345-7402 <B
JMS I ERROR /02346-4503 %C
RIB /02347-6234 2\
TAD 0126 /02350-1126 IV
SZA CLA /02351-7640 >
JMS I ERROR /02352-4503 %C
ISZ 0062 /02353-2062 P2
JMS I ERROR /02354-4503 %C
ISZ 2345 /02355-2345 S%
JMS I ERROR /02356-4503 %C
SINT /02357-6254 2,
JMS I ERROR /02360-4503 %C
CLA CLL CMA /02361-7340 ;
DCA 0062 /02362-3062 X2
CLA CMA /02363-7240 :
DCA I 2376 /02364-3776 _>
CIF CDF 30 /02365-6233 2[
DCA I 0063 /02366-3463 \3
ION /02367-6001 0A
JMS I 2376 /02370-4776 '>
MQA CLA DVI /02371-7707 ?G
SPA SNA CLA OSR HLT /02372-7756 ?.
*2376
ISZ I 0000 /02376-2400 T@
ISZ 0165 /02377-2165 Q5
*2400
HLT /02400-7402 <B
JMS I ERROR /02401-4503 %C
RIB /02402-6234 2\
TAD 0124 /02403-1124 IT
SZA CLA /02404-7640 >
JMS I ERROR /02405-4503 %C
ISZ 0062 /02406-2062 P2
JMS I ERROR /02407-4503 %C
ISZ 2400 /02410-2200 R@
JMS I ERROR /02411-4503 %C
SINT /02412-6254 2,
JMS I ERROR /02413-4503 %C
CLA CMA /02414-7240 :
DCA 0062 /02415-3062 X2
CLA CMA /02416-7240 :
DCA 2424 /02417-3224 ZT
CIF CDF 60 /02420-6263 23
DCA I 0063 /02421-3463 \3
ION /02422-6001 0A
JMS 2424 /02423-4224 "T
HLT /02424-7402 <B
JMS I ERROR /02425-4503 %C
RIB /02426-6234 2\
TAD 0132 /02427-1132 IZ
SZA CLA /02430-7640 >
JMS I ERROR /02431-4503 %C
ISZ 0062 /02432-2062 P2
JMS I ERROR /02433-4503 %C
ISZ 2424 /02434-2224 RT
JMS I ERROR /02435-4503 %C
SINT /02436-6254 2,
JMS I ERROR /02437-4503 %C
CLA CMA /02440-7240 :
DCA 0062 /02441-3062 X2
CLA CMA /02442-7240 :
DCA 2450 /02443-3250 Z(
CIF CDF 10 /02444-6213 2K
DCA I 0063 /02445-3463 \3
ION /02446-6001 0A
JMS 2450 /02447-4250 "(
HLT /02450-7402 <B
JMS I ERROR /02451-4503 %C
RIB /02452-6234 2\
TAD 0121 /02453-1121 IQ
SZA CLA /02454-7640 >
JMS I ERROR /02455-4503 %C
ISZ 0062 /02456-2062 P2
JMS I ERROR /02457-4503 %C
ISZ 2450 /02460-2250 R(
JMS I ERROR /02461-4503 %C
SINT /02462-6254 2,
JMS I ERROR /02463-4503 %C
CLA CMA /02464-7240 :
DCA 0062 /02465-3062 X2
CLA CMA /02466-7240 :
DCA 2474 /02467-3274 Z<
CIF CDF 0 /02470-6203 2C
DCA I 0063 /02471-3463 \3
ION /02472-6001 0A
JMS 2474 /02473-4274 "<
HLT /02474-7402 <B
JMS I ERROR /02475-4503 %C
RIB /02476-6234 2\
SZA CLA /02477-7640 >
JMS I ERROR /02500-4503 %C
ISZ 0062 /02501-2062 P2
SKP /02502-7410 <H
JMS I ERROR /02503-4503 %C
ISZ 2474 /02504-2274 R<
SKP /02505-7410 <H
JMS I ERROR /02506-4503 %C
CINT /02507-6204 2D
SINT /02510-6254 2,
SKP /02511-7410 <H
JMS I ERROR /02512-4503 %C
JMS I 0104 /02513-4504 %D
JMS I SCOPLP /02514-4505 %E
CAF /02515-6007 0G
ION /02516-6001 0A
SUF /02517-6274 2<
JMP 2521 /02520-5321 +Q
HLT /02521-7402 <B
JMP 2522 /02522-5322 +R
SINT /02523-6254 2,
JMS I ERROR /02524-4503 %C
RIB /02525-6234 2\
TAD 0135 /02526-1135 I]
SZA CLA /02527-7640 >
JMS I ERROR /02530-4503 %C
AND 0125 /02531-0125 AU
TAD 2531 /02532-1331 KY
RTF /02533-6005 0E
CLA CLL /02534-7300 ;@
RDF /02535-6214 2L
TAD 0127 /02536-1127 IW
SZA CLA /02537-7640 >
HLT /02540-7402 <B
JMP 2542 /02541-5342 +"
JMS I ERROR /02542-4503 %C
SINT /02543-6254 2,
JMS I ERROR /02544-4503 %C
RIB /02545-6234 2\
TAD 0136 /02546-1136 I^
SZA CLA /02547-7640 >
JMS I ERROR /02550-4503 %C
RMF /02551-6244 2$
RDF /02552-6214 2L
TAD 0127 /02553-1127 IW
SZA CLA /02554-7640 >
JMS I ERROR /02555-4503 %C
ION /02556-6001 0A
JMP 2560 /02557-5360 +0
JMS I ERROR /02560-4503 %C
SINT /02561-6254 2,
JMS I ERROR /02562-4503 %C
RIB /02563-6234 2\
TAD 0136 /02564-1136 I^
SZA CLA /02565-7640 >
JMS I ERROR /02566-4503 %C
AND 0152 /02567-0152 A*
TAD 2567 /02570-1367 K7
RTF /02571-6005 0E
CLA CLL /02572-7300 ;@
RDF /02573-6214 2L
TAD 0122 /02574-1122 IR
SZA CLA /02575-7640 >
HLT /02576-7402 <B
NOP /02577-7000 8@
JMP 2601 /02600-5201 *A
JMS I ERROR /02601-4503 %C
SINT /02602-6254 2,
JMS I ERROR /02603-4503 %C
RIB /02604-6234 2\
TAD 0137 /02605-1137 I_
SZA CLA /02606-7640 >
JMS I ERROR /02607-4503 %C
RMF /02610-6244 2$
RDF /02611-6214 2L
TAD 0122 /02612-1122 IR
SZA CLA /02613-7640 >
JMS I ERROR /02614-4503 %C
NOP /02615-7000 8@
ION /02616-6001 0A
JMP 2620 /02617-5220 *P
JMS I ERROR /02620-4503 %C
SINT /02621-6254 2,
JMS I ERROR /02622-4503 %C
RIB /02623-6234 2\
TAD 0137 /02624-1137 I_
SZA CLA /02625-7640 >
JMS I ERROR /02626-4503 %C
SINT /02627-6254 2,
JMS I ERROR /02630-4503 %C
TAD 0145 /02631-1145 I%
RTF /02632-6005 0E
CLA CLL /02633-7300 ;@
RDF /02634-6214 2L
TAD M70 /02635-1133 I[
SZA CLA /02636-7640 >
HLT /02637-7402 <B
JMP 2641 /02640-5241 *!
JMS I ERROR /02641-4503 %C
RIB /02642-6234 2\
TAD 0134 /02643-1134 I\
SZA CLA /02644-7640 >
JMS I ERROR /02645-4503 %C
SINT /02646-6254 2,
JMS I ERROR /02647-4503 %C
RMF /02650-6244 2$
RDF /02651-6214 2L
TAD M70 /02652-1133 I[
SZA CLA /02653-7640 >
JMS I ERROR /02654-4503 %C
RIF /02655-6224 2T
SZA CLA /02656-7640 >
JMS I ERROR /02657-4503 %C
ION /02660-6001 0A
JMP 2662 /02661-5262 *2
JMS I ERROR /02662-4503 %C
RIB /02663-6234 2\
TAD 0134 /02664-1134 I\
SZA CLA /02665-7640 >
JMS I ERROR /02666-4503 %C
SINT /02667-6254 2,
JMS I ERROR /02670-4503 %C
RTF /02671-6005 0E
JMP 2673 /02672-5273 *;
JMS I ERROR /02673-4503 %C
RIB /02674-6234 2\
SZA CLA /02675-7640 >
JMS I ERROR /02676-4503 %C
RMF /02677-6244 2$
ION /02700-6001 0A
JMP 2702 /02701-5302 +B
JMS I ERROR /02702-4503 %C
RIB /02703-6234 2\
SZA CLA /02704-7640 >
JMS I ERROR /02705-4503 %C
CINT /02706-6204 2D
SINT /02707-6254 2,
SKP CLA /02710-7610 >H
JMS I ERROR /02711-4503 %C
JMS I 0104 /02712-4504 %D
JMS I SCOPLP /02713-4505 %E
CAF /02714-6007 0G
CIF CDF 0 /02715-6203 2C
JMP 2717 /02716-5317 +O
CUF /02717-6264 24
CINT /02720-6204 2D
ION /02721-6001 0A
SUF /02722-6274 2<
JMP 2724 /02723-5324 +T
HLT /02724-7402 <B
JMP 2725 /02725-5325 +U
SINT /02726-6254 2,
JMS I ERROR /02727-4503 %C
RIB /02730-6234 2\
TAD 0135 /02731-1135 I]
SZA CLA /02732-7640 >
JMS I ERROR /02733-4503 %C
CIF CDF 60 /02734-6263 23
ION /02735-6001 0A
NOP /02736-7000 8@
SKP /02737-7410 <H
HLT /02740-7402 <B
DCA I 2742 /02741-3742 _"
SKP /02742-7410 <H
HLT /02743-7402 <B
TAD I 2745 /02744-1745 O%
SKP /02745-7410 <H
HLT /02746-7402 <B
AND I 2750 /02747-0750 G(
SKP /02750-7410 <H
HLT /02751-7402 <B
ISZ I 2753 /02752-2753 W+
SKP /02753-7410 <H
HLT /02754-7402 <B
JMP 2756 /02755-5356 +.
JMS I ERROR /02756-4503 %C
RIB /02757-6234 2\
TAD 0132 /02760-1132 IZ
SZA CLA /02761-7640 >
JMS I ERROR /02762-4503 %C
SINT /02763-6254 2,
JMS I ERROR /02764-4503 %C
CLA CLL /02765-7300 ;@
CIF CDF 0 /02766-6203 2C
ION /02767-6001 0A
JMP 2771 /02770-5371 +9
JMS I ERROR /02771-4503 %C
SINT /02772-6254 2,
JMS I ERROR /02773-4503 %C
CINT /02774-6204 2D
CLA CLL CMA /02775-7340 ;
GTF /02776-6004 0D
SZA CLA /02777-7640 >
JMS I ERROR /03000-4503 %C
JMS I 0104 /03001-4504 %D
JMS I SCOPLP /03002-4505 %E
CAF /03003-6007 0G
ION /03004-6001 0A
TAD OP1SEL /03005-1021 HQ
AND 3171 /03006-0371 C9
CLL RAL /03007-7104 9D
DCA 0065 /03010-3065 X5
TAD 0065 /03011-1065 H5
AND K70 /03012-0144 A$
DCA 0066 /03013-3066 X6
TAD 0065 /03014-1065 H5
AND K7 /03015-0142 A"
CLL RTR /03016-7112 9J
RTR /03017-7012 8J
TAD 3172 /03020-1372 K:
DCA UPERLM /03021-3067 X7
TAD 0066 /03022-1066 H6
SNA CLA /03023-7650 >(
JMP I 3177 /03024-5777 /?
JMS I 3176 /03025-4776 '>
ION /03026-6001 0A
SUF /03027-6274 2<
JMP 3031 /03030-5231 *Y
HLT /03031-7402 <B
JMP 3032 /03032-5232 *Z
SINT /03033-6254 2,
JMS I ERROR /03034-4503 %C
CLA CLL CMA /03035-7340 ;
GTF /03036-6004 0D
TAD 0140 /03037-1140 I
SZA CLA /03040-7640 >
JMS I ERROR /03041-4503 %C
DCA 0070 /03042-3070 X8
DCA 0071 /03043-3071 X9
TAD 3172 /03044-1372 K:
DCA 0072 /03045-3072 X:
TAD 0070 /03046-1070 H8
TAD 0143 /03047-1143 I#
DCA 0070 /03050-3070 X8
TAD 0070 /03051-1070 H8
CMA IAC /03052-7041 8!
TAD 0066 /03053-1066 H6
SPA /03054-7510 =H
JMP 3163 /03055-5363 +3
SZA CLA /03056-7640 >
CLA CMA /03057-7240 :
SNA /03060-7450 <(
TAD UPERLM /03061-1067 H7
DCA 0073 /03062-3073 X;
TAD 0073 /03063-1073 H;
CMA /03064-7040 8
CLL RTL /03065-7106 9F
RAL /03066-7004 8D
TAD 0150 /03067-1150 I(
DCA 0076 /03070-3076 X>
TAD 0070 /03071-1070 H8
IAC /03072-7001 8A
DCA 0071 /03073-3071 X9
SINT /03074-6254 2,
JMS I ERROR /03075-4503 %C
TAD 0070 /03076-1070 H8
TAD 0074 /03077-1074 H<
DCA 3101 /03100-3301 [A
HLT /03101-7402 <B
RDF /03102-6214 2L
CMA IAC /03103-7041 8!
TAD 0070 /03104-1070 H8
SZA CLA /03105-7640 >
JMS I ERROR /03106-4503 %C
TAD 0071 /03107-1071 H9
ION /03110-6001 0A
DCA I 0072 /03111-3472 \:
JMS I ERROR /03112-4503 %C
TAD 0070 /03113-1070 H8
CLL RTR /03114-7112 9J
RAR /03115-7010 8H
DCA 0075 /03116-3075 X=
RIB /03117-6234 2\
CMA IAC /03120-7041 8!
TAD 0075 /03121-1075 H=
SZA CLA /03122-7640 >
JMS I ERROR /03123-4503 %C
SINT /03124-6254 2,
JMS I ERROR /03125-4503 %C
TAD 3101 /03126-1301 KA
DCA 3130 /03127-3330 [X
HLT /03130-7402 <B
RDF /03131-6214 2L
CMA IAC /03132-7041 8!
TAD 0070 /03133-1070 H8
SZA CLA /03134-7640 >
JMS I ERROR /03135-4503 %C
ION /03136-6001 0A
TAD I 0072 /03137-1472 L:
JMS I ERROR /03140-4503 %C
RIB /03141-6234 2\
CMA IAC /03142-7041 8!
TAD 0075 /03143-1075 H=
SZA CLA /03144-7640 >
JMS I ERROR /03145-4503 %C
TAD 0071 /03146-1071 H9
CMA IAC /03147-7041 8!
TAD DATREC /03150-1064 H4
SZA CLA /03151-7640 >
JMS I ERROR /03152-4503 %C
ISZ 0076 /03153-2076 P>
SKP CLA /03154-7610 >H
JMP 3044 /03155-5244 *$
CLA CLL CML RTR /03156-7332 ;Z
TAD 0072 /03157-1072 H:
DCA 0072 /03160-3072 X:
ISZ 0071 /03161-2071 P9
JMP 3074 /03162-5274 *<
CINT /03163-6204 2D
SINT /03164-6254 2,
SKP CLA /03165-7610 >H
JMS I ERROR /03166-4503 %C
JMS I 0104 /03167-4504 %D
JMP I 3175 /03170-5775 /=
AND 0037 /03171-0037 @_
TAD I 3177 /03172-1777 O?
*3175
DCA 3000 /03175-3200 Z@
JMP 0000 /03176-5000 (@
DCA 3121 /03177-3321 [Q
*3200
JMS I SCOPLP /03200-4505 %E
CAF /03201-6007 0G
ION /03202-6001 0A
SUF /03203-6274 2<
JMP 3205 /03204-5205 *E
HLT /03205-7402 <B
JMP 3206 /03206-5206 *F
SINT /03207-6254 2,
JMS I ERROR /03210-4503 %C
CLA CLL CMA /03211-7340 ;
GTF /03212-6004 0D
TAD 0140 /03213-1140 I
SZA CLA /03214-7640 >
JMS I ERROR /03215-4503 %C
DCA 0070 /03216-3070 X8
DCA 0072 /03217-3072 X:
TAD 0070 /03220-1070 H8
TAD 0143 /03221-1143 I#
DCA 0070 /03222-3070 X8
TAD 0070 /03223-1070 H8
CMA IAC /03224-7041 8!
TAD 0066 /03225-1066 H6
SPA CLA /03226-7710 ?H
JMP 3314 /03227-5314 +L
TAD 3306 /03230-1306 KF
DCA 3313 /03231-3313 [K
TAD 0150 /03232-1150 I(
DCA 0076 /03233-3076 X>
TAD 0070 /03234-1070 H8
CLL RTR /03235-7112 9J
RAR /03236-7010 8H
TAD 0070 /03237-1070 H8
DCA 0073 /03240-3073 X;
TAD 0070 /03241-1070 H8
TAD 0074 /03242-1074 H<
DCA 3246 /03243-3246 Z&
CDF 0 /03244-6201 2A
TAD I 3313 /03245-1713 OK
HLT /03246-7402 <B
DCA I 0072 /03247-3472 \:
TAD I 0072 /03250-1472 L:
CDF 0 /03251-6201 2A
CMA IAC /03252-7041 8!
TAD I 3313 /03253-1713 OK
SZA CLA /03254-7640 >
JMS I ERROR /03255-4503 %C
ISZ 3313 /03256-2313 SK
ISZ 0072 /03257-2072 P:
ISZ 0076 /03260-2076 P>
JMP 3245 /03261-5245 *%
DCA 0072 /03262-3072 X:
CLA CLL CML RTL /03263-7326 ;V
TAD 3246 /03264-1246 J&
DCA 3266 /03265-3266 Z6
HLT /03266-7402 <B
JMP I 0072 /03267-5472 ,:
JMS I ERROR /03270-4503 %C
RIB /03271-6234 2\
CMA IAC /03272-7041 8!
TAD 0073 /03273-1073 H;
SZA CLA /03274-7640 >
JMS I ERROR /03275-4503 %C
TAD DATREC /03276-1064 H4
CMA IAC /03277-7041 8!
TAD 0070 /03300-1070 H8
SZA CLA /03301-7640 >
JMS I ERROR /03302-4503 %C
SINT /03303-6254 2,
JMS I ERROR /03304-4503 %C
JMP 3217 /03305-5217 *O
DCA 3307 /03306-3307 [G
RIF /03307-6224 2T
ION /03310-6001 0A
JMP I 0003 /03311-5403 ,C
DCA 3270 /03312-3270 Z8
AND 0000 /03313-0000 @@
CINT /03314-6204 2D
SINT /03315-6254 2,
SKP CLA /03316-7610 >H
JMS I ERROR /03317-4503 %C
JMS I 0104 /03320-4504 %D
JMS I SCOPLP /03321-4505 %E
CAF /03322-6007 0G
TAD OP1SEL /03323-1021 HQ
AND K200 /03324-0146 A&
SNA CLA /03325-7650 >(
JMP I PASEND /03326-5512 -J
JMS 3331 /03327-4331 #Y
JMP 3345 /03330-5345 +%
AND 0000 /03331-0000 @@
TAD 0147 /03332-1147 I'
6153 /03333-6153 1+
6154 /03334-6154 1,
6166 /03335-6166 16
SKP CLA /03336-7610 >H
JMS I ERROR /03337-4503 %C
6155 /03340-6155 1-
TAD 0117 /03341-1117 IO
SZA CLA /03342-7640 >
JMS I ERROR /03343-4503 %C
JMP I 3331 /03344-5731 /Y
CDF 10 /03345-6211 2I
ION /03346-6001 0A
DCA I 3350 /03347-3750 _(
HLT /03350-7402 <B
6166 /03351-6166 16
JMS I ERROR /03352-4503 %C
RIB /03353-6234 2\
TAD M1 /03354-1113 IK
SZA CLA /03355-7640 >
JMS I ERROR /03356-4503 %C
6155 /03357-6155 1-
TAD M1 /03360-1113 IK
SZA CLA /03361-7640 >
JMS I ERROR /03362-4503 %C
JMS 3331 /03363-4331 #Y
CDF 20 /03364-6221 2Q
ION /03365-6001 0A
DCA I 3367 /03366-3767 _7
HLT /03367-7402 <B
6166 /03370-6166 16
JMS I ERROR /03371-4503 %C
6155 /03372-6155 1-
TAD 0114 /03373-1114 IL
SZA CLA /03374-7640 >
JMS I ERROR /03375-4503 %C
JMS 3331 /03376-4331 #Y
CDF 40 /03377-6241 2!
ION /03400-6001 0A
DCA I 3402 /03401-3602 ^B
HLT /03402-7402 <B
6166 /03403-6166 16
JMS I ERROR /03404-4503 %C
6155 /03405-6155 1-
TAD M4 /03406-1115 IM
SZA CLA /03407-7640 >
JMS I ERROR /03410-4503 %C
JMS I 3412 /03411-4612 &J
DCA 3531 /03412-3331 [Y
6150 /03413-6150 1(
JMS I 0104 /03414-4504 %D
JMS I SCOPLP /03415-4505 %E
CAF /03416-6007 0G
6160 /03417-6160 10
CDF 10 /03420-6211 2I
DCA I 3547 /03421-3747 _'
CDF 20 /03422-6221 2Q
DCA I 3550 /03423-3750 _(
CDF 40 /03424-6241 2!
DCA I 3551 /03425-3751 _)
CDF 0 /03426-6201 2A
JMS I 3546 /03427-4746 '&
CIF 10 /03430-6212 2J
ION /03431-6001 0A
JMP 3432 /03432-5232 *Z
HLT /03433-7402 <B
6166 /03434-6166 16
JMS I ERROR /03435-4503 %C
RIB /03436-6234 2\
TAD 0120 /03437-1120 IP
SZA CLA /03440-7640 >
JMS I ERROR /03441-4503 %C
6155 /03442-6155 1-
TAD M1 /03443-1113 IK
SZA CLA /03444-7640 >
JMS I ERROR /03445-4503 %C
JMS I 3546 /03446-4746 '&
CIF 20 /03447-6222 2R
ION /03450-6001 0A
JMP 3451 /03451-5251 *)
HLT /03452-7402 <B
6166 /03453-6166 16
JMS I ERROR /03454-4503 %C
6155 /03455-6155 1-
TAD 0114 /03456-1114 IL
SZA CLA /03457-7640 >
JMS I ERROR /03460-4503 %C
JMS I 3546 /03461-4746 '&
CIF 40 /03462-6242 2"
ION /03463-6001 0A
JMP 3464 /03464-5264 *4
HLT /03465-7402 <B
6166 /03466-6166 16
JMS I ERROR /03467-4503 %C
6155 /03470-6155 1-
TAD M4 /03471-1115 IM
SZA CLA /03472-7640 >
JMS I ERROR /03473-4503 %C
JMS I 3546 /03474-4746 '&
6150 /03475-6150 1(
JMS I 0104 /03476-4504 %D
JMS I SCOPLP /03477-4505 %E
CAF /03500-6007 0G
6160 /03501-6160 10
CLA CLL CML RAR /03502-7330 ;X
6153 /03503-6153 1+
CLA CLL /03504-7300 ;@
ION /03505-6001 0A
SUF /03506-6274 2<
JMP 3510 /03507-5310 +H
OSR /03510-7404 <D
SKP /03511-7410 <H
JMS I ERROR /03512-4503 %C
CLA OSR /03513-7604 >D
SKP /03514-7410 <H
JMS I ERROR /03515-4503 %C
ION /03516-6001 0A
SKP CLA /03517-7610 >H
JMS I ERROR /03520-4503 %C
CAF /03521-6007 0G
SKP CLA /03522-7610 >H
JMS I ERROR /03523-4503 %C
6150 /03524-6150 1(
ION /03525-6001 0A
SUF /03526-6274 2<
JMP 3530 /03527-5330 +X
HLT /03530-7402 <B
JMP 3531 /03531-5331 +Y
SINT /03532-6254 2,
JMS I ERROR /03533-4503 %C
CAF /03534-6007 0G
JMS I 0104 /03535-4504 %D
TAD OP1SEL /03536-1021 HQ
AND 3545 /03537-0345 C%
SZA CLA /03540-7640 >
JMP I 3544 /03541-5744 /$
JMP I 3543 /03542-5743 /#
DCA I 3435 /03543-3635 ^]
JMS 3401 /03544-4201 "A
AND 0100 /03545-0100 A@
DCA 3531 /03546-3331 [Y
DCA I 0032 /03547-3432 \Z
DCA I 0051 /03550-3451 \)
DCA I 0064 /03551-3464 \4
TA8ADD, JMS 0000 /03552-4000 @
SMA SZA CLA /03553-7740 ?
TAD 3437 /03554-1237 J_
TAD 3406 /03555-1206 JF
6704 /03556-6704 7D
6706 /03557-6706 7F
6703 /03560-6703 7C
JMP 3404 /03561-5204 *D
CLA CMA CML RAL /03562-7264 :4
6702 /03563-6702 7B
SKP CLA /03564-7610 >H
DCA 3411 /03565-3211 ZI
DCA I 3436 /03566-3636 ^^
TAD 3405 /03567-1205 JE
6704 /03570-6704 7D
6706 /03571-6706 7F
6701 /03572-6701 7A
JMP 3416 /03573-5216 *N
BSW /03574-7002 8B
SZL /03575-7430 <X
TAD I 3436 /03576-1636 N^
CML BSW /03577-7022 8R
DCA I 3636 /03600-3636 ^^
SNL /03601-7420 <P
ISZ 3636 /03602-2236 R^
ISZ 3635 /03603-2235 R]
JMP 3615 /03604-5215 *M
CLA CLL CMA RTL /03605-7346 ;&
BSW /03606-7002 8B
DCA 3635 /03607-3235 Z]
JMP 3601 /03610-5201 *A
MQA MQL CLA LSR /03611-7737 ?_
DCA I 0157 /03612-3557 ]/
SPA SZL CLA /03613-7730 ?X
AND 0000 /03614-0000 @@
BOOTTB, PTPADD /03615-4305 #E
DSKADD /03616-4347 #'
TA8ADD /03617-3552 ]*
RX8ADD /03620-1522 MR
RK8ADD /03621-3623 ^S
AND 0000 /03622-0000 @@
RK8ADD, AND 0023 /03623-0023 @S
MQA MQL CLA DPSZ /03624-7771 ?9
ISZ 3600 /03625-2200 R@
6745 /03626-6745 7%
AND 0023 /03627-0023 @S
SZA CLA /03630-7640 >
JMP 0024 /03631-5024 (T
6743 /03632-6743 7#
JMP 0031 /03633-5031 (Y
AND 0000 /03634-0000 @@
JMS I SCOPLP /03635-4505 %E
TAD 3777 /03636-1377 K?
DCA 0000 /03637-3000 X@
TAD 3777 /03640-1377 K?
DCA I 3776 /03641-3776 _>
TAD 3775 /03642-1375 K=
DCA AUTRST /03643-3101 YA
JMP 3647 /03644-5247 *'
AND 0000 /03645-0000 @@
JMS I ERROR /03646-4503 %C
6160 /03647-6160 10
JMS I 3774 /03650-4774 '<
TAD 3773 /03651-1373 K;
TAD SIMBOT /03652-1355 K-
DCA 3757 /03653-3357 [/
TAD 3772 /03654-1372 K:
DCA 3760 /03655-3360 [0
CLA CLL CMA RTL /03656-7346 ;&
DCA 3762 /03657-3362 [2
6160 /03660-6160 10
JMS I 3771 /03661-4771 '9
TAD OP2SEL /03662-1022 HR
SPA CLA /03663-7710 ?H
CDF 104 /03664-6305 3E
TAD I 3757 /03665-1757 O/
6152 /03666-6152 1*
CLA CLL /03667-7300 ;@
TAD 3763 /03670-1363 K3
DCA I 3761 /03671-3761 _1
TAD I 3760 /03672-1760 O0
6153 /03673-6153 1+
CLA CLL /03674-7300 ;@
6164 /03675-6164 14
JMP 3676 /03676-5276 *>
6160 /03677-6160 10
CLA CLL IAC /03700-7301 ;A
TAD OP2SEL /03701-1022 HR
SPA /03702-7510 =H
CDF 104 /03703-6305 3E
CLA CLL /03704-7300 ;@
TAD SIMBOT /03705-1355 K-
JMS I 3770 /03706-4770 '8
ISZ 3760 /03707-2360 S0
ISZ 3762 /03710-2362 S2
JMP 3660 /03711-5260 *0
JMS I 3767 /03712-4767 '7
TAD M5 /03713-1116 IN
DCA 3762 /03714-3362 [2
6160 /03715-6160 10
JMS I 3771 /03716-4771 '9
TAD OP2SEL /03717-1022 HR
SPA CLA /03720-7710 ?H
CDF 104 /03721-6305 3E
TAD I 3757 /03722-1757 O/
6152 /03723-6152 1*
CLA CLL /03724-7300 ;@
TAD 3764 /03725-1364 K4
DCA I 3761 /03726-3761 _1
TAD I 3760 /03727-1760 O0
6153 /03730-6153 1+
CLA CLL /03731-7300 ;@
6164 /03732-6164 14
CLA HLT /03733-7602 >B
6160 /03734-6160 10
CLA CLL IAC /03735-7301 ;A
TAD OP2SEL /03736-1022 HR
SPA /03737-7510 =H
CDF 104 /03740-6305 3E
CLA CLL /03741-7300 ;@
TAD SIMBOT /03742-1355 K-
JMS I 3770 /03743-4770 '8
ISZ 3760 /03744-2360 S0
ISZ 3762 /03745-2362 S2
JMP 3715 /03746-5315 +M
JMS I 3767 /03747-4767 '7
ISZ SIMBOT /03750-2355 S-
ISZ 3756 /03751-2356 S.
JMP 3651 /03752-5251 *)
JMS I 0104 /03753-4504 %D
JMP I 3766 /03754-5766 /6
SIMBOT, AND 0000 /03755-0000 @@
CNTBOT, AND 0000 /03756-0000 @@
AND 0000 /03757-0000 @@
AND 0000 /03760-0000 @@
AND I 0001 /03761-0401 DA
AND 0000 /03762-0000 @@
DCA I 3677 /03763-3677 ^?
DCA I 3734 /03764-3734 _\
*3766
JMS 0041 /03766-4041 !
JMS 3757 /03767-4357 #/
JMS I 0002 /03770-4402 $B
JMS I 0063 /03771-4463 $3
JMS 0155 /03772-4155 !-
JMS 0150 /03773-4150 !(
JMS I 0117 /03774-4517 %O
DCA I 3645 /03775-3645 ^%
AND 3600 /03776-0200 B@
JMS I 0101 /03777-4501 %A
*4000
CAPS8, HLT /04000-7402 <B
HLT /04001-7402 <B
HLT /04002-7402 <B
HLT /04003-7402 <B
HLT /04004-7402 <B
HLT /04005-7402 <B
HLT /04006-7402 <B
HLT /04007-7402 <B
HLT /04010-7402 <B
HLT /04011-7402 <B
HLT /04012-7402 <B
HLT /04013-7402 <B
HLT /04014-7402 <B
HLT /04015-7402 <B
HLT /04016-7402 <B
HLT /04017-7402 <B
HLT /04020-7402 <B
HLT /04021-7402 <B
HLT /04022-7402 <B
HLT /04023-7402 <B
HLT /04024-7402 <B
HLT /04025-7402 <B
HLT /04026-7402 <B
HLT /04027-7402 <B
HLT /04030-7402 <B
HLT /04031-7402 <B
HLT /04032-7402 <B
HLT /04033-7402 <B
HLT /04034-7402 <B
HLT /04035-7402 <B
HLT /04036-7402 <B
HLT /04037-7402 <B
HLT /04040-7402 <B
JMS I SCOPLP /04041-4505 %E
TAD 4177 /04042-1377 K?
DCA 0000 /04043-3000 X@
TAD 4177 /04044-1377 K?
DCA I 4176 /04045-3776 _>
TAD 4175 /04046-1375 K=
DCA AUTRST /04047-3101 YA
TAD 4174 /04050-1374 K<
DCA I 4053 /04051-3653 ^+
JMP 4055 /04052-5255 *-
AND I 0001 /04053-0401 DA
JMS I ERROR /04054-4503 %C
JMS I 4173 /04055-4773 ';
6160 /04056-6160 10
TAD 4172 /04057-1372 K:
TAD 4134 /04060-1334 K\
DCA 4135 /04061-3335 []
TAD 4171 /04062-1371 K9
TAD 4134 /04063-1334 K\
DCA 4136 /04064-3336 [^
TAD OP2SEL /04065-1022 HR
SPA CLA /04066-7710 ?H
CDF 104 /04067-6305 3E
TAD I 4136 /04070-1736 O^
6152 /04071-6152 1*
CLA CLL /04072-7300 ;@
TAD 4147 /04073-1347 K'
6153 /04074-6153 1+
CLA CLL /04075-7300 ;@
6164 /04076-6164 14
CLA HLT /04077-7602 >B
JMP 4056 /04100-5256 *.
AND 0000 /04101-0000 @@
6160 /04102-6160 10
CLA CLL IAC /04103-7301 ;A
TAD OP2SEL /04104-1022 HR
SPA /04105-7510 =H
CDF 104 /04106-6305 3E
CLA CLL CMA /04107-7340 ;
TAD 4101 /04110-1301 KA
CMA IAC /04111-7041 8!
TAD I 4135 /04112-1735 O]
SNA CLA /04113-7650 >(
JMP 4125 /04114-5325 +U
JMS I ERROR /04115-4503 %C
TAD I 4135 /04116-1735 O]
HLT /04117-7402 <B
CLA CLL CMA /04120-7340 ;
TAD 4101 /04121-1301 KA
HLT /04122-7402 <B
CLA /04123-7200 :@
JMP 4056 /04124-5256 *.
ISZ 4134 /04125-2334 S\
ISZ 4133 /04126-2333 S[
JMP 4056 /04127-5256 *.
JMS I 4170 /04130-4770 '8
JMS I 0104 /04131-4504 %D
JMP I 4167 /04132-5767 /7
AUTCNT, AND 0000 /04133-0000 @@
AUTSEL, AND 0000 /04134-0000 @@
ADDRES, AND 0000 /04135-0000 @@
CONW2, AND 0000 /04136-0000 @@
RESADD, JMS 4000 /04137-4200 "@
ISZ 0000 /04140-2000 P@
AND 4000 /04141-0200 B@
AND 0000 /04142-0000 @@
TAD 4056 /04143-1256 J.
TAD 4054 /04144-1254 J,
TAD 4052 /04145-1252 J*
TAD 4050 /04146-1250 J(
AND 0037 /04147-0037 @_
TAD I 4072 /04150-1672 N:
AND I 0122 /04151-0522 ER
AND I OP2SEL /04152-0422 DR
TAD 0132 /04153-1132 IZ
TAD 4052 /04154-1252 J*
AND 0001 /04155-0001 @A
AND 0003 /04156-0003 @C
AND 0007 /04157-0007 @G
AND 0011 /04160-0011 @I
AND 0032 /04161-0032 @Z
AND 0013 /04162-0013 @K
AND 0033 /04163-0033 @[
AND 0017 /04164-0017 @O
*4167
JMS 4001 /04167-4201 "A
JMS 4157 /04170-4357 #/
JMS 0143 /04171-4143 !#
JMS 0137 /04172-4137 !_
JMS I 0117 /04173-4517 %O
JMS 0054 /04174-4054 ,
JMS 0101 /04175-4101 !A
AND 4000 /04176-0200 B@
JMS I 0101 /04177-4501 %A
*4200
JMS I AUTRST /04200-4501 %A
TEST23, JMS I SCOPLP /04201-4505 %E
TAD 4377 /04202-1377 K?
DCA AUTRST /04203-3101 YA
CAF /04204-6007 0G
6160 /04205-6160 10
SBE /04206-6101 1A
SKP /04207-7410 <H
JMS I ERROR /04210-4503 %C
SPL /04211-6102 1B
SKP /04212-7410 <H
JMS I ERROR /04210-4503 %C
CLA CLL CML RTR /04214-7332 ;Z
6153 /04215-6153 1+
ION /04216-6001 0A
JMP 4220 /04217-5220 *P
JMS I ERROR /04220-4503 %C
JMS I ERROR /04221-4503 %C
SPL /04222-6102 1B
SKP /04223-7410 <H
JMS I ERROR /04224-4503 %C
TAD 4260 /04225-1260 J0
6153 /04226-6153 1+
CLA /04227-7200 :@
6153 /04230-6153 1+
ION /04231-6001 0A
JMP 4233 /04232-5233 *[
JMS I ERROR /04233-4503 %C
SKP CLA /04234-7610 >H
JMS I ERROR /04235-4503 %C
SPL /04236-6102 1B
SKP /04237-7410 <H
JMS I ERROR /04240-4503 %C
SBE /04241-6101 1A
SKP CLA /04242-7610 >H
JMS I ERROR /04243-4503 %C
TAD 4260 /04244-1260 J0
6153 /04245-6153 1+
CLA /04246-7200 :@
CAL /04247-6103 1C
SPL /04250-6102 1B
JMS I ERROR /04251-4503 %C
6153 /04252-6153 1+
SPL /04253-6102 1B
SKP /04254-7410 <H
JMS I ERROR /04255-4503 %C
JMS I 0104 /04256-4504 %D
JMP I PASEND /04257-5512 -J
TAD 0000 /04260-1000 H@
JMS I SCOPLP /04261-4505 %E
CAF /04262-6007 0G
CUF /04263-6264 24
CINT /04264-6204 2D
ION /04265-6001 0A
SUF /04266-6274 2<
JMP 4270 /04267-5270 *8
OSR /04270-7404 <D
SKP CLA /04271-7610 >H
JMS I ERROR /04272-4503 %C
CLA OSR /04273-7604 >D
SKP CLA /04274-7610 >H
JMS I ERROR /04275-4503 %C
SINT /04276-6254 2,
SKP CLA /04277-7610 >H
JMS I ERROR /04300-4503 %C
HLT /04301-7402 <B
SKP CLA /04302-7610 >H
JMS I ERROR /04303-4503 %C
JMP 4261 /04304-5261 *1
PTPADD, MQA MQL CLA LSR /04305-7737 ?_
MQA CLA SCA /04306-7741 ?!
6014 /04307-6014 0L 7737 6014
DCA 4376 /04310-3376 [> 7740 DCA 7776
CLA CLL CML RTL /04311-7326 ;V 7741 CLA CLL CML RTL
TAD 4337 /04312-1337 K_ 7742 TAD 7737
ISZ 4376 /04313-2376 S> 7743 ISZ 7776
JMP 4341 /04314-5341 +! 7744 JMP 7741
6011 /04315-6011 0I 7745 6011
JMP 4356 /04316-5356 +. 7746 JMP 7756
DCA 4361 /04317-3361 [1 7747 DCA 7761
TAD 4361 /04320-1361 K1 7750 TAD 7761
DCA 4371 /04321-3371 [9 7751 DCA 7771
TAD 4345 /04322-1345 K% 7752 TAD 7745
DCA 4357 /04323-3357 [/ 7753 DCA 7757
TAD 4345 /04324-1345 K% 7754 TAD 7745
DCA 4367 /04325-3367 [7 7755 DCA 7767
KCC /04326-6032 0Z 7756 KCC
KSF /04327-6031 0Y 7757 KSF OR 6011
JMP 4357 /04330-5357 +/ 7760 JMP 7757
KRB /04331-6036 0^ 7761 KRB OR 6016
CLL RTL /04332-7106 9F 7762 CLL RTL
RTL /04333-7006 8F 7763 RTL
SPA /04334-7510 =H 7764 SPA
JMP 4374 /04335-5374 +< 7765 JMP 7774
RTL /04336-7006 8F 7766 RTL
KSF /04337-6031 0Y 7767 KSF OR 6011
JMP 4367 /04340-5367 +7 7770 JMP 7776
KRS /04341-6034 0\ 7771 KRS OR 6016
SNL /04342-7420 <P 7772 SNL
DCA I 4376 /04343-3776 _> 7773 DCA I 7776
DCA 4376 /04344-3376 [> 7774 DCA 7776
JMP 4356 /04345-5356 +. 7775 JMP 7756
AND 0000 /04346-0000 @@
DSKADD, SPA SNA CLA /04347-7750 ?( /RF08/DF32
MQA MQL CLA DPIC /04350-7773 ?;
7600 /04351-7600 >@
6603 /04352-6603 6C
6622 /04353-6622 6R
JMP 4352 /04354-5352 +*
JMP I 4352 /04355-5752 /*
AND 0000 /04356-0000 @@
AND 0000 /04357-0000 @@
TAD OP2SEL /04360-1022 HR
SMA CLA /04361-7700 ?@
JMP I 4357 /04362-5757 //
CIF 70 /04363-6272 2:
JMS I 0100 /04364-4500 %@
JMP I 4357 /04365-5757 //
*4377
JMP 0165 /04377-5165 )5
*4400
BOTCMP, HLT /04400-7402 <B
JMP .+3 /04401-5204 *D
AND 0000 /04402-0000 @@
JMP .+10 /04403-5213 *K
TAD OP1SEL /04404-1021 HQ
SMA CLA /04405-7700 ?@
JMP .+3 /04406-5211 *I
CLA OSR /04407-7604 >D
SKP /04410-7410 <H
TAD SWITCH /04411-1020 HP
AND K7 /04412-0142 A"
TAD (BOOTTB /04413-1377 K?
DCA SAVSTR /04414-3366 [6
TAD I SAVSTR /04415-1766 O6
DCA BOTADD /04416-3367 [7
TAD I BOTADD /04417-1767 O7
DCA BOTSAD /04420-3370 [8
ISZ BOTADD /04421-2367 S7
TAD I BOTADD /04422-1767 O7
DCA BOTCNT /04423-3371 [9
ISZ BOTADD /04424-2367 S7
COMPAR, TAD I BOTSAD /04425-1770 O8
CMA IAC /04426-7041 8!
TAD I BOTADD /04427-1767 O7
SNA CLA /04430-7650 >(
JMP GOODCP /04431-5243 *#
JMS I ERROR /04432-4503 %C
TAD BOTSAD /04433-1370 K8
HLT /04434-7402 <B
CLA /04435-7200 :@
TAD I BOTADD /04436-1767 O7
HLT /04437-7402 <B
CLA /04440-7200 :@
TAD I BOTSAD /04441-1770 O8
HLT /04442-7402 <B
GOODCP, CLA CLL /04443-7300 ;@
ISZ BOTSAD /04444-2370 S8
NOP /04445-7000 8@
ISZ BOTADD /04446-2367 S7
NOP /04447-7000 8@
ISZ BOTCNT /04450-2371 S9
JMP COMPAR /04451-5225 *U
TAD I BOTADD /04452-1767 O7
SZA /04453-7440 <
JMP COMPAR-5 /04454-5220 *P
TAD OP1SEL /04455-1021 HQ
AND K200 /04456-0146 A&
SZA CLA /04457-7640 >
JMP I BOTCMP+2 /04460-5602 .B
BOOTOK, HLT /04461-7402 <B
JMP BOTCMP /04462-5200 *@
CLEARB, AND 0000 /04463-0000 @@
SKP CLA /04464-7610 >H
CLRBOT, JMS SETUP /04465-4317 #O
TAD BOTCLR /04466-1365 K5
TAD (BOOTTB /04467-1377 K?
DCA SAVSTR /04470-3366 [6
TAD I SAVSTR /04471-1766 O6
SNA /04472-7450 <(
JMP BOTEND /04473-5311 +I
DCA BOTADD /04474-3367 [7
TAD I BOTADD /04475-1767 O7
DCA BOTSAD /04476-3370 [8
ISZ BOTADD /04477-2367 S7
TAD I BOTADD /04500-1767 O7
DCA BOTCNT /04501-3371 [9
DCA I BOTSAD /04502-3770 _8
ISZ BOTSAD /04503-2370 S8
NOP /04504-7000 8@
ISZ BOTCNT /04505-2371 S9
JMP .-4 /04506-5302 +B
ISZ SAVSTR /04507-2366 S6
JMP CLRBOT+4 /04510-5271 *9
BOTEND, TAD OP1SEL /04511-1021 HQ
AND K200 /04512-0146 A&
SZA CLA /04513-7640 >
JMP I CLEARB /04514-5663 .3
HLT /04515-7402 <B
JMP CLRBOT /04516-5265 *5
SETUP, AND 0000 /04517-0000 @@
DCA I (AUTSEL /04520-3776 _>
DCA I (SIMBOT /04521-3775 _=
TAD OP1SEL /04522-1021 HQ
CLL RAL /04523-7104 9D
AND K70 /04524-0144 A$
SNA CLA /04525-7650 >(
JMP SETUP2 /04526-5341 +!
SETUP1, DCA I (SIMBOT /04527-3775 _=
TAD I (SIMBOT /04530-1775 O=
TAD M5 /04531-1116 IN
DCA I (CNTBOT /04532-3774 _<
TAD I (SIMBOT /04533-1775 O=
DCA BOTCLR /04534-3365 [5
TAD I (AUTSEL /04535-1776 O>
TAD M4 /04536-1115 IM
DCA I (AUTCNT /04537-3773 _;
JMP I SETUP /04540-5717 /O
SETUP2, TAD OP1SEL /04541-1021 HQ
AND KK3 /04542-0372 C:
SNA /04543-7450 <(
JMP SET1K /04544-5354 +,
TAD M1 /04545-1113 IK
SNA /04546-7450 <(
JMP SET2K /04547-5360 +0
TAD M1 /04550-1113 IK
SNA CLA /04551-7650 >(
JMP SET3K /04552-5363 +3
JMP SETUP1 /04553-5327 +W
SET1K, CLA CLL IAC RAL /04554-7305 ;E
DCA I (AUTSEL /04555-3776 _>
CLA CLL CML IAC RAL /04556-7325 ;U
JMP SETUP1 /04557-5327 +W
SET2K, CLA CLL IAC /04560-7301 ;A
DCA I (AUTSEL /04561-3776 _>
JMP .-4 /04562-5356 +.
SET3K, CLA CLL IAC RAL /04563-7305 ;E
JMP SETUP1 /04564-5327 +W
BOTCLR, AND 0000 /04565-0000 @@
SAVSTR, AND 0000 /04566-0000 @@
BOTADD, AND 0000 /04567-0000 @@
BOTSAD, AND 0000 /04570-0000 @@
BOTCNT, AND 0000 /04571-0000 @@
KK3, AND 0003 /04572-0003 @C
/JMS 0133 /04573-4133 ![
/DCA I 4556 /04574-3756 _.
/DCA I 4555 /04575-3755 _-
/JMS 0134 /04576-4134 !\
/DCA I 4415 /04577-3615 ^M
*4600
AUTO, JMS I SCOPLP /04600-4505 %E
CAF /04601-6007 0G
TAD OP1SEL /04602-1021 HQ
AND K200 /04603-0146 A&
SZA CLA /04604-7640 >
6160 /04605-6160 10
TAD (OPRINT /04606-1377 K?
DCA AUTRST /04607-3101 YA
TAD (BUFFER /04610-1376 K>
DCA FILLIT /04611-3313 [K
TAD OP1SEL /04612-1021 HQ
AND K34 /04613-0352 C*
SZA CLA /04614-7640 >
JMP .+5 /04615-5222 *R
TAD OP1SEL /04616-1021 HQ
AND K1 /04617-0353 C+
SNA CLA /04620-7650 >(
CLA CLL CML RTR /04621-7332 ;Z
TAD (BUFFER /04622-1376 K>
DCA BUFCNT /04623-3314 [L
TAD BUFCNT /04624-1314 KL
DCA CNTBUF /04625-3315 [M
TAD K5252 /04626-1317 KO
DCA BUFPAT /04627-3316 [N
TAD BUFPAT /04630-1316 KN
DCA I FILLIT /04631-3713 _K
TAD BUFPAT /04632-1316 KN
CMA /04633-7040 8
DCA BUFPAT /04634-3316 [N
ISZ FILLIT /04635-2313 SK
ISZ CNTBUF /04636-2315 SM
JMP .-7 /04637-5230 *X
HLT /04640-7402 <B
TAD OP1SEL /04641-1021 HQ
SMA /04642-7500 =@
JMP .+3 /04643-5246 *&
CLA OSR /04644-7604 >D
SKP /04645-7410 <H
TAD SWITCH /04646-1020 HP
AND K3 /04647-0320 CP
TAD (RESADD /04650-1375 K=
DCA MANRST /04651-3321 [Q
TAD I MANRST /04652-1721 OQ
DCA MANRST /04653-3321 [Q
STRCMP, TAD (BUFFER /04654-1376 K>
DCA FILLIT /04655-3313 [K
TAD BUFCNT /04656-1314 KL
DCA CNTBUF /04657-3315 [M
TAD K5252 /04660-1317 KO
DCA BUFPAT /04661-3316 [N
CMPBUF, ION /04662-6001 0A
TAD I FILLIT /04663-1713 OK
CMA IAC /04664-7041 8!
TAD BUFPAT /04665-1316 KN
SNA CLA /04666-7650 >(
JMP BUFGOD /04667-5303 +C
JMS I ERROR /04670-4503 %C
TAD FILLIT /04671-1313 KK
HLT /04672-7402 <B
CLA CLL /04673-7300 ;@
TAD BUFPAT /04674-1316 KN
HLT /04675-7402 <B
CLA CLL /04676-7300 ;@
TAD I FILLIT /04677-1713 OK
HLT /04700-7402 <B
CLA CLL /04701-7300 ;@
JMP I TEST /04702-5502 -B
BUFGOD, TAD BUFPAT /04703-1316 KN
CMA /04704-7040 8
DCA BUFPAT /04705-3316 [N
ISZ FILLIT /04706-2313 SK
NOP /04707-7000 8@
ISZ CNTBUF /04710-2315 SM
JMP CMPBUF /04711-5262 *2
JMP STRCMP /04712-5254 *,
FILLIT, AND 0000 /04713-0000 @@
BUFCNT, 5400 /04714-5400 ,@
CNTBUF, AND 0000 /04715-0000 @@
BUFPAT, AND 0000 /04716-0000 @@
K5252, 5252 /04717-5252 **
K3, 3 /04720-0003 @C
MANRST, AND 0000 /04721-0000 @@
OPRRET, AND 0000 /04722-0000 @@
CLA CLL CMA /04723-7340 ;
TAD OPRRET /04724-1322 KR
CMA IAC /04725-7041 8!
TAD MANRST /04726-1321 KQ
SNA CLA /04727-7650 >(
JMP RESET /04730-5337 +_
JMS I ERROR /04731-4503 %C
TAD MANRST /04732-1321 KQ
HLT /04733-7402 <B
CLA CLL CMA /04734-7340 ;
TAD OPRRET /04735-1322 KR
HLT /04736-7402 <B
RESET, CLA CLL /04737-7300 ;@
TAD (OPRINT /04740-1377 K?
DCA AUTRST /04741-3101 YA
TAD I (PC /04742-1774 O<
DCA RETPRG /04743-3351 [)
TAD I (LINK /04744-1773 O;
RAL /04745-7004 8D
TAD DATREC /04746-1064 H4
ION /04747-6001 0A
JMP I RETPRG /04750-5751 /)
RETPRG, AND 0000 /04751-0000 @@
K34, AND 0034 /04752-0034 @\
K1, AND 0001 /04753-0001 @A
OPRINT, AND 0000 /04754-0000 @@
TAD (JMS I AUTRST /04755-1372 K:
DCA INTSER /04756-3000 X@
TAD (JMS I AUTRST /04757-1372 K:
DCA I (START /04760-3771 _9
TAD (OPRRET /04761-1370 K8
DCA AUTRST /04762-3101 YA
ACDOWN, HLT /04763-7402 <B
JMP I TEST /04764-5502 -B
/*4770
/JMS I 4722 /04770-4722 'R
/AND 4600 /04771-0200 B@
/JMS I 0101 /04772-4501 %A
/JMP 0051 /04773-5051 ()
/JMP 0052 /04774-5052 (*
/JMS 0137 /04775-4137 !_
/JMP I 0000 /04776-5400 ,@
/JMS I 4754 /04777-4754 ',
*5000
ACTLIN, AND 0000 /05000-0000 @@
TAD OP2SEL /05001-1022 HR
SMA CLA /05002-7700 ?@
JMP I ACTLIN /05003-5600 .@
TAD 0066 /05004-1066 H6
TAD M70 /05005-1133 I[
SZA CLA /05006-7640 >
JMP I ACTLIN /05007-5600 .@
TAD UPERLM /05010-1067 H7
IAC /05011-7001 8A
SZA CLA /05012-7640 >
JMP I ACTLIN /05013-5600 .@
CLA CLL CMA RTR /05014-7352 ;*
DCA UPERLM /05015-3067 X7
JMP I ACTLIN /05016-5600 .@
ENDPAS, TAD OP2SEL /05017-1022 HR
SMA CLA /05020-7700 ?@
JMP ENDING /05021-5234 *\
TAD OP1SEL /05022-1021 HQ
AND K200 /05023-0146 A&
SZA CLA /05024-7640 >
JMP ENDING /05025-5234 *\
ISZ PRGPAS /05026-2242 R"
JMP ENDING /05027-5234 *\
TAD (-144 /05030-1377 K?
DCA PRGPAS /05031-3242 Z"
CIF 70 /05032-6272 2:
JMS I GOODPS /05033-4500 %@
ENDING, JMS SWCHK /05034-4347 #'
RTL /05035-7006 8F
RAL /05036-7004 8D
JMS I (XORCHK /05037-4776 '>
JMS I TESTZZ /05040-4506 %F
JMP I (TEST1 /05041-5775 /=
PRGPAS, -144 /05042-7634 >\
POWFAL, RAR /05043-7010 8H
DCA LINK /05044-3251 Z)
TAD INTSER /05045-1000 H@
DCA PC /05046-3252 Z*
CAL /05047-6103 1C
JMS I AUTRST /05050-4501 %A
LINK, AND 0000 /05051-0000 @@
PC, AND 0000 /05052-0000 @@
PRGRST, AND 0000 /05053-0000 @@
SPL /05054-6102 1B
SKP CLA /05055-7610 >H
JMP .-2 /05056-5254 *,
JMP I TEST /05057-5502 -B
TESTAD, AND 0000 /05060-0000 @@
CLA CLL CMA /05061-7340 ;
TAD TESTAD /05062-1260 J0
DCA TEST /05063-3102 YB
TAD (PRGRST /05064-1374 K<
DCA AUTRST /05065-3101 YA
JMP I TESTAD /05066-5660 .0
BATEMT, TAD TEST /05067-1102 IB
CMA IAC /05070-7041 8!
TAD (TEST23 /05071-1373 K;
SZA CLA /05072-7640 >
JMP DEAD /05073-5277 *?
ISZ INTSER /05074-2000 P@
ISZ INTSER /05075-2000 P@
JMP I INTSER /05076-5400 ,@
DEAD, HLT /05077-7402 <B
JMP I TEST /05100-5502 -B
ERRORX, AND 0000 /05101-0000 @@
CLA CLL /05102-7300 ;@
TAD OP2SEL /05103-1022 HR
RAL /05104-7004 8D
SMA CLA /05105-7700 ?@
JMP ERRX /05106-5320 +P
IOF /05107-6002 0B
CIF 170 /05110-6372 3:
TAD OP2SEL /05111-1022 HR
SMA CLA /05112-7700 ?@
JMP I PASEND /05113-5512 -J
JMS SWCHK /05114-4347 #'
SMA CLA /05115-7700 ?@
JMP I PASEND /05116-5512 -J
JMP ERRX+3 /05117-5323 +S
ERRX, TAD OP2SEL /05120-1022 HR
SMA CLA /05121-7700 ?@
JMP ERRY /05122-5334 +\
IOF /05123-6002 0B
TAD OP1SEL /05124-1021 HQ
AND K200 /05125-0146 A&
SZA CLA /05126-7640 >
6160 /05127-6160 10
CLA CMA /05130-7240 :
TAD ERRORX /05131-1301 KA
CIF 70 /05132-6272 2:
JMP I BADPAS /05133-5477 ,?
ERRY, JMS SWCHK /05134-4347 #'
SPA CLA /05135-7710 ?H
JMP ERLPSW /05136-5342 +"
CLA CLL CMA /05137-7340 ;
TAD ERRORX /05140-1301 KA
HLT /05141-7402 <B
ERLPSW, JMS SWCHK /05142-4347 #'
RAL /05143-7004 8D
SPA CLA /05144-7710 ?H
JMP I TEST /05145-5502 -B
JMP I ERRORX /05146-5701 /A
SWCHK, AND 0000 /05147-0000 @@
CLA CLL /05150-7300 ;@
TAD OP1SEL /05151-1021 HQ
SMA CLA /05152-7700 ?@
JMP .+3 /05153-5356 +.
CLA OSR /05154-7604 >D
JMP I SWCHK /05155-5747 /'
TAD SWITCH /05156-1020 HP
JMP I SWCHK /05157-5747 /'
TSTLOP, AND 0000 /05160-0000 @@
JMS SWCHK /05161-4347 #'
RTL /05162-7006 8F
JMS I (XORLOP /05163-4772 ':
JMP I TSTLOP /05164-5760 /0
ACLBAT, AND 0000 /05165-0000 @@
ISZ INTSER /05166-2000 P@
JMP I INTSER /05167-5400 ,@
/*5172
/TAD I 0104 /05172-1504 MD
/JMS 5001 /05173-4201 "A
/JMP 0053 /05174-5053 (+
/AND 5001 /05175-0201 BA
/TAD I 0061 /05176-1461 L1
/SZL CLA OSR /05177-7634 >\
*5200
TESTX, AND 0000 /05200-0000 @@
CLA CLL /05201-7300 ;@
TAD OP2SEL /05202-1022 HR
RAL /05203-7004 8D
SPA CLA /05204-7710 ?H
6370 /05205-6370 38
JMP I TESTX /05206-5600 .@
TESTXX, AND 0000 /05207-0000 @@
CLA CLL /05210-7300 ;@
TAD OP2SEL /05211-1022 HR
RAL /05212-7004 8D
SMA CLA /05213-7700 ?@
JMP I TESTXX /05214-5607 .G
TESTXY, CAF /05215-6007 0G
JMS I (SWCHK /05216-4777 '?
RAL /05217-7004 8D
SPA CLA /05220-7710 ?H
CDF 170 /05221-6371 39
CDF 170 /05222-6371 39
6374 /05223-6374 3<
JMP I TESTXX /05224-5607 .G
JMP TESTXY /05225-5215 *M
/*5377
/JMP 0147 /05377-5147 )'
*5400
BUFFER, AND 0000 /05400-0000 @@
$