File: DJFPBC.PA of Disk: Disks/Working/MyProgs-22-04-07
(Source file text)
/DJFPBC
/40 SILENT
MQL=7421
MQA=7501
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
SKON=6000
SRQ=6003
GTF=6004
RTF=6005
SGT=6006
CAF=6007
CINT=6204
SINT=6254
CUF=6264
SUF=6274
SDSS=6771
KCF=6030
TFL=6040
TSF=6041
TCF=6042
TPC=6044
TSK=6045
TLS=6046
FPINT=6551
FPICL=6552
FPCOM=6553
FPHLT=6554
FPST=6555
FPRST=6556
FPIST=6557
FPEP=6567
/FPP OPCODES
FLDA=0000
FADD=1000
FSUB=2000
FDIV=3000
FMUL=4000
FADDM=5000
FSTA=6000
FMULM=7000
LONG=400 /TWO-WORD ADDRESSING
BASE=200 /BASEPAGE ADDRESSING
IND=600 /INDIRECT ADDRESSING
FEXIT=0000
FNORM=0004
STARTF=0005
STARTD=0006
JAC=0007
ATX=0020
XTA=0030
STARTE=0050
LDX=0100
JA=1030
JNE=1040
TRAP3=3000
FIELD 1
*0000
AND 0050 /10000-0050 @(
AND 0051 /10001-0051 @)
PC1, AND 0000 /10002-0000 @@
CDF11, CDF10 /10003-0003 @C
CIF11, CIF10 /10004-0004 @D
AND 0005 /10005-0005 @E
AND 0036 /10006-0036 @^
TSTNO, AND 0000 /10007-0000 @@
2330 /10010-2330 SX
2300 /10011-2300 S@
7773 /10012-7773 ?;
303 /10013-0303 CC
TAD I 0000 /10014-1400 L@
AND 0000 /10015-0000 @@
2330 /10016-2330 SX
CNT10, TAD I 0110 /10017-1510 MH
F1PNT, AND 0000 /10020-0000 @@
F1TMP, AND 0000 /10021-0000 @@
AND 0000 /10022-0000 @@
AND 0000 /10023-0000 @@
APT10, TAD 0111 /10024-1111 II
FPC10, AND 0000 /10025-0000 @@
INDX10, INDX0 /10026-0040 @
BASE10, BASE1 /10027-5200 *@
OPA10, AND 0000 /10030-0000 @@
FAC10, AND 0000 /10031-0000 @@
FMS10, AND 0000 /10032-0000 @@
FLS10, AND 0000 /10033-0000 @@
AND 0000 /10034-0000 @@
AND 0000 /10035-0000 @@
AND 0000 /10036-0000 @@
MQA MQL CLA SAM /10037-7777 ??
INDX0, AND 0000 /10040-0000 @@
INDX1, AND 0000 /10041-0000 @@
INDX2, AND 0000 /10042-0000 @@
INDX3, AND 0000 /10043-0000 @@
INDX4, AND 0000 /10044-0000 @@
INDX5, AND 0000 /10045-0000 @@
INDX6, AND 0000 /10046-0000 @@
INDX7, AND 0000 /10047-0000 @@
TIME, TIMOUT /10050-2451 T)
FPGO10, FPGO1 /10051-0600 F@
FCHK10, CHECK1 /10052-0304 CD
MSG10, MESG1 /10053-2472 T:
MSG01, MESG0 /10054-2511 UI
RAN10, SETRAN /10055-2400 T@
EFP, EFPRT /10056-1600 N@
DPP, DPPRT /10057-1672 N:
APTLST /10060-2200 R@
NUMLIN, LINNUM /10061-2242 R"
DIGI10, DIGIT1 /10062-2260 R0
LOOP10, LOOP1 /10063-2526 UV
DO10, DO1 /10064-0644 F$
RSW10, RSW11 /10065-1134 I\
LNKPRB, PRBLNK /10066-2750 W(
RECOV1, RECO10 /10067-2540 U
HDFAIL, FAILHD /10070-2140 Q
X8JMP1, X8JMP /10071-3352 [*
CHEK0, CHEK00 /10072-1353 K+
TAD I 0137 /10073-1537 M_
FPGO0, FPGO00 /10074-1461 L1
CMA IAC RTL /10075-7047 8'
K1, AND 0001 /10076-0001 @A
K2, AND 0002 /10077-0002 @B
AND 0003 /10100-0003 @C
K4, AND 0004 /10101-0004 @D
K7, AND 0007 /10102-0007 @G
K10, AND 0010 /10103-0010 @H
AND 0020 /10104-0020 @P
MOD1X8, MODEX8 /10105-0022 @R
AND 0027 /10106-0027 @W
AND 0030 /10107-0030 @X
K40, 0040 /10110-0040 @
K100, 100 /10111-0100 A@
200 /10112-0200 B@
K400, AND I 0000 /10113-0400 D@
AND I 0100 /10114-0500 E@
K1000, TAD 0000 /10115-1000 H@
ISZ 0000 /10116-2000 P@
K2411, ISZ I 0011 /10117-2411 TI
K4000, JMS 0000 /10120-4000 @
SMA CLA /10121-7700 ?@
M1200, 6600 /10122-6600 6@
SPA SNA SZL CLA /10123-7770 ?8
MQA MQL CLA DCM /10124-7775 ?=
STAT10, AND 0000 /10125-0000 @@
CMND10, ISZ I 0011 /10126-2411 TI
LOC, AND 0000 /10127-0000 @@
AND 0000 /10130-0000 @@
AND 0000 /10131-0000 @@
AND 0000 /10132-0000 @@
HASINT, AND 0000 /10133-0000 @@
AND 0000 /10134-0000 @@
BS30P2, BASE1+30+2 /10135-5232 *Z
BS74P2, BASE1+74+2 /10136-5276 *>
HASERR, AND 0000 /10137-0000 @@
AND 0000 /10140-0000 @@
F1CNT, AND 0000 /10141-0000 @@
EPMOD0, AND 0000 /10142-0000 @@
EPMODX, AND 0000 /10143-0000 @@
SMA CLA /10144-7700 ?@
FLIPEP, AND 0000 /10145-0000 @@
FLD1, AND 0001 /10146-0001 @A
FLD10, AND 0010 /10147-0010 @H
ALL10, TAD 0111 /10150-1111 II
AND 0000 /10151-0000 @@
AND 0000 /10152-0000 @@
DCA 0157 /10153-3157 Y/
TAD I 0010 /10154-1410 LH
CDF 0 /10155-6201 2A
DCA I 0011 /10156-3411 \I
CDF 0 /10157-6201 2A
ISZ 0123 /10160-2123 QS
JMP 0154 /10161-5154 ),
ISZ 0141 /10162-2141 Q!
JMP I 0141 /10163-5541 -!
RMF /10164-6244 2$
JMP I 0003 /10165-5403 ,C
AND 0000 /10166-0000 @@
AND I 0007 /10167-0407 DG
TAD I 0103 /10170-1503 MC
AND 0102 /10171-0102 AB
2326 /10172-2326 SV
ISZ I 0170 /10173-2570 U8
SPA SNA SZL CLA HLT /10174-7772 ?:
AND I 0010 /10175-0410 DH
1320 /10176-1320 KP
AND 0163 /10177-0163 A3
PAGE
STRT10, CLA CLL /10200-7300 ;@
DCA PASNUM /10201-3302 [B
CIF CDF 10 /10202-6213 2K
JMS I (INIRAN /10203-4777 '?
CAF /10204-6007 0G
DCA 0151 /10205-3151 Y)
JMS I RSW10 /10206-4465 $5
AND K40 /10207-0110 AH
SZA CLA /10210-7640 >
JMP .+5 /10211-5216 *N
JMS I MSG10 /10212-4453 $+
RUNING /10213-7523 =S
JMS I MSG10 /10214-4453 $+
DATAEX /10215-7254 :,
DCA 0130 /10216-3130 YX
CLA CLL IAC /10217-7301 ;A
DCA FLD1 /10220-3146 Y&
TAD K10 /10221-1103 IC
DCA FLD10 /10222-3147 Y'
JMS I (SETCDF /10223-4776 '>
TAD 0121 /10224-1121 IQ
DCA 0144 /10225-3144 Y$
TAD (1111 /10226-1375 K=
DCA ALL10 /10227-3150 Y(
TAD K2411 /10230-1117 IO 2:UNDERFLOW 4:INTENA 1:LOCK 1:APTFLD
DCA CMND10 /10231-3126 YV
DCA EPMODX /10232-3143 Y#
CLA CLL CMA RTL /10233-7346 ;&
DCA FLIPEP /10234-3145 Y%
JMS I (ICL00 /10235-4774 '<
JMS I (EXEC1 /10236-4773 ';
JMS I (REL1 /10237-4772 ':
ISZ PASNUM /10240-2302 SB
NOP /10241-7000 8@
CDF 0 /10242-6201 2A
TAD I MOD1X8 /10243-1505 ME
CDF 10 /10244-6211 2I
SPA CLA /10245-7710 ?H
JMP 0300 /10246-5300 +@
JMS I RSW10 /10247-4465 $5
AND K40 /10250-0110 AH
SZA CLA /10251-7640 >
JMP 0265 /10252-5265 *5
JMS I MSG10 /10253-4453 $+
DJFPB /10254-7460 <0
JMS I MSG10 /10255-4453 $+
DATAEX /10256-7254 :,
JMS I MSG10 /10257-4453 $+
PASS /10260-7454 <,
TAD PASNUM /10261-1302 KB
JMS I DIGI10 /10262-4462 $2
JMS I MSG10 /10263-4453 $+
ULINE /10264-7377 ;?
JMS I RSW10 /10265-4465 $5
AND K400 /10266-0113 AK
SNA CLA /10267-7650 >(
JMP 0273 /10270-5273 *;
JMS I LOOP10 /10271-4463 $3
AND 0273 /10272-0273 B;
CDF 0 /10273-6201 2A
TAD I NOEX /10274-1405 LE
CDF 10 /10275-6211 2I
SZA CLA /10276-7640 >
JMP 0217 /10277-5217 *O
CIF CDF 0 /10300-6203 2C
JMP I 0373 /10301-5773 /;
PASNUM, AND 0000 /10302-0000 @@
FLGVER, SMA SZA SNL CLA OSR /10303-7764 ?4
CHECK1, AND 0000 /10304-0000 @@
CLA CLL /10305-7300 ;@
DCA TIMFLG /10306-3363 [3
JMS I (RSW1 /10307-4771 '9
AND K1000 /10310-0115 AM
SNA CLA /10311-7650 >(
JMP 0317 /10312-5317 +O
CLA CLL CMA /10313-7340 ;
DCA I BS74P2 /10314-3536 ]^
DCA TIMFLG /10315-3363 [3
JMP 0320 /10316-5320 +P
DCA I BS74P2 /10317-3536 ]^
JMS I (RSW1 /10320-4771 '9
AND (37 /10321-0370 C8
SNA /10322-7450 <(
JMP 0334 /10323-5334 +\
CMA IAC /10324-7041 8!
TAD TSTNO /10325-1007 HG
SZA CLA /10326-7640 >
JMP 0334 /10327-5334 +\
CLA CLL CMA /10330-7340 ;
DCA I BS30P2 /10331-3535 ]]
DCA TIMFLG /10332-3363 [3
JMP 0336 /10333-5336 +^
CLA CLL /10334-7300 ;@
DCA I BS30P2 /10335-3535 ]]
TAD HASINT /10336-1133 I[
SZA CLA /10337-7640 >
JMP 0361 /10340-5361 +1
JMS I (ACTEXP /10341-4767 '7
NOP/ISZ TIMFLG /10342-2363 S3 WVDM NO TIMOUT
JMP 0307 /10343-5307 +G
IOF /10344-6002 0B
TAD 0366 /10345-1366 K6
DCA PC1 /10346-3002 XB
JMS I HDFAIL /10347-4470 $8
JMS I MSG01 /10350-4454 $,
PC /10351-7546 =&
TAD PC1 /10352-1002 HB
JMS I DIGI10 /10353-4462 $2
JMS I MSG10 /10354-4453 $+
TIMO /10355-7447 <'
JMS I LOOP10 /10356-4463 $3
AND 0360 /10357-0360 C0
JMP 0204 /10360-5204 *D
DCA HASINT /10361-3133 Y[
JMP I CHECK1 /10362-5704 /D
TIMFLG, AND 0000 /10363-0000 @@
CLA RAL /10364-7204 :D
6344 /10365-6344 3$
0357 /10366-0357 C/
/ISZ 0000 /10367-2000 P@
/AND 0037 /10370-0037 @_
/ISZ 0160 /10371-2160 Q0
/DCA 0200 /10372-3200 Z@
/AND I 0000 /10373-0400 D@
/TAD 0150 /10374-1150 I(
/TAD 0111 /10375-1111 II
/TAD 0100 /10376-1100 I@
/ISZ I 0034 /10377-2434 T\
PAGE
EXEC1, AND 0000 /10400-0000 @@
ION /10401-6001 0A
TAD (CODE /10402-1377 K?
DCA FPC10 /10403-3025 XU
DCA TSTNO /10404-3007 XG
TAD CMND10 /10405-1126 IV
TAD K10 /10406-1103 IC
AND K2411 /10407-0117 AO
DCA CMND10 /10410-3126 YV FLIP LOCKOUT
ISZ FLIPEP /10411-2145 Q%
JMP .+6 /10412-5220 *P
CLA CLL CMA RAL /10413-7344 ;$
DCA FLIPEP /10414-3145 Y%
TAD EPMODX /10415-1143 I#
TAD K4000 /10416-1120 IP
DCA EPMODX /10417-3143 Y#
TAD EPMODX /10420-1143 I#
SPA CLA /10421-7710 ?H
TAD (STARTE /10422-1376 K>
TAD (STARTF /10423-1375 K= 055 ON MODE E WORKS AS 050
CDFX14, CDF 10 /10424-6211 2I
DCA I FPLEFY /10425-3672 ^:
TAD EPMODX /10426-1143 I#
SPA CLA /10427-7710 ?H
TAD (44 /10430-1374 K<
TAD (26 /10431-1373 K; 24-2 OR 60-2
DCA I BS52P2 /10432-3673 ^;
CDF 10 /10433-6211 2I
CLA CLL /10434-7300 ;@
ISZ TSTNO /10435-2007 PG
TAD TSTNO /10436-1007 HG
TAD (-22 /10437-1372 K: END OF TESTS
SZA CLA /10440-7640 >
JMP .+5 /10441-5246 *&
JMS I (X8JMS /10442-4771 '9
ISZ 0144 /10443-2144 Q$
JMP EXEC1+1 /10444-5201 *A
JMP I EXEC1 /10445-5600 .@
TAD TSTNO /10446-1007 HG
AND K1 /10447-0076 @>
SNA CLA /10450-7650 >(
JMP .+2 /10451-5253 *+
TAD EPMODX /10452-1143 I#
DCA EPMOD0 /10453-3142 Y"
TAD EPMOD0 /10454-1142 I"
CDFX15, CDF 10 /10455-6211 2I
DCA I EPMODY /10456-3674 ^<
CDF 10 /10457-6211 2I
TAD CMND10 /10460-1126 IV
AND K10 /10461-0103 AC
TAD FLD1 /10462-1146 I&
BSW /10463-7002 8B
TAD TSTNO /10464-1007 HG
TAD EPMODX /10465-1143 I#
MQL /10466-7421 <Q
JMS I FPGO10 /10467-4451 $)
JMS I FCHK10 /10470-4452 $*
JMP 0434 /10471-5234 *\
FPLEFY, FPLEF /10472-4625 &U
BS52P2, BASE1+52+2 /10473-5254 *,
EPMODY, EPMOD0 /10474-0142 A"
JMS I RSW10 /10475-4465 $5
AND K1000 /10476-0115 AM
SNA CLA /10477-7650 >(
JMP 0504 /10500-5304 +D
CLA CLL CMA /10501-7340 ;
DCA I BS74P2 /10502-3536 ]^
JMS I DO10 /10503-4464 $4
DCA I BS74P2 /10504-3536 ]^
CLA CLL CMA /10505-7340 ;
TAD 0040 /10506-1040 H
DCA 0040 /10507-3040 X
CLA CLL CMA /10510-7340 ;
TAD 0041 /10511-1041 H!
DCA 0041 /10512-3041 X!
JMS I DO10 /10513-4464 $4
APTLIN, DCA I 0506 /10514-3706 _F
TAD I 0004 /10515-1404 LD
JMS 0040 /10516-4040
AND I 0420 /10517-0620 FP
AND 0540 /10520-0340 C
JMS 0011 /10521-4011 I
ISZ 0460 /10522-2260 R0
JMS 0040 /10523-4040
AND 0401 /10524-0201 BA
ISZ 0505 /10525-2305 SE
JMS 0017 /10526-4017 O
ISZ 0001 /10527-2001 PA
JMS 0040 /10530-4040
AND I 0130 /10531-0530 EX
ISZ 0040 /10532-2040 P
JMS 0015 /10533-4015 M
ISZ 0527 /10534-2327 SW
JMS 0040 /10535-4040
TAD I 0023 /10536-1423 LS
ISZ I 0560 /10537-2760 W0
JMS 0014 /10540-4014 L
ISZ 0527 /10541-2327 SW
6140 /10542-6140 1
TAD I 0023 /10543-1423 LS
ISZ I 0562 /10544-2762 W2
JMS 0014 /10545-4014 L
ISZ 0527 /10546-2327 SW
6337 /10547-6337 3_
AND 0000 /10550-0000 @@
INDRGS, DCA I 0506 /10551-3706 _F
ISZ 0020 /10552-2020 PP
JMS 0011 /10553-4011 I
TAD I 0404 /10554-1604 ND
AND I 0130 /10555-0530 EX
JMS 0022 /10556-4022 R
AND I 0107 /10557-0507 EG
ISZ 0572 /10560-2372 S:
AND 0000 /10561-0000 @@
AND 0000 /10562-0000 @@
AND 0000 /10563-0000 @@
AND 0000 /10564-0000 @@
AND 0000 /10565-0000 @@
AND 0000 /10566-0000 @@
AND 0000 /10567-0000 @@
AND 0000 /10570-0000 @@
/AND I 0551 /10571-0751 G)
/SPA SNA CLA OSR HLT /10572-7756 ?.
/AND 0026 /10573-0026 @V
/AND 0044 /10574-0044 @$
/AND 0005 /10575-0005 @E
/AND 0050 /10576-0050 @(
/DCA I 0400 /10577-3600 ^@
PAGE
FPGO1, AND 0000 /10600-0000 @@
CLA CLL CMA /10601-7340 ;
DCA 0037 /10602-3037 X_
JMS I RAN10 /10603-4455 $-
RANBUF /10604-5400 ,@
TAD (BASE1 /10605-1377 K?
DCA BASE10 /10606-3027 XW
TAD K40 /10607-1110 IH
DCA INDX10 /10610-3026 XV
FPAG1, JMS SET1 /10611-4260 "0
TAD (APT10 /10612-1376 K>
FPST /10613-6555 5-
JMP .+3 /10614-5217 *O
CLA CLL /10615-7300 ;@
JMP I FPGO1 /10616-5600 .@
JMS GOERR1 /10617-4222 "R
ION /10620-6001 0A
JMP FPAG1 /10621-5211 *I
GOERR1, AND 0000 /10622-0000 @@
IOF /10623-6002 0B
JMS I RSW10 /10624-4465 $5
AND K100 /10625-0111 AI
SZA CLA /10626-7640 >
JMP GOAD1-1 /10627-5241 *!
TAD (GOAD1 /10630-1375 K=
DCA PC1 /10631-3002 XB
JMS I HDFAIL /10632-4470 $8
JMS I MSG01 /10633-4454 $,
PC /10634-7546 =&
TAD PC1 /10635-1002 HB
JMS I DIGI10 /10636-4462 $2
JMS I MSG01 /10637-4454 $,
NOSKIP /10640-7523 =S
JMS I LOOP10 /10641-4463 $3
GOAD1, AND I 0643 /10642-0643 F#
JMP I GOERR1 /10643-5622 .R
DO1, AND 0000 /10644-0000 @@
CLA CLL /10645-7300 ;@
DCA I (TIMFLG /10646-3774 _<
JMS SET1 /10647-4260 "0
TAD (APT10 /10650-1376 K>
FPST /10651-6555 5-
JMP 0656 /10652-5256 *.
CLA CLL /10653-7300 ;@
CIF CDF 0 /10654-6203 2C
JMP I (INTEND /10655-5773 /;
JMS 0622 /10656-4222 "R
JMP 0647 /10657-5247 *'
SET1, AND 0000 /10660-0000 @@
FPICL /10661-6552 5*
DCA HASERR /10662-3137 Y_
DCA HASINT /10663-3133 Y[
TAD ALL10 /10664-1150 I(
DCA APT10 /10665-3024 XT
TAD STAT10 /10666-1125 IU
AND K4000 /10667-0120 AP KEEP DP MODE
TAD CMND10 /10670-1126 IV
FPCOM /10671-6553 5+
CLA CLL /10672-7300 ;@
TAD EPMOD0 /10673-1142 I"
SPA /10674-7510 =H
FPEP /10675-6567 57
CLA CLL /10676-7300 ;@
JMP I SET1 /10677-5660 .0
TRAP4, CLA CLL /10700-7300 ;@
TAD 0772 /10701-1372 K:
DCA 0014 /10702-3014 XL
CDFX00, CDF 10 /10703-6211 2I
TAD I 0014 /10704-1414 LL
CDF 10 /10705-6211 2I
SPA /10706-7510 =H
CLL CML /10707-7120 9P
RAR /10710-7010 8H
DCA 0140 /10711-3140 Y
CLA CLL CMA /10712-7340 ;
TAD 0014 /10713-1014 HL
DCA 0014 /10714-3014 XL
TAD EPMOD0 /10715-1142 I"
SPA CLA /10716-7710 ?H
JMP 0733 /10717-5333 +[
TAD 0771 /10720-1371 K9
DCA CNT10 /10721-3017 XO
TAD 0140 /10722-1140 I
CDFX01, CDF 10 /10723-6211 2I
DCA I 0014 /10724-3414 \L
CDF 10 /10725-6211 2I
ISZ 0014 /10726-2014 PL
ISZ 0014 /10727-2014 PL
ISZ CNT10 /10730-2017 PO
JMP 0722 /10731-5322 +R
JMS I DO10 /10732-4464 $4
TAD 0770 /10733-1370 K8
DCA CNT10 /10734-3017 XO
TAD 0140 /10735-1140 I
CDFX02, CDF 10 /10736-6211 2I
DCA I 0014 /10737-3414 \L
CDF 10 /10740-6211 2I
ISZ 0014 /10741-2014 PL
ISZ 0014 /10742-2014 PL
ISZ 0014 /10743-2014 PL
ISZ 0014 /10744-2014 PL
ISZ 0014 /10745-2014 PL
ISZ CNT10 /10746-2017 PO
JMP 0735 /10747-5335 +]
JMS I DO10 /10750-4464 $4
X8JMS, AND 0000 /10751-0000 @@
CDF 0 /10752-6201 2A
TAD I MOD1X8 /10753-1505 ME
CDF 10 /10754-6211 2I
SMA CLA /10755-7700 ?@
JMP I X8JMS /10756-5751 /)
IOF /10757-6002 0B
CDF 10 /10760-6211 2I
CIF 70 /10761-6272 2:
JMS I 0767 /10762-4767 '7
JMP I X8JMS /10763-5751 /)
AND 0037 /10764-0037 @_
CLA CMA RTR /10765-7252 :*
CLA CLL /10766-7300 ;@
6500 /10767-6500 5@
SPA CLA OSR /10770-7714 ?L
SZL CLA /10771-7630 >X
JMP 0777 /10772-5377 +?
/AND 0735 /10773-0335 C]
/AND 0763 /10774-0363 C3
/AND I 0642 /10775-0642 F"
/AND 0024 /10776-0024 @T
/JMP 0600 /10777-5200 *@
PAGE
INTRP1, CLA CLL /11000-7300 ;@
TAD 0151 /11001-1151 I)
SZA CLA /11002-7640 >
JMP I 0152 /11003-5552 -*
CLA CLL CMA /11004-7340 ;
DCA HASINT /11005-3133 Y[
NSIST, FPIST /11006-6557 5/
JMS NOSIST /11007-4257 "/
DCA STAT10 /11010-3125 YU
TAD STAT10 /11011-1125 IU
SNA /11012-7450 <(
JMS STTERR /11013-4235 "]
AND (3740 /11014-0377 C? | T | H | Z | F | E | U |
CLL RTL /11015-7106 9F
SZL /11016-7430 <X
JMP I (TRAP /11017-5776 /> TRAP
CLL RAL /11020-7104 9D
SZL /11021-7430 <X
JMP I (HALT /11022-5775 /= HLT
CLL RAL /11023-7104 9D
SZL /11024-7430 <X
JMP I (DIVZER /11025-5774 /< ZERO DIV
CLL RAL /11026-7104 9D
SZL /11027-7430 <X
JMP I (FRACOV /11030-5773 /; FRAC OVFL
CLL RAL /11031-7104 9D
SZL /11032-7430 <X
JMP I (EXPOV /11033-5772 /: EXP OVERFLOW
JMP I (EXPUN /11034-5771 /9 UNDERFLOW EXP
STTERR, AND 0000 /11035-0000 @@
CLA CLL IAC /11036-7301 ;A
DCA HASERR /11037-3137 Y_
JMS I RECOV1 /11040-4467 $7
XSTT /11041-1054 H,
TAD TSTNO /11042-1007 HG
AND K1 /11043-0076 @>
SZA CLA /11044-7640 >
JMP .+3 /11045-5250 *(
JMS I 0057 /11046-4457 $/
JMP .+2 /11047-5251 *)
JMS I EFP /11050-4456 $.
JMS I VT /11051-4460 $0
JMS I MSG10 /11052-4453 $+
ULINE /11053-7377 ;?
XSTT, JMS I LOOP10 /11054-4463 $3
0475 /11055-0475 D=
JMS I DO10 /11056-4464 $4
NOSIST, AND 0000 /11057-0000 @@
JMS I RSW10 /11060-4465 $5
AND K100 /11061-0111 AI
SZA CLA /11062-7640 >
JMP NSIS /11063-5275 *=
TAD NOSIST /11064-1257 J/
DCA PC1 /11065-3002 XB
JMS I HDFAIL /11066-4470 $8
JMS I MSG01 /11067-4454 $,
PC /11070-7546 =&
TAD PC1 /11071-1002 HB
JMS I DIGI10 /11072-4462 $2
JMS I MSG10 /11073-4453 $+
ISTNOS /11074-7412 <J
NSIS, JMS I LOOP10 /11075-4463 $3
NSIST /11076-1006 HF
JMP NSIST /11077-5206 *F
SETCDF, AND 0000 /11100-0000 @@
TAD (CDFLIS /11101-1370 K8
DCA F1PNT /11102-3020 XP
TAD I F1PNT /11103-1420 LP
DCA F1TMP /11104-3021 XQ
TAD FLD10 /11105-1147 I'
TAD (CDF 0 /11106-1367 K7
DCA I F1TMP /11107-3421 \Q
ISZ F1PNT /11110-2020 PP
TAD I F1PNT /11111-1420 LP
SNA CLA /11112-7650 >(
JMP I SETCDF /11113-5700 /@
JMP 1103 /11114-5303 +C
CDFLIS, CDFX00 /11115-0703 GC
CDFX01 /11116-0723 GS
CDFX02 /11117-0736 G^
CDFX03 /11120-1432 LZ
CDFX04 /11121-1443 L#
CDFX05 /11122-1253 J+
CDFX06 /11123-2407 TG
CDFX07 /11124-1301 KA
CDFX10 /11125-1273 J;
CDFX11 /11126-1310 KH
CDFX12 /11127-3101 YA
CDFX13 /11130-3301 [A
CDFX14 /11131-0424 DT
CDFX15 /11132-0455 D-
0000 /11133-0000 @@
RSW11, AND 0000 /11134-0000 @@
CDF 0 /11135-6201 2A
TAD I SOFT0 /11136-1747 O'
SPA CLA /11137-7710 ?H
JMP .+3 /11140-5343 +#
TAD I SW0 /11141-1746 O&
JMP .+2 /11142-5344 +$
CLA OSR /11143-7604 >D
CDF 10 /11144-6211 2I
JMP I RSW11 /11145-5734 /\
SW0, SW /11146-0020 @P
SOFT0, SOFT /11147-0021 @Q
ICL00, AND 0000 /11150-0000 @@
CDF 0 /11151-6201 2A
DCA I CDF11 /11152-3403 \C
DCA I CIF11 /11153-3404 \D
CDF 10 /11154-6211 2I
FPICL /11155-6552 5*
JMP I ICL00 /11156-5750 /(
AND 0000 /11157-0000 @@
JMS I MSG01 /11160-4454 $,
PC /11161-7546 =&
TAD PC1 /11162-1002 HB
JMS I DIGI10 /11163-4462 $2
JMS I LNKPRB /11164-4466 $6
AND 0022 /11165-0022 @R
JMP I 1157 /11166-5757 //
/CDF 0 /11167-6201 2A
/TAD 0115 /11170-1115 IM
/TAD 1100 /11171-1300 K@
/TAD 1071 /11172-1271 J9
/TAD 1063 /11173-1263 J3
/TAD 1033 /11174-1233 J[
/TAD 1027 /11175-1227 JW
/TAD 1000 /11176-1200 J@
/DCA I 1140 /11177-3740 _
PAGE
TRAP, SZA CLA /11200-7640 >
JMS I (STTERR /11201-4777 '?
TAD APT10 /11202-1024 HT
CLL RTL /11203-7106 9F
RTL /11204-7006 8F
AND K7 /11205-0102 AB
TAD (TRL /11206-1376 K>
DCA TRI /11207-3213 ZK
TAD I TRI /11210-1613 NK
DCA TRX /11211-3214 ZL
JMP I TRX /11212-5614 .L
TRI, AND 0000 /11213-0000 @@
TRX, AND 0000 /11214-0000 @@
TRL, TRNOP /11215-1225 JU
TRAP1 /11216-1400 L@
TRAP2 /11217-1306 KF
TRAP3X /11220-1337 K_
TRAP4 /11221-0700 G@
TRIL /11222-2103 QC
TRIL /11223-2103 QC
TRIL /11224-2103 QC
TRNOP, CIF CDF 0 /11225-6203 2C
JMP I (INTEND /11226-5775 /=
HALT, SZA CLA /11227-7640 >
JMS I (STTERR /11230-4777 '?
CIF CDF 0 /11231-6203 2C
JMP I (INTEND /11232-5775 /=
DIVZER, SZA CLA /11233-7640 >
JMS I (STTERR /11234-4777 '?
TAD STAT10 /11235-1125 IU DP MODE?
SMA CLA /11236-7700 ?@
JMP 1243 /11237-5243 *#
JMS I (DPMLOC /11240-4774 '<
CLA CLL CMA /11241-7340 ;
JMP 1244 /11242-5244 *$
JMS I (EFMLOC /11243-4773 ';
TAD LOC /11244-1127 IW
DCA 0014 /11245-3014 XL
TAD EPMOD0 /11246-1142 I"
SPA CLA /11247-7710 ?H
CLA CLL CMA RTL /11250-7346 ;&
TAD (-2 /11251-1372 K:
DCA CNT10 /11252-3017 XO
CDFX05, CDF 10 /11253-6211 2I
TAD I 0014 /11254-1414 LL
CDF 10 /11255-6211 2I
SZA CLA /11256-7640 >
JMS I (STTERR /11257-4777 '?
ISZ CNT10 /11260-2017 PO
JMP CDFX05 /11261-5253 *+
JMS I DO10 /11262-4464 $4
FRACOV, SZA CLA /11263-7640 >
JMS I (STTERR /11264-4777 '?
TAD FMS10 /11265-1032 HZ
SPA CLA /11266-7710 ?H
JMP 1273 /11267-5273 *;
JMP 1300 /11270-5300 +@
EXPOV, SZA CLA /11271-7640 >
JMS I (STTERR /11272-4777 '?
CDFX10, CDF 10 /11273-6211 2I
ISZ I X7 /11274-2752 W*
NOP /11275-7000 8@
CDF 10 /11276-6211 2I
JMS I DO10 /11277-4464 $4
EXPUN, CLA CLL CMA /11300-7340 ;
CDFX07, CDF 10 /11301-6211 2I
TAD I X7 /11302-1752 O*
DCA I X7 /11303-3752 _*
CDF 10 /11304-6211 2I
JMS I DO10 /11305-4464 $4
TRAP2, TAD FMS10 /11306-1032 HZ
AND (37 /11307-0371 C9
CDFX11, CDF 10 /11310-6211 2I
DCA I X4 /11311-3750 _(
TAD I X4 /11312-1750 O(
CMA IAC /11313-7041 8!
DCA I X5 /11314-3751 _)
CLA CLL CMA /11315-7340 ;
DCA MASKMS /11316-3346 [&
CLA CLL CMA /11317-7340 ;
DCA MASKLS /11320-3347 ['
TAD I X5 /11321-1751 O)
CDF 10 /11322-6211 2I
SNA /11323-7450 <(
JMS I DO10 /11324-4464 $4
DCA CNT10 /11325-3017 XO
TAD MASKLS /11326-1347 K'
CLL RAL /11327-7104 9D
DCA MASKLS /11330-3347 ['
TAD MASKMS /11331-1346 K&
RAL /11332-7004 8D
DCA MASKMS /11333-3346 [&
ISZ CNT10 /11334-2017 PO
JMP 1326 /11335-5326 +V
JMS I DO10 /11336-4464 $4
TRAP3X, TAD FMS10 /11337-1032 HZ
AND MASKMS /11340-0346 C&
DCA FMS10 /11341-3032 XZ
TAD FLS10 /11342-1033 H[
AND MASKLS /11343-0347 C'
DCA FLS10 /11344-3033 X[
JMS I DO10 /11345-4464 $4
MASKMS, AND 0000 /11346-0000 @@
MASKLS, AND 0000 /11347-0000 @@
X4, INDX4 /11350-0044 @$
X5, INDX5 /11351-0045 @%
X7, INDX7 /11352-0047 @'
CHEK00, AND 0000 /11353-0000 @@
TAD (CHKT0 /11354-1370 K8
DCA PC1 /11355-3002 XB
TAD I CHEK00 /11356-1753 O+
DCA CHKT0 /11357-3365 [5
ISZ CHEK00 /11360-2353 S+
CIF 0 /11361-6202 2B
JMS I (CHECK /11362-4767 '7
JMP 1340 /11363-5340 +
JMS I LOOP10 /11364-4463 $3
CHKT0, AND 0000 /11365-0000 @@
JMP I CHEK00 /11366-5753 /+
/NOP /11367-7000 8@
/TAD 1365 /11370-1365 K5
/AND 0037 /11371-0037 @_
/SPA SNA SZL CLA OSR HLT /11372-7776 ?>
/TAD I 0041 /11373-1441 L!
/TAD I 0030 /11374-1430 LX
/AND 1335 /11375-0335 C]
/TAD 1215 /11376-1215 JM
/TAD 0035 /11377-1035 H]
PAGE
TRAP1, CLA CLL /11400-7300 ;@
TAD TSTNO /11401-1007 HG
AND K1 /11402-0076 @>
SNA CLA /11403-7650 >(
JMP 1417 /11404-5217 *O
JMP 1406 /11405-5206 *F
JMS I RECOV1 /11406-4467 $7
XTRP1 /11407-1414 LL
JMS I EFP /11410-4456 $.
JMS I MSG10 /11411-4453 $+
BUCOER /11412-7476 <>
JMS I VT /11413-4460 $0
XTRP1, JMS I LOOP10 /11414-4463 $3
AND I 0075 /11415-0475 D=
JMS I DO10 /11416-4464 $4
JMS I RECOV1 /11417-4467 $7
XTRP2 /11420-1425 LU
JMS I 0057 /11421-4457 $/
JMS I MSG10 /11422-4453 $+
BUCOER /11423-7476 <>
JMS I VT /11424-4460 $0
XTRP2, JMS I LOOP10 /11425-4463 $3
AND I 0075 /11426-0475 D=
JMS I DO10 /11427-4464 $4
DPMLOC, AND 0000 /11430-0000 @@
CLA CLL /11431-7300 ;@
CDFX03, CDF 10 /11432-6211 2I
TAD I X1 /11433-1660 N0
TAD I X1 /11434-1660 N0
CDF 10 /11435-6211 2I
TAD (RANBUF /11436-1377 K?
DCA LOC /11437-3127 YW
JMP I DPMLOC /11440-5630 .X
EFMLOC, AND 0000 /11441-0000 @@
CLA CLL /11442-7300 ;@
CDFX04, CDF 10 /11443-6211 2I
TAD I X1 /11444-1660 N0
CLL RAL /11445-7104 9D
TAD I X1 /11446-1660 N0
CDF 10 /11447-6211 2I
DCA LOC /11450-3127 YW
TAD EPMOD0 /11451-1142 I"
SPA CLA /11452-7710 ?H
TAD LOC /11453-1127 IW
TAD LOC /11454-1127 IW
TAD (RANBUF /11455-1377 K?
DCA LOC /11456-3127 YW
JMP I EFMLOC /11457-5641 .!
X1, INDX1 /11460-0041 @!
FPGO00, AND 0000 /11461-0000 @@
TAD I FPGO00 /11462-1661 N1
DCA 1536 /11463-3336 [^
TAD I 1536 /11464-1736 O^
TAD K2 /11465-1077 H?
DCA 0016 /11466-3016 XN
ISZ FPGO00 /11467-2261 R1
TAD 0016 /11470-1016 HN
AND K4000 /11471-0120 AP
SZA CLA /11472-7640 >
IAC /11473-7001 8A
TAD K4000 /11474-1120 IP
DCA CNT10 /11475-3017 XO
TAD FPGO00 /11476-1261 J1
DCA 0152 /11477-3152 Y*
JMS 1555 /11500-4355 #-
JMS I (6731 /11501-4776 '>
FPICL /11502-6552 5*
TAD K400 /11503-1113 IK
FPCOM /11504-6553 5+
CLA CLL /11505-7300 ;@
TAD K4000 /11506-1120 IP
FPEP /11507-6567 57
ION /11510-6001 0A
TAD (APT10 /11511-1375 K=
FPST /11512-6555 5-
JMP 1530 /11513-5330 +X
JMS I TIME /11514-4450 $(
3720 /11515-3720 _P
IOF /11516-6002 0B
TAD (.+7 /11517-1374 K<
DCA PC1 /11520-3002 XB
JMS I (6600 /11521-4773 ';
TAD I 0125 /11522-1525 MU
JMS I MSG10 /11523-4453 $+
TIMO /11524-7447 <'
JMS I LOOP10 /11525-4463 $3
TAD I 0076 /11526-1476 L>
JMP 1476 /11527-5276 *>
CLA CLL /11530-7300 ;@
TAD (.-3 /11531-1374 K<
DCA PC1 /11532-3002 XB
JMS I (6600 /11533-4773 ';
TAD I 0125 /11534-1525 MU
JMP 1525 /11535-5325 +U
AND 0000 /11536-0000 @@
AND 0000 /11537-0000 @@
JMS I (7032 /11540-4772 ':
JMS I (6754 /11541-4771 '9
TAD I 1537 /11542-1737 O_
DCA 1553 /11543-3353 [+
ISZ 1537 /11544-2337 S_
JMS I (2416 /11545-4770 '8
AND (777 /11546-0367 C7
TAD 1577 /11547-1377 K?
DCA 1552 /11550-3352 [*
JMP I 1537 /11551-5737 /_
AND 0000 /11552-0000 @@
AND 0000 /11553-0000 @@
AND 0052 /11554-0052 @*
AND 0000 /11555-0000 @@
TAD 1553 /11556-1353 K+
CDF 0 /11557-6201 2A
DCA I 0000 /11560-3400 \@
TAD 1552 /11561-1352 K*
DCA I 0001 /11562-3401 \A
CDF 10 /11563-6211 2I
JMP I 1555 /11564-5755 /-
JMS DPMLOC /11565-4230 "X
JMS 1450 /11566-4250 "(
/AND I 1577 /11567-0777 G?
/ISZ I 0016 /11570-2416 TN
/6754 /11571-6754 7,
/CML RTR /11572-7032 8Z
/6600 /11573-6600 6@
/TAD I 0126 /11574-1526 MV
/AND 0024 /11575-0024 @T
/6731 /11576-6731 7Y
/JMP I 0000 /11577-5400 ,@
PAGE
EFPRT, AND 0000 /11600-0000 @@
JMS PRTSNO /11601-4346 #&
JMS I MSG10 /11602-4453 $+
TESTXX /11603-7112 9J
TAD HASERR /11604-1137 I_
SNA CLA /11605-7650 >(
JMP 1611 /11606-5211 *I
JMS I MSG10 /11607-4453 $+
STATER /11610-7320 ;P
TAD EPMOD0 /11611-1142 I"
SPA CLA /11612-7710 ?H
JMP 1617 /11613-5217 *O
JMS I MSG10 /11614-4453 $+
FPMOD1 /11615-7425 <U
JMP 1621 /11616-5221 *Q
JMS I MSG10 /11617-4453 $+
EPMOD1 /11620-7441 <!
JMS I 1777 /11621-4777 '?
JMS I MSG10 /11622-4453 $+
EMLLLL /11623-7117 9O
JMS I MSG10 /11624-4453 $+
RANARG /11625-7136 9^
JMS I 1767 /11626-4767 '7
TAD EPMOD0 /11627-1142 I"
SPA CLA /11630-7710 ?H
TAD 0124 /11631-1124 IT
TAD 0124 /11632-1124 IT
DCA 1643 /11633-3243 Z#
TAD 1643 /11634-1243 J#
DCA 1661 /11635-3261 Z1
TAD 1661 /11636-1261 J1
DCA 1670 /11637-3270 Z8
TAD LOC /11640-1127 IW
JMS I 1776 /11641-4776 '>
JMS I NUMLIN /11642-4461 $1
AND 0000 /11643-0000 @@
TAD TSTNO /11644-1007 HG
TAD 1775 /11645-1375 K=
SZA CLA /11646-7640 >
JMP 1662 /11647-5262 *2
JMS I MSG10 /11650-4453 $+
RANNUM /11651-7244 :$
TAD EPMOD0 /11652-1142 I"
SPA CLA /11653-7710 ?H
TAD 0100 /11654-1100 I@
TAD 0100 /11655-1100 I@
TAD LOC /11656-1127 IW
JMS I 1776 /11657-4776 '>
JMS I NUMLIN /11660-4461 $1
AND 0000 /11661-0000 @@
JMS I MSG10 /11662-4453 $+
BADARG /11663-7146 9&
TAD LOC /11664-1127 IW
TAD 0114 /11665-1114 IL
JMS I 1776 /11666-4776 '>
JMS I NUMLIN /11667-4461 $1
AND 0000 /11670-0000 @@
JMP I EFPRT /11671-5600 .@
DPPRT, AND 0000 /11672-0000 @@
JMS PRTSNO /11673-4346 #&
JMS I MSG10 /11674-4453 $+
TESTXX /11675-7112 9J
TAD HASERR /11676-1137 I_
SNA CLA /11677-7650 >(
JMP 1703 /11700-5303 +C
JMS I MSG10 /11701-4453 $+
STATER /11702-7320 ;P
TAD TSTNO /11703-1007 HG
CLL RAR /11704-7110 9H
SZL CLA /11705-7630 >X
JMP I DPPRT /11706-5672 .:
JMS I MSG10 /11707-4453 $+
DPMOD1 /11710-7433 <[
JMS I 1777 /11711-4777 '?
JMS I MSG10 /11712-4453 $+
MSWLSW /11713-7156 9.
JMS I MSG10 /11714-4453 $+
RANARG /11715-7136 9^
JMS I 1774 /11716-4774 '<
TAD LOC /11717-1127 IW
JMS I 1776 /11720-4776 '>
JMS I NUMLIN /11721-4461 $1
-2 /11722-7776 ?>
TAD TSTNO /11723-1007 HG
TAD 1773 /11724-1373 K;
SZA CLA /11725-7640 >
JMP 1736 /11726-5336 +^
JMS I MSG10 /11727-4453 $+
RANNUM /11730-7244 :$
TAD K2 /11731-1077 H?
TAD LOC /11732-1127 IW
JMS I 1776 /11733-4776 '>
JMS I NUMLIN /11734-4461 $1
-2 /11735-7776 ?>
JMS I MSG10 /11736-4453 $+
BADARG /11737-7146 9&
TAD LOC /11740-1127 IW
TAD 0114 /11741-1114 IL
JMS I 1776 /11742-4776 '>
JMS I NUMLIN /11743-4461 $1
-2 /11744-7776 ?>
JMP I DPPRT /11745-5672 .:
PRTSNO, AND 0000 /11746-0000 @@
CLA CLL /11747-7300 ;@
TAD TSTNO /11750-1007 HG
AND 1772 /11751-0372 C:
TAD 1771 /11752-1371 K9
DCA 0022 /11753-3022 XR
TAD TSTNO /11754-1007 HG
RTR /11755-7012 8J
RAR /11756-7010 8H
AND 1772 /11757-0372 C:
TAD 1771 /11760-1371 K9
CLL RTL /11761-7106 9F
RTL /11762-7006 8F
RTL /11763-7006 8F
TAD 0022 /11764-1022 HR
DCA I 1770 /11765-3770 _8
JMP I PRTSNO /11766-5746 /&
TAD I 0041 /11767-1441 L!
7115 /11770-7115 9M
AND 0060 /11771-0060 @0
AND TSTNO /11772-0007 @G
SMA SZA SNL CLA HLT /11773-7762 ?2
TAD I 0030 /11774-1430 LX
MQA MQL CLA DAD /11775-7763 ?3
ISZ 1665 /11776-2265 R5
TAD 0157 /11777-1157 I/
PAGE
ACTEXP, AND 0000 /12000-0000 @@
ISZ 0130 /12001-2130 QX
TAD 0130 /12002-1130 IX
CDF 0 /12003-6201 2A
DCA I 2052 /12004-3652 ^*
TAD I 2052 /12005-1652 N*
CDF 10 /12006-6211 2I
CMA IAC /12007-7041 8!
TAD 0130 /12010-1130 IX
SNA CLA /12011-7650 >(
JMP I 2000 /12012-5600 .@
IOF /12013-6002 0B
JMS I RECOV1 /12014-4467 $7
XACT1 /12015-2047 P'
JMS I MSG10 /12016-4453 $+
INTRAC /12017-2053 P+
JMS I MSG01 /12020-4454 $,
PC /12021-7546 =&
TAD PC1 /12022-1002 HB
JMS I DIGI10 /12023-4462 $2
JMS I (PRTSNO /12024-4777 '?
JMS I MSG10 /12025-4453 $+
TESTXX /12026-7112 9J
JMS I MSG10 /12027-4453 $+
ULINE /12030-7377 ;?
JMS I MSG10 /12031-4453 $+
ACTUAL /12032-2077 P?
CDF 0 /12033-6201 2A
TAD I 2052 /12034-1652 N*
CDF 10 /12035-6211 2I
JMS I DIGI10 /12036-4462 $2
JMS I LNKPRB /12037-4466 $6
AND 0005 /12040-0005 @E
JMS I MSG10 /12041-4453 $+
EXPECT /12042-2072 P:
TAD 0130 /12043-1130 IX
JMS I DIGI10 /12044-4462 $2
JMS I MSG10 /12045-4453 $+
ULINE /12046-7377 ;?
XACT1, JMS I LOOP10 /12047-4463 $3
AND I 0075 /12050-0475 D=
JMS I DO10 /12051-4464 $4
AND TSTNO /12052-0007 @G
INTRAC, DCA I 2106 /12053-3706 _F
ISZ 0020 /12054-2020 PP
JMP I 0170 /12055-5570 -8
AND 0140 /12056-0140 A
TAD 0116 /12057-1116 IN
ISZ I 0005 /12060-2405 TE
ISZ 2001 /12061-2201 RA
AND 2124 /12062-0324 CT
TAD 0117 /12063-1117 IO
TAD I 2040 /12064-1640 N
AND I 2001 /12065-0601 FA
TAD 0114 /12066-1114 IL
ISZ I 0122 /12067-2522 UR
AND I 0140 /12070-0540 E
AND 0000 /12071-0000 @@
EXPECT, AND I 0130 /12072-0530 EX
ISZ 0005 /12073-2005 PE
AND 2124 /12074-0324 CT
AND I 0104 /12075-0504 ED
CLA /12076-7200 :@
ACTUAL, AND 0103 /12077-0103 AC
ISZ I 0025 /12100-2425 TU
AND 0114 /12101-0114 AL
CLA /12102-7200 :@
TRIL, AND 0000 /12103-0000 @@
JMS I RECOV1 /12104-4467 $7
XTRIL1 /12105-2121 QQ
JMS I MSG10 /12106-4453 $+
ILTRAP /12107-2124 QT
JMS I MSG01 /12110-4454 $,
PC /12111-7546 =&
TAD PC1 /12112-1002 HB
JMS I DIGI10 /12113-4462 $2
JMS I 2177 /12114-4777 '?
JMS I MSG10 /12115-4453 $+
TESTXX /12116-7112 9J
JMS I MSG10 /12117-4453 $+
ULINE /12120-7377 ;?
XTRIL1, JMS I LOOP10 /12121-4463 $3
AND I 0075 /12122-0475 D=
JMS I DO10 /12123-4464 $4
ILTRAP, DCA I 2111 /12124-3711 _I
TAD I 0014 /12125-1414 LL
AND I 0107 /12126-0507 EG
AND 0114 /12127-0114 AL
JMS 0024 /12130-4024 T
ISZ 2001 /12131-2201 RA
ISZ 0040 /12132-2040 P
AND I 0005 /12133-0405 DE
ISZ I 0005 /12134-2405 TE
AND 2124 /12135-0324 CT
AND I 0104 /12136-0504 ED
JMS 0000 /12137-4000 @
FAILHD, AND 0000 /12140-0000 @@
JMS I X8JMP1 /12141-4471 $9
JMS I MSG10 /12142-4453 $+
ULINE /12143-7377 ;?
JMS I MSG10 /12144-4453 $+
ULINE /12145-7377 ;?
JMS I MSG10 /12146-4453 $+
DATAEX /12147-7254 :,
JMS I MSG10 /12150-4453 $+
FAILUR /12151-7230 :X
TAD (6060 /12152-1376 K>
TAD FLD1 /12153-1146 I&
DCA I (XXFLD /12154-3775 _=
JMS I MSG10 /12155-4453 $+
FLDXX /12156-7554 =,
JMP I FAILHD /12157-5740 /
RSW1, AND 0000 /12160-0000 @@
CLA CLL /12161-7300 ;@
CDF 0 /12162-6201 2A
TAD I (SOFT /12163-1774 O<
SPA CLA /12164-7710 ?H
JMP .+3 /12165-5370 +8
TAD I (SW /12166-1773 O;
JMP .+2 /12167-5371 +9
CLA OSR /12170-7604 >D
CDF 10 /12171-6211 2I
JMP I RSW1 /12172-5760 /1
/AND 0020 /12173-0020 @P
/SOFT /12174-0021 @Q
/MQA SAM /12175-7557 =/
/6060 /12176-6060 00
/TAD I 2146 /12177-1746 O&
PAGE
APTLST, AND 0000 /12200-0000 @@
JMS I MSG10 /12201-4453 $+
ULINE /12202-7377 ;?
JMS DOTLIN /12203-4305 #E
JMS I MSG10 /12204-4453 $+
APTTBL /12205-7511 =I
JMS DOTLIN /12206-4305 #E
JMS I MSG10 /12207-4453 $+
APTLIN /12210-0514 EL
TAD (-13 /12211-1377 K?
DCA .+5 /12212-3217 ZO
TAD (CDF 10 /12213-1376 K>
DCA NEXNUM+1 /12214-3250 Z(
TAD (24 /12215-1375 K=
JMS I NUMLIN /12216-4461 $1
0000 /12217-0000 @@
JMS I MSG10 /12220-4453 $+
STAT /12221-7224 :T
TAD (125 /12222-1374 K<
JMS I NUMLIN /12223-4461 $1
-1 /12224-7777 ??
JMS I MSG10 /12225-4453 $+
INDRGS /12226-0551 E)
JMS I MSG10 /12227-4453 $+
IR0TO7 /12230-7200 :@
JMS I LNKPRB /12231-4466 $6
AND 0017 /12232-0017 @O
TAD FLD10 /12233-1147 I'
TAD (CDF 0 /12234-1373 K;
DCA NEXNUM+1 /12235-3250 Z(
TAD (40 /12236-1372 K:
JMS I NUMLIN /12237-4461 $1
-10 /12240-7770 ?8
JMP I APTLST /12241-5600 .@
LINNUM, AND 0000 /12242-0000 @@
TAD (-1 /12243-1371 K9
DCA 0014 /12244-3014 XL
TAD I LINNUM /12245-1642 N"
DCA CNT10 /12246-3017 XO
NEXNUM, CLA CLL /12247-7300 ;@
CDF 10 /12250-6211 2I
TAD I 0014 /12251-1414 LL
CDF 10 /12252-6211 2I
JMS I DIGI10 /12253-4462 $2
ISZ CNT10 /12254-2017 PO
JMP NEXNUM /12255-5247 *'
ISZ LINNUM /12256-2242 R"
JMP I LINNUM /12257-5642 ."
DIGIT1, AND 0000 /12260-0000 @@
CIF 0 /12261-6202 2B
JMS I .+2 /12262-4664 &4
JMP I DIGIT1 /12263-5660 .0
DIGITS /12264-7304 ;D
AND 0000 /12265-0000 @@
DCA 2304 /12266-3304 [D
JMS I MSG10 /12267-4453 $+
LOCS /12270-7517 =O
TAD 2304 /12271-1304 KD
JMS I DIGI10 /12272-4462 $2
JMS I MSG10 /12273-4453 $+
EQTXT /12274-7522 =R
JMS I LNKPRB /12275-4466 $6
AND 0003 /12276-0003 @C
TAD FLD10 /12277-1147 I'
TAD 2373 /12300-1373 K;
DCA 2250 /12301-3250 Z(
TAD 2304 /12302-1304 KD
JMP I 2265 /12303-5665 .5
AND 0000 /12304-0000 @@
DOTLIN, AND 0000 /12305-0000 @@
TAD (-31 /12306-1370 K8
DCA 0010 /12307-3010 XH
TAD (". /12310-1367 K7
JMS DOT /12311-4313 #K
JMP I DOTLIN /12312-5705 /E
DOT, AND 0000 /12313-0000 @@
TLS /12314-6046 0&
TSF /12315-6041 0!
JMP .-1 /12316-5315 +M
ISZ 0010 /12317-2010 PH
JMP .-4 /12320-5314 +L
TCF /12321-6042 0"
CLA CLL /12322-7300 ;@
JMP I DOT /12323-5713 /K
JMS I TIME /12324-4450 $(
DCA I 2320 /12325-3720 _P
JMP I (0204 /12326-5766 /6
CLEAR1, AND 0000 /12327-0000 @@
TAD M1200 /12330-1122 IR
DCA 0011 /12331-3011 XI
TAD (RANBUF-1 /12332-1365 K5
DCA 0010 /12333-3010 XH
DCA I 0010 /12334-3410 \H
ISZ 0011 /12335-2011 PI
JMP .-2 /12336-5334 +\
CIF CDF 0 /12337-6203 2C
JMP I CLEAR1 /12340-5727 /W
TAD 0000 /12341-1000 H@
ISZ 0000 /12342-2000 P@
SKON /12343-6000 0@
AND 0000 /12344-0000 @@
6026 /12345-6026 0V
AND 0000 /12346-0000 @@
TAD 2340 /12347-1340 K
AND 0000 /12350-0000 @@
TAD 2341 /12351-1341 K!
AND 0000 /12352-0000 @@
TAD 2342 /12353-1342 K"
AND 0000 /12354-0000 @@
TAD 2343 /12355-1343 K#
AND 0000 /12356-0000 @@
TAD 2344 /12357-1344 K$
AND 0001 /12360-0001 @A
TAD 2345 /12361-1345 K%
AND 0001 /12362-0001 @A
TAD 0005 /12363-1005 HE
TAD 0111 /12364-1111 II
/JMP 2377 /12365-5377 +?
/AND 2204 /12366-0204 BD
/AND 2256 /12367-0256 B.
/MQA CLA SWBA /12370-7747 ?'
/MQA MQL CLA SAM /12371-7777 ??
/AND 0040 /12372-0040 @
/CDF 0 /12373-6201 2A
/AND 0125 /12374-0125 AU
/AND 0024 /12375-0024 @T
/CDF 10 /12376-6211 2I
/MQA MQL CLA DST /12377-7765 ?5
PAGE
SETRAN, AND 0000 /12400-0000 @@
CLA CLL CMA /12401-7340 ;
TAD I 2400 /12402-1600 N@
DCA 0016 /12403-3016 XN
TAD (-500 /12404-1377 K?
DCA 0015 /12405-3015 XM
JMS RAN /12406-4216 "N
CDFX06, CDF 10 /12407-6211 2I
DCA I 0016 /12410-3416 \N
CDF 10 /12411-6211 2I
ISZ 0015 /12412-2015 PM
JMP CDFX06-1 /12413-5206 *F
ISZ SETRAN /12414-2200 R@
JMP I SETRAN /12415-5600 .@
RAN, AND 0000 /12416-0000 @@
CLA CLL IAC /12417-7301 ;A
TAD SEED1 /12420-1232 JZ
TAD SEED2 /12421-1233 J[
CLL RTL /12422-7106 9F
DCA SEED1 /12423-3232 ZZ
TAD SEED2 /12424-1233 J[
RTR /12425-7012 8J
TAD SEED1 /12426-1232 JZ
DCA SEED2 /12427-3233 Z[
TAD SEED2 /12430-1233 J[
JMP I RAN /12431-5616 .N
SEED1, AND 0000 /12432-0000 @@
SEED2, AND 0000 /12433-0000 @@
INIRAN, AND 0000 /12434-0000 @@
RDF /12435-6214 2L
TAD (CIF CDF 0 /12436-1376 K>
DCA .+6 /12437-3245 Z%
DCA 0151 /12440-3151 Y)
TAD XSEED1 /12441-1247 J'
DCA SEED1 /12442-3232 ZZ
TAD XSEED2 /12443-1250 J(
DCA SEED2 /12444-3233 Z[
CIF CDF 10 /12445-6213 2K
JMP I INIRAN /12446-5634 .\
XSEED1, 1234 /12447-1234 J\
XSEED2, 5670 /12450-5670 .8
TIMOUT, AND 0000 /12451-0000 @@
CLA CLL /12452-7300 ;@
RDF /12453-6214 2L
TAD (CIF CDF 0 /12454-1376 K>
DCA 2470 /12455-3270 Z8
TAD I TIMOUT /12456-1651 N)
CMA IAC /12457-7041 8!
DCA F1PNT /12460-3020 XP
TAD (-405 /12461-1375 K=
DCA F1TMP /12462-3021 XQ
ISZ F1TMP /12463-2021 PQ
JMP 2463 /12464-5263 *3
ISZ F1PNT /12465-2020 PP
JMP 2461 /12466-5261 *1
ISZ TIMOUT /12467-2251 R)
CIF CDF 0 /12470-6203 2C
JMP I TIMOUT /12471-5651 .)
MESG1, AND 0000 /12472-0000 @@
TAD I MESG1 /12473-1672 N:
DCA MSG1 /12474-3306 [F
ISZ MESG1 /12475-2272 R:
CDF 0 /12476-6201 2A
IAC /12477-7001 8A
DCA I CIF10 /12500-3404 \D
IAC /12501-7001 8A
DCA I CDF10 /12502-3403 \C
CDF 10 /12503-6211 2I
CIF 0 /12504-6202 2B
JMS I XMSG /12505-4710 'H
MSG1, AND 0000 /12506-0000 @@
JMP I MESG1 /12507-5672 .:
XMSG, MESG /12510-3000 X@
MESG0, AND 0000 /12511-0000 @@
TAD I MESG0 /12512-1711 OI
DCA MSG0 /12513-3324 [T
ISZ MESG0 /12514-2311 SI
CDF 0 /12515-6201 2A
IAC /12516-7001 8A
DCA I CIF10 /12517-3404 \D
DCA I CDF10 /12520-3403 \C
CDF 10 /12521-6211 2I
CIF 0 /12522-6202 2B
JMS I XMSG /12523-4710 'H
MSG0, AND 0000 /12524-0000 @@
JMP I MESG0 /12525-5711 /I
LOOP1, AND 0000 /12526-0000 @@
TAD I LOOP1 /12527-1726 OV
DCA LOOPX /12530-3334 [\
DCA HASERR /12531-3137 Y_
CIF 0 /12532-6202 2B
JMS I LOOP0 /12533-4737 '_
LOOPX, AND 0000 /12534-0000 @@
ISZ LOOP1 /12535-2326 SV
JMP I LOOP1 /12536-5726 /V
LOOP0, LOOP /12537-6600 6@
RECO10, AND 0000 /12540-0000 @@
CLA CLL IAC /12541-7301 ;A
TAD I 2540 /12542-1740 O
DCA PC1 /12543-3002 XB
TAD HASERR /12544-1137 I_
SNA CLA /12545-7650 >(
JMP 2554 /12546-5354 +,
TAD (-4 /12547-1374 K<
TAD 2540 /12550-1340 K
DCA 2566 /12551-3366 [6
TAD I 2566 /12552-1766 O6
DCA PC1 /12553-3002 XB
TAD I 2540 /12554-1740 O
DCA 2566 /12555-3366 [6
ISZ 2540 /12556-2340 S
JMS I X8JMP1 /12557-4471 $9
JMS I RSW10 /12560-4465 $5
AND K100 /12561-0111 AI
SZA CLA /12562-7640 >
JMP I 2566 /12563-5766 /6
JMS I HDFAIL /12564-4470 $8
JMP I 2540 /12565-5740 /
AND 0000 /12566-0000 @@
TAD 2414 /12567-1214 JL
AND 0000 /12570-0000 @@
TAD 2437 /12571-1237 J_
AND 0000 /12572-0000 @@
TAD 2440 /12573-1240 J
/SPA SNA SZL CLA OSR /12574-7774 ?<
/CLA CLL CMA CML IAC RTR/12575-7373 ;;
/CIF CDF 0 /12576-6203 2C
/CLA CLL /12577-7300 ;@
PAGE
F12600, AND 0000 /12600-0000 @@
DCA F1TMP /12601-3021 XQ
DCA 0151 /12602-3151 Y)
TAD F1TMP /12603-1021 HQ
AND K10 /12604-0103 AC
TAD (CDF 0 /12605-1377 K?
DCA PUTINS+1 /12606-3332 [Z
TAD (FPC1 /12607-1376 K>
DCA F1PNT /12610-3020 XP
TAD (-400 /12611-1375 K=
DCA F1CNT /12612-3141 Y!
LF126, JMS GETINS /12613-4342 #"
AND (600 /12614-0374 C<
SNA /12615-7450 <(
JMP .+6 /12616-5224 *T
CMA IAC /12617-7041 8!
TAD K400 /12620-1113 IK
SNA CLA /12621-7650 >(
JMP XDBLW /12622-5304 +D DOUBLE WORD
JMP XGETI /12623-5301 +A
JMS GETINS /12624-4342 #"
AND (7000 /12625-0373 C;
TAD (-6000 /12626-1372 K:
SNA CLA /12627-7650 >(
JMP XDBLW /12630-5304 +D LEA IMUL
JMS GETINS /12631-4342 #"
AND (7770 /12632-0371 C9
TAD (-1110 /12633-1370 K8 SETB
SNA CLA /12634-7650 >(
JMP XDBLW /12635-5304 +D
JMS GETINS /12636-4342 #"
AND (7770 /12637-0371 C9
TAD (-1100 /12640-1367 K7 SETX
SNA CLA /12641-7650 >(
JMP XSETX /12642-5310 +H
JMS GETINS /12643-4342 #"
AND (7000 /12644-0373 C;
TAD (-1000 /12645-1373 K; JUMPS
SNA CLA /12646-7650 >(
JMP XMODX /12647-5317 +O
JMS GETINS /12650-4342 #"
AND (7770 /12651-0371 C9
TAD (-2000 /12652-1366 K6 JNX
SNA CLA /12653-7650 >(
JMP XMODX /12654-5317 +O
JMS GETINS /12655-4342 #"
AND (7770 /12656-0371 C9
TAD (-3000 /12657-1365 K5 TRAP3
SNA CLA /12660-7650 >(
JMP XMODX /12661-5317 +O
JMS GETINS /12662-4342 #"
AND (7770 /12663-0371 C9
TAD (-4000 /12664-1364 K4 TRAP4
SNA CLA /12665-7650 >(
JMP XMODX /12666-5317 +O
JMS GETINS /12667-4342 #"
AND (7770 /12670-0371 C9 ADDX
TAD (-0110 /12671-1363 K3
SNA CLA /12672-7650 >(
JMP XMODI /12673-5300 +@
JMS GETINS /12674-4342 #"
AND (7770 /12675-0371 C9
TAD (-0100 /12676-1362 K2 LDX
SNA CLA /12677-7650 >(
XMODI, JMS MODINS /12700-4322 #R
XGETI, JMS GETINS /12701-4342 #"
JMS PUTINS /12702-4331 #Y
JMP LF126 /12703-5213 *K
XDBLW, TAD F1TMP /12704-1021 HQ
AND K7 /12705-0102 AB
CLL RAR /12706-7110 9H
JMP XMODI /12707-5300 +@
XSETX, CDF 0 /12710-6201 2A
TAD I 2747 /12711-1747 O'
CDF 10 /12712-6211 2I
AND K4 /12713-0101 AA
SZA CLA /12714-7640 >
IAC /12715-7001 8A
JMP XMODI /12716-5300 +@
XMODX, TAD F1TMP /12717-1021 HQ
AND K1 /12720-0076 @>
JMP XMODI /12721-5300 +@
MODINS, AND 0000 /12722-0000 @@
DCA 0134 /12723-3134 Y\
JMS GETINS /12724-4342 #"
AND (7770 /12725-0371 C9
TAD 0134 /12726-1134 I\
JMS PUTINS /12727-4331 #Y
JMP I MODINS /12730-5722 /R
PUTINS, AND 0000 /12731-0000 @@
CDF 10 /12732-6211 2I OR CDF 0
DCA I F1PNT /12733-3420 \P
ISZ F1PNT /12734-2020 PP
CDF 10 /12735-6211 2I
ISZ F1CNT /12736-2141 Q!
JMP I PUTINS /12737-5731 /Y
CIF CDF 0 /12740-6203 2C
JMP I F12600 /12741-5600 .@
GETINS, AND 0000 /12742-0000 @@
CDF 0 /12743-6201 2A
TAD I F1PNT /12744-1420 LP
CDF 10 /12745-6211 2I
JMP I GETINS /12746-5742 /"
AND 0157 /12747-0157 A/
PRBLNK, AND 0000 /12750-0000 @@
TAD I PRBLNK /12751-1750 O(
CMA IAC /12752-7041 8!
DCA 0010 /12753-3010 XH
ISZ PRBLNK /12754-2350 S(
TAD (240 /12755-1361 K1
JMS I (DOT /12756-4760 '0
JMP I PRBLNK /12757-5750 /(
/ISZ 2713 /12760-2313 SK
/AND 2640 /12761-0240 B
/SMA CLA /12762-7700 ?@
/SNA SZL CLA /12763-7670 >8
/JMS 0000 /12764-4000 @
/JMP 0000 /12765-5000 (@
/SKON /12766-6000 0@
/6700 /12767-6700 7@
/6670 /12770-6670 68
/SPA SNA SZL CLA /12771-7770 ?8
/ISZ 0000 /12772-2000 P@
/NOP /12773-7000 8@
/AND I 2600 /12774-0600 F@
/NOP /12775-7400 <@
/JMP I 0000 /12776-5400 ,@
/CDF 0 /12777-6201 2A
PAGE
AND 0000 /13000-0000 @@
CLA CLL CMA /13001-7340 ;
TAD FLD1 /13002-1146 I&
DCA 3160 /13003-3360 [0
TAD 3177 /13004-1377 K?
DCA F1PNT /13005-3020 XP
JMS I 3176 /13006-4776 '>
TAD 3175 /13007-1375 K=
DCA F1TMP /13010-3021 XQ
TAD I F1PNT /13011-1420 LP
AND 3174 /13012-0374 C<
SNA /13013-7450 <(
JMP 3022 /13014-5222 *R
CMA IAC /13015-7041 8!
TAD K400 /13016-1113 IK
SNA CLA /13017-7650 >(
JMP 3061 /13020-5261 *1
JMP 3053 /13021-5253 *+
TAD I F1PNT /13022-1420 LP
AND 3173 /13023-0373 C;
CMA IAC /13024-7041 8!
TAD I F1TMP /13025-1421 LQ
SNA CLA /13026-7650 >(
JMP 3061 /13027-5261 *1
ISZ F1TMP /13030-2021 PQ
TAD I F1TMP /13031-1421 LQ
SZA CLA /13032-7640 >
JMP 3022 /13033-5222 *R
TAD I F1PNT /13034-1420 LP
AND 3172 /13035-0372 C:
TAD 3171 /13036-1371 K9
SNA CLA /13037-7650 >(
JMP 3056 /13040-5256 *.
TAD I F1PNT /13041-1420 LP
AND 3172 /13042-0372 C:
TAD 3170 /13043-1370 K8
SNA CLA /13044-7650 >(
JMP 3056 /13045-5256 *.
TAD I F1PNT /13046-1420 LP
AND 3172 /13047-0372 C:
TAD 3167 /13050-1367 K7
SNA CLA /13051-7650 >(
JMP 3056 /13052-5256 *.
TAD I F1PNT /13053-1420 LP
JMS 3100 /13054-4300 #@
JMP 3071 /13055-5271 *9
TAD I F1PNT /13056-1420 LP
JMS 3100 /13057-4300 #@
JMP 3065 /13060-5265 *5
TAD I F1PNT /13061-1420 LP
AND 3172 /13062-0372 C:
TAD FLD1 /13063-1146 I&
JMS 3100 /13064-4300 #@
ISZ F1PNT /13065-2020 PP
ISZ F1CNT /13066-2141 Q!
JMP 3075 /13067-5275 *=
JMP I 3000 /13070-5600 .@
ISZ F1PNT /13071-2020 PP
ISZ F1CNT /13072-2141 Q!
JMP 3007 /13073-5207 *G
JMP I 3000 /13074-5600 .@
TAD I F1PNT /13075-1420 LP
JMS 3100 /13076-4300 #@
JMP 3071 /13077-5271 *9
AND 0000 /13100-0000 @@
CDFX12, CDF 10 /13101-6211 2I
DCA I F1PNT /13102-3420 \P
TAD I F1PNT /13103-1420 LP
CDF 10 /13104-6211 2I
CMA IAC /13105-7041 8!
TAD I F1PNT /13106-1420 LP
SNA /13107-7450 <(
JMP I 3100 /13110-5700 /@
TAD 3160 /13111-1360 K0
SNA CLA /13112-7650 >(
JMP I 3100 /13113-5700 /@
TAD 3166 /13114-1366 K6
DCA PC1 /13115-3002 XB
JMS I RSW10 /13116-4465 $5
AND K100 /13117-0111 AI
SZA CLA /13120-7640 >
JMP 3101 /13121-5301 +A
JMS I HDFAIL /13122-4470 $8
JMS I MSG10 /13123-4453 $+
ULINE /13124-7377 ;?
JMS I MSG01 /13125-4454 $,
PC /13126-7546 =&
TAD PC1 /13127-1002 HB
JMS I DIGI10 /13130-4462 $2
JMS I MSG10 /13131-4453 $+
RELOCT /13132-7561 =1
JMS I MSG10 /13133-4453 $+
FAILUR /13134-7230 :X
JMS I MSG10 /13135-4453 $+
LOCS /13136-7517 =O
TAD 0020 /13137-1020 HP
JMS I DIGI10 /13140-4462 $2
JMS I LOOP10 /13141-4463 $3
DCA 0101 /13142-3101 YA
JMP 3101 /13143-5301 +A
AND 0000 /13144-0000 @@
TAD 3165 /13145-1365 K5
DCA F1PNT /13146-3020 XP
TAD 3164 /13147-1364 K4
DCA F1CNT /13150-3141 Y!
TAD I F1PNT /13151-1420 LP
JMS 3100 /13152-4300 #@
ISZ F1PNT /13153-2020 PP
ISZ F1CNT /13154-2141 Q!
JMP 3151 /13155-5351 +)
JMS I 3163 /13156-4763 '3
JMP I 3144 /13157-5744 /$
AND 0000 /13160-0000 @@
TAD 3142 /13161-1342 K"
AND 0005 /13162-0005 @E
DCA 3100 /13163-3300 [@
7600 /13164-7600 >@
JMP 3000 /13165-5200 *@
DCA 0142 /13166-3142 Y"
SNA SZL CLA /13167-7670 >8
JMP 0000 /13170-5000 (@
SMA CLA /13171-7700 ?@
SPA SNA SZL CLA /13172-7770 ?8
NOP /13173-7000 8@
AND I 3000 /13174-0600 F@
ISZ 3141 /13175-2341 S!
CLL IAC /13176-7101 9A
DCA I 3000 /13177-3600 ^@
PAGE
REL1, AND 0000 /13200-0000 @@
CLA CLL /13201-7300 ;@
TAD FLGREL /13202-1252 J*
SZA CLA /13203-7640 >
JMP I 3200 /13204-5600 .@
TAD I 3377 /13205-1777 O?
DCA 0144 /13206-3144 Y$
ISZ FLD1 /13207-2146 Q&
TAD FLD1 /13210-1146 I&
AND K7 /13211-0102 AB
SNA CLA /13212-7650 >(
JMP I 3200 /13213-5600 .@
TAD FLD1 /13214-1146 I&
TAD 3376 /13215-1376 K>
SNA CLA /13216-7650 >(
JMS 3271 /13217-4271 "9
TAD FLD1 /13220-1146 I&
CLL RTL /13221-7106 9F
RAL /13222-7004 8D
DCA FLD10 /13223-3147 Y'
TAD FLD10 /13224-1147 I'
TAD 3272 /13225-1272 J:
DCA 3256 /13226-3256 Z.
DCA 3267 /13227-3267 Z7
CLA CLL CMA /13230-7340 ;
JMS 3253 /13231-4253 "+
JMS 3253 /13232-4253 "+
CLA CLL CMA /13233-7340 ;
DCA 3267 /13234-3267 Z7
CLA CLL CMA /13235-7340 ;
JMS 3253 /13236-4253 "+
JMS 3253 /13237-4253 "+
JMS I 3375 /13240-4775 '=
JMS I 3374 /13241-4774 '<
JMS I 3373 /13242-4773 ';
TAD FLD1 /13243-1146 I&
TAD FLD10 /13244-1147 I'
BSW /13245-7002 8B
TAD FLD1 /13246-1146 I&
TAD FLD10 /13247-1147 I'
DCA ALL10 /13250-3150 Y(
JMP I 3372 /13251-5772 /:
FLGREL, AND 0000 /13252-0000 @@
AND 0000 /13253-0000 @@
DCA 3270 /13254-3270 Z8
TAD 3270 /13255-1270 J8
CDF 10 /13256-6211 2I
DCA I 3267 /13257-3667 ^7
TAD I 3267 /13260-1667 N7
CDF 10 /13261-6211 2I
CMA IAC /13262-7041 8!
TAD 3270 /13263-1270 J8
SZA CLA /13264-7640 >
JMP 3201 /13265-5201 *A
JMP I 3253 /13266-5653 .+
AND 0000 /13267-0000 @@
AND 0000 /13270-0000 @@
AND 0000 /13271-0000 @@
CDF 0 /13272-6201 2A
TAD I MOD1X8 /13273-1505 ME
CDF 10 /13274-6211 2I
SPA CLA /13275-7710 ?H
JMP I 3200 /13276-5600 .@
JMP I 3271 /13277-5671 .9
AND 0000 /13300-0000 @@
CDFX13, CDF 10 /13301-6211 2I
TAD FLD1 /13302-1146 I&
DCA I 3314 /13303-3714 _L
TAD FLD1 /13304-1146 I&
DCA I 3315 /13305-3715 _M
TAD FLD1 /13306-1146 I&
DCA I 3316 /13307-3716 _N
TAD FLD1 /13310-1146 I&
DCA I 3317 /13311-3717 _O
CDF 10 /13312-6211 2I
JMP I 3300 /13313-5700 /@
JMP 3204 /13314-5204 *D
JMP 3207 /13315-5207 *G
JMP 3212 /13316-5212 *J
JMP 3215 /13317-5215 *M
AND 0000 /13320-0000 @@
TAD 3371 /13321-1371 K9
DCA F1PNT /13322-3020 XP
TAD 3370 /13323-1370 K8
DCA F1CNT /13324-3141 Y!
CDF 0 /13325-6201 2A
TAD I F1PNT /13326-1420 LP
CDF 10 /13327-6211 2I
DCA I F1PNT /13330-3420 \P
ISZ F1PNT /13331-2020 PP
ISZ F1CNT /13332-2141 Q!
JMP 3325 /13333-5325 +U
TAD 3367 /13334-1367 K7
DCA F1PNT /13335-3020 XP
TAD I F1PNT /13336-1420 LP
SZA CLA /13337-7640 >
JMP 3343 /13340-5343 +#
CIF CDF 0 /13341-6203 2C
JMP I 3320 /13342-5720 /P
TAD I F1PNT /13343-1420 LP
DCA 3351 /13344-3351 [)
IAC /13345-7001 8A
DCA I 3351 /13346-3751 _)
ISZ F1PNT /13347-2020 PP
JMP 3336 /13350-5336 +^
AND 0000 /13351-0000 @@
X8JMP, AND 0000 /13352-0000 @@
CDF 0 /13353-6201 2A
TAD I MOD1X8 /13354-1505 ME
CDF 10 /13355-6211 2I
SMA CLA /13356-7700 ?@
JMP I X8JMP /13357-5752 /*
IOF /13360-6002 0B
TAD PC1 /13361-1002 HB
CDF 10 /13362-6211 2I
CIF 70 /13363-6272 2:
JMP I .+1 /13364-5765 /5
6520 /13365-6520 5P
AND 0006 /13366-0006 @F
ISZ 3345 /13367-2345 S%
CLA /13370-7200 :@
SKON /13371-6000 0@
AND 3230 /13372-0230 BX
DCA 0144 /13373-3144 Y$
DCA 0000 /13374-3000 X@
TAD 0100 /13375-1100 I@
MQA MQL CLA DPSZ /13376-7771 ?9
AND 3303 /13377-0303 CC
PAGE
AND 0000 /13400-0000 @@
ISZ 0151 /13401-2151 Q)
JMS I 0073 /13402-4473 $;
TAD 0001 /13403-1001 HA
JMS I FPGO0 /13404-4474 $<
TAD I 0152 /13405-1552 M*
JMS I 0072 /13406-4472 $:
DCA I 0004 /13407-3404 \D
JMS I 3577 /13410-4777 '?
JMP 3416 /13411-5216 *N
JMS I FPGO0 /13412-4474 $<
TAD I 0154 /13413-1554 M,
JMS I 0072 /13414-4472 $:
DCA I 0012 /13415-3412 \J
JMS I 3576 /13416-4776 '>
AND 0000 /13417-0000 @@
JMS I 0073 /13420-4473 $;
TAD 0041 /13421-1041 H!
JMS I FPGO0 /13422-4474 $<
TAD I 0154 /13423-1554 M,
JMS I 0072 /13424-4472 $:
DCA I 0022 /13425-3422 \R
JMS I 3577 /13426-4777 '?
JMP 3434 /13427-5234 *\
JMS I FPGO0 /13430-4474 $<
TAD I 0152 /13431-1552 M*
JMS I 0072 /13432-4472 $:
DCA I 0030 /13433-3430 \X
JMS I 3576 /13434-4776 '>
AND 0000 /13435-0000 @@
JMS I 0073 /13436-4473 $;
TAD 0031 /13437-1031 HY
JMS I FPGO0 /13440-4474 $<
TAD I 0152 /13441-1552 M*
JMS I 0072 /13442-4472 $:
DCA I 0040 /13443-3440 \
JMS I 3577 /13444-4777 '?
JMS I 0073 /13445-4473 $;
TAD 0011 /13446-1011 HI
JMS I FPGO0 /13447-4474 $<
TAD I 0152 /13450-1552 M*
JMS I 0072 /13451-4472 $:
DCA I 0047 /13452-3447 \'
JMS I 3576 /13453-4776 '>
AND 0000 /13454-0000 @@
JMP 3462 /13455-5262 *2
JMS I FPGO0 /13456-4474 $<
TAD I 0154 /13457-1554 M,
JMS I 0072 /13460-4472 $:
DCA I 0056 /13461-3456 \.
JMS I 3576 /13462-4776 '>
JMS 0000 /13463-4000 @
JMS I 0073 /13464-4473 $;
TAD 0021 /13465-1021 HQ
JMS I FPGO0 /13466-4474 $<
TAD I 0152 /13467-1552 M*
JMS I 0072 /13470-4472 $:
DCA I 0066 /13471-3466 \6
JMS I 3576 /13472-4776 '>
JMS 0000 /13473-4000 @
JMP 3501 /13474-5301 +A
JMS I FPGO0 /13475-4474 $<
TAD I 0154 /13476-1554 M,
JMS I 0072 /13477-4472 $:
DCA I 0075 /13500-3475 \=
JMS I 3576 /13501-4776 '>
AND 0000 /13502-0000 @@
JMS I 0073 /13503-4473 $;
TAD 0051 /13504-1051 H)
JMS I FPGO0 /13505-4474 $<
TAD I 0154 /13506-1554 M,
JMS I 0072 /13507-4472 $:
DCA I 0105 /13510-3505 ]E
JMS I 3576 /13511-4776 '>
AND 0000 /13512-0000 @@
JMP 3520 /13513-5320 +P
JMS I FPGO0 /13514-4474 $<
TAD I 0152 /13515-1552 M*
JMS I 0072 /13516-4472 $:
DCA I 0114 /13517-3514 ]L
JMS I 3576 /13520-4776 '>
JMS 0000 /13521-4000 @
JMS I 0073 /13522-4473 $;
TAD 0061 /13523-1061 H1
JMS I FPGO0 /13524-4474 $<
TAD I 0154 /13525-1554 M,
JMS I 0072 /13526-4472 $:
DCA I 0124 /13527-3524 ]T
JMS I 3576 /13530-4776 '>
JMS 0000 /13531-4000 @
JMP 3537 /13532-5337 +_
JMS I FPGO0 /13533-4474 $<
TAD I 0152 /13534-1552 M*
JMS I 0072 /13535-4472 $:
DCA I 0133 /13536-3533 ][
JMS I 3576 /13537-4776 '>
AND 0000 /13540-0000 @@
JMS I 0073 /13541-4473 $;
TAD 0071 /13542-1071 H9
TAD 0106 /13543-1106 IF
DCA 0031 /13544-3031 XY
JMS I FPGO0 /13545-4474 $<
TAD I 0154 /13546-1554 M,
JMS I 0072 /13547-4472 $:
DCA I 0145 /13550-3545 ]%
TAD 0107 /13551-1107 IG
DCA 0031 /13552-3031 XY
JMS I FPGO0 /13553-4474 $<
TAD I 0152 /13554-1552 M*
JMS I 0072 /13555-4472 $:
DCA I 0153 /13556-3553 ]+
JMS I 0073 /13557-4473 $;
AND 0007 /13560-0007 @G
TAD I 3575 /13561-1775 O=
DCA FLS10 /13562-3033 X[
TAD 0076 /13563-1076 H>
DCA FMS10 /13564-3032 XZ
JMS I FPGO0 /13565-4474 $<
TAD I 0152 /13566-1552 M*
JMS I 0072 /13567-4472 $:
DCA I 0165 /13570-3565 ]5
JMP I 3574 /13571-5774 /<
CIF CDF 0 /13572-6203 2C
JMP I 3400 /13573-5600 .@
JMP 0100 /13574-5100 )@
TAD I 0152 /13575-1552 M*
6635 /13576-6635 6]
6710 /13577-6710 7H
PAGE
CODE,1131 /JSR 1 /13600-1131 IY TEST 1
4553 / S01456 /13601-4553 %+
1131 /JSR 1 /13602-1131 IY
4615 / SETEFM /13603-4615 &M
0511 /FLDA L X1+ 1 /13604-0511 EI
5400 / 5400 /13605-5400 ,@
6531 /FSTA L X3+ 1 /13606-6531 5Y
6100 / 6100 /13607-6100 1@
1131 /JSR 1 /13610-1131 IY
4646 / TRNBUF /13611-4646 &&
2101 /JNX X0+ 1 /13612-2101 QA
3602 / 3602 /13613-3602 ^B
0006 /STARTD /13614-0006 @F
0210 /FLDA BASE+030 /13615-0210 BH
1041 /JNE 1 /13616-1041 H!
3600 / 3600 /13617-3600 ^@
3000 /TRAP3 0 /13620-3000 X@
3622 / 3622 /13621-3622 ^R
1131 /JSR 1 /13622-1131 IY TEST 2
4760 / SETDM /13623-4760 '0
1121 /JSA 1 /13624-1121 IQ
4631 / S72321 /13625-4631 &Y
0511 /FLDA L X1+ 1 /13626-0511 EI
5400 / 5400 /13627-5400 ,@
6531 /FSTA L X3+ 1 /13630-6531 5Y
6100 / 6100 /13631-6100 1@
1131 /JSR 1 /13632-1131 IY
5007 / 5007 /13633-5007 (G
2101 /JNX X0+ 1 /13634-2101 QA
3624 / 3624 /13635-3624 ^T
0210 /FLDA BASE+030 /13636-0210 BH
1041 /JNE 1 /13637-1041 H!
3622 / 3622 /13640-3622 ^R
3000 /TRAP3 0 /13641-3000 X@
3643 / 3643 /13642-3643 ^#
1131 /JSR 1 /13643-1131 IY TEST 3
4553 / S01456 /13644-4553 %+
1131 /JSR 1 /13645-1131 IY
4615 / SETEFM /13646-4615 &M
0511 /FLDA L X1+ 1 /13647-0511 EI
5400 / 5400 /13650-5400 ,@
0004 /FNORM /13651-0004 @D
6411 /FSTA L X1 1 /13652-6411 4I
5400 / 5400 /13653-5400 ,@
2101 /JNX X0+ 1 /13654-2101 QA
3645 / 3645 /13655-3645 ^%
1131 /JSR 1 /13656-1131 IY
4553 / S01456 /13657-4553 %+
1131 /JSR 1 /13660-1131 IY
4615 / SETEFM /13661-4615 &M
0511 /FLDA L X1+ 1 /13662-0511 EI
5400 / 5400 /13663-5400 ,@
1411 /FADD L X1 1 /13664-1411 LI
5400 / 5400 /13665-5400 ,@
6222 /FSTA BASE+066 /13666-6222 2R
2411 /FSUB L X1 1 /13667-2411 TI
5400 / 5400 /13670-5400 ,@
6531 /FSTA L X3+ 1 /13671-6531 5Y
6100 / 6100 /13672-6100 1@
1131 /JSR 1 /13673-1131 IY
4765 / 4765 /13674-4765 '5
2101 /JNX X0+ 1 /13675-2101 QA
3660 / 3660 /13676-3660 ^0
0006 /STARTD /13677-0006 @F
0210 /FLDA BASE+030 /13700-0210 BH
1041 /JNE 1 /13701-1041 H!
3643 / 3643 /13702-3643 ^#
3000 /TRAP3 0 /13703-3000 X@
3705 / 3705 /13704-3705 _E
1131 /JSR 1 /13705-1131 IY TEST 4
4760 / SETDM /13706-4760 '0
1121 /JSA 1 /13707-1121 IQ
4631 / S72321 /13710-4631 &Y
0511 /FLDA L X1+ 1 /13711-0511 EI
5400 / 5400 /13712-5400 ,@
1411 /FADD L X1 1 /13713-1411 LI
5400 / 5400 /13714-5400 ,@
6222 /FSTA BASE+066 /13715-6222 2R
2411 /FSUB L X1 1 /13716-2411 TI
5400 / 5400 /13717-5400 ,@
6531 /FSTA L X3+ 1 /13720-6531 5Y
6100 / 6100 /13721-6100 1@
1131 /JSR 1 /13722-1131 IY
5007 / 5007 /13723-5007 (G
2101 /JNX X0+ 1 /13724-2101 QA
3707 / 3707 /13725-3707 _G
0210 /FLDA BASE+030 /13726-0210 BH
1041 /JNE 1 /13727-1041 H!
3705 / 3705 /13730-3705 _E
3000 /TRAP3 0 /13731-3000 X@
3733 / 3733 /13732-3733 _[
1131 /JSR 1 /13733-1131 IY TEST 5
4553 / S01456 /13734-4553 %+
1131 /JSR 1 /13735-1131 IY
4615 / SETEFM /13736-4615 &M
0511 /FLDA L X1+ 1 /13737-0511 EI
5400 / 5400 /13740-5400 ,@
0004 /FNORM /13741-0004 @D
6411 /FSTA L X1 1 /13742-6411 4I
5400 / 5400 /13743-5400 ,@
4411 /FMUL L X1 1 /13744-4411 $I
5400 / 5400 /13745-5400 ,@
6222 /FSTA BASE+066 /13746-6222 2R
3411 /FDIV L X1 1 /13747-3411 \I
5400 / 5400 /13750-5400 ,@
6531 /FSTA L X3+ 1 /13751-6531 5Y
6100 / 6100 /13752-6100 1@
1131 /JSR 1 /13753-1131 IY
4676 / 4676 /13754-4676 &>
2101 /JNX X0+ 1 /13755-2101 QA
3735 / 3735 /13756-3735 _]
0006 /STARTD /13757-0006 @F
0210 /FLDA BASE+030 /13760-0210 BH
1041 /JNE 1 /13761-1041 H!
3733 / 3733 /13762-3733 _[
3000 /TRAP3 0 /13763-3000 X@
3765 / 3765 /13764-3765 _5
1131 /JSR 1 /13765-1131 IY TEST 6
4760 / SETDM /13766-4760 '0
0104 /LDX X4 /13767-0104 AD
0014 / 0014 /13770-0014 @L
0105 /LDX X5 /13771-0105 AE
7764 / 7764 /13772-7764 ?4
1121 /JSA 1 /13773-1121 IQ
4631 / S72321 /13774-4631 &Y
0511 /FLDA L X1+ 1 /13775-0511 EI
5400 / 5400 /13776-5400 ,@
0014 /ALN 4 /13777-0014 @L
0015 /ALN 5 /14000-0015 @M
6411 /FSTA L X1 1 /14001-6411 4I
5400 / 5400 /14002-5400 ,@
4411 /FMUL L X1 1 /14003-4411 $I
5400 / 5400 /14004-5400 ,@
6222 /FSTA BASE+066 /14005-6222 2R
3411 /FDIV L X1 1 /14006-3411 \I
5400 / 5400 /14007-5400 ,@
6531 /FSTA L X3+ 1 /14010-6531 5Y
6100 / 6100 /14011-6100 1@
1131 /JSR 1 /14012-1131 IY
5007 / 5007 /14013-5007 (G
2101 /JNX X0+ 1 /14014-2101 QA
3773 / 3773 /14015-3773 _;
0210 /FLDA BASE+030 /14016-0210 BH
1041 /JNE 1 /14017-1041 H!
3765 / 3765 /14020-3765 _5
3000 /TRAP3 0 /14021-3000 X@
4023 / 4023 /14022-4023 S
1131 /JSR 1 /14023-1131 IY TEST 7
4553 / S01456 /14024-4553 %+
1131 /JSR 1 /14025-1131 IY
4615 / SETEFM /14026-4615 &M
0511 /FLDA L X1+ 1 /14027-0511 EI
5376 / 5376 /14030-5376 +>
0006 /STARTD /14031-0006 @F
0024 /ATX 4 /14032-0024 @T
1131 /JSR 1 /14033-1131 IY
4625 / 4625 /14034-4625 &U
0411 /FLDA L X1 1 /14035-0411 DI
5400 / 5400 /14036-5400 ,@
0004 /FNORM /14037-0004 @D
0014 /ALN 4 /14040-0014 @L
0004 /FNORM /14041-0004 @D
0014 /ALN 4 /14042-0014 @L
0004 /FNORM /14043-0004 @D
0014 /ALN 4 /14044-0014 @L
0004 /FNORM /14045-0004 @D
0014 /ALN 4 /14046-0014 @L
0004 /FNORM /14047-0004 @D
0014 /ALN 4 /14050-0014 @L
6531 /FSTA L X3+ 1 /14051-6531 5Y
6100 / 6100 /14052-6100 1@
1131 /JSR 1 /14053-1131 IY
4646 / TRNBUF /14054-4646 &&
2101 /JNX X0+ 1 /14055-2101 QA
4025 / 4025 /14056-4025 U
0006 /STARTD /14057-0006 @F
0210 /FLDA BASE+030 /14060-0210 BH
1041 /JNE 1 /14061-1041 H!
4023 / 4023 /14062-4023 S
3000 /TRAP3 0 /14063-3000 X@
4065 / 4065 /14064-4065 5
1131 /JSR 1 /14065-1131 IY TEST 10
4760 / SETDM /14066-4760 '0
0401 /FLDA L X0 1 /14067-0401 DA
5400 / 5400 /14070-5400 ,@
3002 /TRAP3 2 /14071-3002 XB
0000 / 0000 /14072-0000 @@
1121 /JSA 1 /14073-1121 IQ
4631 / S72321 /14074-4631 &Y
0713 /FLDA % BASE+11X1+ /14075-0713 GK
0014 /ALN 4 /14076-0014 @L
0015 /ALN 5 /14077-0015 @M
0014 /ALN 4 /14100-0014 @L
0015 /ALN 5 /14101-0015 @M
0014 /ALN 4 /14102-0014 @L
0015 /ALN 5 /14103-0015 @M
0014 /ALN 4 /14104-0014 @L
0015 /ALN 5 /14105-0015 @M
0014 /ALN 4 /14106-0014 @L
0015 /ALN 5 /14107-0015 @M
6734 /FSTA % BASE+14X3+ /14110-6734 7\
0613 /FLDA % BASE+11X1 /14111-0613 FK
3003 /TRAP3 3 /14112-3003 XC
0000 / 0000 /14113-0000 @@
1131 /JSR 1 /14114-1131 IY
5011 / 5011 /14115-5011 (I
2101 /JNX X0+ 1 /14116-2101 QA
4073 / 4073 /14117-4073 ;
0210 /FLDA BASE+030 /14120-0210 BH
1041 /JNE 1 /14121-1041 H!
4065 / 4065 /14122-4065 5
3000 /TRAP3 0 /14123-3000 X@
4125 / 4125 /14124-4125 !U
1131 /JSR 1 /14125-1131 IY TEST 11
4553 / S01456 /14126-4553 %+
1131 /JSR 1 /14127-1131 IY
4615 / SETEFM /14130-4615 &M
0511 /FLDA L X1+ 1 /14131-0511 EI
5400 / 5400 /14132-5400 ,@
0004 /FNORM /14133-0004 @D
6411 /FSTA L X1 1 /14134-6411 4I
5400 / 5400 /14135-5400 ,@
2101 /JNX X0+ 1 /14136-2101 QA
4127 / 4127 /14137-4127 !W
1131 /JSR 1 /14140-1131 IY
4553 / S01456 /14141-4553 %+
1131 /JSR 1 /14142-1131 IY
4615 / SETEFM /14143-4615 &M
0711 /FLDA % BASE+03X1+ /14144-0711 GI
6732 /FSTA % BASE+06X3+ /14145-6732 7Z
5632 /FADDM% BASE+06X3 /14146-5632 .Z
0632 /FLDA % BASE+06X3 /14147-0632 FZ
6222 /FSTA BASE+066 /14150-6222 2R
0002 /FCLA /14151-0002 @B
6632 /FSTA % BASE+06X3 /14152-6632 6Z
0222 /FLDA BASE+066 /14153-0222 BR
2611 /FSUB % BASE+03X1 /14154-2611 VI
6632 /FSTA % BASE+06X3 /14155-6632 6Z
1131 /JSR 1 /14156-1131 IY
4765 / 4765 /14157-4765 '5
2101 /JNX X0+ 1 /14160-2101 QA
4142 / 4142 /14161-4142 !"
0006 /STARTD /14162-0006 @F
0210 /FLDA BASE+030 /14163-0210 BH
1041 /JNE 1 /14164-1041 H!
4125 / 4125 /14165-4125 !U
3000 /TRAP3 0 /14166-3000 X@
4170 / 4170 /14167-4170 !8
1131 /JSR 1 /14170-1131 IY TEST 12
5002 / SETDM2 /14171-5002 (B
1121 /JSA 1 /14172-1121 IQ
4631 / S72321 /14173-4631 &Y
0713 /FLDA % BASE+11X1+ /14174-0713 GK
6734 /FSTA % BASE+14X3+ /14175-6734 7\
5634 /FADDM% BASE+14X3 /14176-5634 .\
0634 /FLDA % BASE+14X3 /14177-0634 F\
6222 /FSTA BASE+066 /14200-6222 2R
2613 /FSUB % BASE+11X1 /14201-2613 VK
6634 /FSTA % BASE+14X3 /14202-6634 6\
1131 /JSR 1 /14203-1131 IY
5007 / 5007 /14204-5007 (G
2101 /JNX X0+ 1 /14205-2101 QA
4172 / 4172 /14206-4172 !:
0210 /FLDA BASE+030 /14207-0210 BH
1041 /JNE 1 /14210-1041 H!
4170 / 4170 /14211-4170 !8
3000 /TRAP3 0 /14212-3000 X@
4214 / 4214 /14213-4214 "L
1131 /JSR 1 /14214-1131 IY TEST 13
4553 / S01456 /14215-4553 %+
1131 /JSR 1 /14216-1131 IY
4615 / SETEFM /14217-4615 &M
0711 /FLDA % BASE+03X1+ /14220-0711 GI
0004 /FNORM /14221-0004 @D
6611 /FSTA % BASE+03X1 /14222-6611 6I
6732 /FSTA % BASE+06X3+ /14223-6732 7Z
7632 /FMULM% BASE+06X3 /14224-7632 >Z
0632 /FLDA % BASE+06X3 /14225-0632 FZ
6222 /FSTA BASE+066 /14226-6222 2R
0002 /FCLA /14227-0002 @B
6632 /FSTA % BASE+06X3 /14230-6632 6Z
0222 /FLDA BASE+066 /14231-0222 BR
3611 /FDIV % BASE+03X1 /14232-3611 ^I
6632 /FSTA % BASE+06X3 /14233-6632 6Z
1131 /JSR 1 /14234-1131 IY
4676 / 4676 /14235-4676 &>
2101 /JNX X0+ 1 /14236-2101 QA
4216 / 4216 /14237-4216 "N
0006 /STARTD /14240-0006 @F
0210 /FLDA BASE+030 /14241-0210 BH
1041 /JNE 1 /14242-1041 H!
4214 / 4214 /14243-4214 "L
3000 /TRAP3 0 /14244-3000 X@
4246 / 4246 /14245-4246 "&
1131 /JSR 1 /14246-1131 IY TEST 14
5002 / SETDM2 /14247-5002 (B
0104 /LDX X4 /14250-0104 AD
0014 / 0014 /14251-0014 @L
0105 /LDX X5 /14252-0105 AE
7764 / 7764 /14253-7764 ?4
1121 /JSA 1 /14254-1121 IQ
4631 / S72321 /14255-4631 &Y
0713 /FLDA % BASE+11X1+ /14256-0713 GK
0014 /ALN 4 /14257-0014 @L
0015 /ALN 5 /14260-0015 @M
6613 /FSTA % BASE+11X1 /14261-6613 6K
6212 /FSTA BASE+036 /14262-6212 2J
6734 /FSTA % BASE+14X3+ /14263-6734 7\
7634 /FMULM% BASE+14X3 /14264-7634 >\
0634 /FLDA % BASE+14X3 /14265-0634 F\
6222 /FSTA BASE+066 /14266-6222 2R
3613 /FDIV % BASE+11X1 /14267-3613 ^K
6634 /FSTA % BASE+14X3 /14270-6634 6\
1131 /JSR 1 /14271-1131 IY
5007 / 5007 /14272-5007 (G
2101 /JNX X0+ 1 /14273-2101 QA
4254 / 4254 /14274-4254 ",
0210 /FLDA BASE+030 /14275-0210 BH
1041 /JNE 1 /14276-1041 H!
4246 / 4246 /14277-4246 "&
3000 /TRAP3 0 /14300-3000 X@
4302 / 4302 /14301-4302 #B
1131 /JSR 1 /14302-1131 IY TEST 15
4553 / S01456 /14303-4553 %+
1131 /JSR 1 /14304-1131 IY
4615 / SETEFM /14305-4615 &M
0511 /FLDA L X1+ 1 /14306-0511 EI
5400 / 5400 /14307-5400 ,@
0004 /FNORM /14310-0004 @D
6411 /FSTA L X1 1 /14311-6411 4I
5400 / 5400 /14312-5400 ,@
2101 /JNX X0+ 1 /14313-2101 QA
4304 / 4304 /14314-4304 #D
1131 /JSR 1 /14315-1131 IY
4600 / 4600 /14316-4600 &@
3004 /TRAP3 4 /14317-3004 XD
0000 / 0000 /14320-0000 @@
1131 /JSR 1 /14321-1131 IY
4615 / SETEFM /14322-4615 &M
0511 /FLDA L X1+ 1 /14323-0511 EI
5400 / 5400 /14324-5400 ,@
1521 /FADD L X2+ 1 /14325-1521 MQ
5400 / 5400 /14326-5400 ,@
2421 /FSUB L X2 1 /14327-2421 TQ
5400 / 5400 /14330-5400 ,@
6531 /FSTA L X3+ 1 /14331-6531 5Y
6100 / 6100 /14332-6100 1@
1131 /JSR 1 /14333-1131 IY
4765 / 4765 /14334-4765 '5
2101 /JNX X0+ 1 /14335-2101 QA
4321 / 4321 /14336-4321 #Q
0006 /STARTD /14337-0006 @F
0210 /FLDA BASE+030 /14340-0210 BH
1041 /JNE 1 /14341-1041 H!
4302 / 4302 /14342-4302 #B
3000 /TRAP3 0 /14343-3000 X@
4345 / 4345 /14344-4345 #%
1131 /JSR 1 /14345-1131 IY TEST 16
5002 / SETDM2 /14346-5002 (B
1121 /JSA 1 /14347-1121 IQ
4631 / S72321 /14350-4631 &Y
0511 /FLDA L X1+ 1 /14351-0511 EI
5400 / 5400 /14352-5400 ,@
1521 /FADD L X2+ 1 /14353-1521 MQ
5400 / 5400 /14354-5400 ,@
6222 /FSTA BASE+066 /14355-6222 2R
2421 /FSUB L X2 1 /14356-2421 TQ
5400 / 5400 /14357-5400 ,@
6531 /FSTA L X3+ 1 /14360-6531 5Y
6100 / 6100 /14361-6100 1@
1131 /JSR 1 /14362-1131 IY
5007 / 5007 /14363-5007 (G
2101 /JNX X0+ 1 /14364-2101 QA
4347 / 4347 /14365-4347 #'
0210 /FLDA BASE+030 /14366-0210 BH
1041 /JNE 1 /14367-1041 H!
4345 / 4345 /14370-4345 #%
3000 /TRAP3 0 /14371-3000 X@
4373 / 4373 /14372-4373 #;
1131 /JSR 1 /14373-1131 IY TEST 17
4553 / S01456 /14374-4553 %+
1131 /JSR 1 /14375-1131 IY
4615 / SETEFM /14376-4615 &M
0511 /FLDA L X1+ 1 /14377-0511 EI
5400 / 5400 /14400-5400 ,@
0004 /FNORM /14401-0004 @D
6411 /FSTA L X1 1 /14402-6411 4I
5400 / 5400 /14403-5400 ,@
1131 /JSR 1 /14404-1131 IY
4623 / 4623 /14405-4623 &S
0411 /FLDA L X1 1 /14406-0411 DI
5400 / 5400 /14407-5400 ,@
0003 /FNEG /14410-0003 @C
0003 /FNEG /14411-0003 @C
0003 /FNEG /14412-0003 @C
0040 /FNOP /14413-0040 @
0003 /FNEG /14414-0003 @C
0003 /FNEG /14415-0003 @C
0003 /FNEG /14416-0003 @C
6531 /FSTA L X3+ 1 /14417-6531 5Y
6100 / 6100 /14420-6100 1@
1131 /JSR 1 /14421-1131 IY
4646 / TRNBUF /14422-4646 &&
2101 /JNX X0+ 1 /14423-2101 QA
4375 / 4375 /14424-4375 #=
0006 /STARTD /14425-0006 @F
0210 /FLDA BASE+030 /14426-0210 BH
1041 /JNE 1 /14427-1041 H!
4373 / 4373 /14430-4373 #;
3000 /TRAP3 0 /14431-3000 X@
4433 / 4433 /14432-4433 $[
1131 /JSR 1 /14433-1131 IY TEST 20
4760 / SETDM /14434-4760 '0
0104 /LDX X4 /14435-0104 AD
0022 / 0022 /14436-0022 @R
0511 /FLDA L X1+ 1 /14437-0511 EI
5400 / 5400 /14440-5400 ,@
1011 /JGE 1 /14441-1011 HI
4444 / 4444 /14442-4444 $$
0003 /FNEG /14443-0003 @C
0014 /ALN 4 /14444-0014 @L 4 BITS LONG?
6411 /FSTA L X1 1 /14445-6411 4I
5400 / 5400 /14446-5400 ,@
2101 /JNX X0+ 1 /14447-2101 QA
4437 / 4437 /14450-4437 $_
1131 /JSR 1 /14451-1131 IY
5002 / SETDM2 /14452-5002 (B
1121 /JSA 1 /14453-1121 IQ
4631 / S72321 /14454-4631 &Y
0032 /XTA 2 /14455-0032 @Z
0025 /ATX 5 /14456-0025 @U
0521 /FLDA L X2+ 1 /14457-0521 EQ
5400 / 5400 /14460-5400 ,@
0003 /FNEG /14461-0003 @C
1041 /JNE 1 /14462-1041 H!
4470 / 4470 /14463-4470 $8
0511 /FLDA L X1+ 1 /14464-0511 EI
5400 / 5400 /14465-5400 ,@
1031 /JA 1 /14466-1031 HY
4506 / 4506 /14467-4506 %F
1217 /FADD BASE+055 /14470-1217 JO
0024 /ATX 4 /14471-0024 @T
0511 /FLDA L X1+ 1 /14472-0511 EI
5400 / 5400 /14473-5400 ,@
6151 /LEMUL X5+ 1 /14474-6151 1)
5400 / 5400 /14475-5400 ,@
2041 /JNX X4 1 /14476-2041 P!
4502 / 4502 /14477-4502 %B
1031 /JA 1 /14500-1031 HY
4506 / 4506 /14501-4506 %F
2411 /FSUB L X1 1 /14502-2411 TI
5400 / 5400 /14503-5400 ,@
2141 /JNX X4+ 1 /14504-2141 Q!
4502 / 4502 /14505-4502 %B
6531 /FSTA L X3+ 1 /14506-6531 5Y
6100 / 6100 /14507-6100 1@
1131 /JSR 1 /14510-1131 IY
5007 / 5007 /14511-5007 (G
2101 /JNX X0+ 1 /14512-2101 QA
4453 / 4453 /14513-4453 $+
0210 /FLDA BASE+030 /14514-0210 BH
1041 /JNE 1 /14515-1041 H!
4433 / 4433 /14516-4433 $[
3000 /TRAP3 0 /14517-3000 X@
4521 / 4521 /14520-4521 %Q
1131 /JSR 1 /14521-1131 IY TEST 21
4553 / S01456 /14522-4553 %+
1131 /JSR 1 /14523-1131 IY
4615 / SETEFM /14524-4615 &M
6111 /LEA X1+ 1 /14525-6111 1I
5400 / 5400 /14526-5400 ,@
6226 /FSTA BASE+102 /14527-6226 2V
1131 /JSR 1 /14530-1131 IY
4625 / 4625 /14531-4625 &U
1111 /SETB 1 /14532-1111 II
5302 / 5302 /14533-5302 +B
0650 /FLDA % BASE+00X5 /14534-0650 F(
1111 /SETB 1 /14535-1111 II
5200 / 5200 /14536-5200 *@
6531 /FSTA L X3+ 1 /14537-6531 5Y
6100 / 6100 /14540-6100 1@
1131 /JSR 1 /14541-1131 IY
4646 / TRNBUF /14542-4646 &&
2101 /JNX X0+ 1 /14543-2101 QA
4523 / 4523 /14544-4523 %S
0006 /STARTD /14545-0006 @F
0210 /FLDA BASE+030 /14546-0210 BH
1041 /JNE 1 /14547-1041 H!
4521 / 4521 /14550-4521 %Q
3000 /TRAP3 0 /14551-3000 X@
3600 / 3600 /14552-3600 ^@
S01456,0006 /STARTD /14553-0006 @F
0401 /FLDA L X0 1 /14554-0401 DA
0142 / EPMOD0 /14555-0142 A"
1011 /JGE 1 /14556-1011 HI
4564 / 4564 /14557-4564 %4
0100 /LDX X0 /14560-0100 A@
7714 / 7714 /14561-7714 ?L -52
1031 /JA 1 /14562-1031 HY
4566 / SX1456 /14563-4566 %6
0100 /LDX X0 /14564-0100 A@
7630 / 7630 /14565-7630 >X -104 -156 DP
SX1456,0101 /LDX X1 /14566-0101 AA
7777 / 7777 /14567-7777 ??
0104 /LDX X4 /14570-0104 AD
0000 / 0000 /14571-0000 @@
0105 /LDX X5 /14572-0105 AE
0000 / 0000 /14573-0000 @@
0106 /LDX X6 /14574-0106 AF
0000 / 0000 /14575-0000 @@
1031 /JA 1 /14576-1031 HY
5201 / BASE1+1 /14577-5201 *A
0006 /STARTD /14600-0006 @F
0401 /FLDA L X0 1 /14601-0401 DA
0142 / 0142 /14602-0142 A"
1011 /JGE 1 /14603-1011 HI
4611 / 4611 /14604-4611 &I
0100 /LDX X0 /14605-0100 A@
7715 / 7715 /14606-7715 ?M
1031 /JA 1 /14607-1031 HY
4566 / SX1456 /14610-4566 %6
0100 /LDX X0 /14611-0100 A@
7631 / 7631 /14612-7631 >Y
1031 /JA 1 /14613-1031 HY
4566 / SX1456 /14614-4566 %6
SETEFM,0006 /STARTD /14615-0006 @F
0031 /XTA 1 /14616-0031 @Y
0022 /ATX 2 /14617-0022 @R
0023 /ATX 3 /14620-0023 @S
0112 /ADDX X2 /14621-0112 AJ
0001 / 0001 /14622-0001 @A
0107 /LDX X7 /14623-0107 AG
0000 / 0000 /14624-0000 @@
FPLEF, 0005 /STARTF /14625-0005 @E
0002 /FCLA /14626-0002 @B
1031 /JA 1 /14627-1031 HY
5201 / BASE1+1 /14630-5201 *A
S72321,0000 /FEXIT /14631-0000 @@
0000 /FEXIT /14632-0000 @@
0006 /STARTD /14633-0006 @F
0107 /LDX X7 /14634-0107 AG
0000 / 0000 /14635-0000 @@
0031 /XTA 1 /14636-0031 @Y
0022 /ATX 2 /14637-0022 @R
0023 /ATX 3 /14640-0023 @S
0112 /ADDX X2 /14641-0112 AJ
0001 / 0001 /14642-0001 @A
0002 /FCLA /14643-0002 @B
1031 /JA 1 /14644-1031 HY
4631 / 4631 /14645-4631 &Y
TRNBUF,0411 /FLDA L X1 1 /14646-0411 DI
5400 / 5400 /14647-5400 ,@
2431 /FSUB L X3 1 /14650-2431 TY
6100 / 6100 /14651-6100 1@
1001 /JEQ 1 /14652-1001 HA
4664 / 4664 /14653-4664 &4
0006 /STARTD /14654-0006 @F
0224 /FLDA BASE+074 /14655-0224 BT
1001 /JEQ 1 /14656-1001 HA
4662 / 4662 /14657-4662 &2
1031 /JA 1 /14660-1031 HY
4670 / 4670 /14661-4670 &8
3001 /TRAP3 1 /14662-3001 XA
0000 / 0000 /14663-0000 @@
0006 /STARTD /14664-0006 @F
0224 /FLDA BASE+074 /14665-0224 BT
1001 /JEQ 1 /14666-1001 HA
5201 / 5201 /14667-5201 *A
0110 /ADDX X0 /14670-0110 AH
7777 / 7777 /14671-7777 ??
0111 /ADDX X1 /14672-0111 AI
7777 / 7777 /14673-7777 ??
1031 /JA 1 /14674-1031 HY
5201 / 5201 /14675-5201 *A
0411 /FLDA L X1 1 /14676-0411 DI
5400 / 5400 /14677-5400 ,@
0004 /FNORM /14700-0004 @D
6212 /FSTA BASE+036 /14701-6212 2J
2431 /FSUB L X3 1 /14702-2431 TY
6100 / 6100 /14703-6100 1@
1001 /JEQ 1 /14704-1001 HA
4664 / 4664 /14705-4664 &4
0107 /LDX X7 /14706-0107 AG
0000 / 0000 /14707-0000 @@
6214 /FSTA BASE+044 /14710-6214 2L
1101 /SETX 1 /14711-1101 IA
5236 / 5236 /14712-5236 *^
0006 /STARTD /14713-0006 @F
0036 /XTA 6 /14714-0036 @^
6211 /FSTA BASE+033 /14715-6211 2I
0030 /XTA 0 /14716-0030 @X
1101 /SETX 1 /14717-1101 IA
0040 / 0040 /14720-0040 @
2211 /FSUB BASE+033 /14721-2211 RI
1051 /JLT 1 /14722-1051 H)
4735 / 4735 /14723-4735 ']
2216 /FSUB BASE+052 /14724-2216 RN
1061 /JGT 1 /14725-1061 H1
4743 / 4743 /14726-4743 '#
1225 /FADD BASE+077 /14727-1225 JU
1051 /JLT 1 /14730-1051 H)
4743 / 4743 /14731-4743 '#
0005 /STARTF /14732-0005 @E
1031 /JA 1 /14733-1031 HY
4664 / 4664 /14734-4664 &4
0117 /ADDX X7 /14735-0117 AO
0001 / 0001 /14736-0001 @A
2071 /JNX X7 1 /14737-2071 P9
4746 / 4746 /14740-4746 '&
0117 /ADDX X7 /14741-0117 AO
7777 / 7777 /14742-7777 ??
0005 /STARTF /14743-0005 @E
1031 /JA 1 /14744-1031 HY
4654 / 4654 /14745-4654 &,
0117 /ADDX X7 /14746-0117 AO
7777 / 7777 /14747-7777 ??
1101 /SETX 1 /14750-1101 IA
5236 / 5236 /14751-5236 *^
0110 /ADDX X0 /14752-0110 AH
4000 / 4000 /14753-4000 @
0116 /ADDX X6 /14754-0116 AN
4000 / 4000 /14755-4000 @
1031 /JA 1 /14756-1031 HY
4714 / 4714 /14757-4714 'L
SETDM,0006 /STARTD /14760-0006 @F
0100 /LDX X0 /14761-0100 A@
7544 / 7544 /14762-7544 =$ -156
1031 /JA 1 /14763-1031 HY
4566 / SX1456 /14764-4566 %6
0117 /ADDX X7 /14765-0117 AO
7777 / 7777 /14766-7777 ??
2071 /JNX X7 1 /14767-2071 P9
4776 / 4776 /14770-4776 '>
0431 /FLDA L X3 1 /14771-0431 DY
6100 / 6100 /14772-6100 1@
0003 /FNEG /14773-0003 @C
6431 /FSTA L X3 1 /14774-6431 4Y
6100 / 6100 /14775-6100 1@
0117 /ADDX X7 /14776-0117 AO
0001 / 0001 /14777-0001 @A
1031 /JA 1 /15000-1031 HY
4676 / 4676 /15001-4676 &>
SETDM2,0006 /STARTD /15002-0006 @F
0100 /LDX X0 /15003-0100 A@
7545 / 7545 /15004-7545 =% -155
1031 /JA 1 /15005-1031 HY
4566 / SX1456 /15006-4566 %6
0411 /FLDA L X1 1 /15007-0411 DI
5400 / 5400 /15010-5400 ,@
2431 /FSUB L X3 1 /15011-2431 TY
6100 / 6100 /15012-6100 1@
1031 /JA 1 /15013-1031 HY
4652 / 4652 /15014-4652 &*
AND 0000 /15015-0000 @@
DCA F1PNT /15016-3020 XP
TAD F1PNT /15017-1020 HP
RTR /15020-7012 8J
RTR /15021-7012 8J
RTR /15022-7012 8J
JMS 5027 /15023-4227 "W
TAD F1PNT /15024-1020 HP
JMS 5027 /15025-4227 "W
JMP I 5015 /15026-5615 .M
AND 0000 /15027-0000 @@
AND 5174 /15030-0374 C<
SNA /15031-7450 <(
JMP I 5027 /15032-5627 .W
TAD 5173 /15033-1373 K;
AND 5174 /15034-0374 C<
TAD 5173 /15035-1373 K;
JMS 5057 /15036-4257 "/
JMP I 5027 /15037-5627 .W
AND 0000 /15040-0000 @@
TAD 0023 /15041-1023 HS
JMS 5015 /15042-4215 "M
TAD 0024 /15043-1024 HT
JMS 5015 /15044-4215 "M
TAD 0025 /15045-1025 HU
JMS 5015 /15046-4215 "M
TAD 0026 /15047-1026 HV
SNA CLA /15050-7650 >(
JMP I 5040 /15051-5640 .
TAD 5172 /15052-1372 K:
JMS 5027 /15053-4227 "W
TAD 0026 /15054-1026 HV
JMS 5015 /15055-4215 "M
JMP I 5040 /15056-5640 .
AND 0000 /15057-0000 @@
DCA 5151 /15060-3351 [)
JMS I 5171 /15061-4771 '9
JMP 5077 /15062-5277 *?
DCA 5064 /15063-3264 Z4
HLT /15064-7402 <B
TAD 5151 /15065-1351 K)
JMS I 5170 /15066-4770 '8
TAD 5151 /15067-1351 K)
TAD 5167 /15070-1367 K7
SZA CLA /15071-7640 >
JMP I 5057 /15072-5657 ./
TAD 5064 /15073-1264 J4
IAC /15074-7001 8A
DCA 5013 /15075-3213 ZK
JMP I 5057 /15076-5657 ./
TAD 5151 /15077-1351 K)
JMS I 5177 /15100-4777 '?
ISZ 0101 /15101-2101 QA
JMS I 0075 /15102-4475 $=
CLA CLL IAC RAL /15103-7305 ;E
DCA 0036 /15104-3036 X^
JMS 5151 /15105-4351 #)
JMS I 0072 /15106-4472 $:
JMP 0102 /15107-5102 )B
JMS 5161 /15110-4361 #1
JMP 5102 /15111-5302 +B
JMS I 5177 /15112-4777 '?
ISZ 0001 /15113-2001 PA
JMS I 0075 /15114-4475 $=
ISZ 0036 /15115-2036 P^
JMS 5151 /15116-4351 #)
JMS I 0072 /15117-4472 $:
JMP 0114 /15120-5114 )L
JMS 5161 /15121-4361 #1
JMP 5114 /15122-5314 +L
JMS I 5177 /15123-4777 '?
ISZ 0101 /15124-2101 QA
TAD I 5153 /15125-1753 O+
DCA F1PNT /15126-3020 XP
TAD 5176 /15127-1376 K>
DCA I F1PNT /15130-3420 \P
ISZ F1PNT /15131-2020 PP
TAD 0000 /15132-1000 H@
DCA I F1PNT /15133-3420 \P
JMS I 0075 /15134-4475 $=
JMS I FPGO0 /15135-4474 $<
TAD I 0154 /15136-1554 M,
CDF 0 /15137-6201 2A
TAD I 0022 /15140-1422 LR
DCA I 0006 /15141-3406 \F
CDF 10 /15142-6211 2I
JMS I 0072 /15143-4472 $:
JMP 0134 /15144-5134 )\
JMS 5161 /15145-4361 #1
JMP 5134 /15146-5334 +\
DCA 0151 /15147-3151 Y)
JMP I 5175 /15150-5775 /=
AND 0000 /15151-0000 @@
JMS I FPGO0 /15152-4474 $<
TAD I 0152 /15153-1552 M*
CDF 0 /15154-6201 2A
TAD I 0022 /15155-1422 LR
DCA I 0006 /15156-3406 \F
CDF 10 /15157-6211 2I
JMP I 5151 /15160-5751 /)
AND 0000 /15161-0000 @@
ISZ 0014 /15162-2014 PL
JMP 5165 /15163-5365 +5
JMP 5172 /15164-5372 +:
TAD I 5174 /15165-1774 O<
TAD K10 /15166-1103 IC
DCA I 5174 /15167-3774 _<
ISZ 0022 /15170-2022 PR
JMP I 5161 /15171-5761 /1
ISZ 5161 /15172-2361 S1
JMP I 5161 /15173-5761 /1
TAD I 0153 /15174-1553 M+
DCA I 0172 /15175-3572 ]:
TAD 0030 /15176-1030 HX
CMA CML RTL /15177-7066 86
PAGE
BASE1, AND 0000 /15200-0000 @@
AND 0000 /15201-0000 @@
AND 0000 /15202-0000 @@
AND 0000 /15203-0000 @@ 1
AND 0001 /15204-0001 @A
JMP I 0000 /15205-5400 ,@
AND 0000 /15206-0000 @@ 2
AND 0001 /15207-0001 @A
6100 /15210-6100 1@
AND 0000 /15211-0000 @@ 3
AND 0001 /15212-0001 @A
JMP I 0000 /15213-5400 ,@
AND 0000 /15214-0000 @@ 4
AND 0001 /15215-0001 @A
6100 /15216-6100 1@
AND 0000 /15217-0000 @@ 5
AND 0000 /15220-0000 @@
AND 0000 /15221-0000 @@
AND 0000 /15222-0000 @@ 6
AND 0000 /15223-0000 @@
AND 0000 /15224-0000 @@
AND 0000 /15225-0000 @@ 7
AND 0000 /15226-0000 @@
AND 0000 /15227-0000 @@
AND 0000 /15230-0000 @@ 10
AND 0000 /15231-0000 @@
AND 0000 /15232-0000 @@ GETS 7777 IF STAY ON TEST
AND 0000 /15233-0000 @@ 11
AND 0000 /15234-0000 @@
AND 0000 /15235-0000 @@
AND 0000 /15236-0000 @@ 12
AND 0000 /15237-0000 @@
AND 0000 /15240-0000 @@
AND 0000 /15241-0000 @@ 13
AND 0000 /15242-0000 @@
AND 0000 /15243-0000 @@
AND 0000 /15244-0000 @@ 14
AND 0000 /15245-0000 @@
AND 0000 /15246-0000 @@
AND 0000 /15247-0000 @@ 15
AND 0000 /15250-0000 @@
AND 0000 /15251-0000 @@
AND 0000 /15252-0000 @@ 16
AND 0000 /15253-0000 @@
AND 0000 /15254-0000 @@ GETS 24-2 FMODE OR 60-2 EMODE
AND 0000 /15255-0000 @@ 17
AND 0000 /15256-0000 @@
AND 0001 /15257-0001 @A
AND 0000 /15260-0000 @@ 20
AND 0000 /15261-0000 @@
AND 0014 /15262-0014 @L
AND 0000 /15263-0000 @@ 21
AND 0000 /15264-0000 @@
AND 0000 /15265-0000 @@
AND 0000 /15266-0000 @@ 22
AND 0000 /15267-0000 @@
AND 0000 /15270-0000 @@
AND 0000 /15271-0000 @@ 23
AND 0000 /15272-0000 @@
AND 0000 /15273-0000 @@
AND 0000 /15274-0000 @@ 24
AND 0000 /15275-0000 @@
AND 0000 /15276-0000 @@ GETS 7777 IF SWITCH 1000
AND 0000 /15277-0000 @@ 25
AND 0000 /15300-0000 @@
AND 0002 /15301-0002 @B
AND 0000 /15302-0000 @@ 26
AND 0000 /15303-0000 @@
AND 0000 /15304-0000 @@
AND 0000 /15305-0000 @@ 27
SCA /15306-7441 <!
SKP CLA HLT /15307-7612 >J
ISZ 5305 /15310-2305 SE
CLA CLL CMA CML IAC RTR /15311-7373 ;;
ISZ 5305 /15312-2305 SE
7377 /15313-7377 ;?
DCA I 0112 /15314-3512 ]J
AND 0000 /15315-0000 @@
CML IAC RAR /15316-7031 8Y
TAD 5364 /15317-1364 K4
DCA F1PNT /15320-3020 XP
CDF 0 /15321-6201 2A
JMS 5343 /15322-4343 ##
JMP 5327 /15323-5327 +W
CLA /15324-7200 :@
ISZ F1PNT /15325-2020 PP
TAD I F1PNT /15326-1420 LP
SNA /15327-7450 <(
JMP 5335 /15330-5335 +]
JMS I 5363 /15331-4763 '3
SKP CLA /15332-7610 >H
JMP 5324 /15333-5324 +T
JMS 5343 /15334-4343 ##
DCA FMS10 /15335-3032 XZ
CLA CMA /15336-7240 :
TAD F1PNT /15337-1020 HP
CDF 10 /15340-6211 2I
DCA I 5362 /15341-3762 _2
JMP I 5316 /15342-5716 /N
JMP 5335 /15343-5335 +]
TAD I F1PNT /15344-1420 LP
TAD 5361 /15345-1361 K1
SZA /15346-7440 <
JMP 5352 /15347-5352 +*
ISZ F1PNT /15350-2020 PP
JMP 5344 /15351-5344 +$
TAD 5360 /15352-1360 K0
JMP I 5343 /15353-5743 /#
AND 0000 /15354-0000 @@
AND 0000 /15355-0000 @@
AND 0000 /15356-0000 @@
AND 0000 /15357-0000 @@
AND 5240 /15360-0240 B
SMA SZA /15361-7540 =
SZA /15362-7440 <
JMS I 5230 /15363-4630 &X
TAD 0000 /15364-1000 H@
JMP 0124 /15365-5124 )T
JMP 0160 /15366-5160 )0
6514 /15367-6514 5L
6513 /15370-6513 5K
JMP 0040 /15371-5040 (
JMP 0015 /15372-5015 (M
JMS 5300 /15373-4300 #@
6400 /15374-6400 4@
SPA SNA SZL CLA OSR /15375-7774 ?<
ISZ I 0144 /15376-2544 U$
JMP 0000 /15377-5000 (@
PAGE
RANBUF, AND 0000 /15400-0000 @@
JMS I 5577 /15401-4777 '?
AND 5520 /15402-0320 CP
AND 5501 /15403-0301 CA
JMP I 5400 /15404-5600 .@
AND 0000 /15405-0000 @@
TAD 0032 /15406-1032 HZ
SNA CLA /15407-7650 >(
JMP 5557 /15410-5357 +/
JMS 5431 /15411-4231 "Y
JMS I 5576 /15412-4776 '>
NOP /15413-7000 8@
JMS 5443 /15414-4243 "#
AND 5505 /15415-0305 CE
AND 5527 /15416-0327 CW
AND 0000 /15417-0000 @@
JMS 5452 /15420-4252 "*
JMS 5400 /15421-4200 "@
JMS 5443 /15422-4243 "#
AND 5433 /15423-0233 B[
AND 0000 /15424-0000 @@
JMS I 5574 /15425-4774 '<
JMS I 5573 /15426-4773 ';
AND 0000 /15427-0000 @@
JMP I 5405 /15430-5605 .E
AND 0000 /15431-0000 @@
TAD I 5572 /15432-1772 O:
DCA 0034 /15433-3034 X\
TAD 5571 /15434-1371 K9
DCA I 5570 /15435-3770 _8
TAD 5567 /15436-1367 K7
JMS I 5566 /15437-4766 '6
TAD 0034 /15440-1034 H\
DCA 5556 /15441-3356 [.
JMP I 5431 /15442-5631 .Y
AND 0000 /15443-0000 @@
TAD I 5443 /15444-1643 N#
ISZ 5443 /15445-2243 R#
SNA /15446-7450 <(
JMP I 5443 /15447-5643 .#
JMS I 5565 /15450-4765 '5
JMP 5444 /15451-5244 *$
AND 0000 /15452-0000 @@
TAD 5556 /15453-1356 K.
DCA 0015 /15454-3015 XM
TAD 5556 /15455-1356 K.
CMA /15456-7040 8
TAD 0034 /15457-1034 H\
SNA CLA /15460-7650 >(
JMP I 5564 /15461-5764 /4
CDF 0 /15462-6201 2A
TAD I 0015 /15463-1415 LM
CDF 10 /15464-6211 2I
JMS I 5565 /15465-4765 '5
TAD 0015 /15466-1015 HM
CMA /15467-7040 8
TAD 0034 /15470-1034 H\
SNA CLA /15471-7650 >(
JMP I 5452 /15472-5652 .*
JMP 5462 /15473-5262 *2
AND 0000 /15474-0000 @@
JMS 5431 /15475-4231 "Y
JMS I 5576 /15476-4776 '>
TAD FMS10 /15477-1032 HZ
SNA /15500-7450 <(
JMP 5541 /15501-5341 +!
TAD 5563 /15502-1363 K3
SNA /15503-7450 <(
JMP 5510 /15504-5310 +H
TAD 5562 /15505-1362 K2
SZA CLA /15506-7640 >
JMP I 5564 /15507-5764 /4
CDF 0 /15510-6201 2A
DCA I 0034 /15511-3434 \\
CDF 10 /15512-6211 2I
JMS 5443 /15513-4243 "#
AND 5505 /15514-0305 CE
AND 5527 /15515-0327 CW
AND 0000 /15516-0000 @@
JMS 5452 /15517-4252 "*
JMS 5400 /15520-4200 "@
TAD 0034 /15521-1034 H\
DCA 5556 /15522-3356 [.
JMS I 5574 /15523-4774 '<
JMS I 5576 /15524-4776 '>
JMS 5443 /15525-4243 "#
AND 5433 /15526-0233 B[
AND 5505 /15527-0305 CE
AND 5522 /15530-0322 CR
AND 0000 /15531-0000 @@
JMS 5452 /15532-4252 "*
JMS 5400 /15533-4200 "@
JMS 5443 /15534-4243 "#
AND 5433 /15535-0233 B[
AND 5531 /15536-0331 CY
AND 0000 /15537-0000 @@
JMP 5553 /15540-5353 ++
JMS 5443 /15541-4243 "#
AND 5505 /15542-0305 CE
AND 5502 /15543-0302 CB
AND 0000 /15544-0000 @@
JMS 5452 /15545-4252 "*
JMS 5400 /15546-4200 "@
JMS 5443 /15547-4243 "#
AND 5433 /15550-0233 B[
AND 5531 /15551-0331 CY
AND 0000 /15552-0000 @@
JMS I 5573 /15553-4773 ';
AND 0000 /15554-0000 @@
JMP I 5474 /15555-5674 .<
AND 0000 /15556-0000 @@
JMS I 5561 /15557-4761 '1
6400 /15560-6400 4@
JMP 0000 /15561-5000 (@
MQA MQL CLA ASR /15562-7735 ?]
SMA OSR /15563-7504 =D
JMP 0160 /15564-5160 )0
JMP I 5400 /15565-5600 .@
JMS I 5447 /15566-4647 &'
MQA MQL CLA DPIC /15567-7773 ?;
JMP I 5462 /15570-5662 .2
MQA MQL SAM /15571-7577 =?
SZA /15572-7440 <
NOP /15573-7000 8@
7214 /15574-7214 :L
JMS 0127 /15575-4127 !W
7315 /15576-7315 ;M
JMP I 5463 /15577-5663 .3
*6000
AND 0000 /16000-0000 @@
TAD 6177 /16001-1377 K?
DCA 0016 /16002-3016 XN
CDF 0 /16003-6201 2A
TAD I 0016 /16004-1416 LN
SZA CLA /16005-7640 >
JMP 6004 /16006-5204 *D
CLA CMA /16007-7240 :
TAD 0016 /16010-1016 HN
DCA 0016 /16011-3016 XN
TAD 6176 /16012-1376 K>
DCA I 0016 /16013-3416 \N
DCA I 0016 /16014-3416 \N
CDF 10 /16015-6211 2I
CLA CMA /16016-7240 :
TAD 0016 /16017-1016 HN
DCA I 6175 /16020-3775 _=
JMP I 6000 /16021-5600 .@
SNL HLT /16022-7422 <R
TAD I 6174 /16023-1774 O<
DCA 0035 /16024-3035 X]
CDF 0 /16025-6201 2A
ISZ 0035 /16026-2035 P]
TAD I 0035 /16027-1435 L]
CDF 10 /16030-6211 2I
SNA /16031-7450 <(
JMP 6046 /16032-5246 *&
TAD 6173 /16033-1373 K;
SNA /16034-7450 <(
JMP I 6022 /16035-5622 .R
TAD 6172 /16036-1372 K:
SZA CLA /16037-7640 >
JMP 6025 /16040-5225 *U
TAD 6176 /16041-1376 K>
CDF 0 /16042-6201 2A
DCA I 0035 /16043-3435 \]
CDF 10 /16044-6211 2I
JMP I 6022 /16045-5622 .R
ISZ 6022 /16046-2222 RR
JMP I 6022 /16047-5622 .R
ISZ 0027 /16050-2027 PW
CIF CDF 0 /16051-6203 2C
JMS I 6171 /16052-4771 '9
TAD 6170 /16053-1370 K8
DCA 0034 /16054-3034 X\
JMS I 6167 /16055-4767 '7
SNA /16056-7450 <(
JMP I 6050 /16057-5650 .(
TAD 6166 /16060-1366 K6
SZA CLA /16061-7640 >
JMP 6055 /16062-5255 *-
TAD 0034 /16063-1034 H\
DCA I 6165 /16064-3765 _5
JMS I 6164 /16065-4764 '4
JMS I 6163 /16066-4763 '3
JMS I 6162 /16067-4762 '2
DCA I 6161 /16070-3761 _1
TAD 6160 /16071-1360 K0
DCA FLS10 /16072-3033 X[
JMS I 6157 /16073-4757 '/
SZA CLA /16074-7640 >
TAD I 6156 /16075-1756 O.
SNA /16076-7450 <(
JMP I 6155 /16077-5755 /-
RESBUF, AND 0000 /16100-0000 @@
TAD I 6154 /16101-1754 O,
DCA 6107 /16102-3307 [G
CIF 0 /16103-6202 2B
JMS I 0020 /16104-4420 $P
AND 6000 /16105-0200 B@
JMP 6000 /16106-5200 *@
AND 0000 /16107-0000 @@
JMP I 6155 /16110-5755 /-
TAD 6153 /16111-1353 K+
DCA 6107 /16112-3307 [G
TAD 6152 /16113-1352 K*
DCA 0016 /16114-3016 XN
TAD 6106 /16115-1306 KF
DCA 0020 /16116-3020 XP
CDF 0 /16117-6201 2A
TAD I 0020 /16120-1420 LP
JMS I 6151 /16121-4751 ')
CLL RTR /16122-7112 9J
RTR /16123-7012 8J
DCA 6022 /16124-3222 ZR
ISZ 0020 /16125-2020 PP
TAD I 0020 /16126-1420 LP
JMS I 6151 /16127-4751 ')
CLL RTL /16130-7106 9F
RTL /16131-7006 8F
RAL /16132-7004 8D
TAD 6022 /16133-1222 JR
JMS I 6151 /16134-4751 ')
CLA /16135-7200 :@
ISZ 0020 /16136-2020 PP
ISZ 6107 /16137-2307 SG
JMP 6120 /16140-5320 +P
JMP I 6150 /16141-5750 /(
AND 0000 /16142-0000 @@
AND 0000 /16143-0000 @@
AND 6121 /16144-0321 CQ
TAD 6146 /16145-1346 K&
AND I 0115 /16146-0515 EM
DCA 6054 /16147-3254 Z,
6307 /16150-6307 3G
6200 /16151-6200 2@
JMS I 6177 /16152-4777 '?
7600 /16153-7600 >@
JMS I 0043 /16154-4443 $#
CLA CLL CMA RTL /16155-7346 ;&
JMS 0117 /16156-4117 !O
JMS I 0000 /16157-4400 $@
DCA 6116 /16160-3316 [N
DCA I 0135 /16161-3535 ]]
JMS 0060 /16162-4060 0
7315 /16163-7315 ;M
CLA CMA CML IAC BSW /16164-7263 :3
6266 /16165-6266 26
SMA /16166-7500 =@
JMS I 6107 /16167-4707 'G
AND I 6177 /16170-0777 G?
MUY /16171-7405 <E
MQA MQL CLA ASR /16172-7735 ?]
SMA OSR /16173-7504 =D
SZA /16174-7440 <
JMP I 6141 /16175-5741 /!
AND 6074 /16176-0274 B<
TAD 0000 /16177-1000 H@
*6400
ISZ I 0136 /16400-2536 U^
DCA 0020 /16401-3020 XP
TAD I 6400 /16402-1600 N@
DCA 6423 /16403-3223 ZS
ISZ 6400 /16404-2200 R@
CLA CMA /16405-7240 :
TAD I 6400 /16406-1600 N@
DCA 0016 /16407-3016 XN
ISZ 6400 /16410-2200 R@
TAD I 6400 /16411-1600 N@
DCA 6425 /16412-3225 ZU
ISZ 6400 /16413-2200 R@
CLA CMA /16414-7240 :
TAD I 6400 /16415-1600 N@
DCA 0015 /16416-3015 XM
ISZ 6400 /16417-2200 R@
TAD 0020 /16420-1020 HP
SNA CLA /16421-7650 >(
JMP I 6400 /16422-5600 .@
CDF 0 /16423-6201 2A
TAD I 0016 /16424-1416 LN
CDF 10 /16425-6211 2I
DCA I 0015 /16426-3415 \M
ISZ 0020 /16427-2020 PP
JMP 6423 /16430-5223 *S
CDF 10 /16431-6211 2I
JMP I 6400 /16432-5600 .@
AND 0000 /16433-0000 @@
CIF 0 /16434-6202 2B
JMP I 6577 /16435-5777 /?
JMP I 6433 /16436-5633 .[
JMS I 6576 /16437-4776 '>
6505 /16440-6505 5E
CIF CDF 0 /16441-6203 2C
JMP I 6575 /16442-5775 /=
JMS I 6576 /16443-4776 '>
6474 /16444-6474 4<
JMP I 6433 /16445-5633 .[
JMS I 6576 /16446-4776 '>
6517 /16447-6517 5O
JMP 6441 /16450-5241 *!
JMS I 6576 /16451-4776 '>
6472 /16452-6472 4:
JMP I 6433 /16453-5633 .[
AND 0000 /16454-0000 @@
TAD I 6464 /16455-1664 N4
SZA CLA /16456-7640 >
JMP I 6454 /16457-5654 .,
TAD I 6574 /16460-1774 O<
DCA I 6464 /16461-3664 ^4
JMS I 6573 /16462-4773 ';
JMP I 6454 /16463-5654 .,
7600 /16464-7600 >@
TAD I 6464 /16465-1664 N4
TAD 6572 /16466-1372 K:
DCA 6425 /16467-3225 ZU
TAD I 6425 /16470-1625 NU
TAD 6571 /16471-1371 K9
SZA CLA /16472-7640 >
JMP I 6454 /16473-5654 .,
JMS I 6576 /16474-4776 '>
6602 /16475-6602 6B
JMP I 6454 /16476-5654 .,
AND 0000 /16477-0000 @@
TAD I 6570 /16500-1770 O8
RTR /16501-7012 8J
SZL CLA /16502-7630 >X
TAD 6567 /16503-1367 K7
TAD 6464 /16504-1264 J4
DCA 6533 /16505-3333 [[
TAD I 6533 /16506-1733 O[
SZA CLA /16507-7640 >
JMP I 6477 /16510-5677 .?
JMS I 6566 /16511-4766 '6
AND 0012 /16512-0012 @J
AND 0000 /16513-0000 @@
AND 0000 /16514-0000 @@
AND 0000 /16515-0000 @@
JMP I 6565 /16516-5765 /5
TAD 6514 /16517-1314 KL
DCA I 6533 /16520-3733 _[
TAD 6533 /16521-1333 K[
AND 6567 /16522-0367 C7
SNA CLA /16523-7650 >(
JMP I 6477 /16524-5677 .?
ISZ 6533 /16525-2333 S[
TAD 6564 /16526-1364 K4
JMS 6400 /16527-4200 "@
CDF 10 /16530-6211 2I
AND 0023 /16531-0023 @S
CDF 10 /16532-6211 2I
7600 /16533-7600 >@
JMP I 6477 /16534-5677 .?
TAD 6563 /16535-1363 K3
JMS I 6562 /16536-4762 '2
CDF 0 /16537-6201 2A
TAD I 6561 /16540-1761 O1
CDF 10 /16541-6211 2I
DCA I 6560 /16542-3760 _0
CLA IAC /16543-7201 :A
DCA I 6574 /16544-3774 _<
TAD 6557 /16545-1357 K/
DCA I 6556 /16546-3756 _.
TAD 6557 /16547-1357 K/
DCA I 6555 /16550-3755 _-
TAD 6554 /16551-1354 K,
JMP I 6553 /16552-5753 /+
ISZ I 0107 /16553-2507 UG
CLA CMA RTR /16554-7252 :*
CLA DAD /16555-7643 >#
SZA CLA OSR /16556-7644 >$
AND 0020 /16557-0020 @P
SNL CLA /16560-7620 >P
SNL HLT /16561-7422 <R
JMS I 6447 /16562-4647 &'
MQA MQL CLA DPIC /16563-7773 ?;
SPA SNA SZL CLA OSR /16564-7774 ?<
JMP 6423 /16565-5223 *S
AND 6400 /16566-0200 B@
AND 0005 /16567-0005 @E
ISZ I 0153 /16570-2553 U+
AND 0171 /16571-0171 A9
SZA CLA OSR HLT /16572-7646 >&
ISZ 0135 /16573-2135 Q]
CLA LSR /16574-7617 >O
SINT /16575-6254 2,
JMP 0124 /16576-5124 )T
SRQ /16577-6003 0C
PAGE
AND 0000 /16600-0000 @@
TAD I 6600 /16601-1600 N@
DCA 6634 /16602-3234 Z\
ISZ 6600 /16603-2200 R@
RDF /16604-6214 2L
TAD 6777 /16605-1377 K?
DCA 6630 /16606-3230 ZX
JMS I X8JMP1 /16607-4471 $9
TAD 6630 /16610-1230 JX
DCA 6632 /16611-3232 ZZ
JMS I RSW10 /16612-4465 $5
AND K100 /16613-0111 AI
SZA CLA /16614-7640 >
JMP 6632 /16615-5232 *Z
JMS I MSG10 /16616-4453 $+
INSERR /16617-7264 :4
TAD 6776 /16620-1376 K>
DCA I 6775 /16621-3775 _=
JMS I MSG10 /16622-4453 $+
FLDXX /16623-7554 =,
JMS I MSG01 /16624-4454 $,
PC /16625-7546 =&
TAD PC1 /16626-1002 HB
JMS I DIGI10 /16627-4462 $2
CIF CDF 0 /16630-6203 2C
JMP I 6600 /16631-5600 .@
CIF CDF 0 /16632-6203 2C
JMP I 6634 /16633-5634 .\
AND 0000 /16634-0000 @@
AND 0000 /16635-0000 @@
CLA CLL CMA RAL /16636-7344 ;$
TAD 6635 /16637-1235 J]
DCA 6707 /16640-3307 [G
TAD I 6707 /16641-1707 OG
DCA 6707 /16642-3307 [G
TAD I 6635 /16643-1635 N]
DCA 6706 /16644-3306 [F
ISZ 6635 /16645-2235 R]
TAD 0015 /16646-1015 HM
SZA CLA /16647-7640 >
JMP 6654 /16650-5254 *,
ISZ 0015 /16651-2015 PM
ISZ 0036 /16652-2036 P^
JMP 6703 /16653-5303 +C
TAD 0036 /16654-1036 H^
CLL RAL /16655-7104 9D
DCA 0036 /16656-3036 X^
TAD 0035 /16657-1035 H]
RAL /16660-7004 8D
DCA 0035 /16661-3035 X]
TAD 0034 /16662-1034 H\
RAL /16663-7004 8D
DCA 0034 /16664-3034 X\
TAD FLS10 /16665-1033 H[
RAL /16666-7004 8D
DCA FLS10 /16667-3033 X[
TAD 0023 /16670-1023 HS
RAL /16671-7004 8D
DCA 0023 /16672-3023 XS
TAD 0023 /16673-1023 HS
SMA /16674-7500 =@
JMP 6702 /16675-5302 +B
CLA CLL /16676-7300 ;@
DCA 0015 /16677-3015 XM
DCA 0023 /16700-3023 XS
JMP I 6635 /16701-5635 .]
AND 6774 /16702-0374 C<
TAD 6706 /16703-1306 KF
DCA FMS10 /16704-3032 XZ
JMP I 6707 /16705-5707 /G
AND 0000 /16706-0000 @@
AND 0000 /16707-0000 @@
AND 0000 /16710-0000 @@
CLA CLL CMA RAL /16711-7344 ;$
TAD 6710 /16712-1310 KH
DCA 6707 /16713-3307 [G
TAD I 6707 /16714-1707 OG
DCA 6707 /16715-3307 [G
TAD 0031 /16716-1031 HY
CLL RAL /16717-7104 9D
SNL /16720-7420 <P
JMP 6723 /16721-5323 +S
JMP 6727 /16722-5327 +W
SNA /16723-7450 <(
IAC /16724-7001 8A
DCA 0031 /16725-3031 XY
JMP I 6707 /16726-5707 /G
DCA 0031 /16727-3031 XY
JMP I 6710 /16730-5710 /H
AND 0000 /16731-0000 @@
TAD 6773 /16732-1373 K;
DCA 0010 /16733-3010 XH
TAD 6772 /16734-1372 K:
DCA 0011 /16735-3011 XI
CDF 0 /16736-6201 2A
DCA I 0010 /16737-3410 \H
TAD 6771 /16740-1371 K9
DCA I 0010 /16741-3410 \H
ISZ 0010 /16742-2010 PH
ISZ 0010 /16743-2010 PH
ISZ 0010 /16744-2010 PH
TAD 0016 /16745-1016 HN
DCA I 0011 /16746-3411 \I
TAD 0017 /16747-1017 HO
DCA I 0011 /16750-3411 \I
JMS I 6770 /16751-4770 '8
CDF 10 /16752-6211 2I
JMP I 6731 /16753-5731 /Y
AND 0000 /16754-0000 @@
TAD 0122 /16755-1122 IR
DCA 0020 /16756-3020 XP
TAD 6767 /16757-1367 K7
DCA 0010 /16760-3010 XH
TAD 6766 /16761-1366 K6
DCA I 0010 /16762-3410 \H
ISZ 0020 /16763-2020 PP
JMP 6761 /16764-5361 +1
JMP I 6754 /16765-5754 /,
JMS 0001 /16766-4001 A
JMP 6777 /16767-5377 +?
NOP /16770-7000 8@
AND 0050 /16771-0050 @(
JMP 6737 /16772-5337 +_
AND 0023 /16773-0023 @S
DCA I 6777 /16774-3777 _?
MQA SAM /16775-7557 =/
6061 /16776-6061 01
CIF CDF 0 /16777-6203 2C
PAGE
AND 0000 /17000-0000 @@
TAD 0031 /17001-1031 HY
DCA I 0010 /17002-3410 \H
TAD 0031 /17003-1031 HY
DCA I 0011 /17004-3411 \I
TAD FMS10 /17005-1032 HZ
DCA I 0010 /17006-3410 \H
TAD FMS10 /17007-1032 HZ
DCA I 0011 /17010-3411 \I
TAD FLS10 /17011-1033 H[
DCA I 0010 /17012-3410 \H
TAD FLS10 /17013-1033 H[
DCA I 0011 /17014-3411 \I
TAD 0034 /17015-1034 H\
DCA I 0010 /17016-3410 \H
TAD 0034 /17017-1034 H\
DCA I 0011 /17020-3411 \I
TAD 0035 /17021-1035 H]
DCA I 0010 /17022-3410 \H
TAD 0035 /17023-1035 H]
DCA I 0011 /17024-3411 \I
TAD 0036 /17025-1036 H^
DCA I 0010 /17026-3410 \H
TAD 0036 /17027-1036 H^
DCA I 0011 /17030-3411 \I
JMP I 7000 /17031-5600 .@
AND 0000 /17032-0000 @@
TAD 7045 /17033-1245 J%
DCA 0010 /17034-3010 XH
DCA 0023 /17035-3023 XS
DCA 0015 /17036-3015 XM
TAD 7046 /17037-1246 J&
DCA 0011 /17040-3011 XI
DCA I 0010 /17041-3410 \H
ISZ 0011 /17042-2011 PI
JMP 7041 /17043-5241 *!
JMP I 7032 /17044-5632 .Z
AND 0030 /17045-0030 @X
SPA SNA SZL CLA HLT /17046-7772 ?:
AND 0000 /17047-0000 @@
CLA CLL CMA /17050-7340 ;
TAD K40 /17051-1110 IH
DCA 0010 /17052-3010 XH
TAD 0123 /17053-1123 IS
DCA 0011 /17054-3011 XI
CDF 0 /17055-6201 2A
DCA I 0010 /17056-3410 \H
ISZ 0011 /17057-2011 PI
JMP 7056 /17060-5256 *.
TAD 0076 /17061-1076 H>
DCA I 0022 /17062-3422 \R
CDF 10 /17063-6211 2I
DCA 0036 /17064-3036 X^
JMP I 7047 /17065-5647 .'
AND 0000 /17066-0000 @@
TAD I 7066 /17067-1666 N6
DCA 7072 /17070-3272 Z:
JMS I 0073 /17071-4473 $;
AND 0000 /17072-0000 @@
TAD K40 /17073-1110 IH
DCA 0022 /17074-3022 XR
TAD 0123 /17075-1123 IS
DCA 0014 /17076-3014 XL
ISZ 7066 /17077-2266 R6
JMP I 7066 /17100-5666 .6
AND 0000 /17101-0000 @@
TAD 7110 /17102-1310 KH
CMA IAC /17103-7041 8!
TAD 7111 /17104-1311 KI
CMA IAC /17105-7041 8!
DCA F1CNT /17106-3141 Y!
JMP I 7101 /17107-5701 /A
DCA I 7000 /17110-3600 ^@
JMP 0016 /17111-5016 (N
TESTXX, JMS 0024 /17112-4024 T
AND I 0123 /17113-0523 ES
ISZ I 0040 /17114-2440 T
DCA 0030 /17115-3030 XX
AND 0000 /17116-0000 @@
EMLLLL, AND I 0130 /17117-0530 EX
ISZ 0040 /17120-2040 P
JMS 0015 /17121-4015 M
ISZ 7127 /17122-2327 SW
JMS 0040 /17123-4040
TAD I 0023 /17124-1423 LS
ISZ I 7160 /17125-2760 W0
JMS 0014 /17126-4014 L
ISZ 7127 /17127-2327 SW
6140 /17130-6140 1
TAD I 0023 /17131-1423 LS
ISZ I 7162 /17132-2762 W2
JMS 0014 /17133-4014 L
ISZ 7127 /17134-2327 SW
6300 /17135-6300 3@
RANARG, DCA I 7122 /17136-3722 _R
AND 0116 /17137-0116 AN
JMS 0016 /17140-4016 N
ISZ I 0115 /17141-2515 UM
JMS 0001 /17142-4001 A
ISZ 7007 /17143-2207 RG
JMS 0040 /17144-4040
AND 0000 /17145-0000 @@
BADARG, DCA I 7102 /17146-3702 _B
AND 0104 /17147-0104 AD
JMS 0022 /17150-4022 R
AND I 0123 /17151-0523 ES
JMS 0001 /17152-4001 A
ISZ 7007 /17153-2207 RG
JMS 0040 /17154-4040
AND 0000 /17155-0000 @@
MSWLSW, TAD I 0123 /17156-1523 MS
ISZ I 7140 /17157-2740 W
JMS 0014 /17160-4014 L
ISZ 7127 /17161-2327 SW
AND 0000 /17162-0000 @@
ACTAPT, DCA I 7101 /17163-3701 _A
AND 7124 /17164-0324 CT
ISZ I 0101 /17165-2501 UA
TAD I 0040 /17166-1440 L
AND 0120 /17167-0120 AP
ISZ I 0040 /17170-2440 T
AND 0116 /17171-0116 AN
AND I 0040 /17172-0440 D
ISZ 7124 /17173-2324 ST
AND 0124 /17174-0124 AT
ISZ I 0123 /17175-2523 US
CLA CMA /17176-7240 :
AND 0000 /17177-0000 @@
PAGE
IR0TO7, TAD 0122 /17200-1122 IR
TFL /17201-6040 0
JMS 0011 /17202-4011 I
ISZ 7261 /17203-2261 R1
JMS 0040 /17204-4040
TAD 0122 /17205-1122 IR
6240 /17206-6240 2
JMS 0011 /17207-4011 I
ISZ 7263 /17210-2263 R3
JMS 0040 /17211-4040
TAD 0122 /17212-1122 IR
6440 /17213-6440 4
JMS 0011 /17214-4011 I
ISZ 7265 /17215-2265 R5
JMS 0040 /17216-4040
TAD 0122 /17217-1122 IR
6640 /17220-6640 6
JMS 0011 /17221-4011 I
ISZ 7267 /17222-2267 R7
DCA I 7300 /17223-3700 _@
STAT, ISZ 7324 /17224-2324 ST
AND 0124 /17225-0124 AT
ISZ I 0123 /17226-2523 US
CLA /17227-7200 :@
FAILUR, JMS 0006 /17230-4006 F
AND 0111 /17231-0111 AI
TAD I 0025 /17232-1425 LU
ISZ 7205 /17233-2205 RE
CLA /17234-7200 :@
QUICKV, JMS 0021 /17235-4021 Q
ISZ I 0111 /17236-2511 UI
AND 7313 /17237-0313 CK
JMS 0026 /17240-4026 V
AND I 0122 /17241-0522 ER
TAD 0106 /17242-1106 IF
DCA 0100 /17243-3100 Y@
RANNUM, DCA I 7322 /17244-3722 _R
AND 0116 /17245-0116 AN
JMS 0016 /17246-4016 N
ISZ I 0115 /17247-2515 UM
JMS 0001 /17250-4001 A
ISZ 7207 /17251-2207 RG
6240 /17252-6240 2
AND 0000 /17253-0000 @@
DATAEX, AND I 7220 /17254-0620 FP
ISZ 0055 /17255-2055 P-
IAC /17256-7001 8A
JMS 0004 /17257-4004 D
AND 0124 /17260-0124 AT
AND 0140 /17261-0140 A
AND I 0130 /17262-0530 EX
JMP I 7200 /17263-5600 .@
INSERR, DCA I 7306 /17264-3706 _F
ISZ 0020 /17265-2020 PP
JMP I 0170 /17266-5570 -8
AND 0140 /17267-0140 A
TAD 0116 /17270-1116 IN
ISZ 7324 /17271-2324 ST
ISZ 7240 /17272-2240 R
ISZ I 0005 /17273-2405 TE
ISZ 7324 /17274-2324 ST
JMS 0006 /17275-4006 F
AND 0111 /17276-0111 AI
TAD I 0005 /17277-1405 LE
AND I 0040 /17300-0440 D
JMS 0040 /17301-4040
AND 0000 /17302-0000 @@
EXPAPT, DCA I 7305 /17303-3705 _E
DCA 0020 /17304-3020 XP
AND I 0103 /17305-0503 EC
ISZ I 0005 /17306-2405 TE
AND I 0040 /17307-0440 D
AND 0120 /17310-0120 AP
ISZ I 0040 /17311-2440 T
AND 0116 /17312-0116 AN
AND I 0040 /17313-0440 D
ISZ 7324 /17314-2324 ST
AND 0124 /17315-0124 AT
ISZ I 0123 /17316-2523 US
CLA /17317-7200 :@
STATER, JMS 0042 /17320-4042 "
ISZ 7324 /17321-2324 ST
AND 0124 /17322-0124 AT
ISZ I 0123 /17323-2523 US
JMS 0005 /17324-4005 E
ISZ 7222 /17325-2222 RR
JMS 7200 /17326-4200 "@
APTERR, DCA I 7314 /17327-3714 _L
TAD I 7303 /17330-1703 OC
AND 0124 /17331-0124 AT
TAD 0117 /17332-1117 IO
TAD I 7240 /17333-1640 N
AND 0106 /17334-0106 AF
ISZ I 0005 /17335-2405 TE
ISZ 7240 /17336-2240 R
AND 0120 /17337-0120 AP
ISZ I 0040 /17340-2440 T
TAD I 0117 /17341-1517 MO
AND I 0011 /17342-0411 DI
AND I 7211 /17343-0611 FI
AND I 0104 /17344-0504 ED
DCA I 7300 /17345-3700 _@
INST, JMS 0011 /17346-4011 I
TAD I 7223 /17347-1623 NS
ISZ I 0072 /17350-2472 T:
AND 0000 /17351-0000 @@
YORN, SPA SNA CLA /17352-7750 ?(
DCA 0140 /17353-3140 Y
TAD I 7322 /17354-1722 OR
JMS 0016 /17355-4016 N
JMP 0172 /17356-5172 ):
AND 0000 /17357-0000 @@
JMPERR, DCA I 7306 /17360-3706 _F
ISZ 0020 /17361-2020 PP
JMP I 0170 /17362-5570 -8
AND 0140 /17363-0140 A
TAD 7225 /17364-1225 JU
TAD I 0120 /17365-1520 MP
JMS 0006 /17366-4006 F
AND 0111 /17367-0111 AI
TAD I 0005 /17370-1405 LE
AND I 0040 /17371-0440 D
AND 0000 /17372-0000 @@
ADDR, JMS 0001 /17373-4001 A
AND I 0004 /17374-0404 DD
ISZ 7272 /17375-2272 R:
AND 0000 /17376-0000 @@
ULINE, DCA I 7300 /17377-3700 _@
PAGE
ILLINT, DCA I 7511 /17400-3711 _I
TAD I 0014 /17401-1414 LL
AND I 0107 /17402-0507 EG
AND 0114 /17403-0114 AL
JMS 0011 /17404-4011 I
TAD I 7424 /17405-1624 NT
AND I 0122 /17406-0522 ER
ISZ 7425 /17407-2225 RU
ISZ 0024 /17410-2024 PT
DCA I 7500 /17411-3700 _@
ISTNOS, DCA I 7506 /17412-3706 _F
ISZ 0011 /17413-2011 PI
ISZ 7524 /17414-2324 ST
JMS 0004 /17415-4004 D
TAD 0104 /17416-1104 ID
JMS 0016 /17417-4016 N
TAD I 7524 /17420-1724 OT
JMS 0023 /17421-4023 S
TAD 7511 /17422-1311 KI
ISZ 0037 /17423-2037 P_
AND 0000 /17424-0000 @@
FPMOD1, JMP I 0106 /17425-5506 -F
ISZ 0056 /17426-2056 P.
JMS 0015 /17427-4015 M
TAD I 7504 /17430-1704 OD
AND I 0137 /17431-0537 E_
AND 0000 /17432-0000 @@
DPMOD1, JMP I 0104 /17433-5504 -D
ISZ 0056 /17434-2056 P.
JMS 0015 /17435-4015 M
TAD I 7504 /17436-1704 OD
AND I 0137 /17437-0537 E_
AND 0000 /17440-0000 @@
EPMOD1, JMP I 0105 /17441-5505 -E
ISZ 0056 /17442-2056 P.
JMS 0015 /17443-4015 M
TAD I 7504 /17444-1704 OD
AND I 0137 /17445-0537 E_
AND 0000 /17446-0000 @@
TIMO, ISZ I 0011 /17447-2411 TI
TAD I 0105 /17450-1505 ME
JMS 0017 /17451-4017 O
ISZ I 0124 /17452-2524 UT
JMS 0000 /17453-4000 @
PASS, JMS 0020 /17454-4020 P
AND 0123 /17455-0123 AS
ISZ 7572 /17456-2372 S:
AND 0000 /17457-0000 @@
DJFPB, DCA I 7504 /17460-3704 _D
TAD 7406 /17461-1206 JF
ISZ 0002 /17462-2002 PB
CLA /17463-7200 :@
INSTST, AND I 7420 /17464-0620 FP
ISZ 0055 /17465-2055 P-
IAC /17466-7001 8A
JMS 0011 /17467-4011 I
TAD I 7423 /17470-1623 NS
ISZ I 0022 /17471-2422 TR
JMP I 7440 /17472-5640 .
ISZ I 0005 /17473-2405 TE
ISZ 7524 /17474-2324 ST
AND 0000 /17475-0000 @@
BUCOER, DCA I 7542 /17476-3742 _"
AND 7425 /17477-0225 BU
AND I 7406 /17500-0606 FF
JMS 0003 /17501-4003 C
TAD I 7515 /17502-1715 OM
ISZ 0001 /17503-2001 PA
ISZ 7405 /17504-2205 RE
JMS 0005 /17505-4005 E
ISZ 7422 /17506-2222 RR
TAD I 7522 /17507-1722 OR
JMS 7400 /17510-4200 "@
APTTBL, 7401 /17511-7401 <A
ISZ 0024 /17512-2024 PT
JMS 0024 /17513-4024 T
AND 0102 /17514-0102 AB
TAD I 0005 /17515-1405 LE
7600 /17516-7600 >@
LOCS, TAD I 0017 /17517-1417 LO
AND 7572 /17520-0372 C:
AND 0000 /17521-0000 @@
EQTXT, SMA /17522-7500 =@
RUNING, DCA I 7522 /17523-3722 _R
ISZ I 0116 /17524-2516 UN
TAD I 7411 /17525-1611 NI
TAD I 7407 /17526-1607 NG
JMS 0000 /17527-4000 @
EXPBAS, DCA I 7505 /17530-3705 _E
DCA 0020 /17531-3020 XP
JMS 0002 /17532-4002 B
AND 0123 /17533-0123 AS
AND I 0140 /17534-0540 E
ISZ 7405 /17535-2205 RE
ISZ 7525 /17536-2325 SU
TAD I 0024 /17537-1424 LT
ISZ 7537 /17540-2337 S_
AND 0000 /17541-0000 @@
ACTBAS, DCA I 7501 /17542-3701 _A
AND 7524 /17543-0324 CT
JMS 0002 /17544-4002 B
AND 0123 /17545-0123 AS
AND I 0140 /17546-0540 E
ISZ 7405 /17547-2205 RE
ISZ 7525 /17550-2325 SU
TAD I 0024 /17551-1424 LT
ISZ 7537 /17552-2337 S_
AND 0000 /17553-0000 @@
FLDXX, AND I 7411 /17554-0611 FI
AND I 0114 /17555-0514 EL
AND I 0040 /17556-0440 D
XXFLD, DCA 0030 /17557-3030 XX
JMS 0000 /17560-4000 @
RELOCT, JMS 0022 /17561-4022 R
AND I 0114 /17562-0514 EL
TAD I 7503 /17563-1703 OC
AND 0000 /17564-0000 @@
MQA MQL CLA DCM /17565-7775 ?=
6737 /17566-6737 7_
AND 0017 /17567-0017 @O
CLA LSR /17570-7617 >O
AND 7400 /17571-0200 B@
JMP 7400 /17572-5200 *@
ISZ I 0153 /17573-2553 U+
JMS I 7447 /17574-4647 &'
DCA I 7537 /17575-3737 __
6022 /17576-6022 0R
ISZ I 7400 /17577-2600 V@
FIELD 0
*0000
303 /00000-0303 CC
JMP I INT /00001-5402 ,B
INT, INTRPT /00002-0300 C@
CDF10, AND 0000 /00003-0000 @@
CIF10, AND 0000 /00004-0000 @@
NOEX, AND 0000 /00005-0000 @@
302 /00006-0302 CB
AND 0000 /00007-0000 @@
AND 0000 /00010-0000 @@
AND 0000 /00011-0000 @@
AND 0000 /00012-0000 @@
AND 0000 /00013-0000 @@
AND 0000 /00014-0000 @@
AND 0000 /00015-0000 @@
AND 0000 /00016-0000 @@
AND 0000 /00017-0000 @@
SW, AND 0000 /00020-0000 @@ /SOFTWARE SWITCH
SOFT, AND 0007 /00021-0007 @G /NEG HARDWARE SWITCH
MODEX8, AND 0000 /00022-0000 @@
AND 0151 /00023-0151 A)
APT, AND 0000 /00024-0000 @@
FPC, 5400 /00025-5400 ,@
INDXAD, INDEX /00026-0040 @
BASEAD, BASE0 /00027-6000 0@
OPADD, 0000 /00030-0000 @@
FAC, AND 0000 /00031-0000 @@
FMS, AND 0000 /00032-0000 @@
FLS, AND 0000 /00033-0000 @@
AND 0000 /00034-0000 @@
AND 0000 /00035-0000 @@
AND 0000 /00036-0000 @@
MQA MQL CLA SAM /00037-7777 ??
INDEX, AND 0000 /00040-0000 @@
AND 0000 /00041-0000 @@
AND 0000 /00042-0000 @@
AND 0000 /00043-0000 @@
AND 0000 /00044-0000 @@
AND 0000 /00045-0000 @@
AND 0000 /00046-0000 @@
AND 0000 /00047-0000 @@
AND 0000 /00050-0000 @@
AND 0000 /00051-0000 @@
JMS 0000 /00052-4000 @
JMS 0000 /00053-4000 @
JMS 0000 /00054-4000 @
MES, MESG /00055-3000 X@
MES10, MESG10 /00056-3145 Y%
XGO, GO /00057-0217 BO
VT, VTAB /00060-6543 5#
PUN, PUNCH /00061-3106 YF
RDECHO, READEC /00062-3135 Y]
GETSW, SWGET /00063-7273 :;
LPBCK, LOOP /00064-6600 6@
DIGS, DIGITS /00065-7304 ;D
F0, F0000 /00066-2610 VH
F7, F7777 /00067-2616 VN
F25, F2525 /00070-2625 VU
F52, F5252 /00071-2634 V\
FXX, FXXXX /00072-2643 V#
TSTIT, TEST /00073-2701 WA
CHKIT, CHECK /00074-7000 8@
CLEARX, CLINDX /00075-2653 V+
CTCG, CTRLCG /00076-7200 :@
CTQS, CTRLQS /00077-7225 :U
INIT0, I0 /00100-7341 ;!
CHKBP, CHECKB /00101-6633 6[
READCH, READC /00102-3115 YM
DCA I 0134 /00103-3534 ]\
X8, CHKX8 /00104-3562 ]2
C1, 1 /00105-0001 @A
C2, 2 /00106-0002 @B
C4, 4 /00107-0004 @D
C7, 7 /00110-0007 @G
C10, 10 /00111-0010 @H
AND 0020 /00112-0020 @P
XAPT, APT /00113-0024 @T
C40, 40 /00114-0040 @
C70, 70 /00115-0070 @8
C100, 100 /00116-0100 A@
C200, 200 /00117-0200 B@
C240, 240 /00120-0240 B
C260, 260 /00121-0260 B0
C277, 277 /00122-0277 B?
777 /00123-0777 G?
TAD 0000 /00124-1000 H@
ISZ 0000 /00125-2000 P@
C2525, 2525 /00126-2525 UU
NOP /00127-7000 8@
C5252, 5252 /00130-5252 **
SMA CLA /00131-7700 ?@
M4, SPA SNA SZL CLA OSR /00132-7774 ?<
GOI, TESTI /00133-0400 D@
GO1, RECOVR /00134-0241 B!
AND 0000 /00135-0000 @@
AND 0000 /00136-0000 @@
CHTMP, AND 0000 /00137-0000 @@
INCHAR, 0000 /00140-0000 @@
DPMODE, AND 0000 /00141-0000 @@
FBITS, AND 0000 /00142-0000 @@
EPMODE, AND 0000 /00143-0000 @@
FUNC, 215 /00144-0215 BM
PCLOC, AND 0000 /00145-0000 @@
AND 0000 /00146-0000 @@
COUNT, AND 0000 /00147-0000 @@
AND 0000 /00150-0000 @@
AND 0000 /00151-0000 @@
AND 0000 /00152-0000 @@
AND 0000 /00153-0000 @@
AND 0000 /00154-0000 @@
SPA SNA SZL CLA /00155-7770 ?8
GTFLG, AND 0000 /00156-0000 @@
AND 0000 /00157-0000 @@
AND 0000 /00160-0000 @@
AND 0000 /00161-0000 @@
ACSAV, AND 0000 /00162-0000 @@
AND 0000 /00163-0000 @@
AND 0004 /00164-0004 @D
AND 0077 /00165-0077 @?
SPA SNA SZL CLA HLT /00166-7772 ?:
SMA SZA CLA OSR HLT /00167-7746 ?&
MQL SAM /00170-7477 <?
SMA SZA SNL CLA OSR HLT /00171-7766 ?6
SPA SNA SZL CLA OSR HLT /00172-7776 ?>
SMA SNL HLT /00173-7522 =R
240 /00174-0240 B
SMA SZA /00175-7540 =
INTLOC, AND 0000 /00176-0000 @@
AND 0000 /00177-0000 @@
PAGE
STRT, CAF /00200-6007 0G
IOF /00201-6002 0B
CIF CDF 0 /00202-6203 2C
JMS I INIT0 /00203-4500 %@
STRTO, TAD (JMP I GO1 /00204-1377 K?
DCA 0000 /00205-3000 X@
TAD MODEX8 /00206-1022 HR
SPA CLA /00207-7710 ?H
JMP I (GO2 /00210-5776 />
JMS I MES /00211-4455 $-
LINE1 /00212-7366 ;6
JMS I MES /00213-4455 $-
PRODUC /00214-7411 <I
JMS I LPBCK /00215-4464 $4
GO /00216-0217 BO
GO, CAF /00217-6007 0G
CIF CDF 0 /00220-6203 2C
DCA NOEX /00221-3005 XE
JMS I INIT0 /00222-4500 %@
DCA I (541 /00223-3775 _=
CDF 10 /00224-6211 2I
DCA I 0006 /00225-3406 \F
CDF 0 /00226-6201 2A
JMS I MES /00227-4455 $-
TYPEI /00230-7423 <S
JMS I MES /00231-4455 $-
TYPEE /00232-7446 <&
JMS I MES /00233-4455 $-
TYPEB /00234-7470 <8
TAD ("* /00235-1374 K<
JMS I PUN /00236-4461 $1
JMS I RDECHO /00237-4462 $2
DCA FUNC /00240-3144 Y$
RECOVR, CLA CLL /00241-7300 ;@
TAD (JMP I GO1 /00242-1377 K?
DCA 0000 /00243-3000 X@
TAD FUNC /00244-1144 I$
TAD (-215 /00245-1373 K;
SZA CLA /00246-7640 >
JMP NCR /00247-5253 *+
ISZ I (RELDON /00250-2772 W:
JMS I VT /00251-4460 $0
JMP I GOI /00252-5533 -[
NCR, TAD FUNC /00253-1144 I$
TAD (-"I /00254-1371 K9
SZA CLA /00255-7640 >
JMP NI /00256-5261 *1
ISZ NOEX /00257-2005 PE
JMP I GOI /00260-5533 -[
NI, TAD FUNC /00261-1144 I$
TAD (-"B /00262-1370 K8
SNA CLA /00263-7650 >(
JMP YB /00264-5276 *>
TAD FUNC /00265-1144 I$
TAD (-"E /00266-1367 K7
SZA CLA /00267-7640 >
JMP GO /00270-5217 *O
JMS I VT /00271-4460 $0
ISZ NOEX /00272-2005 PE
JMS I (GOE /00273-4766 '6
CIF CDF 10 /00274-6213 2K
JMP STRT10 /00275-5200 *@
YB, JMS I (GOE /00276-4766 '6
JMP I GOI /00277-5533 -[
INTRPT, JMS I (RSAV /00300-4765 '5
GTF /00301-6004 0D
DCA GTFLG /00302-3156 Y.
6102 /00303-6102 1B
SKP /00304-7410 <H
JMP I (PWRSKP /00305-5764 /4
KSF /00306-6031 0Y
JMP NKBD /00307-5316 +N
KRB /00310-6036 0^
AND (177 /00311-0363 C3
TAD C200 /00312-1117 IO
DCA INCHAR /00313-3140 Y
JMS I CTCG /00314-4476 $>
JMP INTEND /00315-5335 +]
NKBD, FPINT /00316-6551 5)
JMP .+3 /00317-5322 +R
CIF CDF 10 /00320-6213 2K
JMP I (INTRP1 /00321-5762 /2
TSF /00322-6041 0!
JMP NOTTY /00323-5326 +V
TCF /00324-6042 0"
JMP INTEND /00325-5335 +]
NOTTY, TAD (.+4 /00326-1361 K1
DCA PCLOC /00327-3145 Y%
JMS I X8 /00330-4504 %D
JMS I MES10 /00331-4456 $.
ILLINT /00332-7400 <@
CAF /00333-6007 0G
JMP RECOVR /00334-5241 *!
INTEND, JMS I (LDMQ /00335-4760 '0
TAD GTFLG /00336-1156 I.
RTF /00337-6005 0E
CLA /00340-7200 :@
TAD ACSAV /00341-1162 I2
JMP I INTLOC /00342-5576 ->
RUNIT, AND 0000 /00343-0000 @@
TAD (FPC1 /00344-1357 K/
DCA FPC /00345-3025 XU
CLA CLL CML RAR /00346-7330 ;X
DCA EPMODE /00347-3143 Y#
DCA DPMODE /00350-3141 Y!
JMS I 0356 /00351-4756 '.
JMP I RUNIT /00352-5743 /#
AND 0165 /00353-0165 A5
SNA /00354-7450 <(
JMP I 0352 /00355-5752 /*
AND I 0200 /00356-0600 F@
/JMP I 0000 /00357-5400 ,@
/CLA CMA CML IAC /00360-7261 :1
/AND 0332 /00361-0332 CZ
/TAD 0000 /00362-1000 H@
/AND 0177 /00363-0177 A?
/CLA CMA CML RTL /00364-7266 :6
/CLA CMA RAR /00365-7250 :(
/DCA I 0000 /00366-3400 \@
/MQL DPIC /00367-7473 <;
/SNA SZL OSR HLT /00370-7476 <>
/MQL SWBA /00371-7467 <7
/DCA I 0054 /00372-3454 \,
/MQA MQL DAD /00373-7563 =3
/AND 0252 /00374-0252 B*
/AND I 0141 /00375-0541 E!
/AND I 0001 /00376-0401 DA
/JMP I 0134 /00377-5534 -\
PAGE
TESTI, JMS I (HEAD1 /00400-4777 '?
GO2, TAD 0155 /00401-1155 I-
DCA 0153 /00402-3153 Y+
MQL CLA /00403-7621 >Q
DCA FBITS /00404-3142 Y"
DCA 0157 /00405-3157 Y/
JMS SETF0 /00406-4343 ##
DCA 0157 /00407-3157 Y/
JMS I (LNK26 /00410-4776 '>
0000 /00411-0000 @@
JMS I (RUNIT /00412-4775 '=
JMS SETF0 /00413-4343 ##
TAD C1 /00414-1105 IE
DCA FBITS /00415-3142 Y"
JMS I (LNK26 /00416-4776 '>
0011 /00417-0011 @I FDWX F=1 X=1
JMS I (RUNIT /00420-4775 '=
JMS SETF0 /00421-4343 ##
TAD C100 /00422-1116 IN
DCA FBITS /00423-3142 Y"
JMS I (LNK26 /00424-4776 '>
0002 /00425-0002 @B DW=1
JMS I (SETF1 /00426-4774 '<
JMS I (RUNIT /00427-4775 '=
JMS SETF0 /00430-4343 ##
TAD (0101 /00431-1373 K;
DCA FBITS /00432-3142 Y"
JMS I (LNK26 /00433-4776 '>
0000 /00434-0000 @@
JMS I (LNK26 /00435-4776 '>
0013 /00436-0013 @K F=1 DW=1 X=1
JMS I (SETF1 /00437-4774 '<
JMS I (RUNIT /00440-4775 '=
JMS SETF0 /00441-4343 ##
TAD C10 /00442-1111 II
DCA FBITS /00443-3142 Y"
JMS I (LNK26 /00444-4776 '>
0000 /00445-0000 @@
JMS I (RUNIT /00446-4775 '=
JMS SETF0 /00447-4343 ##
TAD (0011 /00450-1372 K:
DCA FBITS /00451-3142 Y"
JMS I (LNK26 /00452-4776 '>
0011 /00453-0011 @I
JMS I (RUNIT /00454-4775 '=
JMS SETF0 /00455-4343 ##
TAD (0110 /00456-1371 K9
DCA FBITS /00457-3142 Y"
JMS I (LNK26 /00460-4776 '>
0002 /00461-0002 @B
JMS I (SETF1 /00462-4774 '<
JMS I (RUNIT /00463-4775 '=
JMS SETF0 /00464-4343 ##
TAD (0111 /00465-1370 K8
DCA FBITS /00466-3142 Y"
JMS I (LNK26 /00467-4776 '>
0000 /00470-0000 @@
JMS I (LNK26 /00471-4776 '>
0013 /00472-0013 @K
JMS I (SETF1 /00473-4774 '<
JMS I (RUNIT /00474-4775 '=
JMS SETF0 /00475-4343 ##
CIF CDF 10 /00476-6213 2K
JMS I 0542 /00477-4742 '"
JMS I (X6500 /00500-4767 '7
2153 /00501-2153 Q+
JMP 0403 /00502-5203 *C
TAD MODEX8 /00503-1022 HR
SPA CLA /00504-7710 ?H
JMP 0530 /00505-5330 +X
ISZ 0541 /00506-2341 S!
NOP /00507-7000 8@
JMS I GETSW /00510-4463 $3
AND C40 /00511-0114 AL
SZA CLA /00512-7640 >
JMP 0525 /00513-5325 +U
JMS I MES10 /00514-4456 $.
DJFPB /00515-7460 <0
JMS I MES10 /00516-4456 $.
INSTST /00517-7464 <4
JMS I MES10 /00520-4456 $.
PASS /00521-7454 <,
TAD 0541 /00522-1341 K!
JMS I DIGS /00523-4465 $5
JMS I VT /00524-4460 $0
TAD NOEX /00525-1005 HE
SZA CLA /00526-7640 >
JMP 0532 /00527-5332 +Z
CIF CDF 10 /00530-6213 2K
JMP I (STRTO /00531-5766 /6
JMS I GETSW /00532-4463 $3
AND (0400 /00533-0365 C5
SNA CLA /00534-7650 >(
JMP 0401 /00535-5201 *A
JMS I LPBCK /00536-4464 $4
AND I 0140 /00537-0540 E
JMP 0400 /00540-5200 *@
AND 0000 /00541-0000 @@
DCA I 0000 /00542-3400 \@
SETF0, AND 0000 /00543-0000 @@
TAD (CDF 0 /00544-1364 K4
DCA I (CDF1 /00545-3763 _3
TAD (CDF 0 /00546-1364 K4
DCA I (CDF2 /00547-3762 _2
TAD (CDF 0 /00550-1364 K4
DCA I (CDF3 /00551-3761 _1
ISZ 0157 /00552-2157 Q/
CIF CDF 10 /00553-6213 2K
JMS I .+2 /00554-4756 '.
JMP I SETF0 /00555-5743 /#
CLEAR1 /00556-2327 SW
JMS I 0000 /00557-4400 $@
ISZ I 0101 /00560-2501 UA
/6650 /00561-6650 6(
/ISZ I 0473 /00562-2673 V;
/6703 /00563-6703 7C
/CDF 0 /00564-6201 2A
/AND I 0000 /00565-0400 D@
/AND 0404 /00566-0204 BD
/6500 /00567-6500 5@
/AND 0111 /00570-0111 AI
/AND 0110 /00571-0110 AH
/AND 0011 /00572-0011 @I
/AND 0101 /00573-0101 AA
/6730 /00574-6730 7X
/AND 0543 /00575-0343 C#
/DCA I 0153 /00576-3553 ]+
/7354 /00577-7354 ;,
PAGE
AND 0000 /00600-0000 @@
FPICL /00601-6552 5*
JMP 0604 /00602-5204 *D
JMP I 0600 /00603-5600 .@
JMS I F7 /00604-4467 $7
JMS I TSTIT /00605-4473 $;
5411 /00606-5411 ,I
JMS I CHKIT /00607-4474 $<
3600 /00610-3600 ^@
JMS I LPBCK /00611-4464 $4
0604 /00612-0604 FD
JMS I F0 /00613-4466 $6
TAD C1 /00614-1105 IE
DCA 0036 /00615-3036 X^
JMS I TSTIT /00616-4473 $;
TFNEG /00617-5413 ,K
JMS I CHKIT /00620-4474 $<
3611 /00621-3611 ^I
JMS I LPBCK /00622-4464 $4
0613 /00623-0613 FK
JMS I F7 /00624-4467 $7
JMS I TSTIT /00625-4473 $;
TFNEG /00626-5413 ,K
JMS I CHKIT /00627-4474 $<
3622 /00630-3622 ^R
JMS I LPBCK /00631-4464 $4
0624 /00632-0624 FT
JMS I F25 /00633-4470 $8
JMS I TSTIT /00634-4473 $;
TFNEG3 /00635-5415 ,M
JMS I CHKIT /00636-4474 $<
3633 /00637-3633 ^[
JMS I LPBCK /00640-4464 $4
0633 /00641-0633 F[
JMS I F0 /00642-4466 $6
CLA CLL IAC /00643-7301 ;A
DCA 0036 /00644-3036 X^
JMS I TSTIT /00645-4473 $;
TFNORM /00646-5421 ,Q
JMS I CHKIT /00647-4474 $<
DCA I 0644 /00650-3644 ^$
JMS I LPBCK /00651-4464 $4
0642 /00652-0642 F"
JMS I F0 /00653-4466 $6
TAD 0777 /00654-1377 K?
DCA 0036 /00655-3036 X^
JMS I TSTIT /00656-4473 $;
TFNORM /00657-5421 ,Q
JMS I CHKIT /00660-4474 $<
DCA I 0655 /00661-3655 ^-
JMS I LPBCK /00662-4464 $4
0653 /00663-0653 F+
JMS I F7 /00664-4467 $7
CLA CLL CMA RAL /00665-7344 ;$
DCA 0036 /00666-3036 X^
JMS I TSTIT /00667-4473 $;
TFNORM /00670-5421 ,Q
JMS I CHKIT /00671-4474 $<
DCA I 0666 /00672-3666 ^6
JMS I LPBCK /00673-4464 $4
0664 /00674-0664 F4
JMS I F0 /00675-4466 $6
CLA CLL CML RAR /00676-7330 ;X
DCA FMS /00677-3032 XZ
JMS I TSTIT /00700-4473 $;
TFNORM /00701-5421 ,Q
JMS I CHKIT /00702-4474 $<
DCA I 0677 /00703-3677 ^?
JMS I LPBCK /00704-4464 $4
0675 /00705-0675 F=
JMS I F7 /00706-4467 $7
JMS I CLEARX /00707-4475 $=
CLA CLL IAC /00710-7301 ;A
JMS I 0103 /00711-4503 %C
AND 0040 /00712-0040 @
JMS I TSTIT /00713-4473 $;
TXTA0 /00714-5423 ,S
JMS I CHKIT /00715-4474 $<
DCA I 0710 /00716-3710 _H
JMS I LPBCK /00717-4464 $4
0706 /00720-0706 GF
JMS I F25 /00721-4470 $8
JMS I CLEARX /00722-4475 $=
CLA CLL CMA RAL /00723-7344 ;$
JMS I 0103 /00724-4503 %C
AND 0047 /00725-0047 @'
JMS I TSTIT /00726-4473 $;
TXTA7 /00727-5425 ,U
JMS I CHKIT /00730-4474 $<
DCA I 0721 /00731-3721 _Q
JMS I LPBCK /00732-4464 $4
0721 /00733-0721 GQ
JMS I F0 /00734-4466 $6
JMS I CLEARX /00735-4475 $=
TAD 0776 /00736-1376 K>
JMS I 0103 /00737-4503 %C
AND 0041 /00740-0041 @!
CLA CLL IAC /00741-7301 ;A
DCA 0036 /00742-3036 X^
JMS I TSTIT /00743-4473 $;
TALN1 /00744-5427 ,W
JMS I CHKIT /00745-4474 $<
DCA I 0732 /00746-3732 _Z
JMS I LPBCK /00747-4464 $4
0734 /00750-0734 G\
JMS I F0 /00751-4466 $6
JMS I 0075 /00752-4475 $=
TAD 0775 /00753-1375 K=
JMS I 0103 /00754-4503 %C
AND 0042 /00755-0042 @"
CLA CLL CML RTR /00756-7332 ;Z
DCA FMS /00757-3032 XZ
JMS I TSTIT /00760-4473 $;
TALN2 /00761-5431 ,Y
JMS I CHKIT /00762-4474 $<
DCA I 0743 /00763-3743 _#
JMS I LPBCK /00764-4464 $4
0751 /00765-0751 G)
JMP I 0774 /00766-5774 /<
AND I 0777 /00767-0777 G?
AND 0730 /00770-0330 CX
CLA DVI /00771-7607 >G
AND 0600 /00772-0200 B@
SMA SZA CLA OSR HLT /00773-7746 ?&
TAD 0000 /00774-1000 H@
AND 0072 /00775-0072 @:
SMA CLA OSR HLT /00776-7706 ?F
AND 0005 /00777-0005 @E
PAGE
JMS I F0 /01000-4466 $6
JMS I CLEARX /01001-4475 $=
TAD (72 /01002-1377 K?
JMS I 0103 /01003-4503 %C
AND 0043 /01004-0043 @#
CLA CLL CML IAC RTR /01005-7333 ;[
DCA FMS /01006-3032 XZ
JMS I TSTIT /01007-4473 $;
TALN3 /01010-5433 ,[
JMS I CHKIT /01011-4474 $<
DCA I 1154 /01012-3754 _,
JMS I LPBCK /01013-4464 $4
1000 /01014-1000 H@
JMS I F0 /01015-4466 $6
JMS I CLEARX /01016-4475 $=
TAD (-72 /01017-1376 K>
DCA 0031 /01020-3031 XY
CLA CLL CML RTR /01021-7332 ;Z
DCA FMS /01022-3032 XZ
JMS I TSTIT /01023-4473 $;
TALN0 /01024-5435 ,]
JMS I CHKIT /01025-4474 $<
DCA I 1165 /01026-3765 _5
JMS I LPBCK /01027-4464 $4
1015 /01030-1015 HM
JMS I F0 /01031-4466 $6
JMS I TSTIT /01032-4473 $;
TFLB30 /01033-5437 ,_
JMS I CHKIT /01034-4474 $<
DCA I 1176 /01035-3776 _>
JMS I LPBCK /01036-4464 $4
1031 /01037-1031 HY
JMS I F7 /01040-4467 $7
JMS I TSTIT /01041-4473 $;
TFLB36 /01042-5441 ,!
JMS I CHKIT /01043-4474 $<
JMS 0007 /01044-4007 G
JMS I LPBCK /01045-4464 $4
1040 /01046-1040 H
JMS I F7 /01047-4467 $7
JMS I CLEARX /01050-4475 $=
JMS I TSTIT /01051-4473 $;
TFLX0P /01052-5443 ,#
JMS I CHKIT /01053-4474 $<
JMS 0020 /01054-4020 P
JMS I LPBCK /01055-4464 $4
1047 /01056-1047 H'
JMS I F0 /01057-4466 $6
JMS I CLEARX /01060-4475 $=
CLA CLL IAC /01061-7301 ;A
JMS I 0103 /01062-4503 %C
AND 0044 /01063-0044 @$
JMS I TSTIT /01064-4473 $;
TFLX0 /01065-5446 ,&
JMS I CHKIT /01066-4474 $<
JMS 0031 /01067-4031 Y
JMS I LPBCK /01070-4464 $4
1057 /01071-1057 H/
JMS I F0 /01072-4466 $6
JMS I CLEARX /01073-4475 $=
JMS I TSTIT /01074-4473 $;
TFLX4P /01075-5451 ,)
JMS I CHKIT /01076-4474 $<
JMS 0042 /01077-4042 "
JMS I LPBCK /01100-4464 $4
1072 /01101-1072 H:
JMS I F25 /01102-4470 $8
JMS I CLEARX /01103-4475 $=
CLA CLL IAC /01104-7301 ;A
JMS I 0103 /01105-4503 %C
AND 0044 /01106-0044 @$
JMS I TSTIT /01107-4473 $;
TFLX4P /01110-5451 ,)
JMS I CHKIT /01111-4474 $<
JMS 0053 /01112-4053 +
JMS I LPBCK /01113-4464 $4
1102 /01114-1102 IB
JMS I F25 /01115-4470 $8
JMS I CLEARX /01116-4475 $=
JMS I TSTIT /01117-4473 $;
TFIX4 /01120-5454 ,,
JMS I CHKIT /01121-4474 $<
JMS 0064 /01122-4064 4
JMS I LPBCK /01123-4464 $4
1115 /01124-1115 IM
JMS I F7 /01125-4467 $7
JMS I CLEARX /01126-4475 $=
CLA CLL IAC /01127-7301 ;A
JMS I 0103 /01130-4503 %C
AND 0044 /01131-0044 @$
JMS I TSTIT /01132-4473 $;
TFIX4 /01133-5454 ,,
JMS I CHKIT /01134-4474 $<
JMS 0075 /01135-4075 =
JMS I LPBCK /01136-4464 $4
1125 /01137-1125 IU
JMS I F7 /01140-4467 $7
JMS I CLEARX /01141-4475 $=
CLA CLL IAC /01142-7301 ;A
JMS I 0103 /01143-4503 %C
AND 0044 /01144-0044 @$
JMS I TSTIT /01145-4473 $;
TFIX4P /01146-5456 ,.
JMS I CHKIT /01147-4474 $<
JMS 0106 /01150-4106 !F
JMS I LPBCK /01151-4464 $4
1140 /01152-1140 I
JMS I F52 /01153-4471 $9
JMS I (CLRBP /01154-4775 '=
JMS I TSTIT /01155-4473 $;
FSB116 /01156-5460 ,0
JMS I CHKBP /01157-4501 %A
JMS 0130 /01160-4130 !X
JMS I CHKIT /01161-4474 $<
JMS 0117 /01162-4117 !O
JMS I LPBCK /01163-4464 $4
1153 /01164-1153 I+
JMP I 1174 /01165-5774 /<
TAD 1053 /01166-1253 J+
TAD 0074 /01167-1074 H<
DCA 0034 /01170-3034 X\
JMS I 1176 /01171-4776 '>
TAD 0073 /01172-1073 H;
JMS I 0023 /01173-4423 $S
1200 /01174-1200 J@
/ISZ I 1065 /01175-2665 V5
/SMA CLA OSR HLT /01176-7706 ?F
/AND 0072 /01177-0072 @:
PAGE
JMS I F25 /01200-4470 $8
DCA 0031 /01201-3031 XY
JMS I TSTIT /01202-4473 $;
FAB066 /01203-5462 ,2
JMS I CHKIT /01204-4474 $<
JMS 0136 /01205-4136 !^
JMS I LPBCK /01206-4464 $4
1200 /01207-1200 J@
JMS I F0 /01210-4466 $6
CLA CLL IAC /01211-7301 ;A
DCA 0036 /01212-3036 X^
JMS I TSTIT /01213-4473 $;
FAB110 /01214-5464 ,4
JMS I CHKIT /01215-4474 $<
JMS 0147 /01216-4147 !'
JMS I LPBCK /01217-4464 $4
1210 /01220-1210 JH
JMS I F7 /01221-4467 $7
CLA CLL CMA RTL /01222-7346 ;&
DCA 0036 /01223-3036 X^
DCA 0031 /01224-3031 XY
JMS I TSTIT /01225-4473 $;
FAB110 /01226-5464 ,4
JMS I CHKIT /01227-4474 $<
JMS 0160 /01230-4160 !0
JMS I LPBCK /01231-4464 $4
1221 /01232-1221 JQ
JMS I F7 /01233-4467 $7
CLA CLL CMA RAR /01234-7350 ;(
DCA FMS /01235-3032 XZ
JMS I TSTIT /01236-4473 $;
FAB124 /01237-5466 ,6
JMS I CHKIT /01240-4474 $<
JMS 0171 /01241-4171 !9
JMS I LPBCK /01242-4464 $4
1233 /01243-1233 J[
TAD 1377 /01244-1377 K?
JMS I FXX /01245-4472 $:
TAD 1376 /01246-1376 K>
DCA FMS /01247-3032 XZ
JMS I TSTIT /01250-4473 $;
FAB132 /01251-5470 ,8
JMS I CHKIT /01252-4474 $<
JMS 1202 /01253-4202 "B
JMS I LPBCK /01254-4464 $4
1244 /01255-1244 J$
TAD 1375 /01256-1375 K=
JMS I FXX /01257-4472 $:
JMS I TSTIT /01260-4473 $;
FAB140 /01261-5472 ,:
JMS I CHKIT /01262-4474 $<
JMS 1213 /01263-4213 "K
JMS I LPBCK /01264-4464 $4
1256 /01265-1256 J.
TAD 1374 /01266-1374 K<
JMS I FXX /01267-4472 $:
JMS I TSTIT /01270-4473 $;
FAB146 /01271-5474 ,<
JMS I CHKIT /01272-4474 $<
JMS 1224 /01273-4224 "T
JMS I LPBCK /01274-4464 $4
1266 /01275-1266 J6
JMS I F7 /01276-4467 $7
CLA CLL CMA RAL /01277-7344 ;$
DCA 0036 /01300-3036 X^
JMS I TSTIT /01301-4473 $;
FAB154 /01302-5476 ,>
JMS I CHKIT /01303-4474 $<
JMS 1235 /01304-4235 "]
JMS I LPBCK /01305-4464 $4
1276 /01306-1276 J>
JMS I F7 /01307-4467 $7
CLA CLL CMA RAR /01310-7350 ;(
DCA FMS /01311-3032 XZ
JMS I TSTIT /01312-4473 $;
FSB162 /01313-5500 -@
JMS I CHKIT /01314-4474 $<
JMS 1246 /01315-4246 "&
JMS I LPBCK /01316-4464 $4
1307 /01317-1307 KG
JMS I F0 /01320-4466 $6
CLA CLL CML RAR /01321-7330 ;X
DCA FMS /01322-3032 XZ
CLA CLL IAC /01323-7301 ;A
DCA 0036 /01324-3036 X^
JMS I TSTIT /01325-4473 $;
FSB170 /01326-5502 -B
JMS I CHKIT /01327-4474 $<
JMS 1257 /01330-4257 "/
JMS I LPBCK /01331-4464 $4
1320 /01332-1320 KP
TAD 1377 /01333-1377 K?
JMS I FXX /01334-4472 $:
JMS I TSTIT /01335-4473 $;
FSB176 /01336-5504 -D
JMS I CHKIT /01337-4474 $<
JMS 1270 /01340-4270 "8
JMS I LPBCK /01341-4464 $4
1333 /01342-1333 K[
JMP I 1373 /01343-5773 /;
JMS I F0 /01344-4466 $6
JMS I CLEARX /01345-4475 $=
CLA CLL IAC /01346-7301 ;A
JMS I 0103 /01347-4503 %C
AND 0044 /01350-0044 @$
JMS I TSTIT /01351-4473 $;
TFLX4P /01352-5451 ,)
JMS I CHKIT /01353-4474 $<
JMP 1241 /01354-5241 *!
JMS I LPBCK /01355-4464 $4
1344 /01356-1344 K$
JMP I 1372 /01357-5772 /:
JMP I 0157 /01360-5557 -/
AND 0000 /01361-0000 @@
TAD 0064 /01362-1064 H4
JMS I 0151 /01363-4551 %)
TAD 0063 /01364-1063 H3
DCA 1375 /01365-3375 [=
JMP 1372 /01366-5372 +:
TAD 0031 /01367-1031 HY
SNA CLA /01370-7650 >(
JMP I 0062 /01371-5462 ,2
TAD I 1301 /01372-1701 OA
TAD I 0000 /01373-1400 L@
TAD 0042 /01374-1042 H"
ISZ 0104 /01375-2104 QD
AND 1210 /01376-0210 BH
JMS 1210 /01377-4210 "H
PAGE
TAD 1577 /01400-1377 K?
JMS I FXX /01401-4472 $:
JMS I TSTIT /01402-4473 $;
FSB204 /01403-5506 -F
JMS I CHKIT /01404-4474 $<
JMS 1501 /01405-4301 #A
JMS I LPBCK /01406-4464 $4
1400 /01407-1400 L@
TAD 1576 /01410-1376 K>
JMS I FXX /01411-4472 $:
JMS I TSTIT /01412-4473 $;
FSB212 /01413-5510 -H
JMS I CHKIT /01414-4474 $<
JMS 1512 /01415-4312 #J
JMS I LPBCK /01416-4464 $4
1410 /01417-1410 LH
TAD 1575 /01420-1375 K=
JMS I FXX /01421-4472 $:
JMS I TSTIT /01422-4473 $;
FSB220 /01423-5512 -J
JMS I CHKIT /01424-4474 $<
JMS 1523 /01425-4323 #S
JMS I LPBCK /01426-4464 $4
1420 /01427-1420 LP
TAD 1574 /01430-1374 K<
JMS I FXX /01431-4472 $:
JMS I TSTIT /01432-4473 $;
FSB226 /01433-5514 -L
JMS I CHKIT /01434-4474 $<
JMS 1534 /01435-4334 #\
JMS I LPBCK /01436-4464 $4
1430 /01437-1430 LX
TAD 1573 /01440-1373 K;
JMS I FXX /01441-4472 $:
JMS I TSTIT /01442-4473 $;
FSB234 /01443-5516 -N
JMS I CHKIT /01444-4474 $<
JMS 1545 /01445-4345 #%
JMS I LPBCK /01446-4464 $4
1440 /01447-1440 L
JMS I F0 /01450-4466 $6
CLA CLL CML RTR /01451-7332 ;Z
DCA 0031 /01452-3031 XY
CLA CLL CML RTR /01453-7332 ;Z
DCA FMS /01454-3032 XZ
JMS I TSTIT /01455-4473 $;
FMB242 /01456-5520 -P
JMS I CHKIT /01457-4474 $<
JMS 1556 /01460-4356 #.
JMS I LPBCK /01461-4464 $4
1450 /01462-1450 L(
JMS I F7 /01463-4467 $7
JMS I TSTIT /01464-4473 $;
FMB250 /01465-5522 -R
JMS I CHKIT /01466-4474 $<
JMS 1567 /01467-4367 #7
JMS I LPBCK /01470-4464 $4
1463 /01471-1463 L3
JMS I F7 /01472-4467 $7
CLA CLL CMA RAR /01473-7350 ;(
DCA FMS /01474-3032 XZ
JMS I TSTIT /01475-4473 $;
FMB256 /01476-5524 -T
JMS I CHKIT /01477-4474 $<
JMS I 0000 /01500-4400 $@
JMS I LPBCK /01501-4464 $4
1472 /01502-1472 L:
JMS I F25 /01503-4470 $8
JMS I TSTIT /01504-4473 $;
FMB264 /01505-5526 -V
JMS I CHKIT /01506-4474 $<
JMS I 0011 /01507-4411 $I
JMS I LPBCK /01510-4464 $4
1503 /01511-1503 MC
JMS I F52 /01512-4471 $9
JMS I TSTIT /01513-4473 $;
FMB272 /01514-5530 -X
JMS I CHKIT /01515-4474 $<
JMS I 0022 /01516-4422 $R
JMS I LPBCK /01517-4464 $4
1512 /01520-1512 MJ
TAD 1572 /01521-1372 K:
JMS I FXX /01522-4472 $:
JMS I TSTIT /01523-4473 $;
FMB300 /01524-5532 -Z
JMS I CHKIT /01525-4474 $<
JMS I 0033 /01526-4433 $[
JMS I LPBCK /01527-4464 $4
1521 /01530-1521 MQ
JMS I F0 /01531-4466 $6
CLA CLL CMA RAR /01532-7350 ;(
DCA 0031 /01533-3031 XY
CLA CLL CML RTR /01534-7332 ;Z
DCA FMS /01535-3032 XZ
JMS I TSTIT /01536-4473 $;
FDB306 /01537-5534 -\
JMS I CHKIT /01540-4474 $<
JMS I 0044 /01541-4444 $$
JMS I LPBCK /01542-4464 $4
1531 /01543-1531 MY
JMP I 1571 /01544-5771 /9
JMS I F0 /01545-4466 $6
JMS I CLEARX /01546-4475 $=
CLA CLL IAC /01547-7301 ;A
DCA 0031 /01550-3031 XY
CLA CLL CML RTR /01551-7332 ;Z
DCA FMS /01552-3032 XZ
JMS I TSTIT /01553-4473 $;
JMP I 1466 /01554-5666 .6
JMS I CHKIT /01555-4474 $<
JMP 1527 /01556-5327 +W
JMS I LPBCK /01557-4464 $4
1545 /01560-1545 M%
JMP I 1570 /01561-5770 /8
TAD 1556 /01562-1356 K.
JMS I 1576 /01563-4776 '>
TAD 1560 /01564-1360 K0
DCA 1560 /01565-3360 [0
JMP I 1554 /01566-5754 /,
JMS I 0100 /01567-4500 %@
AND I 1403 /01570-0603 FC
TAD I 1400 /01571-1600 N@
ISZ 1545 /01572-2345 S%
AND I 0021 /01573-0421 DQ
DCA 0146 /01574-3146 Y&
6314 /01575-6314 3L
TAD 0042 /01576-1042 H"
ISZ 0104 /01577-2104 QD
PAGE
JMS I F7 /01600-4467 $7
CLA CLL CMA RAR /01601-7350 ;(
DCA FMS /01602-3032 XZ
JMS I TSTIT /01603-4473 $;
FDB314 /01604-5536 -^
JMS I CHKIT /01605-4474 $<
JMS I MES /01606-4455 $-
JMS I LPBCK /01607-4464 $4
1600 /01610-1600 N@
JMS I F0 /01611-4466 $6
TAD C70 /01612-1115 IM
DCA FAC /01613-3031 XY
TAD C2 /01614-1106 IF
DCA FAC+5 /01615-3036 X^
JMS I TSTIT /01616-4473 $;
FDB322 /01617-5540 -
JMS I CHKIT /01620-4474 $<
JMS I F0 /01621-4466 $6
JMS I LPBCK /01622-4464 $4
1611 /01623-1611 NI
JMS I F52 /01624-4471 $9
JMS I TSTIT /01625-4473 $;
FDB330 /01626-5542 -"
JMS I CHKIT /01627-4474 $<
JMS I 0077 /01630-4477 $?
JMS I LPBCK /01631-4464 $4
1624 /01632-1624 NT
TAD 1777 /01633-1377 K?
JMS I FXX /01634-4472 $:
JMS I TSTIT /01635-4473 $;
FDB336 /01636-5544 -$
JMS I CHKIT /01637-4474 $<
JMS I 0110 /01640-4510 %H
JMS I LPBCK /01641-4464 $4
1633 /01642-1633 N[
TAD 1776 /01643-1376 K>
JMS I FXX /01644-4472 $:
JMS I TSTIT /01645-4473 $;
FDB344 /01646-5546 -&
JMS I CHKIT /01647-4474 $<
JMS I 0121 /01650-4521 %Q
JMS I LPBCK /01651-4464 $4
1643 /01652-1643 N#
JMS I F25 /01653-4470 $8
JMS I 1775 /01654-4775 '=
JMS I TSTIT /01655-4473 $;
SLA116 /01656-5556 -.
JMS I CHKBP /01657-4501 %A
JMS I 0143 /01660-4543 %#
JMS I CHKIT /01661-4474 $<
JMS I 0132 /01662-4532 %Z
JMS I LPBCK /01663-4464 $4
1653 /01664-1653 N+
TAD 1774 /01665-1374 K<
JMS I FXX /01666-4472 $:
JMS I 1775 /01667-4775 '=
JMS I TSTIT /01670-4473 $;
SLM116 /01671-5562 -2
JMS I CHKBP /01672-4501 %A
JMS I 0162 /01673-4562 %2
JMS I CHKIT /01674-4474 $<
JMS I 0151 /01675-4551 %)
JMS I LPBCK /01676-4464 $4
1665 /01677-1665 N5
JMP I 1773 /01700-5773 /;
JMS I F7 /01701-4467 $7
JMS I CLEARX /01702-4475 $=
CLA CLL CML IAC RAL /01703-7325 ;U
JMS I 0103 /01704-4503 %C
AND 0044 /01705-0044 @$
JMS I TSTIT /01706-4473 $;
TFLX4P /01707-5451 ,)
JMS I CHKIT /01710-4474 $<
JMP 1652 /01711-5252 **
JMS I LPBCK /01712-4464 $4
1701 /01713-1701 OA
CLA CLL CML RAR /01714-7330 ;X
DCA DPMODE /01715-3141 Y!
JMS I F7 /01716-4467 $7
JMS I CLEARX /01717-4475 $=
JMS I TSTIT /01720-4473 $;
TFLX0P /01721-5443 ,#
JMS I CHKIT /01722-4474 $<
JMP 1663 /01723-5263 *3
JMS I LPBCK /01724-4464 $4
1714 /01725-1714 OL
JMS I F0 /01726-4466 $6
JMS I CLEARX /01727-4475 $=
CLA CLL CML IAC RAL /01730-7325 ;U
JMS I 0103 /01731-4503 %C
AND 0044 /01732-0044 @$
JMS I TSTIT /01733-4473 $;
TFLX0 /01734-5446 ,&
JMS I CHKIT /01735-4474 $<
JMP 1674 /01736-5274 *<
JMS I LPBCK /01737-4464 $4
1726 /01740-1726 OV
JMS I F0 /01741-4466 $6
JMS I CLEARX /01742-4475 $=
DCA DPMODE /01743-3141 Y!
CLA CLL CML RAR /01744-7330 ;X
DCA EPMODE /01745-3143 Y#
JMS I 1772 /01746-4772 ':
JMS I TSTIT /01747-4473 $;
LEB25P /01750-5402 ,B
JMS I CHKIT /01751-4474 $<
JMP 1705 /01752-5305 +E
JMS I LPBCK /01753-4464 $4
1741 /01754-1741 O!
JMS I F0 /01755-4466 $6
JMS I CLEARX /01756-4475 $=
JMS I 1772 /01757-4772 ':
JMS I TSTIT /01760-4473 $;
LEB25 /01761-5405 ,E
JMS I CHKIT /01762-4474 $<
JMP 1716 /01763-5316 +N
JMS I LPBCK /01764-4464 $4
1755 /01765-1755 O-
JMP I 1771 /01766-5771 /9
RTR /01767-7012 8J
RTR /01770-7012 8J
TAD I 0145 /01771-1545 M%
6512 /01772-6512 5J
ISZ 0000 /01773-2000 P@
7316 /01774-7316 ;N
ISZ I 1665 /01775-2665 V5
TAD I 1706 /01776-1706 OF
6475 /01777-6475 4=
PAGE
JMS I F7 /02000-4467 $7
CLA CLL CML RAR /02001-7330 ;X
DCA 0031 /02002-3031 XY
TAD 0123 /02003-1123 IS
DCA FMS /02004-3032 XZ
CLA CLL CML RTR /02005-7332 ;Z
DCA DPMODE /02006-3141 Y!
JMS I TSTIT /02007-4473 $;
FAB374 /02010-5566 -6
JMS I CHKIT /02011-4474 $<
JMS I 0170 /02012-4570 %8
JMS I LPBCK /02013-4464 $4
2000 /02014-2000 P@
JMS I F7 /02015-4467 $7
CLA CLL CMA RAR /02016-7350 ;(
DCA 0031 /02017-3031 XY
DCA DPMODE /02020-3141 Y!
CLA CLL CMA RAR /02021-7350 ;(
DCA FMS /02022-3032 XZ
JMS I TSTIT /02023-4473 $;
FAB402 /02024-5570 -8
JMS I CHKIT /02025-4474 $<
JMS I 2001 /02026-4601 &A
JMS I LPBCK /02027-4464 $4
2015 /02030-2015 PM
JMS I F25 /02031-4470 $8
JMS I TSTIT /02032-4473 $;
XFDB, FDB410 /02033-5572 -:
JMS I CHKIT /02034-4474 $<
JMS I 2012 /02035-4612 &J
JMS I LPBCK /02036-4464 $4
2031 /02037-2031 PY
JMS I F0 /02040-4466 $6
TAD (HLTPNT /02041-1377 K?
DCA I (TEST /02042-3776 _>
TAD XFDB /02043-1233 J[
DCA FPC /02044-3025 XU
JMS I (TSINIT /02045-4775 '=
TAD XAPT /02046-1113 IK
FPST /02047-6555 5-
JMS I (NOSKP /02050-4774 '<
HLTPNT, FPHLT /02051-6554 5,
FPINT /02052-6551 5)
JMP .-1 /02053-5252 **
JMS I CHKIT /02054-4474 $<
JMS I 2023 /02055-4623 &S
JMS I LPBCK /02056-4464 $4
2040 /02057-2040 P
JMS I F0 /02060-4466 $6
JMS I TSTIT /02061-4473 $;
TJEQ /02062-5574 -<
JMS I CHKIT /02063-4474 $<
JMS I 2034 /02064-4634 &\
JMS I LPBCK /02065-4464 $4
2060 /02066-2060 P0
JMS I F0 /02067-4466 $6
CLA CLL IAC /02070-7301 ;A
DCA 0036 /02071-3036 X^
JMS I TSTIT /02072-4473 $;
TJEQ /02073-5574 -<
JMS I CHKIT /02074-4474 $<
JMS I 2045 /02075-4645 &%
JMS I LPBCK /02076-4464 $4
2067 /02077-2067 P7
JMS I F0 /02100-4466 $6
CLA CLL CML RAR /02101-7330 ;X
DCA FMS /02102-3032 XZ
CLA CLL IAC /02103-7301 ;A
DCA 0036 /02104-3036 X^
JMS I TSTIT /02105-4473 $;
TJEQ /02106-5574 -<
JMS I CHKIT /02107-4474 $<
JMS I 2056 /02110-4656 &.
JMS I LPBCK /02111-4464 $4
2100 /02112-2100 Q@
JMS I F0 /02113-4466 $6
JMS I TSTIT /02114-4473 $;
TJGE /02115-5600 .@
JMS I CHKIT /02116-4474 $<
JMS I 2067 /02117-4667 &7
JMS I LPBCK /02120-4464 $4
2113 /02121-2113 QK
JMS I F0 /02122-4466 $6
CLA CLL IAC /02123-7301 ;A
DCA 0036 /02124-3036 X^
JMS I TSTIT /02125-4473 $;
TJGE /02126-5600 .@
JMS I CHKIT /02127-4474 $<
JMS I 2100 /02130-4700 '@
JMS I LPBCK /02131-4464 $4
2122 /02132-2122 QR
JMS I F0 /02133-4466 $6
CLA CLL CML RAR /02134-7330 ;X
DCA FMS /02135-3032 XZ
CLA CLL IAC /02136-7301 ;A
DCA 0036 /02137-3036 X^
JMS I TSTIT /02140-4473 $;
TJGE /02141-5600 .@
JMS I CHKIT /02142-4474 $<
JMS I 2111 /02143-4711 'I
JMS I LPBCK /02144-4464 $4
2133 /02145-2133 Q[
JMS I F0 /02146-4466 $6
JMS I TSTIT /02147-4473 $;
TJLE /02150-5604 .D
JMS I CHKIT /02151-4474 $<
JMS I 2122 /02152-4722 'R
JMS I LPBCK /02153-4464 $4
2146 /02154-2146 Q&
JMP I 2173 /02155-5773 /;
AND 0000 /02156-0000 @@
CDF 10 /02157-6211 2I
TAD I 0023 /02160-1423 LS
CDF 0 /02161-6201 2A
SNA CLA /02162-7650 >(
JMP I 2156 /02163-5756 /.
TAD 0017 /02164-1017 HO
AND 0105 /02165-0105 AE
SZA /02166-7440 <
TAD 0124 /02167-1124 IT
DCA 0142 /02170-3142 Y"
JMP I 2172 /02171-5772 /:
DCA I 0122 /02172-3522 ]R
2200 /02173-2200 R@
/ISZ I 2137 /02174-2737 W_
/ISZ I 2115 /02175-2715 WM
/ISZ I 2101 /02176-2701 WA
/ISZ 0051 /02177-2051 P)
PAGE
JMS I F0 /02200-4466 $6
CLA CLL CML RAR /02201-7330 ;X
DCA FMS /02202-3032 XZ
CLA CLL IAC /02203-7301 ;A
DCA 0036 /02204-3036 X^
JMS I TSTIT /02205-4473 $;
TJLE /02206-5604 .D
JMS I CHKIT /02207-4474 $<
JMS I 2333 /02210-4733 '[
JMS I LPBCK /02211-4464 $4
2200 /02212-2200 R@
JMS I F0 /02213-4466 $6
CLA CLL IAC /02214-7301 ;A
DCA 0036 /02215-3036 X^
JMS I TSTIT /02216-4473 $;
TJLE /02217-5604 .D
JMS I CHKIT /02220-4474 $<
JMS I 2344 /02221-4744 '$
JMS I LPBCK /02222-4464 $4
2213 /02223-2213 RK
JMS I F0 /02224-4466 $6
JMS I TSTIT /02225-4473 $;
TJNE /02226-5610 .H
JMS I CHKIT /02227-4474 $<
JMS I 2355 /02230-4755 '-
JMS I LPBCK /02231-4464 $4
2224 /02232-2224 RT
JMS I F0 /02233-4466 $6
CLA CLL IAC /02234-7301 ;A
DCA 0036 /02235-3036 X^
JMS I TSTIT /02236-4473 $;
TJNE /02237-5610 .H
JMS I CHKIT /02240-4474 $<
JMS I 2366 /02241-4766 '6
JMS I LPBCK /02242-4464 $4
2233 /02243-2233 R[
JMS I F0 /02244-4466 $6
CLA CLL CML RAR /02245-7330 ;X
DCA FMS /02246-3032 XZ
CLA CLL IAC /02247-7301 ;A
DCA 0036 /02250-3036 X^
JMS I TSTIT /02251-4473 $;
TJNE /02252-5610 .H
JMS I CHKIT /02253-4474 $<
JMS I 2377 /02254-4777 '?
JMS I LPBCK /02255-4464 $4
2244 /02256-2244 R$
JMS I F0 /02257-4466 $6
JMS I TSTIT /02260-4473 $;
TJLT /02261-5614 .L
JMS I CHKIT /02262-4474 $<
JMP 0010 /02263-5010 (H
JMS I LPBCK /02264-4464 $4
2257 /02265-2257 R/
JMS I F0 /02266-4466 $6
CLA CLL IAC /02267-7301 ;A
DCA 0036 /02270-3036 X^
JMS I TSTIT /02271-4473 $;
TJLT /02272-5614 .L
JMS I CHKIT /02273-4474 $<
JMP 0021 /02274-5021 (Q
JMS I LPBCK /02275-4464 $4
2266 /02276-2266 R6
JMS I F7 /02277-4467 $7
JMS I TSTIT /02300-4473 $;
TJLT /02301-5614 .L
JMS I CHKIT /02302-4474 $<
JMP 0032 /02303-5032 (Z
JMS I LPBCK /02304-4464 $4
2277 /02305-2277 R?
JMS I F0 /02306-4466 $6
CLA CLL IAC /02307-7301 ;A
DCA 0036 /02310-3036 X^
JMS I TSTIT /02311-4473 $;
TJGT /02312-5620 .P
JMS I CHKIT /02313-4474 $<
JMP 0043 /02314-5043 (#
JMS I LPBCK /02315-4464 $4
2306 /02316-2306 SF
JMS I F0 /02317-4466 $6
JMS I TSTIT /02320-4473 $;
TJGT /02321-5620 .P
JMS I CHKIT /02322-4474 $<
JMP 0054 /02323-5054 (,
JMS I LPBCK /02324-4464 $4
2317 /02325-2317 SO
JMS I F0 /02326-4466 $6
CLA CLL CML RAR /02327-7330 ;X
DCA FMS /02330-3032 XZ
CLA CLL IAC /02331-7301 ;A
DCA 0036 /02332-3036 X^
JMS I TSTIT /02333-4473 $;
TJGT /02334-5620 .P
JMS I CHKIT /02335-4474 $<
JMP 0065 /02336-5065 (5
JMS I LPBCK /02337-4464 $4
2326 /02340-2326 SV
JMP I 2377 /02341-5777 /?
AND 0000 /02342-0000 @@
CIF 10 /02343-6212 2J
JMS I 2362 /02344-4762 '2
CMA CML IAC RAR /02345-7071 89
JMS I MES10 /02346-4456 $.
JMPERR /02347-7360 ;0
JMS I MES10 /02350-4456 $.
INST /02351-7346 ;&
TAD 0050 /02352-1050 H(
JMS I DIGS /02353-4465 $5
JMS I MES10 /02354-4456 $.
ADDR /02355-7373 ;;
TAD 0051 /02356-1051 H)
JMS I DIGS /02357-4465 $5
JMS I VT /02360-4460 $0
JMP I 2342 /02361-5742 /"
6600 /02362-6600 6@
AND 0000 /02363-0000 @@
CDF 10 /02364-6211 2I
TAD I 0023 /02365-1423 LS
CDF 0 /02366-6201 2A
SNA CLA /02367-7650 >(
JMP I 2363 /02370-5763 /3
JMS 2342 /02371-4342 #"
JMP I 2376 /02372-5776 />
JMP I 2374 /02373-5774 /<
ISZ I 0000 /02374-2400 T@
ISZ I 0003 /02375-2403 TC
6766 /02376-6766 76
2400 /02377-2400 T@
PAGE
JMS I F0 /02400-4466 $6
TAD 2566 /02401-1366 K6
DCA FLS /02402-3033 X[
CDF 10 /02403-6211 2I
TAD I 2567 /02404-1767 O7
CDF 0 /02405-6201 2A
AND C1 /02406-0105 AE
DCA FMS /02407-3032 XZ
TAD FMS /02410-1032 HZ
DCA I 2577 /02411-3777 _?
JMS I TSTIT /02412-4473 $;
TJAC /02413-5631 .Y
JMS I CHKIT /02414-4474 $<
JMP 0076 /02415-5076 (>
JMS I LPBCK /02416-4464 $4
2400 /02417-2400 T@
JMS I F25 /02420-4470 $8
JMS I TSTIT /02421-4473 $;
TFNOP /02422-5634 .\
JMS I CHKIT /02423-4474 $<
JMP 0107 /02424-5107 )G
JMS I LPBCK /02425-4464 $4
2420 /02426-2420 TP
JMS I F0 /02427-4466 $6
JMS I TSTIT /02430-4473 $;
TJA /02431-5636 .^
JMS I CHKIT /02432-4474 $<
JMP 0120 /02433-5120 )P
JMS I LPBCK /02434-4464 $4
2427 /02435-2427 TW
JMS I F7 /02436-4467 $7
JMS I TSTIT /02437-4473 $;
TJAL /02440-5641 .!
JMS I CHKIT /02441-4474 $<
JMP 0131 /02442-5131 )Y
JMS I LPBCK /02443-4464 $4
2436 /02444-2436 T^
JMS I F0 /02445-4466 $6
CDF 10 /02446-6211 2I
TAD I 2567 /02447-1767 O7
CDF 0 /02450-6201 2A
DCA 0136 /02451-3136 Y^
TAD 0136 /02452-1136 I^
AND 2576 /02453-0376 C>
SNA /02454-7450 <(
JMP 2471 /02455-5271 *9
TAD 2575 /02456-1375 K=
SNA CLA /02457-7650 >(
JMP 2471 /02460-5271 *9
TAD 0136 /02461-1136 I^
CLL RAR /02462-7110 9H
AND C1 /02463-0105 AE
SNA /02464-7450 <(
CDF 10 /02465-6211 2I
TAD 2574 /02466-1374 K<
DCA I 2570 /02467-3770 _8
CDF 0 /02470-6201 2A
JMS I TSTIT /02471-4473 $;
TJSR /02472-5645 .%
JMS I CHKIT /02473-4474 $<
JMP 0142 /02474-5142 )"
JMS I LPBCK /02475-4464 $4
2445 /02476-2445 T%
JMS I F0 /02477-4466 $6
JMS I TSTIT /02500-4473 $;
TJSA /02501-5652 .*
JMS I CHKIT /02502-4474 $<
JMP 0153 /02503-5153 )+
JMS I LPBCK /02504-4464 $4
2477 /02505-2477 T?
JMS I F0 /02506-4466 $6
JMS I CLEARX /02507-4475 $=
CLA CLL CMA /02510-7340 ;
JMS I 0103 /02511-4503 %C
AND 0045 /02512-0045 @%
JMS I TSTIT /02513-4473 $;
TJNX5P /02514-5662 .2
JMS I CHKIT /02515-4474 $<
JMP 0164 /02516-5164 )4
JMS I LPBCK /02517-4464 $4
2506 /02520-2506 UF
JMS I F0 /02521-4466 $6
JMS I TSTIT /02522-4473 $;
FPC1 /02523-5400 ,@
JMS I CHKIT /02524-4474 $<
JMP 0175 /02525-5175 )=
JMS I LPBCK /02526-4464 $4
2521 /02527-2521 UQ
JMS I F7 /02530-4467 $7
JMS I TSTIT /02531-4473 $;
FPC1 /02532-5400 ,@
JMS I CHKIT /02533-4474 $<
JMP 2406 /02534-5206 *F
JMS I LPBCK /02535-4464 $4
2530 /02536-2530 UX
JMS I F7 /02537-4467 $7
JMS I CLEARX /02540-4475 $=
DCA EPMODE /02541-3143 Y#
DCA DPMODE /02542-3141 Y!
JMS I TSTIT /02543-4473 $;
TFLX0P /02544-5443 ,#
JMS I CHKIT /02545-4474 $<
JMP 2417 /02546-5217 *O
JMS I LPBCK /02547-4464 $4
2537 /02550-2537 U_
JMS I F0 /02551-4466 $6
JMS I CLEARX /02552-4475 $=
CLA CLL IAC RAL /02553-7305 ;E
JMS I 0103 /02554-4503 %C
AND 0044 /02555-0044 @$
JMS I TSTIT /02556-4473 $;
TFLX0 /02557-5446 ,&
JMS I CHKIT /02560-4474 $<
JMP 2430 /02561-5230 *X
JMS I LPBCK /02562-4464 $4
2551 /02563-2551 U)
JMP I 2573 /02564-5773 /;
AND 2407 /02565-0207 BG
JMP I 2433 /02566-5633 .[
AND 0021 /02567-0021 @Q
JMP I 2450 /02570-5650 .(
ISZ 2471 /02571-2271 R9
JMS I 0046 /02572-4446 $&
TAD 2544 /02573-1344 K$
TAD 0030 /02574-1030 HX
MQA MQL CLA DCM /02575-7775 ?=
AND 0003 /02576-0003 @C
JMP 0101 /02577-5101 )A
PAGE
FACSET, AND 0000 /02600-0000 @@
CLA CLL CMA /02601-7340 ;
DCA 0037 /02602-3037 X_
TAD (FAC-1 /02603-1377 K?
DCA 0010 /02604-3010 XH
TAD (-6 /02605-1376 K>
DCA 0011 /02606-3011 XI
JMP I FACSET /02607-5600 .@
F0000, AND 0000 /02610-0000 @@
JMS FACSET /02611-4200 "@
DCA I 0010 /02612-3410 \H
ISZ 0011 /02613-2011 PI
JMP 2612 /02614-5212 *J
JMP I 2610 /02615-5610 .H
F7777, AND 0000 /02616-0000 @@
JMS FACSET /02617-4200 "@
CLA CLL CMA /02620-7340 ;
DCA I 0010 /02621-3410 \H
ISZ 0011 /02622-2011 PI
JMP 2620 /02623-5220 *P
JMP I 2616 /02624-5616 .N
F2525, AND 0000 /02625-0000 @@
JMS FACSET /02626-4200 "@
TAD C2525 /02627-1126 IV
DCA I 0010 /02630-3410 \H
ISZ 0011 /02631-2011 PI
JMP 2627 /02632-5227 *W
JMP I F2525 /02633-5625 .U
F5252, AND 0000 /02634-0000 @@
JMS FACSET /02635-4200 "@
TAD C5252 /02636-1130 IX
DCA I 0010 /02637-3410 \H
ISZ 0011 /02640-2011 PI
JMP 2636 /02641-5236 *^
JMP I F5252 /02642-5634 .\
FXXXX, AND 0000 /02643-0000 @@
DCA 0015 /02644-3015 XM
JMS FACSET /02645-4200 "@
TAD 0015 /02646-1015 HM
DCA I 0010 /02647-3410 \H
ISZ 0011 /02650-2011 PI
JMP 2646 /02651-5246 *&
JMP I FXXXX /02652-5643 .#
CLINDX, AND 0000 /02653-0000 @@
CLA CLL /02654-7300 ;@
TAD (-10 /02655-1375 K=
DCA 0011 /02656-3011 XI
TAD (INDEX-1 /02657-1374 K<
DCA 0010 /02660-3010 XH
JMS I (3524 /02661-4773 ';
ISZ 0011 /02662-2011 PI
JMP .-2 /02663-5261 *1
JMP I CLINDX /02664-5653 .+
CLRBP, AND 0000 /02665-0000 @@
CLA CLL /02666-7300 ;@
TAD (-6 /02667-1376 K>
DCA 0011 /02670-3011 XI
TAD 2772 /02671-1372 K: TAD (BP26-1
DCA 0010 /02672-3010 XH
CDF2, CDF 0 /02673-6201 2A
DCA I 0010 /02674-3410 \H
CDF 0 /02675-6201 2A
ISZ 0011 /02676-2011 PI
JMP .-4 /02677-5273 *;
JMP I CLRBP /02700-5665 .5
TEST, AND 0000 /02701-0000 @@
TAD I TEST /02702-1701 OA
DCA FPC /02703-3025 XU
JMS I READCH /02704-4502 %B
JMS TSINIT /02705-4315 #M
TAD XAPT /02706-1113 IK
FPST /02707-6555 5-
JMS NOSKP /02710-4337 #_
FPINT /02711-6551 5)
JMP .-1 /02712-5311 +I
ISZ TEST /02713-2301 SA
JMP I TEST /02714-5701 /A
TSINIT, AND 0000 /02715-0000 @@
FPICL /02716-6552 5*
CLA CLL CML IAC RTR /02717-7333 ;[
DCA 0027 /02720-3027 XW
TAD C40 /02721-1114 IL
DCA 0026 /02722-3026 XV
DCA 0030 /02723-3030 XX
DCA 0135 /02724-3135 Y]
TAD FBITS /02725-1142 I"
DCA APT /02726-3024 XT
TAD DPMODE /02727-1141 I!
FPCOM /02730-6553 5+
CLA CLL /02731-7300 ;@
TAD EPMODE /02732-1143 I#
SZA /02733-7440 <
FPEP /02734-6567 57
CLA CLL /02735-7300 ;@
JMP I TSINIT /02736-5715 /M
NOSKP, AND 0000 /02737-0000 @@
CLA CLL /02740-7300 ;@
TAD NOSKP /02741-1337 K_
DCA PCLOC /02742-3145 Y%
JMS I X8 /02743-4504 %D
JMS I GETSW /02744-4463 $3
AND C100 /02745-0116 AN
SZA CLA /02746-7640 >
JMP 2767 /02747-5367 +7
TAD 2701 /02750-1301 KA
DCA 0146 /02751-3146 Y&
JMS I MES10 /02752-4456 $.
INSERR /02753-7264 :4
JMS I MES /02754-4455 $-
NOSKIP /02755-7523 =S
JMS I VT /02756-4460 $0
JMS I MES /02757-4455 $-
PC /02760-7546 =&
TAD PCLOC /02761-1145 I%
JMS I DIGS /02762-4465 $5
JMS I MES /02763-4455 $-
PC2 /02764-7550 =(
TAD 0146 /02765-1146 I&
JMS I DIGS /02766-4465 $5
JMS I LPBCK /02767-4464 $4
2706 /02770-2706 WF
JMP 2706 /02771-5306 +F
6115 /02772-6115 1M
/DCA I 0124 /02773-3524 ]T
/AND 0037 /02774-0037 @_
/SPA SNA SZL CLA /02775-7770 ?8
/SPA SNA SZL CLA HLT /02776-7772 ?:
/AND 0030 /02777-0030 @X
PAGE
MESG, AND 0000 /03000-0000 @@
CLA CLL /03001-7300 ;@
IOF /03002-6002 0B
FPICL /03003-6552 5*
TAD I MESG /03004-1600 N@
ISZ MESG /03005-2200 R@
DCA MSTEMP /03006-3251 Z)
TAD CDF10 /03007-1003 HC
SNA CLA /03010-7650 >(
CDF 0 /03011-6201 2A
MNXT, TAD I MSTEMP /03012-1651 N)
AND (7700 /03013-0377 C?
SNA /03014-7450 <(
JMP MEND /03015-5241 *!
SMA /03016-7500 =@
CML /03017-7020 8P
IAC /03020-7001 8A
RTR /03021-7012 8J
RTR /03022-7012 8J
RTR /03023-7012 8J
JMS MSCHR /03024-4252 "*
TAD I MSTEMP /03025-1651 N)
AND (77 /03026-0376 C>
SNA /03027-7450 <(
JMP MEND /03030-5241 *!
TAD C3740 /03031-1247 J'
SMA /03032-7500 =@
TAD C4100 /03033-1250 J(
TAD C240 /03034-1120 IP
JMS MSCHR /03035-4252 "*
CLL /03036-7100 9@
ISZ MSTEMP /03037-2251 R)
JMP MNXT /03040-5212 *J
MEND, TAD CIF10 /03041-1004 HD
SZA CLA /03042-7640 >
CIF CDF 10 /03043-6213 2K
DCA CDF10 /03044-3003 XC
DCA CIF10 /03045-3004 XD
JMP I MESG /03046-5600 .@
C3740, 3740 /03047-3740 _
C4100, 4100 /03050-4100 !@
MSTEMP, 0000 /03051-0000 @@
MSCHR, AND 0000 /03052-0000 @@
DCA MSCTM /03053-3305 [E
TAD MODEX8 /03054-1022 HR
SPA CLA /03055-7710 ?H
JMP MEND /03056-5241 *!
KSF /03057-6031 0Y
JMP NOFLG /03060-5274 *<
KRB /03061-6036 0^
AND (177 /03062-0375 C=
TAD C200 /03063-1117 IO
DCA INCHAR /03064-3140 Y
RDF /03065-6214 2L
TAD (CDF 0 /03066-1374 K<
DCA .+4 /03067-3273 Z;
CDF 0 /03070-6201 2A
JMS I CTQS /03071-4477 $?
JMS I CTCG /03072-4476 $>
CDF 0 /03073-6201 2A
NOFLG, TAD MSCTM /03074-1305 KE
TAD (-337 /03075-1373 K;
SZA CLA /03076-7640 >
JMP .+3 /03077-5302 +B
JMS I VT /03100-4460 $0
JMP I MSCHR /03101-5652 .*
TAD MSCTM /03102-1305 KE
JMS I PUN /03103-4461 $1
JMP I MSCHR /03104-5652 .*
MSCTM, AND 0000 /03105-0000 @@
PUNCH, AND 0000 /03106-0000 @@
TLS /03107-6046 0&
TSF /03110-6041 0!
JMP .-1 /03111-5310 +H
TCF /03112-6042 0"
CLA /03113-7200 :@
JMP I PUNCH /03114-5706 /F
READC, AND 0000 /03115-0000 @@
KSF /03116-6031 0Y
JMP I READC /03117-5715 /M
KRB /03120-6036 0^
AND (177 /03121-0375 C=
TAD C200 /03122-1117 IO
DCA INCHAR /03123-3140 Y
JMS I CTCG /03124-4476 $>
JMP I 3115 /03125-5715 /M
READ, AND 0000 /03126-0000 @@
KSF /03127-6031 0Y
JMP .-1 /03130-5327 +W
KRB /03131-6036 0^
AND (177 /03132-0375 C=
TAD C200 /03133-1117 IO
JMP I READ /03134-5726 /V
READEC, AND 0000 /03135-0000 @@
JMS READ /03136-4326 #V
DCA INCHAR /03137-3140 Y
JMS I CTCG /03140-4476 $>
TAD INCHAR /03141-1140 I
JMS I PUN /03142-4461 $1
TAD INCHAR /03143-1140 I
JMP I READEC /03144-5735 /]
MESG10, AND 0000 /03145-0000 @@
TAD I MESG10 /03146-1745 O%
DCA MSTEMP /03147-3251 Z)
ISZ MESG10 /03150-2345 S%
TAD (BACK00 /03151-1372 K:
DCA MESG /03152-3200 Z@
CLA CLL /03153-7300 ;@
CDF 10 /03154-6211 2I
IOF /03155-6002 0B
FPICL /03156-6552 5*
JMP MNXT /03157-5212 *J
BACK00, CDF 0 /03160-6201 2A
JMP I MESG10 /03161-5745 /%
JMS I 0107 /03162-4507 %G
JMS I 0107 /03163-4507 %G
JMP I 3166 /03164-5766 /6
DCA 3032 /03165-3232 ZZ
DCA 3000 /03166-3200 Z@
DCA I 3177 /03167-3777 _?
CLA IAC /03170-7201 :A
CLA /03171-7200 :@
/DCA 0160 /03172-3160 Y0
/SCA /03173-7441 <!
/CDF 0 /03174-6201 2A
/AND 0177 /03175-0177 A?
/AND 0077 /03176-0077 @?
/SMA CLA /03177-7700 ?@
PAGE
OPTION, AND 0000 /03200-0000 @@
JMS I VT /03201-4460 $0
TAD 3377 /03202-1377 K?
JMS I PUN /03203-4461 $1
TAD 3376 /03204-1376 K>
JMS I PUN /03205-4461 $1
TAD 3375 /03206-1375 K=
JMS I PUN /03207-4461 $1
JMS I GETSW /03210-4463 $3
JMS I DIGS /03211-4465 $5
TAD 0120 /03212-1120 IP
JMS I PUN /03213-4461 $1
CLA CLL CMA RTL /03214-7346 ;&
DCA COUNT /03215-3147 Y'
DCA 0150 /03216-3150 Y(
DCA 0151 /03217-3151 Y)
JMS 3256 /03220-4256 ".
JMS 3277 /03221-4277 "?
JMP 3274 /03222-5274 *<
TAD 3273 /03223-1273 J;
DCA 0150 /03224-3150 Y(
JMS 3256 /03225-4256 ".
JMS 3277 /03226-4277 "?
JMP 3274 /03227-5274 *<
TAD 0150 /03230-1150 I(
CLL RTL /03231-7106 9F
RAL /03232-7004 8D
TAD 3273 /03233-1273 J;
DCA 0150 /03234-3150 Y(
ISZ COUNT /03235-2147 Q'
JMP 3225 /03236-5225 *U
JMS 3256 /03237-4256 ".
JMS 3320 /03240-4320 #P
JMP 3201 /03241-5201 *A
TAD 0151 /03242-1151 I)
SNA CLA /03243-7650 >(
JMP I XGO /03244-5457 ,/
TAD 0150 /03245-1150 I(
DCA 0020 /03246-3020 XP
JMP I XGO /03247-5457 ,/
TAD 0151 /03250-1151 I)
SNA CLA /03251-7650 >(
JMP I 3200 /03252-5600 .@
TAD 0150 /03253-1150 I(
DCA 0020 /03254-3020 XP
JMP I 3200 /03255-5600 .@
AND 0000 /03256-0000 @@
JMS I 3374 /03257-4774 '<
DCA 3273 /03260-3273 Z;
TAD I 3373 /03261-1773 O;
SNA CLA /03262-7650 >(
JMP 3271 /03263-5271 *9
JMS I 3372 /03264-4772 ':
TAD 3273 /03265-1273 J;
JMS I PUN /03266-4461 $1
TAD 3273 /03267-1273 J;
JMP I 3256 /03270-5656 ..
JMS I 3371 /03271-4771 '9
JMP 3201 /03272-5201 *A
AND 0000 /03273-0000 @@
TAD 0122 /03274-1122 IR
JMS I PUN /03275-4461 $1
JMP 3201 /03276-5201 *A
AND 0000 /03277-0000 @@
JMS 3320 /03300-4320 #P
TAD 3273 /03301-1273 J;
TAD 3370 /03302-1370 K8
SMA /03303-7500 =@
JMP 3316 /03304-5316 +N
TAD C10 /03305-1111 II
SPA CLA /03306-7710 ?H
JMP 3316 /03307-5316 +N
ISZ 3277 /03310-2277 R?
TAD 3273 /03311-1273 J;
AND 0110 /03312-0110 AH
DCA 3273 /03313-3273 Z;
ISZ 0151 /03314-2151 Q)
JMP I 3277 /03315-5677 .?
CLA CLL /03316-7300 ;@
JMP I 3277 /03317-5677 .?
AND 0000 /03320-0000 @@
TAD 3367 /03321-1367 K7
SNA CLA /03322-7650 >(
JMP 3242 /03323-5242 *"
TAD 3273 /03324-1273 J;
TAD 3366 /03325-1366 K6
SNA CLA /03326-7650 >(
JMP 3331 /03327-5331 +Y
JMP I 3320 /03330-5720 /P
JMS I VT /03331-4460 $0
JMP 3250 /03332-5250 *(
YESNO, AND 0000 /03333-0000 @@
JMS I RDECHO /03334-4462 $2
TAD 3365 /03335-1365 K5
SNA CLA /03336-7650 >(
JMP 3347 /03337-5347 +'
TAD INCHAR /03340-1140 I
TAD 3364 /03341-1364 K4
SNA CLA /03342-7650 >(
JMP 3350 /03343-5350 +(
TAD C277 /03344-1122 IR
JMS I PUN /03345-4461 $1
JMP I YESNO /03346-5733 /[
ISZ YESNO /03347-2333 S[
ISZ YESNO /03350-2333 S[
JMP I YESNO /03351-5733 /[
FPICL /03352-6552 5*
FPRST /03353-6556 5.
DCA COUNT /03354-3147 Y'
JMS I 0053 /03355-4453 $+
AND 0010 /03356-0010 @H
JMP 3341 /03357-5341 +!
TAD 0164 /03360-1164 I4
FPCOM /03361-6553 5+
CLA /03362-7200 :@
FPEP /03363-6567 57
SWBA /03364-7447 <'
SZA SNL HLT /03365-7462 <2
MQA MQL DAD /03366-7563 =3
SMA SZA SNL OSR HLT /03367-7566 =6
SPA /03370-7510 =H
6535 /03371-6535 5]
6526 /03372-6526 5V
CLA CMA IAC /03373-7241 :!
DCA 0126 /03374-3126 YV
AND 3275 /03375-0275 B=
AND 3322 /03376-0322 CR
AND 3323 /03377-0323 CS
PAGE
GOE, AND 0000 /03400-0000 @@
TAD RELDON /03401-1254 J,
SZA CLA /03402-7640 >
JMP I 3400 /03403-5600 .@
JMS I VT /03404-4460 $0
JMS I MES10 /03405-4456 $.
DATAEX /03406-7254 :,
JMS I MES10 /03407-4456 $.
RELOCT /03410-7561 =1
JMS I MES10 /03411-4456 $.
YORN /03412-7352 ;*
JMS I 3453 /03413-4653 &+
JMP 3404 /03414-5204 *D
JMP 3423 /03415-5223 *S
CLA CLL CMA /03416-7340 ;
CDF 10 /03417-6211 2I
DCA I RELFLG /03420-3652 ^*
CDF 0 /03421-6201 2A
JMP I 3400 /03422-5600 .@
CDF 10 /03423-6211 2I
DCA I RELFLG /03424-3652 ^*
CDF 0 /03425-6201 2A
GOEGO, JMS I VT /03426-4460 $0
JMS I MES10 /03427-4456 $.
DATAEX /03430-7254 :,
JMS I MES10 /03431-4456 $.
QUICKV /03432-7235 :]
JMS I MES10 /03433-4456 $.
YORN /03434-7352 ;*
JMS I YN /03435-4653 &+
JMP GOEGO /03436-5226 *V
JMP .+3 /03437-5242 *"
TAD 0131 /03440-1131 IY
SKP /03441-7410 <H
TAD 3577 /03442-1377 K?
CDF 10 /03443-6211 2I
DCA I REL /03444-3651 ^)
CDF 0 /03445-6201 2A
JMS I VT /03446-4460 $0
ISZ RELDON /03447-2254 R,
JMP I GOE /03450-5600 .@
REL, FLGVER /03451-0303 CC
RELFLG, FLGREL /03452-3252 Z*
YN, YESNO /03453-3333 [[
RELDON, AND 0000 /03454-0000 @@
AND 0000 /03455-0000 @@
ISZ 0010 /03456-2010 PH
TAD I 0010 /03457-1410 LH
DCA 0017 /03460-3017 XO
CLA CLL CMA RAL /03461-7344 ;$
TAD 0010 /03462-1010 HH
DCA 0010 /03463-3010 XH
JMS I 3576 /03464-4776 '>
TAD 0017 /03465-1017 HO
AND 0124 /03466-0124 AT
SNA CLA /03467-7650 >(
JMP 3475 /03470-5275 *=
TAD FBITS /03471-1142 I"
CLL RTR /03472-7112 9J
RTR /03473-7012 8J
JMP 3507 /03474-5307 +G
TAD 0017 /03475-1017 HO
AND 0125 /03476-0125 AU
SNA CLA /03477-7650 >(
JMP 3505 /03500-5305 +E
TAD FBITS /03501-1142 I"
CLL RTL /03502-7106 9F
RAL /03503-7004 8D
JMP 3507 /03504-5307 +G
TAD FBITS /03505-1142 I"
BSW /03506-7002 8B
AND 0127 /03507-0127 AW
DCA 0017 /03510-3017 XO
TAD FBITS /03511-1142 I"
AND 0123 /03512-0123 AS
TAD 0017 /03513-1017 HO
DCA FBITS /03514-3142 Y"
TAD 0163 /03515-1163 I3
SNA CLA /03516-7650 >(
JMP I 3455 /03517-5655 .-
DCA 0163 /03520-3163 Y3
JMP I 3523 /03521-5723 /S
JMP I 3455 /03522-5655 .-
CLL IAC RAR /03523-7111 9I
AND 0000 /03524-0000 @@
TAD 0157 /03525-1157 I/
AND C4 /03526-0107 AG
SZA CLA /03527-7640 >
CDF 10 /03530-6211 2I
DCA I 0010 /03531-3410 \H
CDF 0 /03532-6201 2A
JMP I 3524 /03533-5724 /T
AND 0000 /03534-0000 @@
DCA 3551 /03535-3351 [)
TAD I 3534 /03536-1734 O\
DCA 3552 /03537-3352 [*
ISZ 3534 /03540-2334 S\
TAD 0157 /03541-1157 I/
AND C4 /03542-0107 AG
SZA CLA /03543-7640 >
CDF 10 /03544-6211 2I
TAD 3551 /03545-1351 K)
DCA I 3552 /03546-3752 _*
CDF 0 /03547-6201 2A
JMP I 3534 /03550-5734 /\
AND 0000 /03551-0000 @@
AND 0000 /03552-0000 @@
LNK26, AND 0000 /03553-0000 @@
TAD I LNK26 /03554-1753 O+
CIF CDF 10 /03555-6213 2K
JMS I .+3 /03556-4761 '1
ISZ LNK26 /03557-2353 S+
JMP I LNK26 /03560-5753 /+
X12600, F12600 /03561-2600 V@
CHKX8, AND 0000 /03562-0000 @@
TAD MODEX8 /03563-1022 HR
SMA CLA /03564-7700 ?@
JMP I CHKX8 /03565-5762 /2
IOF /03566-6002 0B
TAD PCLOC /03567-1145 I%
CDF 0 /03570-6201 2A
CIF 70 /03571-6272 2:
JMP I .+1 /03572-5773 /;
6520 /03573-6520 5P
ISZ 0000 /03574-2000 P@
TAD I 3503 /03575-1703 OC
ISZ 0156 /03576-2156 Q.
SMA SZA SNL CLA OSR /03577-7764 ?4
PAGE
CHKBUF, JMP I 0013 /03600-5413 ,K
JMP I 0011 /03601-5411 ,I
AND 0000 /03602-0000 @@
AND 0000 /03603-0000 @@
AND 0000 /03604-0000 @@
AND 0000 /03605-0000 @@
AND 0000 /03606-0000 @@
AND 0000 /03607-0000 @@
AND 0004 /03610-0004 @D
JMP I 0015 /03611-5415 ,M
JMP I 0013 /03612-5413 ,K
AND 0000 /03613-0000 @@
MQA MQL CLA SAM /03614-7777 ??
MQA MQL CLA SAM /03615-7777 ??
MQA MQL CLA SAM /03616-7777 ??
MQA MQL CLA SAM /03617-7777 ??
MQA MQL CLA SAM /03620-7777 ??
AND 0004 /03621-0004 @D
JMP I 0015 /03622-5415 ,M
JMP I 0013 /03623-5413 ,K
MQA MQL CLA SAM /03624-7777 ??
AND 0000 /03625-0000 @@
AND 0000 /03626-0000 @@
AND 0000 /03627-0000 @@
AND 0000 /03630-0000 @@
AND 0001 /03631-0001 @A
AND 0004 /03632-0004 @D
JMP I 0021 /03633-5421 ,Q
JMP I 0015 /03634-5415 ,M
ISZ I 0125 /03635-2525 UU
JMP 3652 /03636-5252 **
JMP 3652 /03637-5252 **
JMP 3652 /03640-5252 **
JMP 3652 /03641-5252 **
JMP 3653 /03642-5253 *+
AND 0004 /03643-0004 @D
JMP I 0023 /03644-5423 ,S
JMP I 0021 /03645-5421 ,Q
SMA CLA OSR HLT /03646-7706 ?F
ISZ 0000 /03647-2000 P@
AND 0000 /03650-0000 @@
AND 0000 /03651-0000 @@
AND 0000 /03652-0000 @@
AND 0000 /03653-0000 @@
AND 0004 /03654-0004 @D
JMP I 0023 /03655-5423 ,S
JMP I 0021 /03656-5421 ,Q
SPA CLA /03657-7710 ?H
ISZ I 0000 /03660-2400 T@
AND 0000 /03661-0000 @@
AND 0000 /03662-0000 @@
AND 0000 /03663-0000 @@
AND 0000 /03664-0000 @@
AND 0004 /03665-0004 @D
JMP I 0023 /03666-5423 ,S
JMP I 0021 /03667-5421 ,Q
SMA CLA OSR HLT /03670-7706 ?F
SKON /03671-6000 0@
AND 0000 /03672-0000 @@
AND 0000 /03673-0000 @@
AND 0000 /03674-0000 @@
AND 0000 /03675-0000 @@
AND 0004 /03676-0004 @D
JMP I 0023 /03677-5423 ,S
JMP I 0021 /03700-5421 ,Q
AND 0001 /03701-0001 @A
SKON /03702-6000 0@
AND 0000 /03703-0000 @@
AND 0000 /03704-0000 @@
AND 0000 /03705-0000 @@
AND 0000 /03706-0000 @@
AND 0004 /03707-0004 @D
JMP I 0025 /03710-5425 ,U
AND 0040 /03711-0040 @
AND 0001 /03712-0001 @A
ISZ 0000 /03713-2000 P@
AND 0000 /03714-0000 @@
AND 0000 /03715-0000 @@
AND 0000 /03716-0000 @@
AND 0000 /03717-0000 @@
AND 0004 /03720-0004 @D
JMP I 0027 /03721-5427 ,W
AND 0047 /03722-0047 @'
AND 0002 /03723-0002 @B
SKON /03724-6000 0@
AND 0000 /03725-0000 @@
AND 0000 /03726-0000 @@
AND 0000 /03727-0000 @@
AND 0000 /03730-0000 @@
AND 0004 /03731-0004 @D
JMP I 0031 /03732-5431 ,Y
AND 0041 /03733-0041 @!
SMA CLA OSR HLT /03734-7706 ?F
ISZ 0000 /03735-2000 P@
AND 0000 /03736-0000 @@
AND 0000 /03737-0000 @@
AND 0000 /03740-0000 @@
AND 0000 /03741-0000 @@
AND 0004 /03742-0004 @D
JMP I 0033 /03743-5433 ,[
AND 0042 /03744-0042 @"
AND 0072 /03745-0072 @:
AND 0000 /03746-0000 @@
AND 0000 /03747-0000 @@
AND 0000 /03750-0000 @@
AND 0000 /03751-0000 @@
AND 0001 /03752-0001 @A
AND 0004 /03753-0004 @D
JMP I 0035 /03754-5435 ,]
AND 0043 /03755-0043 @#
AND 0072 /03756-0072 @:
MQA MQL CLA SAM /03757-7777 ??
MQA MQL CLA SAM /03760-7777 ??
MQA MQL CLA SAM /03761-7777 ??
MQA MQL CLA SAM /03762-7777 ??
MQA MQL CLA SAM /03763-7777 ??
AND 0004 /03764-0004 @D
JMP I 0037 /03765-5437 ,_
JMP I 0035 /03766-5435 ,]
AND 0000 /03767-0000 @@
AND 0000 /03770-0000 @@
AND 0000 /03771-0000 @@
AND 0000 /03772-0000 @@
AND 0000 /03773-0000 @@
AND 0000 /03774-0000 @@
AND 0004 /03775-0004 @D
JMP I 0041 /03776-5441 ,!
KCC /03777-6032 0Z
PAGE
ISZ I 0125 /04000-2525 UU
ISZ I 0125 /04001-2525 UU
ISZ I 0125 /04002-2525 UU
ISZ I 0125 /04003-2525 UU
ISZ I 0125 /04004-2525 UU
ISZ I 0125 /04005-2525 UU
AND 0004 /04006-0004 @D
JMP I 0043 /04007-5443 ,#
TFL /04010-6040 0
JMP 4052 /04011-5252 **
JMP 4052 /04012-5252 **
JMP 4052 /04013-5252 **
JMP 4052 /04014-5252 **
JMP 4052 /04015-5252 **
JMP 4052 /04016-5252 **
AND 0004 /04017-0004 @D
JMP I 0046 /04020-5446 ,&
TLS /04021-6046 0&
AND 0000 /04022-0000 @@
AND 0000 /04023-0000 @@
AND 0000 /04024-0000 @@
AND 0000 /04025-0000 @@
AND 0000 /04026-0000 @@
AND 0000 /04027-0000 @@
AND 0004 /04030-0004 @D
JMP I 0051 /04031-5451 ,)
6054 /04032-6054 0,
MQA MQL CLA SAM /04033-7777 ??
MQA MQL CLA SAM /04034-7777 ??
MQA MQL CLA SAM /04035-7777 ??
MQA MQL CLA SAM /04036-7777 ??
MQA MQL CLA SAM /04037-7777 ??
MQA MQL CLA SAM /04040-7777 ??
AND 0004 /04041-0004 @D
JMP I 0054 /04042-5454 ,,
6054 /04043-6054 0,
MQA MQL CLA SAM /04044-7777 ??
MQA MQL CLA SAM /04045-7777 ??
MQA MQL CLA SAM /04046-7777 ??
MQA MQL CLA SAM /04047-7777 ??
MQA MQL CLA SAM /04050-7777 ??
MQA MQL CLA SAM /04051-7777 ??
AND 0004 /04052-0004 @D
JMP I 0054 /04053-5454 ,,
6062 /04054-6062 02
AND 0000 /04055-0000 @@
ISZ I 0125 /04056-2525 UU
ISZ I 0125 /04057-2525 UU
ISZ I 0125 /04060-2525 UU
ISZ I 0125 /04061-2525 UU
ISZ I 0125 /04062-2525 UU
AND 0004 /04063-0004 @D
JMP I 0056 /04064-5456 ,.
6076 /04065-6076 0>
AND 0000 /04066-0000 @@
JMS 0000 /04067-4000 @
AND 0000 /04070-0000 @@
AND 0000 /04071-0000 @@
AND 0000 /04072-0000 @@
AND 0001 /04073-0001 @A
AND 0004 /04074-0004 @D
JMP I 0056 /04075-5456 ,.
6104 /04076-6104 1D
AND 0000 /04077-0000 @@
AND 0000 /04100-0000 @@
AND 0000 /04101-0000 @@
AND 0000 /04102-0000 @@
AND 0000 /04103-0000 @@
AND 0001 /04104-0001 @A
AND 0004 /04105-0004 @D
JMP I 0060 /04106-5460 ,0
6112 /04107-6112 1J
AND 0000 /04110-0000 @@
DCA I 4177 /04111-3777 _?
MQA MQL CLA SAM /04112-7777 ??
MQA MQL CLA SAM /04113-7777 ??
MQA MQL CLA SAM /04114-7777 ??
MQA MQL CLA SAM /04115-7777 ??
AND 0004 /04116-0004 @D
JMP I 0062 /04117-5462 ,2
6120 /04120-6120 1P
JMP 4052 /04121-5252 **
JMP 4052 /04122-5252 **
JMP 4052 /04123-5252 **
JMP 4052 /04124-5252 **
JMP 4052 /04125-5252 **
JMP 4052 /04126-5300 **
/ JMP 4052 /04126-5252 **
AND 0004 /04127-0004 @D
JMP 4052 /04130-5252 **
JMP 4052 /04131-5252 **
JMP 4052 /04132-5252 **
JMP 4052 /04133-5252 **
JMP 4052 /04134-5252 **
JMP 4052 /04135-5300 **
/ JMP 4052 /04135-5252 **
JMP I 0064 /04136-5464 ,4
6070 /04137-6070 08
AND 0000 /04140-0000 @@
DCA I 4177 /04141-3777 _?
MQA MQL CLA SAM /04142-7777 ??
MQA MQL CLA SAM /04143-7777 ??
MQA MQL CLA SAM /04144-7777 ??
MQA MQL CLA SAM /04145-7777 ??
AND 0004 /04146-0004 @D
JMP I 0066 /04147-5466 ,6
6112 /04150-6112 1J
AND 0001 /04151-0001 @A
ISZ 0000 /04152-2000 P@
AND 0000 /04153-0000 @@
AND 0000 /04154-0000 @@
AND 0000 /04155-0000 @@
AND 0000 /04156-0000 @@
AND 0004 /04157-0004 @D
JMP I 0066 /04160-5466 ,6
6112 /04161-6112 1J
AND 0000 /04162-0000 @@
DCA I 4177 /04163-3777 _?
MQA MQL CLA SAM /04164-7777 ??
MQA MQL CLA SAM /04165-7777 ??
MQA MQL CLA SAM /04166-7777 ??
SPA SNA SZL CLA OSR /04167-7774 ?<
AND 0004 /04170-0004 @D
JMP I 0070 /04171-5470 ,8
6126 /04172-6126 1V
MQA MQL CLA SAM /04173-7777 ??
DCA I 4177 /04174-3777 _?
MQA MQL CLA SAM /04175-7777 ??
MQA MQL CLA SAM /04176-7777 ??
MQA MQL CLA SAM /04177-7777 ??
PAGE
SPA SNA SZL CLA OSR HLT /04200-7776 ?>
AND 0004 /04201-0004 @D
JMP I 0072 /04202-5472 ,:
6134 /04203-6134 1\
JMS 4206 /04204-4206 "F
ISZ 0104 /04205-2104 QD
ISZ 0104 /04206-2104 QD
ISZ 0104 /04207-2104 QD
ISZ 0104 /04210-2104 QD
ISZ 0100 /04211-2100 Q@
AND 0004 /04212-0004 @D
JMP I 0074 /04213-5474 ,<
6142 /04214-6142 1"
ISZ 0105 /04215-2105 QE
ISZ 4210 /04216-2210 RH
JMS 4210 /04217-4210 "H
JMS 4210 /04220-4210 "H
JMS 4210 /04221-4210 "H
JMS 4210 /04222-4210 "H
AND 0004 /04223-0004 @D
JMP I 0076 /04224-5476 ,>
6150 /04225-6150 1(
TAD 0043 /04226-1043 H#
ISZ 4210 /04227-2210 RH
JMS 4210 /04230-4210 "H
JMS 4210 /04231-4210 "H
JMS 4210 /04232-4210 "H
JMS 4210 /04233-4210 "H
AND 0004 /04234-0004 @D
JMP I 0100 /04235-5500 -@
6156 /04236-6156 1.
AND 0000 /04237-0000 @@
JMP I 4377 /04240-5777 /?
MQA MQL CLA SAM /04241-7777 ??
MQA MQL CLA SAM /04242-7777 ??
MQA MQL CLA SAM /04243-7777 ??
MQA MQL CLA SAM /04244-7777 ??
AND 0004 /04245-0004 @D
JMP I 0102 /04246-5502 -B
6164 /04247-6164 14
AND 0000 /04250-0000 @@
AND 0000 /04251-0000 @@
AND 0000 /04252-0000 @@
AND 0000 /04253-0000 @@
AND 0000 /04254-0000 @@
AND 0000 /04255-0000 @@
AND 0004 /04256-0004 @D
JMP I 0104 /04257-5504 -D
6172 /04260-6172 1:
AND 0001 /04261-0001 @A
JMS 0000 /04262-4000 @
AND 0000 /04263-0000 @@
AND 0000 /04264-0000 @@
AND 0000 /04265-0000 @@
AND 0001 /04266-0001 @A
AND 0004 /04267-0004 @D
JMP I 0106 /04270-5506 -F
6200 /04271-6200 2@
JMS 4205 /04272-4205 "E
JMP I 4273 /04273-5673 .;
JMP I 4273 /04274-5673 .;
JMP I 4273 /04275-5673 .;
JMP I 4273 /04276-5673 .;
JMP I 4300 /04277-5700 /@
AND 0004 /04300-0004 @D
JMP I 0110 /04301-5510 -H
6206 /04302-6206 2F
ISZ 0103 /04303-2103 QC
DCA 0146 /04304-3146 Y&
DCA 0146 /04305-3146 Y&
DCA 0146 /04306-3146 Y&
DCA 0146 /04307-3146 Y&
DCA 0150 /04310-3150 Y(
AND 0004 /04311-0004 @D
JMP I 0112 /04312-5512 -J
RDF /04313-6214 2L
TAD 0040 /04314-1040 H
ISZ 0104 /04315-2104 QD
ISZ 0104 /04316-2104 QD
ISZ 0104 /04317-2104 QD
ISZ 0104 /04320-2104 QD
ISZ 0110 /04321-2110 QH
AND 0004 /04322-0004 @D
JMP I 0114 /04323-5514 -L
CIF 20 /04324-6222 2R
6313 /04325-6313 3K
DCA 0146 /04326-3146 Y&
DCA 0146 /04327-3146 Y&
DCA 0146 /04330-3146 Y&
DCA 0146 /04331-3146 Y&
DCA 0150 /04332-3150 Y(
AND 0004 /04333-0004 @D
JMP I 0116 /04334-5516 -N
6230 /04335-6230 2X
DCA 0144 /04336-3144 Y$
ISZ 0104 /04337-2104 QD
ISZ 0104 /04340-2104 QD
ISZ 0104 /04341-2104 QD
ISZ 0104 /04342-2104 QD
ISZ 0110 /04343-2110 QH
AND 0004 /04344-0004 @D
JMP I 0120 /04345-5520 -P
6236 /04346-6236 2^
AND 4327 /04347-0327 CW
ISZ 0000 /04350-2000 P@
AND 0000 /04351-0000 @@
AND 0000 /04352-0000 @@
AND 0000 /04353-0000 @@
AND 0000 /04354-0000 @@
AND 0004 /04355-0004 @D
JMP I 0122 /04356-5522 -R
RMF /04357-6244 2$
DCA I 4377 /04360-3777 _?
ISZ 0000 /04361-2000 P@
AND 0000 /04362-0000 @@
AND 0000 /04363-0000 @@
AND 0000 /04364-0000 @@
AND 0000 /04365-0000 @@
AND 0004 /04366-0004 @D
JMP I 0124 /04367-5524 -T
CIF 50 /04370-6252 2*
MQA CLA MUY /04371-7705 ?E
JMP 0000 /04372-5000 (@
AND 0000 /04373-0000 @@
AND 0000 /04374-0000 @@
AND 0000 /04375-0000 @@
AND 0000 /04376-0000 @@
AND 0004 /04377-0004 @D
PAGE
JMP I 0126 /04400-5526 -V
6260 /04401-6260 20
AND 0000 /04402-0000 @@
AND 0000 /04403-0000 @@
AND 0000 /04404-0000 @@
AND 0000 /04405-0000 @@
AND 0000 /04406-0000 @@
AND 0000 /04407-0000 @@
AND 0004 /04410-0004 @D
JMP I 0130 /04411-5530 -X
6266 /04412-6266 26
DCA I 4523 /04413-3723 _S
DCA I 0034 /04414-3434 \\
DCA I 0034 /04415-3434 \\
DCA I 0034 /04416-3434 \\
DCA I 0034 /04417-3434 \\
DCA I 0032 /04420-3432 \Z
AND 0004 /04421-0004 @D
JMP I 0132 /04422-5532 -Z
SUF /04423-6274 2<
JMP 4543 /04424-5343 +#
ISZ 4404 /04425-2204 RD
TAD I 0173 /04426-1573 M;
TAD I 0143 /04427-1543 M#
DCA 0017 /04430-3017 XO
JMS I 0155 /04431-4555 %-
AND 0004 /04432-0004 @D
JMP I 0134 /04433-5534 -\
6302 /04434-6302 3B
6345 /04435-6345 3%
JMS 4550 /04436-4350 #(
TAD I 4541 /04437-1741 O!
CIF CDF 0 /04440-6203 2C
DCA 0025 /04441-3025 XU
705 /04442-0704 GD WVDM 0705
AND 0004 /04443-0004 @D
JMP I 0136 /04444-5536 -^
6310 /04445-6310 3H
AND 0001 /04446-0001 @A
ISZ 0000 /04447-2000 P@
AND 0000 /04450-0000 @@
AND 0000 /04451-0000 @@
AND 0000 /04452-0000 @@
AND 0000 /04453-0000 @@
AND 0004 /04454-0004 @D
JMP I 0140 /04455-5540 -
6316 /04456-6316 3N
MQA MQL CLA SAM /04457-7777 ??
SKON /04460-6000 0@
AND 0000 /04461-0000 @@
AND 0000 /04462-0000 @@
AND 0000 /04463-0000 @@
AND 0000 /04464-0000 @@
AND 0004 /04465-0004 @D
JMP I 0142 /04466-5542 -"
6324 /04467-6324 3T
7777 /04470-7776 ?> WVDM 7777
ISZ 0000 /04471-2000 P@
AND 0000 /04472-0000 @@
AND 0000 /04473-0000 @@
AND 0000 /04474-0000 @@
AND 0000 /04475-0000 @@
AND 0004 /04476-0004 @D
JMP I 0144 /04477-5544 -$
6332 /04500-6332 3Z
JMP 4421 /04501-5221 *Q
DCA I 0025 /04502-3425 \U
TAD I 0076 /04503-1476 L>
ISZ I 4413 /04504-2613 VK
JMS I 4451 /04505-4651 &)
AND I 0113 /04506-0513 EK
AND 0004 /04507-0004 @D
JMP I 0146 /04510-5546 -&
6340 /04511-6340 3
7176 /04512-7176 9>
ISZ 0067 /04513-2067 P7
DCA I 4501 /04514-3701 _A
JMP I 4534 /04515-5734 /\
DCA 4466 /04516-3266 Z6
7675 /04517-7675 >=
AND 0004 /04520-0004 @D
JMP I 0150 /04521-5550 -(
6346 /04522-6346 3&
DCA 0121 /04523-3121 YQ
ISZ I 4451 /04524-2651 V)
ISZ I 4451 /04525-2651 V)
ISZ I 4451 /04526-2651 V)
ISZ I 4451 /04527-2651 V)
ISZ I 4451 /04530-2651 V)
AND 0004 /04531-0004 @D
JMP I 0162 /04532-5562 -2
6120 /04533-6120 1P
ISZ I 0125 /04534-2525 UU
TAD 4452 /04535-1252 J*
JMP 4452 /04536-5252 **
JMP 4452 /04537-5252 **
JMP 4452 /04540-5252 **
JMP 4452 /04541-5252 **
AND 0004 /04542-0004 @D
ISZ I 0125 /04543-2525 UU
DCA I 4577 /04544-3777 _?
MQA MQL CLA SAM /04545-7777 ??
MQA MQL CLA SAM /04546-7777 ??
MQA MQL CLA SAM /04547-7777 ??
MQA MQL CLA SAM /04550-7777 ??
JMP I 0166 /04551-5566 -6
6120 /04552-6120 1P
ISZ I 4516 /04553-2716 WN
DCA I 4505 /04554-3705 _E
TAD I 0043 /04555-1443 L#
CLL CMA CML IAC RAL /04556-7165 95
DCA I 0002 /04557-3402 \B
CIF CDF 10 /04560-6213 2K
AND 0004 /04561-0004 @D
ISZ 4432 /04562-2232 RZ
JMP I 0136 /04563-5536 -^
JMP I 4527 /04564-5727 /W
6642 /04565-6642 6"
7115 /04566-7115 9M
JMP I 4501 /04567-5701 /A
JMP I 0167 /04570-5567 -7
6376 /04571-6376 3>
DCA I 4577 /04572-3777 _?
ISZ 0000 /04573-2000 P@
AND 0000 /04574-0000 @@
AND 0000 /04575-0000 @@
AND 0000 /04576-0000 @@
AND 0000 /04577-0000 @@
PAGE
AND 0044 /04600-0044 @$
JMP I 0171 /04601-5571 -9
6404 /04602-6404 4D
JMS 0000 /04603-4000 @
ISZ 0000 /04604-2000 P@
AND 0000 /04605-0000 @@
AND 0000 /04606-0000 @@
AND 0000 /04607-0000 @@
AND 0000 /04610-0000 @@
AND 0104 /04611-0104 AD
JMP I 0173 /04612-5573 -;
6412 /04613-6412 4J
ISZ I 0125 /04614-2525 UU
ISZ I 0125 /04615-2525 UU
ISZ I 0125 /04616-2525 UU
ISZ I 0125 /04617-2525 UU
ISZ I 0125 /04620-2525 UU
ISZ I 0125 /04621-2525 UU
AND I 0004 /04622-0404 DD
JMP I 0173 /04623-5573 -;
6412 /04624-6412 4J
AND 0000 /04625-0000 @@
AND 0000 /04626-0000 @@
AND 0000 /04627-0000 @@
AND 0000 /04630-0000 @@
AND 0000 /04631-0000 @@
AND 0000 /04632-0000 @@
TAD I 0004 /04633-1404 LD
JMP I 4600 /04634-5600 .@
JMP I 0174 /04635-5574 -<
AND 0000 /04636-0000 @@
AND 0000 /04637-0000 @@
AND 0000 /04640-0000 @@
AND 0000 /04641-0000 @@
AND 0000 /04642-0000 @@
AND 0000 /04643-0000 @@
AND 0004 /04644-0004 @D
JMP I 0177 /04645-5577 -?
JMP I 0174 /04646-5574 -<
AND 0000 /04647-0000 @@
AND 0000 /04650-0000 @@
AND 0000 /04651-0000 @@
AND 0000 /04652-0000 @@
AND 0000 /04653-0000 @@
AND 0001 /04654-0001 @A
AND 0004 /04655-0004 @D
JMP I 0177 /04656-5577 -?
JMP I 0174 /04657-5574 -<
AND 0000 /04660-0000 @@
JMS 0000 /04661-4000 @
AND 0000 /04662-0000 @@
AND 0000 /04663-0000 @@
AND 0000 /04664-0000 @@
AND 0001 /04665-0001 @A
AND 0004 /04666-0004 @D
JMP I 4604 /04667-5604 .D
JMP I 4600 /04670-5600 .@
AND 0000 /04671-0000 @@
AND 0000 /04672-0000 @@
AND 0000 /04673-0000 @@
AND 0000 /04674-0000 @@
AND 0000 /04675-0000 @@
AND 0000 /04676-0000 @@
AND 0004 /04677-0004 @D
JMP I 4604 /04700-5604 .D
JMP I 4600 /04701-5600 .@
AND 0000 /04702-0000 @@
AND 0000 /04703-0000 @@
AND 0000 /04704-0000 @@
AND 0000 /04705-0000 @@
AND 0000 /04706-0000 @@
AND 0001 /04707-0001 @A
AND 0004 /04710-0004 @D
JMP I 4603 /04711-5603 .C
JMP I 4600 /04712-5600 .@
AND 0000 /04713-0000 @@
JMS 0000 /04714-4000 @
AND 0000 /04715-0000 @@
AND 0000 /04716-0000 @@
AND 0000 /04717-0000 @@
AND 0001 /04720-0001 @A
AND 0004 /04721-0004 @D
JMP I 4610 /04722-5610 .H
JMP I 4604 /04723-5604 .D
AND 0000 /04724-0000 @@
AND 0000 /04725-0000 @@
AND 0000 /04726-0000 @@
AND 0000 /04727-0000 @@
AND 0000 /04730-0000 @@
AND 0000 /04731-0000 @@
AND 0004 /04732-0004 @D
JMP I 4610 /04733-5610 .H
JMP I 4604 /04734-5604 .D
AND 0000 /04735-0000 @@
JMS 0000 /04736-4000 @
AND 0000 /04737-0000 @@
AND 0000 /04740-0000 @@
AND 0000 /04741-0000 @@
AND 0001 /04742-0001 @A
AND 0004 /04743-0004 @D
JMP I 4607 /04744-5607 .G
JMP I 4604 /04745-5604 .D
AND 0000 /04746-0000 @@
AND 0000 /04747-0000 @@
AND 0000 /04750-0000 @@
AND 0000 /04751-0000 @@
AND 0000 /04752-0000 @@
AND 0001 /04753-0001 @A
AND 0004 /04754-0004 @D
JMP I 4613 /04755-5613 .K
JMP I 4610 /04756-5610 .H
AND 0000 /04757-0000 @@
AND 0000 /04760-0000 @@
AND 0000 /04761-0000 @@
AND 0000 /04762-0000 @@
AND 0000 /04763-0000 @@
AND 0000 /04764-0000 @@
AND 0004 /04765-0004 @D
JMP I 4614 /04766-5614 .L
JMP I 4610 /04767-5610 .H
AND 0000 /04770-0000 @@
AND 0000 /04771-0000 @@
AND 0000 /04772-0000 @@
AND 0000 /04773-0000 @@
AND 0000 /04774-0000 @@
AND 0001 /04775-0001 @A
AND 0004 /04776-0004 @D
JMP I 4614 /04777-5614 .L
PAGE
JMP I 5010 /05000-5610 .H
AND 0000 /05001-0000 @@
JMS 0000 /05002-4000 @
AND 0000 /05003-0000 @@
AND 0000 /05004-0000 @@
AND 0000 /05005-0000 @@
AND 0001 /05006-0001 @A
AND 0004 /05007-0004 @D
JMP I 5017 /05010-5617 .O
JMP I 5014 /05011-5614 .L
AND 0000 /05012-0000 @@
AND 0000 /05013-0000 @@
AND 0000 /05014-0000 @@
AND 0000 /05015-0000 @@
AND 0000 /05016-0000 @@
AND 0000 /05017-0000 @@
AND 0004 /05020-0004 @D
JMP I 5017 /05021-5617 .O
JMP I 5014 /05022-5614 .L
AND 0000 /05023-0000 @@
AND 0000 /05024-0000 @@
AND 0000 /05025-0000 @@
AND 0000 /05026-0000 @@
AND 0000 /05027-0000 @@
AND 0001 /05030-0001 @A
AND 0004 /05031-0004 @D
JMP I 5020 /05032-5620 .P
JMP I 5014 /05033-5614 .L
MQA MQL CLA SAM /05034-7777 ??
MQA MQL CLA SAM /05035-7777 ??
MQA MQL CLA SAM /05036-7777 ??
MQA MQL CLA SAM /05037-7777 ??
MQA MQL CLA SAM /05040-7777 ??
MQA MQL CLA SAM /05041-7777 ??
AND 0004 /05042-0004 @D
JMP I 5024 /05043-5624 .T
JMP I 5020 /05044-5620 .P
AND 0000 /05045-0000 @@
AND 0000 /05046-0000 @@
AND 0000 /05047-0000 @@
AND 0000 /05050-0000 @@
AND 0000 /05051-0000 @@
AND 0001 /05052-0001 @A
AND 0004 /05053-0004 @D
JMP I 5023 /05054-5623 .S
JMP I 5020 /05055-5620 .P
AND 0000 /05056-0000 @@
AND 0000 /05057-0000 @@
AND 0000 /05060-0000 @@
AND 0000 /05061-0000 @@
AND 0000 /05062-0000 @@
AND 0000 /05063-0000 @@
AND 0004 /05064-0004 @D
JMP I 5023 /05065-5623 .S
JMP I 5020 /05066-5620 .P
AND 0000 /05067-0000 @@
JMS 0000 /05070-4000 @
AND 0000 /05071-0000 @@
AND 0000 /05072-0000 @@
AND 0000 /05073-0000 @@
AND 0001 /05074-0001 @A
AND 0004 /05075-0004 @D
JMP I 5034 /05076-5634 .\
JMP I 5031 /05077-5631 .Y
AND 0000 /05100-0000 @@
AND 0000 /05101-0000 @@
JMP I 5033 /05102-5633 .[
AND 0000 /05103-0000 @@
AND 0000 /05104-0000 @@
AND 0000 /05105-0000 @@
AND 0004 /05106-0004 @D
JMP I 5036 /05107-5636 .^
JMP I 5034 /05110-5634 .\
ISZ I 0125 /05111-2525 UU
ISZ I 0125 /05112-2525 UU
ISZ I 0125 /05113-2525 UU
ISZ I 0125 /05114-2525 UU
ISZ I 0125 /05115-2525 UU
ISZ I 0125 /05116-2525 UU
AND 0004 /05117-0004 @D
JMP I 5041 /05120-5641 .!
JMP I 5036 /05121-5636 .^
AND 0000 /05122-0000 @@
AND 0000 /05123-0000 @@
AND 0000 /05124-0000 @@
AND 0000 /05125-0000 @@
AND 0000 /05126-0000 @@
AND 0000 /05127-0000 @@
AND 0004 /05130-0004 @D
JMP I 5044 /05131-5644 .$
JMP I 5041 /05132-5641 .!
MQA MQL CLA SAM /05133-7777 ??
MQA MQL CLA SAM /05134-7777 ??
MQA MQL CLA SAM /05135-7777 ??
MQA MQL CLA SAM /05136-7777 ??
MQA MQL CLA SAM /05137-7777 ??
MQA MQL CLA SAM /05140-7777 ??
AND 0004 /05141-0004 @D
JMP I 5050 /05142-5650 .(
JMP I 5050 /05143-5650 .(
AND 0000 /05144-0000 @@
AND 0000 /05145-0000 @@
AND 0000 /05146-0000 @@
AND 0000 /05147-0000 @@
AND 0000 /05150-0000 @@
AND 0000 /05151-0000 @@
AND 0004 /05152-0004 @D
JMP I 5055 /05153-5655 .-
JMP I 5056 /05154-5656 ..
AND 0000 /05155-0000 @@
AND 0000 /05156-0000 @@
AND 0000 /05157-0000 @@
AND 0000 /05160-0000 @@
AND 0000 /05161-0000 @@
AND 0000 /05162-0000 @@
AND 0004 /05163-0004 @D
JMP I 5065 /05164-5665 .5
JMP I 5062 /05165-5662 .2
AND 0000 /05166-0000 @@
AND 0000 /05167-0000 @@
AND 0000 /05170-0000 @@
AND 0000 /05171-0000 @@
AND 0000 /05172-0000 @@
AND 0000 /05173-0000 @@
AND 0004 /05174-0004 @D
JMP I 0002 /05175-5402 ,B
JMP I 0000 /05176-5400 ,@
AND 0001 /05177-0001 @A
PAGE
ISZ 0000 /05200-2000 P@
AND 0000 /05201-0000 @@
AND 0000 /05202-0000 @@
AND 0000 /05203-0000 @@
AND 0000 /05204-0000 @@
AND 0004 /05205-0004 @D
JMP I 0002 /05206-5402 ,B
JMP I 0000 /05207-5400 ,@
AND 0000 /05210-0000 @@
AND 0000 /05211-0000 @@
AND 0000 /05212-0000 @@
AND 0000 /05213-0000 @@
AND 0000 /05214-0000 @@
AND 0000 /05215-0000 @@
AND 0004 /05216-0004 @D
JMP I 0046 /05217-5446 ,&
TLS /05220-6046 0&
AND 0000 /05221-0000 @@
AND 0000 /05222-0000 @@
AND 0000 /05223-0000 @@
MQA MQL CLA SAM /05224-7777 ??
MQA MQL CLA SAM /05225-7777 ??
MQA MQL CLA SAM /05226-7777 ??
AND 0000 /05227-0000 @@
JMP I 0051 /05230-5451 ,)
6054 /05231-6054 0,
MQA MQL CLA SAM /05232-7777 ??
MQA MQL CLA SAM /05233-7777 ??
MQA MQL CLA SAM /05234-7777 ??
AND 0000 /05235-0000 @@
AND 0000 /05236-0000 @@
AND 0000 /05237-0000 @@
AND 0000 /05240-0000 @@
JMP I 0054 /05241-5454 ,,
6054 /05242-6054 0,
MQA MQL CLA SAM /05243-7777 ??
MQA MQL CLA SAM /05244-7777 ??
MQA MQL CLA SAM /05245-7777 ??
AND 0000 /05246-0000 @@
AND 0000 /05247-0000 @@
AND 0000 /05250-0000 @@
AND 0000 /05251-0000 @@
JMP I 0054 /05252-5454 ,,
6062 /05253-6062 02
AND 0000 /05254-0000 @@
ISZ I 0125 /05255-2525 UU
ISZ I 0125 /05256-2525 UU
MQA MQL CLA SAM /05257-7777 ??
MQA MQL CLA SAM /05260-7777 ??
MQA MQL CLA SAM /05261-7777 ??
AND 0000 /05262-0000 @@
JMP I 0046 /05263-5446 ,&
TSK /05264-6045 0%
MQA MQL CLA SAM /05265-7777 ??
AND 0000 /05266-0000 @@
AND 0000 /05267-0000 @@
MQA MQL CLA SAM /05270-7777 ??
MQA MQL CLA SAM /05271-7777 ??
MQA MQL CLA SAM /05272-7777 ??
JMS 0000 /05273-4000 @
JMP I 0051 /05274-5451 ,)
6053 /05275-6053 0+
AND 0000 /05276-0000 @@
MQA MQL CLA SAM /05277-7777 ??
MQA MQL CLA SAM /05300-7777 ??
AND 0000 /05301-0000 @@
AND 0000 /05302-0000 @@
AND 0000 /05303-0000 @@
JMS 0000 /05304-4000 @
JMP I 0005 /05305-5405 ,E
6102 /05306-6102 1B
AND 0000 /05307-0000 @@
AND 0000 /05310-0000 @@
6102 /05311-6102 1B
AND 0000 /05312-0000 @@
AND 0000 /05313-0000 @@
AND 0000 /05314-0000 @@
JMS 0000 /05315-4000 @
JMP I 0010 /05316-5410 ,H
6074 /05317-6074 0<
AND 0000 /05320-0000 @@
AND 0000 /05321-0000 @@
6074 /05322-6074 0<
AND 0000 /05323-0000 @@
AND 0000 /05324-0000 @@
AND 0000 /05325-0000 @@
JMS 0000 /05326-4000 @
JMP I 5272 /05327-5672 .:
AND 0040 /05330-0040 @
AND 0001 /05331-0001 @A
ISZ 0000 /05332-2000 P@
AND 0000 /05333-0000 @@
AND 0000 /05334-0000 @@
AND 0000 /05335-0000 @@
AND 0000 /05336-0000 @@
AND 0004 /05337-0004 @D
AND 0000 /05340-0000 @@
JMS 0000 /05341-4000 @
AND 0000 /05342-0000 @@
AND 0000 /05343-0000 @@
AND 0000 /05344-0000 @@
AND 0000 /05345-0000 @@
AND 0000 /05346-0000 @@
AND 0000 /05347-0000 @@
ISZ 0004 /05350-2004 PD
AND 0000 /05351-0000 @@
MQA CLA DAD /05352-7743 ?#
AND 0000 /05353-0000 @@
DCA I 5203 /05354-3603 ^C
JMS 5300 /05355-4300 #@
DCA I 5207 /05356-3607 ^G
JMS 5300 /05357-4300 #@
AND 0175 /05360-0175 A=
AND 0000 /05361-0000 @@
AND 5275 /05362-0275 B=
AND 0000 /05363-0000 @@
AND 5375 /05364-0375 C=
JMP I 0000 /05365-5400 ,@
CLA IAC /05366-7201 :A
JMP 5306 /05367-5306 +F
CLA BSW /05370-7202 :B
6543 /05371-6543 5#
CLA /05372-7200 :@
AND I 5370 /05373-0770 G8
CLA IAC BSW /05374-7203 :C
TAD 5234 /05375-1234 J\
DCA I 5305 /05376-3705 _E
JMP 5261 /05377-5261 *1
PAGE
FPC1,5000 /LTR 0000 /05400-5000 (@
0000 /FEXIT /05401-0000 @@
LEB25P,0050 /STARTE /05402-0050 @(
7147 /LEAI BASE+25X4+ /05403-7147 9'
0000 /FEXIT /05404-0000 @@
LEB25,0050 /STARTE /05405-0050 @(
7047 /LEAI BASE+25X4 /05406-7047 8'
0000 /FEXIT /05407-0000 @@
0000 /FEXIT /05410-0000 @@
TFCLA,0002 /FCLA /05411-0002 @B
0000 /FEXIT /05412-0000 @@
TFNEG,0003 /FNEG /05413-0003 @C
0000 /FEXIT /05414-0000 @@
TFNEG3,0003 /FNEG /05415-0003 @C
0003 /FNEG /05416-0003 @C
0003 /FNEG /05417-0003 @C
0000 /FEXIT /05420-0000 @@
TFNORM,0004 /FNORM /05421-0004 @D
0000 /FEXIT /05422-0000 @@
TXTA0,0030 /XTA 0 /05423-0030 @X
0000 /FEXIT /05424-0000 @@
TXTA7,0037 /XTA 7 /05425-0037 @_
0000 /FEXIT /05426-0000 @@
TALN1,0011 /ALN 1 /05427-0011 @I
0000 /FEXIT /05430-0000 @@
TALN2,0012 /ALN 2 /05431-0012 @J
0000 /FEXIT /05432-0000 @@
TALN3,0013 /ALN 3 /05433-0013 @K
0000 /FEXIT /05434-0000 @@
TALN0,0010 /ALN 0 /05435-0010 @H
0000 /FEXIT /05436-0000 @@
TFLB30,0210 /FLDA BASE+030 /05437-0210 BH
0000 /FEXIT /05440-0000 @@
TFLB36,0212 /FLDA BASE+036 /05441-0212 BJ
0000 /FEXIT /05442-0000 @@
TFLX0P,0500 /FLDA L X0+ 0 /05443-0500 E@
6044 / 6044 /05444-6044 0$
0000 /FEXIT /05445-0000 @@
TFLX0,0440 /FLDA L X4 0 /05446-0440 D
6044 / 6044 /05447-6044 0$
0000 /FEXIT /05450-0000 @@
TFLX4P,0540 /FLDA L X4+ 0 /05451-0540 E
6044 / 6044 /05452-6044 0$
0000 /FEXIT /05453-0000 @@
TFIX4,0647 /FLDA % BASE+25X4 /05454-0647 F'
0000 /FEXIT /05455-0000 @@
TFIX4P,0747 /FLDA % BASE+25X4+ /05456-0747 G'
0000 /FEXIT /05457-0000 @@
FSB116,6232 /FSTA BASE+116 /05460-6232 2Z
0000 /FEXIT /05461-0000 @@
FAB066,1222 /FADD BASE+066 /05462-1222 JR
0000 /FEXIT /05463-0000 @@
FAB110,1230 /FADD BASE+110 /05464-1230 JX
0000 /FEXIT /05465-0000 @@
FAB124,1234 /FADD BASE+124 /05466-1234 J\
0000 /FEXIT /05467-0000 @@
FAB132,1236 /FADD BASE+132 /05470-1236 J^
0000 /FEXIT /05471-0000 @@
FAB140,1240 /FADD BASE+140 /05472-1240 J
0000 /FEXIT /05473-0000 @@
FAB146,1242 /FADD BASE+146 /05474-1242 J"
0000 /FEXIT /05475-0000 @@
FAB154,1244 /FADD BASE+154 /05476-1244 J$
0000 /FEXIT /05477-0000 @@
FSB162,2246 /FSUB BASE+162 /05500-2246 R&
0000 /FEXIT /05501-0000 @@
FSB170,2250 /FSUB BASE+170 /05502-2250 R(
0000 /FEXIT /05503-0000 @@
FSB176,2252 /FSUB BASE+176 /05504-2252 R*
0000 /FEXIT /05505-0000 @@
FSB204,2254 /FSUB BASE+204 /05506-2254 R,
0000 /FEXIT /05507-0000 @@
FSB212,2256 /FSUB BASE+212 /05510-2256 R.
0000 /FEXIT /05511-0000 @@
FSB220,2260 /FSUB BASE+220 /05512-2260 R0
0000 /FEXIT /05513-0000 @@
FSB226,2262 /FSUB BASE+226 /05514-2262 R2
0000 /FEXIT /05515-0000 @@
FSB234,2264 /FSUB BASE+234 /05516-2264 R4
0000 /FEXIT /05517-0000 @@
FMB242,4266 /FMUL BASE+242 /05520-4266 "6
0000 /FEXIT /05521-0000 @@
FMB250,4270 /FMUL BASE+250 /05522-4270 "8
0000 /FEXIT /05523-0000 @@
FMB256,4272 /FMUL BASE+256 /05524-4272 ":
0000 /FEXIT /05525-0000 @@
FMB264,4274 /FMUL BASE+264 /05526-4274 "<
0000 /FEXIT /05527-0000 @@
FMB272,4276 /FMUL BASE+272 /05530-4276 ">
0000 /FEXIT /05531-0000 @@
FMB300,4300 /FMUL BASE+300 /05532-4300 #@
0000 /FEXIT /05533-0000 @@
FDB306,3302 /FDIV BASE+306 /05534-3302 [B
0000 /FEXIT /05535-0000 @@
FDB314,3304 /FDIV BASE+314 /05536-3304 [D
0000 /FEXIT /05537-0000 @@
FDB322,3306 /FDIV BASE+322 /05540-3306 [F
0000 /FEXIT /05541-0000 @@
FDB330,3310 /FDIV BASE+330 /05542-3310 [H
0000 /FEXIT /05543-0000 @@
FDB336,3312 /FDIV BASE+336 /05544-3312 [J
0000 /FEXIT /05545-0000 @@
FDB344,3314 /FDIV BASE+344 /05546-3314 [L
0000 /FEXIT /05547-0000 @@
0006 /STARTD /05550-0006 @F
0001 /FPAUSE /05551-0001 @A
0000 /FEXIT /05552-0000 @@
0005 /STARTF /05553-0005 @E
0001 /FPAUSE /05554-0001 @A
0000 /FEXIT /05555-0000 @@
SLA116,6232 /FSTA BASE+116 /05556-6232 2Z
0320 /FLDA BASE+360 /05557-0320 CP
5232 /FADDM BASE+116 /05560-5232 *Z
0000 /FEXIT /05561-0000 @@
SLM116,6232 /FSTA BASE+116 /05562-6232 2Z
0322 /FLDA BASE+366 /05563-0322 CR
7232 /FMULM BASE+116 /05564-7232 :Z
0000 /FEXIT /05565-0000 @@
FAB374,1324 /FADD BASE+374 /05566-1324 KT
0000 /FEXIT /05567-0000 @@
FAB402,1326 /FADD BASE+402 /05570-1326 KV
0000 /FEXIT /05571-0000 @@
FDB410,3330 /FDIV BASE+410 /05572-3330 [X
0000 /FEXIT /05573-0000 @@
TJEQ,1000 /JEQ 0 /05574-1000 H@
5577 / 5577 /05575-5577 -?
0000 /FEXIT /05576-0000 @@
0000 /FEXIT /05577-0000 @@
PAGE
TJGE,1010 /JGE 0 /05600-1010 HH
5603 / 5603 /05601-5603 .C
0000 /FEXIT /05602-0000 @@
0000 /FEXIT /05603-0000 @@
TJLE,1020 /JLE 0 /05604-1020 HP
5607 / 5607 /05605-5607 .G
0000 /FEXIT /05606-0000 @@
0000 /FEXIT /05607-0000 @@
TJNE,1040 /JNE 0 /05610-1040 H
5613 / 5613 /05611-5613 .K
0000 /FEXIT /05612-0000 @@
0000 /FEXIT /05613-0000 @@
TJLT,1050 /JLT 0 /05614-1050 H(
5617 / 5617 /05615-5617 .O
0000 /FEXIT /05616-0000 @@
0000 /FEXIT /05617-0000 @@
TJGT,1060 /JGT 0 /05620-1060 H0
5623 / 5623 /05621-5623 .S
0000 /FEXIT /05622-0000 @@
0000 /FEXIT /05623-0000 @@
0000 /FEXIT /05624-0000 @@
0000 /FEXIT /05625-0000 @@
0000 /FEXIT /05626-0000 @@
0000 /FEXIT /05627-0000 @@
0000 /FEXIT /05630-0000 @@
TJAC,0007 /JAC /05631-0007 @G
5633 /FADDM% BASE+11X3 /05632-5633 .[
0000 /FEXIT /05633-0000 @@
TFNOP,0040 /FNOP /05634-0040 @
0000 /FEXIT /05635-0000 @@
TJA,1030 /JA 0 /05636-1030 HX
5640 / 5640 /05637-5640 .
0000 /FEXIT /05640-0000 @@
TJAL,1070 /JAL 0 /05641-1070 H8
5644 / 5644 /05642-5644 .$
0000 /FEXIT /05643-0000 @@
0000 /FEXIT /05644-0000 @@
TJSR,1130 /JSR 0 /05645-1130 IX
5650 / 5650 /05646-5650 .(
0000 /FEXIT /05647-0000 @@
1030 /JA 0 /05650-1030 HX
6001 / 6001 /05651-6001 0A
TJSA,1120 /JSA 0 /05652-1120 IP
5655 / 5655 /05653-5655 .-
0000 /FEXIT /05654-0000 @@
0000 /FEXIT /05655-0000 @@
0000 /FEXIT /05656-0000 @@
1030 /JA 0 /05657-1030 HX
5655 / 5655 /05660-5655 .-
0000 /FEXIT /05661-0000 @@
TJNX5P,2150 /JNX X5+ 0 /05662-2150 Q(
5665 / 5665 /05663-5665 .5
0000 /FEXIT /05664-0000 @@
0000 /FEXIT /05665-0000 @@
0020 /ATX 0 /05666-0020 @P
0002 /FCLA /05667-0002 @B
0030 /XTA 0 /05670-0030 @X
0000 /FEXIT /05671-0000 @@
7410 /FMULML X1 0 /05672-7410 <H
5302 / 5302 /05673-5302 +B
1374 /FADD BASE+564 /05674-1374 K<
7640 /FMULM% BASE+00X4 /05675-7640 >
7410 /FMULML X1 0 /05676-7410 <H
5301 / 5301 /05677-5301 +A
5215 /FADDM BASE+047 /05700-5215 *M
1105 /SETX 5 /05701-1105 IE
1107 / 1107 /05702-1107 IG
1073 /JAL 3 /05703-1073 H;
3220 / 3220 /05704-3220 ZP
5215 /FADDM BASE+047 /05705-5215 *M
7200 /FMULM BASE+000 /05706-7200 :@
4453 /FMUL L X5 3 /05707-4453 $+
6010 / 6010 /05710-6010 0H
5200 /FADDM BASE+000 /05711-5200 *@
4461 /FMUL L X6 1 /05712-4461 $1
0000 / 0000 /05713-0000 @@
7424 /FMULML X2 4 /05714-7424 <T
7213 / 7213 /05715-7213 :K
7223 /FMULM BASE+071 /05716-7223 :S
7422 /FMULML X2 2 /05717-7422 <R
0000 / 0000 /05720-0000 @@
0000 /FEXIT /05721-0000 @@
0000 /FEXIT /05722-0000 @@
0004 /FNORM /05723-0004 @D
0005 /STARTF /05724-0005 @E
0006 /STARTD /05725-0006 @F
5200 /FADDM BASE+000 /05726-5200 *@
4462 /FMUL L X6 2 /05727-4462 $2
0002 / 0002 /05730-0002 @B
0000 /FEXIT /05731-0000 @@
0000 /FEXIT /05732-0000 @@
0000 /FEXIT /05733-0000 @@
0000 /FEXIT /05734-0000 @@
0000 /FEXIT /05735-0000 @@
0000 /FEXIT /05736-0000 @@
0000 /FEXIT /05737-0000 @@
5200 /FADDM BASE+000 /05740-5200 *@
1123 /JSA 3 /05741-1123 IS
7640 / 7640 /05742-7640 >
5200 /FADDM BASE+000 /05743-5200 *@
5773 /FADDM% BASE+11X7+ /05744-5773 /;
0054 /STARTE /05745-0054 @,
0055 /STARTE /05746-0055 @-
0056 /STARTE /05747-0056 @.
0057 /STARTE /05750-0057 @/
0000 /FEXIT /05751-0000 @@
0060 /RESERVED /05752-0060 @0
0061 /RESERVED /05753-0061 @1
0062 /RESERVED /05754-0062 @2
0000 /FEXIT /05755-0000 @@
4303 /FMUL BASE+311 /05756-4303 #C
1704 /FADD % BASE+14X0+ /05757-1704 OD
0575 /FLDA L X7+ 5 /05760-0575 E=
0000 / 0000 /05761-0000 @@
2003 /JNX X0 3 /05762-2003 PC
7500 / 7500 /05763-7500 =@
0403 /FLDA L X0 3 /05764-0403 DC
7500 / 7500 /05765-7500 =@
7774 /FMULM% BASE+14X7+ /05766-7774 ?<
2415 /FSUB L X1 5 /05767-2415 TM
5256 / 5256 /05770-5256 *.
3746 /FDIV % BASE+22X4+ /05771-3746 _&
4147 /TRAP4 7 /05772-4147 !'
6000 / 6000 /05773-6000 0@
7736 /FMULM% BASE+22X3+ /05774-7736 ?^
7764 /FMULM% BASE+14X6+ /05775-7764 ?4
7773 /FMULM% BASE+11X7+ /05776-7773 ?;
7762 /FMULM% BASE+06X6+ /05777-7762 ?2
PAGE
BASE0, AND 0000 /06000-0000 @@
AND 0000 /06001-0000 @@
AND 0000 /06002-0000 @@
AND 0000 /06003-0000 @@
AND 0000 /06004-0000 @@
AND 0000 /06005-0000 @@
AND 0000 /06006-0000 @@
AND 0000 /06007-0000 @@
AND 0000 /06010-0000 @@
AND 0000 /06011-0000 @@
AND 0000 /06012-0000 @@
AND 0000 /06013-0000 @@
AND 0000 /06014-0000 @@
AND 0000 /06015-0000 @@
AND 0000 /06016-0000 @@
AND 0000 /06017-0000 @@
AND 0000 /06020-0000 @@
AND 0000 /06021-0000 @@
AND 0000 /06022-0000 @@
AND 0000 /06023-0000 @@
AND 0000 /06024-0000 @@
AND 0000 /06025-0000 @@
AND 0000 /06026-0000 @@
6074 /06027-6074 0<
ISZ I 0125 /06030-2525 UU
ISZ I 0125 /06031-2525 UU
ISZ I 0125 /06032-2525 UU
ISZ I 0125 /06033-2525 UU
ISZ I 0125 /06034-2525 UU
ISZ I 0125 /06035-2525 UU
JMP 6052 /06036-5252 **
JMP 6052 /06037-5252 **
JMP 6052 /06040-5252 **
JMP 6052 /06041-5252 **
JMP 6052 /06042-5252 **
JMP 6052 /06043-5252 **
AND 0000 /06044-0000 @@
AND 0000 /06045-0000 @@
AND 0000 /06046-0000 @@
AND 0000 /06047-0000 @@
AND 0000 /06050-0000 @@
AND 0000 /06051-0000 @@
MQA MQL CLA SAM /06052-7777 ??
MQA MQL CLA SAM /06053-7777 ??
MQA MQL CLA SAM /06054-7777 ??
MQA MQL CLA SAM /06055-7777 ??
MQA MQL CLA SAM /06056-7777 ??
MQA MQL CLA SAM /06057-7777 ??
AND 0000 /06060-0000 @@
ISZ I 0125 /06061-2525 UU
ISZ I 0125 /06062-2525 UU
ISZ I 0125 /06063-2525 UU
ISZ I 0125 /06064-2525 UU
ISZ I 0125 /06065-2525 UU
AND 0000 /06066-0000 @@
TAD 6052 /06067-1252 J*
JMP 6052 /06070-5252 **
JMP 6052 /06071-5252 **
JMP 6052 /06072-5252 **
JMP 6052 /06073-5252 **
AND 0000 /06074-0000 @@
JMS 0000 /06075-4000 @
AND 0000 /06076-0000 @@
AND 0000 /06077-0000 @@
AND 0000 /06100-0000 @@
AND 0001 /06101-0001 @A
AND 0000 /06102-0000 @@
AND 0000 /06103-0000 @@
AND 0000 /06104-0000 @@
AND 0000 /06105-0000 @@
AND 0000 /06106-0000 @@
AND 0001 /06107-0001 @A
AND 0000 /06110-0000 @@
DCA I 6177 /06111-3777 _?
MQA MQL CLA SAM /06112-7777 ??
MQA MQL CLA SAM /06113-7777 ??
MQA MQL CLA SAM /06114-7777 ??
MQA MQL CLA SAM /06115-7777 ??
BP26, AND 0000 /06116-0000 @@
AND 0000 /06117-0000 @@
AND 0000 /06120-0000 @@
AND 0000 /06121-0000 @@
AND 0000 /06122-0000 @@
AND 0000 /06123-0000 @@
MQA MQL CLA SAM /06124-7777 ??
MQA MQL CLA SAM /06125-7777 ??
MQA MQL CLA SAM /06126-7777 ??
MQA MQL CLA SAM /06127-7777 ??
MQA MQL CLA SAM /06130-7777 ??
MQA MQL CLA SAM /06131-7777 ??
JMS 6010 /06132-4210 "H
AND 6010 /06133-0210 BH
JMS 6010 /06134-4210 "H
JMS 6010 /06135-4210 "H
JMS 6010 /06136-4210 "H
JMS 6010 /06137-4210 "H
ISZ 0104 /06140-2104 QD
ISZ 6114 /06141-2314 SL
6314 /06142-6314 3L
6314 /06143-6314 3L
6314 /06144-6314 3L
6314 /06145-6314 3L
TAD 0042 /06146-1042 H"
DCA 6156 /06147-3356 [.
7356 /06150-7356 ;.
7356 /06151-7356 ;.
7356 /06152-7356 ;.
7356 /06153-7356 ;.
MQA MQL CLA SAM /06154-7777 ??
JMS 0000 /06155-4000 @
AND 0000 /06156-0000 @@
AND 0000 /06157-0000 @@
AND 0000 /06160-0000 @@
AND 0001 /06161-0001 @A
MQA MQL CLA SAM /06162-7777 ??
DCA I 6177 /06163-3777 _?
MQA MQL CLA SAM /06164-7777 ??
MQA MQL CLA SAM /06165-7777 ??
MQA MQL CLA SAM /06166-7777 ??
MQA MQL CLA SAM /06167-7777 ??
AND 0000 /06170-0000 @@
DCA I 6177 /06171-3777 _?
MQA MQL CLA SAM /06172-7777 ??
MQA MQL CLA SAM /06173-7777 ??
MQA MQL CLA SAM /06174-7777 ??
MQA MQL CLA SAM /06175-7777 ??
JMS 6010 /06176-4210 "H
JMS I 0021 /06177-4421 $Q
PAGE
AND I 0021 /06200-0421 DQ
AND I 0021 /06201-0421 DQ
AND I 0021 /06202-0421 DQ
AND I 0020 /06203-0420 DP
ISZ 0104 /06204-2104 QD
AND I 0021 /06205-0421 DQ
AND I 0021 /06206-0421 DQ
AND I 0021 /06207-0421 DQ
AND I 0021 /06210-0421 DQ
AND I 0020 /06211-0420 DP
TAD 0042 /06212-1042 H"
AND I 0021 /06213-0421 DQ
AND I 0021 /06214-0421 DQ
AND I 0021 /06215-0421 DQ
AND I 0021 /06216-0421 DQ
AND I 0020 /06217-0420 DP
6314 /06220-6314 3L
JMS I 6231 /06221-4631 &Y
JMS I 6231 /06222-4631 &Y
JMS I 6231 /06223-4631 &Y
JMS I 6231 /06224-4631 &Y
JMS I 6230 /06225-4630 &X
DCA 0146 /06226-3146 Y&
ISZ I 0125 /06227-2525 UU
ISZ I 0125 /06230-2525 UU
ISZ I 0125 /06231-2525 UU
ISZ I 0125 /06232-2525 UU
ISZ I 0124 /06233-2524 UT
AND I 0021 /06234-0421 DQ
AND I 0021 /06235-0421 DQ
AND I 0021 /06236-0421 DQ
AND I 0021 /06237-0421 DQ
AND I 0021 /06240-0421 DQ
AND I 0020 /06241-0420 DP
ISZ 0000 /06242-2000 P@
ISZ 0000 /06243-2000 P@
AND 0000 /06244-0000 @@
AND 0000 /06245-0000 @@
AND 0000 /06246-0000 @@
AND 0000 /06247-0000 @@
AND 0001 /06250-0001 @A
DCA 0000 /06251-3000 X@
AND 0000 /06252-0000 @@
AND 0000 /06253-0000 @@
AND 0000 /06254-0000 @@
AND 0000 /06255-0000 @@
MQA CLA MUY /06256-7705 ?E
AND 0000 /06257-0000 @@
AND 0000 /06260-0000 @@
AND 0000 /06261-0000 @@
AND 0000 /06262-0000 @@
AND 0001 /06263-0001 @A
TAD 6200 /06264-1200 J@
TAD 6252 /06265-1252 J*
JMP 6252 /06266-5252 **
JMP 6252 /06267-5252 **
JMP 6252 /06270-5252 **
JMP 6252 /06271-5252 **
AND 0071 /06272-0071 @9
JMS I F52 /06273-4471 $9
JMP 6307 /06274-5307 +G
TAD 6352 /06275-1352 K*
CLA CLL CMA RAR /06276-7350 ;(
JMS I 6335 /06277-4735 ']
JMS 0001 /06300-4001 A
JMP 0064 /06301-5064 (4
DCA I 0110 /06302-3510 ]H
JMS 6376 /06303-4376 #>
JMP 0146 /06304-5146 )&
ISZ I 0175 /06305-2575 U=
DCA I 6377 /06306-3777 _?
ISZ 0000 /06307-2000 P@
AND 0000 /06310-0000 @@
AND 0000 /06311-0000 @@
AND 0000 /06312-0000 @@
AND 0000 /06313-0000 @@
AND 0001 /06314-0001 @A
JMS 0000 /06315-4000 @
AND 0000 /06316-0000 @@
AND 0000 /06317-0000 @@
AND 0000 /06320-0000 @@
AND 0001 /06321-0001 @A
AND 0000 /06322-0000 @@
DCA I 6377 /06323-3777 _?
MQA MQL CLA SAM /06324-7777 ??
MQA MQL CLA SAM /06325-7777 ??
MQA MQL CLA SAM /06326-7777 ??
MQA MQL CLA SAM /06327-7777 ??
AND 0031 /06330-0031 @Y
JMS I 6371 /06331-4771 '9
6730 /06332-6730 7X
JMP 0137 /06333-5137 )_
6407 /06334-6407 4G
ISZ 0173 /06335-2173 Q;
CLA CLL IAC /06336-7301 ;A
CLA CMA CML IAC /06337-7261 :1
AND 6376 /06340-0376 C>
JMP I 6342 /06341-5742 /"
6572 /06342-6572 5:
AND I 6313 /06343-0713 GK
6565 /06344-6565 55
ISZ I 0125 /06345-2525 UU
ISZ I 0125 /06346-2525 UU
ISZ I 0125 /06347-2525 UU
ISZ I 0125 /06350-2525 UU
ISZ I 0125 /06351-2525 UU
AND 0001 /06352-0001 @A
JMS 0000 /06353-4000 @
AND 0000 /06354-0000 @@
AND 0000 /06355-0000 @@
AND 0000 /06356-0000 @@
AND 0001 /06357-0001 @A
ISZ I 0125 /06360-2525 UU
TAD 6252 /06361-1252 J*
JMP 6252 /06362-5252 **
JMP 6252 /06363-5252 **
JMP 6252 /06364-5252 **
JMP 6252 /06365-5252 **
ISZ I 6316 /06366-2716 WN
DCA I 6305 /06367-3705 _E
TAD I 0043 /06370-1443 L#
CLL CMA CML IAC RAL /06371-7165 95
DCA I 0002 /06372-3402 \B
CIF CDF 10 /06373-6213 2K
JMS 0000 /06374-4000 @
AND 0000 /06375-0000 @@
AND 0000 /06376-0000 @@
AND 0000 /06377-0000 @@
PAGE
AND 0000 /06400-0000 @@
AND 0001 /06401-0001 @A
DCA I 6577 /06402-3777 _?
AND 0000 /06403-0000 @@
AND 0000 /06404-0000 @@
AND 0000 /06405-0000 @@
AND 0000 /06406-0000 @@
AND 0001 /06407-0001 @A
AND 0000 /06410-0000 @@
AND 0000 /06411-0000 @@
AND 0000 /06412-0000 @@
AND 0000 /06413-0000 @@
AND 0000 /06414-0000 @@
AND 0000 /06415-0000 @@
AND 0000 /06416-0000 @@
TAD I 0001 /06417-1401 LA
DCA 0140 /06420-3140 Y
AND 0116 /06421-0116 AN
AND I 0040 /06422-0440 D
TAD I 0117 /06423-1517 MO
TAD I 6411 /06424-1611 NI
ISZ I 0017 /06425-2417 TO
ISZ 6440 /06426-2240 R
TAD 0116 /06427-1116 IN
AND 6517 /06430-0317 CO
TAD I 0120 /06431-1520 MP
AND 0124 /06432-0124 AT
TAD 0102 /06433-1102 IB
TAD I 0005 /06434-1405 LE
AND 0000 /06435-0000 @@
TAD I 6417 /06436-1617 NO
ISZ I 0040 /06437-2440 T
ISZ I 6501 /06440-2701 WA
ISZ 6477 /06441-2277 R?
AND 0000 /06442-0000 @@
AND I 6411 /06443-0611 FI
TAD I 0005 /06444-1405 LE
ISZ 6540 /06445-2340 S
AND I 0005 /06446-0405 DE
TAD I 0005 /06447-1405 LE
ISZ I 0005 /06450-2405 TE
AND I 0072 /06451-0472 D:
AND 0000 /06452-0000 @@
AND I 6411 /06453-0611 FI
TAD I 0005 /06454-1405 LE
ISZ 6540 /06455-2340 S
ISZ 6405 /06456-2205 RE
TAD I 6401 /06457-1601 NA
TAD I 0105 /06460-1505 ME
AND I 0072 /06461-0472 D:
AND 0000 /06462-0000 @@
AND I 6411 /06463-0611 FI
TAD I 0005 /06464-1405 LE
ISZ 6540 /06465-2340 S
AND 6517 /06466-0317 CO
ISZ 0011 /06467-2011 PI
AND I 0104 /06470-0504 ED
CLA /06471-7200 :@
6060 /06472-6060 00
TAD 6557 /06473-1357 K/
6060 /06474-6060 00
TAD 6540 /06475-1340 K
TAD I 0105 /06476-1505 ME
TAD I 0117 /06477-1517 MO
X6500, AND 0000 /06500-0000 @@
TAD MODEX8 /06501-1022 HR
SMA CLA /06502-7700 ?@
JMP I X6500 /06503-5700 /@
IOF /06504-6002 0B
CDF 0 /06505-6201 2A
CIF 70 /06506-6272 2:
JMS I .+2 /06507-4711 'I
JMP I X6500 /06510-5700 /@
6500 /06511-6500 5@
AND 0000 /06512-0000 @@
CDF 10 /06513-6211 2I
TAD I 6525 /06514-1725 OU
CDF 0 /06515-6201 2A
AND 0106 /06516-0106 AF
SZA CLA /06517-7640 >
IAC /06520-7001 8A
DCA I 6577 /06521-3777 _?
TAD I 6577 /06522-1777 O?
DCA I 6576 /06523-3776 _>
JMP I 6512 /06524-5712 /J
AND 0021 /06525-0021 @Q
AND 0000 /06526-0000 @@
TAD I 6534 /06527-1734 O\
TAD 6575 /06530-1375 K=
SZA CLA /06531-7640 >
JMP I 6526 /06532-5726 /V
JMP I 6574 /06533-5774 /<
DCA 6473 /06534-3273 Z;
AND 0000 /06535-0000 @@
TAD 6573 /06536-1373 K;
JMS I PUN /06537-4461 $1
TAD 6572 /06540-1372 K:
JMS I PUN /06541-4461 $1
JMP I 6535 /06542-5735 /]
VTAB, AND 0000 /06543-0000 @@
TAD 6571 /06544-1371 K9
JMS I PUN /06545-4461 $1
TAD 0177 /06546-1177 I?
CMA /06547-7040 8
DCA 6556 /06550-3356 [.
TAD 6570 /06551-1370 K8
JMS I PUN /06552-4461 $1
ISZ 6556 /06553-2356 S.
JMP 6552 /06554-5352 +*
JMP I VTAB /06555-5743 /#
AND 0000 /06556-0000 @@
AND 0006 /06557-0006 @F
AND 0001 /06560-0001 @A
AND 0004 /06561-0004 @D
AND 0006 /06562-0006 @F
JMS I 0123 /06563-4523 %S
ISZ I 0120 /06564-2520 UP
AND I 0122 /06565-0522 ER
ISZ 6505 /06566-2305 SE
AND I 0011 /06567-0411 DI
AND 6412 /06570-0212 BJ
AND 6415 /06571-0215 BM
AND 6507 /06572-0307 CG
AND 6536 /06573-0336 C^
7217 /06574-7217 :O
MQA MQL DCM /06575-7575 ==
JMP 6521 /06576-5321 +Q
JMP 6510 /06577-5310 +H
PAGE
LOOP, AND 0000 /06600-0000 @@
TAD I LOOP /06601-1600 N@
DCA LPBACK /06602-3232 ZZ
RDF /06603-6214 2L
TAD (CIF CDF 0 /06604-1377 K?
DCA LPEX /06605-3225 ZU
CDF 0 /06606-6201 2A
DCA CIF10 /06607-3004 XD
DCA CDF10 /06610-3003 XC
ISZ LOOP /06611-2200 R@
JMS I READCH /06612-4502 %B
JMS I GETSW /06613-4463 $3
CLL RTL /06614-7106 9F
SMA SNL /06615-7520 =P
JMP .+2 /06616-5220 *P
JMP .+5 /06617-5224 *T
JMS I GETSW /06620-4463 $3
SPA CLA /06621-7710 ?H
JMP .+2 /06622-5224 *T
JMS I (OPTION /06623-4776 '>
JMS I GETSW /06624-4463 $3
LPEX, CIF CDF 0 /06625-6203 2C
CLL RTL /06626-7106 9F
SMA SNL /06627-7520 =P
JMP I LOOP /06630-5600 .@
JMP I LPBACK /06631-5632 .Z
LPBACK, AND 0000 /06632-0000 @@
CHECKB, AND 0000 /06633-0000 @@
CLA CLL IAC RTL /06634-7307 ;G
TAD CHECKB /06635-1233 J[
DCA PCLOC /06636-3145 Y%
CLA CMA /06637-7240 :
TAD I CHECKB /06640-1633 N[
DCA 0010 /06641-3010 XH
TAD (BP26-1 /06642-1375 K=
DCA 0011 /06643-3011 XI
TAD (-6 /06644-1374 K<
DCA COUNT /06645-3147 Y'
CHKBLP, TAD I 0010 /06646-1410 LH
CMA IAC /06647-7041 8!
CDF3, CDF 0 /06650-6201 2A
TAD I 0011 /06651-1411 LI
CDF 0 /06652-6201 2A
SZA CLA /06653-7640 >
JMP CHKBER /06654-5261 *1
ISZ COUNT /06655-2147 Q'
JMP CHKBLP /06656-5246 *&
ISZ CHECKB /06657-2233 R[
JMP I CHECKB /06660-5633 .[
CHKBER, JMS I X8 /06661-4504 %D
JMS I GETSW /06662-4463 $3
AND C100 /06663-0116 AN
SZA CLA /06664-7640 >
JMP 6657 /06665-5257 */
FPRST /06666-6556 5.
DCA 0135 /06667-3135 Y]
ISZ 0163 /06670-2163 Q3
JMS 6751 /06671-4351 #)
JMS I MES10 /06672-4456 $.
ACTBAS /06673-7542 ="
JMS I MES10 /06674-4456 $.
EMLLLL /06675-7117 9O
JMS I VT /06676-4460 $0
TAD 6775 /06677-1375 K=
DCA 0010 /06700-3010 XH
TAD 6774 /06701-1374 K<
DCA COUNT /06702-3147 Y'
CDF1, CDF 0 /06703-6201 2A
TAD I 0010 /06704-1410 LH
CDF 0 /06705-6201 2A
JMS I DIGS /06706-4465 $5
ISZ COUNT /06707-2147 Q'
JMP 6703 /06710-5303 +C
JMS I MES10 /06711-4456 $.
EXPBAS /06712-7530 =X
JMS I MES10 /06713-4456 $.
EMLLLL /06714-7117 9O
JMS I VT /06715-4460 $0
CLA CMA /06716-7240 :
TAD I 6633 /06717-1633 N[
DCA 0010 /06720-3010 XH
TAD 6774 /06721-1374 K<
DCA COUNT /06722-3147 Y'
TAD I 0010 /06723-1410 LH
JMS I DIGS /06724-4465 $5
ISZ COUNT /06725-2147 Q'
JMP 6723 /06726-5323 +S
JMP 6657 /06727-5257 */
SETF1, AND 0000 /06730-0000 @@
TAD (CDF 10 /06731-1373 K;
DCA CDF1 /06732-3303 [C
TAD (CDF 10 /06733-1373 K;
DCA I (CDF2 /06734-3772 _:
TAD (CDF 10 /06735-1373 K;
DCA CDF3 /06736-3250 Z(
CIF CDF 10 /06737-6213 2K
JMS I .+2 /06740-4742 '"
JMP I SETF1 /06741-5730 /X
3320 /06742-3320 [P
PRIXBP, AND 0000 /06743-0000 @@
TAD C40 /06744-1114 IL
JMS I DIGS /06745-4465 $5
CLA CLL CML IAC RTR /06746-7333 ;[
JMS I DIGS /06747-4465 $5
JMP I PRIXBP /06750-5743 /#
AND 0000 /06751-0000 @@
JMS I 6771 /06752-4771 '9
JMS I X8 /06753-4504 %D
JMS I GETSW /06754-4463 $3
AND C100 /06755-0116 AN
SZA CLA /06756-7640 >
JMP I 6770 /06757-5770 /8
JMS I MES10 /06760-4456 $.
INSERR /06761-7264 :4
JMS I MES /06762-4455 $-
PC /06763-7546 =&
TAD PCLOC /06764-1145 I%
JMS I DIGS /06765-4465 $5
JMP I 6751 /06766-5751 /)
ISZ I 0115 /06767-2515 UM
CMA CML IAC RAR /06770-7071 89
2363 /06771-2363 S3
/ISZ I 6673 /06772-2673 V;
/CDF 10 /06773-6211 2I
/SPA SNA SZL CLA HLT /06774-7772 ?:
/6115 /06775-6115 1M
/DCA 6600 /06776-3200 Z@
/CIF CDF 0 /06777-6203 2C
PAGE
CHECK, AND 0000 /07000-0000 @@
CLA CLL IAC RAL /07001-7305 ;E
TAD CHECK /07002-1200 J@
DCA PCLOC /07003-3145 Y%
CLA CLL CMA /07004-7340 ;
DCA 0152 /07005-3152 Y*
TAD I CHECK /07006-1600 N@
DCA 0016 /07007-3016 XN
CLA CMA /07010-7240 :
TAD 0016 /07011-1016 HN
DCA 0010 /07012-3010 XH
RDF /07013-6214 2L
TAD (CIF CDF 0 /07014-1377 K?
DCA 7072 /07015-3272 Z:
CDF 0 /07016-6201 2A
TAD (APT-1 /07017-1376 K>
DCA 0011 /07020-3011 XI
JMS I (3455 /07021-4775 '=
FPRST /07022-6556 5.
DCA 0135 /07023-3135 Y]
TAD I 0011 /07024-1411 LI
CMA IAC /07025-7041 8!
TAD FBITS /07026-1142 I"
SZA CLA /07027-7640 >
JMP 7110 /07030-5310 +H
TAD (-10 /07031-1374 K<
DCA COUNT /07032-3147 Y'
TAD I 0010 /07033-1410 LH
CMA IAC /07034-7041 8!
TAD I 0011 /07035-1411 LI
SZA CLA /07036-7640 >
JMP 7110 /07037-5310 +H
ISZ 0152 /07040-2152 Q*
JMP 7043 /07041-5243 *#
JMS 7074 /07042-4274 "<
ISZ COUNT /07043-2147 Q'
JMP 7033 /07044-5233 *[
TAD I 0010 /07045-1410 LH
CMA IAC /07046-7041 8!
TAD 0135 /07047-1135 I]
SNA CLA /07050-7650 >(
JMP 7057 /07051-5257 */
JMS I (6751 /07052-4773 ';
JMS I MES10 /07053-4456 $.
STATER /07054-7320 ;P
JMS I VT /07055-4460 $0
JMP 7111 /07056-5311 +I
TAD I 0011 /07057-1411 LI
IAC /07060-7001 8A
SNA CLA /07061-7650 >(
JMP 7067 /07062-5267 *7
JMS I (6751 /07063-4773 ';
JMS I MES10 /07064-4456 $.
APTERR /07065-7327 ;W
JMP 7111 /07066-5311 +I
ISZ CHECK /07067-2200 R@
ISZ CHECK /07070-2200 R@
ISZ CHECK /07071-2200 R@
CIF CDF 0 /07072-6203 2C
JMP I CHECK /07073-5600 .@
AND 0000 /07074-0000 @@
TAD I 0011 /07075-1411 LI
CMA IAC /07076-7041 8!
TAD C40 /07077-1114 IL
SZA CLA /07100-7640 >
JMP 7110 /07101-5310 +H
CLA CLL CML IAC RTR /07102-7333 ;[
CMA IAC /07103-7041 8!
TAD I 0011 /07104-1411 LI
SZA CLA /07105-7640 >
JMP 7110 /07106-5310 +H
JMP I 7074 /07107-5674 .<
JMS I (6751 /07110-4773 ';
JMS I X8 /07111-4504 %D
JMS I MES10 /07112-4456 $.
ACTAPT /07113-7163 93
JMS I MES10 /07114-4456 $.
APTLIN /07115-0514 EL
TAD (APT-1 /07116-1376 K>
DCA 0010 /07117-3010 XH
TAD (-13 /07120-1372 K:
DCA COUNT /07121-3147 Y'
TAD I 0010 /07122-1410 LH
JMS I DIGS /07123-4465 $5
ISZ COUNT /07124-2147 Q'
JMP 7122 /07125-5322 +R
JMS I MES10 /07126-4456 $.
STAT /07127-7224 :T
TAD 0135 /07130-1135 I]
JMS I DIGS /07131-4465 $5
JMS I VT /07132-4460 $0
JMS I MES10 /07133-4456 $.
EXPAPT /07134-7303 ;C
JMS I MES10 /07135-4456 $.
APTLIN /07136-0514 EL
TAD (-10 /07137-1374 K<
DCA COUNT /07140-3147 Y'
CLA CLL CMA /07141-7340 ;
DCA 0152 /07142-3152 Y*
TAD FBITS /07143-1142 I"
JMS I DIGS /07144-4465 $5
CLA CMA /07145-7240 :
TAD 0016 /07146-1016 HN
DCA 0010 /07147-3010 XH
TAD I 0010 /07150-1410 LH
JMS I DIGS /07151-4465 $5
ISZ 0152 /07152-2152 Q*
JMP 7155 /07153-5355 +-
JMS I (PRIXBP /07154-4771 '9
ISZ COUNT /07155-2147 Q'
JMP 7150 /07156-5350 +(
JMS I MES10 /07157-4456 $.
STAT /07160-7224 :T
TAD I 0010 /07161-1410 LH
JMS I DIGS /07162-4465 $5
JMS I VT /07163-4460 $0
JMP 7071 /07164-5271 *9
TAD I 0000 /07165-1400 L@
CLA CLL CMA IAC RAL /07166-7345 ;%
MQA MQL /07167-7521 =Q
CLA CLL CMA CML /07170-7360 ;0
/6743 /07171-6743 7#
/MQA MQL CLA DST /07172-7765 ?5
/6751 /07173-6751 7)
/SPA SNA SZL CLA /07174-7770 ?8
/DCA I 0055 /07175-3455 \-
/AND 0023 /07176-0023 @S
/CIF CDF 0 /07177-6203 2C
PAGE
CTRLCG, AND 0000 /07200-0000 @@
TAD INCHAR /07201-1140 I
TAD CTRLG /07202-1241 J!
SZA CLA /07203-7640 >
JMP CC /07204-5213 *K
TAD CARET /07205-1244 J$
JMS I PUN /07206-4461 $1
TAD CTG /07207-1245 J%
JMS I PUN /07210-4461 $1
JMS I OPT /07211-4624 &T
JMP I CTRLCG /07212-5600 .@
CC, TAD INCHAR /07213-1140 I
TAD CTRLC /07214-1240 J
SZA CLA /07215-7640 >
JMP I CTRLCG /07216-5600 .@
TAD CARET /07217-1244 J$
JMS I PUN /07220-4461 $1
TAD CTC /07221-1246 J&
JMS I PUN /07222-4461 $1
JMP I GOOS /07223-5647 .'
OPT, OPTION /07224-3200 Z@
CTRLQS, AND 0000 /07225-0000 @@
TAD INCHAR /07226-1140 I
TAD CTRLS /07227-1243 J#
SZA CLA /07230-7640 >
JMP .+6 /07231-5237 *_
JMS I RDECHO /07232-4462 $2
TAD CTRLQ /07233-1242 J"
SZA CLA /07234-7640 >
JMP .-3 /07235-5232 *Z
ISZ CTRLQS /07236-2225 RU
JMP I CTRLQS /07237-5625 .U
CTRLC, -"C+100 /07240-7575 ==
CTRLG, -"G+100 /07241-7571 =9
CTRLQ, -"Q+100 /07242-7557 =/
CTRLS, -"S+100 /07243-7555 =-
CARET, "^ /07244-0336 C^
CTG, "G /07245-0307 CG
CTC, "C /07246-0303 CC
GOOS, 7600 /07247-7600 >@
RSAV, AND 0000 /07250-0000 @@
DCA ACSAV /07251-3162 Y2
TAD 0000 /07252-1000 H@
DCA INTLOC /07253-3176 Y>
TAD MQSAV-1 /07254-1271 J9
DCA 0000 /07255-3000 X@
MQA /07256-7501 =A
DCA MQSAV /07257-3272 Z:
JMP I RSAV /07260-5650 .(
LDMQ, AND 0000 /07261-0000 @@
CLA CLL /07262-7300 ;@
TAD MQSAV /07263-1272 J:
MQL /07264-7421 <Q
JMP I LDMQ /07265-5661 .1
PWRSKP, TAD MQSAV-1 /07266-1271 J9
DCA 0000 /07267-3000 X@
HLT /07270-7402 <B
JMP I GO1 /07271-5534 -\
MQSAV, AND 0000 /07272-0000 @@
SWGET, AND 0000 /07273-0000 @@
CLA CLL /07274-7300 ;@
TAD SOFT /07275-1021 HQ
SPA CLA /07276-7710 ?H
JMP .+3 /07277-5302 +B
TAD SW /07300-1020 HP
JMP .+2 /07301-5303 +C
CLA OSR /07302-7604 >D
JMP I SWGET /07303-5673 .;
DIGITS, AND 0000 /07304-0000 @@
DCA DGNUM /07305-3337 [_
RDF /07306-6214 2L
TAD DGCDI /07307-1340 K
DCA DGEXIT /07310-3334 [\
TAD DGNUM /07311-1337 K_
CDF 0 /07312-6201 2A
CLL RTL /07313-7106 9F
RTL /07314-7006 8F
DCA CHTMP /07315-3137 Y_
TAD M4 /07316-1132 IZ
DCA DGCNT /07317-3336 [^
DGLOOP, TAD CHTMP /07320-1137 I_
AND C7 /07321-0110 AH
TAD C260 /07322-1121 IQ
JMS I PUN /07323-4461 $1
TAD CHTMP /07324-1137 I_
RTL /07325-7006 8F
RAL /07326-7004 8D
DCA CHTMP /07327-3137 Y_
ISZ DGCNT /07330-2336 S^
JMP DGLOOP /07331-5320 +P
TAD C240 /07332-1120 IP
JMS I PUN /07333-4461 $1
DGEXIT, CIF CDF 0 /07334-6203 2C
JMP I 7304 /07335-5704 /D
DGCNT, AND 0000 /07336-0000 @@
DGNUM, AND 0000 /07337-0000 @@
DGCDI, CIF CDF 0 /07340-6203 2C
I0, AND 0000 /07341-0000 @@
CLA CLL /07342-7300 ;@
DCA CIF10 /07343-3004 XD
DCA CDF10 /07344-3003 XC
DCA 0163 /07345-3163 Y3
DCA I 7353 /07346-3753 _+
CIF 10 /07347-6212 2J
JMS I XINIRA /07350-4752 '*
JMP I I0 /07351-5741 /!
XINIRA, INIRAN /07352-2434 T\
DCA I 0054 /07353-3454 \,
HEAD1, AND 0000 /07354-0000 @@
JMS I GETSW /07355-4463 $3
AND C40 /07356-0114 AL
SZA CLA /07357-7640 >
JMP I HEAD1 /07360-5754 /,
JMS I MES10 /07361-4456 $.
RUNING /07362-7523 =S
JMS I MES10 /07363-4456 $.
INSTST /07364-7464 <4
JMP I HEAD1 /07365-5754 /,
LINE1, DCA I 7306 /07366-3706 _F
ISZ 0020 /07367-2020 PP
JMP I 0170 /07370-5570 -8
AND 0140 /07371-0140 A
TAD 0116 /07372-1116 IN
ISZ 7324 /07373-2324 ST
JMP I 7240 /07374-5640 .
ISZ I 0005 /07375-2405 TE
ISZ 7324 /07376-2324 ST
JMS 0001 /07377-4001 A
PAGE
TAD I 7404 /07400-1604 ND
JMS 0004 /07401-4004 D
AND 0124 /07402-0124 AT
AND 0140 /07403-0140 A
AND I 0130 /07404-0530 EX
AND I 0122 /07405-0522 ER
AND 7511 /07406-0311 CI
ISZ 7505 /07407-2305 SE
ISZ 7400 /07410-2200 R@
PRODUC, DCA I 7515 /07411-3715 _M
AND 0111 /07412-0111 AI
TAD I 7404 /07413-1604 ND
AND I 0103 /07414-0503 EC
JMP I 0160 /07415-5560 -0
7055 /07416-7055 8-
AND I 0012 /07417-0412 DJ
AND I 7420 /07420-0620 FP
AND 7455 /07421-0255 B-
AND 7500 /07422-0300 C@
TYPEI, DCA I 7524 /07423-3724 _T
DCA 0120 /07424-3120 YP
AND I 0140 /07425-0540 E
JMS 7411 /07426-4211 "I
JMS 7440 /07427-4240 "
AND I 7417 /07430-0617 FO
ISZ 7440 /07431-2240 R
AND I 7420 /07432-0620 FP
ISZ 0055 /07433-2055 P-
IAC /07434-7001 8A
JMS 0011 /07435-4011 I
TAD I 7423 /07436-1623 NS
ISZ I 0056 /07437-2456 T.
JMS 0024 /07440-4024 T
AND I 0123 /07441-0523 ES
ISZ I 0040 /07442-2440 T
TAD I 7516 /07443-1716 ON
TAD I 0031 /07444-1431 LY
AND 0000 /07445-0000 @@
TYPEE, DCA I 7524 /07446-3724 _T
DCA 0120 /07447-3120 YP
AND I 0140 /07450-0540 E
JMS 7405 /07451-4205 "E
JMS 7440 /07452-4240 "
AND I 7417 /07453-0617 FO
ISZ 7440 /07454-2240 R
AND I 7420 /07455-0620 FP
ISZ 0055 /07456-2055 P-
IAC /07457-7001 8A
JMS 0005 /07460-4005 E
DCA 0005 /07461-3005 XE
ISZ 7403 /07462-2203 RC
TAD 0123 /07463-1123 IS
AND I 0122 /07464-0522 ER
JMS 0017 /07465-4017 O
TAD I 7414 /07466-1614 NL
DCA 0100 /07467-3100 Y@
TYPEB, DCA I 7524 /07470-3724 _T
DCA 0120 /07471-3120 YP
AND I 0140 /07472-0540 E
JMS 7402 /07473-4202 "B
JMS 7440 /07474-4240 "
AND I 7417 /07475-0617 FO
ISZ 7440 /07476-2240 R
AND 7417 /07477-0217 BO
ISZ I 0010 /07500-2410 TH
JMS 0006 /07501-4006 F
ISZ 0020 /07502-2020 PP
JMP I 0170 /07503-5570 -8
AND 0140 /07504-0140 A
TAD 0116 /07505-1116 IN
ISZ 7524 /07506-2324 ST
JMP I 7440 /07507-5640 .
AND 0116 /07510-0116 AN
AND I 0040 /07511-0440 D
AND I 0130 /07512-0530 EX
AND I 0122 /07513-0522 ER
AND 7511 /07514-0311 CI
ISZ 7505 /07515-2305 SE
ISZ 7440 /07516-2240 R
ISZ I 0005 /07517-2405 TE
ISZ 7524 /07520-2324 ST
ISZ 7537 /07521-2337 S_
AND 0000 /07522-0000 @@
NOSKIP, DCA I 7506 /07523-3706 _F
ISZ 0023 /07524-2023 PS
ISZ I 0040 /07525-2440 T
AND I 7401 /07526-0601 FA
TAD 0114 /07527-1114 IL
ISZ I 0122 /07530-2522 UR
AND I 0155 /07531-0555 E-
AND I 7420 /07532-0620 FP
ISZ 7524 /07533-2324 ST
JMS 0004 /07534-4004 D
TAD 0104 /07535-1104 ID
JMS 0016 /07536-4016 N
TAD I 7524 /07537-1724 OT
JMS 0003 /07540-4003 C
AND 0125 /07541-0125 AU
ISZ 7505 /07542-2305 SE
JMS 0023 /07543-4023 S
TAD 7511 /07544-1311 KI
ISZ 0000 /07545-2000 P@
PC, ISZ 0003 /07546-2003 PC
CLA /07547-7200 :@
PC2, JMS 0040 /07550-4040
JMS 0040 /07551-4040
ISZ 0003 /07552-2003 PC
JMS 0017 /07553-4017 O
AND I 7440 /07554-0640 F
ISZ I 0005 /07555-2405 TE
ISZ 7524 /07556-2324 ST
JMS 0005 /07557-4005 E
TAD I 7424 /07560-1624 NT
ISZ 7431 /07561-2231 RY
CLA /07562-7200 :@
CLL IAC RAL /07563-7105 9E
MQA MQL CLA DCM /07564-7775 ?=
7755 /07565-7755 ?-
AND 0177 /07566-0177 A?
6731 /07567-6731 7Y
6143 /07570-6143 1#
HLT /07571-7402 <B
JMP I 7400 /07572-5600 .@
6713 /07573-6713 7K
CLA CLL CML IAC BSW /07574-7323 ;S
CLA CLL CML IAC RTR /07575-7333 ;[
6602 /07576-6602 6B
6701 /07577-6701 7A
$