File: DJFPBC.LS of Disk: Test/Tests/LISTING-FILES10
(Source file text)
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1
/DJFPBC
/40 SILENT
7421 MQL=7421
7501 MQA=7501
7431 SWAB=7431
7447 SWBA=7447
7403 SCL=7403
7403 ACS=7403
7405 MUY=7405
7407 DVI=7407
7411 NMI=7411
7413 SHL=7413
7415 ASR=7415
7417 LSR=7417
7441 SCA=7441
7443 DAD=7443
7445 DST=7445
7451 DPSZ=7451
7573 DPIC=7573
7575 DCM=7575
7457 SAM=7457
6000 SKON=6000
6003 SRQ=6003
6004 GTF=6004
6005 RTF=6005
6006 SGT=6006
6007 CAF=6007
6204 CINT=6204
6254 SINT=6254
6264 CUF=6264
6274 SUF=6274
6771 SDSS=6771
6030 KCF=6030
6040 TFL=6040
6041 TSF=6041
6042 TCF=6042
6044 TPC=6044
6045 TSK=6045
6046 TLS=6046
6551 FPINT=6551
6552 FPICL=6552
6553 FPCOM=6553
6554 FPHLT=6554
6555 FPST=6555
6556 FPRST=6556
6557 FPIST=6557
6567 FPEP=6567
/FPP OPCODES
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-1
0000 FLDA=0000
1000 FADD=1000
2000 FSUB=2000
3000 FDIV=3000
4000 FMUL=4000
5000 FADDM=5000
6000 FSTA=6000
7000 FMULM=7000
0400 LONG=400 /TWO-WORD ADDRESSING
0200 BASE=200 /BASEPAGE ADDRESSING
0600 IND=600 /INDIRECT ADDRESSING
0000 FEXIT=0000
0004 FNORM=0004
0005 STARTF=0005
0006 STARTD=0006
0007 JAC=0007
0020 ATX=0020
0030 XTA=0030
0050 STARTE=0050
0100 LDX=0100
1030 JA=1030
1040 JNE=1040
3000 TRAP3=3000
0001 FIELD 1
0000 *0000
010000 0050 AND 0050 /10000-0050 @(
010001 0051 AND 0051 /10001-0051 @)
010002 0000 PC1, AND 0000 /10002-0000 @@
010003 0003 CDF11, CDF10 /10003-0003 @C
010004 0004 CIF11, CIF10 /10004-0004 @D
010005 0005 AND 0005 /10005-0005 @E
010006 0036 AND 0036 /10006-0036 @^
010007 0000 TSTNO, AND 0000 /10007-0000 @@
010010 2330 2330 /10010-2330 SX
010011 2300 2300 /10011-2300 S@
010012 7773 7773 /10012-7773 ?;
010013 0303 303 /10013-0303 CC
010014 1400 TAD I 0000 /10014-1400 L@
010015 0000 AND 0000 /10015-0000 @@
010016 2330 2330 /10016-2330 SX
010017 1510 CNT10, TAD I 0110 /10017-1510 MH
010020 0000 F1PNT, AND 0000 /10020-0000 @@
010021 0000 F1TMP, AND 0000 /10021-0000 @@
010022 0000 AND 0000 /10022-0000 @@
010023 0000 AND 0000 /10023-0000 @@
010024 1111 APT10, TAD 0111 /10024-1111 II
010025 0000 FPC10, AND 0000 /10025-0000 @@
010026 0040 INDX10, INDX0 /10026-0040 @
010027 5200 BASE10, BASE1 /10027-5200 *@
010030 0000 OPA10, AND 0000 /10030-0000 @@
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-2
010031 0000 FAC10, AND 0000 /10031-0000 @@
010032 0000 FMS10, AND 0000 /10032-0000 @@
010033 0000 FLS10, AND 0000 /10033-0000 @@
010034 0000 AND 0000 /10034-0000 @@
010035 0000 AND 0000 /10035-0000 @@
010036 0000 AND 0000 /10036-0000 @@
010037 7777 MQA MQL CLA SAM /10037-7777 ??
010040 0000 INDX0, AND 0000 /10040-0000 @@
010041 0000 INDX1, AND 0000 /10041-0000 @@
010042 0000 INDX2, AND 0000 /10042-0000 @@
010043 0000 INDX3, AND 0000 /10043-0000 @@
010044 0000 INDX4, AND 0000 /10044-0000 @@
010045 0000 INDX5, AND 0000 /10045-0000 @@
010046 0000 INDX6, AND 0000 /10046-0000 @@
010047 0000 INDX7, AND 0000 /10047-0000 @@
010050 2451 TIME, TIMOUT /10050-2451 T)
010051 0600 FPGO10, FPGO1 /10051-0600 F@
010052 0304 FCHK10, CHECK1 /10052-0304 CD
010053 2472 MSG10, MESG1 /10053-2472 T:
010054 2511 MSG01, MESG0 /10054-2511 UI
010055 2400 RAN10, SETRAN /10055-2400 T@
010056 1600 EFP, EFPRT /10056-1600 N@
010057 1672 DPP, DPPRT /10057-1672 N:
010060 2200 APTLST /10060-2200 R@
010061 2242 NUMLIN, LINNUM /10061-2242 R"
010062 2260 DIGI10, DIGIT1 /10062-2260 R0
010063 2526 LOOP10, LOOP1 /10063-2526 UV
010064 0644 DO10, DO1 /10064-0644 F$
010065 1134 RSW10, RSW11 /10065-1134 I\
010066 2750 LNKPRB, PRBLNK /10066-2750 W(
010067 2540 RECOV1, RECO10 /10067-2540 U
010070 2140 HDFAIL, FAILHD /10070-2140 Q
010071 3352 X8JMP1, X8JMP /10071-3352 [*
010072 1353 CHEK0, CHEK00 /10072-1353 K+
010073 1537 TAD I 0137 /10073-1537 M_
010074 1461 FPGO0, FPGO00 /10074-1461 L1
010075 7047 CMA IAC RTL /10075-7047 8'
010076 0001 K1, AND 0001 /10076-0001 @A
010077 0002 K2, AND 0002 /10077-0002 @B
010100 0003 AND 0003 /10100-0003 @C
010101 0004 K4, AND 0004 /10101-0004 @D
010102 0007 K7, AND 0007 /10102-0007 @G
010103 0010 K10, AND 0010 /10103-0010 @H
010104 0020 AND 0020 /10104-0020 @P
010105 0022 MOD1X8, MODEX8 /10105-0022 @R
010106 0027 AND 0027 /10106-0027 @W
010107 0030 AND 0030 /10107-0030 @X
010110 0040 K40, 0040 /10110-0040 @
010111 0100 K100, 100 /10111-0100 A@
010112 0200 200 /10112-0200 B@
010113 0400 K400, AND I 0000 /10113-0400 D@
010114 0500 AND I 0100 /10114-0500 E@
010115 1000 K1000, TAD 0000 /10115-1000 H@
010116 2000 ISZ 0000 /10116-2000 P@
010117 2411 K2411, ISZ I 0011 /10117-2411 TI
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-3
010120 4000 K4000, JMS 0000 /10120-4000 @
010121 7700 SMA CLA /10121-7700 ?@
010122 6600 M1200, 6600 /10122-6600 6@
010123 7770 SPA SNA SZL CLA /10123-7770 ?8
010124 7775 MQA MQL CLA DCM /10124-7775 ?=
010125 0000 STAT10, AND 0000 /10125-0000 @@
010126 2411 CMND10, ISZ I 0011 /10126-2411 TI
010127 0000 LOC, AND 0000 /10127-0000 @@
010130 0000 AND 0000 /10130-0000 @@
010131 0000 AND 0000 /10131-0000 @@
010132 0000 AND 0000 /10132-0000 @@
010133 0000 HASINT, AND 0000 /10133-0000 @@
010134 0000 AND 0000 /10134-0000 @@
010135 5232 BS30P2, BASE1+30+2 /10135-5232 *Z
010136 5276 BS74P2, BASE1+74+2 /10136-5276 *>
010137 0000 HASERR, AND 0000 /10137-0000 @@
010140 0000 AND 0000 /10140-0000 @@
010141 0000 F1CNT, AND 0000 /10141-0000 @@
010142 0000 EPMOD0, AND 0000 /10142-0000 @@
010143 0000 EPMODX, AND 0000 /10143-0000 @@
010144 7700 SMA CLA /10144-7700 ?@
010145 0000 FLIPEP, AND 0000 /10145-0000 @@
010146 0001 FLD1, AND 0001 /10146-0001 @A
010147 0010 FLD10, AND 0010 /10147-0010 @H
010150 1111 ALL10, TAD 0111 /10150-1111 II
010151 0000 AND 0000 /10151-0000 @@
010152 0000 AND 0000 /10152-0000 @@
010153 3157 DCA 0157 /10153-3157 Y/
010154 1410 TAD I 0010 /10154-1410 LH
010155 6201 CDF 0 /10155-6201 2A
010156 3411 DCA I 0011 /10156-3411 \I
010157 6201 CDF 0 /10157-6201 2A
010160 2123 ISZ 0123 /10160-2123 QS
010161 5154 JMP 0154 /10161-5154 ),
010162 2141 ISZ 0141 /10162-2141 Q!
010163 5541 JMP I 0141 /10163-5541 -!
010164 6244 RMF /10164-6244 2$
010165 5403 JMP I 0003 /10165-5403 ,C
010166 0000 AND 0000 /10166-0000 @@
010167 0407 AND I 0007 /10167-0407 DG
010170 1503 TAD I 0103 /10170-1503 MC
010171 0102 AND 0102 /10171-0102 AB
010172 2326 2326 /10172-2326 SV
010173 2570 ISZ I 0170 /10173-2570 U8
010174 7772 SPA SNA SZL CLA HLT /10174-7772 ?:
010175 0410 AND I 0010 /10175-0410 DH
010176 1320 1320 /10176-1320 KP
010177 0163 AND 0163 /10177-0163 A3
0200 PAGE
010200 7300 STRT10, CLA CLL /10200-7300 ;@
010201 3302 DCA PASNUM /10201-3302 [B
010202 6213 CIF CDF 10 /10202-6213 2K
010203 4777 JMS I (INIRAN /10203-4777 '?
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-4
010204 6007 CAF /10204-6007 0G
010205 3151 DCA 0151 /10205-3151 Y)
010206 4465 JMS I RSW10 /10206-4465 $5
010207 0110 AND K40 /10207-0110 AH
010210 7640 SZA CLA /10210-7640 >
010211 5216 JMP .+5 /10211-5216 *N
010212 4453 JMS I MSG10 /10212-4453 $+
010213 7523 RUNING /10213-7523 =S
010214 4453 JMS I MSG10 /10214-4453 $+
010215 7254 DATAEX /10215-7254 :,
010216 3130 DCA 0130 /10216-3130 YX
010217 7301 CLA CLL IAC /10217-7301 ;A
010220 3146 DCA FLD1 /10220-3146 Y&
010221 1103 TAD K10 /10221-1103 IC
010222 3147 DCA FLD10 /10222-3147 Y'
010223 4776 JMS I (SETCDF /10223-4776 '>
010224 1121 TAD 0121 /10224-1121 IQ
010225 3144 DCA 0144 /10225-3144 Y$
010226 1375 TAD (1111 /10226-1375 K=
010227 3150 DCA ALL10 /10227-3150 Y(
010230 1117 TAD K2411 /10230-1117 IO 2:UNDERFLOW 4:INTENA 1:LOCK 1:APTFLD
010231 3126 DCA CMND10 /10231-3126 YV
010232 3143 DCA EPMODX /10232-3143 Y#
010233 7346 CLA CLL CMA RTL /10233-7346 ;&
010234 3145 DCA FLIPEP /10234-3145 Y%
010235 4774 JMS I (ICL00 /10235-4774 '<
010236 4773 JMS I (EXEC1 /10236-4773 ';
010237 4772 JMS I (REL1 /10237-4772 ':
010240 2302 ISZ PASNUM /10240-2302 SB
010241 7000 NOP /10241-7000 8@
010242 6201 CDF 0 /10242-6201 2A
010243 1505 TAD I MOD1X8 /10243-1505 ME
010244 6211 CDF 10 /10244-6211 2I
010245 7710 SPA CLA /10245-7710 ?H
010246 5300 JMP 0300 /10246-5300 +@
010247 4465 JMS I RSW10 /10247-4465 $5
010250 0110 AND K40 /10250-0110 AH
010251 7640 SZA CLA /10251-7640 >
010252 5265 JMP 0265 /10252-5265 *5
010253 4453 JMS I MSG10 /10253-4453 $+
010254 7460 DJFPB /10254-7460 <0
010255 4453 JMS I MSG10 /10255-4453 $+
010256 7254 DATAEX /10256-7254 :,
010257 4453 JMS I MSG10 /10257-4453 $+
010260 7454 PASS /10260-7454 <,
010261 1302 TAD PASNUM /10261-1302 KB
010262 4462 JMS I DIGI10 /10262-4462 $2
010263 4453 JMS I MSG10 /10263-4453 $+
010264 7377 ULINE /10264-7377 ;?
010265 4465 JMS I RSW10 /10265-4465 $5
010266 0113 AND K400 /10266-0113 AK
010267 7650 SNA CLA /10267-7650 >(
010270 5273 JMP 0273 /10270-5273 *;
010271 4463 JMS I LOOP10 /10271-4463 $3
010272 0273 AND 0273 /10272-0273 B;
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-5
010273 6201 CDF 0 /10273-6201 2A
010274 1405 TAD I NOEX /10274-1405 LE
010275 6211 CDF 10 /10275-6211 2I
010276 7640 SZA CLA /10276-7640 >
010277 5217 JMP 0217 /10277-5217 *O
010300 6203 CIF CDF 0 /10300-6203 2C
010301 5773 JMP I 0373 /10301-5773 /;
010302 0000 PASNUM, AND 0000 /10302-0000 @@
010303 7764 FLGVER, SMA SZA SNL CLA OSR /10303-7764 ?4
010304 0000 CHECK1, AND 0000 /10304-0000 @@
010305 7300 CLA CLL /10305-7300 ;@
010306 3363 DCA TIMFLG /10306-3363 [3
010307 4771 JMS I (RSW1 /10307-4771 '9
010310 0115 AND K1000 /10310-0115 AM
010311 7650 SNA CLA /10311-7650 >(
010312 5317 JMP 0317 /10312-5317 +O
010313 7340 CLA CLL CMA /10313-7340 ;
010314 3536 DCA I BS74P2 /10314-3536 ]^
010315 3363 DCA TIMFLG /10315-3363 [3
010316 5320 JMP 0320 /10316-5320 +P
010317 3536 DCA I BS74P2 /10317-3536 ]^
010320 4771 JMS I (RSW1 /10320-4771 '9
010321 0370 AND (37 /10321-0370 C8
010322 7450 SNA /10322-7450 <(
010323 5334 JMP 0334 /10323-5334 +\
010324 7041 CMA IAC /10324-7041 8!
010325 1007 TAD TSTNO /10325-1007 HG
010326 7640 SZA CLA /10326-7640 >
010327 5334 JMP 0334 /10327-5334 +\
010330 7340 CLA CLL CMA /10330-7340 ;
010331 3535 DCA I BS30P2 /10331-3535 ]]
010332 3363 DCA TIMFLG /10332-3363 [3
010333 5336 JMP 0336 /10333-5336 +^
010334 7300 CLA CLL /10334-7300 ;@
010335 3535 DCA I BS30P2 /10335-3535 ]]
010336 1133 TAD HASINT /10336-1133 I[
010337 7640 SZA CLA /10337-7640 >
010340 5361 JMP 0361 /10340-5361 +1
010341 4767 JMS I (ACTEXP /10341-4767 '7
010342 7000 NOP/ISZ TIMFLG /10342-2363 S3 WVDM NO TIMOUT
010343 5307 JMP 0307 /10343-5307 +G
010344 6002 IOF /10344-6002 0B
010345 1366 TAD 0366 /10345-1366 K6
010346 3002 DCA PC1 /10346-3002 XB
010347 4470 JMS I HDFAIL /10347-4470 $8
010350 4454 JMS I MSG01 /10350-4454 $,
010351 7546 PC /10351-7546 =&
010352 1002 TAD PC1 /10352-1002 HB
010353 4462 JMS I DIGI10 /10353-4462 $2
010354 4453 JMS I MSG10 /10354-4453 $+
010355 7447 TIMO /10355-7447 <'
010356 4463 JMS I LOOP10 /10356-4463 $3
010357 0360 AND 0360 /10357-0360 C0
010360 5204 JMP 0204 /10360-5204 *D
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-6
010361 3133 DCA HASINT /10361-3133 Y[
010362 5704 JMP I CHECK1 /10362-5704 /D
010363 0000 TIMFLG, AND 0000 /10363-0000 @@
010364 7204 CLA RAL /10364-7204 :D
010365 6344 6344 /10365-6344 3$
010366 0357 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\
010367 2000
010370 0037
010371 2160
010372 3200
010373 0400
010374 1150
010375 1111
010376 1100
010377 2434
0400 PAGE
010400 0000 EXEC1, AND 0000 /10400-0000 @@
010401 6001 ION /10401-6001 0A
010402 1377 TAD (CODE /10402-1377 K?
010403 3025 DCA FPC10 /10403-3025 XU
010404 3007 DCA TSTNO /10404-3007 XG
010405 1126 TAD CMND10 /10405-1126 IV
010406 1103 TAD K10 /10406-1103 IC
010407 0117 AND K2411 /10407-0117 AO
010410 3126 DCA CMND10 /10410-3126 YV FLIP LOCKOUT
010411 2145 ISZ FLIPEP /10411-2145 Q%
010412 5220 JMP .+6 /10412-5220 *P
010413 7344 CLA CLL CMA RAL /10413-7344 ;$
010414 3145 DCA FLIPEP /10414-3145 Y%
010415 1143 TAD EPMODX /10415-1143 I#
010416 1120 TAD K4000 /10416-1120 IP
010417 3143 DCA EPMODX /10417-3143 Y#
010420 1143 TAD EPMODX /10420-1143 I#
010421 7710 SPA CLA /10421-7710 ?H
010422 1376 TAD (STARTE /10422-1376 K>
010423 1375 TAD (STARTF /10423-1375 K= 055 ON MODE E WORKS AS 050
010424 6211 CDFX14, CDF 10 /10424-6211 2I
010425 3672 DCA I FPLEFY /10425-3672 ^:
010426 1143 TAD EPMODX /10426-1143 I#
010427 7710 SPA CLA /10427-7710 ?H
010430 1374 TAD (44 /10430-1374 K<
010431 1373 TAD (26 /10431-1373 K; 24-2 OR 60-2
010432 3673 DCA I BS52P2 /10432-3673 ^;
010433 6211 CDF 10 /10433-6211 2I
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-7
010434 7300 CLA CLL /10434-7300 ;@
010435 2007 ISZ TSTNO /10435-2007 PG
010436 1007 TAD TSTNO /10436-1007 HG
010437 1372 TAD (-22 /10437-1372 K: END OF TESTS
010440 7640 SZA CLA /10440-7640 >
010441 5246 JMP .+5 /10441-5246 *&
010442 4771 JMS I (X8JMS /10442-4771 '9
010443 2144 ISZ 0144 /10443-2144 Q$
010444 5201 JMP EXEC1+1 /10444-5201 *A
010445 5600 JMP I EXEC1 /10445-5600 .@
010446 1007 TAD TSTNO /10446-1007 HG
010447 0076 AND K1 /10447-0076 @>
010450 7650 SNA CLA /10450-7650 >(
010451 5253 JMP .+2 /10451-5253 *+
010452 1143 TAD EPMODX /10452-1143 I#
010453 3142 DCA EPMOD0 /10453-3142 Y"
010454 1142 TAD EPMOD0 /10454-1142 I"
010455 6211 CDFX15, CDF 10 /10455-6211 2I
010456 3674 DCA I EPMODY /10456-3674 ^<
010457 6211 CDF 10 /10457-6211 2I
010460 1126 TAD CMND10 /10460-1126 IV
010461 0103 AND K10 /10461-0103 AC
010462 1146 TAD FLD1 /10462-1146 I&
010463 7002 BSW /10463-7002 8B
010464 1007 TAD TSTNO /10464-1007 HG
010465 1143 TAD EPMODX /10465-1143 I#
010466 7421 MQL /10466-7421 <Q
010467 4451 JMS I FPGO10 /10467-4451 $)
010470 4452 JMS I FCHK10 /10470-4452 $*
010471 5234 JMP 0434 /10471-5234 *\
010472 4625 FPLEFY, FPLEF /10472-4625 &U
010473 5254 BS52P2, BASE1+52+2 /10473-5254 *,
010474 0142 EPMODY, EPMOD0 /10474-0142 A"
010475 4465 JMS I RSW10 /10475-4465 $5
010476 0115 AND K1000 /10476-0115 AM
010477 7650 SNA CLA /10477-7650 >(
010500 5304 JMP 0504 /10500-5304 +D
010501 7340 CLA CLL CMA /10501-7340 ;
010502 3536 DCA I BS74P2 /10502-3536 ]^
010503 4464 JMS I DO10 /10503-4464 $4
010504 3536 DCA I BS74P2 /10504-3536 ]^
010505 7340 CLA CLL CMA /10505-7340 ;
010506 1040 TAD 0040 /10506-1040 H
010507 3040 DCA 0040 /10507-3040 X
010510 7340 CLA CLL CMA /10510-7340 ;
010511 1041 TAD 0041 /10511-1041 H!
010512 3041 DCA 0041 /10512-3041 X!
010513 4464 JMS I DO10 /10513-4464 $4
010514 3706 APTLIN, DCA I 0506 /10514-3706 _F
010515 1404 TAD I 0004 /10515-1404 LD
010516 4040 JMS 0040 /10516-4040
010517 0620 AND I 0420 /10517-0620 FP
010520 0340 AND 0540 /10520-0340 C
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-8
010521 4011 JMS 0011 /10521-4011 I
010522 2260 ISZ 0460 /10522-2260 R0
010523 4040 JMS 0040 /10523-4040
010524 0201 AND 0401 /10524-0201 BA
010525 2305 ISZ 0505 /10525-2305 SE
010526 4017 JMS 0017 /10526-4017 O
010527 2001 ISZ 0001 /10527-2001 PA
010530 4040 JMS 0040 /10530-4040
010531 0530 AND I 0130 /10531-0530 EX
010532 2040 ISZ 0040 /10532-2040 P
010533 4015 JMS 0015 /10533-4015 M
010534 2327 ISZ 0527 /10534-2327 SW
010535 4040 JMS 0040 /10535-4040
010536 1423 TAD I 0023 /10536-1423 LS
010537 2760 ISZ I 0560 /10537-2760 W0
010540 4014 JMS 0014 /10540-4014 L
010541 2327 ISZ 0527 /10541-2327 SW
010542 6140 6140 /10542-6140 1
010543 1423 TAD I 0023 /10543-1423 LS
010544 2762 ISZ I 0562 /10544-2762 W2
010545 4014 JMS 0014 /10545-4014 L
010546 2327 ISZ 0527 /10546-2327 SW
010547 6337 6337 /10547-6337 3_
010550 0000 AND 0000 /10550-0000 @@
010551 3706 INDRGS, DCA I 0506 /10551-3706 _F
010552 2020 ISZ 0020 /10552-2020 PP
010553 4011 JMS 0011 /10553-4011 I
010554 1604 TAD I 0404 /10554-1604 ND
010555 0530 AND I 0130 /10555-0530 EX
010556 4022 JMS 0022 /10556-4022 R
010557 0507 AND I 0107 /10557-0507 EG
010560 2372 ISZ 0572 /10560-2372 S:
010561 0000 AND 0000 /10561-0000 @@
010562 0000 AND 0000 /10562-0000 @@
010563 0000 AND 0000 /10563-0000 @@
010564 0000 AND 0000 /10564-0000 @@
010565 0000 AND 0000 /10565-0000 @@
010566 0000 AND 0000 /10566-0000 @@
010567 0000 AND 0000 /10567-0000 @@
010570 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 ^@
010571 0751
010572 7756
010573 0026
010574 0044
010575 0005
010576 0050
010577 3600
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-9
0600 PAGE
010600 0000 FPGO1, AND 0000 /10600-0000 @@
010601 7340 CLA CLL CMA /10601-7340 ;
010602 3037 DCA 0037 /10602-3037 X_
010603 4455 JMS I RAN10 /10603-4455 $-
010604 5400 RANBUF /10604-5400 ,@
010605 1377 TAD (BASE1 /10605-1377 K?
010606 3027 DCA BASE10 /10606-3027 XW
010607 1110 TAD K40 /10607-1110 IH
010610 3026 DCA INDX10 /10610-3026 XV
010611 4260 FPAG1, JMS SET1 /10611-4260 "0
010612 1376 TAD (APT10 /10612-1376 K>
010613 6555 FPST /10613-6555 5-
010614 5217 JMP .+3 /10614-5217 *O
010615 7300 CLA CLL /10615-7300 ;@
010616 5600 JMP I FPGO1 /10616-5600 .@
010617 4222 JMS GOERR1 /10617-4222 "R
010620 6001 ION /10620-6001 0A
010621 5211 JMP FPAG1 /10621-5211 *I
010622 0000 GOERR1, AND 0000 /10622-0000 @@
010623 6002 IOF /10623-6002 0B
010624 4465 JMS I RSW10 /10624-4465 $5
010625 0111 AND K100 /10625-0111 AI
010626 7640 SZA CLA /10626-7640 >
010627 5241 JMP GOAD1-1 /10627-5241 *!
010630 1375 TAD (GOAD1 /10630-1375 K=
010631 3002 DCA PC1 /10631-3002 XB
010632 4470 JMS I HDFAIL /10632-4470 $8
010633 4454 JMS I MSG01 /10633-4454 $,
010634 7546 PC /10634-7546 =&
010635 1002 TAD PC1 /10635-1002 HB
010636 4462 JMS I DIGI10 /10636-4462 $2
010637 4454 JMS I MSG01 /10637-4454 $,
010640 7523 NOSKIP /10640-7523 =S
010641 4463 JMS I LOOP10 /10641-4463 $3
010642 0643 GOAD1, AND I 0643 /10642-0643 F#
010643 5622 JMP I GOERR1 /10643-5622 .R
010644 0000 DO1, AND 0000 /10644-0000 @@
010645 7300 CLA CLL /10645-7300 ;@
010646 3774 DCA I (TIMFLG /10646-3774 _<
010647 4260 JMS SET1 /10647-4260 "0
010650 1376 TAD (APT10 /10650-1376 K>
010651 6555 FPST /10651-6555 5-
010652 5256 JMP 0656 /10652-5256 *.
010653 7300 CLA CLL /10653-7300 ;@
010654 6203 CIF CDF 0 /10654-6203 2C
010655 5773 JMP I (INTEND /10655-5773 /;
010656 4222 JMS 0622 /10656-4222 "R
010657 5247 JMP 0647 /10657-5247 *'
010660 0000 SET1, AND 0000 /10660-0000 @@
010661 6552 FPICL /10661-6552 5*
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-10
010662 3137 DCA HASERR /10662-3137 Y_
010663 3133 DCA HASINT /10663-3133 Y[
010664 1150 TAD ALL10 /10664-1150 I(
010665 3024 DCA APT10 /10665-3024 XT
010666 1125 TAD STAT10 /10666-1125 IU
010667 0120 AND K4000 /10667-0120 AP KEEP DP MODE
010670 1126 TAD CMND10 /10670-1126 IV
010671 6553 FPCOM /10671-6553 5+
010672 7300 CLA CLL /10672-7300 ;@
010673 1142 TAD EPMOD0 /10673-1142 I"
010674 7510 SPA /10674-7510 =H
010675 6567 FPEP /10675-6567 57
010676 7300 CLA CLL /10676-7300 ;@
010677 5660 JMP I SET1 /10677-5660 .0
010700 7300 TRAP4, CLA CLL /10700-7300 ;@
010701 1372 TAD 0772 /10701-1372 K:
010702 3014 DCA 0014 /10702-3014 XL
010703 6211 CDFX00, CDF 10 /10703-6211 2I
010704 1414 TAD I 0014 /10704-1414 LL
010705 6211 CDF 10 /10705-6211 2I
010706 7510 SPA /10706-7510 =H
010707 7120 CLL CML /10707-7120 9P
010710 7010 RAR /10710-7010 8H
010711 3140 DCA 0140 /10711-3140 Y
010712 7340 CLA CLL CMA /10712-7340 ;
010713 1014 TAD 0014 /10713-1014 HL
010714 3014 DCA 0014 /10714-3014 XL
010715 1142 TAD EPMOD0 /10715-1142 I"
010716 7710 SPA CLA /10716-7710 ?H
010717 5333 JMP 0733 /10717-5333 +[
010720 1371 TAD 0771 /10720-1371 K9
010721 3017 DCA CNT10 /10721-3017 XO
010722 1140 TAD 0140 /10722-1140 I
010723 6211 CDFX01, CDF 10 /10723-6211 2I
010724 3414 DCA I 0014 /10724-3414 \L
010725 6211 CDF 10 /10725-6211 2I
010726 2014 ISZ 0014 /10726-2014 PL
010727 2014 ISZ 0014 /10727-2014 PL
010730 2017 ISZ CNT10 /10730-2017 PO
010731 5322 JMP 0722 /10731-5322 +R
010732 4464 JMS I DO10 /10732-4464 $4
010733 1370 TAD 0770 /10733-1370 K8
010734 3017 DCA CNT10 /10734-3017 XO
010735 1140 TAD 0140 /10735-1140 I
010736 6211 CDFX02, CDF 10 /10736-6211 2I
010737 3414 DCA I 0014 /10737-3414 \L
010740 6211 CDF 10 /10740-6211 2I
010741 2014 ISZ 0014 /10741-2014 PL
010742 2014 ISZ 0014 /10742-2014 PL
010743 2014 ISZ 0014 /10743-2014 PL
010744 2014 ISZ 0014 /10744-2014 PL
010745 2014 ISZ 0014 /10745-2014 PL
010746 2017 ISZ CNT10 /10746-2017 PO
010747 5335 JMP 0735 /10747-5335 +]
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-11
010750 4464 JMS I DO10 /10750-4464 $4
010751 0000 X8JMS, AND 0000 /10751-0000 @@
010752 6201 CDF 0 /10752-6201 2A
010753 1505 TAD I MOD1X8 /10753-1505 ME
010754 6211 CDF 10 /10754-6211 2I
010755 7700 SMA CLA /10755-7700 ?@
010756 5751 JMP I X8JMS /10756-5751 /)
010757 6002 IOF /10757-6002 0B
010760 6211 CDF 10 /10760-6211 2I
010761 6272 CIF 70 /10761-6272 2:
010762 4767 JMS I 0767 /10762-4767 '7
010763 5751 JMP I X8JMS /10763-5751 /)
010764 0037 AND 0037 /10764-0037 @_
010765 7252 CLA CMA RTR /10765-7252 :*
010766 7300 CLA CLL /10766-7300 ;@
010767 6500 6500 /10767-6500 5@
010770 7714 SPA CLA OSR /10770-7714 ?L
010771 7630 SZL CLA /10771-7630 >X
010772 5377 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 *@
010773 0335
010774 0363
010775 0642
010776 0024
010777 5200
1000 PAGE
011000 7300 INTRP1, CLA CLL /11000-7300 ;@
011001 1151 TAD 0151 /11001-1151 I)
011002 7640 SZA CLA /11002-7640 >
011003 5552 JMP I 0152 /11003-5552 -*
011004 7340 CLA CLL CMA /11004-7340 ;
011005 3133 DCA HASINT /11005-3133 Y[
011006 6557 NSIST, FPIST /11006-6557 5/
011007 4257 JMS NOSIST /11007-4257 "/
011010 3125 DCA STAT10 /11010-3125 YU
011011 1125 TAD STAT10 /11011-1125 IU
011012 7450 SNA /11012-7450 <(
011013 4235 JMS STTERR /11013-4235 "]
011014 0377 AND (3740 /11014-0377 C? | T | H | Z | F | E | U |
011015 7106 CLL RTL /11015-7106 9F
011016 7430 SZL /11016-7430 <X
011017 5776 JMP I (TRAP /11017-5776 /> TRAP
011020 7104 CLL RAL /11020-7104 9D
011021 7430 SZL /11021-7430 <X
011022 5775 JMP I (HALT /11022-5775 /= HLT
011023 7104 CLL RAL /11023-7104 9D
011024 7430 SZL /11024-7430 <X
011025 5774 JMP I (DIVZER /11025-5774 /< ZERO DIV
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-12
011026 7104 CLL RAL /11026-7104 9D
011027 7430 SZL /11027-7430 <X
011030 5773 JMP I (FRACOV /11030-5773 /; FRAC OVFL
011031 7104 CLL RAL /11031-7104 9D
011032 7430 SZL /11032-7430 <X
011033 5772 JMP I (EXPOV /11033-5772 /: EXP OVERFLOW
011034 5771 JMP I (EXPUN /11034-5771 /9 UNDERFLOW EXP
011035 0000 STTERR, AND 0000 /11035-0000 @@
011036 7301 CLA CLL IAC /11036-7301 ;A
011037 3137 DCA HASERR /11037-3137 Y_
011040 4467 JMS I RECOV1 /11040-4467 $7
011041 1054 XSTT /11041-1054 H,
011042 1007 TAD TSTNO /11042-1007 HG
011043 0076 AND K1 /11043-0076 @>
011044 7640 SZA CLA /11044-7640 >
011045 5250 JMP .+3 /11045-5250 *(
011046 4457 JMS I 0057 /11046-4457 $/
011047 5251 JMP .+2 /11047-5251 *)
011050 4456 JMS I EFP /11050-4456 $.
011051 4460 JMS I VT /11051-4460 $0
011052 4453 JMS I MSG10 /11052-4453 $+
011053 7377 ULINE /11053-7377 ;?
011054 4463 XSTT, JMS I LOOP10 /11054-4463 $3
011055 0475 0475 /11055-0475 D=
011056 4464 JMS I DO10 /11056-4464 $4
011057 0000 NOSIST, AND 0000 /11057-0000 @@
011060 4465 JMS I RSW10 /11060-4465 $5
011061 0111 AND K100 /11061-0111 AI
011062 7640 SZA CLA /11062-7640 >
011063 5275 JMP NSIS /11063-5275 *=
011064 1257 TAD NOSIST /11064-1257 J/
011065 3002 DCA PC1 /11065-3002 XB
011066 4470 JMS I HDFAIL /11066-4470 $8
011067 4454 JMS I MSG01 /11067-4454 $,
011070 7546 PC /11070-7546 =&
011071 1002 TAD PC1 /11071-1002 HB
011072 4462 JMS I DIGI10 /11072-4462 $2
011073 4453 JMS I MSG10 /11073-4453 $+
011074 7412 ISTNOS /11074-7412 <J
011075 4463 NSIS, JMS I LOOP10 /11075-4463 $3
011076 1006 NSIST /11076-1006 HF
011077 5206 JMP NSIST /11077-5206 *F
011100 0000 SETCDF, AND 0000 /11100-0000 @@
011101 1370 TAD (CDFLIS /11101-1370 K8
011102 3020 DCA F1PNT /11102-3020 XP
011103 1420 TAD I F1PNT /11103-1420 LP
011104 3021 DCA F1TMP /11104-3021 XQ
011105 1147 TAD FLD10 /11105-1147 I'
011106 1367 TAD (CDF 0 /11106-1367 K7
011107 3421 DCA I F1TMP /11107-3421 \Q
011110 2020 ISZ F1PNT /11110-2020 PP
011111 1420 TAD I F1PNT /11111-1420 LP
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-13
011112 7650 SNA CLA /11112-7650 >(
011113 5700 JMP I SETCDF /11113-5700 /@
011114 5303 JMP 1103 /11114-5303 +C
011115 0703 CDFLIS, CDFX00 /11115-0703 GC
011116 0723 CDFX01 /11116-0723 GS
011117 0736 CDFX02 /11117-0736 G^
011120 1432 CDFX03 /11120-1432 LZ
011121 1443 CDFX04 /11121-1443 L#
011122 1253 CDFX05 /11122-1253 J+
011123 2407 CDFX06 /11123-2407 TG
011124 1301 CDFX07 /11124-1301 KA
011125 1273 CDFX10 /11125-1273 J;
011126 1310 CDFX11 /11126-1310 KH
011127 3101 CDFX12 /11127-3101 YA
011130 3301 CDFX13 /11130-3301 [A
011131 0424 CDFX14 /11131-0424 DT
011132 0455 CDFX15 /11132-0455 D-
011133 0000 0000 /11133-0000 @@
011134 0000 RSW11, AND 0000 /11134-0000 @@
011135 6201 CDF 0 /11135-6201 2A
011136 1747 TAD I SOFT0 /11136-1747 O'
011137 7710 SPA CLA /11137-7710 ?H
011140 5343 JMP .+3 /11140-5343 +#
011141 1746 TAD I SW0 /11141-1746 O&
011142 5344 JMP .+2 /11142-5344 +$
011143 7604 CLA OSR /11143-7604 >D
011144 6211 CDF 10 /11144-6211 2I
011145 5734 JMP I RSW11 /11145-5734 /\
011146 0020 SW0, SW /11146-0020 @P
011147 0021 SOFT0, SOFT /11147-0021 @Q
011150 0000 ICL00, AND 0000 /11150-0000 @@
011151 6201 CDF 0 /11151-6201 2A
011152 3403 DCA I CDF11 /11152-3403 \C
011153 3404 DCA I CIF11 /11153-3404 \D
011154 6211 CDF 10 /11154-6211 2I
011155 6552 FPICL /11155-6552 5*
011156 5750 JMP I ICL00 /11156-5750 /(
011157 0000 AND 0000 /11157-0000 @@
011160 4454 JMS I MSG01 /11160-4454 $,
011161 7546 PC /11161-7546 =&
011162 1002 TAD PC1 /11162-1002 HB
011163 4462 JMS I DIGI10 /11163-4462 $2
011164 4466 JMS I LNKPRB /11164-4466 $6
011165 0022 AND 0022 /11165-0022 @R
011166 5757 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
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-14
/TAD 1033 /11174-1233 J[
/TAD 1027 /11175-1227 JW
/TAD 1000 /11176-1200 J@
/DCA I 1140 /11177-3740 _
011167 6201
011170 1115
011171 1300
011172 1271
011173 1263
011174 1233
011175 1227
011176 1200
011177 3740
1200 PAGE
011200 7640 TRAP, SZA CLA /11200-7640 >
011201 4777 JMS I (STTERR /11201-4777 '?
011202 1024 TAD APT10 /11202-1024 HT
011203 7106 CLL RTL /11203-7106 9F
011204 7006 RTL /11204-7006 8F
011205 0102 AND K7 /11205-0102 AB
011206 1376 TAD (TRL /11206-1376 K>
011207 3213 DCA TRI /11207-3213 ZK
011210 1613 TAD I TRI /11210-1613 NK
011211 3214 DCA TRX /11211-3214 ZL
011212 5614 JMP I TRX /11212-5614 .L
011213 0000 TRI, AND 0000 /11213-0000 @@
011214 0000 TRX, AND 0000 /11214-0000 @@
011215 1225 TRL, TRNOP /11215-1225 JU
011216 1400 TRAP1 /11216-1400 L@
011217 1306 TRAP2 /11217-1306 KF
011220 1337 TRAP3X /11220-1337 K_
011221 0700 TRAP4 /11221-0700 G@
011222 2103 TRIL /11222-2103 QC
011223 2103 TRIL /11223-2103 QC
011224 2103 TRIL /11224-2103 QC
011225 6203 TRNOP, CIF CDF 0 /11225-6203 2C
011226 5775 JMP I (INTEND /11226-5775 /=
011227 7640 HALT, SZA CLA /11227-7640 >
011230 4777 JMS I (STTERR /11230-4777 '?
011231 6203 CIF CDF 0 /11231-6203 2C
011232 5775 JMP I (INTEND /11232-5775 /=
011233 7640 DIVZER, SZA CLA /11233-7640 >
011234 4777 JMS I (STTERR /11234-4777 '?
011235 1125 TAD STAT10 /11235-1125 IU DP MODE?
011236 7700 SMA CLA /11236-7700 ?@
011237 5243 JMP 1243 /11237-5243 *#
011240 4774 JMS I (DPMLOC /11240-4774 '<
011241 7340 CLA CLL CMA /11241-7340 ;
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-15
011242 5244 JMP 1244 /11242-5244 *$
011243 4773 JMS I (EFMLOC /11243-4773 ';
011244 1127 TAD LOC /11244-1127 IW
011245 3014 DCA 0014 /11245-3014 XL
011246 1142 TAD EPMOD0 /11246-1142 I"
011247 7710 SPA CLA /11247-7710 ?H
011250 7346 CLA CLL CMA RTL /11250-7346 ;&
011251 1372 TAD (-2 /11251-1372 K:
011252 3017 DCA CNT10 /11252-3017 XO
011253 6211 CDFX05, CDF 10 /11253-6211 2I
011254 1414 TAD I 0014 /11254-1414 LL
011255 6211 CDF 10 /11255-6211 2I
011256 7640 SZA CLA /11256-7640 >
011257 4777 JMS I (STTERR /11257-4777 '?
011260 2017 ISZ CNT10 /11260-2017 PO
011261 5253 JMP CDFX05 /11261-5253 *+
011262 4464 JMS I DO10 /11262-4464 $4
011263 7640 FRACOV, SZA CLA /11263-7640 >
011264 4777 JMS I (STTERR /11264-4777 '?
011265 1032 TAD FMS10 /11265-1032 HZ
011266 7710 SPA CLA /11266-7710 ?H
011267 5273 JMP 1273 /11267-5273 *;
011270 5300 JMP 1300 /11270-5300 +@
011271 7640 EXPOV, SZA CLA /11271-7640 >
011272 4777 JMS I (STTERR /11272-4777 '?
011273 6211 CDFX10, CDF 10 /11273-6211 2I
011274 2752 ISZ I X7 /11274-2752 W*
011275 7000 NOP /11275-7000 8@
011276 6211 CDF 10 /11276-6211 2I
011277 4464 JMS I DO10 /11277-4464 $4
011300 7340 EXPUN, CLA CLL CMA /11300-7340 ;
011301 6211 CDFX07, CDF 10 /11301-6211 2I
011302 1752 TAD I X7 /11302-1752 O*
011303 3752 DCA I X7 /11303-3752 _*
011304 6211 CDF 10 /11304-6211 2I
011305 4464 JMS I DO10 /11305-4464 $4
011306 1032 TRAP2, TAD FMS10 /11306-1032 HZ
011307 0371 AND (37 /11307-0371 C9
011310 6211 CDFX11, CDF 10 /11310-6211 2I
011311 3750 DCA I X4 /11311-3750 _(
011312 1750 TAD I X4 /11312-1750 O(
011313 7041 CMA IAC /11313-7041 8!
011314 3751 DCA I X5 /11314-3751 _)
011315 7340 CLA CLL CMA /11315-7340 ;
011316 3346 DCA MASKMS /11316-3346 [&
011317 7340 CLA CLL CMA /11317-7340 ;
011320 3347 DCA MASKLS /11320-3347 ['
011321 1751 TAD I X5 /11321-1751 O)
011322 6211 CDF 10 /11322-6211 2I
011323 7450 SNA /11323-7450 <(
011324 4464 JMS I DO10 /11324-4464 $4
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-16
011325 3017 DCA CNT10 /11325-3017 XO
011326 1347 TAD MASKLS /11326-1347 K'
011327 7104 CLL RAL /11327-7104 9D
011330 3347 DCA MASKLS /11330-3347 ['
011331 1346 TAD MASKMS /11331-1346 K&
011332 7004 RAL /11332-7004 8D
011333 3346 DCA MASKMS /11333-3346 [&
011334 2017 ISZ CNT10 /11334-2017 PO
011335 5326 JMP 1326 /11335-5326 +V
011336 4464 JMS I DO10 /11336-4464 $4
011337 1032 TRAP3X, TAD FMS10 /11337-1032 HZ
011340 0346 AND MASKMS /11340-0346 C&
011341 3032 DCA FMS10 /11341-3032 XZ
011342 1033 TAD FLS10 /11342-1033 H[
011343 0347 AND MASKLS /11343-0347 C'
011344 3033 DCA FLS10 /11344-3033 X[
011345 4464 JMS I DO10 /11345-4464 $4
011346 0000 MASKMS, AND 0000 /11346-0000 @@
011347 0000 MASKLS, AND 0000 /11347-0000 @@
011350 0044 X4, INDX4 /11350-0044 @$
011351 0045 X5, INDX5 /11351-0045 @%
011352 0047 X7, INDX7 /11352-0047 @'
011353 0000 CHEK00, AND 0000 /11353-0000 @@
011354 1370 TAD (CHKT0 /11354-1370 K8
011355 3002 DCA PC1 /11355-3002 XB
011356 1753 TAD I CHEK00 /11356-1753 O+
011357 3365 DCA CHKT0 /11357-3365 [5
011360 2353 ISZ CHEK00 /11360-2353 S+
011361 6202 CIF 0 /11361-6202 2B
011362 4767 JMS I (CHECK /11362-4767 '7
011363 5340 JMP 1340 /11363-5340 +
011364 4463 JMS I LOOP10 /11364-4463 $3
011365 0000 CHKT0, AND 0000 /11365-0000 @@
011366 5753 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]
011367 7000
011370 1365
011371 0037
011372 7776
011373 1441
011374 1430
011375 0335
011376 1215
011377 1035
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-17
1400 PAGE
011400 7300 TRAP1, CLA CLL /11400-7300 ;@
011401 1007 TAD TSTNO /11401-1007 HG
011402 0076 AND K1 /11402-0076 @>
011403 7650 SNA CLA /11403-7650 >(
011404 5217 JMP 1417 /11404-5217 *O
011405 5206 JMP 1406 /11405-5206 *F
011406 4467 JMS I RECOV1 /11406-4467 $7
011407 1414 XTRP1 /11407-1414 LL
011410 4456 JMS I EFP /11410-4456 $.
011411 4453 JMS I MSG10 /11411-4453 $+
011412 7476 BUCOER /11412-7476 <>
011413 4460 JMS I VT /11413-4460 $0
011414 4463 XTRP1, JMS I LOOP10 /11414-4463 $3
011415 0475 AND I 0075 /11415-0475 D=
011416 4464 JMS I DO10 /11416-4464 $4
011417 4467 JMS I RECOV1 /11417-4467 $7
011420 1425 XTRP2 /11420-1425 LU
011421 4457 JMS I 0057 /11421-4457 $/
011422 4453 JMS I MSG10 /11422-4453 $+
011423 7476 BUCOER /11423-7476 <>
011424 4460 JMS I VT /11424-4460 $0
011425 4463 XTRP2, JMS I LOOP10 /11425-4463 $3
011426 0475 AND I 0075 /11426-0475 D=
011427 4464 JMS I DO10 /11427-4464 $4
011430 0000 DPMLOC, AND 0000 /11430-0000 @@
011431 7300 CLA CLL /11431-7300 ;@
011432 6211 CDFX03, CDF 10 /11432-6211 2I
011433 1660 TAD I X1 /11433-1660 N0
011434 1660 TAD I X1 /11434-1660 N0
011435 6211 CDF 10 /11435-6211 2I
011436 1377 TAD (RANBUF /11436-1377 K?
011437 3127 DCA LOC /11437-3127 YW
011440 5630 JMP I DPMLOC /11440-5630 .X
011441 0000 EFMLOC, AND 0000 /11441-0000 @@
011442 7300 CLA CLL /11442-7300 ;@
011443 6211 CDFX04, CDF 10 /11443-6211 2I
011444 1660 TAD I X1 /11444-1660 N0
011445 7104 CLL RAL /11445-7104 9D
011446 1660 TAD I X1 /11446-1660 N0
011447 6211 CDF 10 /11447-6211 2I
011450 3127 DCA LOC /11450-3127 YW
011451 1142 TAD EPMOD0 /11451-1142 I"
011452 7710 SPA CLA /11452-7710 ?H
011453 1127 TAD LOC /11453-1127 IW
011454 1127 TAD LOC /11454-1127 IW
011455 1377 TAD (RANBUF /11455-1377 K?
011456 3127 DCA LOC /11456-3127 YW
011457 5641 JMP I EFMLOC /11457-5641 .!
011460 0041 X1, INDX1 /11460-0041 @!
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-18
011461 0000 FPGO00, AND 0000 /11461-0000 @@
011462 1661 TAD I FPGO00 /11462-1661 N1
011463 3336 DCA 1536 /11463-3336 [^
011464 1736 TAD I 1536 /11464-1736 O^
011465 1077 TAD K2 /11465-1077 H?
011466 3016 DCA 0016 /11466-3016 XN
011467 2261 ISZ FPGO00 /11467-2261 R1
011470 1016 TAD 0016 /11470-1016 HN
011471 0120 AND K4000 /11471-0120 AP
011472 7640 SZA CLA /11472-7640 >
011473 7001 IAC /11473-7001 8A
011474 1120 TAD K4000 /11474-1120 IP
011475 3017 DCA CNT10 /11475-3017 XO
011476 1261 TAD FPGO00 /11476-1261 J1
011477 3152 DCA 0152 /11477-3152 Y*
011500 4355 JMS 1555 /11500-4355 #-
011501 4776 JMS I (6731 /11501-4776 '>
011502 6552 FPICL /11502-6552 5*
011503 1113 TAD K400 /11503-1113 IK
011504 6553 FPCOM /11504-6553 5+
011505 7300 CLA CLL /11505-7300 ;@
011506 1120 TAD K4000 /11506-1120 IP
011507 6567 FPEP /11507-6567 57
011510 6001 ION /11510-6001 0A
011511 1375 TAD (APT10 /11511-1375 K=
011512 6555 FPST /11512-6555 5-
011513 5330 JMP 1530 /11513-5330 +X
011514 4450 JMS I TIME /11514-4450 $(
011515 3720 3720 /11515-3720 _P
011516 6002 IOF /11516-6002 0B
011517 1374 TAD (.+7 /11517-1374 K<
011520 3002 DCA PC1 /11520-3002 XB
011521 4773 JMS I (6600 /11521-4773 ';
011522 1525 TAD I 0125 /11522-1525 MU
011523 4453 JMS I MSG10 /11523-4453 $+
011524 7447 TIMO /11524-7447 <'
011525 4463 JMS I LOOP10 /11525-4463 $3
011526 1476 TAD I 0076 /11526-1476 L>
011527 5276 JMP 1476 /11527-5276 *>
011530 7300 CLA CLL /11530-7300 ;@
011531 1374 TAD (.-3 /11531-1374 K<
011532 3002 DCA PC1 /11532-3002 XB
011533 4773 JMS I (6600 /11533-4773 ';
011534 1525 TAD I 0125 /11534-1525 MU
011535 5325 JMP 1525 /11535-5325 +U
011536 0000 AND 0000 /11536-0000 @@
011537 0000 AND 0000 /11537-0000 @@
011540 4772 JMS I (7032 /11540-4772 ':
011541 4771 JMS I (6754 /11541-4771 '9
011542 1737 TAD I 1537 /11542-1737 O_
011543 3353 DCA 1553 /11543-3353 [+
011544 2337 ISZ 1537 /11544-2337 S_
011545 4770 JMS I (2416 /11545-4770 '8
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-19
011546 0367 AND (777 /11546-0367 C7
011547 1377 TAD 1577 /11547-1377 K?
011550 3352 DCA 1552 /11550-3352 [*
011551 5737 JMP I 1537 /11551-5737 /_
011552 0000 AND 0000 /11552-0000 @@
011553 0000 AND 0000 /11553-0000 @@
011554 0052 AND 0052 /11554-0052 @*
011555 0000 AND 0000 /11555-0000 @@
011556 1353 TAD 1553 /11556-1353 K+
011557 6201 CDF 0 /11557-6201 2A
011560 3400 DCA I 0000 /11560-3400 \@
011561 1352 TAD 1552 /11561-1352 K*
011562 3401 DCA I 0001 /11562-3401 \A
011563 6211 CDF 10 /11563-6211 2I
011564 5755 JMP I 1555 /11564-5755 /-
011565 4230 JMS DPMLOC /11565-4230 "X
011566 4250 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 ,@
011567 0777
011570 2416
011571 6754
011572 7032
011573 6600
011574 1526
011575 0024
011576 6731
011577 5400
1600 PAGE
011600 0000 EFPRT, AND 0000 /11600-0000 @@
011601 4346 JMS PRTSNO /11601-4346 #&
011602 4453 JMS I MSG10 /11602-4453 $+
011603 7112 TESTXX /11603-7112 9J
011604 1137 TAD HASERR /11604-1137 I_
011605 7650 SNA CLA /11605-7650 >(
011606 5211 JMP 1611 /11606-5211 *I
011607 4453 JMS I MSG10 /11607-4453 $+
011610 7320 STATER /11610-7320 ;P
011611 1142 TAD EPMOD0 /11611-1142 I"
011612 7710 SPA CLA /11612-7710 ?H
011613 5217 JMP 1617 /11613-5217 *O
011614 4453 JMS I MSG10 /11614-4453 $+
011615 7425 FPMOD1 /11615-7425 <U
011616 5221 JMP 1621 /11616-5221 *Q
011617 4453 JMS I MSG10 /11617-4453 $+
011620 7441 EPMOD1 /11620-7441 <!
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-20
011621 4777 JMS I 1777 /11621-4777 '?
011622 4453 JMS I MSG10 /11622-4453 $+
011623 7117 EMLLLL /11623-7117 9O
011624 4453 JMS I MSG10 /11624-4453 $+
011625 7136 RANARG /11625-7136 9^
011626 4767 JMS I 1767 /11626-4767 '7
011627 1142 TAD EPMOD0 /11627-1142 I"
011630 7710 SPA CLA /11630-7710 ?H
011631 1124 TAD 0124 /11631-1124 IT
011632 1124 TAD 0124 /11632-1124 IT
011633 3243 DCA 1643 /11633-3243 Z#
011634 1243 TAD 1643 /11634-1243 J#
011635 3261 DCA 1661 /11635-3261 Z1
011636 1261 TAD 1661 /11636-1261 J1
011637 3270 DCA 1670 /11637-3270 Z8
011640 1127 TAD LOC /11640-1127 IW
011641 4776 JMS I 1776 /11641-4776 '>
011642 4461 JMS I NUMLIN /11642-4461 $1
011643 0000 AND 0000 /11643-0000 @@
011644 1007 TAD TSTNO /11644-1007 HG
011645 1375 TAD 1775 /11645-1375 K=
011646 7640 SZA CLA /11646-7640 >
011647 5262 JMP 1662 /11647-5262 *2
011650 4453 JMS I MSG10 /11650-4453 $+
011651 7244 RANNUM /11651-7244 :$
011652 1142 TAD EPMOD0 /11652-1142 I"
011653 7710 SPA CLA /11653-7710 ?H
011654 1100 TAD 0100 /11654-1100 I@
011655 1100 TAD 0100 /11655-1100 I@
011656 1127 TAD LOC /11656-1127 IW
011657 4776 JMS I 1776 /11657-4776 '>
011660 4461 JMS I NUMLIN /11660-4461 $1
011661 0000 AND 0000 /11661-0000 @@
011662 4453 JMS I MSG10 /11662-4453 $+
011663 7146 BADARG /11663-7146 9&
011664 1127 TAD LOC /11664-1127 IW
011665 1114 TAD 0114 /11665-1114 IL
011666 4776 JMS I 1776 /11666-4776 '>
011667 4461 JMS I NUMLIN /11667-4461 $1
011670 0000 AND 0000 /11670-0000 @@
011671 5600 JMP I EFPRT /11671-5600 .@
011672 0000 DPPRT, AND 0000 /11672-0000 @@
011673 4346 JMS PRTSNO /11673-4346 #&
011674 4453 JMS I MSG10 /11674-4453 $+
011675 7112 TESTXX /11675-7112 9J
011676 1137 TAD HASERR /11676-1137 I_
011677 7650 SNA CLA /11677-7650 >(
011700 5303 JMP 1703 /11700-5303 +C
011701 4453 JMS I MSG10 /11701-4453 $+
011702 7320 STATER /11702-7320 ;P
011703 1007 TAD TSTNO /11703-1007 HG
011704 7110 CLL RAR /11704-7110 9H
011705 7630 SZL CLA /11705-7630 >X
011706 5672 JMP I DPPRT /11706-5672 .:
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-21
011707 4453 JMS I MSG10 /11707-4453 $+
011710 7433 DPMOD1 /11710-7433 <[
011711 4777 JMS I 1777 /11711-4777 '?
011712 4453 JMS I MSG10 /11712-4453 $+
011713 7156 MSWLSW /11713-7156 9.
011714 4453 JMS I MSG10 /11714-4453 $+
011715 7136 RANARG /11715-7136 9^
011716 4774 JMS I 1774 /11716-4774 '<
011717 1127 TAD LOC /11717-1127 IW
011720 4776 JMS I 1776 /11720-4776 '>
011721 4461 JMS I NUMLIN /11721-4461 $1
011722 7776 -2 /11722-7776 ?>
011723 1007 TAD TSTNO /11723-1007 HG
011724 1373 TAD 1773 /11724-1373 K;
011725 7640 SZA CLA /11725-7640 >
011726 5336 JMP 1736 /11726-5336 +^
011727 4453 JMS I MSG10 /11727-4453 $+
011730 7244 RANNUM /11730-7244 :$
011731 1077 TAD K2 /11731-1077 H?
011732 1127 TAD LOC /11732-1127 IW
011733 4776 JMS I 1776 /11733-4776 '>
011734 4461 JMS I NUMLIN /11734-4461 $1
011735 7776 -2 /11735-7776 ?>
011736 4453 JMS I MSG10 /11736-4453 $+
011737 7146 BADARG /11737-7146 9&
011740 1127 TAD LOC /11740-1127 IW
011741 1114 TAD 0114 /11741-1114 IL
011742 4776 JMS I 1776 /11742-4776 '>
011743 4461 JMS I NUMLIN /11743-4461 $1
011744 7776 -2 /11744-7776 ?>
011745 5672 JMP I DPPRT /11745-5672 .:
011746 0000 PRTSNO, AND 0000 /11746-0000 @@
011747 7300 CLA CLL /11747-7300 ;@
011750 1007 TAD TSTNO /11750-1007 HG
011751 0372 AND 1772 /11751-0372 C:
011752 1371 TAD 1771 /11752-1371 K9
011753 3022 DCA 0022 /11753-3022 XR
011754 1007 TAD TSTNO /11754-1007 HG
011755 7012 RTR /11755-7012 8J
011756 7010 RAR /11756-7010 8H
011757 0372 AND 1772 /11757-0372 C:
011760 1371 TAD 1771 /11760-1371 K9
011761 7106 CLL RTL /11761-7106 9F
011762 7006 RTL /11762-7006 8F
011763 7006 RTL /11763-7006 8F
011764 1022 TAD 0022 /11764-1022 HR
011765 3770 DCA I 1770 /11765-3770 _8
011766 5746 JMP I PRTSNO /11766-5746 /&
011767 1441 TAD I 0041 /11767-1441 L!
011770 7115 7115 /11770-7115 9M
011771 0060 AND 0060 /11771-0060 @0
011772 0007 AND TSTNO /11772-0007 @G
011773 7762 SMA SZA SNL CLA HLT /11773-7762 ?2
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-22
011774 1430 TAD I 0030 /11774-1430 LX
011775 7763 MQA MQL CLA DAD /11775-7763 ?3
011776 2265 ISZ 1665 /11776-2265 R5
011777 1157 TAD 0157 /11777-1157 I/
2000 PAGE
012000 0000 ACTEXP, AND 0000 /12000-0000 @@
012001 2130 ISZ 0130 /12001-2130 QX
012002 1130 TAD 0130 /12002-1130 IX
012003 6201 CDF 0 /12003-6201 2A
012004 3652 DCA I 2052 /12004-3652 ^*
012005 1652 TAD I 2052 /12005-1652 N*
012006 6211 CDF 10 /12006-6211 2I
012007 7041 CMA IAC /12007-7041 8!
012010 1130 TAD 0130 /12010-1130 IX
012011 7650 SNA CLA /12011-7650 >(
012012 5600 JMP I 2000 /12012-5600 .@
012013 6002 IOF /12013-6002 0B
012014 4467 JMS I RECOV1 /12014-4467 $7
012015 2047 XACT1 /12015-2047 P'
012016 4453 JMS I MSG10 /12016-4453 $+
012017 2053 INTRAC /12017-2053 P+
012020 4454 JMS I MSG01 /12020-4454 $,
012021 7546 PC /12021-7546 =&
012022 1002 TAD PC1 /12022-1002 HB
012023 4462 JMS I DIGI10 /12023-4462 $2
012024 4777 JMS I (PRTSNO /12024-4777 '?
012025 4453 JMS I MSG10 /12025-4453 $+
012026 7112 TESTXX /12026-7112 9J
012027 4453 JMS I MSG10 /12027-4453 $+
012030 7377 ULINE /12030-7377 ;?
012031 4453 JMS I MSG10 /12031-4453 $+
012032 2077 ACTUAL /12032-2077 P?
012033 6201 CDF 0 /12033-6201 2A
012034 1652 TAD I 2052 /12034-1652 N*
012035 6211 CDF 10 /12035-6211 2I
012036 4462 JMS I DIGI10 /12036-4462 $2
012037 4466 JMS I LNKPRB /12037-4466 $6
012040 0005 AND 0005 /12040-0005 @E
012041 4453 JMS I MSG10 /12041-4453 $+
012042 2072 EXPECT /12042-2072 P:
012043 1130 TAD 0130 /12043-1130 IX
012044 4462 JMS I DIGI10 /12044-4462 $2
012045 4453 JMS I MSG10 /12045-4453 $+
012046 7377 ULINE /12046-7377 ;?
012047 4463 XACT1, JMS I LOOP10 /12047-4463 $3
012050 0475 AND I 0075 /12050-0475 D=
012051 4464 JMS I DO10 /12051-4464 $4
012052 0007 AND TSTNO /12052-0007 @G
012053 3706 INTRAC, DCA I 2106 /12053-3706 _F
012054 2020 ISZ 0020 /12054-2020 PP
012055 5570 JMP I 0170 /12055-5570 -8
012056 0140 AND 0140 /12056-0140 A
012057 1116 TAD 0116 /12057-1116 IN
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-23
012060 2405 ISZ I 0005 /12060-2405 TE
012061 2201 ISZ 2001 /12061-2201 RA
012062 0324 AND 2124 /12062-0324 CT
012063 1117 TAD 0117 /12063-1117 IO
012064 1640 TAD I 2040 /12064-1640 N
012065 0601 AND I 2001 /12065-0601 FA
012066 1114 TAD 0114 /12066-1114 IL
012067 2522 ISZ I 0122 /12067-2522 UR
012070 0540 AND I 0140 /12070-0540 E
012071 0000 AND 0000 /12071-0000 @@
012072 0530 EXPECT, AND I 0130 /12072-0530 EX
012073 2005 ISZ 0005 /12073-2005 PE
012074 0324 AND 2124 /12074-0324 CT
012075 0504 AND I 0104 /12075-0504 ED
012076 7200 CLA /12076-7200 :@
012077 0103 ACTUAL, AND 0103 /12077-0103 AC
012100 2425 ISZ I 0025 /12100-2425 TU
012101 0114 AND 0114 /12101-0114 AL
012102 7200 CLA /12102-7200 :@
012103 0000 TRIL, AND 0000 /12103-0000 @@
012104 4467 JMS I RECOV1 /12104-4467 $7
012105 2121 XTRIL1 /12105-2121 QQ
012106 4453 JMS I MSG10 /12106-4453 $+
012107 2124 ILTRAP /12107-2124 QT
012110 4454 JMS I MSG01 /12110-4454 $,
012111 7546 PC /12111-7546 =&
012112 1002 TAD PC1 /12112-1002 HB
012113 4462 JMS I DIGI10 /12113-4462 $2
012114 4777 JMS I 2177 /12114-4777 '?
012115 4453 JMS I MSG10 /12115-4453 $+
012116 7112 TESTXX /12116-7112 9J
012117 4453 JMS I MSG10 /12117-4453 $+
012120 7377 ULINE /12120-7377 ;?
012121 4463 XTRIL1, JMS I LOOP10 /12121-4463 $3
012122 0475 AND I 0075 /12122-0475 D=
012123 4464 JMS I DO10 /12123-4464 $4
012124 3711 ILTRAP, DCA I 2111 /12124-3711 _I
012125 1414 TAD I 0014 /12125-1414 LL
012126 0507 AND I 0107 /12126-0507 EG
012127 0114 AND 0114 /12127-0114 AL
012130 4024 JMS 0024 /12130-4024 T
012131 2201 ISZ 2001 /12131-2201 RA
012132 2040 ISZ 0040 /12132-2040 P
012133 0405 AND I 0005 /12133-0405 DE
012134 2405 ISZ I 0005 /12134-2405 TE
012135 0324 AND 2124 /12135-0324 CT
012136 0504 AND I 0104 /12136-0504 ED
012137 4000 JMS 0000 /12137-4000 @
012140 0000 FAILHD, AND 0000 /12140-0000 @@
012141 4471 JMS I X8JMP1 /12141-4471 $9
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-24
012142 4453 JMS I MSG10 /12142-4453 $+
012143 7377 ULINE /12143-7377 ;?
012144 4453 JMS I MSG10 /12144-4453 $+
012145 7377 ULINE /12145-7377 ;?
012146 4453 JMS I MSG10 /12146-4453 $+
012147 7254 DATAEX /12147-7254 :,
012150 4453 JMS I MSG10 /12150-4453 $+
012151 7230 FAILUR /12151-7230 :X
012152 1376 TAD (6060 /12152-1376 K>
012153 1146 TAD FLD1 /12153-1146 I&
012154 3775 DCA I (XXFLD /12154-3775 _=
012155 4453 JMS I MSG10 /12155-4453 $+
012156 7554 FLDXX /12156-7554 =,
012157 5740 JMP I FAILHD /12157-5740 /
012160 0000 RSW1, AND 0000 /12160-0000 @@
012161 7300 CLA CLL /12161-7300 ;@
012162 6201 CDF 0 /12162-6201 2A
012163 1774 TAD I (SOFT /12163-1774 O<
012164 7710 SPA CLA /12164-7710 ?H
012165 5370 JMP .+3 /12165-5370 +8
012166 1773 TAD I (SW /12166-1773 O;
012167 5371 JMP .+2 /12167-5371 +9
012170 7604 CLA OSR /12170-7604 >D
012171 6211 CDF 10 /12171-6211 2I
012172 5760 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&
012173 0020
012174 0021
012175 7557
012176 6060
012177 1746
2200 PAGE
012200 0000 APTLST, AND 0000 /12200-0000 @@
012201 4453 JMS I MSG10 /12201-4453 $+
012202 7377 ULINE /12202-7377 ;?
012203 4305 JMS DOTLIN /12203-4305 #E
012204 4453 JMS I MSG10 /12204-4453 $+
012205 7511 APTTBL /12205-7511 =I
012206 4305 JMS DOTLIN /12206-4305 #E
012207 4453 JMS I MSG10 /12207-4453 $+
012210 0514 APTLIN /12210-0514 EL
012211 1377 TAD (-13 /12211-1377 K?
012212 3217 DCA .+5 /12212-3217 ZO
012213 1376 TAD (CDF 10 /12213-1376 K>
012214 3250 DCA NEXNUM+1 /12214-3250 Z(
012215 1375 TAD (24 /12215-1375 K=
012216 4461 JMS I NUMLIN /12216-4461 $1
012217 0000 0000 /12217-0000 @@
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-25
012220 4453 JMS I MSG10 /12220-4453 $+
012221 7224 STAT /12221-7224 :T
012222 1374 TAD (125 /12222-1374 K<
012223 4461 JMS I NUMLIN /12223-4461 $1
012224 7777 -1 /12224-7777 ??
012225 4453 JMS I MSG10 /12225-4453 $+
012226 0551 INDRGS /12226-0551 E)
012227 4453 JMS I MSG10 /12227-4453 $+
012230 7200 IR0TO7 /12230-7200 :@
012231 4466 JMS I LNKPRB /12231-4466 $6
012232 0017 AND 0017 /12232-0017 @O
012233 1147 TAD FLD10 /12233-1147 I'
012234 1373 TAD (CDF 0 /12234-1373 K;
012235 3250 DCA NEXNUM+1 /12235-3250 Z(
012236 1372 TAD (40 /12236-1372 K:
012237 4461 JMS I NUMLIN /12237-4461 $1
012240 7770 -10 /12240-7770 ?8
012241 5600 JMP I APTLST /12241-5600 .@
012242 0000 LINNUM, AND 0000 /12242-0000 @@
012243 1371 TAD (-1 /12243-1371 K9
012244 3014 DCA 0014 /12244-3014 XL
012245 1642 TAD I LINNUM /12245-1642 N"
012246 3017 DCA CNT10 /12246-3017 XO
012247 7300 NEXNUM, CLA CLL /12247-7300 ;@
012250 6211 CDF 10 /12250-6211 2I
012251 1414 TAD I 0014 /12251-1414 LL
012252 6211 CDF 10 /12252-6211 2I
012253 4462 JMS I DIGI10 /12253-4462 $2
012254 2017 ISZ CNT10 /12254-2017 PO
012255 5247 JMP NEXNUM /12255-5247 *'
012256 2242 ISZ LINNUM /12256-2242 R"
012257 5642 JMP I LINNUM /12257-5642 ."
012260 0000 DIGIT1, AND 0000 /12260-0000 @@
012261 6202 CIF 0 /12261-6202 2B
012262 4664 JMS I .+2 /12262-4664 &4
012263 5660 JMP I DIGIT1 /12263-5660 .0
012264 7304 DIGITS /12264-7304 ;D
012265 0000 AND 0000 /12265-0000 @@
012266 3304 DCA 2304 /12266-3304 [D
012267 4453 JMS I MSG10 /12267-4453 $+
012270 7517 LOCS /12270-7517 =O
012271 1304 TAD 2304 /12271-1304 KD
012272 4462 JMS I DIGI10 /12272-4462 $2
012273 4453 JMS I MSG10 /12273-4453 $+
012274 7522 EQTXT /12274-7522 =R
012275 4466 JMS I LNKPRB /12275-4466 $6
012276 0003 AND 0003 /12276-0003 @C
012277 1147 TAD FLD10 /12277-1147 I'
012300 1373 TAD 2373 /12300-1373 K;
012301 3250 DCA 2250 /12301-3250 Z(
012302 1304 TAD 2304 /12302-1304 KD
012303 5665 JMP I 2265 /12303-5665 .5
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-26
012304 0000 AND 0000 /12304-0000 @@
012305 0000 DOTLIN, AND 0000 /12305-0000 @@
012306 1370 TAD (-31 /12306-1370 K8
012307 3010 DCA 0010 /12307-3010 XH
012310 1367 TAD (". /12310-1367 K7
012311 4313 JMS DOT /12311-4313 #K
012312 5705 JMP I DOTLIN /12312-5705 /E
012313 0000 DOT, AND 0000 /12313-0000 @@
012314 6046 TLS /12314-6046 0&
012315 6041 TSF /12315-6041 0!
012316 5315 JMP .-1 /12316-5315 +M
012317 2010 ISZ 0010 /12317-2010 PH
012320 5314 JMP .-4 /12320-5314 +L
012321 6042 TCF /12321-6042 0"
012322 7300 CLA CLL /12322-7300 ;@
012323 5713 JMP I DOT /12323-5713 /K
012324 4450 JMS I TIME /12324-4450 $(
012325 3720 DCA I 2320 /12325-3720 _P
012326 5766 JMP I (0204 /12326-5766 /6
012327 0000 CLEAR1, AND 0000 /12327-0000 @@
012330 1122 TAD M1200 /12330-1122 IR
012331 3011 DCA 0011 /12331-3011 XI
012332 1365 TAD (RANBUF-1 /12332-1365 K5
012333 3010 DCA 0010 /12333-3010 XH
012334 3410 DCA I 0010 /12334-3410 \H
012335 2011 ISZ 0011 /12335-2011 PI
012336 5334 JMP .-2 /12336-5334 +\
012337 6203 CIF CDF 0 /12337-6203 2C
012340 5727 JMP I CLEAR1 /12340-5727 /W
012341 1000 TAD 0000 /12341-1000 H@
012342 2000 ISZ 0000 /12342-2000 P@
012343 6000 SKON /12343-6000 0@
012344 0000 AND 0000 /12344-0000 @@
012345 6026 6026 /12345-6026 0V
012346 0000 AND 0000 /12346-0000 @@
012347 1340 TAD 2340 /12347-1340 K
012350 0000 AND 0000 /12350-0000 @@
012351 1341 TAD 2341 /12351-1341 K!
012352 0000 AND 0000 /12352-0000 @@
012353 1342 TAD 2342 /12353-1342 K"
012354 0000 AND 0000 /12354-0000 @@
012355 1343 TAD 2343 /12355-1343 K#
012356 0000 AND 0000 /12356-0000 @@
012357 1344 TAD 2344 /12357-1344 K$
012360 0001 AND 0001 /12360-0001 @A
012361 1345 TAD 2345 /12361-1345 K%
012362 0001 AND 0001 /12362-0001 @A
012363 1005 TAD 0005 /12363-1005 HE
012364 1111 TAD 0111 /12364-1111 II
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-27
/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
012365 5377
012366 0204
012367 0256
012370 7747
012371 7777
012372 0040
012373 6201
012374 0125
012375 0024
012376 6211
012377 7765
2400 PAGE
012400 0000 SETRAN, AND 0000 /12400-0000 @@
012401 7340 CLA CLL CMA /12401-7340 ;
012402 1600 TAD I 2400 /12402-1600 N@
012403 3016 DCA 0016 /12403-3016 XN
012404 1377 TAD (-500 /12404-1377 K?
012405 3015 DCA 0015 /12405-3015 XM
012406 4216 JMS RAN /12406-4216 "N
012407 6211 CDFX06, CDF 10 /12407-6211 2I
012410 3416 DCA I 0016 /12410-3416 \N
012411 6211 CDF 10 /12411-6211 2I
012412 2015 ISZ 0015 /12412-2015 PM
012413 5206 JMP CDFX06-1 /12413-5206 *F
012414 2200 ISZ SETRAN /12414-2200 R@
012415 5600 JMP I SETRAN /12415-5600 .@
012416 0000 RAN, AND 0000 /12416-0000 @@
012417 7301 CLA CLL IAC /12417-7301 ;A
012420 1232 TAD SEED1 /12420-1232 JZ
012421 1233 TAD SEED2 /12421-1233 J[
012422 7106 CLL RTL /12422-7106 9F
012423 3232 DCA SEED1 /12423-3232 ZZ
012424 1233 TAD SEED2 /12424-1233 J[
012425 7012 RTR /12425-7012 8J
012426 1232 TAD SEED1 /12426-1232 JZ
012427 3233 DCA SEED2 /12427-3233 Z[
012430 1233 TAD SEED2 /12430-1233 J[
012431 5616 JMP I RAN /12431-5616 .N
012432 0000 SEED1, AND 0000 /12432-0000 @@
012433 0000 SEED2, AND 0000 /12433-0000 @@
012434 0000 INIRAN, AND 0000 /12434-0000 @@
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-28
012435 6214 RDF /12435-6214 2L
012436 1376 TAD (CIF CDF 0 /12436-1376 K>
012437 3245 DCA .+6 /12437-3245 Z%
012440 3151 DCA 0151 /12440-3151 Y)
012441 1247 TAD XSEED1 /12441-1247 J'
012442 3232 DCA SEED1 /12442-3232 ZZ
012443 1250 TAD XSEED2 /12443-1250 J(
012444 3233 DCA SEED2 /12444-3233 Z[
012445 6213 CIF CDF 10 /12445-6213 2K
012446 5634 JMP I INIRAN /12446-5634 .\
012447 1234 XSEED1, 1234 /12447-1234 J\
012450 5670 XSEED2, 5670 /12450-5670 .8
012451 0000 TIMOUT, AND 0000 /12451-0000 @@
012452 7300 CLA CLL /12452-7300 ;@
012453 6214 RDF /12453-6214 2L
012454 1376 TAD (CIF CDF 0 /12454-1376 K>
012455 3270 DCA 2470 /12455-3270 Z8
012456 1651 TAD I TIMOUT /12456-1651 N)
012457 7041 CMA IAC /12457-7041 8!
012460 3020 DCA F1PNT /12460-3020 XP
012461 1375 TAD (-405 /12461-1375 K=
012462 3021 DCA F1TMP /12462-3021 XQ
012463 2021 ISZ F1TMP /12463-2021 PQ
012464 5263 JMP 2463 /12464-5263 *3
012465 2020 ISZ F1PNT /12465-2020 PP
012466 5261 JMP 2461 /12466-5261 *1
012467 2251 ISZ TIMOUT /12467-2251 R)
012470 6203 CIF CDF 0 /12470-6203 2C
012471 5651 JMP I TIMOUT /12471-5651 .)
012472 0000 MESG1, AND 0000 /12472-0000 @@
012473 1672 TAD I MESG1 /12473-1672 N:
012474 3306 DCA MSG1 /12474-3306 [F
012475 2272 ISZ MESG1 /12475-2272 R:
012476 6201 CDF 0 /12476-6201 2A
012477 7001 IAC /12477-7001 8A
012500 3404 DCA I CIF10 /12500-3404 \D
012501 7001 IAC /12501-7001 8A
012502 3403 DCA I CDF10 /12502-3403 \C
012503 6211 CDF 10 /12503-6211 2I
012504 6202 CIF 0 /12504-6202 2B
012505 4710 JMS I XMSG /12505-4710 'H
012506 0000 MSG1, AND 0000 /12506-0000 @@
012507 5672 JMP I MESG1 /12507-5672 .:
012510 3000 XMSG, MESG /12510-3000 X@
012511 0000 MESG0, AND 0000 /12511-0000 @@
012512 1711 TAD I MESG0 /12512-1711 OI
012513 3324 DCA MSG0 /12513-3324 [T
012514 2311 ISZ MESG0 /12514-2311 SI
012515 6201 CDF 0 /12515-6201 2A
012516 7001 IAC /12516-7001 8A
012517 3404 DCA I CIF10 /12517-3404 \D
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-29
012520 3403 DCA I CDF10 /12520-3403 \C
012521 6211 CDF 10 /12521-6211 2I
012522 6202 CIF 0 /12522-6202 2B
012523 4710 JMS I XMSG /12523-4710 'H
012524 0000 MSG0, AND 0000 /12524-0000 @@
012525 5711 JMP I MESG0 /12525-5711 /I
012526 0000 LOOP1, AND 0000 /12526-0000 @@
012527 1726 TAD I LOOP1 /12527-1726 OV
012530 3334 DCA LOOPX /12530-3334 [\
012531 3137 DCA HASERR /12531-3137 Y_
012532 6202 CIF 0 /12532-6202 2B
012533 4737 JMS I LOOP0 /12533-4737 '_
012534 0000 LOOPX, AND 0000 /12534-0000 @@
012535 2326 ISZ LOOP1 /12535-2326 SV
012536 5726 JMP I LOOP1 /12536-5726 /V
012537 6600 LOOP0, LOOP /12537-6600 6@
012540 0000 RECO10, AND 0000 /12540-0000 @@
012541 7301 CLA CLL IAC /12541-7301 ;A
012542 1740 TAD I 2540 /12542-1740 O
012543 3002 DCA PC1 /12543-3002 XB
012544 1137 TAD HASERR /12544-1137 I_
012545 7650 SNA CLA /12545-7650 >(
012546 5354 JMP 2554 /12546-5354 +,
012547 1374 TAD (-4 /12547-1374 K<
012550 1340 TAD 2540 /12550-1340 K
012551 3366 DCA 2566 /12551-3366 [6
012552 1766 TAD I 2566 /12552-1766 O6
012553 3002 DCA PC1 /12553-3002 XB
012554 1740 TAD I 2540 /12554-1740 O
012555 3366 DCA 2566 /12555-3366 [6
012556 2340 ISZ 2540 /12556-2340 S
012557 4471 JMS I X8JMP1 /12557-4471 $9
012560 4465 JMS I RSW10 /12560-4465 $5
012561 0111 AND K100 /12561-0111 AI
012562 7640 SZA CLA /12562-7640 >
012563 5766 JMP I 2566 /12563-5766 /6
012564 4470 JMS I HDFAIL /12564-4470 $8
012565 5740 JMP I 2540 /12565-5740 /
012566 0000 AND 0000 /12566-0000 @@
012567 1214 TAD 2414 /12567-1214 JL
012570 0000 AND 0000 /12570-0000 @@
012571 1237 TAD 2437 /12571-1237 J_
012572 0000 AND 0000 /12572-0000 @@
012573 1240 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 ;@
012574 7774
012575 7373
012576 6203
012577 7300
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-30
2600 PAGE
012600 0000 F12600, AND 0000 /12600-0000 @@
012601 3021 DCA F1TMP /12601-3021 XQ
012602 3151 DCA 0151 /12602-3151 Y)
012603 1021 TAD F1TMP /12603-1021 HQ
012604 0103 AND K10 /12604-0103 AC
012605 1377 TAD (CDF 0 /12605-1377 K?
012606 3332 DCA PUTINS+1 /12606-3332 [Z
012607 1376 TAD (FPC1 /12607-1376 K>
012610 3020 DCA F1PNT /12610-3020 XP
012611 1375 TAD (-400 /12611-1375 K=
012612 3141 DCA F1CNT /12612-3141 Y!
012613 4342 LF126, JMS GETINS /12613-4342 #"
012614 0374 AND (600 /12614-0374 C<
012615 7450 SNA /12615-7450 <(
012616 5224 JMP .+6 /12616-5224 *T
012617 7041 CMA IAC /12617-7041 8!
012620 1113 TAD K400 /12620-1113 IK
012621 7650 SNA CLA /12621-7650 >(
012622 5304 JMP XDBLW /12622-5304 +D DOUBLE WORD
012623 5301 JMP XGETI /12623-5301 +A
012624 4342 JMS GETINS /12624-4342 #"
012625 0373 AND (7000 /12625-0373 C;
012626 1372 TAD (-6000 /12626-1372 K:
012627 7650 SNA CLA /12627-7650 >(
012630 5304 JMP XDBLW /12630-5304 +D LEA IMUL
012631 4342 JMS GETINS /12631-4342 #"
012632 0371 AND (7770 /12632-0371 C9
012633 1370 TAD (-1110 /12633-1370 K8 SETB
012634 7650 SNA CLA /12634-7650 >(
012635 5304 JMP XDBLW /12635-5304 +D
012636 4342 JMS GETINS /12636-4342 #"
012637 0371 AND (7770 /12637-0371 C9
012640 1367 TAD (-1100 /12640-1367 K7 SETX
012641 7650 SNA CLA /12641-7650 >(
012642 5310 JMP XSETX /12642-5310 +H
012643 4342 JMS GETINS /12643-4342 #"
012644 0373 AND (7000 /12644-0373 C;
012645 1373 TAD (-1000 /12645-1373 K; JUMPS
012646 7650 SNA CLA /12646-7650 >(
012647 5317 JMP XMODX /12647-5317 +O
012650 4342 JMS GETINS /12650-4342 #"
012651 0371 AND (7770 /12651-0371 C9
012652 1366 TAD (-2000 /12652-1366 K6 JNX
012653 7650 SNA CLA /12653-7650 >(
012654 5317 JMP XMODX /12654-5317 +O
012655 4342 JMS GETINS /12655-4342 #"
012656 0371 AND (7770 /12656-0371 C9
012657 1365 TAD (-3000 /12657-1365 K5 TRAP3
012660 7650 SNA CLA /12660-7650 >(
012661 5317 JMP XMODX /12661-5317 +O
012662 4342 JMS GETINS /12662-4342 #"
012663 0371 AND (7770 /12663-0371 C9
012664 1364 TAD (-4000 /12664-1364 K4 TRAP4
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-31
012665 7650 SNA CLA /12665-7650 >(
012666 5317 JMP XMODX /12666-5317 +O
012667 4342 JMS GETINS /12667-4342 #"
012670 0371 AND (7770 /12670-0371 C9 ADDX
012671 1363 TAD (-0110 /12671-1363 K3
012672 7650 SNA CLA /12672-7650 >(
012673 5300 JMP XMODI /12673-5300 +@
012674 4342 JMS GETINS /12674-4342 #"
012675 0371 AND (7770 /12675-0371 C9
012676 1362 TAD (-0100 /12676-1362 K2 LDX
012677 7650 SNA CLA /12677-7650 >(
012700 4322 XMODI, JMS MODINS /12700-4322 #R
012701 4342 XGETI, JMS GETINS /12701-4342 #"
012702 4331 JMS PUTINS /12702-4331 #Y
012703 5213 JMP LF126 /12703-5213 *K
012704 1021 XDBLW, TAD F1TMP /12704-1021 HQ
012705 0102 AND K7 /12705-0102 AB
012706 7110 CLL RAR /12706-7110 9H
012707 5300 JMP XMODI /12707-5300 +@
012710 6201 XSETX, CDF 0 /12710-6201 2A
012711 1747 TAD I 2747 /12711-1747 O'
012712 6211 CDF 10 /12712-6211 2I
012713 0101 AND K4 /12713-0101 AA
012714 7640 SZA CLA /12714-7640 >
012715 7001 IAC /12715-7001 8A
012716 5300 JMP XMODI /12716-5300 +@
012717 1021 XMODX, TAD F1TMP /12717-1021 HQ
012720 0076 AND K1 /12720-0076 @>
012721 5300 JMP XMODI /12721-5300 +@
012722 0000 MODINS, AND 0000 /12722-0000 @@
012723 3134 DCA 0134 /12723-3134 Y\
012724 4342 JMS GETINS /12724-4342 #"
012725 0371 AND (7770 /12725-0371 C9
012726 1134 TAD 0134 /12726-1134 I\
012727 4331 JMS PUTINS /12727-4331 #Y
012730 5722 JMP I MODINS /12730-5722 /R
012731 0000 PUTINS, AND 0000 /12731-0000 @@
012732 6211 CDF 10 /12732-6211 2I OR CDF 0
012733 3420 DCA I F1PNT /12733-3420 \P
012734 2020 ISZ F1PNT /12734-2020 PP
012735 6211 CDF 10 /12735-6211 2I
012736 2141 ISZ F1CNT /12736-2141 Q!
012737 5731 JMP I PUTINS /12737-5731 /Y
012740 6203 CIF CDF 0 /12740-6203 2C
012741 5600 JMP I F12600 /12741-5600 .@
012742 0000 GETINS, AND 0000 /12742-0000 @@
012743 6201 CDF 0 /12743-6201 2A
012744 1420 TAD I F1PNT /12744-1420 LP
012745 6211 CDF 10 /12745-6211 2I
012746 5742 JMP I GETINS /12746-5742 /"
012747 0157 AND 0157 /12747-0157 A/
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-32
012750 0000 PRBLNK, AND 0000 /12750-0000 @@
012751 1750 TAD I PRBLNK /12751-1750 O(
012752 7041 CMA IAC /12752-7041 8!
012753 3010 DCA 0010 /12753-3010 XH
012754 2350 ISZ PRBLNK /12754-2350 S(
012755 1361 TAD (240 /12755-1361 K1
012756 4760 JMS I (DOT /12756-4760 '0
012757 5750 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
012760 2313
012761 0240
012762 7700
012763 7670
012764 4000
012765 5000
012766 6000
012767 6700
012770 6670
012771 7770
012772 2000
012773 7000
012774 0600
012775 7400
012776 5400
012777 6201
3000 PAGE
013000 0000 AND 0000 /13000-0000 @@
013001 7340 CLA CLL CMA /13001-7340 ;
013002 1146 TAD FLD1 /13002-1146 I&
013003 3360 DCA 3160 /13003-3360 [0
013004 1377 TAD 3177 /13004-1377 K?
013005 3020 DCA F1PNT /13005-3020 XP
013006 4776 JMS I 3176 /13006-4776 '>
013007 1375 TAD 3175 /13007-1375 K=
013010 3021 DCA F1TMP /13010-3021 XQ
013011 1420 TAD I F1PNT /13011-1420 LP
013012 0374 AND 3174 /13012-0374 C<
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-33
013013 7450 SNA /13013-7450 <(
013014 5222 JMP 3022 /13014-5222 *R
013015 7041 CMA IAC /13015-7041 8!
013016 1113 TAD K400 /13016-1113 IK
013017 7650 SNA CLA /13017-7650 >(
013020 5261 JMP 3061 /13020-5261 *1
013021 5253 JMP 3053 /13021-5253 *+
013022 1420 TAD I F1PNT /13022-1420 LP
013023 0373 AND 3173 /13023-0373 C;
013024 7041 CMA IAC /13024-7041 8!
013025 1421 TAD I F1TMP /13025-1421 LQ
013026 7650 SNA CLA /13026-7650 >(
013027 5261 JMP 3061 /13027-5261 *1
013030 2021 ISZ F1TMP /13030-2021 PQ
013031 1421 TAD I F1TMP /13031-1421 LQ
013032 7640 SZA CLA /13032-7640 >
013033 5222 JMP 3022 /13033-5222 *R
013034 1420 TAD I F1PNT /13034-1420 LP
013035 0372 AND 3172 /13035-0372 C:
013036 1371 TAD 3171 /13036-1371 K9
013037 7650 SNA CLA /13037-7650 >(
013040 5256 JMP 3056 /13040-5256 *.
013041 1420 TAD I F1PNT /13041-1420 LP
013042 0372 AND 3172 /13042-0372 C:
013043 1370 TAD 3170 /13043-1370 K8
013044 7650 SNA CLA /13044-7650 >(
013045 5256 JMP 3056 /13045-5256 *.
013046 1420 TAD I F1PNT /13046-1420 LP
013047 0372 AND 3172 /13047-0372 C:
013050 1367 TAD 3167 /13050-1367 K7
013051 7650 SNA CLA /13051-7650 >(
013052 5256 JMP 3056 /13052-5256 *.
013053 1420 TAD I F1PNT /13053-1420 LP
013054 4300 JMS 3100 /13054-4300 #@
013055 5271 JMP 3071 /13055-5271 *9
013056 1420 TAD I F1PNT /13056-1420 LP
013057 4300 JMS 3100 /13057-4300 #@
013060 5265 JMP 3065 /13060-5265 *5
013061 1420 TAD I F1PNT /13061-1420 LP
013062 0372 AND 3172 /13062-0372 C:
013063 1146 TAD FLD1 /13063-1146 I&
013064 4300 JMS 3100 /13064-4300 #@
013065 2020 ISZ F1PNT /13065-2020 PP
013066 2141 ISZ F1CNT /13066-2141 Q!
013067 5275 JMP 3075 /13067-5275 *=
013070 5600 JMP I 3000 /13070-5600 .@
013071 2020 ISZ F1PNT /13071-2020 PP
013072 2141 ISZ F1CNT /13072-2141 Q!
013073 5207 JMP 3007 /13073-5207 *G
013074 5600 JMP I 3000 /13074-5600 .@
013075 1420 TAD I F1PNT /13075-1420 LP
013076 4300 JMS 3100 /13076-4300 #@
013077 5271 JMP 3071 /13077-5271 *9
013100 0000 AND 0000 /13100-0000 @@
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-34
013101 6211 CDFX12, CDF 10 /13101-6211 2I
013102 3420 DCA I F1PNT /13102-3420 \P
013103 1420 TAD I F1PNT /13103-1420 LP
013104 6211 CDF 10 /13104-6211 2I
013105 7041 CMA IAC /13105-7041 8!
013106 1420 TAD I F1PNT /13106-1420 LP
013107 7450 SNA /13107-7450 <(
013110 5700 JMP I 3100 /13110-5700 /@
013111 1360 TAD 3160 /13111-1360 K0
013112 7650 SNA CLA /13112-7650 >(
013113 5700 JMP I 3100 /13113-5700 /@
013114 1366 TAD 3166 /13114-1366 K6
013115 3002 DCA PC1 /13115-3002 XB
013116 4465 JMS I RSW10 /13116-4465 $5
013117 0111 AND K100 /13117-0111 AI
013120 7640 SZA CLA /13120-7640 >
013121 5301 JMP 3101 /13121-5301 +A
013122 4470 JMS I HDFAIL /13122-4470 $8
013123 4453 JMS I MSG10 /13123-4453 $+
013124 7377 ULINE /13124-7377 ;?
013125 4454 JMS I MSG01 /13125-4454 $,
013126 7546 PC /13126-7546 =&
013127 1002 TAD PC1 /13127-1002 HB
013130 4462 JMS I DIGI10 /13130-4462 $2
013131 4453 JMS I MSG10 /13131-4453 $+
013132 7561 RELOCT /13132-7561 =1
013133 4453 JMS I MSG10 /13133-4453 $+
013134 7230 FAILUR /13134-7230 :X
013135 4453 JMS I MSG10 /13135-4453 $+
013136 7517 LOCS /13136-7517 =O
013137 1020 TAD 0020 /13137-1020 HP
013140 4462 JMS I DIGI10 /13140-4462 $2
013141 4463 JMS I LOOP10 /13141-4463 $3
013142 3101 DCA 0101 /13142-3101 YA
013143 5301 JMP 3101 /13143-5301 +A
013144 0000 AND 0000 /13144-0000 @@
013145 1365 TAD 3165 /13145-1365 K5
013146 3020 DCA F1PNT /13146-3020 XP
013147 1364 TAD 3164 /13147-1364 K4
013150 3141 DCA F1CNT /13150-3141 Y!
013151 1420 TAD I F1PNT /13151-1420 LP
013152 4300 JMS 3100 /13152-4300 #@
013153 2020 ISZ F1PNT /13153-2020 PP
013154 2141 ISZ F1CNT /13154-2141 Q!
013155 5351 JMP 3151 /13155-5351 +)
013156 4763 JMS I 3163 /13156-4763 '3
013157 5744 JMP I 3144 /13157-5744 /$
013160 0000 AND 0000 /13160-0000 @@
013161 1342 TAD 3142 /13161-1342 K"
013162 0005 AND 0005 /13162-0005 @E
013163 3300 DCA 3100 /13163-3300 [@
013164 7600 7600 /13164-7600 >@
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-35
013165 5200 JMP 3000 /13165-5200 *@
013166 3142 DCA 0142 /13166-3142 Y"
013167 7670 SNA SZL CLA /13167-7670 >8
013170 5000 JMP 0000 /13170-5000 (@
013171 7700 SMA CLA /13171-7700 ?@
013172 7770 SPA SNA SZL CLA /13172-7770 ?8
013173 7000 NOP /13173-7000 8@
013174 0600 AND I 3000 /13174-0600 F@
013175 2341 ISZ 3141 /13175-2341 S!
013176 7101 CLL IAC /13176-7101 9A
013177 3600 DCA I 3000 /13177-3600 ^@
3200 PAGE
013200 0000 REL1, AND 0000 /13200-0000 @@
013201 7300 CLA CLL /13201-7300 ;@
013202 1252 TAD FLGREL /13202-1252 J*
013203 7640 SZA CLA /13203-7640 >
013204 5600 JMP I 3200 /13204-5600 .@
013205 1777 TAD I 3377 /13205-1777 O?
013206 3144 DCA 0144 /13206-3144 Y$
013207 2146 ISZ FLD1 /13207-2146 Q&
013210 1146 TAD FLD1 /13210-1146 I&
013211 0102 AND K7 /13211-0102 AB
013212 7650 SNA CLA /13212-7650 >(
013213 5600 JMP I 3200 /13213-5600 .@
013214 1146 TAD FLD1 /13214-1146 I&
013215 1376 TAD 3376 /13215-1376 K>
013216 7650 SNA CLA /13216-7650 >(
013217 4271 JMS 3271 /13217-4271 "9
013220 1146 TAD FLD1 /13220-1146 I&
013221 7106 CLL RTL /13221-7106 9F
013222 7004 RAL /13222-7004 8D
013223 3147 DCA FLD10 /13223-3147 Y'
013224 1147 TAD FLD10 /13224-1147 I'
013225 1272 TAD 3272 /13225-1272 J:
013226 3256 DCA 3256 /13226-3256 Z.
013227 3267 DCA 3267 /13227-3267 Z7
013230 7340 CLA CLL CMA /13230-7340 ;
013231 4253 JMS 3253 /13231-4253 "+
013232 4253 JMS 3253 /13232-4253 "+
013233 7340 CLA CLL CMA /13233-7340 ;
013234 3267 DCA 3267 /13234-3267 Z7
013235 7340 CLA CLL CMA /13235-7340 ;
013236 4253 JMS 3253 /13236-4253 "+
013237 4253 JMS 3253 /13237-4253 "+
013240 4775 JMS I 3375 /13240-4775 '=
013241 4774 JMS I 3374 /13241-4774 '<
013242 4773 JMS I 3373 /13242-4773 ';
013243 1146 TAD FLD1 /13243-1146 I&
013244 1147 TAD FLD10 /13244-1147 I'
013245 7002 BSW /13245-7002 8B
013246 1146 TAD FLD1 /13246-1146 I&
013247 1147 TAD FLD10 /13247-1147 I'
013250 3150 DCA ALL10 /13250-3150 Y(
013251 5772 JMP I 3372 /13251-5772 /:
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-36
013252 0000 FLGREL, AND 0000 /13252-0000 @@
013253 0000 AND 0000 /13253-0000 @@
013254 3270 DCA 3270 /13254-3270 Z8
013255 1270 TAD 3270 /13255-1270 J8
013256 6211 CDF 10 /13256-6211 2I
013257 3667 DCA I 3267 /13257-3667 ^7
013260 1667 TAD I 3267 /13260-1667 N7
013261 6211 CDF 10 /13261-6211 2I
013262 7041 CMA IAC /13262-7041 8!
013263 1270 TAD 3270 /13263-1270 J8
013264 7640 SZA CLA /13264-7640 >
013265 5201 JMP 3201 /13265-5201 *A
013266 5653 JMP I 3253 /13266-5653 .+
013267 0000 AND 0000 /13267-0000 @@
013270 0000 AND 0000 /13270-0000 @@
013271 0000 AND 0000 /13271-0000 @@
013272 6201 CDF 0 /13272-6201 2A
013273 1505 TAD I MOD1X8 /13273-1505 ME
013274 6211 CDF 10 /13274-6211 2I
013275 7710 SPA CLA /13275-7710 ?H
013276 5600 JMP I 3200 /13276-5600 .@
013277 5671 JMP I 3271 /13277-5671 .9
013300 0000 AND 0000 /13300-0000 @@
013301 6211 CDFX13, CDF 10 /13301-6211 2I
013302 1146 TAD FLD1 /13302-1146 I&
013303 3714 DCA I 3314 /13303-3714 _L
013304 1146 TAD FLD1 /13304-1146 I&
013305 3715 DCA I 3315 /13305-3715 _M
013306 1146 TAD FLD1 /13306-1146 I&
013307 3716 DCA I 3316 /13307-3716 _N
013310 1146 TAD FLD1 /13310-1146 I&
013311 3717 DCA I 3317 /13311-3717 _O
013312 6211 CDF 10 /13312-6211 2I
013313 5700 JMP I 3300 /13313-5700 /@
013314 5204 JMP 3204 /13314-5204 *D
013315 5207 JMP 3207 /13315-5207 *G
013316 5212 JMP 3212 /13316-5212 *J
013317 5215 JMP 3215 /13317-5215 *M
013320 0000 AND 0000 /13320-0000 @@
013321 1371 TAD 3371 /13321-1371 K9
013322 3020 DCA F1PNT /13322-3020 XP
013323 1370 TAD 3370 /13323-1370 K8
013324 3141 DCA F1CNT /13324-3141 Y!
013325 6201 CDF 0 /13325-6201 2A
013326 1420 TAD I F1PNT /13326-1420 LP
013327 6211 CDF 10 /13327-6211 2I
013330 3420 DCA I F1PNT /13330-3420 \P
013331 2020 ISZ F1PNT /13331-2020 PP
013332 2141 ISZ F1CNT /13332-2141 Q!
013333 5325 JMP 3325 /13333-5325 +U
013334 1367 TAD 3367 /13334-1367 K7
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-37
013335 3020 DCA F1PNT /13335-3020 XP
013336 1420 TAD I F1PNT /13336-1420 LP
013337 7640 SZA CLA /13337-7640 >
013340 5343 JMP 3343 /13340-5343 +#
013341 6203 CIF CDF 0 /13341-6203 2C
013342 5720 JMP I 3320 /13342-5720 /P
013343 1420 TAD I F1PNT /13343-1420 LP
013344 3351 DCA 3351 /13344-3351 [)
013345 7001 IAC /13345-7001 8A
013346 3751 DCA I 3351 /13346-3751 _)
013347 2020 ISZ F1PNT /13347-2020 PP
013350 5336 JMP 3336 /13350-5336 +^
013351 0000 AND 0000 /13351-0000 @@
013352 0000 X8JMP, AND 0000 /13352-0000 @@
013353 6201 CDF 0 /13353-6201 2A
013354 1505 TAD I MOD1X8 /13354-1505 ME
013355 6211 CDF 10 /13355-6211 2I
013356 7700 SMA CLA /13356-7700 ?@
013357 5752 JMP I X8JMP /13357-5752 /*
013360 6002 IOF /13360-6002 0B
013361 1002 TAD PC1 /13361-1002 HB
013362 6211 CDF 10 /13362-6211 2I
013363 6272 CIF 70 /13363-6272 2:
013364 5765 JMP I .+1 /13364-5765 /5
013365 6520 6520 /13365-6520 5P
013366 0006 AND 0006 /13366-0006 @F
013367 2345 ISZ 3345 /13367-2345 S%
013370 7200 CLA /13370-7200 :@
013371 6000 SKON /13371-6000 0@
013372 0230 AND 3230 /13372-0230 BX
013373 3144 DCA 0144 /13373-3144 Y$
013374 3000 DCA 0000 /13374-3000 X@
013375 1100 TAD 0100 /13375-1100 I@
013376 7771 MQA MQL CLA DPSZ /13376-7771 ?9
013377 0303 AND 3303 /13377-0303 CC
3400 PAGE
013400 0000 AND 0000 /13400-0000 @@
013401 2151 ISZ 0151 /13401-2151 Q)
013402 4473 JMS I 0073 /13402-4473 $;
013403 1001 TAD 0001 /13403-1001 HA
013404 4474 JMS I FPGO0 /13404-4474 $<
013405 1552 TAD I 0152 /13405-1552 M*
013406 4472 JMS I 0072 /13406-4472 $:
013407 3404 DCA I 0004 /13407-3404 \D
013410 4777 JMS I 3577 /13410-4777 '?
013411 5216 JMP 3416 /13411-5216 *N
013412 4474 JMS I FPGO0 /13412-4474 $<
013413 1554 TAD I 0154 /13413-1554 M,
013414 4472 JMS I 0072 /13414-4472 $:
013415 3412 DCA I 0012 /13415-3412 \J
013416 4776 JMS I 3576 /13416-4776 '>
013417 0000 AND 0000 /13417-0000 @@
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-38
013420 4473 JMS I 0073 /13420-4473 $;
013421 1041 TAD 0041 /13421-1041 H!
013422 4474 JMS I FPGO0 /13422-4474 $<
013423 1554 TAD I 0154 /13423-1554 M,
013424 4472 JMS I 0072 /13424-4472 $:
013425 3422 DCA I 0022 /13425-3422 \R
013426 4777 JMS I 3577 /13426-4777 '?
013427 5234 JMP 3434 /13427-5234 *\
013430 4474 JMS I FPGO0 /13430-4474 $<
013431 1552 TAD I 0152 /13431-1552 M*
013432 4472 JMS I 0072 /13432-4472 $:
013433 3430 DCA I 0030 /13433-3430 \X
013434 4776 JMS I 3576 /13434-4776 '>
013435 0000 AND 0000 /13435-0000 @@
013436 4473 JMS I 0073 /13436-4473 $;
013437 1031 TAD 0031 /13437-1031 HY
013440 4474 JMS I FPGO0 /13440-4474 $<
013441 1552 TAD I 0152 /13441-1552 M*
013442 4472 JMS I 0072 /13442-4472 $:
013443 3440 DCA I 0040 /13443-3440 \
013444 4777 JMS I 3577 /13444-4777 '?
013445 4473 JMS I 0073 /13445-4473 $;
013446 1011 TAD 0011 /13446-1011 HI
013447 4474 JMS I FPGO0 /13447-4474 $<
013450 1552 TAD I 0152 /13450-1552 M*
013451 4472 JMS I 0072 /13451-4472 $:
013452 3447 DCA I 0047 /13452-3447 \'
013453 4776 JMS I 3576 /13453-4776 '>
013454 0000 AND 0000 /13454-0000 @@
013455 5262 JMP 3462 /13455-5262 *2
013456 4474 JMS I FPGO0 /13456-4474 $<
013457 1554 TAD I 0154 /13457-1554 M,
013460 4472 JMS I 0072 /13460-4472 $:
013461 3456 DCA I 0056 /13461-3456 \.
013462 4776 JMS I 3576 /13462-4776 '>
013463 4000 JMS 0000 /13463-4000 @
013464 4473 JMS I 0073 /13464-4473 $;
013465 1021 TAD 0021 /13465-1021 HQ
013466 4474 JMS I FPGO0 /13466-4474 $<
013467 1552 TAD I 0152 /13467-1552 M*
013470 4472 JMS I 0072 /13470-4472 $:
013471 3466 DCA I 0066 /13471-3466 \6
013472 4776 JMS I 3576 /13472-4776 '>
013473 4000 JMS 0000 /13473-4000 @
013474 5301 JMP 3501 /13474-5301 +A
013475 4474 JMS I FPGO0 /13475-4474 $<
013476 1554 TAD I 0154 /13476-1554 M,
013477 4472 JMS I 0072 /13477-4472 $:
013500 3475 DCA I 0075 /13500-3475 \=
013501 4776 JMS I 3576 /13501-4776 '>
013502 0000 AND 0000 /13502-0000 @@
013503 4473 JMS I 0073 /13503-4473 $;
013504 1051 TAD 0051 /13504-1051 H)
013505 4474 JMS I FPGO0 /13505-4474 $<
013506 1554 TAD I 0154 /13506-1554 M,
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-39
013507 4472 JMS I 0072 /13507-4472 $:
013510 3505 DCA I 0105 /13510-3505 ]E
013511 4776 JMS I 3576 /13511-4776 '>
013512 0000 AND 0000 /13512-0000 @@
013513 5320 JMP 3520 /13513-5320 +P
013514 4474 JMS I FPGO0 /13514-4474 $<
013515 1552 TAD I 0152 /13515-1552 M*
013516 4472 JMS I 0072 /13516-4472 $:
013517 3514 DCA I 0114 /13517-3514 ]L
013520 4776 JMS I 3576 /13520-4776 '>
013521 4000 JMS 0000 /13521-4000 @
013522 4473 JMS I 0073 /13522-4473 $;
013523 1061 TAD 0061 /13523-1061 H1
013524 4474 JMS I FPGO0 /13524-4474 $<
013525 1554 TAD I 0154 /13525-1554 M,
013526 4472 JMS I 0072 /13526-4472 $:
013527 3524 DCA I 0124 /13527-3524 ]T
013530 4776 JMS I 3576 /13530-4776 '>
013531 4000 JMS 0000 /13531-4000 @
013532 5337 JMP 3537 /13532-5337 +_
013533 4474 JMS I FPGO0 /13533-4474 $<
013534 1552 TAD I 0152 /13534-1552 M*
013535 4472 JMS I 0072 /13535-4472 $:
013536 3533 DCA I 0133 /13536-3533 ][
013537 4776 JMS I 3576 /13537-4776 '>
013540 0000 AND 0000 /13540-0000 @@
013541 4473 JMS I 0073 /13541-4473 $;
013542 1071 TAD 0071 /13542-1071 H9
013543 1106 TAD 0106 /13543-1106 IF
013544 3031 DCA 0031 /13544-3031 XY
013545 4474 JMS I FPGO0 /13545-4474 $<
013546 1554 TAD I 0154 /13546-1554 M,
013547 4472 JMS I 0072 /13547-4472 $:
013550 3545 DCA I 0145 /13550-3545 ]%
013551 1107 TAD 0107 /13551-1107 IG
013552 3031 DCA 0031 /13552-3031 XY
013553 4474 JMS I FPGO0 /13553-4474 $<
013554 1552 TAD I 0152 /13554-1552 M*
013555 4472 JMS I 0072 /13555-4472 $:
013556 3553 DCA I 0153 /13556-3553 ]+
013557 4473 JMS I 0073 /13557-4473 $;
013560 0007 AND 0007 /13560-0007 @G
013561 1775 TAD I 3575 /13561-1775 O=
013562 3033 DCA FLS10 /13562-3033 X[
013563 1076 TAD 0076 /13563-1076 H>
013564 3032 DCA FMS10 /13564-3032 XZ
013565 4474 JMS I FPGO0 /13565-4474 $<
013566 1552 TAD I 0152 /13566-1552 M*
013567 4472 JMS I 0072 /13567-4472 $:
013570 3565 DCA I 0165 /13570-3565 ]5
013571 5774 JMP I 3574 /13571-5774 /<
013572 6203 CIF CDF 0 /13572-6203 2C
013573 5600 JMP I 3400 /13573-5600 .@
013574 5100 JMP 0100 /13574-5100 )@
013575 1552 TAD I 0152 /13575-1552 M*
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-40
013576 6635 6635 /13576-6635 6]
013577 6710 6710 /13577-6710 7H
3600 PAGE
013600 1131 CODE,1131 /JSR 1 /13600-1131 IY TEST 1
013601 4553 4553 / S01456 /13601-4553 %+
013602 1131 1131 /JSR 1 /13602-1131 IY
013603 4615 4615 / SETEFM /13603-4615 &M
013604 0511 0511 /FLDA L X1+ 1 /13604-0511 EI
013605 5400 5400 / 5400 /13605-5400 ,@
013606 6531 6531 /FSTA L X3+ 1 /13606-6531 5Y
013607 6100 6100 / 6100 /13607-6100 1@
013610 1131 1131 /JSR 1 /13610-1131 IY
013611 4646 4646 / TRNBUF /13611-4646 &&
013612 2101 2101 /JNX X0+ 1 /13612-2101 QA
013613 3602 3602 / 3602 /13613-3602 ^B
013614 0006 0006 /STARTD /13614-0006 @F
013615 0210 0210 /FLDA BASE+030 /13615-0210 BH
013616 1041 1041 /JNE 1 /13616-1041 H!
013617 3600 3600 / 3600 /13617-3600 ^@
013620 3000 3000 /TRAP3 0 /13620-3000 X@
013621 3622 3622 / 3622 /13621-3622 ^R
013622 1131 1131 /JSR 1 /13622-1131 IY TEST 2
013623 4760 4760 / SETDM /13623-4760 '0
013624 1121 1121 /JSA 1 /13624-1121 IQ
013625 4631 4631 / S72321 /13625-4631 &Y
013626 0511 0511 /FLDA L X1+ 1 /13626-0511 EI
013627 5400 5400 / 5400 /13627-5400 ,@
013630 6531 6531 /FSTA L X3+ 1 /13630-6531 5Y
013631 6100 6100 / 6100 /13631-6100 1@
013632 1131 1131 /JSR 1 /13632-1131 IY
013633 5007 5007 / 5007 /13633-5007 (G
013634 2101 2101 /JNX X0+ 1 /13634-2101 QA
013635 3624 3624 / 3624 /13635-3624 ^T
013636 0210 0210 /FLDA BASE+030 /13636-0210 BH
013637 1041 1041 /JNE 1 /13637-1041 H!
013640 3622 3622 / 3622 /13640-3622 ^R
013641 3000 3000 /TRAP3 0 /13641-3000 X@
013642 3643 3643 / 3643 /13642-3643 ^#
013643 1131 1131 /JSR 1 /13643-1131 IY TEST 3
013644 4553 4553 / S01456 /13644-4553 %+
013645 1131 1131 /JSR 1 /13645-1131 IY
013646 4615 4615 / SETEFM /13646-4615 &M
013647 0511 0511 /FLDA L X1+ 1 /13647-0511 EI
013650 5400 5400 / 5400 /13650-5400 ,@
013651 0004 0004 /FNORM /13651-0004 @D
013652 6411 6411 /FSTA L X1 1 /13652-6411 4I
013653 5400 5400 / 5400 /13653-5400 ,@
013654 2101 2101 /JNX X0+ 1 /13654-2101 QA
013655 3645 3645 / 3645 /13655-3645 ^%
013656 1131 1131 /JSR 1 /13656-1131 IY
013657 4553 4553 / S01456 /13657-4553 %+
013660 1131 1131 /JSR 1 /13660-1131 IY
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-41
013661 4615 4615 / SETEFM /13661-4615 &M
013662 0511 0511 /FLDA L X1+ 1 /13662-0511 EI
013663 5400 5400 / 5400 /13663-5400 ,@
013664 1411 1411 /FADD L X1 1 /13664-1411 LI
013665 5400 5400 / 5400 /13665-5400 ,@
013666 6222 6222 /FSTA BASE+066 /13666-6222 2R
013667 2411 2411 /FSUB L X1 1 /13667-2411 TI
013670 5400 5400 / 5400 /13670-5400 ,@
013671 6531 6531 /FSTA L X3+ 1 /13671-6531 5Y
013672 6100 6100 / 6100 /13672-6100 1@
013673 1131 1131 /JSR 1 /13673-1131 IY
013674 4765 4765 / 4765 /13674-4765 '5
013675 2101 2101 /JNX X0+ 1 /13675-2101 QA
013676 3660 3660 / 3660 /13676-3660 ^0
013677 0006 0006 /STARTD /13677-0006 @F
013700 0210 0210 /FLDA BASE+030 /13700-0210 BH
013701 1041 1041 /JNE 1 /13701-1041 H!
013702 3643 3643 / 3643 /13702-3643 ^#
013703 3000 3000 /TRAP3 0 /13703-3000 X@
013704 3705 3705 / 3705 /13704-3705 _E
013705 1131 1131 /JSR 1 /13705-1131 IY TEST 4
013706 4760 4760 / SETDM /13706-4760 '0
013707 1121 1121 /JSA 1 /13707-1121 IQ
013710 4631 4631 / S72321 /13710-4631 &Y
013711 0511 0511 /FLDA L X1+ 1 /13711-0511 EI
013712 5400 5400 / 5400 /13712-5400 ,@
013713 1411 1411 /FADD L X1 1 /13713-1411 LI
013714 5400 5400 / 5400 /13714-5400 ,@
013715 6222 6222 /FSTA BASE+066 /13715-6222 2R
013716 2411 2411 /FSUB L X1 1 /13716-2411 TI
013717 5400 5400 / 5400 /13717-5400 ,@
013720 6531 6531 /FSTA L X3+ 1 /13720-6531 5Y
013721 6100 6100 / 6100 /13721-6100 1@
013722 1131 1131 /JSR 1 /13722-1131 IY
013723 5007 5007 / 5007 /13723-5007 (G
013724 2101 2101 /JNX X0+ 1 /13724-2101 QA
013725 3707 3707 / 3707 /13725-3707 _G
013726 0210 0210 /FLDA BASE+030 /13726-0210 BH
013727 1041 1041 /JNE 1 /13727-1041 H!
013730 3705 3705 / 3705 /13730-3705 _E
013731 3000 3000 /TRAP3 0 /13731-3000 X@
013732 3733 3733 / 3733 /13732-3733 _[
013733 1131 1131 /JSR 1 /13733-1131 IY TEST 5
013734 4553 4553 / S01456 /13734-4553 %+
013735 1131 1131 /JSR 1 /13735-1131 IY
013736 4615 4615 / SETEFM /13736-4615 &M
013737 0511 0511 /FLDA L X1+ 1 /13737-0511 EI
013740 5400 5400 / 5400 /13740-5400 ,@
013741 0004 0004 /FNORM /13741-0004 @D
013742 6411 6411 /FSTA L X1 1 /13742-6411 4I
013743 5400 5400 / 5400 /13743-5400 ,@
013744 4411 4411 /FMUL L X1 1 /13744-4411 $I
013745 5400 5400 / 5400 /13745-5400 ,@
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-42
013746 6222 6222 /FSTA BASE+066 /13746-6222 2R
013747 3411 3411 /FDIV L X1 1 /13747-3411 \I
013750 5400 5400 / 5400 /13750-5400 ,@
013751 6531 6531 /FSTA L X3+ 1 /13751-6531 5Y
013752 6100 6100 / 6100 /13752-6100 1@
013753 1131 1131 /JSR 1 /13753-1131 IY
013754 4676 4676 / 4676 /13754-4676 &>
013755 2101 2101 /JNX X0+ 1 /13755-2101 QA
013756 3735 3735 / 3735 /13756-3735 _]
013757 0006 0006 /STARTD /13757-0006 @F
013760 0210 0210 /FLDA BASE+030 /13760-0210 BH
013761 1041 1041 /JNE 1 /13761-1041 H!
013762 3733 3733 / 3733 /13762-3733 _[
013763 3000 3000 /TRAP3 0 /13763-3000 X@
013764 3765 3765 / 3765 /13764-3765 _5
013765 1131 1131 /JSR 1 /13765-1131 IY TEST 6
013766 4760 4760 / SETDM /13766-4760 '0
013767 0104 0104 /LDX X4 /13767-0104 AD
013770 0014 0014 / 0014 /13770-0014 @L
013771 0105 0105 /LDX X5 /13771-0105 AE
013772 7764 7764 / 7764 /13772-7764 ?4
013773 1121 1121 /JSA 1 /13773-1121 IQ
013774 4631 4631 / S72321 /13774-4631 &Y
013775 0511 0511 /FLDA L X1+ 1 /13775-0511 EI
013776 5400 5400 / 5400 /13776-5400 ,@
013777 0014 0014 /ALN 4 /13777-0014 @L
014000 0015 0015 /ALN 5 /14000-0015 @M
014001 6411 6411 /FSTA L X1 1 /14001-6411 4I
014002 5400 5400 / 5400 /14002-5400 ,@
014003 4411 4411 /FMUL L X1 1 /14003-4411 $I
014004 5400 5400 / 5400 /14004-5400 ,@
014005 6222 6222 /FSTA BASE+066 /14005-6222 2R
014006 3411 3411 /FDIV L X1 1 /14006-3411 \I
014007 5400 5400 / 5400 /14007-5400 ,@
014010 6531 6531 /FSTA L X3+ 1 /14010-6531 5Y
014011 6100 6100 / 6100 /14011-6100 1@
014012 1131 1131 /JSR 1 /14012-1131 IY
014013 5007 5007 / 5007 /14013-5007 (G
014014 2101 2101 /JNX X0+ 1 /14014-2101 QA
014015 3773 3773 / 3773 /14015-3773 _;
014016 0210 0210 /FLDA BASE+030 /14016-0210 BH
014017 1041 1041 /JNE 1 /14017-1041 H!
014020 3765 3765 / 3765 /14020-3765 _5
014021 3000 3000 /TRAP3 0 /14021-3000 X@
014022 4023 4023 / 4023 /14022-4023 S
014023 1131 1131 /JSR 1 /14023-1131 IY TEST 7
014024 4553 4553 / S01456 /14024-4553 %+
014025 1131 1131 /JSR 1 /14025-1131 IY
014026 4615 4615 / SETEFM /14026-4615 &M
014027 0511 0511 /FLDA L X1+ 1 /14027-0511 EI
014030 5376 5376 / 5376 /14030-5376 +>
014031 0006 0006 /STARTD /14031-0006 @F
014032 0024 0024 /ATX 4 /14032-0024 @T
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-43
014033 1131 1131 /JSR 1 /14033-1131 IY
014034 4625 4625 / 4625 /14034-4625 &U
014035 0411 0411 /FLDA L X1 1 /14035-0411 DI
014036 5400 5400 / 5400 /14036-5400 ,@
014037 0004 0004 /FNORM /14037-0004 @D
014040 0014 0014 /ALN 4 /14040-0014 @L
014041 0004 0004 /FNORM /14041-0004 @D
014042 0014 0014 /ALN 4 /14042-0014 @L
014043 0004 0004 /FNORM /14043-0004 @D
014044 0014 0014 /ALN 4 /14044-0014 @L
014045 0004 0004 /FNORM /14045-0004 @D
014046 0014 0014 /ALN 4 /14046-0014 @L
014047 0004 0004 /FNORM /14047-0004 @D
014050 0014 0014 /ALN 4 /14050-0014 @L
014051 6531 6531 /FSTA L X3+ 1 /14051-6531 5Y
014052 6100 6100 / 6100 /14052-6100 1@
014053 1131 1131 /JSR 1 /14053-1131 IY
014054 4646 4646 / TRNBUF /14054-4646 &&
014055 2101 2101 /JNX X0+ 1 /14055-2101 QA
014056 4025 4025 / 4025 /14056-4025 U
014057 0006 0006 /STARTD /14057-0006 @F
014060 0210 0210 /FLDA BASE+030 /14060-0210 BH
014061 1041 1041 /JNE 1 /14061-1041 H!
014062 4023 4023 / 4023 /14062-4023 S
014063 3000 3000 /TRAP3 0 /14063-3000 X@
014064 4065 4065 / 4065 /14064-4065 5
014065 1131 1131 /JSR 1 /14065-1131 IY TEST 10
014066 4760 4760 / SETDM /14066-4760 '0
014067 0401 0401 /FLDA L X0 1 /14067-0401 DA
014070 5400 5400 / 5400 /14070-5400 ,@
014071 3002 3002 /TRAP3 2 /14071-3002 XB
014072 0000 0000 / 0000 /14072-0000 @@
014073 1121 1121 /JSA 1 /14073-1121 IQ
014074 4631 4631 / S72321 /14074-4631 &Y
014075 0713 0713 /FLDA % BASE+11X1+ /14075-0713 GK
014076 0014 0014 /ALN 4 /14076-0014 @L
014077 0015 0015 /ALN 5 /14077-0015 @M
014100 0014 0014 /ALN 4 /14100-0014 @L
014101 0015 0015 /ALN 5 /14101-0015 @M
014102 0014 0014 /ALN 4 /14102-0014 @L
014103 0015 0015 /ALN 5 /14103-0015 @M
014104 0014 0014 /ALN 4 /14104-0014 @L
014105 0015 0015 /ALN 5 /14105-0015 @M
014106 0014 0014 /ALN 4 /14106-0014 @L
014107 0015 0015 /ALN 5 /14107-0015 @M
014110 6734 6734 /FSTA % BASE+14X3+ /14110-6734 7\
014111 0613 0613 /FLDA % BASE+11X1 /14111-0613 FK
014112 3003 3003 /TRAP3 3 /14112-3003 XC
014113 0000 0000 / 0000 /14113-0000 @@
014114 1131 1131 /JSR 1 /14114-1131 IY
014115 5011 5011 / 5011 /14115-5011 (I
014116 2101 2101 /JNX X0+ 1 /14116-2101 QA
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-44
014117 4073 4073 / 4073 /14117-4073 ;
014120 0210 0210 /FLDA BASE+030 /14120-0210 BH
014121 1041 1041 /JNE 1 /14121-1041 H!
014122 4065 4065 / 4065 /14122-4065 5
014123 3000 3000 /TRAP3 0 /14123-3000 X@
014124 4125 4125 / 4125 /14124-4125 !U
014125 1131 1131 /JSR 1 /14125-1131 IY TEST 11
014126 4553 4553 / S01456 /14126-4553 %+
014127 1131 1131 /JSR 1 /14127-1131 IY
014130 4615 4615 / SETEFM /14130-4615 &M
014131 0511 0511 /FLDA L X1+ 1 /14131-0511 EI
014132 5400 5400 / 5400 /14132-5400 ,@
014133 0004 0004 /FNORM /14133-0004 @D
014134 6411 6411 /FSTA L X1 1 /14134-6411 4I
014135 5400 5400 / 5400 /14135-5400 ,@
014136 2101 2101 /JNX X0+ 1 /14136-2101 QA
014137 4127 4127 / 4127 /14137-4127 !W
014140 1131 1131 /JSR 1 /14140-1131 IY
014141 4553 4553 / S01456 /14141-4553 %+
014142 1131 1131 /JSR 1 /14142-1131 IY
014143 4615 4615 / SETEFM /14143-4615 &M
014144 0711 0711 /FLDA % BASE+03X1+ /14144-0711 GI
014145 6732 6732 /FSTA % BASE+06X3+ /14145-6732 7Z
014146 5632 5632 /FADDM% BASE+06X3 /14146-5632 .Z
014147 0632 0632 /FLDA % BASE+06X3 /14147-0632 FZ
014150 6222 6222 /FSTA BASE+066 /14150-6222 2R
014151 0002 0002 /FCLA /14151-0002 @B
014152 6632 6632 /FSTA % BASE+06X3 /14152-6632 6Z
014153 0222 0222 /FLDA BASE+066 /14153-0222 BR
014154 2611 2611 /FSUB % BASE+03X1 /14154-2611 VI
014155 6632 6632 /FSTA % BASE+06X3 /14155-6632 6Z
014156 1131 1131 /JSR 1 /14156-1131 IY
014157 4765 4765 / 4765 /14157-4765 '5
014160 2101 2101 /JNX X0+ 1 /14160-2101 QA
014161 4142 4142 / 4142 /14161-4142 !"
014162 0006 0006 /STARTD /14162-0006 @F
014163 0210 0210 /FLDA BASE+030 /14163-0210 BH
014164 1041 1041 /JNE 1 /14164-1041 H!
014165 4125 4125 / 4125 /14165-4125 !U
014166 3000 3000 /TRAP3 0 /14166-3000 X@
014167 4170 4170 / 4170 /14167-4170 !8
014170 1131 1131 /JSR 1 /14170-1131 IY TEST 12
014171 5002 5002 / SETDM2 /14171-5002 (B
014172 1121 1121 /JSA 1 /14172-1121 IQ
014173 4631 4631 / S72321 /14173-4631 &Y
014174 0713 0713 /FLDA % BASE+11X1+ /14174-0713 GK
014175 6734 6734 /FSTA % BASE+14X3+ /14175-6734 7\
014176 5634 5634 /FADDM% BASE+14X3 /14176-5634 .\
014177 0634 0634 /FLDA % BASE+14X3 /14177-0634 F\
014200 6222 6222 /FSTA BASE+066 /14200-6222 2R
014201 2613 2613 /FSUB % BASE+11X1 /14201-2613 VK
014202 6634 6634 /FSTA % BASE+14X3 /14202-6634 6\
014203 1131 1131 /JSR 1 /14203-1131 IY
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-45
014204 5007 5007 / 5007 /14204-5007 (G
014205 2101 2101 /JNX X0+ 1 /14205-2101 QA
014206 4172 4172 / 4172 /14206-4172 !:
014207 0210 0210 /FLDA BASE+030 /14207-0210 BH
014210 1041 1041 /JNE 1 /14210-1041 H!
014211 4170 4170 / 4170 /14211-4170 !8
014212 3000 3000 /TRAP3 0 /14212-3000 X@
014213 4214 4214 / 4214 /14213-4214 "L
014214 1131 1131 /JSR 1 /14214-1131 IY TEST 13
014215 4553 4553 / S01456 /14215-4553 %+
014216 1131 1131 /JSR 1 /14216-1131 IY
014217 4615 4615 / SETEFM /14217-4615 &M
014220 0711 0711 /FLDA % BASE+03X1+ /14220-0711 GI
014221 0004 0004 /FNORM /14221-0004 @D
014222 6611 6611 /FSTA % BASE+03X1 /14222-6611 6I
014223 6732 6732 /FSTA % BASE+06X3+ /14223-6732 7Z
014224 7632 7632 /FMULM% BASE+06X3 /14224-7632 >Z
014225 0632 0632 /FLDA % BASE+06X3 /14225-0632 FZ
014226 6222 6222 /FSTA BASE+066 /14226-6222 2R
014227 0002 0002 /FCLA /14227-0002 @B
014230 6632 6632 /FSTA % BASE+06X3 /14230-6632 6Z
014231 0222 0222 /FLDA BASE+066 /14231-0222 BR
014232 3611 3611 /FDIV % BASE+03X1 /14232-3611 ^I
014233 6632 6632 /FSTA % BASE+06X3 /14233-6632 6Z
014234 1131 1131 /JSR 1 /14234-1131 IY
014235 4676 4676 / 4676 /14235-4676 &>
014236 2101 2101 /JNX X0+ 1 /14236-2101 QA
014237 4216 4216 / 4216 /14237-4216 "N
014240 0006 0006 /STARTD /14240-0006 @F
014241 0210 0210 /FLDA BASE+030 /14241-0210 BH
014242 1041 1041 /JNE 1 /14242-1041 H!
014243 4214 4214 / 4214 /14243-4214 "L
014244 3000 3000 /TRAP3 0 /14244-3000 X@
014245 4246 4246 / 4246 /14245-4246 "&
014246 1131 1131 /JSR 1 /14246-1131 IY TEST 14
014247 5002 5002 / SETDM2 /14247-5002 (B
014250 0104 0104 /LDX X4 /14250-0104 AD
014251 0014 0014 / 0014 /14251-0014 @L
014252 0105 0105 /LDX X5 /14252-0105 AE
014253 7764 7764 / 7764 /14253-7764 ?4
014254 1121 1121 /JSA 1 /14254-1121 IQ
014255 4631 4631 / S72321 /14255-4631 &Y
014256 0713 0713 /FLDA % BASE+11X1+ /14256-0713 GK
014257 0014 0014 /ALN 4 /14257-0014 @L
014260 0015 0015 /ALN 5 /14260-0015 @M
014261 6613 6613 /FSTA % BASE+11X1 /14261-6613 6K
014262 6212 6212 /FSTA BASE+036 /14262-6212 2J
014263 6734 6734 /FSTA % BASE+14X3+ /14263-6734 7\
014264 7634 7634 /FMULM% BASE+14X3 /14264-7634 >\
014265 0634 0634 /FLDA % BASE+14X3 /14265-0634 F\
014266 6222 6222 /FSTA BASE+066 /14266-6222 2R
014267 3613 3613 /FDIV % BASE+11X1 /14267-3613 ^K
014270 6634 6634 /FSTA % BASE+14X3 /14270-6634 6\
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-46
014271 1131 1131 /JSR 1 /14271-1131 IY
014272 5007 5007 / 5007 /14272-5007 (G
014273 2101 2101 /JNX X0+ 1 /14273-2101 QA
014274 4254 4254 / 4254 /14274-4254 ",
014275 0210 0210 /FLDA BASE+030 /14275-0210 BH
014276 1041 1041 /JNE 1 /14276-1041 H!
014277 4246 4246 / 4246 /14277-4246 "&
014300 3000 3000 /TRAP3 0 /14300-3000 X@
014301 4302 4302 / 4302 /14301-4302 #B
014302 1131 1131 /JSR 1 /14302-1131 IY TEST 15
014303 4553 4553 / S01456 /14303-4553 %+
014304 1131 1131 /JSR 1 /14304-1131 IY
014305 4615 4615 / SETEFM /14305-4615 &M
014306 0511 0511 /FLDA L X1+ 1 /14306-0511 EI
014307 5400 5400 / 5400 /14307-5400 ,@
014310 0004 0004 /FNORM /14310-0004 @D
014311 6411 6411 /FSTA L X1 1 /14311-6411 4I
014312 5400 5400 / 5400 /14312-5400 ,@
014313 2101 2101 /JNX X0+ 1 /14313-2101 QA
014314 4304 4304 / 4304 /14314-4304 #D
014315 1131 1131 /JSR 1 /14315-1131 IY
014316 4600 4600 / 4600 /14316-4600 &@
014317 3004 3004 /TRAP3 4 /14317-3004 XD
014320 0000 0000 / 0000 /14320-0000 @@
014321 1131 1131 /JSR 1 /14321-1131 IY
014322 4615 4615 / SETEFM /14322-4615 &M
014323 0511 0511 /FLDA L X1+ 1 /14323-0511 EI
014324 5400 5400 / 5400 /14324-5400 ,@
014325 1521 1521 /FADD L X2+ 1 /14325-1521 MQ
014326 5400 5400 / 5400 /14326-5400 ,@
014327 2421 2421 /FSUB L X2 1 /14327-2421 TQ
014330 5400 5400 / 5400 /14330-5400 ,@
014331 6531 6531 /FSTA L X3+ 1 /14331-6531 5Y
014332 6100 6100 / 6100 /14332-6100 1@
014333 1131 1131 /JSR 1 /14333-1131 IY
014334 4765 4765 / 4765 /14334-4765 '5
014335 2101 2101 /JNX X0+ 1 /14335-2101 QA
014336 4321 4321 / 4321 /14336-4321 #Q
014337 0006 0006 /STARTD /14337-0006 @F
014340 0210 0210 /FLDA BASE+030 /14340-0210 BH
014341 1041 1041 /JNE 1 /14341-1041 H!
014342 4302 4302 / 4302 /14342-4302 #B
014343 3000 3000 /TRAP3 0 /14343-3000 X@
014344 4345 4345 / 4345 /14344-4345 #%
014345 1131 1131 /JSR 1 /14345-1131 IY TEST 16
014346 5002 5002 / SETDM2 /14346-5002 (B
014347 1121 1121 /JSA 1 /14347-1121 IQ
014350 4631 4631 / S72321 /14350-4631 &Y
014351 0511 0511 /FLDA L X1+ 1 /14351-0511 EI
014352 5400 5400 / 5400 /14352-5400 ,@
014353 1521 1521 /FADD L X2+ 1 /14353-1521 MQ
014354 5400 5400 / 5400 /14354-5400 ,@
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-47
014355 6222 6222 /FSTA BASE+066 /14355-6222 2R
014356 2421 2421 /FSUB L X2 1 /14356-2421 TQ
014357 5400 5400 / 5400 /14357-5400 ,@
014360 6531 6531 /FSTA L X3+ 1 /14360-6531 5Y
014361 6100 6100 / 6100 /14361-6100 1@
014362 1131 1131 /JSR 1 /14362-1131 IY
014363 5007 5007 / 5007 /14363-5007 (G
014364 2101 2101 /JNX X0+ 1 /14364-2101 QA
014365 4347 4347 / 4347 /14365-4347 #'
014366 0210 0210 /FLDA BASE+030 /14366-0210 BH
014367 1041 1041 /JNE 1 /14367-1041 H!
014370 4345 4345 / 4345 /14370-4345 #%
014371 3000 3000 /TRAP3 0 /14371-3000 X@
014372 4373 4373 / 4373 /14372-4373 #;
014373 1131 1131 /JSR 1 /14373-1131 IY TEST 17
014374 4553 4553 / S01456 /14374-4553 %+
014375 1131 1131 /JSR 1 /14375-1131 IY
014376 4615 4615 / SETEFM /14376-4615 &M
014377 0511 0511 /FLDA L X1+ 1 /14377-0511 EI
014400 5400 5400 / 5400 /14400-5400 ,@
014401 0004 0004 /FNORM /14401-0004 @D
014402 6411 6411 /FSTA L X1 1 /14402-6411 4I
014403 5400 5400 / 5400 /14403-5400 ,@
014404 1131 1131 /JSR 1 /14404-1131 IY
014405 4623 4623 / 4623 /14405-4623 &S
014406 0411 0411 /FLDA L X1 1 /14406-0411 DI
014407 5400 5400 / 5400 /14407-5400 ,@
014410 0003 0003 /FNEG /14410-0003 @C
014411 0003 0003 /FNEG /14411-0003 @C
014412 0003 0003 /FNEG /14412-0003 @C
014413 0040 0040 /FNOP /14413-0040 @
014414 0003 0003 /FNEG /14414-0003 @C
014415 0003 0003 /FNEG /14415-0003 @C
014416 0003 0003 /FNEG /14416-0003 @C
014417 6531 6531 /FSTA L X3+ 1 /14417-6531 5Y
014420 6100 6100 / 6100 /14420-6100 1@
014421 1131 1131 /JSR 1 /14421-1131 IY
014422 4646 4646 / TRNBUF /14422-4646 &&
014423 2101 2101 /JNX X0+ 1 /14423-2101 QA
014424 4375 4375 / 4375 /14424-4375 #=
014425 0006 0006 /STARTD /14425-0006 @F
014426 0210 0210 /FLDA BASE+030 /14426-0210 BH
014427 1041 1041 /JNE 1 /14427-1041 H!
014430 4373 4373 / 4373 /14430-4373 #;
014431 3000 3000 /TRAP3 0 /14431-3000 X@
014432 4433 4433 / 4433 /14432-4433 $[
014433 1131 1131 /JSR 1 /14433-1131 IY TEST 20
014434 4760 4760 / SETDM /14434-4760 '0
014435 0104 0104 /LDX X4 /14435-0104 AD
014436 0022 0022 / 0022 /14436-0022 @R
014437 0511 0511 /FLDA L X1+ 1 /14437-0511 EI
014440 5400 5400 / 5400 /14440-5400 ,@
014441 1011 1011 /JGE 1 /14441-1011 HI
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-48
014442 4444 4444 / 4444 /14442-4444 $$
014443 0003 0003 /FNEG /14443-0003 @C
014444 0014 0014 /ALN 4 /14444-0014 @L 4 BITS LONG?
014445 6411 6411 /FSTA L X1 1 /14445-6411 4I
014446 5400 5400 / 5400 /14446-5400 ,@
014447 2101 2101 /JNX X0+ 1 /14447-2101 QA
014450 4437 4437 / 4437 /14450-4437 $_
014451 1131 1131 /JSR 1 /14451-1131 IY
014452 5002 5002 / SETDM2 /14452-5002 (B
014453 1121 1121 /JSA 1 /14453-1121 IQ
014454 4631 4631 / S72321 /14454-4631 &Y
014455 0032 0032 /XTA 2 /14455-0032 @Z
014456 0025 0025 /ATX 5 /14456-0025 @U
014457 0521 0521 /FLDA L X2+ 1 /14457-0521 EQ
014460 5400 5400 / 5400 /14460-5400 ,@
014461 0003 0003 /FNEG /14461-0003 @C
014462 1041 1041 /JNE 1 /14462-1041 H!
014463 4470 4470 / 4470 /14463-4470 $8
014464 0511 0511 /FLDA L X1+ 1 /14464-0511 EI
014465 5400 5400 / 5400 /14465-5400 ,@
014466 1031 1031 /JA 1 /14466-1031 HY
014467 4506 4506 / 4506 /14467-4506 %F
014470 1217 1217 /FADD BASE+055 /14470-1217 JO
014471 0024 0024 /ATX 4 /14471-0024 @T
014472 0511 0511 /FLDA L X1+ 1 /14472-0511 EI
014473 5400 5400 / 5400 /14473-5400 ,@
014474 6151 6151 /LEMUL X5+ 1 /14474-6151 1)
014475 5400 5400 / 5400 /14475-5400 ,@
014476 2041 2041 /JNX X4 1 /14476-2041 P!
014477 4502 4502 / 4502 /14477-4502 %B
014500 1031 1031 /JA 1 /14500-1031 HY
014501 4506 4506 / 4506 /14501-4506 %F
014502 2411 2411 /FSUB L X1 1 /14502-2411 TI
014503 5400 5400 / 5400 /14503-5400 ,@
014504 2141 2141 /JNX X4+ 1 /14504-2141 Q!
014505 4502 4502 / 4502 /14505-4502 %B
014506 6531 6531 /FSTA L X3+ 1 /14506-6531 5Y
014507 6100 6100 / 6100 /14507-6100 1@
014510 1131 1131 /JSR 1 /14510-1131 IY
014511 5007 5007 / 5007 /14511-5007 (G
014512 2101 2101 /JNX X0+ 1 /14512-2101 QA
014513 4453 4453 / 4453 /14513-4453 $+
014514 0210 0210 /FLDA BASE+030 /14514-0210 BH
014515 1041 1041 /JNE 1 /14515-1041 H!
014516 4433 4433 / 4433 /14516-4433 $[
014517 3000 3000 /TRAP3 0 /14517-3000 X@
014520 4521 4521 / 4521 /14520-4521 %Q
014521 1131 1131 /JSR 1 /14521-1131 IY TEST 21
014522 4553 4553 / S01456 /14522-4553 %+
014523 1131 1131 /JSR 1 /14523-1131 IY
014524 4615 4615 / SETEFM /14524-4615 &M
014525 6111 6111 /LEA X1+ 1 /14525-6111 1I
014526 5400 5400 / 5400 /14526-5400 ,@
014527 6226 6226 /FSTA BASE+102 /14527-6226 2V
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-49
014530 1131 1131 /JSR 1 /14530-1131 IY
014531 4625 4625 / 4625 /14531-4625 &U
014532 1111 1111 /SETB 1 /14532-1111 II
014533 5302 5302 / 5302 /14533-5302 +B
014534 0650 0650 /FLDA % BASE+00X5 /14534-0650 F(
014535 1111 1111 /SETB 1 /14535-1111 II
014536 5200 5200 / 5200 /14536-5200 *@
014537 6531 6531 /FSTA L X3+ 1 /14537-6531 5Y
014540 6100 6100 / 6100 /14540-6100 1@
014541 1131 1131 /JSR 1 /14541-1131 IY
014542 4646 4646 / TRNBUF /14542-4646 &&
014543 2101 2101 /JNX X0+ 1 /14543-2101 QA
014544 4523 4523 / 4523 /14544-4523 %S
014545 0006 0006 /STARTD /14545-0006 @F
014546 0210 0210 /FLDA BASE+030 /14546-0210 BH
014547 1041 1041 /JNE 1 /14547-1041 H!
014550 4521 4521 / 4521 /14550-4521 %Q
014551 3000 3000 /TRAP3 0 /14551-3000 X@
014552 3600 3600 / 3600 /14552-3600 ^@
014553 0006 S01456,0006 /STARTD /14553-0006 @F
014554 0401 0401 /FLDA L X0 1 /14554-0401 DA
014555 0142 0142 / EPMOD0 /14555-0142 A"
014556 1011 1011 /JGE 1 /14556-1011 HI
014557 4564 4564 / 4564 /14557-4564 %4
014560 0100 0100 /LDX X0 /14560-0100 A@
014561 7714 7714 / 7714 /14561-7714 ?L -52
014562 1031 1031 /JA 1 /14562-1031 HY
014563 4566 4566 / SX1456 /14563-4566 %6
014564 0100 0100 /LDX X0 /14564-0100 A@
014565 7630 7630 / 7630 /14565-7630 >X -104 -156 DP
014566 0101 SX1456,0101 /LDX X1 /14566-0101 AA
014567 7777 7777 / 7777 /14567-7777 ??
014570 0104 0104 /LDX X4 /14570-0104 AD
014571 0000 0000 / 0000 /14571-0000 @@
014572 0105 0105 /LDX X5 /14572-0105 AE
014573 0000 0000 / 0000 /14573-0000 @@
014574 0106 0106 /LDX X6 /14574-0106 AF
014575 0000 0000 / 0000 /14575-0000 @@
014576 1031 1031 /JA 1 /14576-1031 HY
014577 5201 5201 / BASE1+1 /14577-5201 *A
014600 0006 0006 /STARTD /14600-0006 @F
014601 0401 0401 /FLDA L X0 1 /14601-0401 DA
014602 0142 0142 / 0142 /14602-0142 A"
014603 1011 1011 /JGE 1 /14603-1011 HI
014604 4611 4611 / 4611 /14604-4611 &I
014605 0100 0100 /LDX X0 /14605-0100 A@
014606 7715 7715 / 7715 /14606-7715 ?M
014607 1031 1031 /JA 1 /14607-1031 HY
014610 4566 4566 / SX1456 /14610-4566 %6
014611 0100 0100 /LDX X0 /14611-0100 A@
014612 7631 7631 / 7631 /14612-7631 >Y
014613 1031 1031 /JA 1 /14613-1031 HY
014614 4566 4566 / SX1456 /14614-4566 %6
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-50
014615 0006 SETEFM,0006 /STARTD /14615-0006 @F
014616 0031 0031 /XTA 1 /14616-0031 @Y
014617 0022 0022 /ATX 2 /14617-0022 @R
014620 0023 0023 /ATX 3 /14620-0023 @S
014621 0112 0112 /ADDX X2 /14621-0112 AJ
014622 0001 0001 / 0001 /14622-0001 @A
014623 0107 0107 /LDX X7 /14623-0107 AG
014624 0000 0000 / 0000 /14624-0000 @@
014625 0005 FPLEF, 0005 /STARTF /14625-0005 @E
014626 0002 0002 /FCLA /14626-0002 @B
014627 1031 1031 /JA 1 /14627-1031 HY
014630 5201 5201 / BASE1+1 /14630-5201 *A
014631 0000 S72321,0000 /FEXIT /14631-0000 @@
014632 0000 0000 /FEXIT /14632-0000 @@
014633 0006 0006 /STARTD /14633-0006 @F
014634 0107 0107 /LDX X7 /14634-0107 AG
014635 0000 0000 / 0000 /14635-0000 @@
014636 0031 0031 /XTA 1 /14636-0031 @Y
014637 0022 0022 /ATX 2 /14637-0022 @R
014640 0023 0023 /ATX 3 /14640-0023 @S
014641 0112 0112 /ADDX X2 /14641-0112 AJ
014642 0001 0001 / 0001 /14642-0001 @A
014643 0002 0002 /FCLA /14643-0002 @B
014644 1031 1031 /JA 1 /14644-1031 HY
014645 4631 4631 / 4631 /14645-4631 &Y
014646 0411 TRNBUF,0411 /FLDA L X1 1 /14646-0411 DI
014647 5400 5400 / 5400 /14647-5400 ,@
014650 2431 2431 /FSUB L X3 1 /14650-2431 TY
014651 6100 6100 / 6100 /14651-6100 1@
014652 1001 1001 /JEQ 1 /14652-1001 HA
014653 4664 4664 / 4664 /14653-4664 &4
014654 0006 0006 /STARTD /14654-0006 @F
014655 0224 0224 /FLDA BASE+074 /14655-0224 BT
014656 1001 1001 /JEQ 1 /14656-1001 HA
014657 4662 4662 / 4662 /14657-4662 &2
014660 1031 1031 /JA 1 /14660-1031 HY
014661 4670 4670 / 4670 /14661-4670 &8
014662 3001 3001 /TRAP3 1 /14662-3001 XA
014663 0000 0000 / 0000 /14663-0000 @@
014664 0006 0006 /STARTD /14664-0006 @F
014665 0224 0224 /FLDA BASE+074 /14665-0224 BT
014666 1001 1001 /JEQ 1 /14666-1001 HA
014667 5201 5201 / 5201 /14667-5201 *A
014670 0110 0110 /ADDX X0 /14670-0110 AH
014671 7777 7777 / 7777 /14671-7777 ??
014672 0111 0111 /ADDX X1 /14672-0111 AI
014673 7777 7777 / 7777 /14673-7777 ??
014674 1031 1031 /JA 1 /14674-1031 HY
014675 5201 5201 / 5201 /14675-5201 *A
014676 0411 0411 /FLDA L X1 1 /14676-0411 DI
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-51
014677 5400 5400 / 5400 /14677-5400 ,@
014700 0004 0004 /FNORM /14700-0004 @D
014701 6212 6212 /FSTA BASE+036 /14701-6212 2J
014702 2431 2431 /FSUB L X3 1 /14702-2431 TY
014703 6100 6100 / 6100 /14703-6100 1@
014704 1001 1001 /JEQ 1 /14704-1001 HA
014705 4664 4664 / 4664 /14705-4664 &4
014706 0107 0107 /LDX X7 /14706-0107 AG
014707 0000 0000 / 0000 /14707-0000 @@
014710 6214 6214 /FSTA BASE+044 /14710-6214 2L
014711 1101 1101 /SETX 1 /14711-1101 IA
014712 5236 5236 / 5236 /14712-5236 *^
014713 0006 0006 /STARTD /14713-0006 @F
014714 0036 0036 /XTA 6 /14714-0036 @^
014715 6211 6211 /FSTA BASE+033 /14715-6211 2I
014716 0030 0030 /XTA 0 /14716-0030 @X
014717 1101 1101 /SETX 1 /14717-1101 IA
014720 0040 0040 / 0040 /14720-0040 @
014721 2211 2211 /FSUB BASE+033 /14721-2211 RI
014722 1051 1051 /JLT 1 /14722-1051 H)
014723 4735 4735 / 4735 /14723-4735 ']
014724 2216 2216 /FSUB BASE+052 /14724-2216 RN
014725 1061 1061 /JGT 1 /14725-1061 H1
014726 4743 4743 / 4743 /14726-4743 '#
014727 1225 1225 /FADD BASE+077 /14727-1225 JU
014730 1051 1051 /JLT 1 /14730-1051 H)
014731 4743 4743 / 4743 /14731-4743 '#
014732 0005 0005 /STARTF /14732-0005 @E
014733 1031 1031 /JA 1 /14733-1031 HY
014734 4664 4664 / 4664 /14734-4664 &4
014735 0117 0117 /ADDX X7 /14735-0117 AO
014736 0001 0001 / 0001 /14736-0001 @A
014737 2071 2071 /JNX X7 1 /14737-2071 P9
014740 4746 4746 / 4746 /14740-4746 '&
014741 0117 0117 /ADDX X7 /14741-0117 AO
014742 7777 7777 / 7777 /14742-7777 ??
014743 0005 0005 /STARTF /14743-0005 @E
014744 1031 1031 /JA 1 /14744-1031 HY
014745 4654 4654 / 4654 /14745-4654 &,
014746 0117 0117 /ADDX X7 /14746-0117 AO
014747 7777 7777 / 7777 /14747-7777 ??
014750 1101 1101 /SETX 1 /14750-1101 IA
014751 5236 5236 / 5236 /14751-5236 *^
014752 0110 0110 /ADDX X0 /14752-0110 AH
014753 4000 4000 / 4000 /14753-4000 @
014754 0116 0116 /ADDX X6 /14754-0116 AN
014755 4000 4000 / 4000 /14755-4000 @
014756 1031 1031 /JA 1 /14756-1031 HY
014757 4714 4714 / 4714 /14757-4714 'L
014760 0006 SETDM,0006 /STARTD /14760-0006 @F
014761 0100 0100 /LDX X0 /14761-0100 A@
014762 7544 7544 / 7544 /14762-7544 =$ -156
014763 1031 1031 /JA 1 /14763-1031 HY
014764 4566 4566 / SX1456 /14764-4566 %6
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-52
014765 0117 0117 /ADDX X7 /14765-0117 AO
014766 7777 7777 / 7777 /14766-7777 ??
014767 2071 2071 /JNX X7 1 /14767-2071 P9
014770 4776 4776 / 4776 /14770-4776 '>
014771 0431 0431 /FLDA L X3 1 /14771-0431 DY
014772 6100 6100 / 6100 /14772-6100 1@
014773 0003 0003 /FNEG /14773-0003 @C
014774 6431 6431 /FSTA L X3 1 /14774-6431 4Y
014775 6100 6100 / 6100 /14775-6100 1@
014776 0117 0117 /ADDX X7 /14776-0117 AO
014777 0001 0001 / 0001 /14777-0001 @A
015000 1031 1031 /JA 1 /15000-1031 HY
015001 4676 4676 / 4676 /15001-4676 &>
015002 0006 SETDM2,0006 /STARTD /15002-0006 @F
015003 0100 0100 /LDX X0 /15003-0100 A@
015004 7545 7545 / 7545 /15004-7545 =% -155
015005 1031 1031 /JA 1 /15005-1031 HY
015006 4566 4566 / SX1456 /15006-4566 %6
015007 0411 0411 /FLDA L X1 1 /15007-0411 DI
015010 5400 5400 / 5400 /15010-5400 ,@
015011 2431 2431 /FSUB L X3 1 /15011-2431 TY
015012 6100 6100 / 6100 /15012-6100 1@
015013 1031 1031 /JA 1 /15013-1031 HY
015014 4652 4652 / 4652 /15014-4652 &*
015015 0000 AND 0000 /15015-0000 @@
015016 3020 DCA F1PNT /15016-3020 XP
015017 1020 TAD F1PNT /15017-1020 HP
015020 7012 RTR /15020-7012 8J
015021 7012 RTR /15021-7012 8J
015022 7012 RTR /15022-7012 8J
015023 4227 JMS 5027 /15023-4227 "W
015024 1020 TAD F1PNT /15024-1020 HP
015025 4227 JMS 5027 /15025-4227 "W
015026 5615 JMP I 5015 /15026-5615 .M
015027 0000 AND 0000 /15027-0000 @@
015030 0374 AND 5174 /15030-0374 C<
015031 7450 SNA /15031-7450 <(
015032 5627 JMP I 5027 /15032-5627 .W
015033 1373 TAD 5173 /15033-1373 K;
015034 0374 AND 5174 /15034-0374 C<
015035 1373 TAD 5173 /15035-1373 K;
015036 4257 JMS 5057 /15036-4257 "/
015037 5627 JMP I 5027 /15037-5627 .W
015040 0000 AND 0000 /15040-0000 @@
015041 1023 TAD 0023 /15041-1023 HS
015042 4215 JMS 5015 /15042-4215 "M
015043 1024 TAD 0024 /15043-1024 HT
015044 4215 JMS 5015 /15044-4215 "M
015045 1025 TAD 0025 /15045-1025 HU
015046 4215 JMS 5015 /15046-4215 "M
015047 1026 TAD 0026 /15047-1026 HV
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-53
015050 7650 SNA CLA /15050-7650 >(
015051 5640 JMP I 5040 /15051-5640 .
015052 1372 TAD 5172 /15052-1372 K:
015053 4227 JMS 5027 /15053-4227 "W
015054 1026 TAD 0026 /15054-1026 HV
015055 4215 JMS 5015 /15055-4215 "M
015056 5640 JMP I 5040 /15056-5640 .
015057 0000 AND 0000 /15057-0000 @@
015060 3351 DCA 5151 /15060-3351 [)
015061 4771 JMS I 5171 /15061-4771 '9
015062 5277 JMP 5077 /15062-5277 *?
015063 3264 DCA 5064 /15063-3264 Z4
015064 7402 HLT /15064-7402 <B
015065 1351 TAD 5151 /15065-1351 K)
015066 4770 JMS I 5170 /15066-4770 '8
015067 1351 TAD 5151 /15067-1351 K)
015070 1367 TAD 5167 /15070-1367 K7
015071 7640 SZA CLA /15071-7640 >
015072 5657 JMP I 5057 /15072-5657 ./
015073 1264 TAD 5064 /15073-1264 J4
015074 7001 IAC /15074-7001 8A
015075 3213 DCA 5013 /15075-3213 ZK
015076 5657 JMP I 5057 /15076-5657 ./
015077 1351 TAD 5151 /15077-1351 K)
015100 4777 JMS I 5177 /15100-4777 '?
015101 2101 ISZ 0101 /15101-2101 QA
015102 4475 JMS I 0075 /15102-4475 $=
015103 7305 CLA CLL IAC RAL /15103-7305 ;E
015104 3036 DCA 0036 /15104-3036 X^
015105 4351 JMS 5151 /15105-4351 #)
015106 4472 JMS I 0072 /15106-4472 $:
015107 5102 JMP 0102 /15107-5102 )B
015110 4361 JMS 5161 /15110-4361 #1
015111 5302 JMP 5102 /15111-5302 +B
015112 4777 JMS I 5177 /15112-4777 '?
015113 2001 ISZ 0001 /15113-2001 PA
015114 4475 JMS I 0075 /15114-4475 $=
015115 2036 ISZ 0036 /15115-2036 P^
015116 4351 JMS 5151 /15116-4351 #)
015117 4472 JMS I 0072 /15117-4472 $:
015120 5114 JMP 0114 /15120-5114 )L
015121 4361 JMS 5161 /15121-4361 #1
015122 5314 JMP 5114 /15122-5314 +L
015123 4777 JMS I 5177 /15123-4777 '?
015124 2101 ISZ 0101 /15124-2101 QA
015125 1753 TAD I 5153 /15125-1753 O+
015126 3020 DCA F1PNT /15126-3020 XP
015127 1376 TAD 5176 /15127-1376 K>
015130 3420 DCA I F1PNT /15130-3420 \P
015131 2020 ISZ F1PNT /15131-2020 PP
015132 1000 TAD 0000 /15132-1000 H@
015133 3420 DCA I F1PNT /15133-3420 \P
015134 4475 JMS I 0075 /15134-4475 $=
015135 4474 JMS I FPGO0 /15135-4474 $<
015136 1554 TAD I 0154 /15136-1554 M,
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-54
015137 6201 CDF 0 /15137-6201 2A
015140 1422 TAD I 0022 /15140-1422 LR
015141 3406 DCA I 0006 /15141-3406 \F
015142 6211 CDF 10 /15142-6211 2I
015143 4472 JMS I 0072 /15143-4472 $:
015144 5134 JMP 0134 /15144-5134 )\
015145 4361 JMS 5161 /15145-4361 #1
015146 5334 JMP 5134 /15146-5334 +\
015147 3151 DCA 0151 /15147-3151 Y)
015150 5775 JMP I 5175 /15150-5775 /=
015151 0000 AND 0000 /15151-0000 @@
015152 4474 JMS I FPGO0 /15152-4474 $<
015153 1552 TAD I 0152 /15153-1552 M*
015154 6201 CDF 0 /15154-6201 2A
015155 1422 TAD I 0022 /15155-1422 LR
015156 3406 DCA I 0006 /15156-3406 \F
015157 6211 CDF 10 /15157-6211 2I
015160 5751 JMP I 5151 /15160-5751 /)
015161 0000 AND 0000 /15161-0000 @@
015162 2014 ISZ 0014 /15162-2014 PL
015163 5365 JMP 5165 /15163-5365 +5
015164 5372 JMP 5172 /15164-5372 +:
015165 1774 TAD I 5174 /15165-1774 O<
015166 1103 TAD K10 /15166-1103 IC
015167 3774 DCA I 5174 /15167-3774 _<
015170 2022 ISZ 0022 /15170-2022 PR
015171 5761 JMP I 5161 /15171-5761 /1
015172 2361 ISZ 5161 /15172-2361 S1
015173 5761 JMP I 5161 /15173-5761 /1
015174 1553 TAD I 0153 /15174-1553 M+
015175 3572 DCA I 0172 /15175-3572 ]:
015176 1030 TAD 0030 /15176-1030 HX
015177 7066 CMA CML RTL /15177-7066 86
5200 PAGE
015200 0000 BASE1, AND 0000 /15200-0000 @@
015201 0000 AND 0000 /15201-0000 @@
015202 0000 AND 0000 /15202-0000 @@
015203 0000 AND 0000 /15203-0000 @@ 1
015204 0001 AND 0001 /15204-0001 @A
015205 5400 JMP I 0000 /15205-5400 ,@
015206 0000 AND 0000 /15206-0000 @@ 2
015207 0001 AND 0001 /15207-0001 @A
015210 6100 6100 /15210-6100 1@
015211 0000 AND 0000 /15211-0000 @@ 3
015212 0001 AND 0001 /15212-0001 @A
015213 5400 JMP I 0000 /15213-5400 ,@
015214 0000 AND 0000 /15214-0000 @@ 4
015215 0001 AND 0001 /15215-0001 @A
015216 6100 6100 /15216-6100 1@
015217 0000 AND 0000 /15217-0000 @@ 5
015220 0000 AND 0000 /15220-0000 @@
015221 0000 AND 0000 /15221-0000 @@
015222 0000 AND 0000 /15222-0000 @@ 6
015223 0000 AND 0000 /15223-0000 @@
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-55
015224 0000 AND 0000 /15224-0000 @@
015225 0000 AND 0000 /15225-0000 @@ 7
015226 0000 AND 0000 /15226-0000 @@
015227 0000 AND 0000 /15227-0000 @@
015230 0000 AND 0000 /15230-0000 @@ 10
015231 0000 AND 0000 /15231-0000 @@
015232 0000 AND 0000 /15232-0000 @@ GETS 7777 IF STAY ON TEST
015233 0000 AND 0000 /15233-0000 @@ 11
015234 0000 AND 0000 /15234-0000 @@
015235 0000 AND 0000 /15235-0000 @@
015236 0000 AND 0000 /15236-0000 @@ 12
015237 0000 AND 0000 /15237-0000 @@
015240 0000 AND 0000 /15240-0000 @@
015241 0000 AND 0000 /15241-0000 @@ 13
015242 0000 AND 0000 /15242-0000 @@
015243 0000 AND 0000 /15243-0000 @@
015244 0000 AND 0000 /15244-0000 @@ 14
015245 0000 AND 0000 /15245-0000 @@
015246 0000 AND 0000 /15246-0000 @@
015247 0000 AND 0000 /15247-0000 @@ 15
015250 0000 AND 0000 /15250-0000 @@
015251 0000 AND 0000 /15251-0000 @@
015252 0000 AND 0000 /15252-0000 @@ 16
015253 0000 AND 0000 /15253-0000 @@
015254 0000 AND 0000 /15254-0000 @@ GETS 24-2 FMODE OR 60-2 EMODE
015255 0000 AND 0000 /15255-0000 @@ 17
015256 0000 AND 0000 /15256-0000 @@
015257 0001 AND 0001 /15257-0001 @A
015260 0000 AND 0000 /15260-0000 @@ 20
015261 0000 AND 0000 /15261-0000 @@
015262 0014 AND 0014 /15262-0014 @L
015263 0000 AND 0000 /15263-0000 @@ 21
015264 0000 AND 0000 /15264-0000 @@
015265 0000 AND 0000 /15265-0000 @@
015266 0000 AND 0000 /15266-0000 @@ 22
015267 0000 AND 0000 /15267-0000 @@
015270 0000 AND 0000 /15270-0000 @@
015271 0000 AND 0000 /15271-0000 @@ 23
015272 0000 AND 0000 /15272-0000 @@
015273 0000 AND 0000 /15273-0000 @@
015274 0000 AND 0000 /15274-0000 @@ 24
015275 0000 AND 0000 /15275-0000 @@
015276 0000 AND 0000 /15276-0000 @@ GETS 7777 IF SWITCH 1000
015277 0000 AND 0000 /15277-0000 @@ 25
015300 0000 AND 0000 /15300-0000 @@
015301 0002 AND 0002 /15301-0002 @B
015302 0000 AND 0000 /15302-0000 @@ 26
015303 0000 AND 0000 /15303-0000 @@
015304 0000 AND 0000 /15304-0000 @@
015305 0000 AND 0000 /15305-0000 @@ 27
015306 7441 SCA /15306-7441 <!
015307 7612 SKP CLA HLT /15307-7612 >J
015310 2305 ISZ 5305 /15310-2305 SE
015311 7373 CLA CLL CMA CML IAC RTR /15311-7373 ;;
015312 2305 ISZ 5305 /15312-2305 SE
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-56
015313 7377 7377 /15313-7377 ;?
015314 3512 DCA I 0112 /15314-3512 ]J
015315 0000 AND 0000 /15315-0000 @@
015316 7031 CML IAC RAR /15316-7031 8Y
015317 1364 TAD 5364 /15317-1364 K4
015320 3020 DCA F1PNT /15320-3020 XP
015321 6201 CDF 0 /15321-6201 2A
015322 4343 JMS 5343 /15322-4343 ##
015323 5327 JMP 5327 /15323-5327 +W
015324 7200 CLA /15324-7200 :@
015325 2020 ISZ F1PNT /15325-2020 PP
015326 1420 TAD I F1PNT /15326-1420 LP
015327 7450 SNA /15327-7450 <(
015330 5335 JMP 5335 /15330-5335 +]
015331 4763 JMS I 5363 /15331-4763 '3
015332 7610 SKP CLA /15332-7610 >H
015333 5324 JMP 5324 /15333-5324 +T
015334 4343 JMS 5343 /15334-4343 ##
015335 3032 DCA FMS10 /15335-3032 XZ
015336 7240 CLA CMA /15336-7240 :
015337 1020 TAD F1PNT /15337-1020 HP
015340 6211 CDF 10 /15340-6211 2I
015341 3762 DCA I 5362 /15341-3762 _2
015342 5716 JMP I 5316 /15342-5716 /N
015343 5335 JMP 5335 /15343-5335 +]
015344 1420 TAD I F1PNT /15344-1420 LP
015345 1361 TAD 5361 /15345-1361 K1
015346 7440 SZA /15346-7440 <
015347 5352 JMP 5352 /15347-5352 +*
015350 2020 ISZ F1PNT /15350-2020 PP
015351 5344 JMP 5344 /15351-5344 +$
015352 1360 TAD 5360 /15352-1360 K0
015353 5743 JMP I 5343 /15353-5743 /#
015354 0000 AND 0000 /15354-0000 @@
015355 0000 AND 0000 /15355-0000 @@
015356 0000 AND 0000 /15356-0000 @@
015357 0000 AND 0000 /15357-0000 @@
015360 0240 AND 5240 /15360-0240 B
015361 7540 SMA SZA /15361-7540 =
015362 7440 SZA /15362-7440 <
015363 4630 JMS I 5230 /15363-4630 &X
015364 1000 TAD 0000 /15364-1000 H@
015365 5124 JMP 0124 /15365-5124 )T
015366 5160 JMP 0160 /15366-5160 )0
015367 6514 6514 /15367-6514 5L
015370 6513 6513 /15370-6513 5K
015371 5040 JMP 0040 /15371-5040 (
015372 5015 JMP 0015 /15372-5015 (M
015373 4300 JMS 5300 /15373-4300 #@
015374 6400 6400 /15374-6400 4@
015375 7774 SPA SNA SZL CLA OSR /15375-7774 ?<
015376 2544 ISZ I 0144 /15376-2544 U$
015377 5000 JMP 0000 /15377-5000 (@
5400 PAGE
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-57
015400 0000 RANBUF, AND 0000 /15400-0000 @@
015401 4777 JMS I 5577 /15401-4777 '?
015402 0320 AND 5520 /15402-0320 CP
015403 0301 AND 5501 /15403-0301 CA
015404 5600 JMP I 5400 /15404-5600 .@
015405 0000 AND 0000 /15405-0000 @@
015406 1032 TAD 0032 /15406-1032 HZ
015407 7650 SNA CLA /15407-7650 >(
015410 5357 JMP 5557 /15410-5357 +/
015411 4231 JMS 5431 /15411-4231 "Y
015412 4776 JMS I 5576 /15412-4776 '>
015413 7000 NOP /15413-7000 8@
015414 4243 JMS 5443 /15414-4243 "#
015415 0305 AND 5505 /15415-0305 CE
015416 0327 AND 5527 /15416-0327 CW
015417 0000 AND 0000 /15417-0000 @@
015420 4252 JMS 5452 /15420-4252 "*
015421 4200 JMS 5400 /15421-4200 "@
015422 4243 JMS 5443 /15422-4243 "#
015423 0233 AND 5433 /15423-0233 B[
015424 0000 AND 0000 /15424-0000 @@
015425 4774 JMS I 5574 /15425-4774 '<
015426 4773 JMS I 5573 /15426-4773 ';
015427 0000 AND 0000 /15427-0000 @@
015430 5605 JMP I 5405 /15430-5605 .E
015431 0000 AND 0000 /15431-0000 @@
015432 1772 TAD I 5572 /15432-1772 O:
015433 3034 DCA 0034 /15433-3034 X\
015434 1371 TAD 5571 /15434-1371 K9
015435 3770 DCA I 5570 /15435-3770 _8
015436 1367 TAD 5567 /15436-1367 K7
015437 4766 JMS I 5566 /15437-4766 '6
015440 1034 TAD 0034 /15440-1034 H\
015441 3356 DCA 5556 /15441-3356 [.
015442 5631 JMP I 5431 /15442-5631 .Y
015443 0000 AND 0000 /15443-0000 @@
015444 1643 TAD I 5443 /15444-1643 N#
015445 2243 ISZ 5443 /15445-2243 R#
015446 7450 SNA /15446-7450 <(
015447 5643 JMP I 5443 /15447-5643 .#
015450 4765 JMS I 5565 /15450-4765 '5
015451 5244 JMP 5444 /15451-5244 *$
015452 0000 AND 0000 /15452-0000 @@
015453 1356 TAD 5556 /15453-1356 K.
015454 3015 DCA 0015 /15454-3015 XM
015455 1356 TAD 5556 /15455-1356 K.
015456 7040 CMA /15456-7040 8
015457 1034 TAD 0034 /15457-1034 H\
015460 7650 SNA CLA /15460-7650 >(
015461 5764 JMP I 5564 /15461-5764 /4
015462 6201 CDF 0 /15462-6201 2A
015463 1415 TAD I 0015 /15463-1415 LM
015464 6211 CDF 10 /15464-6211 2I
015465 4765 JMS I 5565 /15465-4765 '5
015466 1015 TAD 0015 /15466-1015 HM
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-58
015467 7040 CMA /15467-7040 8
015470 1034 TAD 0034 /15470-1034 H\
015471 7650 SNA CLA /15471-7650 >(
015472 5652 JMP I 5452 /15472-5652 .*
015473 5262 JMP 5462 /15473-5262 *2
015474 0000 AND 0000 /15474-0000 @@
015475 4231 JMS 5431 /15475-4231 "Y
015476 4776 JMS I 5576 /15476-4776 '>
015477 1032 TAD FMS10 /15477-1032 HZ
015500 7450 SNA /15500-7450 <(
015501 5341 JMP 5541 /15501-5341 +!
015502 1363 TAD 5563 /15502-1363 K3
015503 7450 SNA /15503-7450 <(
015504 5310 JMP 5510 /15504-5310 +H
015505 1362 TAD 5562 /15505-1362 K2
015506 7640 SZA CLA /15506-7640 >
015507 5764 JMP I 5564 /15507-5764 /4
015510 6201 CDF 0 /15510-6201 2A
015511 3434 DCA I 0034 /15511-3434 \\
015512 6211 CDF 10 /15512-6211 2I
015513 4243 JMS 5443 /15513-4243 "#
015514 0305 AND 5505 /15514-0305 CE
015515 0327 AND 5527 /15515-0327 CW
015516 0000 AND 0000 /15516-0000 @@
015517 4252 JMS 5452 /15517-4252 "*
015520 4200 JMS 5400 /15520-4200 "@
015521 1034 TAD 0034 /15521-1034 H\
015522 3356 DCA 5556 /15522-3356 [.
015523 4774 JMS I 5574 /15523-4774 '<
015524 4776 JMS I 5576 /15524-4776 '>
015525 4243 JMS 5443 /15525-4243 "#
015526 0233 AND 5433 /15526-0233 B[
015527 0305 AND 5505 /15527-0305 CE
015530 0322 AND 5522 /15530-0322 CR
015531 0000 AND 0000 /15531-0000 @@
015532 4252 JMS 5452 /15532-4252 "*
015533 4200 JMS 5400 /15533-4200 "@
015534 4243 JMS 5443 /15534-4243 "#
015535 0233 AND 5433 /15535-0233 B[
015536 0331 AND 5531 /15536-0331 CY
015537 0000 AND 0000 /15537-0000 @@
015540 5353 JMP 5553 /15540-5353 ++
015541 4243 JMS 5443 /15541-4243 "#
015542 0305 AND 5505 /15542-0305 CE
015543 0302 AND 5502 /15543-0302 CB
015544 0000 AND 0000 /15544-0000 @@
015545 4252 JMS 5452 /15545-4252 "*
015546 4200 JMS 5400 /15546-4200 "@
015547 4243 JMS 5443 /15547-4243 "#
015550 0233 AND 5433 /15550-0233 B[
015551 0331 AND 5531 /15551-0331 CY
015552 0000 AND 0000 /15552-0000 @@
015553 4773 JMS I 5573 /15553-4773 ';
015554 0000 AND 0000 /15554-0000 @@
015555 5674 JMP I 5474 /15555-5674 .<
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-59
015556 0000 AND 0000 /15556-0000 @@
015557 4761 JMS I 5561 /15557-4761 '1
015560 6400 6400 /15560-6400 4@
015561 5000 JMP 0000 /15561-5000 (@
015562 7735 MQA MQL CLA ASR /15562-7735 ?]
015563 7504 SMA OSR /15563-7504 =D
015564 5160 JMP 0160 /15564-5160 )0
015565 5600 JMP I 5400 /15565-5600 .@
015566 4647 JMS I 5447 /15566-4647 &'
015567 7773 MQA MQL CLA DPIC /15567-7773 ?;
015570 5662 JMP I 5462 /15570-5662 .2
015571 7577 MQA MQL SAM /15571-7577 =?
015572 7440 SZA /15572-7440 <
015573 7000 NOP /15573-7000 8@
015574 7214 7214 /15574-7214 :L
015575 4127 JMS 0127 /15575-4127 !W
015576 7315 7315 /15576-7315 ;M
015577 5663 JMP I 5463 /15577-5663 .3
6000 *6000
016000 0000 AND 0000 /16000-0000 @@
016001 1377 TAD 6177 /16001-1377 K?
016002 3016 DCA 0016 /16002-3016 XN
016003 6201 CDF 0 /16003-6201 2A
016004 1416 TAD I 0016 /16004-1416 LN
016005 7640 SZA CLA /16005-7640 >
016006 5204 JMP 6004 /16006-5204 *D
016007 7240 CLA CMA /16007-7240 :
016010 1016 TAD 0016 /16010-1016 HN
016011 3016 DCA 0016 /16011-3016 XN
016012 1376 TAD 6176 /16012-1376 K>
016013 3416 DCA I 0016 /16013-3416 \N
016014 3416 DCA I 0016 /16014-3416 \N
016015 6211 CDF 10 /16015-6211 2I
016016 7240 CLA CMA /16016-7240 :
016017 1016 TAD 0016 /16017-1016 HN
016020 3775 DCA I 6175 /16020-3775 _=
016021 5600 JMP I 6000 /16021-5600 .@
016022 7422 SNL HLT /16022-7422 <R
016023 1774 TAD I 6174 /16023-1774 O<
016024 3035 DCA 0035 /16024-3035 X]
016025 6201 CDF 0 /16025-6201 2A
016026 2035 ISZ 0035 /16026-2035 P]
016027 1435 TAD I 0035 /16027-1435 L]
016030 6211 CDF 10 /16030-6211 2I
016031 7450 SNA /16031-7450 <(
016032 5246 JMP 6046 /16032-5246 *&
016033 1373 TAD 6173 /16033-1373 K;
016034 7450 SNA /16034-7450 <(
016035 5622 JMP I 6022 /16035-5622 .R
016036 1372 TAD 6172 /16036-1372 K:
016037 7640 SZA CLA /16037-7640 >
016040 5225 JMP 6025 /16040-5225 *U
016041 1376 TAD 6176 /16041-1376 K>
016042 6201 CDF 0 /16042-6201 2A
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-60
016043 3435 DCA I 0035 /16043-3435 \]
016044 6211 CDF 10 /16044-6211 2I
016045 5622 JMP I 6022 /16045-5622 .R
016046 2222 ISZ 6022 /16046-2222 RR
016047 5622 JMP I 6022 /16047-5622 .R
016050 2027 ISZ 0027 /16050-2027 PW
016051 6203 CIF CDF 0 /16051-6203 2C
016052 4771 JMS I 6171 /16052-4771 '9
016053 1370 TAD 6170 /16053-1370 K8
016054 3034 DCA 0034 /16054-3034 X\
016055 4767 JMS I 6167 /16055-4767 '7
016056 7450 SNA /16056-7450 <(
016057 5650 JMP I 6050 /16057-5650 .(
016060 1366 TAD 6166 /16060-1366 K6
016061 7640 SZA CLA /16061-7640 >
016062 5255 JMP 6055 /16062-5255 *-
016063 1034 TAD 0034 /16063-1034 H\
016064 3765 DCA I 6165 /16064-3765 _5
016065 4764 JMS I 6164 /16065-4764 '4
016066 4763 JMS I 6163 /16066-4763 '3
016067 4762 JMS I 6162 /16067-4762 '2
016070 3761 DCA I 6161 /16070-3761 _1
016071 1360 TAD 6160 /16071-1360 K0
016072 3033 DCA FLS10 /16072-3033 X[
016073 4757 JMS I 6157 /16073-4757 '/
016074 7640 SZA CLA /16074-7640 >
016075 1756 TAD I 6156 /16075-1756 O.
016076 7450 SNA /16076-7450 <(
016077 5755 JMP I 6155 /16077-5755 /-
016100 0000 RESBUF, AND 0000 /16100-0000 @@
016101 1754 TAD I 6154 /16101-1754 O,
016102 3307 DCA 6107 /16102-3307 [G
016103 6202 CIF 0 /16103-6202 2B
016104 4420 JMS I 0020 /16104-4420 $P
016105 0200 AND 6000 /16105-0200 B@
016106 5200 JMP 6000 /16106-5200 *@
016107 0000 AND 0000 /16107-0000 @@
016110 5755 JMP I 6155 /16110-5755 /-
016111 1353 TAD 6153 /16111-1353 K+
016112 3307 DCA 6107 /16112-3307 [G
016113 1352 TAD 6152 /16113-1352 K*
016114 3016 DCA 0016 /16114-3016 XN
016115 1306 TAD 6106 /16115-1306 KF
016116 3020 DCA 0020 /16116-3020 XP
016117 6201 CDF 0 /16117-6201 2A
016120 1420 TAD I 0020 /16120-1420 LP
016121 4751 JMS I 6151 /16121-4751 ')
016122 7112 CLL RTR /16122-7112 9J
016123 7012 RTR /16123-7012 8J
016124 3222 DCA 6022 /16124-3222 ZR
016125 2020 ISZ 0020 /16125-2020 PP
016126 1420 TAD I 0020 /16126-1420 LP
016127 4751 JMS I 6151 /16127-4751 ')
016130 7106 CLL RTL /16130-7106 9F
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-61
016131 7006 RTL /16131-7006 8F
016132 7004 RAL /16132-7004 8D
016133 1222 TAD 6022 /16133-1222 JR
016134 4751 JMS I 6151 /16134-4751 ')
016135 7200 CLA /16135-7200 :@
016136 2020 ISZ 0020 /16136-2020 PP
016137 2307 ISZ 6107 /16137-2307 SG
016140 5320 JMP 6120 /16140-5320 +P
016141 5750 JMP I 6150 /16141-5750 /(
016142 0000 AND 0000 /16142-0000 @@
016143 0000 AND 0000 /16143-0000 @@
016144 0321 AND 6121 /16144-0321 CQ
016145 1346 TAD 6146 /16145-1346 K&
016146 0515 AND I 0115 /16146-0515 EM
016147 3254 DCA 6054 /16147-3254 Z,
016150 6307 6307 /16150-6307 3G
016151 6200 6200 /16151-6200 2@
016152 4777 JMS I 6177 /16152-4777 '?
016153 7600 7600 /16153-7600 >@
016154 4443 JMS I 0043 /16154-4443 $#
016155 7346 CLA CLL CMA RTL /16155-7346 ;&
016156 4117 JMS 0117 /16156-4117 !O
016157 4400 JMS I 0000 /16157-4400 $@
016160 3316 DCA 6116 /16160-3316 [N
016161 3535 DCA I 0135 /16161-3535 ]]
016162 4060 JMS 0060 /16162-4060 0
016163 7315 7315 /16163-7315 ;M
016164 7263 CLA CMA CML IAC BSW /16164-7263 :3
016165 6266 6266 /16165-6266 26
016166 7500 SMA /16166-7500 =@
016167 4707 JMS I 6107 /16167-4707 'G
016170 0777 AND I 6177 /16170-0777 G?
016171 7405 MUY /16171-7405 <E
016172 7735 MQA MQL CLA ASR /16172-7735 ?]
016173 7504 SMA OSR /16173-7504 =D
016174 7440 SZA /16174-7440 <
016175 5741 JMP I 6141 /16175-5741 /!
016176 0274 AND 6074 /16176-0274 B<
016177 1000 TAD 0000 /16177-1000 H@
6400 *6400
016400 2536 ISZ I 0136 /16400-2536 U^
016401 3020 DCA 0020 /16401-3020 XP
016402 1600 TAD I 6400 /16402-1600 N@
016403 3223 DCA 6423 /16403-3223 ZS
016404 2200 ISZ 6400 /16404-2200 R@
016405 7240 CLA CMA /16405-7240 :
016406 1600 TAD I 6400 /16406-1600 N@
016407 3016 DCA 0016 /16407-3016 XN
016410 2200 ISZ 6400 /16410-2200 R@
016411 1600 TAD I 6400 /16411-1600 N@
016412 3225 DCA 6425 /16412-3225 ZU
016413 2200 ISZ 6400 /16413-2200 R@
016414 7240 CLA CMA /16414-7240 :
016415 1600 TAD I 6400 /16415-1600 N@
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-62
016416 3015 DCA 0015 /16416-3015 XM
016417 2200 ISZ 6400 /16417-2200 R@
016420 1020 TAD 0020 /16420-1020 HP
016421 7650 SNA CLA /16421-7650 >(
016422 5600 JMP I 6400 /16422-5600 .@
016423 6201 CDF 0 /16423-6201 2A
016424 1416 TAD I 0016 /16424-1416 LN
016425 6211 CDF 10 /16425-6211 2I
016426 3415 DCA I 0015 /16426-3415 \M
016427 2020 ISZ 0020 /16427-2020 PP
016430 5223 JMP 6423 /16430-5223 *S
016431 6211 CDF 10 /16431-6211 2I
016432 5600 JMP I 6400 /16432-5600 .@
016433 0000 AND 0000 /16433-0000 @@
016434 6202 CIF 0 /16434-6202 2B
016435 5777 JMP I 6577 /16435-5777 /?
016436 5633 JMP I 6433 /16436-5633 .[
016437 4776 JMS I 6576 /16437-4776 '>
016440 6505 6505 /16440-6505 5E
016441 6203 CIF CDF 0 /16441-6203 2C
016442 5775 JMP I 6575 /16442-5775 /=
016443 4776 JMS I 6576 /16443-4776 '>
016444 6474 6474 /16444-6474 4<
016445 5633 JMP I 6433 /16445-5633 .[
016446 4776 JMS I 6576 /16446-4776 '>
016447 6517 6517 /16447-6517 5O
016450 5241 JMP 6441 /16450-5241 *!
016451 4776 JMS I 6576 /16451-4776 '>
016452 6472 6472 /16452-6472 4:
016453 5633 JMP I 6433 /16453-5633 .[
016454 0000 AND 0000 /16454-0000 @@
016455 1664 TAD I 6464 /16455-1664 N4
016456 7640 SZA CLA /16456-7640 >
016457 5654 JMP I 6454 /16457-5654 .,
016460 1774 TAD I 6574 /16460-1774 O<
016461 3664 DCA I 6464 /16461-3664 ^4
016462 4773 JMS I 6573 /16462-4773 ';
016463 5654 JMP I 6454 /16463-5654 .,
016464 7600 7600 /16464-7600 >@
016465 1664 TAD I 6464 /16465-1664 N4
016466 1372 TAD 6572 /16466-1372 K:
016467 3225 DCA 6425 /16467-3225 ZU
016470 1625 TAD I 6425 /16470-1625 NU
016471 1371 TAD 6571 /16471-1371 K9
016472 7640 SZA CLA /16472-7640 >
016473 5654 JMP I 6454 /16473-5654 .,
016474 4776 JMS I 6576 /16474-4776 '>
016475 6602 6602 /16475-6602 6B
016476 5654 JMP I 6454 /16476-5654 .,
016477 0000 AND 0000 /16477-0000 @@
016500 1770 TAD I 6570 /16500-1770 O8
016501 7012 RTR /16501-7012 8J
016502 7630 SZL CLA /16502-7630 >X
016503 1367 TAD 6567 /16503-1367 K7
016504 1264 TAD 6464 /16504-1264 J4
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-63
016505 3333 DCA 6533 /16505-3333 [[
016506 1733 TAD I 6533 /16506-1733 O[
016507 7640 SZA CLA /16507-7640 >
016510 5677 JMP I 6477 /16510-5677 .?
016511 4766 JMS I 6566 /16511-4766 '6
016512 0012 AND 0012 /16512-0012 @J
016513 0000 AND 0000 /16513-0000 @@
016514 0000 AND 0000 /16514-0000 @@
016515 0000 AND 0000 /16515-0000 @@
016516 5765 JMP I 6565 /16516-5765 /5
016517 1314 TAD 6514 /16517-1314 KL
016520 3733 DCA I 6533 /16520-3733 _[
016521 1333 TAD 6533 /16521-1333 K[
016522 0367 AND 6567 /16522-0367 C7
016523 7650 SNA CLA /16523-7650 >(
016524 5677 JMP I 6477 /16524-5677 .?
016525 2333 ISZ 6533 /16525-2333 S[
016526 1364 TAD 6564 /16526-1364 K4
016527 4200 JMS 6400 /16527-4200 "@
016530 6211 CDF 10 /16530-6211 2I
016531 0023 AND 0023 /16531-0023 @S
016532 6211 CDF 10 /16532-6211 2I
016533 7600 7600 /16533-7600 >@
016534 5677 JMP I 6477 /16534-5677 .?
016535 1363 TAD 6563 /16535-1363 K3
016536 4762 JMS I 6562 /16536-4762 '2
016537 6201 CDF 0 /16537-6201 2A
016540 1761 TAD I 6561 /16540-1761 O1
016541 6211 CDF 10 /16541-6211 2I
016542 3760 DCA I 6560 /16542-3760 _0
016543 7201 CLA IAC /16543-7201 :A
016544 3774 DCA I 6574 /16544-3774 _<
016545 1357 TAD 6557 /16545-1357 K/
016546 3756 DCA I 6556 /16546-3756 _.
016547 1357 TAD 6557 /16547-1357 K/
016550 3755 DCA I 6555 /16550-3755 _-
016551 1354 TAD 6554 /16551-1354 K,
016552 5753 JMP I 6553 /16552-5753 /+
016553 2507 ISZ I 0107 /16553-2507 UG
016554 7252 CLA CMA RTR /16554-7252 :*
016555 7643 CLA DAD /16555-7643 >#
016556 7644 SZA CLA OSR /16556-7644 >$
016557 0020 AND 0020 /16557-0020 @P
016560 7620 SNL CLA /16560-7620 >P
016561 7422 SNL HLT /16561-7422 <R
016562 4647 JMS I 6447 /16562-4647 &'
016563 7773 MQA MQL CLA DPIC /16563-7773 ?;
016564 7774 SPA SNA SZL CLA OSR /16564-7774 ?<
016565 5223 JMP 6423 /16565-5223 *S
016566 0200 AND 6400 /16566-0200 B@
016567 0005 AND 0005 /16567-0005 @E
016570 2553 ISZ I 0153 /16570-2553 U+
016571 0171 AND 0171 /16571-0171 A9
016572 7646 SZA CLA OSR HLT /16572-7646 >&
016573 2135 ISZ 0135 /16573-2135 Q]
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-64
016574 7617 CLA LSR /16574-7617 >O
016575 6254 SINT /16575-6254 2,
016576 5124 JMP 0124 /16576-5124 )T
016577 6003 SRQ /16577-6003 0C
6600 PAGE
016600 0000 AND 0000 /16600-0000 @@
016601 1600 TAD I 6600 /16601-1600 N@
016602 3234 DCA 6634 /16602-3234 Z\
016603 2200 ISZ 6600 /16603-2200 R@
016604 6214 RDF /16604-6214 2L
016605 1377 TAD 6777 /16605-1377 K?
016606 3230 DCA 6630 /16606-3230 ZX
016607 4471 JMS I X8JMP1 /16607-4471 $9
016610 1230 TAD 6630 /16610-1230 JX
016611 3232 DCA 6632 /16611-3232 ZZ
016612 4465 JMS I RSW10 /16612-4465 $5
016613 0111 AND K100 /16613-0111 AI
016614 7640 SZA CLA /16614-7640 >
016615 5232 JMP 6632 /16615-5232 *Z
016616 4453 JMS I MSG10 /16616-4453 $+
016617 7264 INSERR /16617-7264 :4
016620 1376 TAD 6776 /16620-1376 K>
016621 3775 DCA I 6775 /16621-3775 _=
016622 4453 JMS I MSG10 /16622-4453 $+
016623 7554 FLDXX /16623-7554 =,
016624 4454 JMS I MSG01 /16624-4454 $,
016625 7546 PC /16625-7546 =&
016626 1002 TAD PC1 /16626-1002 HB
016627 4462 JMS I DIGI10 /16627-4462 $2
016630 6203 CIF CDF 0 /16630-6203 2C
016631 5600 JMP I 6600 /16631-5600 .@
016632 6203 CIF CDF 0 /16632-6203 2C
016633 5634 JMP I 6634 /16633-5634 .\
016634 0000 AND 0000 /16634-0000 @@
016635 0000 AND 0000 /16635-0000 @@
016636 7344 CLA CLL CMA RAL /16636-7344 ;$
016637 1235 TAD 6635 /16637-1235 J]
016640 3307 DCA 6707 /16640-3307 [G
016641 1707 TAD I 6707 /16641-1707 OG
016642 3307 DCA 6707 /16642-3307 [G
016643 1635 TAD I 6635 /16643-1635 N]
016644 3306 DCA 6706 /16644-3306 [F
016645 2235 ISZ 6635 /16645-2235 R]
016646 1015 TAD 0015 /16646-1015 HM
016647 7640 SZA CLA /16647-7640 >
016650 5254 JMP 6654 /16650-5254 *,
016651 2015 ISZ 0015 /16651-2015 PM
016652 2036 ISZ 0036 /16652-2036 P^
016653 5303 JMP 6703 /16653-5303 +C
016654 1036 TAD 0036 /16654-1036 H^
016655 7104 CLL RAL /16655-7104 9D
016656 3036 DCA 0036 /16656-3036 X^
016657 1035 TAD 0035 /16657-1035 H]
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-65
016660 7004 RAL /16660-7004 8D
016661 3035 DCA 0035 /16661-3035 X]
016662 1034 TAD 0034 /16662-1034 H\
016663 7004 RAL /16663-7004 8D
016664 3034 DCA 0034 /16664-3034 X\
016665 1033 TAD FLS10 /16665-1033 H[
016666 7004 RAL /16666-7004 8D
016667 3033 DCA FLS10 /16667-3033 X[
016670 1023 TAD 0023 /16670-1023 HS
016671 7004 RAL /16671-7004 8D
016672 3023 DCA 0023 /16672-3023 XS
016673 1023 TAD 0023 /16673-1023 HS
016674 7500 SMA /16674-7500 =@
016675 5302 JMP 6702 /16675-5302 +B
016676 7300 CLA CLL /16676-7300 ;@
016677 3015 DCA 0015 /16677-3015 XM
016700 3023 DCA 0023 /16700-3023 XS
016701 5635 JMP I 6635 /16701-5635 .]
016702 0374 AND 6774 /16702-0374 C<
016703 1306 TAD 6706 /16703-1306 KF
016704 3032 DCA FMS10 /16704-3032 XZ
016705 5707 JMP I 6707 /16705-5707 /G
016706 0000 AND 0000 /16706-0000 @@
016707 0000 AND 0000 /16707-0000 @@
016710 0000 AND 0000 /16710-0000 @@
016711 7344 CLA CLL CMA RAL /16711-7344 ;$
016712 1310 TAD 6710 /16712-1310 KH
016713 3307 DCA 6707 /16713-3307 [G
016714 1707 TAD I 6707 /16714-1707 OG
016715 3307 DCA 6707 /16715-3307 [G
016716 1031 TAD 0031 /16716-1031 HY
016717 7104 CLL RAL /16717-7104 9D
016720 7420 SNL /16720-7420 <P
016721 5323 JMP 6723 /16721-5323 +S
016722 5327 JMP 6727 /16722-5327 +W
016723 7450 SNA /16723-7450 <(
016724 7001 IAC /16724-7001 8A
016725 3031 DCA 0031 /16725-3031 XY
016726 5707 JMP I 6707 /16726-5707 /G
016727 3031 DCA 0031 /16727-3031 XY
016730 5710 JMP I 6710 /16730-5710 /H
016731 0000 AND 0000 /16731-0000 @@
016732 1373 TAD 6773 /16732-1373 K;
016733 3010 DCA 0010 /16733-3010 XH
016734 1372 TAD 6772 /16734-1372 K:
016735 3011 DCA 0011 /16735-3011 XI
016736 6201 CDF 0 /16736-6201 2A
016737 3410 DCA I 0010 /16737-3410 \H
016740 1371 TAD 6771 /16740-1371 K9
016741 3410 DCA I 0010 /16741-3410 \H
016742 2010 ISZ 0010 /16742-2010 PH
016743 2010 ISZ 0010 /16743-2010 PH
016744 2010 ISZ 0010 /16744-2010 PH
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-66
016745 1016 TAD 0016 /16745-1016 HN
016746 3411 DCA I 0011 /16746-3411 \I
016747 1017 TAD 0017 /16747-1017 HO
016750 3411 DCA I 0011 /16750-3411 \I
016751 4770 JMS I 6770 /16751-4770 '8
016752 6211 CDF 10 /16752-6211 2I
016753 5731 JMP I 6731 /16753-5731 /Y
016754 0000 AND 0000 /16754-0000 @@
016755 1122 TAD 0122 /16755-1122 IR
016756 3020 DCA 0020 /16756-3020 XP
016757 1367 TAD 6767 /16757-1367 K7
016760 3010 DCA 0010 /16760-3010 XH
016761 1366 TAD 6766 /16761-1366 K6
016762 3410 DCA I 0010 /16762-3410 \H
016763 2020 ISZ 0020 /16763-2020 PP
016764 5361 JMP 6761 /16764-5361 +1
016765 5754 JMP I 6754 /16765-5754 /,
016766 4001 JMS 0001 /16766-4001 A
016767 5377 JMP 6777 /16767-5377 +?
016770 7000 NOP /16770-7000 8@
016771 0050 AND 0050 /16771-0050 @(
016772 5337 JMP 6737 /16772-5337 +_
016773 0023 AND 0023 /16773-0023 @S
016774 3777 DCA I 6777 /16774-3777 _?
016775 7557 MQA SAM /16775-7557 =/
016776 6061 6061 /16776-6061 01
016777 6203 CIF CDF 0 /16777-6203 2C
7000 PAGE
017000 0000 AND 0000 /17000-0000 @@
017001 1031 TAD 0031 /17001-1031 HY
017002 3410 DCA I 0010 /17002-3410 \H
017003 1031 TAD 0031 /17003-1031 HY
017004 3411 DCA I 0011 /17004-3411 \I
017005 1032 TAD FMS10 /17005-1032 HZ
017006 3410 DCA I 0010 /17006-3410 \H
017007 1032 TAD FMS10 /17007-1032 HZ
017010 3411 DCA I 0011 /17010-3411 \I
017011 1033 TAD FLS10 /17011-1033 H[
017012 3410 DCA I 0010 /17012-3410 \H
017013 1033 TAD FLS10 /17013-1033 H[
017014 3411 DCA I 0011 /17014-3411 \I
017015 1034 TAD 0034 /17015-1034 H\
017016 3410 DCA I 0010 /17016-3410 \H
017017 1034 TAD 0034 /17017-1034 H\
017020 3411 DCA I 0011 /17020-3411 \I
017021 1035 TAD 0035 /17021-1035 H]
017022 3410 DCA I 0010 /17022-3410 \H
017023 1035 TAD 0035 /17023-1035 H]
017024 3411 DCA I 0011 /17024-3411 \I
017025 1036 TAD 0036 /17025-1036 H^
017026 3410 DCA I 0010 /17026-3410 \H
017027 1036 TAD 0036 /17027-1036 H^
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-67
017030 3411 DCA I 0011 /17030-3411 \I
017031 5600 JMP I 7000 /17031-5600 .@
017032 0000 AND 0000 /17032-0000 @@
017033 1245 TAD 7045 /17033-1245 J%
017034 3010 DCA 0010 /17034-3010 XH
017035 3023 DCA 0023 /17035-3023 XS
017036 3015 DCA 0015 /17036-3015 XM
017037 1246 TAD 7046 /17037-1246 J&
017040 3011 DCA 0011 /17040-3011 XI
017041 3410 DCA I 0010 /17041-3410 \H
017042 2011 ISZ 0011 /17042-2011 PI
017043 5241 JMP 7041 /17043-5241 *!
017044 5632 JMP I 7032 /17044-5632 .Z
017045 0030 AND 0030 /17045-0030 @X
017046 7772 SPA SNA SZL CLA HLT /17046-7772 ?:
017047 0000 AND 0000 /17047-0000 @@
017050 7340 CLA CLL CMA /17050-7340 ;
017051 1110 TAD K40 /17051-1110 IH
017052 3010 DCA 0010 /17052-3010 XH
017053 1123 TAD 0123 /17053-1123 IS
017054 3011 DCA 0011 /17054-3011 XI
017055 6201 CDF 0 /17055-6201 2A
017056 3410 DCA I 0010 /17056-3410 \H
017057 2011 ISZ 0011 /17057-2011 PI
017060 5256 JMP 7056 /17060-5256 *.
017061 1076 TAD 0076 /17061-1076 H>
017062 3422 DCA I 0022 /17062-3422 \R
017063 6211 CDF 10 /17063-6211 2I
017064 3036 DCA 0036 /17064-3036 X^
017065 5647 JMP I 7047 /17065-5647 .'
017066 0000 AND 0000 /17066-0000 @@
017067 1666 TAD I 7066 /17067-1666 N6
017070 3272 DCA 7072 /17070-3272 Z:
017071 4473 JMS I 0073 /17071-4473 $;
017072 0000 AND 0000 /17072-0000 @@
017073 1110 TAD K40 /17073-1110 IH
017074 3022 DCA 0022 /17074-3022 XR
017075 1123 TAD 0123 /17075-1123 IS
017076 3014 DCA 0014 /17076-3014 XL
017077 2266 ISZ 7066 /17077-2266 R6
017100 5666 JMP I 7066 /17100-5666 .6
017101 0000 AND 0000 /17101-0000 @@
017102 1310 TAD 7110 /17102-1310 KH
017103 7041 CMA IAC /17103-7041 8!
017104 1311 TAD 7111 /17104-1311 KI
017105 7041 CMA IAC /17105-7041 8!
017106 3141 DCA F1CNT /17106-3141 Y!
017107 5701 JMP I 7101 /17107-5701 /A
017110 3600 DCA I 7000 /17110-3600 ^@
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-68
017111 5016 JMP 0016 /17111-5016 (N
017112 4024 TESTXX, JMS 0024 /17112-4024 T
017113 0523 AND I 0123 /17113-0523 ES
017114 2440 ISZ I 0040 /17114-2440 T
017115 3030 DCA 0030 /17115-3030 XX
017116 0000 AND 0000 /17116-0000 @@
017117 0530 EMLLLL, AND I 0130 /17117-0530 EX
017120 2040 ISZ 0040 /17120-2040 P
017121 4015 JMS 0015 /17121-4015 M
017122 2327 ISZ 7127 /17122-2327 SW
017123 4040 JMS 0040 /17123-4040
017124 1423 TAD I 0023 /17124-1423 LS
017125 2760 ISZ I 7160 /17125-2760 W0
017126 4014 JMS 0014 /17126-4014 L
017127 2327 ISZ 7127 /17127-2327 SW
017130 6140 6140 /17130-6140 1
017131 1423 TAD I 0023 /17131-1423 LS
017132 2762 ISZ I 7162 /17132-2762 W2
017133 4014 JMS 0014 /17133-4014 L
017134 2327 ISZ 7127 /17134-2327 SW
017135 6300 6300 /17135-6300 3@
017136 3722 RANARG, DCA I 7122 /17136-3722 _R
017137 0116 AND 0116 /17137-0116 AN
017140 4016 JMS 0016 /17140-4016 N
017141 2515 ISZ I 0115 /17141-2515 UM
017142 4001 JMS 0001 /17142-4001 A
017143 2207 ISZ 7007 /17143-2207 RG
017144 4040 JMS 0040 /17144-4040
017145 0000 AND 0000 /17145-0000 @@
017146 3702 BADARG, DCA I 7102 /17146-3702 _B
017147 0104 AND 0104 /17147-0104 AD
017150 4022 JMS 0022 /17150-4022 R
017151 0523 AND I 0123 /17151-0523 ES
017152 4001 JMS 0001 /17152-4001 A
017153 2207 ISZ 7007 /17153-2207 RG
017154 4040 JMS 0040 /17154-4040
017155 0000 AND 0000 /17155-0000 @@
017156 1523 MSWLSW, TAD I 0123 /17156-1523 MS
017157 2740 ISZ I 7140 /17157-2740 W
017160 4014 JMS 0014 /17160-4014 L
017161 2327 ISZ 7127 /17161-2327 SW
017162 0000 AND 0000 /17162-0000 @@
017163 3701 ACTAPT, DCA I 7101 /17163-3701 _A
017164 0324 AND 7124 /17164-0324 CT
017165 2501 ISZ I 0101 /17165-2501 UA
017166 1440 TAD I 0040 /17166-1440 L
017167 0120 AND 0120 /17167-0120 AP
017170 2440 ISZ I 0040 /17170-2440 T
017171 0116 AND 0116 /17171-0116 AN
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-69
017172 0440 AND I 0040 /17172-0440 D
017173 2324 ISZ 7124 /17173-2324 ST
017174 0124 AND 0124 /17174-0124 AT
017175 2523 ISZ I 0123 /17175-2523 US
017176 7240 CLA CMA /17176-7240 :
017177 0000 AND 0000 /17177-0000 @@
7200 PAGE
017200 1122 IR0TO7, TAD 0122 /17200-1122 IR
017201 6040 TFL /17201-6040 0
017202 4011 JMS 0011 /17202-4011 I
017203 2261 ISZ 7261 /17203-2261 R1
017204 4040 JMS 0040 /17204-4040
017205 1122 TAD 0122 /17205-1122 IR
017206 6240 6240 /17206-6240 2
017207 4011 JMS 0011 /17207-4011 I
017210 2263 ISZ 7263 /17210-2263 R3
017211 4040 JMS 0040 /17211-4040
017212 1122 TAD 0122 /17212-1122 IR
017213 6440 6440 /17213-6440 4
017214 4011 JMS 0011 /17214-4011 I
017215 2265 ISZ 7265 /17215-2265 R5
017216 4040 JMS 0040 /17216-4040
017217 1122 TAD 0122 /17217-1122 IR
017220 6640 6640 /17220-6640 6
017221 4011 JMS 0011 /17221-4011 I
017222 2267 ISZ 7267 /17222-2267 R7
017223 3700 DCA I 7300 /17223-3700 _@
017224 2324 STAT, ISZ 7324 /17224-2324 ST
017225 0124 AND 0124 /17225-0124 AT
017226 2523 ISZ I 0123 /17226-2523 US
017227 7200 CLA /17227-7200 :@
017230 4006 FAILUR, JMS 0006 /17230-4006 F
017231 0111 AND 0111 /17231-0111 AI
017232 1425 TAD I 0025 /17232-1425 LU
017233 2205 ISZ 7205 /17233-2205 RE
017234 7200 CLA /17234-7200 :@
017235 4021 QUICKV, JMS 0021 /17235-4021 Q
017236 2511 ISZ I 0111 /17236-2511 UI
017237 0313 AND 7313 /17237-0313 CK
017240 4026 JMS 0026 /17240-4026 V
017241 0522 AND I 0122 /17241-0522 ER
017242 1106 TAD 0106 /17242-1106 IF
017243 3100 DCA 0100 /17243-3100 Y@
017244 3722 RANNUM, DCA I 7322 /17244-3722 _R
017245 0116 AND 0116 /17245-0116 AN
017246 4016 JMS 0016 /17246-4016 N
017247 2515 ISZ I 0115 /17247-2515 UM
017250 4001 JMS 0001 /17250-4001 A
017251 2207 ISZ 7207 /17251-2207 RG
017252 6240 6240 /17252-6240 2
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-70
017253 0000 AND 0000 /17253-0000 @@
017254 0620 DATAEX, AND I 7220 /17254-0620 FP
017255 2055 ISZ 0055 /17255-2055 P-
017256 7001 IAC /17256-7001 8A
017257 4004 JMS 0004 /17257-4004 D
017260 0124 AND 0124 /17260-0124 AT
017261 0140 AND 0140 /17261-0140 A
017262 0530 AND I 0130 /17262-0530 EX
017263 5600 JMP I 7200 /17263-5600 .@
017264 3706 INSERR, DCA I 7306 /17264-3706 _F
017265 2020 ISZ 0020 /17265-2020 PP
017266 5570 JMP I 0170 /17266-5570 -8
017267 0140 AND 0140 /17267-0140 A
017270 1116 TAD 0116 /17270-1116 IN
017271 2324 ISZ 7324 /17271-2324 ST
017272 2240 ISZ 7240 /17272-2240 R
017273 2405 ISZ I 0005 /17273-2405 TE
017274 2324 ISZ 7324 /17274-2324 ST
017275 4006 JMS 0006 /17275-4006 F
017276 0111 AND 0111 /17276-0111 AI
017277 1405 TAD I 0005 /17277-1405 LE
017300 0440 AND I 0040 /17300-0440 D
017301 4040 JMS 0040 /17301-4040
017302 0000 AND 0000 /17302-0000 @@
017303 3705 EXPAPT, DCA I 7305 /17303-3705 _E
017304 3020 DCA 0020 /17304-3020 XP
017305 0503 AND I 0103 /17305-0503 EC
017306 2405 ISZ I 0005 /17306-2405 TE
017307 0440 AND I 0040 /17307-0440 D
017310 0120 AND 0120 /17310-0120 AP
017311 2440 ISZ I 0040 /17311-2440 T
017312 0116 AND 0116 /17312-0116 AN
017313 0440 AND I 0040 /17313-0440 D
017314 2324 ISZ 7324 /17314-2324 ST
017315 0124 AND 0124 /17315-0124 AT
017316 2523 ISZ I 0123 /17316-2523 US
017317 7200 CLA /17317-7200 :@
017320 4042 STATER, JMS 0042 /17320-4042 "
017321 2324 ISZ 7324 /17321-2324 ST
017322 0124 AND 0124 /17322-0124 AT
017323 2523 ISZ I 0123 /17323-2523 US
017324 4005 JMS 0005 /17324-4005 E
017325 2222 ISZ 7222 /17325-2222 RR
017326 4200 JMS 7200 /17326-4200 "@
017327 3714 APTERR, DCA I 7314 /17327-3714 _L
017330 1703 TAD I 7303 /17330-1703 OC
017331 0124 AND 0124 /17331-0124 AT
017332 1117 TAD 0117 /17332-1117 IO
017333 1640 TAD I 7240 /17333-1640 N
017334 0106 AND 0106 /17334-0106 AF
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-71
017335 2405 ISZ I 0005 /17335-2405 TE
017336 2240 ISZ 7240 /17336-2240 R
017337 0120 AND 0120 /17337-0120 AP
017340 2440 ISZ I 0040 /17340-2440 T
017341 1517 TAD I 0117 /17341-1517 MO
017342 0411 AND I 0011 /17342-0411 DI
017343 0611 AND I 7211 /17343-0611 FI
017344 0504 AND I 0104 /17344-0504 ED
017345 3700 DCA I 7300 /17345-3700 _@
017346 4011 INST, JMS 0011 /17346-4011 I
017347 1623 TAD I 7223 /17347-1623 NS
017350 2472 ISZ I 0072 /17350-2472 T:
017351 0000 AND 0000 /17351-0000 @@
017352 7750 YORN, SPA SNA CLA /17352-7750 ?(
017353 3140 DCA 0140 /17353-3140 Y
017354 1722 TAD I 7322 /17354-1722 OR
017355 4016 JMS 0016 /17355-4016 N
017356 5172 JMP 0172 /17356-5172 ):
017357 0000 AND 0000 /17357-0000 @@
017360 3706 JMPERR, DCA I 7306 /17360-3706 _F
017361 2020 ISZ 0020 /17361-2020 PP
017362 5570 JMP I 0170 /17362-5570 -8
017363 0140 AND 0140 /17363-0140 A
017364 1225 TAD 7225 /17364-1225 JU
017365 1520 TAD I 0120 /17365-1520 MP
017366 4006 JMS 0006 /17366-4006 F
017367 0111 AND 0111 /17367-0111 AI
017370 1405 TAD I 0005 /17370-1405 LE
017371 0440 AND I 0040 /17371-0440 D
017372 0000 AND 0000 /17372-0000 @@
017373 4001 ADDR, JMS 0001 /17373-4001 A
017374 0404 AND I 0004 /17374-0404 DD
017375 2272 ISZ 7272 /17375-2272 R:
017376 0000 AND 0000 /17376-0000 @@
017377 3700 ULINE, DCA I 7300 /17377-3700 _@
7400 PAGE
017400 3711 ILLINT, DCA I 7511 /17400-3711 _I
017401 1414 TAD I 0014 /17401-1414 LL
017402 0507 AND I 0107 /17402-0507 EG
017403 0114 AND 0114 /17403-0114 AL
017404 4011 JMS 0011 /17404-4011 I
017405 1624 TAD I 7424 /17405-1624 NT
017406 0522 AND I 0122 /17406-0522 ER
017407 2225 ISZ 7425 /17407-2225 RU
017410 2024 ISZ 0024 /17410-2024 PT
017411 3700 DCA I 7500 /17411-3700 _@
017412 3706 ISTNOS, DCA I 7506 /17412-3706 _F
017413 2011 ISZ 0011 /17413-2011 PI
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-72
017414 2324 ISZ 7524 /17414-2324 ST
017415 4004 JMS 0004 /17415-4004 D
017416 1104 TAD 0104 /17416-1104 ID
017417 4016 JMS 0016 /17417-4016 N
017420 1724 TAD I 7524 /17420-1724 OT
017421 4023 JMS 0023 /17421-4023 S
017422 1311 TAD 7511 /17422-1311 KI
017423 2037 ISZ 0037 /17423-2037 P_
017424 0000 AND 0000 /17424-0000 @@
017425 5506 FPMOD1, JMP I 0106 /17425-5506 -F
017426 2056 ISZ 0056 /17426-2056 P.
017427 4015 JMS 0015 /17427-4015 M
017430 1704 TAD I 7504 /17430-1704 OD
017431 0537 AND I 0137 /17431-0537 E_
017432 0000 AND 0000 /17432-0000 @@
017433 5504 DPMOD1, JMP I 0104 /17433-5504 -D
017434 2056 ISZ 0056 /17434-2056 P.
017435 4015 JMS 0015 /17435-4015 M
017436 1704 TAD I 7504 /17436-1704 OD
017437 0537 AND I 0137 /17437-0537 E_
017440 0000 AND 0000 /17440-0000 @@
017441 5505 EPMOD1, JMP I 0105 /17441-5505 -E
017442 2056 ISZ 0056 /17442-2056 P.
017443 4015 JMS 0015 /17443-4015 M
017444 1704 TAD I 7504 /17444-1704 OD
017445 0537 AND I 0137 /17445-0537 E_
017446 0000 AND 0000 /17446-0000 @@
017447 2411 TIMO, ISZ I 0011 /17447-2411 TI
017450 1505 TAD I 0105 /17450-1505 ME
017451 4017 JMS 0017 /17451-4017 O
017452 2524 ISZ I 0124 /17452-2524 UT
017453 4000 JMS 0000 /17453-4000 @
017454 4020 PASS, JMS 0020 /17454-4020 P
017455 0123 AND 0123 /17455-0123 AS
017456 2372 ISZ 7572 /17456-2372 S:
017457 0000 AND 0000 /17457-0000 @@
017460 3704 DJFPB, DCA I 7504 /17460-3704 _D
017461 1206 TAD 7406 /17461-1206 JF
017462 2002 ISZ 0002 /17462-2002 PB
017463 7200 CLA /17463-7200 :@
017464 0620 INSTST, AND I 7420 /17464-0620 FP
017465 2055 ISZ 0055 /17465-2055 P-
017466 7001 IAC /17466-7001 8A
017467 4011 JMS 0011 /17467-4011 I
017470 1623 TAD I 7423 /17470-1623 NS
017471 2422 ISZ I 0022 /17471-2422 TR
017472 5640 JMP I 7440 /17472-5640 .
017473 2405 ISZ I 0005 /17473-2405 TE
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-73
017474 2324 ISZ 7524 /17474-2324 ST
017475 0000 AND 0000 /17475-0000 @@
017476 3742 BUCOER, DCA I 7542 /17476-3742 _"
017477 0225 AND 7425 /17477-0225 BU
017500 0606 AND I 7406 /17500-0606 FF
017501 4003 JMS 0003 /17501-4003 C
017502 1715 TAD I 7515 /17502-1715 OM
017503 2001 ISZ 0001 /17503-2001 PA
017504 2205 ISZ 7405 /17504-2205 RE
017505 4005 JMS 0005 /17505-4005 E
017506 2222 ISZ 7422 /17506-2222 RR
017507 1722 TAD I 7522 /17507-1722 OR
017510 4200 JMS 7400 /17510-4200 "@
017511 7401 APTTBL, 7401 /17511-7401 <A
017512 2024 ISZ 0024 /17512-2024 PT
017513 4024 JMS 0024 /17513-4024 T
017514 0102 AND 0102 /17514-0102 AB
017515 1405 TAD I 0005 /17515-1405 LE
017516 7600 7600 /17516-7600 >@
017517 1417 LOCS, TAD I 0017 /17517-1417 LO
017520 0372 AND 7572 /17520-0372 C:
017521 0000 AND 0000 /17521-0000 @@
017522 7500 EQTXT, SMA /17522-7500 =@
017523 3722 RUNING, DCA I 7522 /17523-3722 _R
017524 2516 ISZ I 0116 /17524-2516 UN
017525 1611 TAD I 7411 /17525-1611 NI
017526 1607 TAD I 7407 /17526-1607 NG
017527 4000 JMS 0000 /17527-4000 @
017530 3705 EXPBAS, DCA I 7505 /17530-3705 _E
017531 3020 DCA 0020 /17531-3020 XP
017532 4002 JMS 0002 /17532-4002 B
017533 0123 AND 0123 /17533-0123 AS
017534 0540 AND I 0140 /17534-0540 E
017535 2205 ISZ 7405 /17535-2205 RE
017536 2325 ISZ 7525 /17536-2325 SU
017537 1424 TAD I 0024 /17537-1424 LT
017540 2337 ISZ 7537 /17540-2337 S_
017541 0000 AND 0000 /17541-0000 @@
017542 3701 ACTBAS, DCA I 7501 /17542-3701 _A
017543 0324 AND 7524 /17543-0324 CT
017544 4002 JMS 0002 /17544-4002 B
017545 0123 AND 0123 /17545-0123 AS
017546 0540 AND I 0140 /17546-0540 E
017547 2205 ISZ 7405 /17547-2205 RE
017550 2325 ISZ 7525 /17550-2325 SU
017551 1424 TAD I 0024 /17551-1424 LT
017552 2337 ISZ 7537 /17552-2337 S_
017553 0000 AND 0000 /17553-0000 @@
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-74
017554 0611 FLDXX, AND I 7411 /17554-0611 FI
017555 0514 AND I 0114 /17555-0514 EL
017556 0440 AND I 0040 /17556-0440 D
017557 3030 XXFLD, DCA 0030 /17557-3030 XX
017560 4000 JMS 0000 /17560-4000 @
017561 4022 RELOCT, JMS 0022 /17561-4022 R
017562 0514 AND I 0114 /17562-0514 EL
017563 1703 TAD I 7503 /17563-1703 OC
017564 0000 AND 0000 /17564-0000 @@
017565 7775 MQA MQL CLA DCM /17565-7775 ?=
017566 6737 6737 /17566-6737 7_
017567 0017 AND 0017 /17567-0017 @O
017570 7617 CLA LSR /17570-7617 >O
017571 0200 AND 7400 /17571-0200 B@
017572 5200 JMP 7400 /17572-5200 *@
017573 2553 ISZ I 0153 /17573-2553 U+
017574 4647 JMS I 7447 /17574-4647 &'
017575 3737 DCA I 7537 /17575-3737 __
017576 6022 6022 /17576-6022 0R
017577 2600 ISZ I 7400 /17577-2600 V@
0000 FIELD 0
0000 *0000
000000 0303 303 /00000-0303 CC
000001 5402 JMP I INT /00001-5402 ,B
000002 0300 INT, INTRPT /00002-0300 C@
000003 0000 CDF10, AND 0000 /00003-0000 @@
000004 0000 CIF10, AND 0000 /00004-0000 @@
000005 0000 NOEX, AND 0000 /00005-0000 @@
000006 0302 302 /00006-0302 CB
000007 0000 AND 0000 /00007-0000 @@
000010 0000 AND 0000 /00010-0000 @@
000011 0000 AND 0000 /00011-0000 @@
000012 0000 AND 0000 /00012-0000 @@
000013 0000 AND 0000 /00013-0000 @@
000014 0000 AND 0000 /00014-0000 @@
000015 0000 AND 0000 /00015-0000 @@
000016 0000 AND 0000 /00016-0000 @@
000017 0000 AND 0000 /00017-0000 @@
000020 0000 SW, AND 0000 /00020-0000 @@ /SOFTWARE SWITCH
000021 0007 SOFT, AND 0007 /00021-0007 @G /NEG HARDWARE SWITCH
000022 0000 MODEX8, AND 0000 /00022-0000 @@
000023 0151 AND 0151 /00023-0151 A)
000024 0000 APT, AND 0000 /00024-0000 @@
000025 5400 FPC, 5400 /00025-5400 ,@
000026 0040 INDXAD, INDEX /00026-0040 @
000027 6000 BASEAD, BASE0 /00027-6000 0@
000030 0000 OPADD, 0000 /00030-0000 @@
000031 0000 FAC, AND 0000 /00031-0000 @@
000032 0000 FMS, AND 0000 /00032-0000 @@
000033 0000 FLS, AND 0000 /00033-0000 @@
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-75
000034 0000 AND 0000 /00034-0000 @@
000035 0000 AND 0000 /00035-0000 @@
000036 0000 AND 0000 /00036-0000 @@
000037 7777 MQA MQL CLA SAM /00037-7777 ??
000040 0000 INDEX, AND 0000 /00040-0000 @@
000041 0000 AND 0000 /00041-0000 @@
000042 0000 AND 0000 /00042-0000 @@
000043 0000 AND 0000 /00043-0000 @@
000044 0000 AND 0000 /00044-0000 @@
000045 0000 AND 0000 /00045-0000 @@
000046 0000 AND 0000 /00046-0000 @@
000047 0000 AND 0000 /00047-0000 @@
000050 0000 AND 0000 /00050-0000 @@
000051 0000 AND 0000 /00051-0000 @@
000052 4000 JMS 0000 /00052-4000 @
000053 4000 JMS 0000 /00053-4000 @
000054 4000 JMS 0000 /00054-4000 @
000055 3000 MES, MESG /00055-3000 X@
000056 3145 MES10, MESG10 /00056-3145 Y%
000057 0217 XGO, GO /00057-0217 BO
000060 6543 VT, VTAB /00060-6543 5#
000061 3106 PUN, PUNCH /00061-3106 YF
000062 3135 RDECHO, READEC /00062-3135 Y]
000063 7273 GETSW, SWGET /00063-7273 :;
000064 6600 LPBCK, LOOP /00064-6600 6@
000065 7304 DIGS, DIGITS /00065-7304 ;D
000066 2610 F0, F0000 /00066-2610 VH
000067 2616 F7, F7777 /00067-2616 VN
000070 2625 F25, F2525 /00070-2625 VU
000071 2634 F52, F5252 /00071-2634 V\
000072 2643 FXX, FXXXX /00072-2643 V#
000073 2701 TSTIT, TEST /00073-2701 WA
000074 7000 CHKIT, CHECK /00074-7000 8@
000075 2653 CLEARX, CLINDX /00075-2653 V+
000076 7200 CTCG, CTRLCG /00076-7200 :@
000077 7225 CTQS, CTRLQS /00077-7225 :U
000100 7341 INIT0, I0 /00100-7341 ;!
000101 6633 CHKBP, CHECKB /00101-6633 6[
000102 3115 READCH, READC /00102-3115 YM
000103 3534 DCA I 0134 /00103-3534 ]\
000104 3562 X8, CHKX8 /00104-3562 ]2
000105 0001 C1, 1 /00105-0001 @A
000106 0002 C2, 2 /00106-0002 @B
000107 0004 C4, 4 /00107-0004 @D
000110 0007 C7, 7 /00110-0007 @G
000111 0010 C10, 10 /00111-0010 @H
000112 0020 AND 0020 /00112-0020 @P
000113 0024 XAPT, APT /00113-0024 @T
000114 0040 C40, 40 /00114-0040 @
000115 0070 C70, 70 /00115-0070 @8
000116 0100 C100, 100 /00116-0100 A@
000117 0200 C200, 200 /00117-0200 B@
000120 0240 C240, 240 /00120-0240 B
000121 0260 C260, 260 /00121-0260 B0
000122 0277 C277, 277 /00122-0277 B?
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-76
000123 0777 777 /00123-0777 G?
000124 1000 TAD 0000 /00124-1000 H@
000125 2000 ISZ 0000 /00125-2000 P@
000126 2525 C2525, 2525 /00126-2525 UU
000127 7000 NOP /00127-7000 8@
000130 5252 C5252, 5252 /00130-5252 **
000131 7700 SMA CLA /00131-7700 ?@
000132 7774 M4, SPA SNA SZL CLA OSR /00132-7774 ?<
000133 0400 GOI, TESTI /00133-0400 D@
000134 0241 GO1, RECOVR /00134-0241 B!
000135 0000 AND 0000 /00135-0000 @@
000136 0000 AND 0000 /00136-0000 @@
000137 0000 CHTMP, AND 0000 /00137-0000 @@
000140 0000 INCHAR, 0000 /00140-0000 @@
000141 0000 DPMODE, AND 0000 /00141-0000 @@
000142 0000 FBITS, AND 0000 /00142-0000 @@
000143 0000 EPMODE, AND 0000 /00143-0000 @@
000144 0215 FUNC, 215 /00144-0215 BM
000145 0000 PCLOC, AND 0000 /00145-0000 @@
000146 0000 AND 0000 /00146-0000 @@
000147 0000 COUNT, AND 0000 /00147-0000 @@
000150 0000 AND 0000 /00150-0000 @@
000151 0000 AND 0000 /00151-0000 @@
000152 0000 AND 0000 /00152-0000 @@
000153 0000 AND 0000 /00153-0000 @@
000154 0000 AND 0000 /00154-0000 @@
000155 7770 SPA SNA SZL CLA /00155-7770 ?8
000156 0000 GTFLG, AND 0000 /00156-0000 @@
000157 0000 AND 0000 /00157-0000 @@
000160 0000 AND 0000 /00160-0000 @@
000161 0000 AND 0000 /00161-0000 @@
000162 0000 ACSAV, AND 0000 /00162-0000 @@
000163 0000 AND 0000 /00163-0000 @@
000164 0004 AND 0004 /00164-0004 @D
000165 0077 AND 0077 /00165-0077 @?
000166 7772 SPA SNA SZL CLA HLT /00166-7772 ?:
000167 7746 SMA SZA CLA OSR HLT /00167-7746 ?&
000170 7477 MQL SAM /00170-7477 <?
000171 7766 SMA SZA SNL CLA OSR HLT /00171-7766 ?6
000172 7776 SPA SNA SZL CLA OSR HLT /00172-7776 ?>
000173 7522 SMA SNL HLT /00173-7522 =R
000174 0240 240 /00174-0240 B
000175 7540 SMA SZA /00175-7540 =
000176 0000 INTLOC, AND 0000 /00176-0000 @@
000177 0000 AND 0000 /00177-0000 @@
0200 PAGE
000200 6007 STRT, CAF /00200-6007 0G
000201 6002 IOF /00201-6002 0B
000202 6203 CIF CDF 0 /00202-6203 2C
000203 4500 JMS I INIT0 /00203-4500 %@
000204 1377 STRTO, TAD (JMP I GO1 /00204-1377 K?
000205 3000 DCA 0000 /00205-3000 X@
000206 1022 TAD MODEX8 /00206-1022 HR
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-77
000207 7710 SPA CLA /00207-7710 ?H
000210 5776 JMP I (GO2 /00210-5776 />
000211 4455 JMS I MES /00211-4455 $-
000212 7366 LINE1 /00212-7366 ;6
000213 4455 JMS I MES /00213-4455 $-
000214 7411 PRODUC /00214-7411 <I
000215 4464 JMS I LPBCK /00215-4464 $4
000216 0217 GO /00216-0217 BO
000217 6007 GO, CAF /00217-6007 0G
000220 6203 CIF CDF 0 /00220-6203 2C
000221 3005 DCA NOEX /00221-3005 XE
000222 4500 JMS I INIT0 /00222-4500 %@
000223 3775 DCA I (541 /00223-3775 _=
000224 6211 CDF 10 /00224-6211 2I
000225 3406 DCA I 0006 /00225-3406 \F
000226 6201 CDF 0 /00226-6201 2A
000227 4455 JMS I MES /00227-4455 $-
000230 7423 TYPEI /00230-7423 <S
000231 4455 JMS I MES /00231-4455 $-
000232 7446 TYPEE /00232-7446 <&
000233 4455 JMS I MES /00233-4455 $-
000234 7470 TYPEB /00234-7470 <8
000235 1374 TAD ("* /00235-1374 K<
000236 4461 JMS I PUN /00236-4461 $1
000237 4462 JMS I RDECHO /00237-4462 $2
000240 3144 DCA FUNC /00240-3144 Y$
000241 7300 RECOVR, CLA CLL /00241-7300 ;@
000242 1377 TAD (JMP I GO1 /00242-1377 K?
000243 3000 DCA 0000 /00243-3000 X@
000244 1144 TAD FUNC /00244-1144 I$
000245 1373 TAD (-215 /00245-1373 K;
000246 7640 SZA CLA /00246-7640 >
000247 5253 JMP NCR /00247-5253 *+
000250 2772 ISZ I (RELDON /00250-2772 W:
000251 4460 JMS I VT /00251-4460 $0
000252 5533 JMP I GOI /00252-5533 -[
000253 1144 NCR, TAD FUNC /00253-1144 I$
000254 1371 TAD (-"I /00254-1371 K9
000255 7640 SZA CLA /00255-7640 >
000256 5261 JMP NI /00256-5261 *1
000257 2005 ISZ NOEX /00257-2005 PE
000260 5533 JMP I GOI /00260-5533 -[
000261 1144 NI, TAD FUNC /00261-1144 I$
000262 1370 TAD (-"B /00262-1370 K8
000263 7650 SNA CLA /00263-7650 >(
000264 5276 JMP YB /00264-5276 *>
000265 1144 TAD FUNC /00265-1144 I$
000266 1367 TAD (-"E /00266-1367 K7
000267 7640 SZA CLA /00267-7640 >
000270 5217 JMP GO /00270-5217 *O
000271 4460 JMS I VT /00271-4460 $0
000272 2005 ISZ NOEX /00272-2005 PE
000273 4766 JMS I (GOE /00273-4766 '6
000274 6213 CIF CDF 10 /00274-6213 2K
000275 5200 JMP STRT10 /00275-5200 *@
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-78
000276 4766 YB, JMS I (GOE /00276-4766 '6
000277 5533 JMP I GOI /00277-5533 -[
000300 4765 INTRPT, JMS I (RSAV /00300-4765 '5
000301 6004 GTF /00301-6004 0D
000302 3156 DCA GTFLG /00302-3156 Y.
000303 6102 6102 /00303-6102 1B
000304 7410 SKP /00304-7410 <H
000305 5764 JMP I (PWRSKP /00305-5764 /4
000306 6031 KSF /00306-6031 0Y
000307 5316 JMP NKBD /00307-5316 +N
000310 6036 KRB /00310-6036 0^
000311 0363 AND (177 /00311-0363 C3
000312 1117 TAD C200 /00312-1117 IO
000313 3140 DCA INCHAR /00313-3140 Y
000314 4476 JMS I CTCG /00314-4476 $>
000315 5335 JMP INTEND /00315-5335 +]
000316 6551 NKBD, FPINT /00316-6551 5)
000317 5322 JMP .+3 /00317-5322 +R
000320 6213 CIF CDF 10 /00320-6213 2K
000321 5762 JMP I (INTRP1 /00321-5762 /2
000322 6041 TSF /00322-6041 0!
000323 5326 JMP NOTTY /00323-5326 +V
000324 6042 TCF /00324-6042 0"
000325 5335 JMP INTEND /00325-5335 +]
000326 1361 NOTTY, TAD (.+4 /00326-1361 K1
000327 3145 DCA PCLOC /00327-3145 Y%
000330 4504 JMS I X8 /00330-4504 %D
000331 4456 JMS I MES10 /00331-4456 $.
000332 7400 ILLINT /00332-7400 <@
000333 6007 CAF /00333-6007 0G
000334 5241 JMP RECOVR /00334-5241 *!
000335 4760 INTEND, JMS I (LDMQ /00335-4760 '0
000336 1156 TAD GTFLG /00336-1156 I.
000337 6005 RTF /00337-6005 0E
000340 7200 CLA /00340-7200 :@
000341 1162 TAD ACSAV /00341-1162 I2
000342 5576 JMP I INTLOC /00342-5576 ->
000343 0000 RUNIT, AND 0000 /00343-0000 @@
000344 1357 TAD (FPC1 /00344-1357 K/
000345 3025 DCA FPC /00345-3025 XU
000346 7330 CLA CLL CML RAR /00346-7330 ;X
000347 3143 DCA EPMODE /00347-3143 Y#
000350 3141 DCA DPMODE /00350-3141 Y!
000351 4756 JMS I 0356 /00351-4756 '.
000352 5743 JMP I RUNIT /00352-5743 /#
000353 0165 AND 0165 /00353-0165 A5
000354 7450 SNA /00354-7450 <(
000355 5752 JMP I 0352 /00355-5752 /*
000356 0600 AND I 0200 /00356-0600 F@
/JMP I 0000 /00357-5400 ,@
/CLA CMA CML IAC /00360-7261 :1
/AND 0332 /00361-0332 CZ
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-79
/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 -\
000357 5400
000360 7261
000361 0332
000362 1000
000363 0177
000364 7266
000365 7250
000366 3400
000367 7473
000370 7476
000371 7467
000372 3454
000373 7563
000374 0252
000375 0541
000376 0401
000377 5534
0400 PAGE
000400 4777 TESTI, JMS I (HEAD1 /00400-4777 '?
000401 1155 GO2, TAD 0155 /00401-1155 I-
000402 3153 DCA 0153 /00402-3153 Y+
000403 7621 MQL CLA /00403-7621 >Q
000404 3142 DCA FBITS /00404-3142 Y"
000405 3157 DCA 0157 /00405-3157 Y/
000406 4343 JMS SETF0 /00406-4343 ##
000407 3157 DCA 0157 /00407-3157 Y/
000410 4776 JMS I (LNK26 /00410-4776 '>
000411 0000 0000 /00411-0000 @@
000412 4775 JMS I (RUNIT /00412-4775 '=
000413 4343 JMS SETF0 /00413-4343 ##
000414 1105 TAD C1 /00414-1105 IE
000415 3142 DCA FBITS /00415-3142 Y"
000416 4776 JMS I (LNK26 /00416-4776 '>
000417 0011 0011 /00417-0011 @I FDWX F=1 X=1
000420 4775 JMS I (RUNIT /00420-4775 '=
000421 4343 JMS SETF0 /00421-4343 ##
000422 1116 TAD C100 /00422-1116 IN
000423 3142 DCA FBITS /00423-3142 Y"
000424 4776 JMS I (LNK26 /00424-4776 '>
000425 0002 0002 /00425-0002 @B DW=1
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-80
000426 4774 JMS I (SETF1 /00426-4774 '<
000427 4775 JMS I (RUNIT /00427-4775 '=
000430 4343 JMS SETF0 /00430-4343 ##
000431 1373 TAD (0101 /00431-1373 K;
000432 3142 DCA FBITS /00432-3142 Y"
000433 4776 JMS I (LNK26 /00433-4776 '>
000434 0000 0000 /00434-0000 @@
000435 4776 JMS I (LNK26 /00435-4776 '>
000436 0013 0013 /00436-0013 @K F=1 DW=1 X=1
000437 4774 JMS I (SETF1 /00437-4774 '<
000440 4775 JMS I (RUNIT /00440-4775 '=
000441 4343 JMS SETF0 /00441-4343 ##
000442 1111 TAD C10 /00442-1111 II
000443 3142 DCA FBITS /00443-3142 Y"
000444 4776 JMS I (LNK26 /00444-4776 '>
000445 0000 0000 /00445-0000 @@
000446 4775 JMS I (RUNIT /00446-4775 '=
000447 4343 JMS SETF0 /00447-4343 ##
000450 1372 TAD (0011 /00450-1372 K:
000451 3142 DCA FBITS /00451-3142 Y"
000452 4776 JMS I (LNK26 /00452-4776 '>
000453 0011 0011 /00453-0011 @I
000454 4775 JMS I (RUNIT /00454-4775 '=
000455 4343 JMS SETF0 /00455-4343 ##
000456 1371 TAD (0110 /00456-1371 K9
000457 3142 DCA FBITS /00457-3142 Y"
000460 4776 JMS I (LNK26 /00460-4776 '>
000461 0002 0002 /00461-0002 @B
000462 4774 JMS I (SETF1 /00462-4774 '<
000463 4775 JMS I (RUNIT /00463-4775 '=
000464 4343 JMS SETF0 /00464-4343 ##
000465 1370 TAD (0111 /00465-1370 K8
000466 3142 DCA FBITS /00466-3142 Y"
000467 4776 JMS I (LNK26 /00467-4776 '>
000470 0000 0000 /00470-0000 @@
000471 4776 JMS I (LNK26 /00471-4776 '>
000472 0013 0013 /00472-0013 @K
000473 4774 JMS I (SETF1 /00473-4774 '<
000474 4775 JMS I (RUNIT /00474-4775 '=
000475 4343 JMS SETF0 /00475-4343 ##
000476 6213 CIF CDF 10 /00476-6213 2K
000477 4742 JMS I 0542 /00477-4742 '"
000500 4767 JMS I (X6500 /00500-4767 '7
000501 2153 2153 /00501-2153 Q+
000502 5203 JMP 0403 /00502-5203 *C
000503 1022 TAD MODEX8 /00503-1022 HR
000504 7710 SPA CLA /00504-7710 ?H
000505 5330 JMP 0530 /00505-5330 +X
000506 2341 ISZ 0541 /00506-2341 S!
000507 7000 NOP /00507-7000 8@
000510 4463 JMS I GETSW /00510-4463 $3
000511 0114 AND C40 /00511-0114 AL
000512 7640 SZA CLA /00512-7640 >
000513 5325 JMP 0525 /00513-5325 +U
000514 4456 JMS I MES10 /00514-4456 $.
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-81
000515 7460 DJFPB /00515-7460 <0
000516 4456 JMS I MES10 /00516-4456 $.
000517 7464 INSTST /00517-7464 <4
000520 4456 JMS I MES10 /00520-4456 $.
000521 7454 PASS /00521-7454 <,
000522 1341 TAD 0541 /00522-1341 K!
000523 4465 JMS I DIGS /00523-4465 $5
000524 4460 JMS I VT /00524-4460 $0
000525 1005 TAD NOEX /00525-1005 HE
000526 7640 SZA CLA /00526-7640 >
000527 5332 JMP 0532 /00527-5332 +Z
000530 6213 CIF CDF 10 /00530-6213 2K
000531 5766 JMP I (STRTO /00531-5766 /6
000532 4463 JMS I GETSW /00532-4463 $3
000533 0365 AND (0400 /00533-0365 C5
000534 7650 SNA CLA /00534-7650 >(
000535 5201 JMP 0401 /00535-5201 *A
000536 4464 JMS I LPBCK /00536-4464 $4
000537 0540 AND I 0140 /00537-0540 E
000540 5200 JMP 0400 /00540-5200 *@
000541 0000 AND 0000 /00541-0000 @@
000542 3400 DCA I 0000 /00542-3400 \@
000543 0000 SETF0, AND 0000 /00543-0000 @@
000544 1364 TAD (CDF 0 /00544-1364 K4
000545 3763 DCA I (CDF1 /00545-3763 _3
000546 1364 TAD (CDF 0 /00546-1364 K4
000547 3762 DCA I (CDF2 /00547-3762 _2
000550 1364 TAD (CDF 0 /00550-1364 K4
000551 3761 DCA I (CDF3 /00551-3761 _1
000552 2157 ISZ 0157 /00552-2157 Q/
000553 6213 CIF CDF 10 /00553-6213 2K
000554 4756 JMS I .+2 /00554-4756 '.
000555 5743 JMP I SETF0 /00555-5743 /#
000556 2327 CLEAR1 /00556-2327 SW
000557 4400 JMS I 0000 /00557-4400 $@
000560 2501 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 ;,
000561 6650
000562 2673
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-82
000563 6703
000564 6201
000565 0400
000566 0204
000567 6500
000570 0111
000571 0110
000572 0011
000573 0101
000574 6730
000575 0343
000576 3553
000577 7354
0600 PAGE
000600 0000 AND 0000 /00600-0000 @@
000601 6552 FPICL /00601-6552 5*
000602 5204 JMP 0604 /00602-5204 *D
000603 5600 JMP I 0600 /00603-5600 .@
000604 4467 JMS I F7 /00604-4467 $7
000605 4473 JMS I TSTIT /00605-4473 $;
000606 5411 5411 /00606-5411 ,I
000607 4474 JMS I CHKIT /00607-4474 $<
000610 3600 3600 /00610-3600 ^@
000611 4464 JMS I LPBCK /00611-4464 $4
000612 0604 0604 /00612-0604 FD
000613 4466 JMS I F0 /00613-4466 $6
000614 1105 TAD C1 /00614-1105 IE
000615 3036 DCA 0036 /00615-3036 X^
000616 4473 JMS I TSTIT /00616-4473 $;
000617 5413 TFNEG /00617-5413 ,K
000620 4474 JMS I CHKIT /00620-4474 $<
000621 3611 3611 /00621-3611 ^I
000622 4464 JMS I LPBCK /00622-4464 $4
000623 0613 0613 /00623-0613 FK
000624 4467 JMS I F7 /00624-4467 $7
000625 4473 JMS I TSTIT /00625-4473 $;
000626 5413 TFNEG /00626-5413 ,K
000627 4474 JMS I CHKIT /00627-4474 $<
000630 3622 3622 /00630-3622 ^R
000631 4464 JMS I LPBCK /00631-4464 $4
000632 0624 0624 /00632-0624 FT
000633 4470 JMS I F25 /00633-4470 $8
000634 4473 JMS I TSTIT /00634-4473 $;
000635 5415 TFNEG3 /00635-5415 ,M
000636 4474 JMS I CHKIT /00636-4474 $<
000637 3633 3633 /00637-3633 ^[
000640 4464 JMS I LPBCK /00640-4464 $4
000641 0633 0633 /00641-0633 F[
000642 4466 JMS I F0 /00642-4466 $6
000643 7301 CLA CLL IAC /00643-7301 ;A
000644 3036 DCA 0036 /00644-3036 X^
000645 4473 JMS I TSTIT /00645-4473 $;
000646 5421 TFNORM /00646-5421 ,Q
000647 4474 JMS I CHKIT /00647-4474 $<
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-83
000650 3644 DCA I 0644 /00650-3644 ^$
000651 4464 JMS I LPBCK /00651-4464 $4
000652 0642 0642 /00652-0642 F"
000653 4466 JMS I F0 /00653-4466 $6
000654 1377 TAD 0777 /00654-1377 K?
000655 3036 DCA 0036 /00655-3036 X^
000656 4473 JMS I TSTIT /00656-4473 $;
000657 5421 TFNORM /00657-5421 ,Q
000660 4474 JMS I CHKIT /00660-4474 $<
000661 3655 DCA I 0655 /00661-3655 ^-
000662 4464 JMS I LPBCK /00662-4464 $4
000663 0653 0653 /00663-0653 F+
000664 4467 JMS I F7 /00664-4467 $7
000665 7344 CLA CLL CMA RAL /00665-7344 ;$
000666 3036 DCA 0036 /00666-3036 X^
000667 4473 JMS I TSTIT /00667-4473 $;
000670 5421 TFNORM /00670-5421 ,Q
000671 4474 JMS I CHKIT /00671-4474 $<
000672 3666 DCA I 0666 /00672-3666 ^6
000673 4464 JMS I LPBCK /00673-4464 $4
000674 0664 0664 /00674-0664 F4
000675 4466 JMS I F0 /00675-4466 $6
000676 7330 CLA CLL CML RAR /00676-7330 ;X
000677 3032 DCA FMS /00677-3032 XZ
000700 4473 JMS I TSTIT /00700-4473 $;
000701 5421 TFNORM /00701-5421 ,Q
000702 4474 JMS I CHKIT /00702-4474 $<
000703 3677 DCA I 0677 /00703-3677 ^?
000704 4464 JMS I LPBCK /00704-4464 $4
000705 0675 0675 /00705-0675 F=
000706 4467 JMS I F7 /00706-4467 $7
000707 4475 JMS I CLEARX /00707-4475 $=
000710 7301 CLA CLL IAC /00710-7301 ;A
000711 4503 JMS I 0103 /00711-4503 %C
000712 0040 AND 0040 /00712-0040 @
000713 4473 JMS I TSTIT /00713-4473 $;
000714 5423 TXTA0 /00714-5423 ,S
000715 4474 JMS I CHKIT /00715-4474 $<
000716 3710 DCA I 0710 /00716-3710 _H
000717 4464 JMS I LPBCK /00717-4464 $4
000720 0706 0706 /00720-0706 GF
000721 4470 JMS I F25 /00721-4470 $8
000722 4475 JMS I CLEARX /00722-4475 $=
000723 7344 CLA CLL CMA RAL /00723-7344 ;$
000724 4503 JMS I 0103 /00724-4503 %C
000725 0047 AND 0047 /00725-0047 @'
000726 4473 JMS I TSTIT /00726-4473 $;
000727 5425 TXTA7 /00727-5425 ,U
000730 4474 JMS I CHKIT /00730-4474 $<
000731 3721 DCA I 0721 /00731-3721 _Q
000732 4464 JMS I LPBCK /00732-4464 $4
000733 0721 0721 /00733-0721 GQ
000734 4466 JMS I F0 /00734-4466 $6
000735 4475 JMS I CLEARX /00735-4475 $=
000736 1376 TAD 0776 /00736-1376 K>
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-84
000737 4503 JMS I 0103 /00737-4503 %C
000740 0041 AND 0041 /00740-0041 @!
000741 7301 CLA CLL IAC /00741-7301 ;A
000742 3036 DCA 0036 /00742-3036 X^
000743 4473 JMS I TSTIT /00743-4473 $;
000744 5427 TALN1 /00744-5427 ,W
000745 4474 JMS I CHKIT /00745-4474 $<
000746 3732 DCA I 0732 /00746-3732 _Z
000747 4464 JMS I LPBCK /00747-4464 $4
000750 0734 0734 /00750-0734 G\
000751 4466 JMS I F0 /00751-4466 $6
000752 4475 JMS I 0075 /00752-4475 $=
000753 1375 TAD 0775 /00753-1375 K=
000754 4503 JMS I 0103 /00754-4503 %C
000755 0042 AND 0042 /00755-0042 @"
000756 7332 CLA CLL CML RTR /00756-7332 ;Z
000757 3032 DCA FMS /00757-3032 XZ
000760 4473 JMS I TSTIT /00760-4473 $;
000761 5431 TALN2 /00761-5431 ,Y
000762 4474 JMS I CHKIT /00762-4474 $<
000763 3743 DCA I 0743 /00763-3743 _#
000764 4464 JMS I LPBCK /00764-4464 $4
000765 0751 0751 /00765-0751 G)
000766 5774 JMP I 0774 /00766-5774 /<
000767 0777 AND I 0777 /00767-0777 G?
000770 0330 AND 0730 /00770-0330 CX
000771 7607 CLA DVI /00771-7607 >G
000772 0200 AND 0600 /00772-0200 B@
000773 7746 SMA SZA CLA OSR HLT /00773-7746 ?&
000774 1000 TAD 0000 /00774-1000 H@
000775 0072 AND 0072 /00775-0072 @:
000776 7706 SMA CLA OSR HLT /00776-7706 ?F
000777 0005 AND 0005 /00777-0005 @E
1000 PAGE
001000 4466 JMS I F0 /01000-4466 $6
001001 4475 JMS I CLEARX /01001-4475 $=
001002 1377 TAD (72 /01002-1377 K?
001003 4503 JMS I 0103 /01003-4503 %C
001004 0043 AND 0043 /01004-0043 @#
001005 7333 CLA CLL CML IAC RTR /01005-7333 ;[
001006 3032 DCA FMS /01006-3032 XZ
001007 4473 JMS I TSTIT /01007-4473 $;
001010 5433 TALN3 /01010-5433 ,[
001011 4474 JMS I CHKIT /01011-4474 $<
001012 3754 DCA I 1154 /01012-3754 _,
001013 4464 JMS I LPBCK /01013-4464 $4
001014 1000 1000 /01014-1000 H@
001015 4466 JMS I F0 /01015-4466 $6
001016 4475 JMS I CLEARX /01016-4475 $=
001017 1376 TAD (-72 /01017-1376 K>
001020 3031 DCA 0031 /01020-3031 XY
001021 7332 CLA CLL CML RTR /01021-7332 ;Z
001022 3032 DCA FMS /01022-3032 XZ
001023 4473 JMS I TSTIT /01023-4473 $;
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-85
001024 5435 TALN0 /01024-5435 ,]
001025 4474 JMS I CHKIT /01025-4474 $<
001026 3765 DCA I 1165 /01026-3765 _5
001027 4464 JMS I LPBCK /01027-4464 $4
001030 1015 1015 /01030-1015 HM
001031 4466 JMS I F0 /01031-4466 $6
001032 4473 JMS I TSTIT /01032-4473 $;
001033 5437 TFLB30 /01033-5437 ,_
001034 4474 JMS I CHKIT /01034-4474 $<
001035 3776 DCA I 1176 /01035-3776 _>
001036 4464 JMS I LPBCK /01036-4464 $4
001037 1031 1031 /01037-1031 HY
001040 4467 JMS I F7 /01040-4467 $7
001041 4473 JMS I TSTIT /01041-4473 $;
001042 5441 TFLB36 /01042-5441 ,!
001043 4474 JMS I CHKIT /01043-4474 $<
001044 4007 JMS 0007 /01044-4007 G
001045 4464 JMS I LPBCK /01045-4464 $4
001046 1040 1040 /01046-1040 H
001047 4467 JMS I F7 /01047-4467 $7
001050 4475 JMS I CLEARX /01050-4475 $=
001051 4473 JMS I TSTIT /01051-4473 $;
001052 5443 TFLX0P /01052-5443 ,#
001053 4474 JMS I CHKIT /01053-4474 $<
001054 4020 JMS 0020 /01054-4020 P
001055 4464 JMS I LPBCK /01055-4464 $4
001056 1047 1047 /01056-1047 H'
001057 4466 JMS I F0 /01057-4466 $6
001060 4475 JMS I CLEARX /01060-4475 $=
001061 7301 CLA CLL IAC /01061-7301 ;A
001062 4503 JMS I 0103 /01062-4503 %C
001063 0044 AND 0044 /01063-0044 @$
001064 4473 JMS I TSTIT /01064-4473 $;
001065 5446 TFLX0 /01065-5446 ,&
001066 4474 JMS I CHKIT /01066-4474 $<
001067 4031 JMS 0031 /01067-4031 Y
001070 4464 JMS I LPBCK /01070-4464 $4
001071 1057 1057 /01071-1057 H/
001072 4466 JMS I F0 /01072-4466 $6
001073 4475 JMS I CLEARX /01073-4475 $=
001074 4473 JMS I TSTIT /01074-4473 $;
001075 5451 TFLX4P /01075-5451 ,)
001076 4474 JMS I CHKIT /01076-4474 $<
001077 4042 JMS 0042 /01077-4042 "
001100 4464 JMS I LPBCK /01100-4464 $4
001101 1072 1072 /01101-1072 H:
001102 4470 JMS I F25 /01102-4470 $8
001103 4475 JMS I CLEARX /01103-4475 $=
001104 7301 CLA CLL IAC /01104-7301 ;A
001105 4503 JMS I 0103 /01105-4503 %C
001106 0044 AND 0044 /01106-0044 @$
001107 4473 JMS I TSTIT /01107-4473 $;
001110 5451 TFLX4P /01110-5451 ,)
001111 4474 JMS I CHKIT /01111-4474 $<
001112 4053 JMS 0053 /01112-4053 +
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-86
001113 4464 JMS I LPBCK /01113-4464 $4
001114 1102 1102 /01114-1102 IB
001115 4470 JMS I F25 /01115-4470 $8
001116 4475 JMS I CLEARX /01116-4475 $=
001117 4473 JMS I TSTIT /01117-4473 $;
001120 5454 TFIX4 /01120-5454 ,,
001121 4474 JMS I CHKIT /01121-4474 $<
001122 4064 JMS 0064 /01122-4064 4
001123 4464 JMS I LPBCK /01123-4464 $4
001124 1115 1115 /01124-1115 IM
001125 4467 JMS I F7 /01125-4467 $7
001126 4475 JMS I CLEARX /01126-4475 $=
001127 7301 CLA CLL IAC /01127-7301 ;A
001130 4503 JMS I 0103 /01130-4503 %C
001131 0044 AND 0044 /01131-0044 @$
001132 4473 JMS I TSTIT /01132-4473 $;
001133 5454 TFIX4 /01133-5454 ,,
001134 4474 JMS I CHKIT /01134-4474 $<
001135 4075 JMS 0075 /01135-4075 =
001136 4464 JMS I LPBCK /01136-4464 $4
001137 1125 1125 /01137-1125 IU
001140 4467 JMS I F7 /01140-4467 $7
001141 4475 JMS I CLEARX /01141-4475 $=
001142 7301 CLA CLL IAC /01142-7301 ;A
001143 4503 JMS I 0103 /01143-4503 %C
001144 0044 AND 0044 /01144-0044 @$
001145 4473 JMS I TSTIT /01145-4473 $;
001146 5456 TFIX4P /01146-5456 ,.
001147 4474 JMS I CHKIT /01147-4474 $<
001150 4106 JMS 0106 /01150-4106 !F
001151 4464 JMS I LPBCK /01151-4464 $4
001152 1140 1140 /01152-1140 I
001153 4471 JMS I F52 /01153-4471 $9
001154 4775 JMS I (CLRBP /01154-4775 '=
001155 4473 JMS I TSTIT /01155-4473 $;
001156 5460 FSB116 /01156-5460 ,0
001157 4501 JMS I CHKBP /01157-4501 %A
001160 4130 JMS 0130 /01160-4130 !X
001161 4474 JMS I CHKIT /01161-4474 $<
001162 4117 JMS 0117 /01162-4117 !O
001163 4464 JMS I LPBCK /01163-4464 $4
001164 1153 1153 /01164-1153 I+
001165 5774 JMP I 1174 /01165-5774 /<
001166 1253 TAD 1053 /01166-1253 J+
001167 1074 TAD 0074 /01167-1074 H<
001170 3034 DCA 0034 /01170-3034 X\
001171 4776 JMS I 1176 /01171-4776 '>
001172 1073 TAD 0073 /01172-1073 H;
001173 4423 JMS I 0023 /01173-4423 $S
001174 1200 1200 /01174-1200 J@
/ISZ I 1065 /01175-2665 V5
/SMA CLA OSR HLT /01176-7706 ?F
/AND 0072 /01177-0072 @:
001175 2665
001176 7706
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-87
001177 0072
1200 PAGE
001200 4470 JMS I F25 /01200-4470 $8
001201 3031 DCA 0031 /01201-3031 XY
001202 4473 JMS I TSTIT /01202-4473 $;
001203 5462 FAB066 /01203-5462 ,2
001204 4474 JMS I CHKIT /01204-4474 $<
001205 4136 JMS 0136 /01205-4136 !^
001206 4464 JMS I LPBCK /01206-4464 $4
001207 1200 1200 /01207-1200 J@
001210 4466 JMS I F0 /01210-4466 $6
001211 7301 CLA CLL IAC /01211-7301 ;A
001212 3036 DCA 0036 /01212-3036 X^
001213 4473 JMS I TSTIT /01213-4473 $;
001214 5464 FAB110 /01214-5464 ,4
001215 4474 JMS I CHKIT /01215-4474 $<
001216 4147 JMS 0147 /01216-4147 !'
001217 4464 JMS I LPBCK /01217-4464 $4
001220 1210 1210 /01220-1210 JH
001221 4467 JMS I F7 /01221-4467 $7
001222 7346 CLA CLL CMA RTL /01222-7346 ;&
001223 3036 DCA 0036 /01223-3036 X^
001224 3031 DCA 0031 /01224-3031 XY
001225 4473 JMS I TSTIT /01225-4473 $;
001226 5464 FAB110 /01226-5464 ,4
001227 4474 JMS I CHKIT /01227-4474 $<
001230 4160 JMS 0160 /01230-4160 !0
001231 4464 JMS I LPBCK /01231-4464 $4
001232 1221 1221 /01232-1221 JQ
001233 4467 JMS I F7 /01233-4467 $7
001234 7350 CLA CLL CMA RAR /01234-7350 ;(
001235 3032 DCA FMS /01235-3032 XZ
001236 4473 JMS I TSTIT /01236-4473 $;
001237 5466 FAB124 /01237-5466 ,6
001240 4474 JMS I CHKIT /01240-4474 $<
001241 4171 JMS 0171 /01241-4171 !9
001242 4464 JMS I LPBCK /01242-4464 $4
001243 1233 1233 /01243-1233 J[
001244 1377 TAD 1377 /01244-1377 K?
001245 4472 JMS I FXX /01245-4472 $:
001246 1376 TAD 1376 /01246-1376 K>
001247 3032 DCA FMS /01247-3032 XZ
001250 4473 JMS I TSTIT /01250-4473 $;
001251 5470 FAB132 /01251-5470 ,8
001252 4474 JMS I CHKIT /01252-4474 $<
001253 4202 JMS 1202 /01253-4202 "B
001254 4464 JMS I LPBCK /01254-4464 $4
001255 1244 1244 /01255-1244 J$
001256 1375 TAD 1375 /01256-1375 K=
001257 4472 JMS I FXX /01257-4472 $:
001260 4473 JMS I TSTIT /01260-4473 $;
001261 5472 FAB140 /01261-5472 ,:
001262 4474 JMS I CHKIT /01262-4474 $<
001263 4213 JMS 1213 /01263-4213 "K
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-88
001264 4464 JMS I LPBCK /01264-4464 $4
001265 1256 1256 /01265-1256 J.
001266 1374 TAD 1374 /01266-1374 K<
001267 4472 JMS I FXX /01267-4472 $:
001270 4473 JMS I TSTIT /01270-4473 $;
001271 5474 FAB146 /01271-5474 ,<
001272 4474 JMS I CHKIT /01272-4474 $<
001273 4224 JMS 1224 /01273-4224 "T
001274 4464 JMS I LPBCK /01274-4464 $4
001275 1266 1266 /01275-1266 J6
001276 4467 JMS I F7 /01276-4467 $7
001277 7344 CLA CLL CMA RAL /01277-7344 ;$
001300 3036 DCA 0036 /01300-3036 X^
001301 4473 JMS I TSTIT /01301-4473 $;
001302 5476 FAB154 /01302-5476 ,>
001303 4474 JMS I CHKIT /01303-4474 $<
001304 4235 JMS 1235 /01304-4235 "]
001305 4464 JMS I LPBCK /01305-4464 $4
001306 1276 1276 /01306-1276 J>
001307 4467 JMS I F7 /01307-4467 $7
001310 7350 CLA CLL CMA RAR /01310-7350 ;(
001311 3032 DCA FMS /01311-3032 XZ
001312 4473 JMS I TSTIT /01312-4473 $;
001313 5500 FSB162 /01313-5500 -@
001314 4474 JMS I CHKIT /01314-4474 $<
001315 4246 JMS 1246 /01315-4246 "&
001316 4464 JMS I LPBCK /01316-4464 $4
001317 1307 1307 /01317-1307 KG
001320 4466 JMS I F0 /01320-4466 $6
001321 7330 CLA CLL CML RAR /01321-7330 ;X
001322 3032 DCA FMS /01322-3032 XZ
001323 7301 CLA CLL IAC /01323-7301 ;A
001324 3036 DCA 0036 /01324-3036 X^
001325 4473 JMS I TSTIT /01325-4473 $;
001326 5502 FSB170 /01326-5502 -B
001327 4474 JMS I CHKIT /01327-4474 $<
001330 4257 JMS 1257 /01330-4257 "/
001331 4464 JMS I LPBCK /01331-4464 $4
001332 1320 1320 /01332-1320 KP
001333 1377 TAD 1377 /01333-1377 K?
001334 4472 JMS I FXX /01334-4472 $:
001335 4473 JMS I TSTIT /01335-4473 $;
001336 5504 FSB176 /01336-5504 -D
001337 4474 JMS I CHKIT /01337-4474 $<
001340 4270 JMS 1270 /01340-4270 "8
001341 4464 JMS I LPBCK /01341-4464 $4
001342 1333 1333 /01342-1333 K[
001343 5773 JMP I 1373 /01343-5773 /;
001344 4466 JMS I F0 /01344-4466 $6
001345 4475 JMS I CLEARX /01345-4475 $=
001346 7301 CLA CLL IAC /01346-7301 ;A
001347 4503 JMS I 0103 /01347-4503 %C
001350 0044 AND 0044 /01350-0044 @$
001351 4473 JMS I TSTIT /01351-4473 $;
001352 5451 TFLX4P /01352-5451 ,)
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-89
001353 4474 JMS I CHKIT /01353-4474 $<
001354 5241 JMP 1241 /01354-5241 *!
001355 4464 JMS I LPBCK /01355-4464 $4
001356 1344 1344 /01356-1344 K$
001357 5772 JMP I 1372 /01357-5772 /:
001360 5557 JMP I 0157 /01360-5557 -/
001361 0000 AND 0000 /01361-0000 @@
001362 1064 TAD 0064 /01362-1064 H4
001363 4551 JMS I 0151 /01363-4551 %)
001364 1063 TAD 0063 /01364-1063 H3
001365 3375 DCA 1375 /01365-3375 [=
001366 5372 JMP 1372 /01366-5372 +:
001367 1031 TAD 0031 /01367-1031 HY
001370 7650 SNA CLA /01370-7650 >(
001371 5462 JMP I 0062 /01371-5462 ,2
001372 1701 TAD I 1301 /01372-1701 OA
001373 1400 TAD I 0000 /01373-1400 L@
001374 1042 TAD 0042 /01374-1042 H"
001375 2104 ISZ 0104 /01375-2104 QD
001376 0210 AND 1210 /01376-0210 BH
001377 4210 JMS 1210 /01377-4210 "H
1400 PAGE
001400 1377 TAD 1577 /01400-1377 K?
001401 4472 JMS I FXX /01401-4472 $:
001402 4473 JMS I TSTIT /01402-4473 $;
001403 5506 FSB204 /01403-5506 -F
001404 4474 JMS I CHKIT /01404-4474 $<
001405 4301 JMS 1501 /01405-4301 #A
001406 4464 JMS I LPBCK /01406-4464 $4
001407 1400 1400 /01407-1400 L@
001410 1376 TAD 1576 /01410-1376 K>
001411 4472 JMS I FXX /01411-4472 $:
001412 4473 JMS I TSTIT /01412-4473 $;
001413 5510 FSB212 /01413-5510 -H
001414 4474 JMS I CHKIT /01414-4474 $<
001415 4312 JMS 1512 /01415-4312 #J
001416 4464 JMS I LPBCK /01416-4464 $4
001417 1410 1410 /01417-1410 LH
001420 1375 TAD 1575 /01420-1375 K=
001421 4472 JMS I FXX /01421-4472 $:
001422 4473 JMS I TSTIT /01422-4473 $;
001423 5512 FSB220 /01423-5512 -J
001424 4474 JMS I CHKIT /01424-4474 $<
001425 4323 JMS 1523 /01425-4323 #S
001426 4464 JMS I LPBCK /01426-4464 $4
001427 1420 1420 /01427-1420 LP
001430 1374 TAD 1574 /01430-1374 K<
001431 4472 JMS I FXX /01431-4472 $:
001432 4473 JMS I TSTIT /01432-4473 $;
001433 5514 FSB226 /01433-5514 -L
001434 4474 JMS I CHKIT /01434-4474 $<
001435 4334 JMS 1534 /01435-4334 #\
001436 4464 JMS I LPBCK /01436-4464 $4
001437 1430 1430 /01437-1430 LX
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-90
001440 1373 TAD 1573 /01440-1373 K;
001441 4472 JMS I FXX /01441-4472 $:
001442 4473 JMS I TSTIT /01442-4473 $;
001443 5516 FSB234 /01443-5516 -N
001444 4474 JMS I CHKIT /01444-4474 $<
001445 4345 JMS 1545 /01445-4345 #%
001446 4464 JMS I LPBCK /01446-4464 $4
001447 1440 1440 /01447-1440 L
001450 4466 JMS I F0 /01450-4466 $6
001451 7332 CLA CLL CML RTR /01451-7332 ;Z
001452 3031 DCA 0031 /01452-3031 XY
001453 7332 CLA CLL CML RTR /01453-7332 ;Z
001454 3032 DCA FMS /01454-3032 XZ
001455 4473 JMS I TSTIT /01455-4473 $;
001456 5520 FMB242 /01456-5520 -P
001457 4474 JMS I CHKIT /01457-4474 $<
001460 4356 JMS 1556 /01460-4356 #.
001461 4464 JMS I LPBCK /01461-4464 $4
001462 1450 1450 /01462-1450 L(
001463 4467 JMS I F7 /01463-4467 $7
001464 4473 JMS I TSTIT /01464-4473 $;
001465 5522 FMB250 /01465-5522 -R
001466 4474 JMS I CHKIT /01466-4474 $<
001467 4367 JMS 1567 /01467-4367 #7
001470 4464 JMS I LPBCK /01470-4464 $4
001471 1463 1463 /01471-1463 L3
001472 4467 JMS I F7 /01472-4467 $7
001473 7350 CLA CLL CMA RAR /01473-7350 ;(
001474 3032 DCA FMS /01474-3032 XZ
001475 4473 JMS I TSTIT /01475-4473 $;
001476 5524 FMB256 /01476-5524 -T
001477 4474 JMS I CHKIT /01477-4474 $<
001500 4400 JMS I 0000 /01500-4400 $@
001501 4464 JMS I LPBCK /01501-4464 $4
001502 1472 1472 /01502-1472 L:
001503 4470 JMS I F25 /01503-4470 $8
001504 4473 JMS I TSTIT /01504-4473 $;
001505 5526 FMB264 /01505-5526 -V
001506 4474 JMS I CHKIT /01506-4474 $<
001507 4411 JMS I 0011 /01507-4411 $I
001510 4464 JMS I LPBCK /01510-4464 $4
001511 1503 1503 /01511-1503 MC
001512 4471 JMS I F52 /01512-4471 $9
001513 4473 JMS I TSTIT /01513-4473 $;
001514 5530 FMB272 /01514-5530 -X
001515 4474 JMS I CHKIT /01515-4474 $<
001516 4422 JMS I 0022 /01516-4422 $R
001517 4464 JMS I LPBCK /01517-4464 $4
001520 1512 1512 /01520-1512 MJ
001521 1372 TAD 1572 /01521-1372 K:
001522 4472 JMS I FXX /01522-4472 $:
001523 4473 JMS I TSTIT /01523-4473 $;
001524 5532 FMB300 /01524-5532 -Z
001525 4474 JMS I CHKIT /01525-4474 $<
001526 4433 JMS I 0033 /01526-4433 $[
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-91
001527 4464 JMS I LPBCK /01527-4464 $4
001530 1521 1521 /01530-1521 MQ
001531 4466 JMS I F0 /01531-4466 $6
001532 7350 CLA CLL CMA RAR /01532-7350 ;(
001533 3031 DCA 0031 /01533-3031 XY
001534 7332 CLA CLL CML RTR /01534-7332 ;Z
001535 3032 DCA FMS /01535-3032 XZ
001536 4473 JMS I TSTIT /01536-4473 $;
001537 5534 FDB306 /01537-5534 -\
001540 4474 JMS I CHKIT /01540-4474 $<
001541 4444 JMS I 0044 /01541-4444 $$
001542 4464 JMS I LPBCK /01542-4464 $4
001543 1531 1531 /01543-1531 MY
001544 5771 JMP I 1571 /01544-5771 /9
001545 4466 JMS I F0 /01545-4466 $6
001546 4475 JMS I CLEARX /01546-4475 $=
001547 7301 CLA CLL IAC /01547-7301 ;A
001550 3031 DCA 0031 /01550-3031 XY
001551 7332 CLA CLL CML RTR /01551-7332 ;Z
001552 3032 DCA FMS /01552-3032 XZ
001553 4473 JMS I TSTIT /01553-4473 $;
001554 5666 JMP I 1466 /01554-5666 .6
001555 4474 JMS I CHKIT /01555-4474 $<
001556 5327 JMP 1527 /01556-5327 +W
001557 4464 JMS I LPBCK /01557-4464 $4
001560 1545 1545 /01560-1545 M%
001561 5770 JMP I 1570 /01561-5770 /8
001562 1356 TAD 1556 /01562-1356 K.
001563 4776 JMS I 1576 /01563-4776 '>
001564 1360 TAD 1560 /01564-1360 K0
001565 3360 DCA 1560 /01565-3360 [0
001566 5754 JMP I 1554 /01566-5754 /,
001567 4500 JMS I 0100 /01567-4500 %@
001570 0603 AND I 1403 /01570-0603 FC
001571 1600 TAD I 1400 /01571-1600 N@
001572 2345 ISZ 1545 /01572-2345 S%
001573 0421 AND I 0021 /01573-0421 DQ
001574 3146 DCA 0146 /01574-3146 Y&
001575 6314 6314 /01575-6314 3L
001576 1042 TAD 0042 /01576-1042 H"
001577 2104 ISZ 0104 /01577-2104 QD
1600 PAGE
001600 4467 JMS I F7 /01600-4467 $7
001601 7350 CLA CLL CMA RAR /01601-7350 ;(
001602 3032 DCA FMS /01602-3032 XZ
001603 4473 JMS I TSTIT /01603-4473 $;
001604 5536 FDB314 /01604-5536 -^
001605 4474 JMS I CHKIT /01605-4474 $<
001606 4455 JMS I MES /01606-4455 $-
001607 4464 JMS I LPBCK /01607-4464 $4
001610 1600 1600 /01610-1600 N@
001611 4466 JMS I F0 /01611-4466 $6
001612 1115 TAD C70 /01612-1115 IM
001613 3031 DCA FAC /01613-3031 XY
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-92
001614 1106 TAD C2 /01614-1106 IF
001615 3036 DCA FAC+5 /01615-3036 X^
001616 4473 JMS I TSTIT /01616-4473 $;
001617 5540 FDB322 /01617-5540 -
001620 4474 JMS I CHKIT /01620-4474 $<
001621 4466 JMS I F0 /01621-4466 $6
001622 4464 JMS I LPBCK /01622-4464 $4
001623 1611 1611 /01623-1611 NI
001624 4471 JMS I F52 /01624-4471 $9
001625 4473 JMS I TSTIT /01625-4473 $;
001626 5542 FDB330 /01626-5542 -"
001627 4474 JMS I CHKIT /01627-4474 $<
001630 4477 JMS I 0077 /01630-4477 $?
001631 4464 JMS I LPBCK /01631-4464 $4
001632 1624 1624 /01632-1624 NT
001633 1377 TAD 1777 /01633-1377 K?
001634 4472 JMS I FXX /01634-4472 $:
001635 4473 JMS I TSTIT /01635-4473 $;
001636 5544 FDB336 /01636-5544 -$
001637 4474 JMS I CHKIT /01637-4474 $<
001640 4510 JMS I 0110 /01640-4510 %H
001641 4464 JMS I LPBCK /01641-4464 $4
001642 1633 1633 /01642-1633 N[
001643 1376 TAD 1776 /01643-1376 K>
001644 4472 JMS I FXX /01644-4472 $:
001645 4473 JMS I TSTIT /01645-4473 $;
001646 5546 FDB344 /01646-5546 -&
001647 4474 JMS I CHKIT /01647-4474 $<
001650 4521 JMS I 0121 /01650-4521 %Q
001651 4464 JMS I LPBCK /01651-4464 $4
001652 1643 1643 /01652-1643 N#
001653 4470 JMS I F25 /01653-4470 $8
001654 4775 JMS I 1775 /01654-4775 '=
001655 4473 JMS I TSTIT /01655-4473 $;
001656 5556 SLA116 /01656-5556 -.
001657 4501 JMS I CHKBP /01657-4501 %A
001660 4543 JMS I 0143 /01660-4543 %#
001661 4474 JMS I CHKIT /01661-4474 $<
001662 4532 JMS I 0132 /01662-4532 %Z
001663 4464 JMS I LPBCK /01663-4464 $4
001664 1653 1653 /01664-1653 N+
001665 1374 TAD 1774 /01665-1374 K<
001666 4472 JMS I FXX /01666-4472 $:
001667 4775 JMS I 1775 /01667-4775 '=
001670 4473 JMS I TSTIT /01670-4473 $;
001671 5562 SLM116 /01671-5562 -2
001672 4501 JMS I CHKBP /01672-4501 %A
001673 4562 JMS I 0162 /01673-4562 %2
001674 4474 JMS I CHKIT /01674-4474 $<
001675 4551 JMS I 0151 /01675-4551 %)
001676 4464 JMS I LPBCK /01676-4464 $4
001677 1665 1665 /01677-1665 N5
001700 5773 JMP I 1773 /01700-5773 /;
001701 4467 JMS I F7 /01701-4467 $7
001702 4475 JMS I CLEARX /01702-4475 $=
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-93
001703 7325 CLA CLL CML IAC RAL /01703-7325 ;U
001704 4503 JMS I 0103 /01704-4503 %C
001705 0044 AND 0044 /01705-0044 @$
001706 4473 JMS I TSTIT /01706-4473 $;
001707 5451 TFLX4P /01707-5451 ,)
001710 4474 JMS I CHKIT /01710-4474 $<
001711 5252 JMP 1652 /01711-5252 **
001712 4464 JMS I LPBCK /01712-4464 $4
001713 1701 1701 /01713-1701 OA
001714 7330 CLA CLL CML RAR /01714-7330 ;X
001715 3141 DCA DPMODE /01715-3141 Y!
001716 4467 JMS I F7 /01716-4467 $7
001717 4475 JMS I CLEARX /01717-4475 $=
001720 4473 JMS I TSTIT /01720-4473 $;
001721 5443 TFLX0P /01721-5443 ,#
001722 4474 JMS I CHKIT /01722-4474 $<
001723 5263 JMP 1663 /01723-5263 *3
001724 4464 JMS I LPBCK /01724-4464 $4
001725 1714 1714 /01725-1714 OL
001726 4466 JMS I F0 /01726-4466 $6
001727 4475 JMS I CLEARX /01727-4475 $=
001730 7325 CLA CLL CML IAC RAL /01730-7325 ;U
001731 4503 JMS I 0103 /01731-4503 %C
001732 0044 AND 0044 /01732-0044 @$
001733 4473 JMS I TSTIT /01733-4473 $;
001734 5446 TFLX0 /01734-5446 ,&
001735 4474 JMS I CHKIT /01735-4474 $<
001736 5274 JMP 1674 /01736-5274 *<
001737 4464 JMS I LPBCK /01737-4464 $4
001740 1726 1726 /01740-1726 OV
001741 4466 JMS I F0 /01741-4466 $6
001742 4475 JMS I CLEARX /01742-4475 $=
001743 3141 DCA DPMODE /01743-3141 Y!
001744 7330 CLA CLL CML RAR /01744-7330 ;X
001745 3143 DCA EPMODE /01745-3143 Y#
001746 4772 JMS I 1772 /01746-4772 ':
001747 4473 JMS I TSTIT /01747-4473 $;
001750 5402 LEB25P /01750-5402 ,B
001751 4474 JMS I CHKIT /01751-4474 $<
001752 5305 JMP 1705 /01752-5305 +E
001753 4464 JMS I LPBCK /01753-4464 $4
001754 1741 1741 /01754-1741 O!
001755 4466 JMS I F0 /01755-4466 $6
001756 4475 JMS I CLEARX /01756-4475 $=
001757 4772 JMS I 1772 /01757-4772 ':
001760 4473 JMS I TSTIT /01760-4473 $;
001761 5405 LEB25 /01761-5405 ,E
001762 4474 JMS I CHKIT /01762-4474 $<
001763 5316 JMP 1716 /01763-5316 +N
001764 4464 JMS I LPBCK /01764-4464 $4
001765 1755 1755 /01765-1755 O-
001766 5771 JMP I 1771 /01766-5771 /9
001767 7012 RTR /01767-7012 8J
001770 7012 RTR /01770-7012 8J
001771 1545 TAD I 0145 /01771-1545 M%
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-94
001772 6512 6512 /01772-6512 5J
001773 2000 ISZ 0000 /01773-2000 P@
001774 7316 7316 /01774-7316 ;N
001775 2665 ISZ I 1665 /01775-2665 V5
001776 1706 TAD I 1706 /01776-1706 OF
001777 6475 6475 /01777-6475 4=
2000 PAGE
002000 4467 JMS I F7 /02000-4467 $7
002001 7330 CLA CLL CML RAR /02001-7330 ;X
002002 3031 DCA 0031 /02002-3031 XY
002003 1123 TAD 0123 /02003-1123 IS
002004 3032 DCA FMS /02004-3032 XZ
002005 7332 CLA CLL CML RTR /02005-7332 ;Z
002006 3141 DCA DPMODE /02006-3141 Y!
002007 4473 JMS I TSTIT /02007-4473 $;
002010 5566 FAB374 /02010-5566 -6
002011 4474 JMS I CHKIT /02011-4474 $<
002012 4570 JMS I 0170 /02012-4570 %8
002013 4464 JMS I LPBCK /02013-4464 $4
002014 2000 2000 /02014-2000 P@
002015 4467 JMS I F7 /02015-4467 $7
002016 7350 CLA CLL CMA RAR /02016-7350 ;(
002017 3031 DCA 0031 /02017-3031 XY
002020 3141 DCA DPMODE /02020-3141 Y!
002021 7350 CLA CLL CMA RAR /02021-7350 ;(
002022 3032 DCA FMS /02022-3032 XZ
002023 4473 JMS I TSTIT /02023-4473 $;
002024 5570 FAB402 /02024-5570 -8
002025 4474 JMS I CHKIT /02025-4474 $<
002026 4601 JMS I 2001 /02026-4601 &A
002027 4464 JMS I LPBCK /02027-4464 $4
002030 2015 2015 /02030-2015 PM
002031 4470 JMS I F25 /02031-4470 $8
002032 4473 JMS I TSTIT /02032-4473 $;
002033 5572 XFDB, FDB410 /02033-5572 -:
002034 4474 JMS I CHKIT /02034-4474 $<
002035 4612 JMS I 2012 /02035-4612 &J
002036 4464 JMS I LPBCK /02036-4464 $4
002037 2031 2031 /02037-2031 PY
002040 4466 JMS I F0 /02040-4466 $6
002041 1377 TAD (HLTPNT /02041-1377 K?
002042 3776 DCA I (TEST /02042-3776 _>
002043 1233 TAD XFDB /02043-1233 J[
002044 3025 DCA FPC /02044-3025 XU
002045 4775 JMS I (TSINIT /02045-4775 '=
002046 1113 TAD XAPT /02046-1113 IK
002047 6555 FPST /02047-6555 5-
002050 4774 JMS I (NOSKP /02050-4774 '<
002051 6554 HLTPNT, FPHLT /02051-6554 5,
002052 6551 FPINT /02052-6551 5)
002053 5252 JMP .-1 /02053-5252 **
002054 4474 JMS I CHKIT /02054-4474 $<
002055 4623 JMS I 2023 /02055-4623 &S
002056 4464 JMS I LPBCK /02056-4464 $4
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-95
002057 2040 2040 /02057-2040 P
002060 4466 JMS I F0 /02060-4466 $6
002061 4473 JMS I TSTIT /02061-4473 $;
002062 5574 TJEQ /02062-5574 -<
002063 4474 JMS I CHKIT /02063-4474 $<
002064 4634 JMS I 2034 /02064-4634 &\
002065 4464 JMS I LPBCK /02065-4464 $4
002066 2060 2060 /02066-2060 P0
002067 4466 JMS I F0 /02067-4466 $6
002070 7301 CLA CLL IAC /02070-7301 ;A
002071 3036 DCA 0036 /02071-3036 X^
002072 4473 JMS I TSTIT /02072-4473 $;
002073 5574 TJEQ /02073-5574 -<
002074 4474 JMS I CHKIT /02074-4474 $<
002075 4645 JMS I 2045 /02075-4645 &%
002076 4464 JMS I LPBCK /02076-4464 $4
002077 2067 2067 /02077-2067 P7
002100 4466 JMS I F0 /02100-4466 $6
002101 7330 CLA CLL CML RAR /02101-7330 ;X
002102 3032 DCA FMS /02102-3032 XZ
002103 7301 CLA CLL IAC /02103-7301 ;A
002104 3036 DCA 0036 /02104-3036 X^
002105 4473 JMS I TSTIT /02105-4473 $;
002106 5574 TJEQ /02106-5574 -<
002107 4474 JMS I CHKIT /02107-4474 $<
002110 4656 JMS I 2056 /02110-4656 &.
002111 4464 JMS I LPBCK /02111-4464 $4
002112 2100 2100 /02112-2100 Q@
002113 4466 JMS I F0 /02113-4466 $6
002114 4473 JMS I TSTIT /02114-4473 $;
002115 5600 TJGE /02115-5600 .@
002116 4474 JMS I CHKIT /02116-4474 $<
002117 4667 JMS I 2067 /02117-4667 &7
002120 4464 JMS I LPBCK /02120-4464 $4
002121 2113 2113 /02121-2113 QK
002122 4466 JMS I F0 /02122-4466 $6
002123 7301 CLA CLL IAC /02123-7301 ;A
002124 3036 DCA 0036 /02124-3036 X^
002125 4473 JMS I TSTIT /02125-4473 $;
002126 5600 TJGE /02126-5600 .@
002127 4474 JMS I CHKIT /02127-4474 $<
002130 4700 JMS I 2100 /02130-4700 '@
002131 4464 JMS I LPBCK /02131-4464 $4
002132 2122 2122 /02132-2122 QR
002133 4466 JMS I F0 /02133-4466 $6
002134 7330 CLA CLL CML RAR /02134-7330 ;X
002135 3032 DCA FMS /02135-3032 XZ
002136 7301 CLA CLL IAC /02136-7301 ;A
002137 3036 DCA 0036 /02137-3036 X^
002140 4473 JMS I TSTIT /02140-4473 $;
002141 5600 TJGE /02141-5600 .@
002142 4474 JMS I CHKIT /02142-4474 $<
002143 4711 JMS I 2111 /02143-4711 'I
002144 4464 JMS I LPBCK /02144-4464 $4
002145 2133 2133 /02145-2133 Q[
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-96
002146 4466 JMS I F0 /02146-4466 $6
002147 4473 JMS I TSTIT /02147-4473 $;
002150 5604 TJLE /02150-5604 .D
002151 4474 JMS I CHKIT /02151-4474 $<
002152 4722 JMS I 2122 /02152-4722 'R
002153 4464 JMS I LPBCK /02153-4464 $4
002154 2146 2146 /02154-2146 Q&
002155 5773 JMP I 2173 /02155-5773 /;
002156 0000 AND 0000 /02156-0000 @@
002157 6211 CDF 10 /02157-6211 2I
002160 1423 TAD I 0023 /02160-1423 LS
002161 6201 CDF 0 /02161-6201 2A
002162 7650 SNA CLA /02162-7650 >(
002163 5756 JMP I 2156 /02163-5756 /.
002164 1017 TAD 0017 /02164-1017 HO
002165 0105 AND 0105 /02165-0105 AE
002166 7440 SZA /02166-7440 <
002167 1124 TAD 0124 /02167-1124 IT
002170 3142 DCA 0142 /02170-3142 Y"
002171 5772 JMP I 2172 /02171-5772 /:
002172 3522 DCA I 0122 /02172-3522 ]R
002173 2200 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)
002174 2737
002175 2715
002176 2701
002177 2051
2200 PAGE
002200 4466 JMS I F0 /02200-4466 $6
002201 7330 CLA CLL CML RAR /02201-7330 ;X
002202 3032 DCA FMS /02202-3032 XZ
002203 7301 CLA CLL IAC /02203-7301 ;A
002204 3036 DCA 0036 /02204-3036 X^
002205 4473 JMS I TSTIT /02205-4473 $;
002206 5604 TJLE /02206-5604 .D
002207 4474 JMS I CHKIT /02207-4474 $<
002210 4733 JMS I 2333 /02210-4733 '[
002211 4464 JMS I LPBCK /02211-4464 $4
002212 2200 2200 /02212-2200 R@
002213 4466 JMS I F0 /02213-4466 $6
002214 7301 CLA CLL IAC /02214-7301 ;A
002215 3036 DCA 0036 /02215-3036 X^
002216 4473 JMS I TSTIT /02216-4473 $;
002217 5604 TJLE /02217-5604 .D
002220 4474 JMS I CHKIT /02220-4474 $<
002221 4744 JMS I 2344 /02221-4744 '$
002222 4464 JMS I LPBCK /02222-4464 $4
002223 2213 2213 /02223-2213 RK
002224 4466 JMS I F0 /02224-4466 $6
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-97
002225 4473 JMS I TSTIT /02225-4473 $;
002226 5610 TJNE /02226-5610 .H
002227 4474 JMS I CHKIT /02227-4474 $<
002230 4755 JMS I 2355 /02230-4755 '-
002231 4464 JMS I LPBCK /02231-4464 $4
002232 2224 2224 /02232-2224 RT
002233 4466 JMS I F0 /02233-4466 $6
002234 7301 CLA CLL IAC /02234-7301 ;A
002235 3036 DCA 0036 /02235-3036 X^
002236 4473 JMS I TSTIT /02236-4473 $;
002237 5610 TJNE /02237-5610 .H
002240 4474 JMS I CHKIT /02240-4474 $<
002241 4766 JMS I 2366 /02241-4766 '6
002242 4464 JMS I LPBCK /02242-4464 $4
002243 2233 2233 /02243-2233 R[
002244 4466 JMS I F0 /02244-4466 $6
002245 7330 CLA CLL CML RAR /02245-7330 ;X
002246 3032 DCA FMS /02246-3032 XZ
002247 7301 CLA CLL IAC /02247-7301 ;A
002250 3036 DCA 0036 /02250-3036 X^
002251 4473 JMS I TSTIT /02251-4473 $;
002252 5610 TJNE /02252-5610 .H
002253 4474 JMS I CHKIT /02253-4474 $<
002254 4777 JMS I 2377 /02254-4777 '?
002255 4464 JMS I LPBCK /02255-4464 $4
002256 2244 2244 /02256-2244 R$
002257 4466 JMS I F0 /02257-4466 $6
002260 4473 JMS I TSTIT /02260-4473 $;
002261 5614 TJLT /02261-5614 .L
002262 4474 JMS I CHKIT /02262-4474 $<
002263 5010 JMP 0010 /02263-5010 (H
002264 4464 JMS I LPBCK /02264-4464 $4
002265 2257 2257 /02265-2257 R/
002266 4466 JMS I F0 /02266-4466 $6
002267 7301 CLA CLL IAC /02267-7301 ;A
002270 3036 DCA 0036 /02270-3036 X^
002271 4473 JMS I TSTIT /02271-4473 $;
002272 5614 TJLT /02272-5614 .L
002273 4474 JMS I CHKIT /02273-4474 $<
002274 5021 JMP 0021 /02274-5021 (Q
002275 4464 JMS I LPBCK /02275-4464 $4
002276 2266 2266 /02276-2266 R6
002277 4467 JMS I F7 /02277-4467 $7
002300 4473 JMS I TSTIT /02300-4473 $;
002301 5614 TJLT /02301-5614 .L
002302 4474 JMS I CHKIT /02302-4474 $<
002303 5032 JMP 0032 /02303-5032 (Z
002304 4464 JMS I LPBCK /02304-4464 $4
002305 2277 2277 /02305-2277 R?
002306 4466 JMS I F0 /02306-4466 $6
002307 7301 CLA CLL IAC /02307-7301 ;A
002310 3036 DCA 0036 /02310-3036 X^
002311 4473 JMS I TSTIT /02311-4473 $;
002312 5620 TJGT /02312-5620 .P
002313 4474 JMS I CHKIT /02313-4474 $<
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-98
002314 5043 JMP 0043 /02314-5043 (#
002315 4464 JMS I LPBCK /02315-4464 $4
002316 2306 2306 /02316-2306 SF
002317 4466 JMS I F0 /02317-4466 $6
002320 4473 JMS I TSTIT /02320-4473 $;
002321 5620 TJGT /02321-5620 .P
002322 4474 JMS I CHKIT /02322-4474 $<
002323 5054 JMP 0054 /02323-5054 (,
002324 4464 JMS I LPBCK /02324-4464 $4
002325 2317 2317 /02325-2317 SO
002326 4466 JMS I F0 /02326-4466 $6
002327 7330 CLA CLL CML RAR /02327-7330 ;X
002330 3032 DCA FMS /02330-3032 XZ
002331 7301 CLA CLL IAC /02331-7301 ;A
002332 3036 DCA 0036 /02332-3036 X^
002333 4473 JMS I TSTIT /02333-4473 $;
002334 5620 TJGT /02334-5620 .P
002335 4474 JMS I CHKIT /02335-4474 $<
002336 5065 JMP 0065 /02336-5065 (5
002337 4464 JMS I LPBCK /02337-4464 $4
002340 2326 2326 /02340-2326 SV
002341 5777 JMP I 2377 /02341-5777 /?
002342 0000 AND 0000 /02342-0000 @@
002343 6212 CIF 10 /02343-6212 2J
002344 4762 JMS I 2362 /02344-4762 '2
002345 7071 CMA CML IAC RAR /02345-7071 89
002346 4456 JMS I MES10 /02346-4456 $.
002347 7360 JMPERR /02347-7360 ;0
002350 4456 JMS I MES10 /02350-4456 $.
002351 7346 INST /02351-7346 ;&
002352 1050 TAD 0050 /02352-1050 H(
002353 4465 JMS I DIGS /02353-4465 $5
002354 4456 JMS I MES10 /02354-4456 $.
002355 7373 ADDR /02355-7373 ;;
002356 1051 TAD 0051 /02356-1051 H)
002357 4465 JMS I DIGS /02357-4465 $5
002360 4460 JMS I VT /02360-4460 $0
002361 5742 JMP I 2342 /02361-5742 /"
002362 6600 6600 /02362-6600 6@
002363 0000 AND 0000 /02363-0000 @@
002364 6211 CDF 10 /02364-6211 2I
002365 1423 TAD I 0023 /02365-1423 LS
002366 6201 CDF 0 /02366-6201 2A
002367 7650 SNA CLA /02367-7650 >(
002370 5763 JMP I 2363 /02370-5763 /3
002371 4342 JMS 2342 /02371-4342 #"
002372 5776 JMP I 2376 /02372-5776 />
002373 5774 JMP I 2374 /02373-5774 /<
002374 2400 ISZ I 0000 /02374-2400 T@
002375 2403 ISZ I 0003 /02375-2403 TC
002376 6766 6766 /02376-6766 76
002377 2400 2400 /02377-2400 T@
2400 PAGE
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-99
002400 4466 JMS I F0 /02400-4466 $6
002401 1366 TAD 2566 /02401-1366 K6
002402 3033 DCA FLS /02402-3033 X[
002403 6211 CDF 10 /02403-6211 2I
002404 1767 TAD I 2567 /02404-1767 O7
002405 6201 CDF 0 /02405-6201 2A
002406 0105 AND C1 /02406-0105 AE
002407 3032 DCA FMS /02407-3032 XZ
002410 1032 TAD FMS /02410-1032 HZ
002411 3777 DCA I 2577 /02411-3777 _?
002412 4473 JMS I TSTIT /02412-4473 $;
002413 5631 TJAC /02413-5631 .Y
002414 4474 JMS I CHKIT /02414-4474 $<
002415 5076 JMP 0076 /02415-5076 (>
002416 4464 JMS I LPBCK /02416-4464 $4
002417 2400 2400 /02417-2400 T@
002420 4470 JMS I F25 /02420-4470 $8
002421 4473 JMS I TSTIT /02421-4473 $;
002422 5634 TFNOP /02422-5634 .\
002423 4474 JMS I CHKIT /02423-4474 $<
002424 5107 JMP 0107 /02424-5107 )G
002425 4464 JMS I LPBCK /02425-4464 $4
002426 2420 2420 /02426-2420 TP
002427 4466 JMS I F0 /02427-4466 $6
002430 4473 JMS I TSTIT /02430-4473 $;
002431 5636 TJA /02431-5636 .^
002432 4474 JMS I CHKIT /02432-4474 $<
002433 5120 JMP 0120 /02433-5120 )P
002434 4464 JMS I LPBCK /02434-4464 $4
002435 2427 2427 /02435-2427 TW
002436 4467 JMS I F7 /02436-4467 $7
002437 4473 JMS I TSTIT /02437-4473 $;
002440 5641 TJAL /02440-5641 .!
002441 4474 JMS I CHKIT /02441-4474 $<
002442 5131 JMP 0131 /02442-5131 )Y
002443 4464 JMS I LPBCK /02443-4464 $4
002444 2436 2436 /02444-2436 T^
002445 4466 JMS I F0 /02445-4466 $6
002446 6211 CDF 10 /02446-6211 2I
002447 1767 TAD I 2567 /02447-1767 O7
002450 6201 CDF 0 /02450-6201 2A
002451 3136 DCA 0136 /02451-3136 Y^
002452 1136 TAD 0136 /02452-1136 I^
002453 0376 AND 2576 /02453-0376 C>
002454 7450 SNA /02454-7450 <(
002455 5271 JMP 2471 /02455-5271 *9
002456 1375 TAD 2575 /02456-1375 K=
002457 7650 SNA CLA /02457-7650 >(
002460 5271 JMP 2471 /02460-5271 *9
002461 1136 TAD 0136 /02461-1136 I^
002462 7110 CLL RAR /02462-7110 9H
002463 0105 AND C1 /02463-0105 AE
002464 7450 SNA /02464-7450 <(
002465 6211 CDF 10 /02465-6211 2I
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-100
002466 1374 TAD 2574 /02466-1374 K<
002467 3770 DCA I 2570 /02467-3770 _8
002470 6201 CDF 0 /02470-6201 2A
002471 4473 JMS I TSTIT /02471-4473 $;
002472 5645 TJSR /02472-5645 .%
002473 4474 JMS I CHKIT /02473-4474 $<
002474 5142 JMP 0142 /02474-5142 )"
002475 4464 JMS I LPBCK /02475-4464 $4
002476 2445 2445 /02476-2445 T%
002477 4466 JMS I F0 /02477-4466 $6
002500 4473 JMS I TSTIT /02500-4473 $;
002501 5652 TJSA /02501-5652 .*
002502 4474 JMS I CHKIT /02502-4474 $<
002503 5153 JMP 0153 /02503-5153 )+
002504 4464 JMS I LPBCK /02504-4464 $4
002505 2477 2477 /02505-2477 T?
002506 4466 JMS I F0 /02506-4466 $6
002507 4475 JMS I CLEARX /02507-4475 $=
002510 7340 CLA CLL CMA /02510-7340 ;
002511 4503 JMS I 0103 /02511-4503 %C
002512 0045 AND 0045 /02512-0045 @%
002513 4473 JMS I TSTIT /02513-4473 $;
002514 5662 TJNX5P /02514-5662 .2
002515 4474 JMS I CHKIT /02515-4474 $<
002516 5164 JMP 0164 /02516-5164 )4
002517 4464 JMS I LPBCK /02517-4464 $4
002520 2506 2506 /02520-2506 UF
002521 4466 JMS I F0 /02521-4466 $6
002522 4473 JMS I TSTIT /02522-4473 $;
002523 5400 FPC1 /02523-5400 ,@
002524 4474 JMS I CHKIT /02524-4474 $<
002525 5175 JMP 0175 /02525-5175 )=
002526 4464 JMS I LPBCK /02526-4464 $4
002527 2521 2521 /02527-2521 UQ
002530 4467 JMS I F7 /02530-4467 $7
002531 4473 JMS I TSTIT /02531-4473 $;
002532 5400 FPC1 /02532-5400 ,@
002533 4474 JMS I CHKIT /02533-4474 $<
002534 5206 JMP 2406 /02534-5206 *F
002535 4464 JMS I LPBCK /02535-4464 $4
002536 2530 2530 /02536-2530 UX
002537 4467 JMS I F7 /02537-4467 $7
002540 4475 JMS I CLEARX /02540-4475 $=
002541 3143 DCA EPMODE /02541-3143 Y#
002542 3141 DCA DPMODE /02542-3141 Y!
002543 4473 JMS I TSTIT /02543-4473 $;
002544 5443 TFLX0P /02544-5443 ,#
002545 4474 JMS I CHKIT /02545-4474 $<
002546 5217 JMP 2417 /02546-5217 *O
002547 4464 JMS I LPBCK /02547-4464 $4
002550 2537 2537 /02550-2537 U_
002551 4466 JMS I F0 /02551-4466 $6
002552 4475 JMS I CLEARX /02552-4475 $=
002553 7305 CLA CLL IAC RAL /02553-7305 ;E
002554 4503 JMS I 0103 /02554-4503 %C
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-101
002555 0044 AND 0044 /02555-0044 @$
002556 4473 JMS I TSTIT /02556-4473 $;
002557 5446 TFLX0 /02557-5446 ,&
002560 4474 JMS I CHKIT /02560-4474 $<
002561 5230 JMP 2430 /02561-5230 *X
002562 4464 JMS I LPBCK /02562-4464 $4
002563 2551 2551 /02563-2551 U)
002564 5773 JMP I 2573 /02564-5773 /;
002565 0207 AND 2407 /02565-0207 BG
002566 5633 JMP I 2433 /02566-5633 .[
002567 0021 AND 0021 /02567-0021 @Q
002570 5650 JMP I 2450 /02570-5650 .(
002571 2271 ISZ 2471 /02571-2271 R9
002572 4446 JMS I 0046 /02572-4446 $&
002573 1344 TAD 2544 /02573-1344 K$
002574 1030 TAD 0030 /02574-1030 HX
002575 7775 MQA MQL CLA DCM /02575-7775 ?=
002576 0003 AND 0003 /02576-0003 @C
002577 5101 JMP 0101 /02577-5101 )A
2600 PAGE
002600 0000 FACSET, AND 0000 /02600-0000 @@
002601 7340 CLA CLL CMA /02601-7340 ;
002602 3037 DCA 0037 /02602-3037 X_
002603 1377 TAD (FAC-1 /02603-1377 K?
002604 3010 DCA 0010 /02604-3010 XH
002605 1376 TAD (-6 /02605-1376 K>
002606 3011 DCA 0011 /02606-3011 XI
002607 5600 JMP I FACSET /02607-5600 .@
002610 0000 F0000, AND 0000 /02610-0000 @@
002611 4200 JMS FACSET /02611-4200 "@
002612 3410 DCA I 0010 /02612-3410 \H
002613 2011 ISZ 0011 /02613-2011 PI
002614 5212 JMP 2612 /02614-5212 *J
002615 5610 JMP I 2610 /02615-5610 .H
002616 0000 F7777, AND 0000 /02616-0000 @@
002617 4200 JMS FACSET /02617-4200 "@
002620 7340 CLA CLL CMA /02620-7340 ;
002621 3410 DCA I 0010 /02621-3410 \H
002622 2011 ISZ 0011 /02622-2011 PI
002623 5220 JMP 2620 /02623-5220 *P
002624 5616 JMP I 2616 /02624-5616 .N
002625 0000 F2525, AND 0000 /02625-0000 @@
002626 4200 JMS FACSET /02626-4200 "@
002627 1126 TAD C2525 /02627-1126 IV
002630 3410 DCA I 0010 /02630-3410 \H
002631 2011 ISZ 0011 /02631-2011 PI
002632 5227 JMP 2627 /02632-5227 *W
002633 5625 JMP I F2525 /02633-5625 .U
002634 0000 F5252, AND 0000 /02634-0000 @@
002635 4200 JMS FACSET /02635-4200 "@
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-102
002636 1130 TAD C5252 /02636-1130 IX
002637 3410 DCA I 0010 /02637-3410 \H
002640 2011 ISZ 0011 /02640-2011 PI
002641 5236 JMP 2636 /02641-5236 *^
002642 5634 JMP I F5252 /02642-5634 .\
002643 0000 FXXXX, AND 0000 /02643-0000 @@
002644 3015 DCA 0015 /02644-3015 XM
002645 4200 JMS FACSET /02645-4200 "@
002646 1015 TAD 0015 /02646-1015 HM
002647 3410 DCA I 0010 /02647-3410 \H
002650 2011 ISZ 0011 /02650-2011 PI
002651 5246 JMP 2646 /02651-5246 *&
002652 5643 JMP I FXXXX /02652-5643 .#
002653 0000 CLINDX, AND 0000 /02653-0000 @@
002654 7300 CLA CLL /02654-7300 ;@
002655 1375 TAD (-10 /02655-1375 K=
002656 3011 DCA 0011 /02656-3011 XI
002657 1374 TAD (INDEX-1 /02657-1374 K<
002660 3010 DCA 0010 /02660-3010 XH
002661 4773 JMS I (3524 /02661-4773 ';
002662 2011 ISZ 0011 /02662-2011 PI
002663 5261 JMP .-2 /02663-5261 *1
002664 5653 JMP I CLINDX /02664-5653 .+
002665 0000 CLRBP, AND 0000 /02665-0000 @@
002666 7300 CLA CLL /02666-7300 ;@
002667 1376 TAD (-6 /02667-1376 K>
002670 3011 DCA 0011 /02670-3011 XI
002671 1372 TAD 2772 /02671-1372 K: TAD (BP26-1
002672 3010 DCA 0010 /02672-3010 XH
002673 6201 CDF2, CDF 0 /02673-6201 2A
002674 3410 DCA I 0010 /02674-3410 \H
002675 6201 CDF 0 /02675-6201 2A
002676 2011 ISZ 0011 /02676-2011 PI
002677 5273 JMP .-4 /02677-5273 *;
002700 5665 JMP I CLRBP /02700-5665 .5
002701 0000 TEST, AND 0000 /02701-0000 @@
002702 1701 TAD I TEST /02702-1701 OA
002703 3025 DCA FPC /02703-3025 XU
002704 4502 JMS I READCH /02704-4502 %B
002705 4315 JMS TSINIT /02705-4315 #M
002706 1113 TAD XAPT /02706-1113 IK
002707 6555 FPST /02707-6555 5-
002710 4337 JMS NOSKP /02710-4337 #_
002711 6551 FPINT /02711-6551 5)
002712 5311 JMP .-1 /02712-5311 +I
002713 2301 ISZ TEST /02713-2301 SA
002714 5701 JMP I TEST /02714-5701 /A
002715 0000 TSINIT, AND 0000 /02715-0000 @@
002716 6552 FPICL /02716-6552 5*
002717 7333 CLA CLL CML IAC RTR /02717-7333 ;[
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-103
002720 3027 DCA 0027 /02720-3027 XW
002721 1114 TAD C40 /02721-1114 IL
002722 3026 DCA 0026 /02722-3026 XV
002723 3030 DCA 0030 /02723-3030 XX
002724 3135 DCA 0135 /02724-3135 Y]
002725 1142 TAD FBITS /02725-1142 I"
002726 3024 DCA APT /02726-3024 XT
002727 1141 TAD DPMODE /02727-1141 I!
002730 6553 FPCOM /02730-6553 5+
002731 7300 CLA CLL /02731-7300 ;@
002732 1143 TAD EPMODE /02732-1143 I#
002733 7440 SZA /02733-7440 <
002734 6567 FPEP /02734-6567 57
002735 7300 CLA CLL /02735-7300 ;@
002736 5715 JMP I TSINIT /02736-5715 /M
002737 0000 NOSKP, AND 0000 /02737-0000 @@
002740 7300 CLA CLL /02740-7300 ;@
002741 1337 TAD NOSKP /02741-1337 K_
002742 3145 DCA PCLOC /02742-3145 Y%
002743 4504 JMS I X8 /02743-4504 %D
002744 4463 JMS I GETSW /02744-4463 $3
002745 0116 AND C100 /02745-0116 AN
002746 7640 SZA CLA /02746-7640 >
002747 5367 JMP 2767 /02747-5367 +7
002750 1301 TAD 2701 /02750-1301 KA
002751 3146 DCA 0146 /02751-3146 Y&
002752 4456 JMS I MES10 /02752-4456 $.
002753 7264 INSERR /02753-7264 :4
002754 4455 JMS I MES /02754-4455 $-
002755 7523 NOSKIP /02755-7523 =S
002756 4460 JMS I VT /02756-4460 $0
002757 4455 JMS I MES /02757-4455 $-
002760 7546 PC /02760-7546 =&
002761 1145 TAD PCLOC /02761-1145 I%
002762 4465 JMS I DIGS /02762-4465 $5
002763 4455 JMS I MES /02763-4455 $-
002764 7550 PC2 /02764-7550 =(
002765 1146 TAD 0146 /02765-1146 I&
002766 4465 JMS I DIGS /02766-4465 $5
002767 4464 JMS I LPBCK /02767-4464 $4
002770 2706 2706 /02770-2706 WF
002771 5306 JMP 2706 /02771-5306 +F
002772 6115 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
002773 3524
002774 0037
002775 7770
002776 7772
002777 0030
3000 PAGE
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-104
003000 0000 MESG, AND 0000 /03000-0000 @@
003001 7300 CLA CLL /03001-7300 ;@
003002 6002 IOF /03002-6002 0B
003003 6552 FPICL /03003-6552 5*
003004 1600 TAD I MESG /03004-1600 N@
003005 2200 ISZ MESG /03005-2200 R@
003006 3251 DCA MSTEMP /03006-3251 Z)
003007 1003 TAD CDF10 /03007-1003 HC
003010 7650 SNA CLA /03010-7650 >(
003011 6201 CDF 0 /03011-6201 2A
003012 1651 MNXT, TAD I MSTEMP /03012-1651 N)
003013 0377 AND (7700 /03013-0377 C?
003014 7450 SNA /03014-7450 <(
003015 5241 JMP MEND /03015-5241 *!
003016 7500 SMA /03016-7500 =@
003017 7020 CML /03017-7020 8P
003020 7001 IAC /03020-7001 8A
003021 7012 RTR /03021-7012 8J
003022 7012 RTR /03022-7012 8J
003023 7012 RTR /03023-7012 8J
003024 4252 JMS MSCHR /03024-4252 "*
003025 1651 TAD I MSTEMP /03025-1651 N)
003026 0376 AND (77 /03026-0376 C>
003027 7450 SNA /03027-7450 <(
003030 5241 JMP MEND /03030-5241 *!
003031 1247 TAD C3740 /03031-1247 J'
003032 7500 SMA /03032-7500 =@
003033 1250 TAD C4100 /03033-1250 J(
003034 1120 TAD C240 /03034-1120 IP
003035 4252 JMS MSCHR /03035-4252 "*
003036 7100 CLL /03036-7100 9@
003037 2251 ISZ MSTEMP /03037-2251 R)
003040 5212 JMP MNXT /03040-5212 *J
003041 1004 MEND, TAD CIF10 /03041-1004 HD
003042 7640 SZA CLA /03042-7640 >
003043 6213 CIF CDF 10 /03043-6213 2K
003044 3003 DCA CDF10 /03044-3003 XC
003045 3004 DCA CIF10 /03045-3004 XD
003046 5600 JMP I MESG /03046-5600 .@
003047 3740 C3740, 3740 /03047-3740 _
003050 4100 C4100, 4100 /03050-4100 !@
003051 0000 MSTEMP, 0000 /03051-0000 @@
003052 0000 MSCHR, AND 0000 /03052-0000 @@
003053 3305 DCA MSCTM /03053-3305 [E
003054 1022 TAD MODEX8 /03054-1022 HR
003055 7710 SPA CLA /03055-7710 ?H
003056 5241 JMP MEND /03056-5241 *!
003057 6031 KSF /03057-6031 0Y
003060 5274 JMP NOFLG /03060-5274 *<
003061 6036 KRB /03061-6036 0^
003062 0375 AND (177 /03062-0375 C=
003063 1117 TAD C200 /03063-1117 IO
003064 3140 DCA INCHAR /03064-3140 Y
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-105
003065 6214 RDF /03065-6214 2L
003066 1374 TAD (CDF 0 /03066-1374 K<
003067 3273 DCA .+4 /03067-3273 Z;
003070 6201 CDF 0 /03070-6201 2A
003071 4477 JMS I CTQS /03071-4477 $?
003072 4476 JMS I CTCG /03072-4476 $>
003073 6201 CDF 0 /03073-6201 2A
003074 1305 NOFLG, TAD MSCTM /03074-1305 KE
003075 1373 TAD (-337 /03075-1373 K;
003076 7640 SZA CLA /03076-7640 >
003077 5302 JMP .+3 /03077-5302 +B
003100 4460 JMS I VT /03100-4460 $0
003101 5652 JMP I MSCHR /03101-5652 .*
003102 1305 TAD MSCTM /03102-1305 KE
003103 4461 JMS I PUN /03103-4461 $1
003104 5652 JMP I MSCHR /03104-5652 .*
003105 0000 MSCTM, AND 0000 /03105-0000 @@
003106 0000 PUNCH, AND 0000 /03106-0000 @@
003107 6046 TLS /03107-6046 0&
003110 6041 TSF /03110-6041 0!
003111 5310 JMP .-1 /03111-5310 +H
003112 6042 TCF /03112-6042 0"
003113 7200 CLA /03113-7200 :@
003114 5706 JMP I PUNCH /03114-5706 /F
003115 0000 READC, AND 0000 /03115-0000 @@
003116 6031 KSF /03116-6031 0Y
003117 5715 JMP I READC /03117-5715 /M
003120 6036 KRB /03120-6036 0^
003121 0375 AND (177 /03121-0375 C=
003122 1117 TAD C200 /03122-1117 IO
003123 3140 DCA INCHAR /03123-3140 Y
003124 4476 JMS I CTCG /03124-4476 $>
003125 5715 JMP I 3115 /03125-5715 /M
003126 0000 READ, AND 0000 /03126-0000 @@
003127 6031 KSF /03127-6031 0Y
003130 5327 JMP .-1 /03130-5327 +W
003131 6036 KRB /03131-6036 0^
003132 0375 AND (177 /03132-0375 C=
003133 1117 TAD C200 /03133-1117 IO
003134 5726 JMP I READ /03134-5726 /V
003135 0000 READEC, AND 0000 /03135-0000 @@
003136 4326 JMS READ /03136-4326 #V
003137 3140 DCA INCHAR /03137-3140 Y
003140 4476 JMS I CTCG /03140-4476 $>
003141 1140 TAD INCHAR /03141-1140 I
003142 4461 JMS I PUN /03142-4461 $1
003143 1140 TAD INCHAR /03143-1140 I
003144 5735 JMP I READEC /03144-5735 /]
003145 0000 MESG10, AND 0000 /03145-0000 @@
003146 1745 TAD I MESG10 /03146-1745 O%
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-106
003147 3251 DCA MSTEMP /03147-3251 Z)
003150 2345 ISZ MESG10 /03150-2345 S%
003151 1372 TAD (BACK00 /03151-1372 K:
003152 3200 DCA MESG /03152-3200 Z@
003153 7300 CLA CLL /03153-7300 ;@
003154 6211 CDF 10 /03154-6211 2I
003155 6002 IOF /03155-6002 0B
003156 6552 FPICL /03156-6552 5*
003157 5212 JMP MNXT /03157-5212 *J
003160 6201 BACK00, CDF 0 /03160-6201 2A
003161 5745 JMP I MESG10 /03161-5745 /%
003162 4507 JMS I 0107 /03162-4507 %G
003163 4507 JMS I 0107 /03163-4507 %G
003164 5766 JMP I 3166 /03164-5766 /6
003165 3232 DCA 3032 /03165-3232 ZZ
003166 3200 DCA 3000 /03166-3200 Z@
003167 3777 DCA I 3177 /03167-3777 _?
003170 7201 CLA IAC /03170-7201 :A
003171 7200 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 ?@
003172 3160
003173 7441
003174 6201
003175 0177
003176 0077
003177 7700
3200 PAGE
003200 0000 OPTION, AND 0000 /03200-0000 @@
003201 4460 JMS I VT /03201-4460 $0
003202 1377 TAD 3377 /03202-1377 K?
003203 4461 JMS I PUN /03203-4461 $1
003204 1376 TAD 3376 /03204-1376 K>
003205 4461 JMS I PUN /03205-4461 $1
003206 1375 TAD 3375 /03206-1375 K=
003207 4461 JMS I PUN /03207-4461 $1
003210 4463 JMS I GETSW /03210-4463 $3
003211 4465 JMS I DIGS /03211-4465 $5
003212 1120 TAD 0120 /03212-1120 IP
003213 4461 JMS I PUN /03213-4461 $1
003214 7346 CLA CLL CMA RTL /03214-7346 ;&
003215 3147 DCA COUNT /03215-3147 Y'
003216 3150 DCA 0150 /03216-3150 Y(
003217 3151 DCA 0151 /03217-3151 Y)
003220 4256 JMS 3256 /03220-4256 ".
003221 4277 JMS 3277 /03221-4277 "?
003222 5274 JMP 3274 /03222-5274 *<
003223 1273 TAD 3273 /03223-1273 J;
003224 3150 DCA 0150 /03224-3150 Y(
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-107
003225 4256 JMS 3256 /03225-4256 ".
003226 4277 JMS 3277 /03226-4277 "?
003227 5274 JMP 3274 /03227-5274 *<
003230 1150 TAD 0150 /03230-1150 I(
003231 7106 CLL RTL /03231-7106 9F
003232 7004 RAL /03232-7004 8D
003233 1273 TAD 3273 /03233-1273 J;
003234 3150 DCA 0150 /03234-3150 Y(
003235 2147 ISZ COUNT /03235-2147 Q'
003236 5225 JMP 3225 /03236-5225 *U
003237 4256 JMS 3256 /03237-4256 ".
003240 4320 JMS 3320 /03240-4320 #P
003241 5201 JMP 3201 /03241-5201 *A
003242 1151 TAD 0151 /03242-1151 I)
003243 7650 SNA CLA /03243-7650 >(
003244 5457 JMP I XGO /03244-5457 ,/
003245 1150 TAD 0150 /03245-1150 I(
003246 3020 DCA 0020 /03246-3020 XP
003247 5457 JMP I XGO /03247-5457 ,/
003250 1151 TAD 0151 /03250-1151 I)
003251 7650 SNA CLA /03251-7650 >(
003252 5600 JMP I 3200 /03252-5600 .@
003253 1150 TAD 0150 /03253-1150 I(
003254 3020 DCA 0020 /03254-3020 XP
003255 5600 JMP I 3200 /03255-5600 .@
003256 0000 AND 0000 /03256-0000 @@
003257 4774 JMS I 3374 /03257-4774 '<
003260 3273 DCA 3273 /03260-3273 Z;
003261 1773 TAD I 3373 /03261-1773 O;
003262 7650 SNA CLA /03262-7650 >(
003263 5271 JMP 3271 /03263-5271 *9
003264 4772 JMS I 3372 /03264-4772 ':
003265 1273 TAD 3273 /03265-1273 J;
003266 4461 JMS I PUN /03266-4461 $1
003267 1273 TAD 3273 /03267-1273 J;
003270 5656 JMP I 3256 /03270-5656 ..
003271 4771 JMS I 3371 /03271-4771 '9
003272 5201 JMP 3201 /03272-5201 *A
003273 0000 AND 0000 /03273-0000 @@
003274 1122 TAD 0122 /03274-1122 IR
003275 4461 JMS I PUN /03275-4461 $1
003276 5201 JMP 3201 /03276-5201 *A
003277 0000 AND 0000 /03277-0000 @@
003300 4320 JMS 3320 /03300-4320 #P
003301 1273 TAD 3273 /03301-1273 J;
003302 1370 TAD 3370 /03302-1370 K8
003303 7500 SMA /03303-7500 =@
003304 5316 JMP 3316 /03304-5316 +N
003305 1111 TAD C10 /03305-1111 II
003306 7710 SPA CLA /03306-7710 ?H
003307 5316 JMP 3316 /03307-5316 +N
003310 2277 ISZ 3277 /03310-2277 R?
003311 1273 TAD 3273 /03311-1273 J;
003312 0110 AND 0110 /03312-0110 AH
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-108
003313 3273 DCA 3273 /03313-3273 Z;
003314 2151 ISZ 0151 /03314-2151 Q)
003315 5677 JMP I 3277 /03315-5677 .?
003316 7300 CLA CLL /03316-7300 ;@
003317 5677 JMP I 3277 /03317-5677 .?
003320 0000 AND 0000 /03320-0000 @@
003321 1367 TAD 3367 /03321-1367 K7
003322 7650 SNA CLA /03322-7650 >(
003323 5242 JMP 3242 /03323-5242 *"
003324 1273 TAD 3273 /03324-1273 J;
003325 1366 TAD 3366 /03325-1366 K6
003326 7650 SNA CLA /03326-7650 >(
003327 5331 JMP 3331 /03327-5331 +Y
003330 5720 JMP I 3320 /03330-5720 /P
003331 4460 JMS I VT /03331-4460 $0
003332 5250 JMP 3250 /03332-5250 *(
003333 0000 YESNO, AND 0000 /03333-0000 @@
003334 4462 JMS I RDECHO /03334-4462 $2
003335 1365 TAD 3365 /03335-1365 K5
003336 7650 SNA CLA /03336-7650 >(
003337 5347 JMP 3347 /03337-5347 +'
003340 1140 TAD INCHAR /03340-1140 I
003341 1364 TAD 3364 /03341-1364 K4
003342 7650 SNA CLA /03342-7650 >(
003343 5350 JMP 3350 /03343-5350 +(
003344 1122 TAD C277 /03344-1122 IR
003345 4461 JMS I PUN /03345-4461 $1
003346 5733 JMP I YESNO /03346-5733 /[
003347 2333 ISZ YESNO /03347-2333 S[
003350 2333 ISZ YESNO /03350-2333 S[
003351 5733 JMP I YESNO /03351-5733 /[
003352 6552 FPICL /03352-6552 5*
003353 6556 FPRST /03353-6556 5.
003354 3147 DCA COUNT /03354-3147 Y'
003355 4453 JMS I 0053 /03355-4453 $+
003356 0010 AND 0010 /03356-0010 @H
003357 5341 JMP 3341 /03357-5341 +!
003360 1164 TAD 0164 /03360-1164 I4
003361 6553 FPCOM /03361-6553 5+
003362 7200 CLA /03362-7200 :@
003363 6567 FPEP /03363-6567 57
003364 7447 SWBA /03364-7447 <'
003365 7462 SZA SNL HLT /03365-7462 <2
003366 7563 MQA MQL DAD /03366-7563 =3
003367 7566 SMA SZA SNL OSR HLT /03367-7566 =6
003370 7510 SPA /03370-7510 =H
003371 6535 6535 /03371-6535 5]
003372 6526 6526 /03372-6526 5V
003373 7241 CLA CMA IAC /03373-7241 :!
003374 3126 DCA 0126 /03374-3126 YV
003375 0275 AND 3275 /03375-0275 B=
003376 0322 AND 3322 /03376-0322 CR
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-109
003377 0323 AND 3323 /03377-0323 CS
3400 PAGE
003400 0000 GOE, AND 0000 /03400-0000 @@
003401 1254 TAD RELDON /03401-1254 J,
003402 7640 SZA CLA /03402-7640 >
003403 5600 JMP I 3400 /03403-5600 .@
003404 4460 JMS I VT /03404-4460 $0
003405 4456 JMS I MES10 /03405-4456 $.
003406 7254 DATAEX /03406-7254 :,
003407 4456 JMS I MES10 /03407-4456 $.
003410 7561 RELOCT /03410-7561 =1
003411 4456 JMS I MES10 /03411-4456 $.
003412 7352 YORN /03412-7352 ;*
003413 4653 JMS I 3453 /03413-4653 &+
003414 5204 JMP 3404 /03414-5204 *D
003415 5223 JMP 3423 /03415-5223 *S
003416 7340 CLA CLL CMA /03416-7340 ;
003417 6211 CDF 10 /03417-6211 2I
003420 3652 DCA I RELFLG /03420-3652 ^*
003421 6201 CDF 0 /03421-6201 2A
003422 5600 JMP I 3400 /03422-5600 .@
003423 6211 CDF 10 /03423-6211 2I
003424 3652 DCA I RELFLG /03424-3652 ^*
003425 6201 CDF 0 /03425-6201 2A
003426 4460 GOEGO, JMS I VT /03426-4460 $0
003427 4456 JMS I MES10 /03427-4456 $.
003430 7254 DATAEX /03430-7254 :,
003431 4456 JMS I MES10 /03431-4456 $.
003432 7235 QUICKV /03432-7235 :]
003433 4456 JMS I MES10 /03433-4456 $.
003434 7352 YORN /03434-7352 ;*
003435 4653 JMS I YN /03435-4653 &+
003436 5226 JMP GOEGO /03436-5226 *V
003437 5242 JMP .+3 /03437-5242 *"
003440 1131 TAD 0131 /03440-1131 IY
003441 7410 SKP /03441-7410 <H
003442 1377 TAD 3577 /03442-1377 K?
003443 6211 CDF 10 /03443-6211 2I
003444 3651 DCA I REL /03444-3651 ^)
003445 6201 CDF 0 /03445-6201 2A
003446 4460 JMS I VT /03446-4460 $0
003447 2254 ISZ RELDON /03447-2254 R,
003450 5600 JMP I GOE /03450-5600 .@
003451 0303 REL, FLGVER /03451-0303 CC
003452 3252 RELFLG, FLGREL /03452-3252 Z*
003453 3333 YN, YESNO /03453-3333 [[
003454 0000 RELDON, AND 0000 /03454-0000 @@
003455 0000 AND 0000 /03455-0000 @@
003456 2010 ISZ 0010 /03456-2010 PH
003457 1410 TAD I 0010 /03457-1410 LH
003460 3017 DCA 0017 /03460-3017 XO
003461 7344 CLA CLL CMA RAL /03461-7344 ;$
003462 1010 TAD 0010 /03462-1010 HH
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-110
003463 3010 DCA 0010 /03463-3010 XH
003464 4776 JMS I 3576 /03464-4776 '>
003465 1017 TAD 0017 /03465-1017 HO
003466 0124 AND 0124 /03466-0124 AT
003467 7650 SNA CLA /03467-7650 >(
003470 5275 JMP 3475 /03470-5275 *=
003471 1142 TAD FBITS /03471-1142 I"
003472 7112 CLL RTR /03472-7112 9J
003473 7012 RTR /03473-7012 8J
003474 5307 JMP 3507 /03474-5307 +G
003475 1017 TAD 0017 /03475-1017 HO
003476 0125 AND 0125 /03476-0125 AU
003477 7650 SNA CLA /03477-7650 >(
003500 5305 JMP 3505 /03500-5305 +E
003501 1142 TAD FBITS /03501-1142 I"
003502 7106 CLL RTL /03502-7106 9F
003503 7004 RAL /03503-7004 8D
003504 5307 JMP 3507 /03504-5307 +G
003505 1142 TAD FBITS /03505-1142 I"
003506 7002 BSW /03506-7002 8B
003507 0127 AND 0127 /03507-0127 AW
003510 3017 DCA 0017 /03510-3017 XO
003511 1142 TAD FBITS /03511-1142 I"
003512 0123 AND 0123 /03512-0123 AS
003513 1017 TAD 0017 /03513-1017 HO
003514 3142 DCA FBITS /03514-3142 Y"
003515 1163 TAD 0163 /03515-1163 I3
003516 7650 SNA CLA /03516-7650 >(
003517 5655 JMP I 3455 /03517-5655 .-
003520 3163 DCA 0163 /03520-3163 Y3
003521 5723 JMP I 3523 /03521-5723 /S
003522 5655 JMP I 3455 /03522-5655 .-
003523 7111 CLL IAC RAR /03523-7111 9I
003524 0000 AND 0000 /03524-0000 @@
003525 1157 TAD 0157 /03525-1157 I/
003526 0107 AND C4 /03526-0107 AG
003527 7640 SZA CLA /03527-7640 >
003530 6211 CDF 10 /03530-6211 2I
003531 3410 DCA I 0010 /03531-3410 \H
003532 6201 CDF 0 /03532-6201 2A
003533 5724 JMP I 3524 /03533-5724 /T
003534 0000 AND 0000 /03534-0000 @@
003535 3351 DCA 3551 /03535-3351 [)
003536 1734 TAD I 3534 /03536-1734 O\
003537 3352 DCA 3552 /03537-3352 [*
003540 2334 ISZ 3534 /03540-2334 S\
003541 1157 TAD 0157 /03541-1157 I/
003542 0107 AND C4 /03542-0107 AG
003543 7640 SZA CLA /03543-7640 >
003544 6211 CDF 10 /03544-6211 2I
003545 1351 TAD 3551 /03545-1351 K)
003546 3752 DCA I 3552 /03546-3752 _*
003547 6201 CDF 0 /03547-6201 2A
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-111
003550 5734 JMP I 3534 /03550-5734 /\
003551 0000 AND 0000 /03551-0000 @@
003552 0000 AND 0000 /03552-0000 @@
003553 0000 LNK26, AND 0000 /03553-0000 @@
003554 1753 TAD I LNK26 /03554-1753 O+
003555 6213 CIF CDF 10 /03555-6213 2K
003556 4761 JMS I .+3 /03556-4761 '1
003557 2353 ISZ LNK26 /03557-2353 S+
003560 5753 JMP I LNK26 /03560-5753 /+
003561 2600 X12600, F12600 /03561-2600 V@
003562 0000 CHKX8, AND 0000 /03562-0000 @@
003563 1022 TAD MODEX8 /03563-1022 HR
003564 7700 SMA CLA /03564-7700 ?@
003565 5762 JMP I CHKX8 /03565-5762 /2
003566 6002 IOF /03566-6002 0B
003567 1145 TAD PCLOC /03567-1145 I%
003570 6201 CDF 0 /03570-6201 2A
003571 6272 CIF 70 /03571-6272 2:
003572 5773 JMP I .+1 /03572-5773 /;
003573 6520 6520 /03573-6520 5P
003574 2000 ISZ 0000 /03574-2000 P@
003575 1703 TAD I 3503 /03575-1703 OC
003576 2156 ISZ 0156 /03576-2156 Q.
003577 7764 SMA SZA SNL CLA OSR /03577-7764 ?4
3600 PAGE
003600 5413 CHKBUF, JMP I 0013 /03600-5413 ,K
003601 5411 JMP I 0011 /03601-5411 ,I
003602 0000 AND 0000 /03602-0000 @@
003603 0000 AND 0000 /03603-0000 @@
003604 0000 AND 0000 /03604-0000 @@
003605 0000 AND 0000 /03605-0000 @@
003606 0000 AND 0000 /03606-0000 @@
003607 0000 AND 0000 /03607-0000 @@
003610 0004 AND 0004 /03610-0004 @D
003611 5415 JMP I 0015 /03611-5415 ,M
003612 5413 JMP I 0013 /03612-5413 ,K
003613 0000 AND 0000 /03613-0000 @@
003614 7777 MQA MQL CLA SAM /03614-7777 ??
003615 7777 MQA MQL CLA SAM /03615-7777 ??
003616 7777 MQA MQL CLA SAM /03616-7777 ??
003617 7777 MQA MQL CLA SAM /03617-7777 ??
003620 7777 MQA MQL CLA SAM /03620-7777 ??
003621 0004 AND 0004 /03621-0004 @D
003622 5415 JMP I 0015 /03622-5415 ,M
003623 5413 JMP I 0013 /03623-5413 ,K
003624 7777 MQA MQL CLA SAM /03624-7777 ??
003625 0000 AND 0000 /03625-0000 @@
003626 0000 AND 0000 /03626-0000 @@
003627 0000 AND 0000 /03627-0000 @@
003630 0000 AND 0000 /03630-0000 @@
003631 0001 AND 0001 /03631-0001 @A
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-112
003632 0004 AND 0004 /03632-0004 @D
003633 5421 JMP I 0021 /03633-5421 ,Q
003634 5415 JMP I 0015 /03634-5415 ,M
003635 2525 ISZ I 0125 /03635-2525 UU
003636 5252 JMP 3652 /03636-5252 **
003637 5252 JMP 3652 /03637-5252 **
003640 5252 JMP 3652 /03640-5252 **
003641 5252 JMP 3652 /03641-5252 **
003642 5253 JMP 3653 /03642-5253 *+
003643 0004 AND 0004 /03643-0004 @D
003644 5423 JMP I 0023 /03644-5423 ,S
003645 5421 JMP I 0021 /03645-5421 ,Q
003646 7706 SMA CLA OSR HLT /03646-7706 ?F
003647 2000 ISZ 0000 /03647-2000 P@
003650 0000 AND 0000 /03650-0000 @@
003651 0000 AND 0000 /03651-0000 @@
003652 0000 AND 0000 /03652-0000 @@
003653 0000 AND 0000 /03653-0000 @@
003654 0004 AND 0004 /03654-0004 @D
003655 5423 JMP I 0023 /03655-5423 ,S
003656 5421 JMP I 0021 /03656-5421 ,Q
003657 7710 SPA CLA /03657-7710 ?H
003660 2400 ISZ I 0000 /03660-2400 T@
003661 0000 AND 0000 /03661-0000 @@
003662 0000 AND 0000 /03662-0000 @@
003663 0000 AND 0000 /03663-0000 @@
003664 0000 AND 0000 /03664-0000 @@
003665 0004 AND 0004 /03665-0004 @D
003666 5423 JMP I 0023 /03666-5423 ,S
003667 5421 JMP I 0021 /03667-5421 ,Q
003670 7706 SMA CLA OSR HLT /03670-7706 ?F
003671 6000 SKON /03671-6000 0@
003672 0000 AND 0000 /03672-0000 @@
003673 0000 AND 0000 /03673-0000 @@
003674 0000 AND 0000 /03674-0000 @@
003675 0000 AND 0000 /03675-0000 @@
003676 0004 AND 0004 /03676-0004 @D
003677 5423 JMP I 0023 /03677-5423 ,S
003700 5421 JMP I 0021 /03700-5421 ,Q
003701 0001 AND 0001 /03701-0001 @A
003702 6000 SKON /03702-6000 0@
003703 0000 AND 0000 /03703-0000 @@
003704 0000 AND 0000 /03704-0000 @@
003705 0000 AND 0000 /03705-0000 @@
003706 0000 AND 0000 /03706-0000 @@
003707 0004 AND 0004 /03707-0004 @D
003710 5425 JMP I 0025 /03710-5425 ,U
003711 0040 AND 0040 /03711-0040 @
003712 0001 AND 0001 /03712-0001 @A
003713 2000 ISZ 0000 /03713-2000 P@
003714 0000 AND 0000 /03714-0000 @@
003715 0000 AND 0000 /03715-0000 @@
003716 0000 AND 0000 /03716-0000 @@
003717 0000 AND 0000 /03717-0000 @@
003720 0004 AND 0004 /03720-0004 @D
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-113
003721 5427 JMP I 0027 /03721-5427 ,W
003722 0047 AND 0047 /03722-0047 @'
003723 0002 AND 0002 /03723-0002 @B
003724 6000 SKON /03724-6000 0@
003725 0000 AND 0000 /03725-0000 @@
003726 0000 AND 0000 /03726-0000 @@
003727 0000 AND 0000 /03727-0000 @@
003730 0000 AND 0000 /03730-0000 @@
003731 0004 AND 0004 /03731-0004 @D
003732 5431 JMP I 0031 /03732-5431 ,Y
003733 0041 AND 0041 /03733-0041 @!
003734 7706 SMA CLA OSR HLT /03734-7706 ?F
003735 2000 ISZ 0000 /03735-2000 P@
003736 0000 AND 0000 /03736-0000 @@
003737 0000 AND 0000 /03737-0000 @@
003740 0000 AND 0000 /03740-0000 @@
003741 0000 AND 0000 /03741-0000 @@
003742 0004 AND 0004 /03742-0004 @D
003743 5433 JMP I 0033 /03743-5433 ,[
003744 0042 AND 0042 /03744-0042 @"
003745 0072 AND 0072 /03745-0072 @:
003746 0000 AND 0000 /03746-0000 @@
003747 0000 AND 0000 /03747-0000 @@
003750 0000 AND 0000 /03750-0000 @@
003751 0000 AND 0000 /03751-0000 @@
003752 0001 AND 0001 /03752-0001 @A
003753 0004 AND 0004 /03753-0004 @D
003754 5435 JMP I 0035 /03754-5435 ,]
003755 0043 AND 0043 /03755-0043 @#
003756 0072 AND 0072 /03756-0072 @:
003757 7777 MQA MQL CLA SAM /03757-7777 ??
003760 7777 MQA MQL CLA SAM /03760-7777 ??
003761 7777 MQA MQL CLA SAM /03761-7777 ??
003762 7777 MQA MQL CLA SAM /03762-7777 ??
003763 7777 MQA MQL CLA SAM /03763-7777 ??
003764 0004 AND 0004 /03764-0004 @D
003765 5437 JMP I 0037 /03765-5437 ,_
003766 5435 JMP I 0035 /03766-5435 ,]
003767 0000 AND 0000 /03767-0000 @@
003770 0000 AND 0000 /03770-0000 @@
003771 0000 AND 0000 /03771-0000 @@
003772 0000 AND 0000 /03772-0000 @@
003773 0000 AND 0000 /03773-0000 @@
003774 0000 AND 0000 /03774-0000 @@
003775 0004 AND 0004 /03775-0004 @D
003776 5441 JMP I 0041 /03776-5441 ,!
003777 6032 KCC /03777-6032 0Z
4000 PAGE
004000 2525 ISZ I 0125 /04000-2525 UU
004001 2525 ISZ I 0125 /04001-2525 UU
004002 2525 ISZ I 0125 /04002-2525 UU
004003 2525 ISZ I 0125 /04003-2525 UU
004004 2525 ISZ I 0125 /04004-2525 UU
004005 2525 ISZ I 0125 /04005-2525 UU
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-114
004006 0004 AND 0004 /04006-0004 @D
004007 5443 JMP I 0043 /04007-5443 ,#
004010 6040 TFL /04010-6040 0
004011 5252 JMP 4052 /04011-5252 **
004012 5252 JMP 4052 /04012-5252 **
004013 5252 JMP 4052 /04013-5252 **
004014 5252 JMP 4052 /04014-5252 **
004015 5252 JMP 4052 /04015-5252 **
004016 5252 JMP 4052 /04016-5252 **
004017 0004 AND 0004 /04017-0004 @D
004020 5446 JMP I 0046 /04020-5446 ,&
004021 6046 TLS /04021-6046 0&
004022 0000 AND 0000 /04022-0000 @@
004023 0000 AND 0000 /04023-0000 @@
004024 0000 AND 0000 /04024-0000 @@
004025 0000 AND 0000 /04025-0000 @@
004026 0000 AND 0000 /04026-0000 @@
004027 0000 AND 0000 /04027-0000 @@
004030 0004 AND 0004 /04030-0004 @D
004031 5451 JMP I 0051 /04031-5451 ,)
004032 6054 6054 /04032-6054 0,
004033 7777 MQA MQL CLA SAM /04033-7777 ??
004034 7777 MQA MQL CLA SAM /04034-7777 ??
004035 7777 MQA MQL CLA SAM /04035-7777 ??
004036 7777 MQA MQL CLA SAM /04036-7777 ??
004037 7777 MQA MQL CLA SAM /04037-7777 ??
004040 7777 MQA MQL CLA SAM /04040-7777 ??
004041 0004 AND 0004 /04041-0004 @D
004042 5454 JMP I 0054 /04042-5454 ,,
004043 6054 6054 /04043-6054 0,
004044 7777 MQA MQL CLA SAM /04044-7777 ??
004045 7777 MQA MQL CLA SAM /04045-7777 ??
004046 7777 MQA MQL CLA SAM /04046-7777 ??
004047 7777 MQA MQL CLA SAM /04047-7777 ??
004050 7777 MQA MQL CLA SAM /04050-7777 ??
004051 7777 MQA MQL CLA SAM /04051-7777 ??
004052 0004 AND 0004 /04052-0004 @D
004053 5454 JMP I 0054 /04053-5454 ,,
004054 6062 6062 /04054-6062 02
004055 0000 AND 0000 /04055-0000 @@
004056 2525 ISZ I 0125 /04056-2525 UU
004057 2525 ISZ I 0125 /04057-2525 UU
004060 2525 ISZ I 0125 /04060-2525 UU
004061 2525 ISZ I 0125 /04061-2525 UU
004062 2525 ISZ I 0125 /04062-2525 UU
004063 0004 AND 0004 /04063-0004 @D
004064 5456 JMP I 0056 /04064-5456 ,.
004065 6076 6076 /04065-6076 0>
004066 0000 AND 0000 /04066-0000 @@
004067 4000 JMS 0000 /04067-4000 @
004070 0000 AND 0000 /04070-0000 @@
004071 0000 AND 0000 /04071-0000 @@
004072 0000 AND 0000 /04072-0000 @@
004073 0001 AND 0001 /04073-0001 @A
004074 0004 AND 0004 /04074-0004 @D
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-115
004075 5456 JMP I 0056 /04075-5456 ,.
004076 6104 6104 /04076-6104 1D
004077 0000 AND 0000 /04077-0000 @@
004100 0000 AND 0000 /04100-0000 @@
004101 0000 AND 0000 /04101-0000 @@
004102 0000 AND 0000 /04102-0000 @@
004103 0000 AND 0000 /04103-0000 @@
004104 0001 AND 0001 /04104-0001 @A
004105 0004 AND 0004 /04105-0004 @D
004106 5460 JMP I 0060 /04106-5460 ,0
004107 6112 6112 /04107-6112 1J
004110 0000 AND 0000 /04110-0000 @@
004111 3777 DCA I 4177 /04111-3777 _?
004112 7777 MQA MQL CLA SAM /04112-7777 ??
004113 7777 MQA MQL CLA SAM /04113-7777 ??
004114 7777 MQA MQL CLA SAM /04114-7777 ??
004115 7777 MQA MQL CLA SAM /04115-7777 ??
004116 0004 AND 0004 /04116-0004 @D
004117 5462 JMP I 0062 /04117-5462 ,2
004120 6120 6120 /04120-6120 1P
004121 5252 JMP 4052 /04121-5252 **
004122 5252 JMP 4052 /04122-5252 **
004123 5252 JMP 4052 /04123-5252 **
004124 5252 JMP 4052 /04124-5252 **
004125 5252 JMP 4052 /04125-5252 **
004126 5252 JMP 4052 /04126-5300 **
/ JMP 4052 /04126-5252 **
004127 0004 AND 0004 /04127-0004 @D
004130 5252 JMP 4052 /04130-5252 **
004131 5252 JMP 4052 /04131-5252 **
004132 5252 JMP 4052 /04132-5252 **
004133 5252 JMP 4052 /04133-5252 **
004134 5252 JMP 4052 /04134-5252 **
004135 5252 JMP 4052 /04135-5300 **
/ JMP 4052 /04135-5252 **
004136 5464 JMP I 0064 /04136-5464 ,4
004137 6070 6070 /04137-6070 08
004140 0000 AND 0000 /04140-0000 @@
004141 3777 DCA I 4177 /04141-3777 _?
004142 7777 MQA MQL CLA SAM /04142-7777 ??
004143 7777 MQA MQL CLA SAM /04143-7777 ??
004144 7777 MQA MQL CLA SAM /04144-7777 ??
004145 7777 MQA MQL CLA SAM /04145-7777 ??
004146 0004 AND 0004 /04146-0004 @D
004147 5466 JMP I 0066 /04147-5466 ,6
004150 6112 6112 /04150-6112 1J
004151 0001 AND 0001 /04151-0001 @A
004152 2000 ISZ 0000 /04152-2000 P@
004153 0000 AND 0000 /04153-0000 @@
004154 0000 AND 0000 /04154-0000 @@
004155 0000 AND 0000 /04155-0000 @@
004156 0000 AND 0000 /04156-0000 @@
004157 0004 AND 0004 /04157-0004 @D
004160 5466 JMP I 0066 /04160-5466 ,6
004161 6112 6112 /04161-6112 1J
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-116
004162 0000 AND 0000 /04162-0000 @@
004163 3777 DCA I 4177 /04163-3777 _?
004164 7777 MQA MQL CLA SAM /04164-7777 ??
004165 7777 MQA MQL CLA SAM /04165-7777 ??
004166 7777 MQA MQL CLA SAM /04166-7777 ??
004167 7774 SPA SNA SZL CLA OSR /04167-7774 ?<
004170 0004 AND 0004 /04170-0004 @D
004171 5470 JMP I 0070 /04171-5470 ,8
004172 6126 6126 /04172-6126 1V
004173 7777 MQA MQL CLA SAM /04173-7777 ??
004174 3777 DCA I 4177 /04174-3777 _?
004175 7777 MQA MQL CLA SAM /04175-7777 ??
004176 7777 MQA MQL CLA SAM /04176-7777 ??
004177 7777 MQA MQL CLA SAM /04177-7777 ??
4200 PAGE
004200 7776 SPA SNA SZL CLA OSR HLT /04200-7776 ?>
004201 0004 AND 0004 /04201-0004 @D
004202 5472 JMP I 0072 /04202-5472 ,:
004203 6134 6134 /04203-6134 1\
004204 4206 JMS 4206 /04204-4206 "F
004205 2104 ISZ 0104 /04205-2104 QD
004206 2104 ISZ 0104 /04206-2104 QD
004207 2104 ISZ 0104 /04207-2104 QD
004210 2104 ISZ 0104 /04210-2104 QD
004211 2100 ISZ 0100 /04211-2100 Q@
004212 0004 AND 0004 /04212-0004 @D
004213 5474 JMP I 0074 /04213-5474 ,<
004214 6142 6142 /04214-6142 1"
004215 2105 ISZ 0105 /04215-2105 QE
004216 2210 ISZ 4210 /04216-2210 RH
004217 4210 JMS 4210 /04217-4210 "H
004220 4210 JMS 4210 /04220-4210 "H
004221 4210 JMS 4210 /04221-4210 "H
004222 4210 JMS 4210 /04222-4210 "H
004223 0004 AND 0004 /04223-0004 @D
004224 5476 JMP I 0076 /04224-5476 ,>
004225 6150 6150 /04225-6150 1(
004226 1043 TAD 0043 /04226-1043 H#
004227 2210 ISZ 4210 /04227-2210 RH
004230 4210 JMS 4210 /04230-4210 "H
004231 4210 JMS 4210 /04231-4210 "H
004232 4210 JMS 4210 /04232-4210 "H
004233 4210 JMS 4210 /04233-4210 "H
004234 0004 AND 0004 /04234-0004 @D
004235 5500 JMP I 0100 /04235-5500 -@
004236 6156 6156 /04236-6156 1.
004237 0000 AND 0000 /04237-0000 @@
004240 5777 JMP I 4377 /04240-5777 /?
004241 7777 MQA MQL CLA SAM /04241-7777 ??
004242 7777 MQA MQL CLA SAM /04242-7777 ??
004243 7777 MQA MQL CLA SAM /04243-7777 ??
004244 7777 MQA MQL CLA SAM /04244-7777 ??
004245 0004 AND 0004 /04245-0004 @D
004246 5502 JMP I 0102 /04246-5502 -B
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-117
004247 6164 6164 /04247-6164 14
004250 0000 AND 0000 /04250-0000 @@
004251 0000 AND 0000 /04251-0000 @@
004252 0000 AND 0000 /04252-0000 @@
004253 0000 AND 0000 /04253-0000 @@
004254 0000 AND 0000 /04254-0000 @@
004255 0000 AND 0000 /04255-0000 @@
004256 0004 AND 0004 /04256-0004 @D
004257 5504 JMP I 0104 /04257-5504 -D
004260 6172 6172 /04260-6172 1:
004261 0001 AND 0001 /04261-0001 @A
004262 4000 JMS 0000 /04262-4000 @
004263 0000 AND 0000 /04263-0000 @@
004264 0000 AND 0000 /04264-0000 @@
004265 0000 AND 0000 /04265-0000 @@
004266 0001 AND 0001 /04266-0001 @A
004267 0004 AND 0004 /04267-0004 @D
004270 5506 JMP I 0106 /04270-5506 -F
004271 6200 6200 /04271-6200 2@
004272 4205 JMS 4205 /04272-4205 "E
004273 5673 JMP I 4273 /04273-5673 .;
004274 5673 JMP I 4273 /04274-5673 .;
004275 5673 JMP I 4273 /04275-5673 .;
004276 5673 JMP I 4273 /04276-5673 .;
004277 5700 JMP I 4300 /04277-5700 /@
004300 0004 AND 0004 /04300-0004 @D
004301 5510 JMP I 0110 /04301-5510 -H
004302 6206 6206 /04302-6206 2F
004303 2103 ISZ 0103 /04303-2103 QC
004304 3146 DCA 0146 /04304-3146 Y&
004305 3146 DCA 0146 /04305-3146 Y&
004306 3146 DCA 0146 /04306-3146 Y&
004307 3146 DCA 0146 /04307-3146 Y&
004310 3150 DCA 0150 /04310-3150 Y(
004311 0004 AND 0004 /04311-0004 @D
004312 5512 JMP I 0112 /04312-5512 -J
004313 6214 RDF /04313-6214 2L
004314 1040 TAD 0040 /04314-1040 H
004315 2104 ISZ 0104 /04315-2104 QD
004316 2104 ISZ 0104 /04316-2104 QD
004317 2104 ISZ 0104 /04317-2104 QD
004320 2104 ISZ 0104 /04320-2104 QD
004321 2110 ISZ 0110 /04321-2110 QH
004322 0004 AND 0004 /04322-0004 @D
004323 5514 JMP I 0114 /04323-5514 -L
004324 6222 CIF 20 /04324-6222 2R
004325 6313 6313 /04325-6313 3K
004326 3146 DCA 0146 /04326-3146 Y&
004327 3146 DCA 0146 /04327-3146 Y&
004330 3146 DCA 0146 /04330-3146 Y&
004331 3146 DCA 0146 /04331-3146 Y&
004332 3150 DCA 0150 /04332-3150 Y(
004333 0004 AND 0004 /04333-0004 @D
004334 5516 JMP I 0116 /04334-5516 -N
004335 6230 6230 /04335-6230 2X
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-118
004336 3144 DCA 0144 /04336-3144 Y$
004337 2104 ISZ 0104 /04337-2104 QD
004340 2104 ISZ 0104 /04340-2104 QD
004341 2104 ISZ 0104 /04341-2104 QD
004342 2104 ISZ 0104 /04342-2104 QD
004343 2110 ISZ 0110 /04343-2110 QH
004344 0004 AND 0004 /04344-0004 @D
004345 5520 JMP I 0120 /04345-5520 -P
004346 6236 6236 /04346-6236 2^
004347 0327 AND 4327 /04347-0327 CW
004350 2000 ISZ 0000 /04350-2000 P@
004351 0000 AND 0000 /04351-0000 @@
004352 0000 AND 0000 /04352-0000 @@
004353 0000 AND 0000 /04353-0000 @@
004354 0000 AND 0000 /04354-0000 @@
004355 0004 AND 0004 /04355-0004 @D
004356 5522 JMP I 0122 /04356-5522 -R
004357 6244 RMF /04357-6244 2$
004360 3777 DCA I 4377 /04360-3777 _?
004361 2000 ISZ 0000 /04361-2000 P@
004362 0000 AND 0000 /04362-0000 @@
004363 0000 AND 0000 /04363-0000 @@
004364 0000 AND 0000 /04364-0000 @@
004365 0000 AND 0000 /04365-0000 @@
004366 0004 AND 0004 /04366-0004 @D
004367 5524 JMP I 0124 /04367-5524 -T
004370 6252 CIF 50 /04370-6252 2*
004371 7705 MQA CLA MUY /04371-7705 ?E
004372 5000 JMP 0000 /04372-5000 (@
004373 0000 AND 0000 /04373-0000 @@
004374 0000 AND 0000 /04374-0000 @@
004375 0000 AND 0000 /04375-0000 @@
004376 0000 AND 0000 /04376-0000 @@
004377 0004 AND 0004 /04377-0004 @D
4400 PAGE
004400 5526 JMP I 0126 /04400-5526 -V
004401 6260 6260 /04401-6260 20
004402 0000 AND 0000 /04402-0000 @@
004403 0000 AND 0000 /04403-0000 @@
004404 0000 AND 0000 /04404-0000 @@
004405 0000 AND 0000 /04405-0000 @@
004406 0000 AND 0000 /04406-0000 @@
004407 0000 AND 0000 /04407-0000 @@
004410 0004 AND 0004 /04410-0004 @D
004411 5530 JMP I 0130 /04411-5530 -X
004412 6266 6266 /04412-6266 26
004413 3723 DCA I 4523 /04413-3723 _S
004414 3434 DCA I 0034 /04414-3434 \\
004415 3434 DCA I 0034 /04415-3434 \\
004416 3434 DCA I 0034 /04416-3434 \\
004417 3434 DCA I 0034 /04417-3434 \\
004420 3432 DCA I 0032 /04420-3432 \Z
004421 0004 AND 0004 /04421-0004 @D
004422 5532 JMP I 0132 /04422-5532 -Z
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-119
004423 6274 SUF /04423-6274 2<
004424 5343 JMP 4543 /04424-5343 +#
004425 2204 ISZ 4404 /04425-2204 RD
004426 1573 TAD I 0173 /04426-1573 M;
004427 1543 TAD I 0143 /04427-1543 M#
004430 3017 DCA 0017 /04430-3017 XO
004431 4555 JMS I 0155 /04431-4555 %-
004432 0004 AND 0004 /04432-0004 @D
004433 5534 JMP I 0134 /04433-5534 -\
004434 6302 6302 /04434-6302 3B
004435 6345 6345 /04435-6345 3%
004436 4350 JMS 4550 /04436-4350 #(
004437 1741 TAD I 4541 /04437-1741 O!
004440 6203 CIF CDF 0 /04440-6203 2C
004441 3025 DCA 0025 /04441-3025 XU
004442 0705 705 /04442-0704 GD WVDM 0705
004443 0004 AND 0004 /04443-0004 @D
004444 5536 JMP I 0136 /04444-5536 -^
004445 6310 6310 /04445-6310 3H
004446 0001 AND 0001 /04446-0001 @A
004447 2000 ISZ 0000 /04447-2000 P@
004450 0000 AND 0000 /04450-0000 @@
004451 0000 AND 0000 /04451-0000 @@
004452 0000 AND 0000 /04452-0000 @@
004453 0000 AND 0000 /04453-0000 @@
004454 0004 AND 0004 /04454-0004 @D
004455 5540 JMP I 0140 /04455-5540 -
004456 6316 6316 /04456-6316 3N
004457 7777 MQA MQL CLA SAM /04457-7777 ??
004460 6000 SKON /04460-6000 0@
004461 0000 AND 0000 /04461-0000 @@
004462 0000 AND 0000 /04462-0000 @@
004463 0000 AND 0000 /04463-0000 @@
004464 0000 AND 0000 /04464-0000 @@
004465 0004 AND 0004 /04465-0004 @D
004466 5542 JMP I 0142 /04466-5542 -"
004467 6324 6324 /04467-6324 3T
004470 7777 7777 /04470-7776 ?> WVDM 7777
004471 2000 ISZ 0000 /04471-2000 P@
004472 0000 AND 0000 /04472-0000 @@
004473 0000 AND 0000 /04473-0000 @@
004474 0000 AND 0000 /04474-0000 @@
004475 0000 AND 0000 /04475-0000 @@
004476 0004 AND 0004 /04476-0004 @D
004477 5544 JMP I 0144 /04477-5544 -$
004500 6332 6332 /04500-6332 3Z
004501 5221 JMP 4421 /04501-5221 *Q
004502 3425 DCA I 0025 /04502-3425 \U
004503 1476 TAD I 0076 /04503-1476 L>
004504 2613 ISZ I 4413 /04504-2613 VK
004505 4651 JMS I 4451 /04505-4651 &)
004506 0513 AND I 0113 /04506-0513 EK
004507 0004 AND 0004 /04507-0004 @D
004510 5546 JMP I 0146 /04510-5546 -&
004511 6340 6340 /04511-6340 3
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-120
004512 7176 7176 /04512-7176 9>
004513 2067 ISZ 0067 /04513-2067 P7
004514 3701 DCA I 4501 /04514-3701 _A
004515 5734 JMP I 4534 /04515-5734 /\
004516 3266 DCA 4466 /04516-3266 Z6
004517 7675 7675 /04517-7675 >=
004520 0004 AND 0004 /04520-0004 @D
004521 5550 JMP I 0150 /04521-5550 -(
004522 6346 6346 /04522-6346 3&
004523 3121 DCA 0121 /04523-3121 YQ
004524 2651 ISZ I 4451 /04524-2651 V)
004525 2651 ISZ I 4451 /04525-2651 V)
004526 2651 ISZ I 4451 /04526-2651 V)
004527 2651 ISZ I 4451 /04527-2651 V)
004530 2651 ISZ I 4451 /04530-2651 V)
004531 0004 AND 0004 /04531-0004 @D
004532 5562 JMP I 0162 /04532-5562 -2
004533 6120 6120 /04533-6120 1P
004534 2525 ISZ I 0125 /04534-2525 UU
004535 1252 TAD 4452 /04535-1252 J*
004536 5252 JMP 4452 /04536-5252 **
004537 5252 JMP 4452 /04537-5252 **
004540 5252 JMP 4452 /04540-5252 **
004541 5252 JMP 4452 /04541-5252 **
004542 0004 AND 0004 /04542-0004 @D
004543 2525 ISZ I 0125 /04543-2525 UU
004544 3777 DCA I 4577 /04544-3777 _?
004545 7777 MQA MQL CLA SAM /04545-7777 ??
004546 7777 MQA MQL CLA SAM /04546-7777 ??
004547 7777 MQA MQL CLA SAM /04547-7777 ??
004550 7777 MQA MQL CLA SAM /04550-7777 ??
004551 5566 JMP I 0166 /04551-5566 -6
004552 6120 6120 /04552-6120 1P
004553 2716 ISZ I 4516 /04553-2716 WN
004554 3705 DCA I 4505 /04554-3705 _E
004555 1443 TAD I 0043 /04555-1443 L#
004556 7165 CLL CMA CML IAC RAL /04556-7165 95
004557 3402 DCA I 0002 /04557-3402 \B
004560 6213 CIF CDF 10 /04560-6213 2K
004561 0004 AND 0004 /04561-0004 @D
004562 2232 ISZ 4432 /04562-2232 RZ
004563 5536 JMP I 0136 /04563-5536 -^
004564 5727 JMP I 4527 /04564-5727 /W
004565 6642 6642 /04565-6642 6"
004566 7115 7115 /04566-7115 9M
004567 5701 JMP I 4501 /04567-5701 /A
004570 5567 JMP I 0167 /04570-5567 -7
004571 6376 6376 /04571-6376 3>
004572 3777 DCA I 4577 /04572-3777 _?
004573 2000 ISZ 0000 /04573-2000 P@
004574 0000 AND 0000 /04574-0000 @@
004575 0000 AND 0000 /04575-0000 @@
004576 0000 AND 0000 /04576-0000 @@
004577 0000 AND 0000 /04577-0000 @@
4600 PAGE
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-121
004600 0044 AND 0044 /04600-0044 @$
004601 5571 JMP I 0171 /04601-5571 -9
004602 6404 6404 /04602-6404 4D
004603 4000 JMS 0000 /04603-4000 @
004604 2000 ISZ 0000 /04604-2000 P@
004605 0000 AND 0000 /04605-0000 @@
004606 0000 AND 0000 /04606-0000 @@
004607 0000 AND 0000 /04607-0000 @@
004610 0000 AND 0000 /04610-0000 @@
004611 0104 AND 0104 /04611-0104 AD
004612 5573 JMP I 0173 /04612-5573 -;
004613 6412 6412 /04613-6412 4J
004614 2525 ISZ I 0125 /04614-2525 UU
004615 2525 ISZ I 0125 /04615-2525 UU
004616 2525 ISZ I 0125 /04616-2525 UU
004617 2525 ISZ I 0125 /04617-2525 UU
004620 2525 ISZ I 0125 /04620-2525 UU
004621 2525 ISZ I 0125 /04621-2525 UU
004622 0404 AND I 0004 /04622-0404 DD
004623 5573 JMP I 0173 /04623-5573 -;
004624 6412 6412 /04624-6412 4J
004625 0000 AND 0000 /04625-0000 @@
004626 0000 AND 0000 /04626-0000 @@
004627 0000 AND 0000 /04627-0000 @@
004630 0000 AND 0000 /04630-0000 @@
004631 0000 AND 0000 /04631-0000 @@
004632 0000 AND 0000 /04632-0000 @@
004633 1404 TAD I 0004 /04633-1404 LD
004634 5600 JMP I 4600 /04634-5600 .@
004635 5574 JMP I 0174 /04635-5574 -<
004636 0000 AND 0000 /04636-0000 @@
004637 0000 AND 0000 /04637-0000 @@
004640 0000 AND 0000 /04640-0000 @@
004641 0000 AND 0000 /04641-0000 @@
004642 0000 AND 0000 /04642-0000 @@
004643 0000 AND 0000 /04643-0000 @@
004644 0004 AND 0004 /04644-0004 @D
004645 5577 JMP I 0177 /04645-5577 -?
004646 5574 JMP I 0174 /04646-5574 -<
004647 0000 AND 0000 /04647-0000 @@
004650 0000 AND 0000 /04650-0000 @@
004651 0000 AND 0000 /04651-0000 @@
004652 0000 AND 0000 /04652-0000 @@
004653 0000 AND 0000 /04653-0000 @@
004654 0001 AND 0001 /04654-0001 @A
004655 0004 AND 0004 /04655-0004 @D
004656 5577 JMP I 0177 /04656-5577 -?
004657 5574 JMP I 0174 /04657-5574 -<
004660 0000 AND 0000 /04660-0000 @@
004661 4000 JMS 0000 /04661-4000 @
004662 0000 AND 0000 /04662-0000 @@
004663 0000 AND 0000 /04663-0000 @@
004664 0000 AND 0000 /04664-0000 @@
004665 0001 AND 0001 /04665-0001 @A
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-122
004666 0004 AND 0004 /04666-0004 @D
004667 5604 JMP I 4604 /04667-5604 .D
004670 5600 JMP I 4600 /04670-5600 .@
004671 0000 AND 0000 /04671-0000 @@
004672 0000 AND 0000 /04672-0000 @@
004673 0000 AND 0000 /04673-0000 @@
004674 0000 AND 0000 /04674-0000 @@
004675 0000 AND 0000 /04675-0000 @@
004676 0000 AND 0000 /04676-0000 @@
004677 0004 AND 0004 /04677-0004 @D
004700 5604 JMP I 4604 /04700-5604 .D
004701 5600 JMP I 4600 /04701-5600 .@
004702 0000 AND 0000 /04702-0000 @@
004703 0000 AND 0000 /04703-0000 @@
004704 0000 AND 0000 /04704-0000 @@
004705 0000 AND 0000 /04705-0000 @@
004706 0000 AND 0000 /04706-0000 @@
004707 0001 AND 0001 /04707-0001 @A
004710 0004 AND 0004 /04710-0004 @D
004711 5603 JMP I 4603 /04711-5603 .C
004712 5600 JMP I 4600 /04712-5600 .@
004713 0000 AND 0000 /04713-0000 @@
004714 4000 JMS 0000 /04714-4000 @
004715 0000 AND 0000 /04715-0000 @@
004716 0000 AND 0000 /04716-0000 @@
004717 0000 AND 0000 /04717-0000 @@
004720 0001 AND 0001 /04720-0001 @A
004721 0004 AND 0004 /04721-0004 @D
004722 5610 JMP I 4610 /04722-5610 .H
004723 5604 JMP I 4604 /04723-5604 .D
004724 0000 AND 0000 /04724-0000 @@
004725 0000 AND 0000 /04725-0000 @@
004726 0000 AND 0000 /04726-0000 @@
004727 0000 AND 0000 /04727-0000 @@
004730 0000 AND 0000 /04730-0000 @@
004731 0000 AND 0000 /04731-0000 @@
004732 0004 AND 0004 /04732-0004 @D
004733 5610 JMP I 4610 /04733-5610 .H
004734 5604 JMP I 4604 /04734-5604 .D
004735 0000 AND 0000 /04735-0000 @@
004736 4000 JMS 0000 /04736-4000 @
004737 0000 AND 0000 /04737-0000 @@
004740 0000 AND 0000 /04740-0000 @@
004741 0000 AND 0000 /04741-0000 @@
004742 0001 AND 0001 /04742-0001 @A
004743 0004 AND 0004 /04743-0004 @D
004744 5607 JMP I 4607 /04744-5607 .G
004745 5604 JMP I 4604 /04745-5604 .D
004746 0000 AND 0000 /04746-0000 @@
004747 0000 AND 0000 /04747-0000 @@
004750 0000 AND 0000 /04750-0000 @@
004751 0000 AND 0000 /04751-0000 @@
004752 0000 AND 0000 /04752-0000 @@
004753 0001 AND 0001 /04753-0001 @A
004754 0004 AND 0004 /04754-0004 @D
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-123
004755 5613 JMP I 4613 /04755-5613 .K
004756 5610 JMP I 4610 /04756-5610 .H
004757 0000 AND 0000 /04757-0000 @@
004760 0000 AND 0000 /04760-0000 @@
004761 0000 AND 0000 /04761-0000 @@
004762 0000 AND 0000 /04762-0000 @@
004763 0000 AND 0000 /04763-0000 @@
004764 0000 AND 0000 /04764-0000 @@
004765 0004 AND 0004 /04765-0004 @D
004766 5614 JMP I 4614 /04766-5614 .L
004767 5610 JMP I 4610 /04767-5610 .H
004770 0000 AND 0000 /04770-0000 @@
004771 0000 AND 0000 /04771-0000 @@
004772 0000 AND 0000 /04772-0000 @@
004773 0000 AND 0000 /04773-0000 @@
004774 0000 AND 0000 /04774-0000 @@
004775 0001 AND 0001 /04775-0001 @A
004776 0004 AND 0004 /04776-0004 @D
004777 5614 JMP I 4614 /04777-5614 .L
5000 PAGE
005000 5610 JMP I 5010 /05000-5610 .H
005001 0000 AND 0000 /05001-0000 @@
005002 4000 JMS 0000 /05002-4000 @
005003 0000 AND 0000 /05003-0000 @@
005004 0000 AND 0000 /05004-0000 @@
005005 0000 AND 0000 /05005-0000 @@
005006 0001 AND 0001 /05006-0001 @A
005007 0004 AND 0004 /05007-0004 @D
005010 5617 JMP I 5017 /05010-5617 .O
005011 5614 JMP I 5014 /05011-5614 .L
005012 0000 AND 0000 /05012-0000 @@
005013 0000 AND 0000 /05013-0000 @@
005014 0000 AND 0000 /05014-0000 @@
005015 0000 AND 0000 /05015-0000 @@
005016 0000 AND 0000 /05016-0000 @@
005017 0000 AND 0000 /05017-0000 @@
005020 0004 AND 0004 /05020-0004 @D
005021 5617 JMP I 5017 /05021-5617 .O
005022 5614 JMP I 5014 /05022-5614 .L
005023 0000 AND 0000 /05023-0000 @@
005024 0000 AND 0000 /05024-0000 @@
005025 0000 AND 0000 /05025-0000 @@
005026 0000 AND 0000 /05026-0000 @@
005027 0000 AND 0000 /05027-0000 @@
005030 0001 AND 0001 /05030-0001 @A
005031 0004 AND 0004 /05031-0004 @D
005032 5620 JMP I 5020 /05032-5620 .P
005033 5614 JMP I 5014 /05033-5614 .L
005034 7777 MQA MQL CLA SAM /05034-7777 ??
005035 7777 MQA MQL CLA SAM /05035-7777 ??
005036 7777 MQA MQL CLA SAM /05036-7777 ??
005037 7777 MQA MQL CLA SAM /05037-7777 ??
005040 7777 MQA MQL CLA SAM /05040-7777 ??
005041 7777 MQA MQL CLA SAM /05041-7777 ??
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-124
005042 0004 AND 0004 /05042-0004 @D
005043 5624 JMP I 5024 /05043-5624 .T
005044 5620 JMP I 5020 /05044-5620 .P
005045 0000 AND 0000 /05045-0000 @@
005046 0000 AND 0000 /05046-0000 @@
005047 0000 AND 0000 /05047-0000 @@
005050 0000 AND 0000 /05050-0000 @@
005051 0000 AND 0000 /05051-0000 @@
005052 0001 AND 0001 /05052-0001 @A
005053 0004 AND 0004 /05053-0004 @D
005054 5623 JMP I 5023 /05054-5623 .S
005055 5620 JMP I 5020 /05055-5620 .P
005056 0000 AND 0000 /05056-0000 @@
005057 0000 AND 0000 /05057-0000 @@
005060 0000 AND 0000 /05060-0000 @@
005061 0000 AND 0000 /05061-0000 @@
005062 0000 AND 0000 /05062-0000 @@
005063 0000 AND 0000 /05063-0000 @@
005064 0004 AND 0004 /05064-0004 @D
005065 5623 JMP I 5023 /05065-5623 .S
005066 5620 JMP I 5020 /05066-5620 .P
005067 0000 AND 0000 /05067-0000 @@
005070 4000 JMS 0000 /05070-4000 @
005071 0000 AND 0000 /05071-0000 @@
005072 0000 AND 0000 /05072-0000 @@
005073 0000 AND 0000 /05073-0000 @@
005074 0001 AND 0001 /05074-0001 @A
005075 0004 AND 0004 /05075-0004 @D
005076 5634 JMP I 5034 /05076-5634 .\
005077 5631 JMP I 5031 /05077-5631 .Y
005100 0000 AND 0000 /05100-0000 @@
005101 0000 AND 0000 /05101-0000 @@
005102 5633 JMP I 5033 /05102-5633 .[
005103 0000 AND 0000 /05103-0000 @@
005104 0000 AND 0000 /05104-0000 @@
005105 0000 AND 0000 /05105-0000 @@
005106 0004 AND 0004 /05106-0004 @D
005107 5636 JMP I 5036 /05107-5636 .^
005110 5634 JMP I 5034 /05110-5634 .\
005111 2525 ISZ I 0125 /05111-2525 UU
005112 2525 ISZ I 0125 /05112-2525 UU
005113 2525 ISZ I 0125 /05113-2525 UU
005114 2525 ISZ I 0125 /05114-2525 UU
005115 2525 ISZ I 0125 /05115-2525 UU
005116 2525 ISZ I 0125 /05116-2525 UU
005117 0004 AND 0004 /05117-0004 @D
005120 5641 JMP I 5041 /05120-5641 .!
005121 5636 JMP I 5036 /05121-5636 .^
005122 0000 AND 0000 /05122-0000 @@
005123 0000 AND 0000 /05123-0000 @@
005124 0000 AND 0000 /05124-0000 @@
005125 0000 AND 0000 /05125-0000 @@
005126 0000 AND 0000 /05126-0000 @@
005127 0000 AND 0000 /05127-0000 @@
005130 0004 AND 0004 /05130-0004 @D
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-125
005131 5644 JMP I 5044 /05131-5644 .$
005132 5641 JMP I 5041 /05132-5641 .!
005133 7777 MQA MQL CLA SAM /05133-7777 ??
005134 7777 MQA MQL CLA SAM /05134-7777 ??
005135 7777 MQA MQL CLA SAM /05135-7777 ??
005136 7777 MQA MQL CLA SAM /05136-7777 ??
005137 7777 MQA MQL CLA SAM /05137-7777 ??
005140 7777 MQA MQL CLA SAM /05140-7777 ??
005141 0004 AND 0004 /05141-0004 @D
005142 5650 JMP I 5050 /05142-5650 .(
005143 5650 JMP I 5050 /05143-5650 .(
005144 0000 AND 0000 /05144-0000 @@
005145 0000 AND 0000 /05145-0000 @@
005146 0000 AND 0000 /05146-0000 @@
005147 0000 AND 0000 /05147-0000 @@
005150 0000 AND 0000 /05150-0000 @@
005151 0000 AND 0000 /05151-0000 @@
005152 0004 AND 0004 /05152-0004 @D
005153 5655 JMP I 5055 /05153-5655 .-
005154 5656 JMP I 5056 /05154-5656 ..
005155 0000 AND 0000 /05155-0000 @@
005156 0000 AND 0000 /05156-0000 @@
005157 0000 AND 0000 /05157-0000 @@
005160 0000 AND 0000 /05160-0000 @@
005161 0000 AND 0000 /05161-0000 @@
005162 0000 AND 0000 /05162-0000 @@
005163 0004 AND 0004 /05163-0004 @D
005164 5665 JMP I 5065 /05164-5665 .5
005165 5662 JMP I 5062 /05165-5662 .2
005166 0000 AND 0000 /05166-0000 @@
005167 0000 AND 0000 /05167-0000 @@
005170 0000 AND 0000 /05170-0000 @@
005171 0000 AND 0000 /05171-0000 @@
005172 0000 AND 0000 /05172-0000 @@
005173 0000 AND 0000 /05173-0000 @@
005174 0004 AND 0004 /05174-0004 @D
005175 5402 JMP I 0002 /05175-5402 ,B
005176 5400 JMP I 0000 /05176-5400 ,@
005177 0001 AND 0001 /05177-0001 @A
5200 PAGE
005200 2000 ISZ 0000 /05200-2000 P@
005201 0000 AND 0000 /05201-0000 @@
005202 0000 AND 0000 /05202-0000 @@
005203 0000 AND 0000 /05203-0000 @@
005204 0000 AND 0000 /05204-0000 @@
005205 0004 AND 0004 /05205-0004 @D
005206 5402 JMP I 0002 /05206-5402 ,B
005207 5400 JMP I 0000 /05207-5400 ,@
005210 0000 AND 0000 /05210-0000 @@
005211 0000 AND 0000 /05211-0000 @@
005212 0000 AND 0000 /05212-0000 @@
005213 0000 AND 0000 /05213-0000 @@
005214 0000 AND 0000 /05214-0000 @@
005215 0000 AND 0000 /05215-0000 @@
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-126
005216 0004 AND 0004 /05216-0004 @D
005217 5446 JMP I 0046 /05217-5446 ,&
005220 6046 TLS /05220-6046 0&
005221 0000 AND 0000 /05221-0000 @@
005222 0000 AND 0000 /05222-0000 @@
005223 0000 AND 0000 /05223-0000 @@
005224 7777 MQA MQL CLA SAM /05224-7777 ??
005225 7777 MQA MQL CLA SAM /05225-7777 ??
005226 7777 MQA MQL CLA SAM /05226-7777 ??
005227 0000 AND 0000 /05227-0000 @@
005230 5451 JMP I 0051 /05230-5451 ,)
005231 6054 6054 /05231-6054 0,
005232 7777 MQA MQL CLA SAM /05232-7777 ??
005233 7777 MQA MQL CLA SAM /05233-7777 ??
005234 7777 MQA MQL CLA SAM /05234-7777 ??
005235 0000 AND 0000 /05235-0000 @@
005236 0000 AND 0000 /05236-0000 @@
005237 0000 AND 0000 /05237-0000 @@
005240 0000 AND 0000 /05240-0000 @@
005241 5454 JMP I 0054 /05241-5454 ,,
005242 6054 6054 /05242-6054 0,
005243 7777 MQA MQL CLA SAM /05243-7777 ??
005244 7777 MQA MQL CLA SAM /05244-7777 ??
005245 7777 MQA MQL CLA SAM /05245-7777 ??
005246 0000 AND 0000 /05246-0000 @@
005247 0000 AND 0000 /05247-0000 @@
005250 0000 AND 0000 /05250-0000 @@
005251 0000 AND 0000 /05251-0000 @@
005252 5454 JMP I 0054 /05252-5454 ,,
005253 6062 6062 /05253-6062 02
005254 0000 AND 0000 /05254-0000 @@
005255 2525 ISZ I 0125 /05255-2525 UU
005256 2525 ISZ I 0125 /05256-2525 UU
005257 7777 MQA MQL CLA SAM /05257-7777 ??
005260 7777 MQA MQL CLA SAM /05260-7777 ??
005261 7777 MQA MQL CLA SAM /05261-7777 ??
005262 0000 AND 0000 /05262-0000 @@
005263 5446 JMP I 0046 /05263-5446 ,&
005264 6045 TSK /05264-6045 0%
005265 7777 MQA MQL CLA SAM /05265-7777 ??
005266 0000 AND 0000 /05266-0000 @@
005267 0000 AND 0000 /05267-0000 @@
005270 7777 MQA MQL CLA SAM /05270-7777 ??
005271 7777 MQA MQL CLA SAM /05271-7777 ??
005272 7777 MQA MQL CLA SAM /05272-7777 ??
005273 4000 JMS 0000 /05273-4000 @
005274 5451 JMP I 0051 /05274-5451 ,)
005275 6053 6053 /05275-6053 0+
005276 0000 AND 0000 /05276-0000 @@
005277 7777 MQA MQL CLA SAM /05277-7777 ??
005300 7777 MQA MQL CLA SAM /05300-7777 ??
005301 0000 AND 0000 /05301-0000 @@
005302 0000 AND 0000 /05302-0000 @@
005303 0000 AND 0000 /05303-0000 @@
005304 4000 JMS 0000 /05304-4000 @
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-127
005305 5405 JMP I 0005 /05305-5405 ,E
005306 6102 6102 /05306-6102 1B
005307 0000 AND 0000 /05307-0000 @@
005310 0000 AND 0000 /05310-0000 @@
005311 6102 6102 /05311-6102 1B
005312 0000 AND 0000 /05312-0000 @@
005313 0000 AND 0000 /05313-0000 @@
005314 0000 AND 0000 /05314-0000 @@
005315 4000 JMS 0000 /05315-4000 @
005316 5410 JMP I 0010 /05316-5410 ,H
005317 6074 6074 /05317-6074 0<
005320 0000 AND 0000 /05320-0000 @@
005321 0000 AND 0000 /05321-0000 @@
005322 6074 6074 /05322-6074 0<
005323 0000 AND 0000 /05323-0000 @@
005324 0000 AND 0000 /05324-0000 @@
005325 0000 AND 0000 /05325-0000 @@
005326 4000 JMS 0000 /05326-4000 @
005327 5672 JMP I 5272 /05327-5672 .:
005330 0040 AND 0040 /05330-0040 @
005331 0001 AND 0001 /05331-0001 @A
005332 2000 ISZ 0000 /05332-2000 P@
005333 0000 AND 0000 /05333-0000 @@
005334 0000 AND 0000 /05334-0000 @@
005335 0000 AND 0000 /05335-0000 @@
005336 0000 AND 0000 /05336-0000 @@
005337 0004 AND 0004 /05337-0004 @D
005340 0000 AND 0000 /05340-0000 @@
005341 4000 JMS 0000 /05341-4000 @
005342 0000 AND 0000 /05342-0000 @@
005343 0000 AND 0000 /05343-0000 @@
005344 0000 AND 0000 /05344-0000 @@
005345 0000 AND 0000 /05345-0000 @@
005346 0000 AND 0000 /05346-0000 @@
005347 0000 AND 0000 /05347-0000 @@
005350 2004 ISZ 0004 /05350-2004 PD
005351 0000 AND 0000 /05351-0000 @@
005352 7743 MQA CLA DAD /05352-7743 ?#
005353 0000 AND 0000 /05353-0000 @@
005354 3603 DCA I 5203 /05354-3603 ^C
005355 4300 JMS 5300 /05355-4300 #@
005356 3607 DCA I 5207 /05356-3607 ^G
005357 4300 JMS 5300 /05357-4300 #@
005360 0175 AND 0175 /05360-0175 A=
005361 0000 AND 0000 /05361-0000 @@
005362 0275 AND 5275 /05362-0275 B=
005363 0000 AND 0000 /05363-0000 @@
005364 0375 AND 5375 /05364-0375 C=
005365 5400 JMP I 0000 /05365-5400 ,@
005366 7201 CLA IAC /05366-7201 :A
005367 5306 JMP 5306 /05367-5306 +F
005370 7202 CLA BSW /05370-7202 :B
005371 6543 6543 /05371-6543 5#
005372 7200 CLA /05372-7200 :@
005373 0770 AND I 5370 /05373-0770 G8
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-128
005374 7203 CLA IAC BSW /05374-7203 :C
005375 1234 TAD 5234 /05375-1234 J\
005376 3705 DCA I 5305 /05376-3705 _E
005377 5261 JMP 5261 /05377-5261 *1
5400 PAGE
005400 5000 FPC1,5000 /LTR 0000 /05400-5000 (@
005401 0000 0000 /FEXIT /05401-0000 @@
005402 0050 LEB25P,0050 /STARTE /05402-0050 @(
005403 7147 7147 /LEAI BASE+25X4+ /05403-7147 9'
005404 0000 0000 /FEXIT /05404-0000 @@
005405 0050 LEB25,0050 /STARTE /05405-0050 @(
005406 7047 7047 /LEAI BASE+25X4 /05406-7047 8'
005407 0000 0000 /FEXIT /05407-0000 @@
005410 0000 0000 /FEXIT /05410-0000 @@
005411 0002 TFCLA,0002 /FCLA /05411-0002 @B
005412 0000 0000 /FEXIT /05412-0000 @@
005413 0003 TFNEG,0003 /FNEG /05413-0003 @C
005414 0000 0000 /FEXIT /05414-0000 @@
005415 0003 TFNEG3,0003 /FNEG /05415-0003 @C
005416 0003 0003 /FNEG /05416-0003 @C
005417 0003 0003 /FNEG /05417-0003 @C
005420 0000 0000 /FEXIT /05420-0000 @@
005421 0004 TFNORM,0004 /FNORM /05421-0004 @D
005422 0000 0000 /FEXIT /05422-0000 @@
005423 0030 TXTA0,0030 /XTA 0 /05423-0030 @X
005424 0000 0000 /FEXIT /05424-0000 @@
005425 0037 TXTA7,0037 /XTA 7 /05425-0037 @_
005426 0000 0000 /FEXIT /05426-0000 @@
005427 0011 TALN1,0011 /ALN 1 /05427-0011 @I
005430 0000 0000 /FEXIT /05430-0000 @@
005431 0012 TALN2,0012 /ALN 2 /05431-0012 @J
005432 0000 0000 /FEXIT /05432-0000 @@
005433 0013 TALN3,0013 /ALN 3 /05433-0013 @K
005434 0000 0000 /FEXIT /05434-0000 @@
005435 0010 TALN0,0010 /ALN 0 /05435-0010 @H
005436 0000 0000 /FEXIT /05436-0000 @@
005437 0210 TFLB30,0210 /FLDA BASE+030 /05437-0210 BH
005440 0000 0000 /FEXIT /05440-0000 @@
005441 0212 TFLB36,0212 /FLDA BASE+036 /05441-0212 BJ
005442 0000 0000 /FEXIT /05442-0000 @@
005443 0500 TFLX0P,0500 /FLDA L X0+ 0 /05443-0500 E@
005444 6044 6044 / 6044 /05444-6044 0$
005445 0000 0000 /FEXIT /05445-0000 @@
005446 0440 TFLX0,0440 /FLDA L X4 0 /05446-0440 D
005447 6044 6044 / 6044 /05447-6044 0$
005450 0000 0000 /FEXIT /05450-0000 @@
005451 0540 TFLX4P,0540 /FLDA L X4+ 0 /05451-0540 E
005452 6044 6044 / 6044 /05452-6044 0$
005453 0000 0000 /FEXIT /05453-0000 @@
005454 0647 TFIX4,0647 /FLDA % BASE+25X4 /05454-0647 F'
005455 0000 0000 /FEXIT /05455-0000 @@
005456 0747 TFIX4P,0747 /FLDA % BASE+25X4+ /05456-0747 G'
005457 0000 0000 /FEXIT /05457-0000 @@
005460 6232 FSB116,6232 /FSTA BASE+116 /05460-6232 2Z
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-129
005461 0000 0000 /FEXIT /05461-0000 @@
005462 1222 FAB066,1222 /FADD BASE+066 /05462-1222 JR
005463 0000 0000 /FEXIT /05463-0000 @@
005464 1230 FAB110,1230 /FADD BASE+110 /05464-1230 JX
005465 0000 0000 /FEXIT /05465-0000 @@
005466 1234 FAB124,1234 /FADD BASE+124 /05466-1234 J\
005467 0000 0000 /FEXIT /05467-0000 @@
005470 1236 FAB132,1236 /FADD BASE+132 /05470-1236 J^
005471 0000 0000 /FEXIT /05471-0000 @@
005472 1240 FAB140,1240 /FADD BASE+140 /05472-1240 J
005473 0000 0000 /FEXIT /05473-0000 @@
005474 1242 FAB146,1242 /FADD BASE+146 /05474-1242 J"
005475 0000 0000 /FEXIT /05475-0000 @@
005476 1244 FAB154,1244 /FADD BASE+154 /05476-1244 J$
005477 0000 0000 /FEXIT /05477-0000 @@
005500 2246 FSB162,2246 /FSUB BASE+162 /05500-2246 R&
005501 0000 0000 /FEXIT /05501-0000 @@
005502 2250 FSB170,2250 /FSUB BASE+170 /05502-2250 R(
005503 0000 0000 /FEXIT /05503-0000 @@
005504 2252 FSB176,2252 /FSUB BASE+176 /05504-2252 R*
005505 0000 0000 /FEXIT /05505-0000 @@
005506 2254 FSB204,2254 /FSUB BASE+204 /05506-2254 R,
005507 0000 0000 /FEXIT /05507-0000 @@
005510 2256 FSB212,2256 /FSUB BASE+212 /05510-2256 R.
005511 0000 0000 /FEXIT /05511-0000 @@
005512 2260 FSB220,2260 /FSUB BASE+220 /05512-2260 R0
005513 0000 0000 /FEXIT /05513-0000 @@
005514 2262 FSB226,2262 /FSUB BASE+226 /05514-2262 R2
005515 0000 0000 /FEXIT /05515-0000 @@
005516 2264 FSB234,2264 /FSUB BASE+234 /05516-2264 R4
005517 0000 0000 /FEXIT /05517-0000 @@
005520 4266 FMB242,4266 /FMUL BASE+242 /05520-4266 "6
005521 0000 0000 /FEXIT /05521-0000 @@
005522 4270 FMB250,4270 /FMUL BASE+250 /05522-4270 "8
005523 0000 0000 /FEXIT /05523-0000 @@
005524 4272 FMB256,4272 /FMUL BASE+256 /05524-4272 ":
005525 0000 0000 /FEXIT /05525-0000 @@
005526 4274 FMB264,4274 /FMUL BASE+264 /05526-4274 "<
005527 0000 0000 /FEXIT /05527-0000 @@
005530 4276 FMB272,4276 /FMUL BASE+272 /05530-4276 ">
005531 0000 0000 /FEXIT /05531-0000 @@
005532 4300 FMB300,4300 /FMUL BASE+300 /05532-4300 #@
005533 0000 0000 /FEXIT /05533-0000 @@
005534 3302 FDB306,3302 /FDIV BASE+306 /05534-3302 [B
005535 0000 0000 /FEXIT /05535-0000 @@
005536 3304 FDB314,3304 /FDIV BASE+314 /05536-3304 [D
005537 0000 0000 /FEXIT /05537-0000 @@
005540 3306 FDB322,3306 /FDIV BASE+322 /05540-3306 [F
005541 0000 0000 /FEXIT /05541-0000 @@
005542 3310 FDB330,3310 /FDIV BASE+330 /05542-3310 [H
005543 0000 0000 /FEXIT /05543-0000 @@
005544 3312 FDB336,3312 /FDIV BASE+336 /05544-3312 [J
005545 0000 0000 /FEXIT /05545-0000 @@
005546 3314 FDB344,3314 /FDIV BASE+344 /05546-3314 [L
005547 0000 0000 /FEXIT /05547-0000 @@
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-130
005550 0006 0006 /STARTD /05550-0006 @F
005551 0001 0001 /FPAUSE /05551-0001 @A
005552 0000 0000 /FEXIT /05552-0000 @@
005553 0005 0005 /STARTF /05553-0005 @E
005554 0001 0001 /FPAUSE /05554-0001 @A
005555 0000 0000 /FEXIT /05555-0000 @@
005556 6232 SLA116,6232 /FSTA BASE+116 /05556-6232 2Z
005557 0320 0320 /FLDA BASE+360 /05557-0320 CP
005560 5232 5232 /FADDM BASE+116 /05560-5232 *Z
005561 0000 0000 /FEXIT /05561-0000 @@
005562 6232 SLM116,6232 /FSTA BASE+116 /05562-6232 2Z
005563 0322 0322 /FLDA BASE+366 /05563-0322 CR
005564 7232 7232 /FMULM BASE+116 /05564-7232 :Z
005565 0000 0000 /FEXIT /05565-0000 @@
005566 1324 FAB374,1324 /FADD BASE+374 /05566-1324 KT
005567 0000 0000 /FEXIT /05567-0000 @@
005570 1326 FAB402,1326 /FADD BASE+402 /05570-1326 KV
005571 0000 0000 /FEXIT /05571-0000 @@
005572 3330 FDB410,3330 /FDIV BASE+410 /05572-3330 [X
005573 0000 0000 /FEXIT /05573-0000 @@
005574 1000 TJEQ,1000 /JEQ 0 /05574-1000 H@
005575 5577 5577 / 5577 /05575-5577 -?
005576 0000 0000 /FEXIT /05576-0000 @@
005577 0000 0000 /FEXIT /05577-0000 @@
5600 PAGE
005600 1010 TJGE,1010 /JGE 0 /05600-1010 HH
005601 5603 5603 / 5603 /05601-5603 .C
005602 0000 0000 /FEXIT /05602-0000 @@
005603 0000 0000 /FEXIT /05603-0000 @@
005604 1020 TJLE,1020 /JLE 0 /05604-1020 HP
005605 5607 5607 / 5607 /05605-5607 .G
005606 0000 0000 /FEXIT /05606-0000 @@
005607 0000 0000 /FEXIT /05607-0000 @@
005610 1040 TJNE,1040 /JNE 0 /05610-1040 H
005611 5613 5613 / 5613 /05611-5613 .K
005612 0000 0000 /FEXIT /05612-0000 @@
005613 0000 0000 /FEXIT /05613-0000 @@
005614 1050 TJLT,1050 /JLT 0 /05614-1050 H(
005615 5617 5617 / 5617 /05615-5617 .O
005616 0000 0000 /FEXIT /05616-0000 @@
005617 0000 0000 /FEXIT /05617-0000 @@
005620 1060 TJGT,1060 /JGT 0 /05620-1060 H0
005621 5623 5623 / 5623 /05621-5623 .S
005622 0000 0000 /FEXIT /05622-0000 @@
005623 0000 0000 /FEXIT /05623-0000 @@
005624 0000 0000 /FEXIT /05624-0000 @@
005625 0000 0000 /FEXIT /05625-0000 @@
005626 0000 0000 /FEXIT /05626-0000 @@
005627 0000 0000 /FEXIT /05627-0000 @@
005630 0000 0000 /FEXIT /05630-0000 @@
005631 0007 TJAC,0007 /JAC /05631-0007 @G
005632 5633 5633 /FADDM% BASE+11X3 /05632-5633 .[
005633 0000 0000 /FEXIT /05633-0000 @@
005634 0040 TFNOP,0040 /FNOP /05634-0040 @
005635 0000 0000 /FEXIT /05635-0000 @@
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-131
005636 1030 TJA,1030 /JA 0 /05636-1030 HX
005637 5640 5640 / 5640 /05637-5640 .
005640 0000 0000 /FEXIT /05640-0000 @@
005641 1070 TJAL,1070 /JAL 0 /05641-1070 H8
005642 5644 5644 / 5644 /05642-5644 .$
005643 0000 0000 /FEXIT /05643-0000 @@
005644 0000 0000 /FEXIT /05644-0000 @@
005645 1130 TJSR,1130 /JSR 0 /05645-1130 IX
005646 5650 5650 / 5650 /05646-5650 .(
005647 0000 0000 /FEXIT /05647-0000 @@
005650 1030 1030 /JA 0 /05650-1030 HX
005651 6001 6001 / 6001 /05651-6001 0A
005652 1120 TJSA,1120 /JSA 0 /05652-1120 IP
005653 5655 5655 / 5655 /05653-5655 .-
005654 0000 0000 /FEXIT /05654-0000 @@
005655 0000 0000 /FEXIT /05655-0000 @@
005656 0000 0000 /FEXIT /05656-0000 @@
005657 1030 1030 /JA 0 /05657-1030 HX
005660 5655 5655 / 5655 /05660-5655 .-
005661 0000 0000 /FEXIT /05661-0000 @@
005662 2150 TJNX5P,2150 /JNX X5+ 0 /05662-2150 Q(
005663 5665 5665 / 5665 /05663-5665 .5
005664 0000 0000 /FEXIT /05664-0000 @@
005665 0000 0000 /FEXIT /05665-0000 @@
005666 0020 0020 /ATX 0 /05666-0020 @P
005667 0002 0002 /FCLA /05667-0002 @B
005670 0030 0030 /XTA 0 /05670-0030 @X
005671 0000 0000 /FEXIT /05671-0000 @@
005672 7410 7410 /FMULML X1 0 /05672-7410 <H
005673 5302 5302 / 5302 /05673-5302 +B
005674 1374 1374 /FADD BASE+564 /05674-1374 K<
005675 7640 7640 /FMULM% BASE+00X4 /05675-7640 >
005676 7410 7410 /FMULML X1 0 /05676-7410 <H
005677 5301 5301 / 5301 /05677-5301 +A
005700 5215 5215 /FADDM BASE+047 /05700-5215 *M
005701 1105 1105 /SETX 5 /05701-1105 IE
005702 1107 1107 / 1107 /05702-1107 IG
005703 1073 1073 /JAL 3 /05703-1073 H;
005704 3220 3220 / 3220 /05704-3220 ZP
005705 5215 5215 /FADDM BASE+047 /05705-5215 *M
005706 7200 7200 /FMULM BASE+000 /05706-7200 :@
005707 4453 4453 /FMUL L X5 3 /05707-4453 $+
005710 6010 6010 / 6010 /05710-6010 0H
005711 5200 5200 /FADDM BASE+000 /05711-5200 *@
005712 4461 4461 /FMUL L X6 1 /05712-4461 $1
005713 0000 0000 / 0000 /05713-0000 @@
005714 7424 7424 /FMULML X2 4 /05714-7424 <T
005715 7213 7213 / 7213 /05715-7213 :K
005716 7223 7223 /FMULM BASE+071 /05716-7223 :S
005717 7422 7422 /FMULML X2 2 /05717-7422 <R
005720 0000 0000 / 0000 /05720-0000 @@
005721 0000 0000 /FEXIT /05721-0000 @@
005722 0000 0000 /FEXIT /05722-0000 @@
005723 0004 0004 /FNORM /05723-0004 @D
005724 0005 0005 /STARTF /05724-0005 @E
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-132
005725 0006 0006 /STARTD /05725-0006 @F
005726 5200 5200 /FADDM BASE+000 /05726-5200 *@
005727 4462 4462 /FMUL L X6 2 /05727-4462 $2
005730 0002 0002 / 0002 /05730-0002 @B
005731 0000 0000 /FEXIT /05731-0000 @@
005732 0000 0000 /FEXIT /05732-0000 @@
005733 0000 0000 /FEXIT /05733-0000 @@
005734 0000 0000 /FEXIT /05734-0000 @@
005735 0000 0000 /FEXIT /05735-0000 @@
005736 0000 0000 /FEXIT /05736-0000 @@
005737 0000 0000 /FEXIT /05737-0000 @@
005740 5200 5200 /FADDM BASE+000 /05740-5200 *@
005741 1123 1123 /JSA 3 /05741-1123 IS
005742 7640 7640 / 7640 /05742-7640 >
005743 5200 5200 /FADDM BASE+000 /05743-5200 *@
005744 5773 5773 /FADDM% BASE+11X7+ /05744-5773 /;
005745 0054 0054 /STARTE /05745-0054 @,
005746 0055 0055 /STARTE /05746-0055 @-
005747 0056 0056 /STARTE /05747-0056 @.
005750 0057 0057 /STARTE /05750-0057 @/
005751 0000 0000 /FEXIT /05751-0000 @@
005752 0060 0060 /RESERVED /05752-0060 @0
005753 0061 0061 /RESERVED /05753-0061 @1
005754 0062 0062 /RESERVED /05754-0062 @2
005755 0000 0000 /FEXIT /05755-0000 @@
005756 4303 4303 /FMUL BASE+311 /05756-4303 #C
005757 1704 1704 /FADD % BASE+14X0+ /05757-1704 OD
005760 0575 0575 /FLDA L X7+ 5 /05760-0575 E=
005761 0000 0000 / 0000 /05761-0000 @@
005762 2003 2003 /JNX X0 3 /05762-2003 PC
005763 7500 7500 / 7500 /05763-7500 =@
005764 0403 0403 /FLDA L X0 3 /05764-0403 DC
005765 7500 7500 / 7500 /05765-7500 =@
005766 7774 7774 /FMULM% BASE+14X7+ /05766-7774 ?<
005767 2415 2415 /FSUB L X1 5 /05767-2415 TM
005770 5256 5256 / 5256 /05770-5256 *.
005771 3746 3746 /FDIV % BASE+22X4+ /05771-3746 _&
005772 4147 4147 /TRAP4 7 /05772-4147 !'
005773 6000 6000 / 6000 /05773-6000 0@
005774 7736 7736 /FMULM% BASE+22X3+ /05774-7736 ?^
005775 7764 7764 /FMULM% BASE+14X6+ /05775-7764 ?4
005776 7773 7773 /FMULM% BASE+11X7+ /05776-7773 ?;
005777 7762 7762 /FMULM% BASE+06X6+ /05777-7762 ?2
6000 PAGE
006000 0000 BASE0, AND 0000 /06000-0000 @@
006001 0000 AND 0000 /06001-0000 @@
006002 0000 AND 0000 /06002-0000 @@
006003 0000 AND 0000 /06003-0000 @@
006004 0000 AND 0000 /06004-0000 @@
006005 0000 AND 0000 /06005-0000 @@
006006 0000 AND 0000 /06006-0000 @@
006007 0000 AND 0000 /06007-0000 @@
006010 0000 AND 0000 /06010-0000 @@
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-133
006011 0000 AND 0000 /06011-0000 @@
006012 0000 AND 0000 /06012-0000 @@
006013 0000 AND 0000 /06013-0000 @@
006014 0000 AND 0000 /06014-0000 @@
006015 0000 AND 0000 /06015-0000 @@
006016 0000 AND 0000 /06016-0000 @@
006017 0000 AND 0000 /06017-0000 @@
006020 0000 AND 0000 /06020-0000 @@
006021 0000 AND 0000 /06021-0000 @@
006022 0000 AND 0000 /06022-0000 @@
006023 0000 AND 0000 /06023-0000 @@
006024 0000 AND 0000 /06024-0000 @@
006025 0000 AND 0000 /06025-0000 @@
006026 0000 AND 0000 /06026-0000 @@
006027 6074 6074 /06027-6074 0<
006030 2525 ISZ I 0125 /06030-2525 UU
006031 2525 ISZ I 0125 /06031-2525 UU
006032 2525 ISZ I 0125 /06032-2525 UU
006033 2525 ISZ I 0125 /06033-2525 UU
006034 2525 ISZ I 0125 /06034-2525 UU
006035 2525 ISZ I 0125 /06035-2525 UU
006036 5252 JMP 6052 /06036-5252 **
006037 5252 JMP 6052 /06037-5252 **
006040 5252 JMP 6052 /06040-5252 **
006041 5252 JMP 6052 /06041-5252 **
006042 5252 JMP 6052 /06042-5252 **
006043 5252 JMP 6052 /06043-5252 **
006044 0000 AND 0000 /06044-0000 @@
006045 0000 AND 0000 /06045-0000 @@
006046 0000 AND 0000 /06046-0000 @@
006047 0000 AND 0000 /06047-0000 @@
006050 0000 AND 0000 /06050-0000 @@
006051 0000 AND 0000 /06051-0000 @@
006052 7777 MQA MQL CLA SAM /06052-7777 ??
006053 7777 MQA MQL CLA SAM /06053-7777 ??
006054 7777 MQA MQL CLA SAM /06054-7777 ??
006055 7777 MQA MQL CLA SAM /06055-7777 ??
006056 7777 MQA MQL CLA SAM /06056-7777 ??
006057 7777 MQA MQL CLA SAM /06057-7777 ??
006060 0000 AND 0000 /06060-0000 @@
006061 2525 ISZ I 0125 /06061-2525 UU
006062 2525 ISZ I 0125 /06062-2525 UU
006063 2525 ISZ I 0125 /06063-2525 UU
006064 2525 ISZ I 0125 /06064-2525 UU
006065 2525 ISZ I 0125 /06065-2525 UU
006066 0000 AND 0000 /06066-0000 @@
006067 1252 TAD 6052 /06067-1252 J*
006070 5252 JMP 6052 /06070-5252 **
006071 5252 JMP 6052 /06071-5252 **
006072 5252 JMP 6052 /06072-5252 **
006073 5252 JMP 6052 /06073-5252 **
006074 0000 AND 0000 /06074-0000 @@
006075 4000 JMS 0000 /06075-4000 @
006076 0000 AND 0000 /06076-0000 @@
006077 0000 AND 0000 /06077-0000 @@
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-134
006100 0000 AND 0000 /06100-0000 @@
006101 0001 AND 0001 /06101-0001 @A
006102 0000 AND 0000 /06102-0000 @@
006103 0000 AND 0000 /06103-0000 @@
006104 0000 AND 0000 /06104-0000 @@
006105 0000 AND 0000 /06105-0000 @@
006106 0000 AND 0000 /06106-0000 @@
006107 0001 AND 0001 /06107-0001 @A
006110 0000 AND 0000 /06110-0000 @@
006111 3777 DCA I 6177 /06111-3777 _?
006112 7777 MQA MQL CLA SAM /06112-7777 ??
006113 7777 MQA MQL CLA SAM /06113-7777 ??
006114 7777 MQA MQL CLA SAM /06114-7777 ??
006115 7777 MQA MQL CLA SAM /06115-7777 ??
006116 0000 BP26, AND 0000 /06116-0000 @@
006117 0000 AND 0000 /06117-0000 @@
006120 0000 AND 0000 /06120-0000 @@
006121 0000 AND 0000 /06121-0000 @@
006122 0000 AND 0000 /06122-0000 @@
006123 0000 AND 0000 /06123-0000 @@
006124 7777 MQA MQL CLA SAM /06124-7777 ??
006125 7777 MQA MQL CLA SAM /06125-7777 ??
006126 7777 MQA MQL CLA SAM /06126-7777 ??
006127 7777 MQA MQL CLA SAM /06127-7777 ??
006130 7777 MQA MQL CLA SAM /06130-7777 ??
006131 7777 MQA MQL CLA SAM /06131-7777 ??
006132 4210 JMS 6010 /06132-4210 "H
006133 0210 AND 6010 /06133-0210 BH
006134 4210 JMS 6010 /06134-4210 "H
006135 4210 JMS 6010 /06135-4210 "H
006136 4210 JMS 6010 /06136-4210 "H
006137 4210 JMS 6010 /06137-4210 "H
006140 2104 ISZ 0104 /06140-2104 QD
006141 2314 ISZ 6114 /06141-2314 SL
006142 6314 6314 /06142-6314 3L
006143 6314 6314 /06143-6314 3L
006144 6314 6314 /06144-6314 3L
006145 6314 6314 /06145-6314 3L
006146 1042 TAD 0042 /06146-1042 H"
006147 3356 DCA 6156 /06147-3356 [.
006150 7356 7356 /06150-7356 ;.
006151 7356 7356 /06151-7356 ;.
006152 7356 7356 /06152-7356 ;.
006153 7356 7356 /06153-7356 ;.
006154 7777 MQA MQL CLA SAM /06154-7777 ??
006155 4000 JMS 0000 /06155-4000 @
006156 0000 AND 0000 /06156-0000 @@
006157 0000 AND 0000 /06157-0000 @@
006160 0000 AND 0000 /06160-0000 @@
006161 0001 AND 0001 /06161-0001 @A
006162 7777 MQA MQL CLA SAM /06162-7777 ??
006163 3777 DCA I 6177 /06163-3777 _?
006164 7777 MQA MQL CLA SAM /06164-7777 ??
006165 7777 MQA MQL CLA SAM /06165-7777 ??
006166 7777 MQA MQL CLA SAM /06166-7777 ??
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-135
006167 7777 MQA MQL CLA SAM /06167-7777 ??
006170 0000 AND 0000 /06170-0000 @@
006171 3777 DCA I 6177 /06171-3777 _?
006172 7777 MQA MQL CLA SAM /06172-7777 ??
006173 7777 MQA MQL CLA SAM /06173-7777 ??
006174 7777 MQA MQL CLA SAM /06174-7777 ??
006175 7777 MQA MQL CLA SAM /06175-7777 ??
006176 4210 JMS 6010 /06176-4210 "H
006177 4421 JMS I 0021 /06177-4421 $Q
6200 PAGE
006200 0421 AND I 0021 /06200-0421 DQ
006201 0421 AND I 0021 /06201-0421 DQ
006202 0421 AND I 0021 /06202-0421 DQ
006203 0420 AND I 0020 /06203-0420 DP
006204 2104 ISZ 0104 /06204-2104 QD
006205 0421 AND I 0021 /06205-0421 DQ
006206 0421 AND I 0021 /06206-0421 DQ
006207 0421 AND I 0021 /06207-0421 DQ
006210 0421 AND I 0021 /06210-0421 DQ
006211 0420 AND I 0020 /06211-0420 DP
006212 1042 TAD 0042 /06212-1042 H"
006213 0421 AND I 0021 /06213-0421 DQ
006214 0421 AND I 0021 /06214-0421 DQ
006215 0421 AND I 0021 /06215-0421 DQ
006216 0421 AND I 0021 /06216-0421 DQ
006217 0420 AND I 0020 /06217-0420 DP
006220 6314 6314 /06220-6314 3L
006221 4631 JMS I 6231 /06221-4631 &Y
006222 4631 JMS I 6231 /06222-4631 &Y
006223 4631 JMS I 6231 /06223-4631 &Y
006224 4631 JMS I 6231 /06224-4631 &Y
006225 4630 JMS I 6230 /06225-4630 &X
006226 3146 DCA 0146 /06226-3146 Y&
006227 2525 ISZ I 0125 /06227-2525 UU
006230 2525 ISZ I 0125 /06230-2525 UU
006231 2525 ISZ I 0125 /06231-2525 UU
006232 2525 ISZ I 0125 /06232-2525 UU
006233 2524 ISZ I 0124 /06233-2524 UT
006234 0421 AND I 0021 /06234-0421 DQ
006235 0421 AND I 0021 /06235-0421 DQ
006236 0421 AND I 0021 /06236-0421 DQ
006237 0421 AND I 0021 /06237-0421 DQ
006240 0421 AND I 0021 /06240-0421 DQ
006241 0420 AND I 0020 /06241-0420 DP
006242 2000 ISZ 0000 /06242-2000 P@
006243 2000 ISZ 0000 /06243-2000 P@
006244 0000 AND 0000 /06244-0000 @@
006245 0000 AND 0000 /06245-0000 @@
006246 0000 AND 0000 /06246-0000 @@
006247 0000 AND 0000 /06247-0000 @@
006250 0001 AND 0001 /06250-0001 @A
006251 3000 DCA 0000 /06251-3000 X@
006252 0000 AND 0000 /06252-0000 @@
006253 0000 AND 0000 /06253-0000 @@
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-136
006254 0000 AND 0000 /06254-0000 @@
006255 0000 AND 0000 /06255-0000 @@
006256 7705 MQA CLA MUY /06256-7705 ?E
006257 0000 AND 0000 /06257-0000 @@
006260 0000 AND 0000 /06260-0000 @@
006261 0000 AND 0000 /06261-0000 @@
006262 0000 AND 0000 /06262-0000 @@
006263 0001 AND 0001 /06263-0001 @A
006264 1200 TAD 6200 /06264-1200 J@
006265 1252 TAD 6252 /06265-1252 J*
006266 5252 JMP 6252 /06266-5252 **
006267 5252 JMP 6252 /06267-5252 **
006270 5252 JMP 6252 /06270-5252 **
006271 5252 JMP 6252 /06271-5252 **
006272 0071 AND 0071 /06272-0071 @9
006273 4471 JMS I F52 /06273-4471 $9
006274 5307 JMP 6307 /06274-5307 +G
006275 1352 TAD 6352 /06275-1352 K*
006276 7350 CLA CLL CMA RAR /06276-7350 ;(
006277 4735 JMS I 6335 /06277-4735 ']
006300 4001 JMS 0001 /06300-4001 A
006301 5064 JMP 0064 /06301-5064 (4
006302 3510 DCA I 0110 /06302-3510 ]H
006303 4376 JMS 6376 /06303-4376 #>
006304 5146 JMP 0146 /06304-5146 )&
006305 2575 ISZ I 0175 /06305-2575 U=
006306 3777 DCA I 6377 /06306-3777 _?
006307 2000 ISZ 0000 /06307-2000 P@
006310 0000 AND 0000 /06310-0000 @@
006311 0000 AND 0000 /06311-0000 @@
006312 0000 AND 0000 /06312-0000 @@
006313 0000 AND 0000 /06313-0000 @@
006314 0001 AND 0001 /06314-0001 @A
006315 4000 JMS 0000 /06315-4000 @
006316 0000 AND 0000 /06316-0000 @@
006317 0000 AND 0000 /06317-0000 @@
006320 0000 AND 0000 /06320-0000 @@
006321 0001 AND 0001 /06321-0001 @A
006322 0000 AND 0000 /06322-0000 @@
006323 3777 DCA I 6377 /06323-3777 _?
006324 7777 MQA MQL CLA SAM /06324-7777 ??
006325 7777 MQA MQL CLA SAM /06325-7777 ??
006326 7777 MQA MQL CLA SAM /06326-7777 ??
006327 7777 MQA MQL CLA SAM /06327-7777 ??
006330 0031 AND 0031 /06330-0031 @Y
006331 4771 JMS I 6371 /06331-4771 '9
006332 6730 6730 /06332-6730 7X
006333 5137 JMP 0137 /06333-5137 )_
006334 6407 6407 /06334-6407 4G
006335 2173 ISZ 0173 /06335-2173 Q;
006336 7301 CLA CLL IAC /06336-7301 ;A
006337 7261 CLA CMA CML IAC /06337-7261 :1
006340 0376 AND 6376 /06340-0376 C>
006341 5742 JMP I 6342 /06341-5742 /"
006342 6572 6572 /06342-6572 5:
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-137
006343 0713 AND I 6313 /06343-0713 GK
006344 6565 6565 /06344-6565 55
006345 2525 ISZ I 0125 /06345-2525 UU
006346 2525 ISZ I 0125 /06346-2525 UU
006347 2525 ISZ I 0125 /06347-2525 UU
006350 2525 ISZ I 0125 /06350-2525 UU
006351 2525 ISZ I 0125 /06351-2525 UU
006352 0001 AND 0001 /06352-0001 @A
006353 4000 JMS 0000 /06353-4000 @
006354 0000 AND 0000 /06354-0000 @@
006355 0000 AND 0000 /06355-0000 @@
006356 0000 AND 0000 /06356-0000 @@
006357 0001 AND 0001 /06357-0001 @A
006360 2525 ISZ I 0125 /06360-2525 UU
006361 1252 TAD 6252 /06361-1252 J*
006362 5252 JMP 6252 /06362-5252 **
006363 5252 JMP 6252 /06363-5252 **
006364 5252 JMP 6252 /06364-5252 **
006365 5252 JMP 6252 /06365-5252 **
006366 2716 ISZ I 6316 /06366-2716 WN
006367 3705 DCA I 6305 /06367-3705 _E
006370 1443 TAD I 0043 /06370-1443 L#
006371 7165 CLL CMA CML IAC RAL /06371-7165 95
006372 3402 DCA I 0002 /06372-3402 \B
006373 6213 CIF CDF 10 /06373-6213 2K
006374 4000 JMS 0000 /06374-4000 @
006375 0000 AND 0000 /06375-0000 @@
006376 0000 AND 0000 /06376-0000 @@
006377 0000 AND 0000 /06377-0000 @@
6400 PAGE
006400 0000 AND 0000 /06400-0000 @@
006401 0001 AND 0001 /06401-0001 @A
006402 3777 DCA I 6577 /06402-3777 _?
006403 0000 AND 0000 /06403-0000 @@
006404 0000 AND 0000 /06404-0000 @@
006405 0000 AND 0000 /06405-0000 @@
006406 0000 AND 0000 /06406-0000 @@
006407 0001 AND 0001 /06407-0001 @A
006410 0000 AND 0000 /06410-0000 @@
006411 0000 AND 0000 /06411-0000 @@
006412 0000 AND 0000 /06412-0000 @@
006413 0000 AND 0000 /06413-0000 @@
006414 0000 AND 0000 /06414-0000 @@
006415 0000 AND 0000 /06415-0000 @@
006416 0000 AND 0000 /06416-0000 @@
006417 1401 TAD I 0001 /06417-1401 LA
006420 3140 DCA 0140 /06420-3140 Y
006421 0116 AND 0116 /06421-0116 AN
006422 0440 AND I 0040 /06422-0440 D
006423 1517 TAD I 0117 /06423-1517 MO
006424 1611 TAD I 6411 /06424-1611 NI
006425 2417 ISZ I 0017 /06425-2417 TO
006426 2240 ISZ 6440 /06426-2240 R
006427 1116 TAD 0116 /06427-1116 IN
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-138
006430 0317 AND 6517 /06430-0317 CO
006431 1520 TAD I 0120 /06431-1520 MP
006432 0124 AND 0124 /06432-0124 AT
006433 1102 TAD 0102 /06433-1102 IB
006434 1405 TAD I 0005 /06434-1405 LE
006435 0000 AND 0000 /06435-0000 @@
006436 1617 TAD I 6417 /06436-1617 NO
006437 2440 ISZ I 0040 /06437-2440 T
006440 2701 ISZ I 6501 /06440-2701 WA
006441 2277 ISZ 6477 /06441-2277 R?
006442 0000 AND 0000 /06442-0000 @@
006443 0611 AND I 6411 /06443-0611 FI
006444 1405 TAD I 0005 /06444-1405 LE
006445 2340 ISZ 6540 /06445-2340 S
006446 0405 AND I 0005 /06446-0405 DE
006447 1405 TAD I 0005 /06447-1405 LE
006450 2405 ISZ I 0005 /06450-2405 TE
006451 0472 AND I 0072 /06451-0472 D:
006452 0000 AND 0000 /06452-0000 @@
006453 0611 AND I 6411 /06453-0611 FI
006454 1405 TAD I 0005 /06454-1405 LE
006455 2340 ISZ 6540 /06455-2340 S
006456 2205 ISZ 6405 /06456-2205 RE
006457 1601 TAD I 6401 /06457-1601 NA
006460 1505 TAD I 0105 /06460-1505 ME
006461 0472 AND I 0072 /06461-0472 D:
006462 0000 AND 0000 /06462-0000 @@
006463 0611 AND I 6411 /06463-0611 FI
006464 1405 TAD I 0005 /06464-1405 LE
006465 2340 ISZ 6540 /06465-2340 S
006466 0317 AND 6517 /06466-0317 CO
006467 2011 ISZ 0011 /06467-2011 PI
006470 0504 AND I 0104 /06470-0504 ED
006471 7200 CLA /06471-7200 :@
006472 6060 6060 /06472-6060 00
006473 1357 TAD 6557 /06473-1357 K/
006474 6060 6060 /06474-6060 00
006475 1340 TAD 6540 /06475-1340 K
006476 1505 TAD I 0105 /06476-1505 ME
006477 1517 TAD I 0117 /06477-1517 MO
006500 0000 X6500, AND 0000 /06500-0000 @@
006501 1022 TAD MODEX8 /06501-1022 HR
006502 7700 SMA CLA /06502-7700 ?@
006503 5700 JMP I X6500 /06503-5700 /@
006504 6002 IOF /06504-6002 0B
006505 6201 CDF 0 /06505-6201 2A
006506 6272 CIF 70 /06506-6272 2:
006507 4711 JMS I .+2 /06507-4711 'I
006510 5700 JMP I X6500 /06510-5700 /@
006511 6500 6500 /06511-6500 5@
006512 0000 AND 0000 /06512-0000 @@
006513 6211 CDF 10 /06513-6211 2I
006514 1725 TAD I 6525 /06514-1725 OU
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-139
006515 6201 CDF 0 /06515-6201 2A
006516 0106 AND 0106 /06516-0106 AF
006517 7640 SZA CLA /06517-7640 >
006520 7001 IAC /06520-7001 8A
006521 3777 DCA I 6577 /06521-3777 _?
006522 1777 TAD I 6577 /06522-1777 O?
006523 3776 DCA I 6576 /06523-3776 _>
006524 5712 JMP I 6512 /06524-5712 /J
006525 0021 AND 0021 /06525-0021 @Q
006526 0000 AND 0000 /06526-0000 @@
006527 1734 TAD I 6534 /06527-1734 O\
006530 1375 TAD 6575 /06530-1375 K=
006531 7640 SZA CLA /06531-7640 >
006532 5726 JMP I 6526 /06532-5726 /V
006533 5774 JMP I 6574 /06533-5774 /<
006534 3273 DCA 6473 /06534-3273 Z;
006535 0000 AND 0000 /06535-0000 @@
006536 1373 TAD 6573 /06536-1373 K;
006537 4461 JMS I PUN /06537-4461 $1
006540 1372 TAD 6572 /06540-1372 K:
006541 4461 JMS I PUN /06541-4461 $1
006542 5735 JMP I 6535 /06542-5735 /]
006543 0000 VTAB, AND 0000 /06543-0000 @@
006544 1371 TAD 6571 /06544-1371 K9
006545 4461 JMS I PUN /06545-4461 $1
006546 1177 TAD 0177 /06546-1177 I?
006547 7040 CMA /06547-7040 8
006550 3356 DCA 6556 /06550-3356 [.
006551 1370 TAD 6570 /06551-1370 K8
006552 4461 JMS I PUN /06552-4461 $1
006553 2356 ISZ 6556 /06553-2356 S.
006554 5352 JMP 6552 /06554-5352 +*
006555 5743 JMP I VTAB /06555-5743 /#
006556 0000 AND 0000 /06556-0000 @@
006557 0006 AND 0006 /06557-0006 @F
006560 0001 AND 0001 /06560-0001 @A
006561 0004 AND 0004 /06561-0004 @D
006562 0006 AND 0006 /06562-0006 @F
006563 4523 JMS I 0123 /06563-4523 %S
006564 2520 ISZ I 0120 /06564-2520 UP
006565 0522 AND I 0122 /06565-0522 ER
006566 2305 ISZ 6505 /06566-2305 SE
006567 0411 AND I 0011 /06567-0411 DI
006570 0212 AND 6412 /06570-0212 BJ
006571 0215 AND 6415 /06571-0215 BM
006572 0307 AND 6507 /06572-0307 CG
006573 0336 AND 6536 /06573-0336 C^
006574 7217 7217 /06574-7217 :O
006575 7575 MQA MQL DCM /06575-7575 ==
006576 5321 JMP 6521 /06576-5321 +Q
006577 5310 JMP 6510 /06577-5310 +H
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-140
6600 PAGE
006600 0000 LOOP, AND 0000 /06600-0000 @@
006601 1600 TAD I LOOP /06601-1600 N@
006602 3232 DCA LPBACK /06602-3232 ZZ
006603 6214 RDF /06603-6214 2L
006604 1377 TAD (CIF CDF 0 /06604-1377 K?
006605 3225 DCA LPEX /06605-3225 ZU
006606 6201 CDF 0 /06606-6201 2A
006607 3004 DCA CIF10 /06607-3004 XD
006610 3003 DCA CDF10 /06610-3003 XC
006611 2200 ISZ LOOP /06611-2200 R@
006612 4502 JMS I READCH /06612-4502 %B
006613 4463 JMS I GETSW /06613-4463 $3
006614 7106 CLL RTL /06614-7106 9F
006615 7520 SMA SNL /06615-7520 =P
006616 5220 JMP .+2 /06616-5220 *P
006617 5224 JMP .+5 /06617-5224 *T
006620 4463 JMS I GETSW /06620-4463 $3
006621 7710 SPA CLA /06621-7710 ?H
006622 5224 JMP .+2 /06622-5224 *T
006623 4776 JMS I (OPTION /06623-4776 '>
006624 4463 JMS I GETSW /06624-4463 $3
006625 6203 LPEX, CIF CDF 0 /06625-6203 2C
006626 7106 CLL RTL /06626-7106 9F
006627 7520 SMA SNL /06627-7520 =P
006630 5600 JMP I LOOP /06630-5600 .@
006631 5632 JMP I LPBACK /06631-5632 .Z
006632 0000 LPBACK, AND 0000 /06632-0000 @@
006633 0000 CHECKB, AND 0000 /06633-0000 @@
006634 7307 CLA CLL IAC RTL /06634-7307 ;G
006635 1233 TAD CHECKB /06635-1233 J[
006636 3145 DCA PCLOC /06636-3145 Y%
006637 7240 CLA CMA /06637-7240 :
006640 1633 TAD I CHECKB /06640-1633 N[
006641 3010 DCA 0010 /06641-3010 XH
006642 1375 TAD (BP26-1 /06642-1375 K=
006643 3011 DCA 0011 /06643-3011 XI
006644 1374 TAD (-6 /06644-1374 K<
006645 3147 DCA COUNT /06645-3147 Y'
006646 1410 CHKBLP, TAD I 0010 /06646-1410 LH
006647 7041 CMA IAC /06647-7041 8!
006650 6201 CDF3, CDF 0 /06650-6201 2A
006651 1411 TAD I 0011 /06651-1411 LI
006652 6201 CDF 0 /06652-6201 2A
006653 7640 SZA CLA /06653-7640 >
006654 5261 JMP CHKBER /06654-5261 *1
006655 2147 ISZ COUNT /06655-2147 Q'
006656 5246 JMP CHKBLP /06656-5246 *&
006657 2233 ISZ CHECKB /06657-2233 R[
006660 5633 JMP I CHECKB /06660-5633 .[
006661 4504 CHKBER, JMS I X8 /06661-4504 %D
006662 4463 JMS I GETSW /06662-4463 $3
006663 0116 AND C100 /06663-0116 AN
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-141
006664 7640 SZA CLA /06664-7640 >
006665 5257 JMP 6657 /06665-5257 */
006666 6556 FPRST /06666-6556 5.
006667 3135 DCA 0135 /06667-3135 Y]
006670 2163 ISZ 0163 /06670-2163 Q3
006671 4351 JMS 6751 /06671-4351 #)
006672 4456 JMS I MES10 /06672-4456 $.
006673 7542 ACTBAS /06673-7542 ="
006674 4456 JMS I MES10 /06674-4456 $.
006675 7117 EMLLLL /06675-7117 9O
006676 4460 JMS I VT /06676-4460 $0
006677 1375 TAD 6775 /06677-1375 K=
006700 3010 DCA 0010 /06700-3010 XH
006701 1374 TAD 6774 /06701-1374 K<
006702 3147 DCA COUNT /06702-3147 Y'
006703 6201 CDF1, CDF 0 /06703-6201 2A
006704 1410 TAD I 0010 /06704-1410 LH
006705 6201 CDF 0 /06705-6201 2A
006706 4465 JMS I DIGS /06706-4465 $5
006707 2147 ISZ COUNT /06707-2147 Q'
006710 5303 JMP 6703 /06710-5303 +C
006711 4456 JMS I MES10 /06711-4456 $.
006712 7530 EXPBAS /06712-7530 =X
006713 4456 JMS I MES10 /06713-4456 $.
006714 7117 EMLLLL /06714-7117 9O
006715 4460 JMS I VT /06715-4460 $0
006716 7240 CLA CMA /06716-7240 :
006717 1633 TAD I 6633 /06717-1633 N[
006720 3010 DCA 0010 /06720-3010 XH
006721 1374 TAD 6774 /06721-1374 K<
006722 3147 DCA COUNT /06722-3147 Y'
006723 1410 TAD I 0010 /06723-1410 LH
006724 4465 JMS I DIGS /06724-4465 $5
006725 2147 ISZ COUNT /06725-2147 Q'
006726 5323 JMP 6723 /06726-5323 +S
006727 5257 JMP 6657 /06727-5257 */
006730 0000 SETF1, AND 0000 /06730-0000 @@
006731 1373 TAD (CDF 10 /06731-1373 K;
006732 3303 DCA CDF1 /06732-3303 [C
006733 1373 TAD (CDF 10 /06733-1373 K;
006734 3772 DCA I (CDF2 /06734-3772 _:
006735 1373 TAD (CDF 10 /06735-1373 K;
006736 3250 DCA CDF3 /06736-3250 Z(
006737 6213 CIF CDF 10 /06737-6213 2K
006740 4742 JMS I .+2 /06740-4742 '"
006741 5730 JMP I SETF1 /06741-5730 /X
006742 3320 3320 /06742-3320 [P
006743 0000 PRIXBP, AND 0000 /06743-0000 @@
006744 1114 TAD C40 /06744-1114 IL
006745 4465 JMS I DIGS /06745-4465 $5
006746 7333 CLA CLL CML IAC RTR /06746-7333 ;[
006747 4465 JMS I DIGS /06747-4465 $5
006750 5743 JMP I PRIXBP /06750-5743 /#
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-142
006751 0000 AND 0000 /06751-0000 @@
006752 4771 JMS I 6771 /06752-4771 '9
006753 4504 JMS I X8 /06753-4504 %D
006754 4463 JMS I GETSW /06754-4463 $3
006755 0116 AND C100 /06755-0116 AN
006756 7640 SZA CLA /06756-7640 >
006757 5770 JMP I 6770 /06757-5770 /8
006760 4456 JMS I MES10 /06760-4456 $.
006761 7264 INSERR /06761-7264 :4
006762 4455 JMS I MES /06762-4455 $-
006763 7546 PC /06763-7546 =&
006764 1145 TAD PCLOC /06764-1145 I%
006765 4465 JMS I DIGS /06765-4465 $5
006766 5751 JMP I 6751 /06766-5751 /)
006767 2515 ISZ I 0115 /06767-2515 UM
006770 7071 CMA CML IAC RAR /06770-7071 89
006771 2363 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
006772 2673
006773 6211
006774 7772
006775 6115
006776 3200
006777 6203
7000 PAGE
007000 0000 CHECK, AND 0000 /07000-0000 @@
007001 7305 CLA CLL IAC RAL /07001-7305 ;E
007002 1200 TAD CHECK /07002-1200 J@
007003 3145 DCA PCLOC /07003-3145 Y%
007004 7340 CLA CLL CMA /07004-7340 ;
007005 3152 DCA 0152 /07005-3152 Y*
007006 1600 TAD I CHECK /07006-1600 N@
007007 3016 DCA 0016 /07007-3016 XN
007010 7240 CLA CMA /07010-7240 :
007011 1016 TAD 0016 /07011-1016 HN
007012 3010 DCA 0010 /07012-3010 XH
007013 6214 RDF /07013-6214 2L
007014 1377 TAD (CIF CDF 0 /07014-1377 K?
007015 3272 DCA 7072 /07015-3272 Z:
007016 6201 CDF 0 /07016-6201 2A
007017 1376 TAD (APT-1 /07017-1376 K>
007020 3011 DCA 0011 /07020-3011 XI
007021 4775 JMS I (3455 /07021-4775 '=
007022 6556 FPRST /07022-6556 5.
007023 3135 DCA 0135 /07023-3135 Y]
007024 1411 TAD I 0011 /07024-1411 LI
007025 7041 CMA IAC /07025-7041 8!
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-143
007026 1142 TAD FBITS /07026-1142 I"
007027 7640 SZA CLA /07027-7640 >
007030 5310 JMP 7110 /07030-5310 +H
007031 1374 TAD (-10 /07031-1374 K<
007032 3147 DCA COUNT /07032-3147 Y'
007033 1410 TAD I 0010 /07033-1410 LH
007034 7041 CMA IAC /07034-7041 8!
007035 1411 TAD I 0011 /07035-1411 LI
007036 7640 SZA CLA /07036-7640 >
007037 5310 JMP 7110 /07037-5310 +H
007040 2152 ISZ 0152 /07040-2152 Q*
007041 5243 JMP 7043 /07041-5243 *#
007042 4274 JMS 7074 /07042-4274 "<
007043 2147 ISZ COUNT /07043-2147 Q'
007044 5233 JMP 7033 /07044-5233 *[
007045 1410 TAD I 0010 /07045-1410 LH
007046 7041 CMA IAC /07046-7041 8!
007047 1135 TAD 0135 /07047-1135 I]
007050 7650 SNA CLA /07050-7650 >(
007051 5257 JMP 7057 /07051-5257 */
007052 4773 JMS I (6751 /07052-4773 ';
007053 4456 JMS I MES10 /07053-4456 $.
007054 7320 STATER /07054-7320 ;P
007055 4460 JMS I VT /07055-4460 $0
007056 5311 JMP 7111 /07056-5311 +I
007057 1411 TAD I 0011 /07057-1411 LI
007060 7001 IAC /07060-7001 8A
007061 7650 SNA CLA /07061-7650 >(
007062 5267 JMP 7067 /07062-5267 *7
007063 4773 JMS I (6751 /07063-4773 ';
007064 4456 JMS I MES10 /07064-4456 $.
007065 7327 APTERR /07065-7327 ;W
007066 5311 JMP 7111 /07066-5311 +I
007067 2200 ISZ CHECK /07067-2200 R@
007070 2200 ISZ CHECK /07070-2200 R@
007071 2200 ISZ CHECK /07071-2200 R@
007072 6203 CIF CDF 0 /07072-6203 2C
007073 5600 JMP I CHECK /07073-5600 .@
007074 0000 AND 0000 /07074-0000 @@
007075 1411 TAD I 0011 /07075-1411 LI
007076 7041 CMA IAC /07076-7041 8!
007077 1114 TAD C40 /07077-1114 IL
007100 7640 SZA CLA /07100-7640 >
007101 5310 JMP 7110 /07101-5310 +H
007102 7333 CLA CLL CML IAC RTR /07102-7333 ;[
007103 7041 CMA IAC /07103-7041 8!
007104 1411 TAD I 0011 /07104-1411 LI
007105 7640 SZA CLA /07105-7640 >
007106 5310 JMP 7110 /07106-5310 +H
007107 5674 JMP I 7074 /07107-5674 .<
007110 4773 JMS I (6751 /07110-4773 ';
007111 4504 JMS I X8 /07111-4504 %D
007112 4456 JMS I MES10 /07112-4456 $.
007113 7163 ACTAPT /07113-7163 93
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-144
007114 4456 JMS I MES10 /07114-4456 $.
007115 0514 APTLIN /07115-0514 EL
007116 1376 TAD (APT-1 /07116-1376 K>
007117 3010 DCA 0010 /07117-3010 XH
007120 1372 TAD (-13 /07120-1372 K:
007121 3147 DCA COUNT /07121-3147 Y'
007122 1410 TAD I 0010 /07122-1410 LH
007123 4465 JMS I DIGS /07123-4465 $5
007124 2147 ISZ COUNT /07124-2147 Q'
007125 5322 JMP 7122 /07125-5322 +R
007126 4456 JMS I MES10 /07126-4456 $.
007127 7224 STAT /07127-7224 :T
007130 1135 TAD 0135 /07130-1135 I]
007131 4465 JMS I DIGS /07131-4465 $5
007132 4460 JMS I VT /07132-4460 $0
007133 4456 JMS I MES10 /07133-4456 $.
007134 7303 EXPAPT /07134-7303 ;C
007135 4456 JMS I MES10 /07135-4456 $.
007136 0514 APTLIN /07136-0514 EL
007137 1374 TAD (-10 /07137-1374 K<
007140 3147 DCA COUNT /07140-3147 Y'
007141 7340 CLA CLL CMA /07141-7340 ;
007142 3152 DCA 0152 /07142-3152 Y*
007143 1142 TAD FBITS /07143-1142 I"
007144 4465 JMS I DIGS /07144-4465 $5
007145 7240 CLA CMA /07145-7240 :
007146 1016 TAD 0016 /07146-1016 HN
007147 3010 DCA 0010 /07147-3010 XH
007150 1410 TAD I 0010 /07150-1410 LH
007151 4465 JMS I DIGS /07151-4465 $5
007152 2152 ISZ 0152 /07152-2152 Q*
007153 5355 JMP 7155 /07153-5355 +-
007154 4771 JMS I (PRIXBP /07154-4771 '9
007155 2147 ISZ COUNT /07155-2147 Q'
007156 5350 JMP 7150 /07156-5350 +(
007157 4456 JMS I MES10 /07157-4456 $.
007160 7224 STAT /07160-7224 :T
007161 1410 TAD I 0010 /07161-1410 LH
007162 4465 JMS I DIGS /07162-4465 $5
007163 4460 JMS I VT /07163-4460 $0
007164 5271 JMP 7071 /07164-5271 *9
007165 1400 TAD I 0000 /07165-1400 L@
007166 7345 CLA CLL CMA IAC RAL /07166-7345 ;%
007167 7521 MQA MQL /07167-7521 =Q
007170 7360 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
007171 6743
007172 7765
007173 6751
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-145
007174 7770
007175 3455
007176 0023
007177 6203
7200 PAGE
007200 0000 CTRLCG, AND 0000 /07200-0000 @@
007201 1140 TAD INCHAR /07201-1140 I
007202 1241 TAD CTRLG /07202-1241 J!
007203 7640 SZA CLA /07203-7640 >
007204 5213 JMP CC /07204-5213 *K
007205 1244 TAD CARET /07205-1244 J$
007206 4461 JMS I PUN /07206-4461 $1
007207 1245 TAD CTG /07207-1245 J%
007210 4461 JMS I PUN /07210-4461 $1
007211 4624 JMS I OPT /07211-4624 &T
007212 5600 JMP I CTRLCG /07212-5600 .@
007213 1140 CC, TAD INCHAR /07213-1140 I
007214 1240 TAD CTRLC /07214-1240 J
007215 7640 SZA CLA /07215-7640 >
007216 5600 JMP I CTRLCG /07216-5600 .@
007217 1244 TAD CARET /07217-1244 J$
007220 4461 JMS I PUN /07220-4461 $1
007221 1246 TAD CTC /07221-1246 J&
007222 4461 JMS I PUN /07222-4461 $1
007223 5647 JMP I GOOS /07223-5647 .'
007224 3200 OPT, OPTION /07224-3200 Z@
007225 0000 CTRLQS, AND 0000 /07225-0000 @@
007226 1140 TAD INCHAR /07226-1140 I
007227 1243 TAD CTRLS /07227-1243 J#
007230 7640 SZA CLA /07230-7640 >
007231 5237 JMP .+6 /07231-5237 *_
007232 4462 JMS I RDECHO /07232-4462 $2
007233 1242 TAD CTRLQ /07233-1242 J"
007234 7640 SZA CLA /07234-7640 >
007235 5232 JMP .-3 /07235-5232 *Z
007236 2225 ISZ CTRLQS /07236-2225 RU
007237 5625 JMP I CTRLQS /07237-5625 .U
007240 7575 CTRLC, -"C+100 /07240-7575 ==
007241 7571 CTRLG, -"G+100 /07241-7571 =9
007242 7557 CTRLQ, -"Q+100 /07242-7557 =/
007243 7555 CTRLS, -"S+100 /07243-7555 =-
007244 0336 CARET, "^ /07244-0336 C^
007245 0307 CTG, "G /07245-0307 CG
007246 0303 CTC, "C /07246-0303 CC
007247 7600 GOOS, 7600 /07247-7600 >@
007250 0000 RSAV, AND 0000 /07250-0000 @@
007251 3162 DCA ACSAV /07251-3162 Y2
007252 1000 TAD 0000 /07252-1000 H@
007253 3176 DCA INTLOC /07253-3176 Y>
007254 1271 TAD MQSAV-1 /07254-1271 J9
007255 3000 DCA 0000 /07255-3000 X@
007256 7501 MQA /07256-7501 =A
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-146
007257 3272 DCA MQSAV /07257-3272 Z:
007260 5650 JMP I RSAV /07260-5650 .(
007261 0000 LDMQ, AND 0000 /07261-0000 @@
007262 7300 CLA CLL /07262-7300 ;@
007263 1272 TAD MQSAV /07263-1272 J:
007264 7421 MQL /07264-7421 <Q
007265 5661 JMP I LDMQ /07265-5661 .1
007266 1271 PWRSKP, TAD MQSAV-1 /07266-1271 J9
007267 3000 DCA 0000 /07267-3000 X@
007270 7402 HLT /07270-7402 <B
007271 5534 JMP I GO1 /07271-5534 -\
007272 0000 MQSAV, AND 0000 /07272-0000 @@
007273 0000 SWGET, AND 0000 /07273-0000 @@
007274 7300 CLA CLL /07274-7300 ;@
007275 1021 TAD SOFT /07275-1021 HQ
007276 7710 SPA CLA /07276-7710 ?H
007277 5302 JMP .+3 /07277-5302 +B
007300 1020 TAD SW /07300-1020 HP
007301 5303 JMP .+2 /07301-5303 +C
007302 7604 CLA OSR /07302-7604 >D
007303 5673 JMP I SWGET /07303-5673 .;
007304 0000 DIGITS, AND 0000 /07304-0000 @@
007305 3337 DCA DGNUM /07305-3337 [_
007306 6214 RDF /07306-6214 2L
007307 1340 TAD DGCDI /07307-1340 K
007310 3334 DCA DGEXIT /07310-3334 [\
007311 1337 TAD DGNUM /07311-1337 K_
007312 6201 CDF 0 /07312-6201 2A
007313 7106 CLL RTL /07313-7106 9F
007314 7006 RTL /07314-7006 8F
007315 3137 DCA CHTMP /07315-3137 Y_
007316 1132 TAD M4 /07316-1132 IZ
007317 3336 DCA DGCNT /07317-3336 [^
007320 1137 DGLOOP, TAD CHTMP /07320-1137 I_
007321 0110 AND C7 /07321-0110 AH
007322 1121 TAD C260 /07322-1121 IQ
007323 4461 JMS I PUN /07323-4461 $1
007324 1137 TAD CHTMP /07324-1137 I_
007325 7006 RTL /07325-7006 8F
007326 7004 RAL /07326-7004 8D
007327 3137 DCA CHTMP /07327-3137 Y_
007330 2336 ISZ DGCNT /07330-2336 S^
007331 5320 JMP DGLOOP /07331-5320 +P
007332 1120 TAD C240 /07332-1120 IP
007333 4461 JMS I PUN /07333-4461 $1
007334 6203 DGEXIT, CIF CDF 0 /07334-6203 2C
007335 5704 JMP I 7304 /07335-5704 /D
007336 0000 DGCNT, AND 0000 /07336-0000 @@
007337 0000 DGNUM, AND 0000 /07337-0000 @@
007340 6203 DGCDI, CIF CDF 0 /07340-6203 2C
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-147
007341 0000 I0, AND 0000 /07341-0000 @@
007342 7300 CLA CLL /07342-7300 ;@
007343 3004 DCA CIF10 /07343-3004 XD
007344 3003 DCA CDF10 /07344-3003 XC
007345 3163 DCA 0163 /07345-3163 Y3
007346 3753 DCA I 7353 /07346-3753 _+
007347 6212 CIF 10 /07347-6212 2J
007350 4752 JMS I XINIRA /07350-4752 '*
007351 5741 JMP I I0 /07351-5741 /!
007352 2434 XINIRA, INIRAN /07352-2434 T\
007353 3454 DCA I 0054 /07353-3454 \,
007354 0000 HEAD1, AND 0000 /07354-0000 @@
007355 4463 JMS I GETSW /07355-4463 $3
007356 0114 AND C40 /07356-0114 AL
007357 7640 SZA CLA /07357-7640 >
007360 5754 JMP I HEAD1 /07360-5754 /,
007361 4456 JMS I MES10 /07361-4456 $.
007362 7523 RUNING /07362-7523 =S
007363 4456 JMS I MES10 /07363-4456 $.
007364 7464 INSTST /07364-7464 <4
007365 5754 JMP I HEAD1 /07365-5754 /,
007366 3706 LINE1, DCA I 7306 /07366-3706 _F
007367 2020 ISZ 0020 /07367-2020 PP
007370 5570 JMP I 0170 /07370-5570 -8
007371 0140 AND 0140 /07371-0140 A
007372 1116 TAD 0116 /07372-1116 IN
007373 2324 ISZ 7324 /07373-2324 ST
007374 5640 JMP I 7240 /07374-5640 .
007375 2405 ISZ I 0005 /07375-2405 TE
007376 2324 ISZ 7324 /07376-2324 ST
007377 4001 JMS 0001 /07377-4001 A
7400 PAGE
007400 1604 TAD I 7404 /07400-1604 ND
007401 4004 JMS 0004 /07401-4004 D
007402 0124 AND 0124 /07402-0124 AT
007403 0140 AND 0140 /07403-0140 A
007404 0530 AND I 0130 /07404-0530 EX
007405 0522 AND I 0122 /07405-0522 ER
007406 0311 AND 7511 /07406-0311 CI
007407 2305 ISZ 7505 /07407-2305 SE
007410 2200 ISZ 7400 /07410-2200 R@
007411 3715 PRODUC, DCA I 7515 /07411-3715 _M
007412 0111 AND 0111 /07412-0111 AI
007413 1604 TAD I 7404 /07413-1604 ND
007414 0503 AND I 0103 /07414-0503 EC
007415 5560 JMP I 0160 /07415-5560 -0
007416 7055 7055 /07416-7055 8-
007417 0412 AND I 0012 /07417-0412 DJ
007420 0620 AND I 7420 /07420-0620 FP
007421 0255 AND 7455 /07421-0255 B-
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-148
007422 0300 AND 7500 /07422-0300 C@
007423 3724 TYPEI, DCA I 7524 /07423-3724 _T
007424 3120 DCA 0120 /07424-3120 YP
007425 0540 AND I 0140 /07425-0540 E
007426 4211 JMS 7411 /07426-4211 "I
007427 4240 JMS 7440 /07427-4240 "
007430 0617 AND I 7417 /07430-0617 FO
007431 2240 ISZ 7440 /07431-2240 R
007432 0620 AND I 7420 /07432-0620 FP
007433 2055 ISZ 0055 /07433-2055 P-
007434 7001 IAC /07434-7001 8A
007435 4011 JMS 0011 /07435-4011 I
007436 1623 TAD I 7423 /07436-1623 NS
007437 2456 ISZ I 0056 /07437-2456 T.
007440 4024 JMS 0024 /07440-4024 T
007441 0523 AND I 0123 /07441-0523 ES
007442 2440 ISZ I 0040 /07442-2440 T
007443 1716 TAD I 7516 /07443-1716 ON
007444 1431 TAD I 0031 /07444-1431 LY
007445 0000 AND 0000 /07445-0000 @@
007446 3724 TYPEE, DCA I 7524 /07446-3724 _T
007447 3120 DCA 0120 /07447-3120 YP
007450 0540 AND I 0140 /07450-0540 E
007451 4205 JMS 7405 /07451-4205 "E
007452 4240 JMS 7440 /07452-4240 "
007453 0617 AND I 7417 /07453-0617 FO
007454 2240 ISZ 7440 /07454-2240 R
007455 0620 AND I 7420 /07455-0620 FP
007456 2055 ISZ 0055 /07456-2055 P-
007457 7001 IAC /07457-7001 8A
007460 4005 JMS 0005 /07460-4005 E
007461 3005 DCA 0005 /07461-3005 XE
007462 2203 ISZ 7403 /07462-2203 RC
007463 1123 TAD 0123 /07463-1123 IS
007464 0522 AND I 0122 /07464-0522 ER
007465 4017 JMS 0017 /07465-4017 O
007466 1614 TAD I 7414 /07466-1614 NL
007467 3100 DCA 0100 /07467-3100 Y@
007470 3724 TYPEB, DCA I 7524 /07470-3724 _T
007471 3120 DCA 0120 /07471-3120 YP
007472 0540 AND I 0140 /07472-0540 E
007473 4202 JMS 7402 /07473-4202 "B
007474 4240 JMS 7440 /07474-4240 "
007475 0617 AND I 7417 /07475-0617 FO
007476 2240 ISZ 7440 /07476-2240 R
007477 0217 AND 7417 /07477-0217 BO
007500 2410 ISZ I 0010 /07500-2410 TH
007501 4006 JMS 0006 /07501-4006 F
007502 2020 ISZ 0020 /07502-2020 PP
007503 5570 JMP I 0170 /07503-5570 -8
007504 0140 AND 0140 /07504-0140 A
007505 1116 TAD 0116 /07505-1116 IN
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-149
007506 2324 ISZ 7524 /07506-2324 ST
007507 5640 JMP I 7440 /07507-5640 .
007510 0116 AND 0116 /07510-0116 AN
007511 0440 AND I 0040 /07511-0440 D
007512 0530 AND I 0130 /07512-0530 EX
007513 0522 AND I 0122 /07513-0522 ER
007514 0311 AND 7511 /07514-0311 CI
007515 2305 ISZ 7505 /07515-2305 SE
007516 2240 ISZ 7440 /07516-2240 R
007517 2405 ISZ I 0005 /07517-2405 TE
007520 2324 ISZ 7524 /07520-2324 ST
007521 2337 ISZ 7537 /07521-2337 S_
007522 0000 AND 0000 /07522-0000 @@
007523 3706 NOSKIP, DCA I 7506 /07523-3706 _F
007524 2023 ISZ 0023 /07524-2023 PS
007525 2440 ISZ I 0040 /07525-2440 T
007526 0601 AND I 7401 /07526-0601 FA
007527 1114 TAD 0114 /07527-1114 IL
007530 2522 ISZ I 0122 /07530-2522 UR
007531 0555 AND I 0155 /07531-0555 E-
007532 0620 AND I 7420 /07532-0620 FP
007533 2324 ISZ 7524 /07533-2324 ST
007534 4004 JMS 0004 /07534-4004 D
007535 1104 TAD 0104 /07535-1104 ID
007536 4016 JMS 0016 /07536-4016 N
007537 1724 TAD I 7524 /07537-1724 OT
007540 4003 JMS 0003 /07540-4003 C
007541 0125 AND 0125 /07541-0125 AU
007542 2305 ISZ 7505 /07542-2305 SE
007543 4023 JMS 0023 /07543-4023 S
007544 1311 TAD 7511 /07544-1311 KI
007545 2000 ISZ 0000 /07545-2000 P@
007546 2003 PC, ISZ 0003 /07546-2003 PC
007547 7200 CLA /07547-7200 :@
007550 4040 PC2, JMS 0040 /07550-4040
007551 4040 JMS 0040 /07551-4040
007552 2003 ISZ 0003 /07552-2003 PC
007553 4017 JMS 0017 /07553-4017 O
007554 0640 AND I 7440 /07554-0640 F
007555 2405 ISZ I 0005 /07555-2405 TE
007556 2324 ISZ 7524 /07556-2324 ST
007557 4005 JMS 0005 /07557-4005 E
007560 1624 TAD I 7424 /07560-1624 NT
007561 2231 ISZ 7431 /07561-2231 RY
007562 7200 CLA /07562-7200 :@
007563 7105 CLL IAC RAL /07563-7105 9E
007564 7775 MQA MQL CLA DCM /07564-7775 ?=
007565 7755 7755 /07565-7755 ?-
007566 0177 AND 0177 /07566-0177 A?
007567 6731 6731 /07567-6731 7Y
007570 6143 6143 /07570-6143 1#
007571 7402 HLT /07571-7402 <B
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 1-150
007572 5600 JMP I 7400 /07572-5600 .@
007573 6713 6713 /07573-6713 7K
007574 7323 CLA CLL CML IAC BSW /07574-7323 ;S
007575 7333 CLA CLL CML IAC RTR /07575-7333 ;[
007576 6602 6602 /07576-6602 6B
007577 6701 6701 /07577-6701 7A
$
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 2
ACS 7403 CHKBER 6661 DIGIT1 2260 FDB330 5542
ACSAV 0162 CHKBLP 6646 DIGI10 0062 FDB336 5544
ACTAPT 7163 CHKBP 0101 DIGS 0065 FDB344 5546
ACTBAS 7542 CHKBUF 3600 DIVZER 1233 FDB410 5572
ACTEXP 2000 CHKIT 0074 DJFPB 7460 FDIV 3000
ACTUAL 2077 CHKT0 1365 DOT 2313 FEXIT 0000
ADDR 7373 CHKX8 3562 DOTLIN 2305 FLDA 0000
ALL10 0150 CHTMP 0137 DO1 0644 FLDXX 7554
APT 0024 CIF10 0004 DO10 0064 FLD1 0146
APTERR 7327 CIF11 0004 DPIC 7573 FLD10 0147
APTLIN 0514 CINT 6204 DPMLOC 1430 FLGREL 3252
APTLST 2200 CLEARX 0075 DPMODE 0141 FLGVER 0303
APTTBL 7511 CLEAR1 2327 DPMOD1 7433 FLIPEP 0145
APT10 0024 CLINDX 2653 DPP 0057 FLS 0033
ASR 7415 CLRBP 2665 DPPRT 1672 FLS10 0033
ATX 0020 CMND10 0126 DPSZ 7451 FMB242 5520
BACK00 3160 CNT10 0017 DST 7445 FMB250 5522
BADARG 7146 CODE 3600 DVI 7407 FMB256 5524
BASE 0200 COUNT 0147 EFMLOC 1441 FMB264 5526
BASEAD 0027 CTC 7246 EFP 0056 FMB272 5530
BASE0 6000 CTCG 0076 EFPRT 1600 FMB300 5532
BASE1 5200 CTG 7245 EMLLLL 7117 FMS 0032
BASE10 0027 CTQS 0077 EPMODE 0143 FMS10 0032
BP26 6116 CTRLC 7240 EPMODX 0143 FMUL 4000
BS30P2 0135 CTRLCG 7200 EPMODY 0474 FMULM 7000
BS52P2 0473 CTRLG 7241 EPMOD0 0142 FNORM 0004
BS74P2 0136 CTRLQ 7242 EPMOD1 7441 FPAG1 0611
BUCOER 7476 CTRLQS 7225 EQTXT 7522 FPC 0025
CARET 7244 CTRLS 7243 EXEC1 0400 FPCOM 6553
CC 7213 CUF 6264 EXPAPT 7303 FPC1 5400
CDFLIS 1115 C1 0105 EXPBAS 7530 FPC10 0025
CDFX00 0703 C10 0111 EXPECT 2072 FPEP 6567
CDFX01 0723 C100 0116 EXPOV 1271 FPGO0 0074
CDFX02 0736 C2 0106 EXPUN 1300 FPGO00 1461
CDFX03 1432 C200 0117 FAB066 5462 FPGO1 0600
CDFX04 1443 C240 0120 FAB110 5464 FPGO10 0051
CDFX05 1253 C2525 0126 FAB124 5466 FPHLT 6554
CDFX06 2407 C260 0121 FAB132 5470 FPICL 6552
CDFX07 1301 C277 0122 FAB140 5472 FPINT 6551
CDFX10 1273 C3740 3047 FAB146 5474 FPIST 6557
CDFX11 1310 C4 0107 FAB154 5476 FPLEF 4625
CDFX12 3101 C40 0114 FAB374 5566 FPLEFY 0472
CDFX13 3301 C4100 3050 FAB402 5570 FPMOD1 7425
CDFX14 0424 C5252 0130 FAC 0031 FPRST 6556
CDFX15 0455 C7 0110 FACSET 2600 FPST 6555
CDF1 6703 C70 0115 FAC10 0031 FRACOV 1263
CDF10 0003 DAD 7443 FADD 1000 FSB116 5460
CDF11 0003 DATAEX 7254 FADDM 5000 FSB162 5500
CDF2 2673 DCM 7575 FAILHD 2140 FSB170 5502
CDF3 6650 DGCDI 7340 FAILUR 7230 FSB176 5504
CHECK 7000 DGCNT 7336 FBITS 0142 FSB204 5506
CHECKB 6633 DGEXIT 7334 FCHK10 0052 FSB212 5510
CHECK1 0304 DGLOOP 7320 FDB306 5534 FSB220 5512
CHEK0 0072 DGNUM 7337 FDB314 5536 FSB226 5514
CHEK00 1353 DIGITS 7304 FDB322 5540 FSB234 5516
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 2-1
FSTA 6000 INST 7346 MES10 0056 RDECHO 0062
FSUB 2000 INSTST 7464 MNXT 3012 READ 3126
FUNC 0144 INT 0002 MODEX8 0022 READC 3115
FXX 0072 INTEND 0335 MODINS 2722 READCH 0102
FXXXX 2643 INTLOC 0176 MOD1X8 0105 READEC 3135
F0 0066 INTRAC 2053 MQSAV 7272 RECOVR 0241
F0000 2610 INTRPT 0300 MSCHR 3052 RECOV1 0067
F1CNT 0141 INTRP1 1000 MSCTM 3105 RECO10 2540
F1PNT 0020 IR0TO7 7200 MSG0 2524 REL 3451
F1TMP 0021 ISTNOS 7412 MSG01 0054 RELDON 3454
F12600 2600 I0 7341 MSG1 2506 RELFLG 3452
F25 0070 JA 1030 MSG10 0053 RELOCT 7561
F2525 2625 JAC 0007 MSTEMP 3051 REL1 3200
F52 0071 JMPERR 7360 MSWLSW 7156 RESBUF 6100
F5252 2634 JNE 1040 MUY 7405 RSAV 7250
F7 0067 K1 0076 M1200 0122 RSW1 2160
F7777 2616 K10 0103 M4 0132 RSW10 0065
GETINS 2742 K100 0111 NCR 0253 RSW11 1134
GETSW 0063 K1000 0115 NEXNUM 2247 RUNING 7523
GO 0217 K2 0077 NI 0261 RUNIT 0343
GOAD1 0642 K2411 0117 NKBD 0316 SAM 7457
GOE 3400 K4 0101 NMI 7411 SCA 7441
GOEGO 3426 K40 0110 NOEX 0005 SCL 7403
GOERR1 0622 K400 0113 NOFLG 3074 SDSS 6771
GOI 0133 K4000 0120 NOSIST 1057 SEED1 2432
GOOS 7247 K7 0102 NOSKIP 7523 SEED2 2433
GO1 0134 LDMQ 7261 NOSKP 2737 SETCDF 1100
GO2 0401 LDX 0100 NOTTY 0326 SETDM 4760
GTFLG 0156 LEB25 5405 NSIS 1075 SETDM2 5002
HALT 1227 LEB25P 5402 NSIST 1006 SETEFM 4615
HASERR 0137 LF126 2613 NUMLIN 0061 SETF0 0543
HASINT 0133 LINE1 7366 OPADD 0030 SETF1 6730
HDFAIL 0070 LINNUM 2242 OPA10 0030 SETRAN 2400
HEAD1 7354 LNKPRB 0066 OPT 7224 SET1 0660
HLTPNT 2051 LNK26 3553 OPTION 3200 SHL 7413
ICL00 1150 LOC 0127 PASNUM 0302 SINT 6254
ILLINT 7400 LOCS 7517 PASS 7454 SLA116 5556
ILTRAP 2124 LONG 0400 PC 7546 SLM116 5562
INCHAR 0140 LOOP 6600 PCLOC 0145 SOFT 0021
IND 0600 LOOPX 2534 PC1 0002 SOFT0 1147
INDEX 0040 LOOP0 2537 PC2 7550 STARTD 0006
INDRGS 0551 LOOP1 2526 PRBLNK 2750 STARTE 0050
INDXAD 0026 LOOP10 0063 PRIXBP 6743 STARTF 0005
INDX0 0040 LPBACK 6632 PRODUC 7411 STAT 7224
INDX1 0041 LPBCK 0064 PRTSNO 1746 STATER 7320
INDX10 0026 LPEX 6625 PUN 0061 STAT10 0125
INDX2 0042 LSR 7417 PUNCH 3106 STRT 0200
INDX3 0043 MASKLS 1347 PUTINS 2731 STRTO 0204
INDX4 0044 MASKMS 1346 PWRSKP 7266 STRT10 0200
INDX5 0045 MEND 3041 QUICKV 7235 STTERR 1035
INDX6 0046 MES 0055 RAN 2416 SUF 6274
INDX7 0047 MESG 3000 RANARG 7136 SW 0020
INIRAN 2434 MESG0 2511 RANBUF 5400 SWAB 7431
INIT0 0100 MESG1 2472 RANNUM 7244 SWBA 7447
INSERR 7264 MESG10 3145 RAN10 0055 SWGET 7273
/DJFPBC PAL8-V50X 01-OCT-90 PAGE 2-2
SW0 1146 TXTA7 5425
SX1456 4566 TYPEB 7470
S01456 4553 TYPEE 7446
S72321 4631 TYPEI 7423
TALN0 5435 ULINE 7377
TALN1 5427 VT 0060
TALN2 5431 VTAB 6543
TALN3 5433 XACT1 2047
TEST 2701 XAPT 0113
TESTI 0400 XDBLW 2704
TESTXX 7112 XFDB 2033
TFCLA 5411 XGETI 2701
TFIX4 5454 XGO 0057
TFIX4P 5456 XINIRA 7352
TFLB30 5437 XMODI 2700
TFLB36 5441 XMODX 2717
TFLX0 5446 XMSG 2510
TFLX0P 5443 XSEED1 2447
TFLX4P 5451 XSEED2 2450
TFNEG 5413 XSETX 2710
TFNEG3 5415 XSTT 1054
TFNOP 5634 XTA 0030
TFNORM 5421 XTRIL1 2121
TIME 0050 XTRP1 1414
TIMFLG 0363 XTRP2 1425
TIMO 7447 XXFLD 7557
TIMOUT 2451 X1 1460
TJA 5636 X12600 3561
TJAC 5631 X4 1350
TJAL 5641 X5 1351
TJEQ 5574 X6500 6500
TJGE 5600 X7 1352
TJGT 5620 X8 0104
TJLE 5604 X8JMP 3352
TJLT 5614 X8JMP1 0071
TJNE 5610 X8JMS 0751
TJNX5P 5662 YB 0276
TJSA 5652 YESNO 3333
TJSR 5645 YN 3453
TRAP 1200 YORN 7352
TRAP1 1400
TRAP2 1306
TRAP3 3000
TRAP3X 1337
TRAP4 0700
TRI 1213
TRIL 2103
TRL 1215
TRNBUF 4646
TRNOP 1225
TRX 1214
TSINIT 2715
TSTIT 0073
TSTNO 0007
TXTA0 5423
ERRORS DETECTED: 0
LINKS GENERATED: 0