File: HEAD40.LS of Disk: V50/Source/Source-Listing-PAL-2
(Source file text)
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1
/HEADER.PA V50.1
/
/
/
/
/
/
/
/
/
/COPYRIGHT (C) 2020 BY W. VAN DER MARK
/
/
/
7421 MQL=7421
7501 MQA=7501
7441 SCA=7441
7451 DPSZ=7451
7573 DPIC=7573
7575 DCM=7575
7457 SAM=7457
6030 KCF=6030
6040 TFL=6040
6041 TSF=6041
6042 TCF=6042
6044 TPC=6044
6045 TSK=6045
6046 TLS=6046
6170 LBM=6170
6171 RBM=6171
6172 RLB=6172
6173 RMR=6173
6174 MBC=6174
6175 RACA=6175
6176 RACB=6176
6177 RACC=6177
6200 LXM=6200
6210 GTS=6210
6220 RTS=6220
6230 RXM=6230
6240 LRR=6240
6250 RRR=6250
6260 LUSR=6260
6270 RUSR=6270
7777 BATCCL=7777
7600 KMON=7600
7760 DVCTWT=7760
7666 SYSDAT=7666
6700 INBUF=6700
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-1
0000 FIELD 0
0000 *0000
000000 0003 0003 /00000-0003 @C
000001 7200 7200 /00001-7200 :@
000002 1053 1053 /00002-1053 H+
000003 3033 3033 /00003-3033 X[
000004 4500 4500 /00004-4500 %@
000005 2331 2331 /00005-2331 SY
000006 2324 2324 /00006-2324 ST
000007 0515 0515 /00007-0515 EM
000010 4005 4005 /00010-4005 E
000011 2222 2222 /00011-2222 RR
000012 0000 XR2, 0000 /00012-0000 @@
000013 1004 GETLPT, 1004 /00013-1004 HD
000014 7773 ENFROM, 7773 /00014-7773 ?;
000015 1723 ENTO, 1723 /00015-1723 OS
000016 1020 1020 /00016-1020 HP
000017 0000 0000 /00017-0000 @@
000020 0000 PRNTIT, 0000 /00020-0000 @@
000021 7777 WRFLG, 7777 /00021-7777 ??
000022 0000 DIRPNT, 0000 /00022-0000 @@
000023 0000 WRITOK, 0000 /00023-0000 @@
000024 0000 LBLCNT, 0000 /00024-0000 @@
000025 0000 LBLPNT, 0000 /00025-0000 @@
000026 0230 PRINT, XPRINT /00026-0230 BX
000027 1310 CRLF, XCRLF /00027-1310 KH
000030 0264 HELP, XHELP /00030-0264 B4
000031 0000 YN, 0000 /00031-0000 @@
000032 7605 KMEXIT, 7605 /00032-7605 >E
000033 7700 USR, 7700 /00033-7700 ?@
000034 2444 RDEVNA, BDEVNA /00034-2444 T$
000035 2600 READ, XREAD /00035-2600 V@
000036 2540 TYPE, XTYPE /00036-2540 U
000037 0000 CHAR1, 0000 /00037-0000 @@
000040 0000 CHAR2, 0000 /00040-0000 @@
000041 0000 0000 /00041-0000 @@
000042 0000 TMP, 0000 /00042-0000 @@
000043 7200 ENTRY, 7200 /00043-7200 :@
000044 0000 DELFLG, 0000 /00044-0000 @@
000045 0000 PNT1, 0000 /00045-0000 @@
000046 0000 CNT, 0000 /00046-0000 @@
000047 0000 COCNT, 0000 /00047-0000 @@
000050 0000 CHTMP, 0000 /00050-0000 @@
000051 0000 CHCNT, 0000 /00051-0000 @@
000052 0000 CHPNT, 0000 /00052-0000 @@
000053 0000 CHHALF, 0000 /00053-0000 @@
000054 4000 4000 /00054-4000 @
000055 3700 3700 /00055-3700 _@
000056 2020 2020 /00056-2020 PP
000057 0070 0070 /00057-0070 @8
000060 0603 0603 /00060-0603 FC
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-2
000061 0600 0600 /00061-0600 F@
000062 0434 0434 /00062-0434 D\
000063 0067 0067 /00063-0067 @7
000064 6003 6003 /00064-6003 0C
000065 0244 0244 /00065-0244 B$
000066 0100 0100 /00066-0100 A@
000067 0336 0336 /00067-0336 C^
000070 0334 0334 /00070-0334 C\
000071 7001 7001 /00071-7001 8A
000072 6670 6670 /00072-6670 68
000073 0212 0212 /00073-0212 BJ
000074 0215 0215 /00074-0215 BM
000075 0403 0403 /00075-0403 DC
000076 0010 0010 /00076-0010 @H
000077 7700 7700 /00077-7700 ?@
000100 0330 0330 /00100-0330 CX
000101 0306 0306 /00101-0306 CF
000102 0564 0564 /00102-0564 E4
000103 1754 1754 /00103-1754 O,
000104 0527 0527 /00104-0527 EW
000105 0300 0300 /00105-0300 C@
000106 1676 1676 /00106-1676 N>
000107 7404 7404 /00107-7404 <D
000110 7600 7600 /00110-7600 >@
000111 7402 7402 /00111-7402 <B
000112 7401 7401 /00112-7401 <A
000113 7403 7403 /00113-7403 <C
000114 1610 1610 /00114-1610 NH
000115 7400 7400 /00115-7400 <@
000116 0526 0526 /00116-0526 EV
000117 0200 0200 /00117-0200 B@
000120 0007 0007 /00120-0007 @G
000121 7757 7757 /00121-7757 ?/
000122 7764 7764 /00122-7764 ?4
000123 7762 7762 /00123-7762 ?2
000124 0033 0033 /00124-0033 @[
000125 7761 7761 /00125-7761 ?1
000126 7760 7760 /00126-7760 ?0
000127 7756 7756 /00127-7756 ?.
000130 7775 7775 /00130-7775 ?=
000131 7745 7745 /00131-7745 ?%
000132 1672 1672 /00132-1672 N:
000133 1000 1000 /00133-1000 H@
000134 7744 7744 /00134-7744 ?$
000135 1113 1113 /00135-1113 IK
000136 0370 0370 /00136-0370 C8
000137 1001 1001 /00137-1001 HA
000140 0645 0645 /00140-0645 F%
000141 1532 1532 /00141-1532 MZ
000142 2326 2326 /00142-2326 SV
000143 0651 0651 /00143-0651 F)
000144 1645 1645 /00144-1645 N%
000145 7410 7410 /00145-7410 <H
000146 0766 0766 /00146-0766 G6
000147 1600 1600 /00147-1600 N@
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-3
000150 0637 0637 /00150-0637 F_
000151 1655 1655 /00151-1655 N-
000152 0701 0701 /00152-0701 GA
000153 1163 1163 /00153-1163 I3
000154 7740 7740 /00154-7740 ?
000155 0012 0012 /00155-0012 @J
000156 1327 1327 /00156-1327 KW
000157 0363 0363 /00157-0363 C3
000160 0777 0777 /00160-0777 G?
000161 1166 1166 /00161-1166 I6
000162 7607 7607 /00162-7607 >G
000163 0256 0256 /00163-0256 B.
000164 0004 0004 /00164-0004 @D
000165 0077 0077 /00165-0077 @?
000166 7772 7772 /00166-7772 ?:
000167 7746 7746 /00167-7746 ?&
000170 7477 7477 /00170-7477 <?
000171 7766 7766 /00171-7766 ?6
000172 7776 7776 /00172-7776 ?>
000173 7522 7522 /00173-7522 =R
000174 0240 0240 /00174-0240 B
000175 7540 7540 /00175-7540 =
000176 0034 0034 /00176-0034 @\
000177 7000 7000 /00177-7000 8@
0200 PAGE
PAGE2,
000200 7300 START, CLA CLL /00200-7300 ;@
000201 1777 TAD I (BATCCL /00201-1777 O?
000202 7710 SPA CLA /00202-7710 ?H
000203 5432 JMP I KMEXIT /00203-5432 ,Z
000204 6212 CIF 10 /00204-6212 2J
000205 4433 JMS I USR /00205-4433 $[
000206 0010 0010 /00206-0010 @H
000207 1376 TAD (200 /00207-1376 K>
000210 3033 DCA USR /00210-3033 X[
000211 4427 JMS I CRLF /00211-4427 $W
000212 4426 JMS I PRINT /00212-4426 $V
000213 6111 MHVERS /00213-6100 1@
000214 4427 JMS I CRLF /00214-4427 $W
000215 4426 STRTEN, JMS I PRINT /00215-4426 $V
000216 3637 MWHELP /00216-3617 ^O
000217 4300 JMS SWIT /00217-4300 #@
000220 7240 CLA CMA /00220-7240 :
000221 3031 DCA YN /00221-3031 XY
000222 5775 JMP I (GDEVNA /00222-5775 /=
000223 0000 XPIND, 0000 /00223-0000 @@
000224 3037 DCA CHAR1 /00224-3037 X_
000225 1223 TAD XPIND /00225-1223 JS
000226 3774 DCA I (SWITCH /00226-3774 _<
000227 5773 JMP I (SWITCH+1 /00227-5773 /;
000230 0000 XPRINT, 0000 /00230-0000 @@
000231 6201 CDF 0 /00231-6201 2A
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-4
000232 6032 KCC /00232-6032 0Z
000233 1630 TAD I XPRINT /00233-1630 NX
000234 3223 DCA XPIND /00234-3223 ZS
000235 2230 ISZ XPRINT /00235-2230 RX
000236 1623 XPRNX, TAD I XPIND /00236-1623 NS
000237 7012 RTR /00237-7012 8J
000240 7012 RTR /00240-7012 8J
000241 7012 RTR /00241-7012 8J
000242 4251 JMS XPRBYT /00242-4251 ")
000243 1623 TAD I XPIND /00243-1623 NS
000244 4251 JMS XPRBYT /00244-4251 ")
000245 2223 ISZ XPIND /00245-2223 RS
000246 4772 JMS I (CTRLO /00246-4772 ':
000247 5630 JMP I XPRINT /00247-5630 .X
000250 5236 JMP XPRNX /00250-5236 *^
000251 0000 XPRBYT, 0000 /00251-0000 @@
000252 0371 AND (77 /00252-0371 C9
000253 7450 SNA /00253-7450 <(
000254 5630 JMP I XPRINT /00254-5630 .X
000255 1370 TAD (-40 /00255-1370 K8
000256 7510 SPA /00256-7510 =H
000257 1367 TAD (100 /00257-1367 K7
000260 1366 TAD (240 /00260-1366 K6
000261 4436 JMS I TYPE /00261-4436 $^
000262 4765 JMS I (CTRLC /00262-4765 '5
000263 5651 JMP I XPRBYT /00263-5651 .)
000264 0000 XHELP, 0000 /00264-0000 @@
000265 6201 CDF 0 /00265-6201 2A
000266 1664 TAD I XHELP /00266-1664 N4
000267 3275 DCA XANPR /00267-3275 Z=
000270 2264 ISZ XHELP /00270-2264 R4
000271 1031 TAD YN /00271-1031 HY
000272 7650 SNA CLA /00272-7650 >(
000273 5664 JMP I XHELP /00273-5664 .4
000274 4426 JMS I PRINT /00274-4426 $V
000275 0000 XANPR, 0000 /00275-0000 @@
000276 4427 JMS I CRLF /00276-4427 $W
000277 5664 JMP I XHELP /00277-5664 .4
000300 0000 SWIT, 0000 /00300-0000 @@
000301 6031 KSF /00301-6031 0Y
000302 5301 JMP .-1 /00302-5301 +A
000303 6036 KRB /00303-6036 0^
000304 4223 JMS XPIND /00304-4223 "S
000305 7575 -203 /00305-7575 ==
000306 7600 KMON /00306-7600 >@
000307 7775 -3 /00307-7775 ?=
000310 7600 KMON /00310-7600 >@
000311 7447 -331 /Y /00311-7447 <'
000312 0327 XYES /00312-0327 CW
000313 7647 -131 /Y /00313-7647 >'
000314 0327 XYES /00314-0327 CW
000315 7462 -316 /N /00315-7462 <2
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-5
000316 0332 XNO /00316-0332 CZ
000317 7662 -116 /N /00317-7662 >2
000320 0332 XNO /00320-0332 CZ
000321 0000 0000 /00321-0000 @@
000322 4427 JMS I CRLF /00322-4427 $W
000323 4426 JMS I PRINT /00323-4426 $V
000324 3623 MPLYN /00324-3603 ^C
000325 4427 JMS I CRLF /00325-4427 $W
000326 5301 JMP SWIT+1 /00326-5301 +A
000327 4426 XYES, JMS I PRINT /00327-4426 $V
000330 3650 MYES /00330-3630 ^X
000331 5335 JMP XYES2 /00331-5335 +]
000332 2300 XNO, ISZ SWIT /00332-2300 S@
000333 4426 JMS I PRINT /00333-4426 $V
000334 3652 MNO /00334-3632 ^Z
000335 4427 XYES2, JMS I CRLF /00335-4427 $W
000336 5700 JMP I SWIT /00336-5700 /@
000337 5433 JMP I 0033 /00337-5433 ,[
000340 0000 AND 0000 /00340-0000 @@
000341 3031 DCA YN /00341-3031 XY
000342 1031 TAD YN /00342-1031 HY
000343 7012 RTR /00343-7012 8J
000344 7012 RTR /00344-7012 8J
000345 7012 RTR /00345-7012 8J
000346 4352 JMS 0352 /00346-4352 #*
000347 1031 TAD YN /00347-1031 HY
000350 4352 JMS 0352 /00350-4352 #*
000351 5740 JMP I 0340 /00351-5740 /
000352 0000 AND 0000 /00352-0000 @@
000353 0165 AND 0165 /00353-0165 A5
000354 7450 SNA /00354-7450 <(
000355 5752 JMP I 0352 /00355-5752 /*
000356 1174 TAD 0174 /00356-1174 I<
000357 0165 AND 0165 /00357-0165 A5
000360 1174 TAD 0174 /00360-1174 I<
000361 4423 JMS I 0023 /00361-4423 $S
000362 5752 JMP I 0352 /00362-5752 /*
000363 4330 JMS 0330 /00363-4330 #X
000364 7700 SMA CLA /00364-7700 ?@
000365 0516
000366 0240
000367 0100
000370 7740
000371 0077
000372 0530
000373 2736
000374 2735
000375 0400
000376 0200
000377 7777
0400 PAGE
000400 4430 GDEVNA, JMS I HELP /00400-4430 $X
000401 3654 MPARBL /00401-3634 ^\
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-6
000402 4430 JMS I HELP /00402-4430 $X
000403 3701 MDEC8 /00403-3662 ^2
000404 4427 JMS I CRLF /00404-4427 $W
000405 4430 JMS I HELP /00405-4430 $X
000406 3725 MINKM /00406-3706 _F
000407 4427 TRYA, JMS I CRLF /00407-4427 $W
000410 4426 JMS I PRINT /00410-4426 $V
000411 3754 MDEVNA /00411-3735 _]
000412 4777 JMS I (GETLIN /00412-4777 '?
000413 4427 JMS I CRLF /00413-4427 $W
000414 4434 JMS I RDEVNA /00414-4434 $\
000415 7410 SKP /00415-7410 <H
000416 5222 JMP .+4 /00416-5222 *R
000417 4426 JMS I PRINT /00417-4426 $V
000420 3762 MBADIN /00420-3743 _#
000421 5200 JMP GDEVNA /00421-5200 *@
000422 1037 TAD CHAR1 /00422-1037 H_
000423 3233 DCA UDEVNA /00423-3233 Z[
000424 1040 TAD CHAR2 /00424-1040 H
000425 3234 DCA UDEVNO /00425-3234 Z\
000426 1376 TAD (HNDBUF+1 /00426-1376 K>
000427 3235 DCA UDEVEN /00427-3235 Z]
000430 6212 CIF 10 /00430-6212 2J
000431 4433 JMS I USR /00431-4433 $[
000432 0001 0001 /00432-0001 @A
000433 0000 UDEVNA, AND 0000 /NAME /00433-0000 @@
000434 0000 UDEVNO, AND 0000 /DEVNO /00434-0000 @@
000435 0000 UDEVEN, AND 0000 /ENTRY /00435-0000 @@
000436 5217 JMP 0417 /00436-5217 *O
000437 1235 TAD UDEVEN /00437-1235 J]
000440 3043 DCA ENTRY /00440-3043 X#
000441 1234 TAD UDEVNO /00441-1234 J\
000442 1375 TAD (DVCTWT-1 /00442-1375 K=
000443 3233 DCA UDEVNA /00443-3233 Z[
000444 6211 CDF 10 /00444-6211 2I
000445 1633 TAD I UDEVNA /00445-1633 N[
000446 6201 CDF 0 /00446-6201 2A
000447 3774 DCA I (DVCTW /00447-3774 _<
000450 1774 TAD I (DVCTW /00450-1774 O<
000451 7710 SPA CLA /00451-7710 ?H
000452 5256 JMP .+4 /00452-5256 *.
000453 4426 JMS I PRINT /00453-4426 $V
000454 3770 MDEVNF /00454-3751 _)
000455 5207 JMP TRYA /00455-5207 *G
000456 4773 JMS I (READIR /00456-4773 ';
000457 1372 TAD (DIRHDR-1 /00457-1372 K:
000460 3012 DCA XR2 /00460-3012 XJ
000461 6211 CDF 10 /00461-6211 2I
000462 1371 TAD (427 /00462-1371 K9
000463 3412 DCA I XR2 /00463-3412 \J
000464 1370 TAD (1203 /00464-1370 K8
000465 3412 DCA I XR2 /00465-3412 \J
000466 7240 CLA CMA /00466-7240 :
000467 3412 DCA I XR2 /00467-3412 \J
000470 4767 JMS I (SQSHZE /00470-4767 '7
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-7
000471 4766 JMS I (SYSUPD /00471-4766 '6
000472 4765 JMS I (GLNSTD /00472-4765 '5
000473 4764 JMS I (UADVNM /00473-4764 '4
000474 4763 JMS I (DESLBL /00474-4763 '3
000475 4762 JMS I (WRALL /00475-4762 '2
000476 4761 JMS I (WRHDR /00476-4761 '1
000477 5760 JMP I (ENDPRC /00477-5760 /0
000500 0000 CHNGIT, 0000 /00500-0000 @@
000501 6201 CDF 0 /00501-6201 2A
000502 1020 TAD PRNTIT /00502-1020 HP
000503 7650 SNA CLA /00503-7650 >(
000504 5312 JMP CHNG1 /00504-5312 +J
000505 4427 JMS I CRLF /00505-4427 $W
000506 4426 JMS I PRINT /00506-4426 $V
000507 5603 MCHNG /00507-5571 -9
000510 4757 JMS I (SWIT /00510-4757 '/
000511 5314 JMP .+3 /00511-5314 +L
000512 2300 CHNG1, ISZ CHNGIT /00512-2300 S@
000513 5700 JMP I CHNGIT /00513-5700 /@
000514 3021 DCA WRFLG /00514-3021 XQ
000515 5700 JMP I CHNGIT /00515-5700 /@
000516 0000 CTRLC, 0000 /00516-0000 @@
000517 6031 KSF /00517-6031 0Y
000520 5716 JMP I CTRLC /00520-5716 /N
000521 6034 KRS /00521-6034 0\
000522 1356 TAD (-203 /00522-1356 K.
000523 7640 SZA CLA /00523-7640 >
000524 5716 JMP I CTRLC /00524-5716 /N
000525 6041 TSF /00525-6041 0!
000526 5325 JMP .-1 /00526-5325 +U
000527 5755 JMP I (KMON /00527-5755 /-
000530 0000 CTRLO, 0000 /00530-0000 @@
000531 6031 KSF /00531-6031 0Y
000532 5341 JMP CTRL2 /00532-5341 +!
000533 6034 KRS /00533-6034 0\
000534 1354 TAD (-217 /00534-1354 K,
000535 7640 SZA CLA /00535-7640 >
000536 5341 JMP CTRL2 /00536-5341 +!
000537 6032 KCC /00537-6032 0Z
000540 5730 JMP I CTRLO /00540-5730 /X
000541 2330 CTRL2, ISZ CTRLO /00541-2330 SX
000542 5730 JMP I CTRLO /00542-5730 /X
000543 4163 JMS 0163 /00543-4163 !3
000544 5000 JMP 0000 /00544-5000 (@
000545 2325 ISZ 0525 /00545-2325 SU
000546 4255 JMS 0455 /00546-4255 "-
000547 5164 JMP 0164 /00547-5164 )4
000550 0024 AND 0024 /00550-0024 @T
000551 0543 AND I 0143 /00551-0543 E#
000552 5700 JMP I 0500 /00552-5700 /@
000553 2431 ISZ I 0031 /00553-2431 TY
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-8
000554 7561
000555 7600
000556 7575
000557 0300
000560 3011
000561 2310
000562 2260
000563 2200
000564 2014
000565 1000
000566 1600
000567 1077
000570 1203
000571 0427
000572 4377
000573 0600
000574 1747
000575 7757
000576 7201
000577 2317
0600 PAGE
000600 0000 READIR, 0000 /00600-0000 @@
000601 4443 JMS I ENTRY /00601-4443 $#
000602 1410 1410 /00602-1410 LH
000603 2000 DIRBUF /00603-2000 P@
000604 0001 0001 /00604-0001 @A
000605 5273 JMP READER /00605-5273 *;
000606 7240 CLA CMA /00606-7240 :
000607 3023 DCA WRITOK /00607-3023 XS
000610 6211 CDF 10 /00610-6211 2I
000611 1777 TAD I (DIRBUF /00611-1777 O?
000612 7100 CLL /00612-7100 9@
000613 1376 TAD (100 /00613-1376 K>
000614 7620 SNL CLA /00614-7620 >P
000615 5240 JMP BADDIR /00615-5240 *
000616 3775 DCA I (SAVNXT /00616-3775 _=
000617 1374 TAD (DIRNXT /00617-1374 K<
000620 3022 DCA DIRPNT /00620-3022 XR
000621 1422 TAD I DIRPNT /00621-1422 LR
000622 7650 SNA CLA /00622-7650 >(
000623 5230 JMP .+5 /00623-5230 *X
000624 1373 TAD (400 /00624-1373 K;
000625 1022 TAD DIRPNT /00625-1022 HR
000626 3022 DCA DIRPNT /00626-3022 XR
000627 5221 JMP .-6 /00627-5221 *Q
000630 6201 CDF 0 /00630-6201 2A
000631 1022 TAD DIRPNT /00631-1022 HR
000632 1372 TAD (-DIRHDR /00632-1372 K:
000633 7710 SPA CLA /00633-7710 ?H
000634 5241 JMP BADDIR+1 /00634-5241 *!
000635 4426 JMS I PRINT /00635-4426 $V
000636 4006 MDIRPA /00636-3767 _7
000637 5432 JMP I KMEXIT /00637-5432 ,Z
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-9
000640 3023 BADDIR, DCA WRITOK /00640-3023 XS
000641 6211 CDF 10 /00641-6211 2I
000642 2771 ISZ I (HDRFLG /00642-2771 W9
000643 5600 JMP I READIR /00643-5600 .@
000644 4260 JMS MULTPR /00644-4260 "0
000645 4030 MDVHPA /00645-4011 I
000646 5631 MWISH /00646-5617 .O
000647 5641 MWISHA /00647-5627 .W
000650 5647 MWISHB /00650-5635 .]
000651 5663 MWISHC /00651-5651 .)
000652 0000 0000 /00652-0000 @@
000653 4770 JMS I (GETABC /00653-4770 '8
000654 5600 JMP I READIR /00654-5600 .@
000655 7240 CLA CMA /00655-7240 :
000656 3020 DCA PRNTIT /00656-3020 XP
000657 5767 JMP I (GUDVNM /00657-5767 /7
000660 0000 MULTPR, 0000 /00660-0000 @@
000661 6201 CDF 0 /00661-6201 2A
000662 1660 TAD I MULTPR /00662-1660 N0
000663 2260 ISZ MULTPR /00663-2260 R0
000664 7450 SNA /00664-7450 <(
000665 5660 JMP I MULTPR /00665-5660 .0
000666 3270 DCA .+2 /00666-3270 Z8
000667 4426 JMS I PRINT /00667-4426 $V
000670 0000 AND 0000 /00670-0000 @@
000671 4427 JMS I CRLF /00671-4427 $W
000672 5261 JMP MULTPR+1 /00672-5261 *1
000673 4427 READER, JMS I CRLF /00673-4427 $W
000674 4426 JMS I PRINT /00674-4426 $V
000675 4062 MERB16 /00675-4043 #
000676 4427 JMS I CRLF /00676-4427 $W
000677 4426 JMS I PRINT /00677-4426 $V
000700 4110 MCONTI /00700-4071 9
000701 4766 JMS I (SWIT /00701-4766 '6
000702 7410 SKP /00702-7410 <H
000703 5765 JMP I (STRTEN /00703-5765 /5
000704 3023 DCA WRITOK /00704-3023 XS
000705 4426 JMS I PRINT /00705-4426 $V
000706 4121 MDIRZE /00706-4102 !B
000707 4427 JMS I CRLF /00707-4427 $W
000710 5600 JMP I READIR /00710-5600 .@
000711 0000 CONDEC, 0000 /00711-0000 @@
000712 3047 DCA COCNT /00712-3047 X'
000713 3045 CONLUP, DCA PNT1 /00713-3045 X%
000714 1413 TAD I GETLPT /00714-1413 LK
000715 7450 SNA /00715-7450 <(
000716 5351 JMP CONEXI /00716-5351 +)
000717 3046 DCA CNT /00717-3046 X&
000720 1046 TAD CNT /00720-1046 H&
000721 1364 TAD (-260 /00721-1364 K4
000722 7100 CLL /00722-7100 9@
000723 1363 TAD (-12 /00723-1363 K3
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-10
000724 7620 SNL CLA /00724-7620 >P
000725 5334 JMP .+7 /00725-5334 +\
000726 1047 TAD COCNT /00726-1047 H'
000727 7640 SZA CLA /00727-7640 >
000730 5351 JMP CONEXI /00730-5351 +)
000731 4426 JMS I PRINT /00731-4426 $V
000732 3612 MCONER /00732-3572 ]:
000733 5711 JMP I CONDEC /00733-5711 /I
000734 1045 TAD PNT1 /00734-1045 H%
000735 7104 CLL RAL /00735-7104 9D
000736 3045 DCA PNT1 /00736-3045 X%
000737 1045 TAD PNT1 /00737-1045 H%
000740 7104 CLL RAL /00740-7104 9D
000741 7104 CLL RAL /00741-7104 9D
000742 1045 TAD PNT1 /00742-1045 H%
000743 3045 DCA PNT1 /00743-3045 X%
000744 1046 TAD CNT /00744-1046 H&
000745 0362 AND (17 /00745-0362 C2
000746 1045 TAD PNT1 /00746-1045 H%
000747 2047 ISZ COCNT /00747-2047 P'
000750 5313 JMP CONLUP /00750-5313 +K
000751 1045 CONEXI, TAD PNT1 /00751-1045 H%
000752 2311 ISZ CONDEC /00752-2311 SI
000753 5711 JMP I CONDEC /00753-5711 /I
000754 7440 SZA /00754-7440 <
000755 2330 ISZ 0730 /00755-2330 SX
000756 0365 AND 0765 /00756-0365 C5
000757 5730 JMP I 0730 /00757-5730 /X
000760 5731 JMP I 0731 /00760-5731 /Y
000761 4566 JMS I 0166 /00761-4566 %6
000762 0017
000763 7766
000764 7520
000765 0215
000766 0300
000767 1200
000770 1701
000771 4402
000772 3400
000773 0400
000774 2002
000775 5002
000776 0100
000777 2000
1000 PAGE
001000 0000 GLNSTD, AND 0000 /01000-0000 @@
001001 4777 JMS I (WRDATE /01001-4777 '?
001002 4776 JMS I (GEDVLN /01002-4776 '>
001003 7650 SNA CLA /01003-7650 >(
001004 5224 JMP 1024 /01004-5224 *T
001005 4430 JMS I HELP /01005-4430 $X
001006 4152 MDEVSL /01006-4133 ![
001007 4430 JMS I HELP /01007-4430 $X
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-11
001010 4174 MAYNMQ /01010-4155 !-
001011 4430 JMS I HELP /01011-4430 $X
001012 4214 MNSDEV /01012-4175 !=
001013 4430 JMS I HELP /01013-4430 $X
001014 4240 MSTDVA /01014-4221 "Q
001015 4430 JMS I HELP /01015-4430 $X
001016 4253 MVDEVS /01016-4234 "\
001017 4427 JMS I CRLF /01017-4427 $W
001020 4426 JMS I PRINT /01020-4426 $V
001021 4136 MSTDVL /01021-4117 !O
001022 4775 JMS I (SWIT /01022-4775 '=
001023 5233 JMP STDLEN /01023-5233 *[
001024 4426 JMS I PRINT /01024-4426 $V
001025 4275 MDVLDC /01025-4256 ".
001026 4774 JMS I (GETLIN /01026-4774 '<
001027 4773 JMS I (CONDEC /01027-4773 ';
001030 5224 JMP .-4 /01030-5224 *T
001031 7041 CMA IAC /01031-7041 8!
001032 7410 SKP /01032-7410 <H
001033 4776 STDLEN, JMS I (GEDVLN /01033-4776 '>
001034 6211 CDF 10 /01034-6211 2I
001035 3772 DCA I (HDRLEN /01035-3772 _:
001036 6201 CDF 0 /01036-6201 2A
001037 4427 JMS I CRLF /01037-4427 $W
001040 4430 BADSTR, JMS I HELP /01040-4430 $X
001041 5433 MNXPRZ /01041-5421 ,Q
001042 4430 JMS I HELP /01042-4430 $X
001043 5465 MSTBEG /01043-5453 ,+
001044 4430 JMS I HELP /01044-4430 $X
001045 5502 MSTD07 /01045-5470 ,8
001046 4430 JMS I HELP /01046-4430 $X
001047 5525 MSTD56 /01047-5513 -K
001050 6211 CDF 10 /01050-6211 2I
001051 1771 TAD I (HDRSYS /01051-1771 O9
001052 7640 SZA CLA /01052-7640 >
001053 1370 TAD (61 /01053-1370 K8
001054 1367 TAD (7 /01054-1367 K7
001055 3766 DCA I (HDRSTR /01055-3766 _6
001056 4426 JMS I PRINT /01056-4426 $V
001057 5354 MSTDST /USE STD START /01057-5342 +"
001060 4775 JMS I (SWIT /01060-4775 '=
001061 5600 JMP I GLNSTD /01061-5600 .@
001062 4426 JMS I PRINT /01062-4426 $V
001063 5376 MFSTBL /01063-5364 +4
001064 4774 JMS I (GETLIN /01064-4774 '<
001065 4773 JMS I (CONDEC /01065-4773 ';
001066 5262 JMP .-4 /01066-5262 *2
001067 6211 CDF 10 /01067-6211 2I
001070 3766 DCA I (HDRSTR /01070-3766 _6
001071 1766 TAD I (HDRSTR /01071-1766 O6
001072 6201 CDF 0 /01072-6201 2A
001073 1365 TAD (-7 /01073-1365 K5
001074 7710 SPA CLA /01074-7710 ?H
001075 5240 JMP BADSTR /01075-5240 *
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-12
001076 5600 JMP I GLNSTD /01076-5600 .@
001077 0000 SQSHZE, AND 0000 /01077-0000 @@
001100 4777 JMS I (WRDATE /01100-4777 '?
001101 4427 JMS I CRLF /01101-4427 $W
001102 4430 JMS I HELP /01102-4430 $X
001103 4342 MSQZE /01103-4323 #S
001104 4430 JMS I HELP /01104-4430 $X
001105 4374 MNOZER /01105-4355 #-
001106 4430 JMS I HELP /01106-4430 $X
001107 4423 MSQPER /01107-4404 $D
001110 4430 JMS I HELP /01110-4430 $X
001111 4406 MONLSQ /01111-4367 #7
001112 4430 JMS I HELP /01112-4430 $X
001113 4436 MSTDSQ /01113-4417 $O
001114 4426 JMS I PRINT /01114-4426 $V
001115 4311 MSTSQZ /01115-4272 ":
001116 4775 JMS I (SWIT /01116-4775 '=
001117 7410 SKP /01117-7410 <H
001120 5332 JMP XDRSQM+4 /01120-5332 +Z
001121 6211 CDF 10 /01121-6211 2I
001122 7240 CLA CMA /01122-7240 :
001123 3764 DCA I (HDRZEA /01123-3764 _4
001124 7240 CLA CMA /01124-7240 :
001125 3763 DCA I (HDRSQO /01125-3763 _3
001126 6211 XDRSQM, CDF 10 /01126-6211 2I
001127 3762 DCA I (HDRSQM /01127-3762 _2
001130 6201 CDF 0 /01130-6201 2A
001131 5677 JMP I SQSHZE /01131-5677 .?
001132 4426 JMS I PRINT /01132-4426 $V
001133 4461 MZEALL /01133-4442 $"
001134 4775 JMS I (SWIT /01134-4775 '=
001135 7410 SKP /01135-7410 <H
001136 7240 CLA CMA /01136-7240 :
001137 6211 CDF 10 /01137-6211 2I
001140 3764 DCA I (HDRZEA /01140-3764 _4
001141 4426 JMS I PRINT /01141-4426 $V
001142 4471 MSQODV /01142-4452 $*
001143 4775 JMS I (SWIT /01143-4775 '=
001144 7410 SKP /01144-7410 <H
001145 5350 JMP .+3 /01145-5350 +(
001146 6211 CDF 10 /01146-6211 2I
001147 5325 JMP XDRSQM-1 /01147-5325 +U
001150 6211 CDF 10 /01150-6211 2I
001151 7240 CLA CMA /01151-7240 :
001152 3763 DCA I (HDRSQO /01152-3763 _3
001153 4426 JMS I PRINT /01153-4426 $V
001154 4513 MSQMYS /01154-4474 $<
001155 4775 JMS I (SWIT /01155-4775 '=
001156 7410 SKP /01156-7410 <H
001157 7240 CLA CMA /01157-7240 :
001160 5326 JMP XDRSQM /01160-5326 +V
001161 6203 CIF CDF 0 /01161-6203 2C
001162 4406
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-13
001163 4405
001164 4404
001165 7771
001166 4410
001167 0007
001170 0061
001171 4407
001172 4403
001173 0711
001174 2317
001175 0300
001176 1736
001177 3000
1200 PAGE
001200 7240 GUDVNM, CLA CMA /01200-7240 :
001201 3021 DCA WRFLG /01201-3021 XQ
001202 4427 JMS I CRLF /01202-4427 $W
001203 4426 JMS I PRINT /01203-4426 $V
001204 4726 MUDVNM /01204-4711 'I
001205 1377 TAD (HDRUSA /01205-1377 K?
001206 4776 JMS I (PRNTNZ /01206-4776 '>
001207 7774 -4 /01207-7774 ?<
001210 4426 JMS I PRINT /01210-4426 $V
001211 5064 MVOLID /01211-5051 ()
001212 6211 CDF 10 /01212-6211 2I
001213 1775 TAD I (HDRVOL /01213-1775 O=
001214 4774 JMS I (DECCON /01214-4774 '<
001215 4773 JMS I (CHNGIT /01215-4773 ';
001216 4772 JMS I (UADVNM /01216-4772 ':
001217 4427 JMS I CRLF /01217-4427 $W
001220 1371 TAD (HDRLBL /01220-1371 K9
001221 4776 JMS I (PRNTNZ /01221-4776 '>
001222 7600 -200 /01222-7600 >@
001223 4773 JMS I (CHNGIT /01223-4773 ';
001224 4770 JMS I (DESLBL /01224-4770 '8
001225 4427 JMS I CRLF /01225-4427 $W
001226 6211 CDF 10 /01226-6211 2I
001227 1767 TAD I (HDRZEA /01227-1767 O7
001230 7650 SNA CLA /01230-7650 >(
001231 7001 IAC /01231-7001 8A
001232 1366 TAD (MNOZE2 /01232-1366 K6
001233 3235 DCA .+2 /01233-3235 Z]
001234 4426 JMS I PRINT /01234-4426 $V
001235 4375 MNOZE2 /01235-4356 #.
001236 4427 JMS I CRLF /01236-4427 $W
001237 6211 CDF 10 /01237-6211 2I
001240 1765 TAD I (HDRSQM /01240-1765 O5
001241 7650 SNA CLA /01241-7650 >(
001242 5246 JMP .+4 /01242-5246 *&
001243 4426 JMS I PRINT /01243-4426 $V
001244 4423 MSQPER /01244-4404 $D
001245 5255 JMP GUDVN2 /01245-5255 *-
001246 1764 TAD I (HDRSQO /01246-1764 O4
001247 7640 SZA CLA /01247-7640 >
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-14
001250 1363 TAD (MONLSQ-MALLSQ /01250-1363 K3
001251 1362 TAD (MALLSQ /01251-1362 K2
001252 3254 DCA .+2 /01252-3254 Z,
001253 4426 JMS I PRINT /01253-4426 $V
001254 5330 MALLSQ /01254-5315 +M
001255 4773 GUDVN2, JMS I (CHNGIT /01255-4773 ';
001256 4761 JMS I (SQSHZE /01256-4761 '1
001257 4427 JMS I CRLF /01257-4427 $W
001260 6211 CDF 10 /01260-6211 2I
001261 1760 TAD I (HDRSYS /01261-1760 O0
001262 7650 SNA CLA /01262-7650 >(
001263 5757 JMP I (NOSID /01263-5757 //
001264 1756 TAD I (HDRSID /01264-1756 O.
001265 6201 CDF 0 /01265-6201 2A
001266 1355 TAD (MSIDSW /01266-1355 K-
001267 3045 DCA PNT1 /01267-3045 X%
001270 1445 TAD I PNT1 /01270-1445 L%
001271 3275 DCA .+4 /01271-3275 Z=
001272 4426 JMS I PRINT /01272-4426 $V
001273 4540 MSYSID /01273-4521 %Q
001274 4426 JMS I PRINT /01274-4426 $V
001275 0000 0000 /01275-0000 @@
001276 4426 JMS I PRINT /01276-4426 $V
001277 5347 MVERS /01277-5334 +\
001300 6211 CDF 10 /01300-6211 2I
001301 1754 TAD I (HDRVER /01301-1754 O,
001302 4774 JMS I (DECCON /01302-4774 '<
001303 6211 CDF 10 /01303-6211 2I
001304 1753 TAD I (HDRREL /01304-1753 O+
001305 1352 TAD (300 /01305-1352 K*
001306 4436 JMS I TYPE /01306-4436 $^
001307 5751 JMP I (NOSID+2 /01307-5751 /)
001310 0000 XCRLF, 0000 /01310-0000 @@
001311 1350 TAD (215 /01311-1350 K(
001312 4436 JMS I TYPE /01312-4436 $^
001313 1347 TAD (212 /01313-1347 K'
001314 4436 JMS I TYPE /01314-4436 $^
001315 5710 JMP I XCRLF /01315-5710 /H
001316 7240 CLA CMA /01316-7240 :
001317 3020 DCA PRNTIT /01317-3020 XP
001320 1013 TAD GETLPT /01320-1013 HK
001321 3040 DCA CHAR2 /01321-3040 X
001322 1440 TAD I CHAR2 /01322-1440 L
001323 4423 JMS I 0023 /01323-4423 $S
001324 7240 CLA CMA /01324-7240 :
001325 1013 TAD GETLPT /01325-1013 HK
001326 5205 JMP 1205 /01326-5205 *E
001327 0434 AND I 0034 /01327-0434 D\
001330 1727 TAD I 1327 /01330-1727 OW
001331 2327 ISZ 1327 /01331-2327 SW
001332 7450 SNA /01332-7450 <(
001333 5727 JMP I 1327 /01333-5727 /W
001334 1034 TAD 0034 /01334-1034 H\
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-15
001335 7650 SNA CLA /01335-7650 >(
001336 5341 JMP 1341 /01336-5341 +!
001337 2327 ISZ 1327 /01337-2327 SW
001340 5330 JMP 1330 /01340-5330 +X
001341 1727 TAD I 1327 /01341-1727 OW
001342 3040 DCA CHAR2 /01342-3040 X
001343 5440 JMP I CHAR2 /01343-5440 ,
001344 4561 JMS I 0161 /01344-4561 %1
001345 3413 DCA I GETLPT /01345-3413 \K
001346 1163 TAD 0163 /01346-1163 I3
001347 0212
001350 0215
001351 1402
001352 0300
001353 4507
001354 4506
001355 3611
001356 4505
001357 1400
001360 4407
001361 1077
001362 5330
001363 7056
001364 4405
001365 4406
001366 4375
001367 4404
001370 2200
001371 4600
001372 2014
001373 0500
001374 1432
001375 4504
001376 2325
001377 4500
1400 PAGE
001400 4426 NOSID, JMS I PRINT /01400-4426 $V
001401 5422 MNOSYS /01401-5410 ,H
001402 4777 JMS I (CHNGIT /01402-4777 '?
001403 4776 JMS I (SYSUPD /01403-4776 '>
001404 4427 JMS I CRLF /01404-4427 $W
001405 4426 JMS I PRINT /01405-4426 $V
001406 4275 MDVLDC /01406-4256 ".
001407 7240 CLA CMA /01407-7240 :
001410 6211 CDF 10 /01410-6211 2I
001411 3775 DCA I (HDRFLG /01411-3775 _=
001412 1774 TAD I (HDRLEN /01412-1774 O<
001413 7041 CMA IAC /01413-7041 8!
001414 4232 JMS DECCON /01414-4232 "Z
001415 4427 JMS I CRLF /01415-4427 $W
001416 4426 JMS I PRINT /01416-4426 $V
001417 5376 MFSTBL /01417-5364 +4
001420 6211 CDF 10 /01420-6211 2I
001421 1773 TAD I (HDRSTR /01421-1773 O;
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-16
001422 4232 JMS DECCON /01422-4232 "Z
001423 4777 JMS I (CHNGIT /01423-4777 '?
001424 4772 JMS I (GLNSTD /01424-4772 ':
001425 4427 JMS I CRLF /01425-4427 $W
001426 2021 ISZ WRFLG /01426-2021 PQ
001427 4771 JMS I (WRHDR /01427-4771 '9
001430 4427 JMS I CRLF /01430-4427 $W
001431 5770 JMP I (ENDPRC /01431-5770 /8
001432 0000 DECCON, 0000 /01432-0000 @@
001433 6201 CDF 0 /01433-6201 2A
001434 3311 DCA DECINP /01434-3311 [I
001435 7330 CLA CLL CML RAR /01435-7330 ;X
001436 3314 DCA DECDIG /01436-3314 [L
001437 3312 DCA DECINC /01437-3312 [J
001440 1303 TAD DECTBL-1 /01440-1303 KC
001441 3313 DCA DECCNT /01441-3313 [K
001442 1302 TAD DECTBL-2 /01442-1302 KB
001443 3250 DCA DECLUP /01443-3250 Z(
001444 7410 SKP /01444-7410 <H
001445 3311 DECLU0, DCA DECINP /01445-3311 [I
001446 7100 CLL /01446-7100 9@
001447 1311 TAD DECINP /01447-1311 KI
001450 1304 DECLUP, TAD DECTBL /01450-1304 KD
001451 7430 SZL /01451-7430 <X
001452 2312 ISZ DECINC /01452-2312 SJ
001453 7430 SZL /01453-7430 <X
001454 5245 JMP DECLU0 /01454-5245 *%
001455 7200 CLA /01455-7200 :@
001456 1312 TAD DECINC /01456-1312 KJ
001457 7650 SNA CLA /01457-7650 >(
001460 5263 JMP .+3 /01460-5263 *3
001461 1310 TAD DEC0 /01461-1310 KH
001462 3314 DCA DECDIG /01462-3314 [L
001463 1312 TAD DECINC /01463-1312 KJ
001464 1314 TAD DECDIG /01464-1314 KL
001465 7500 SMA /01465-7500 =@
001466 4436 JMS I TYPE /01466-4436 $^
001467 7200 CLA /01467-7200 :@
001470 3312 DCA DECINC /01470-3312 [J
001471 2250 ISZ DECLUP /01471-2250 R(
001472 2313 ISZ DECCNT /01472-2313 SK
001473 5247 JMP DECLUP-1 /01473-5247 *'
001474 1314 TAD DECDIG /01474-1314 KL
001475 7700 SMA CLA /01475-7700 ?@
001476 5632 JMP I DECCON /01476-5632 .Z
001477 1310 TAD DEC0 /01477-1310 KH
001500 4436 JMS I TYPE /01500-4436 $^
001501 5632 JMP I DECCON /01501-5632 .Z
001502 1304 TAD DECTBL /01502-1304 KD
001503 7774 -4 /01503-7774 ?<
001504 6030 DECTBL, -1750 /-1000 /01504-6030 0X
001505 7634 -144 /-100 /01505-7634 >\
001506 7766 -12 /-10 /01506-7766 ?6
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-17
001507 7777 -1 /-1 /01507-7777 ??
001510 0260 DEC0, 260 /01510-0260 B0
001511 0000 DECINP, AND 0000 /01511-0000 @@
001512 0000 DECINC, AND 0000 /01512-0000 @@
001513 0000 DECCNT, AND 0000 /01513-0000 @@
001514 4000 DECDIG, JMS 0000 /01514-4000 @
001515 4430 REC3, JMS I HELP /01515-4430 $X
001516 5540 MMMMMT /01516-5526 -V
001517 4430 JMS I HELP /01517-4430 $X
001520 5555 MSCRLL /01520-5543 -#
001521 7344 CLA CLL CMA RAL /01521-7344 ;$
001522 3311 DCA DECINP /01522-3311 [I
001523 1367 TAD (-5 /01523-1367 K7
001524 3312 DCA DECINC /01524-3312 [J
001525 4443 RECC, JMS I ENTRY /01525-4443 $#
001526 0210 0210 /01526-0210 BH
001527 5000 SAVHDR /01527-5000 (@
001530 0050 0050 /01530-0050 @(
001531 7300 CLA CLL /01531-7300 ;@
001532 2312 ISZ DECINC /01532-2312 SJ
001533 5325 JMP RECC /01533-5325 +U
001534 4430 JMS I HELP /01534-4430 $X
001535 5576 MMMMMM /01535-5564 -4
001536 2311 ISZ DECINP /01536-2311 SI
001537 5323 JMP RECC-2 /01537-5323 +S
001540 4430 REC4, JMS I HELP /01540-4430 $X
001541 5767 MTHNKS /01541-5756 /.
001542 4427 JMS I CRLF /01542-4427 $W
001543 1366 TAD (RECOVR-2 /01543-1366 K6
001544 3765 DCA I (DVCTEN /01544-3765 _5
001545 4427 JMS I CRLF /01545-4427 $W
001546 5764 JMP I (STRTEN /01546-5764 /4
001547 0000 AND 0000 /01547-0000 @@
001550 3050 DCA CHTMP /01550-3050 X(
001551 1050 TAD CHTMP /01551-1050 H(
001552 7012 RTR /01552-7012 8J
001553 7012 RTR /01553-7012 8J
001554 7012 RTR /01554-7012 8J
001555 4436 JMS I TYPE /01555-4436 $^
001556 1050 TAD CHTMP /01556-1050 H(
001557 4436 JMS I TYPE /01557-4436 $^
001560 5747 JMP I 1547 /01560-5747 /'
001561 5367 JMP 1567 /01561-5367 +7
001562 1356 TAD 1556 /01562-1356 K.
001563 4776 JMS I 1576 /01563-4776 '>
001564 0215
001565 1750
001566 2110
001567 7773
001570 3011
001571 2310
001572 1000
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-18
001573 4410
001574 4403
001575 4402
001576 1600
001577 0500
1600 PAGE
001600 0000 SYSUPD, 0000 /01600-0000 @@
001601 7300 CLA CLL /01601-7300 ;@
001602 6211 CDF 10 /01602-6211 2I
001603 3777 DCA I (HDRSYS /01603-3777 _?
001604 6201 CDF 0 /01604-6201 2A
001605 1376 TAD (HDRBLK /01605-1376 K>
001606 4775 JMS I (ZLOCS /01606-4775 '=
001607 7705 -73 /01607-7705 ?E
001610 4774 JMS I (WRDATE /01610-4774 '<
001611 4426 JMS I PRINT /01611-4426 $V
001612 4525 MISSYS /01612-4506 %F
001613 4773 JMS I (SWIT /01613-4773 ';
001614 7410 SKP /01614-7410 <H
001615 5600 JMP I SYSUPD /01615-5600 .@
001616 7240 CLA CMA /01616-7240 :
001617 6211 CDF 10 /01617-6211 2I
001620 3777 DCA I (HDRSYS /01620-3777 _?
001621 6201 CDF 0 /01621-6201 2A
001622 4426 SYSU2, JMS I PRINT /01622-4426 $V
001623 4540 MSYSID /01623-4521 %Q
001624 4427 JMS I CRLF /01624-4427 $W
001625 4430 JMS I HELP /01625-4430 $X
001626 4546 M0EQUN /01626-4527 %W
001627 4430 JMS I HELP /01627-4430 $X
001630 4556 M1PS8 /01630-4537 %_
001631 4430 JMS I HELP /01631-4430 $X
001632 4563 M2OS8 /01632-4544 %$
001633 4430 JMS I HELP /01633-4430 $X
001634 4570 M3OS12 /01634-4551 %)
001635 4430 JMS I HELP /01635-4430 $X
001636 4576 M4DECS /01636-4557 %/
001637 4430 JMS I HELP /01637-4430 $X
001640 4610 M5OS78 /01640-4571 %9
001641 4430 JMS I HELP /01641-4430 $X
001642 4616 M6ETOS /01642-4577 %?
001643 4430 JMS I HELP /01643-4430 $X
001644 4624 M7MLTI /01644-4605 &E
001645 4430 JMS I HELP /01645-4430 $X
001646 4633 M8MLTO /01646-4614 &L
001647 4772 JMS I (GETLIN /01647-4772 ':
001650 4771 JMS I (CONDEC /01650-4771 '9
001651 5222 JMP SYSU2 /01651-5222 *R
001652 7041 CMA IAC /01652-7041 8!
001653 6211 CDF 10 /01653-6211 2I
001654 3770 DCA I (HDRSID /01654-3770 _8
001655 6201 CDF 0 /01655-6201 2A
001656 4426 JMS I PRINT /01656-4426 $V
001657 4642 MVERSY /01657-4623 &S
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-19
001660 4772 JMS I (GETLIN /01660-4772 ':
001661 4771 JMS I (CONDEC /01661-4771 '9
001662 5256 JMP .-4 /01662-5256 *.
001663 6211 CDF 10 /01663-6211 2I
001664 3767 DCA I (HDRVER /01664-3767 _7
001665 6201 CDF 0 /01665-6201 2A
001666 4426 JMS I PRINT /01666-4426 $V
001667 4700 MVERCO /01667-4662 &2
001670 4772 JMS I (GETLIN /01670-4772 ':
001671 4771 JMS I (CONDEC /01671-4771 '9
001672 5266 JMP .-4 /01672-5266 *6
001673 6211 CDF 10 /01673-6211 2I
001674 3766 DCA I (HDRREL /01674-3766 _6
001675 3765 DCA I (HDR10 /01675-3765 _5
001676 3764 DCA I (HDR11 /01676-3764 _4
001677 6201 CDF 0 /01677-6201 2A
001700 5600 JMP I SYSUPD /01700-5600 .@
001701 0000 GETABC, 0000 /01701-0000 @@
001702 6031 KSF /01702-6031 0Y
001703 5302 JMP .-1 /01703-5302 +B
001704 6036 KRB /01704-6036 0^
001705 6041 TSF /01705-6041 0!
001706 5305 JMP .-1 /01706-5305 +E
001707 6046 TLS /01707-6046 0&
001710 4763 JMS I (XPIND /01710-4763 '3
001711 7477 -301 /01711-7477 <?
001712 1734 GETA /01712-1734 O\
001713 7677 -101 /01713-7677 >?
001714 1734 GETA /01714-1734 O\
001715 7476 -302 /01715-7476 <>
001716 1733 GETB /01716-1733 O[
001717 7676 -102 /01717-7676 >>
001720 1733 GETB /01720-1733 O[
001721 7475 -303 /01721-7475 <=
001722 1732 GETC /01722-1732 OZ
001723 7675 -103 /01723-7675 >=
001724 1732 GETC /01724-1732 OZ
001725 0000 0000 /01725-0000 @@
001726 4427 JMS I CRLF /01726-4427 $W
001727 4426 JMS I PRINT /01727-4426 $V
001730 5614 MANABC /01730-5602 .B
001731 5302 JMP GETABC+1 /01731-5302 +B
001732 2301 GETC, ISZ GETABC /01732-2301 SA
001733 2301 GETB, ISZ GETABC /01733-2301 SA
001734 4427 GETA, JMS I CRLF /01734-4427 $W
001735 5701 JMP I GETABC /01735-5701 /A
001736 0000 GEDVLN, 0000 /01736-0000 @@
001737 1347 TAD DVCTW /01737-1347 K'
001740 0362 AND (770 /01740-0362 C2
001741 7112 CLL RTR /01741-7112 9J
001742 7010 RAR /01742-7010 8H
001743 1361 TAD (DVLENT /01743-1361 K1
001744 3045 DCA PNT1 /01744-3045 X%
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-20
001745 1445 TAD I PNT1 /01745-1445 L%
001746 5736 JMP I GEDVLN /01746-5736 /^
001747 0000 DVCTW, AND 0000 /01747-0000 @@
001750 2110 DVCTEN, RECOVR-2 /01750-2110 QH
001751 5750 JMP I DVCTEN /01751-5750 /(
001752 7300 DVCTER, CLA CLL /01752-7300 ;@
001753 2350 ISZ DVCTEN /01753-2350 S(
001754 2350 ISZ DVCTEN /01754-2350 S(
001755 5750 JMP I DVCTEN /01755-5750 /(
001756 0007 AND 0007 /01756-0007 @G
001757 0000 AND 0000 /01757-0000 @@
001760 7404 OSR /01760-7404 <D
001761 3200
001762 0770
001763 0223
001764 4511
001765 4510
001766 4507
001767 4506
001770 4505
001771 0711
001772 2317
001773 0300
001774 3000
001775 2000
001776 4504
001777 4407
2000 PAGE
002000 0000 ZLOCS, 0000 /02000-0000 @@
002001 3012 DCA XR2 /02001-3012 XJ
002002 1600 TAD I ZLOCS /02002-1600 N@
002003 3213 DCA ZLOCSP /02003-3213 ZK
002004 2200 ISZ ZLOCS /02004-2200 R@
002005 6211 CDF 10 /02005-6211 2I
002006 3412 DCA I XR2 /02006-3412 \J
002007 2213 ISZ ZLOCSP /02007-2213 RK
002010 5206 JMP .-2 /02010-5206 *F
002011 6201 CDF 0 /02011-6201 2A
002012 5600 JMP I ZLOCS /02012-5600 .@
002013 0000 ZLOCSP, 0000 /02013-0000 @@
002014 0000 UADVNM, 0000 /02014-0000 @@
002015 4777 JMS I (WRDATE /02015-4777 '?
002016 1376 TAD (HDRZ6 /02016-1376 K>
002017 4200 JMS ZLOCS /02017-4200 "@
002020 7772 -6 /02020-7772 ?:
002021 4427 JMS I CRLF /02021-4427 $W
002022 4430 JMS I HELP /02022-4430 $X
002023 4744 MUSALO /02023-4730 'X
002024 4430 JMS I HELP /02024-4430 $X
002025 4773 MAUTOA /02025-4757 '/
002026 4430 JMS I HELP /02026-4430 $X
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-21
002027 5021 M2CHAR /02027-5006 (F
002030 4430 JMS I HELP /02030-4430 $X
002031 5051 MUNIQE /02031-5036 (^
002032 4426 USAAGN, JMS I PRINT /02032-4426 $V
002033 4726 MUDVNM /02033-4711 'I
002034 4775 JMS I (GETLIN /02034-4775 '=
002035 1374 TAD (HDRUSA /02035-1374 K<
002036 3045 DCA PNT1 /02036-3045 X%
002037 1373 TAD (-4 /02037-1373 K;
002040 3046 DCA CNT /02040-3046 X&
002041 1413 USALUP, TAD I GETLPT /02041-1413 LK
002042 7450 SNA /02042-7450 <(
002043 5252 JMP .+7 /02043-5252 **
002044 6211 CDF 10 /02044-6211 2I
002045 3445 DCA I PNT1 /02045-3445 \%
002046 6201 CDF 0 /02046-6201 2A
002047 2045 ISZ PNT1 /02047-2045 P%
002050 2046 ISZ CNT /02050-2046 P&
002051 5241 JMP USALUP /02051-5241 *!
002052 1372 TAD (INBUF-1 /02052-1372 K:
002053 3013 DCA GETLPT /02053-3013 XK
002054 4434 JMS I RDEVNA /02054-4434 $\
002055 5215 JMP UADVNM+1 /02055-5215 *M
002056 1040 TAD CHAR2 /02056-1040 H
002057 7650 SNA CLA /02057-7650 >(
002060 7240 CLA CMA /02060-7240 :
002061 3042 DCA TMP /02061-3042 X"
002062 1037 TAD CHAR1 /02062-1037 H_
002063 1040 TAD CHAR2 /02063-1040 H
002064 7104 CLL RAL /02064-7104 9D
002065 2042 ISZ TMP /02065-2042 P"
002066 7120 CLL CML /02066-7120 9P
002067 7010 RAR /02067-7010 8H
002070 6211 CDF 10 /02070-6211 2I
002071 3771 DCA I (HDRUDV /02071-3771 _9
002072 1771 TAD I (HDRUDV /02072-1771 O9
002073 6201 CDF 0 /02073-6201 2A
002074 4770 JMS I (CHKUSA /02074-4770 '8
002075 4430 MVOLE2, JMS I HELP /02075-4430 $X
002076 5073 MVOLEL /02076-5060 (0
002077 4430 JMS I HELP /02077-4430 $X
002100 5125 MDECLT /02100-5112 )J
002101 4426 JMS I PRINT /02101-4426 $V
002102 5064 MVOLID /02102-5051 ()
002103 4775 JMS I (GETLIN /02103-4775 '=
002104 4767 JMS I (CONDEC /02104-4767 '7
002105 5275 JMP MVOLE2 /02105-5275 *=
002106 6211 CDF 10 /02106-6211 2I
002107 3766 DCA I (HDRVOL /02107-3766 _6
002110 6201 CDF 0 /02110-6201 2A
002111 5614 JMP I UADVNM /02111-5614 .L
002112 1031 RECOVR, TAD YN /02112-1031 HY
002113 7650 SNA CLA /02113-7650 >(
002114 5323 JMP REC1 /02114-5323 +S
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-22
002115 4430 JMS I HELP /02115-4430 $X
002116 5730 MWRENA /02116-5717 /O
002117 4765 JMS I (SYNC /02117-4765 '5
002120 4764 JMS I (DVCTEN /02120-4764 '4
002121 4763 JMS I (WRHDR /02121-4763 '3
002122 5762 JMP I (STRTEN /02122-5762 /2
002123 7240 REC1, CLA CMA /02123-7240 :
002124 3031 DCA YN /02124-3031 XY
002125 4430 JMS I HELP /02125-4430 $X
002126 5750 MOUCH /02126-5737 /_
002127 4430 JMS I HELP /02127-4430 $X
002130 5754 MYFORG /02130-5743 /#
002131 4765 JMS I (SYNC /02131-4765 '5
002132 4764 JMS I (DVCTEN /02132-4764 '4
002133 4763 JMS I (WRHDR /02133-4763 '3
002134 5761 JMP I (REC4 /02134-5761 /1
002135 4430 JMS I HELP /02135-4430 $X
002136 5750 MOUCH /02136-5737 /_
002137 4430 JMS I HELP /02137-4430 $X
002140 5773 MPRSW /02140-5762 /2
002141 4765 REC2, JMS I (SYNC /02141-4765 '5
002142 4764 JMS I (DVCTEN /02142-4764 '4
002143 4763 JMS I (WRHDR /02143-4763 '3
002144 5760 JMP I (REC3 /02144-5760 /0
002145 4757 JMS I (MULTPR /02145-4757 '/
002146 5750 MOUCH /02146-5737 /_
002147 6014 MDUMMY /02147-6003 0C
002150 6035 MWRNEN /02150-6024 0T
002151 6060 MGHELP /02151-6047 0'
002152 0000 0000 /02152-0000 @@
002153 5341 JMP REC2 /02153-5341 +!
002154 4457 JMS I 0057 /02154-4457 $/
002155 4501 JMS I 0101 /02155-4501 %A
002156 2204 ISZ 2004 /02156-2204 RD
002157 0660
002160 1515
002161 1540
002162 0215
002163 2310
002164 1750
002165 2437
002166 4504
002167 0711
002170 2400
002171 4477
002172 6677
002173 7774
002174 4500
002175 2317
002176 4476
002177 3000
2200 PAGE
002200 0000 DESLBL, 0000 /02200-0000 @@
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-23
002201 4777 JMS I (WRDATE /02201-4777 '?
002202 1376 TAD (HDRLBL-1 /02202-1376 K>
002203 4775 JMS I (ZLOCS /02203-4775 '=
002204 7600 -200 /02204-7600 >@
002205 4430 JMS I HELP /02205-4430 $X
002206 5162 MDESAS /02206-5147 )'
002207 4430 JMS I HELP /02207-4430 $X
002210 5210 M127CH /02210-5175 )=
002211 4430 JMS I HELP /02211-4430 $X
002212 5234 MTERMZ /02212-5221 *Q
002213 4430 JMS I HELP /02213-4430 $X
002214 5260 MTERCR /02214-5245 *%
002215 4426 JMS I PRINT /02215-4426 $V
002216 5151 MDESLB /02216-5136 )^
002217 1374 TAD (-200 /02217-1374 K<
002220 3024 DCA LBLCNT /02220-3024 XT
002221 1373 TAD (HDRLBL /02221-1373 K;
002222 3025 DCA LBLPNT /02222-3025 XU
002223 5230 JMP LBLSTR /02223-5230 *X
002224 1372 TAD (215 /02224-1372 K:
002225 4236 JMS LBLGET /02225-4236 "^
002226 1371 TAD (212 /02226-1371 K9
002227 4236 JMS LBLGET /02227-4236 "^
002230 4317 LBLSTR, JMS GETLIN /02230-4317 #O
002231 1413 TAD I GETLPT /02231-1413 LK
002232 7450 SNA /02232-7450 <(
002233 5224 JMP LBLSTR-4 /02233-5224 *T
002234 4236 JMS LBLGET /02234-4236 "^
002235 5231 JMP LBLSTR+1 /02235-5231 *Y
002236 0000 LBLGET, 0000 /02236-0000 @@
002237 6211 CDF 10 /02237-6211 2I
002240 3425 DCA I LBLPNT /02240-3425 \U
002241 1425 TAD I LBLPNT /02241-1425 LU
002242 6201 CDF 0 /02242-6201 2A
002243 1370 TAD (-232 /02243-1370 K8
002244 7650 SNA CLA /02244-7650 >(
002245 5253 JMP LBLOUT /02245-5253 *+
002246 2025 ISZ LBLPNT /02246-2025 PU
002247 2024 ISZ LBLCNT /02247-2024 PT
002250 5636 JMP I LBLGET /02250-5636 .^
002251 4426 JMS I PRINT /02251-4426 $V
002252 5300 MTH128 /02252-5265 *5
002253 1367 LBLOUT, TAD (232 /02253-1367 K7
002254 6211 CDF 10 /02254-6211 2I
002255 3425 DCA I LBLPNT /02255-3425 \U
002256 6201 CDF 0 /02256-6201 2A
002257 5600 JMP I DESLBL /02257-5600 .@
002260 0000 WRALL, 0000 /02260-0000 @@
002261 2023 ISZ WRITOK /02261-2023 PS
002262 7410 SKP /02262-7410 <H
002263 5660 JMP I WRALL /02263-5660 .0
002264 1375 TAD (DIRBUF /02264-1375 K=
002265 4775 JMS I (ZLOCS /02265-4775 '=
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-24
002266 7772 -6 /02266-7772 ?:
002267 6211 CDF 10 /02267-6211 2I
002270 1766 TAD I (HDRSTR /02270-1766 O6
002271 3765 DCA I (DIRSTR /02271-3765 _5
002272 7240 CLA CMA /02272-7240 :
002273 3775 DCA I (DIRBUF /02273-3775 _=
002274 7240 CLA CMA /02274-7240 :
002275 3764 DCA I (DIRADD /02275-3764 _4
002276 1763 TAD I (HDRLEN /02276-1763 O3
002277 1765 TAD I (DIRSTR /02277-1765 O5
002300 3762 DCA I (DIRFIL /02300-3762 _2
002301 6201 CDF 0 /02301-6201 2A
002302 4443 JMS I ENTRY /02302-4443 $#
002303 5210 5210 /02303-5210 *H
002304 2000 DIRBUF /02304-2000 P@
002305 0001 AND 0001 /02305-0001 @A
002306 7402 HLT /02306-7402 <B
002307 5660 JMP I WRALL /02307-5660 .0
002310 0000 WRHDR, 0000 /02310-0000 @@
002311 4443 JMS I ENTRY /02311-4443 $#
002312 4210 4210 /02312-4210 "H
002313 4400 DIRHDR /02313-4400 $@
002314 0006 0006 /02314-0006 @F
002315 5761 JMP I (DVCTER /02315-5761 /1
002316 5710 JMP I WRHDR /02316-5710 /H
002317 0000 GETLIN, 0000 /02317-0000 @@
002320 6201 CDF 0 /02320-6201 2A
002321 4435 JMS I READ /02321-4435 $]
002322 1360 TAD (INBUF-1 /02322-1360 K0
002323 3013 DCA GETLPT /02323-3013 XK
002324 5717 JMP I GETLIN /02324-5717 /O
002325 0000 PRNTNZ, 0000 /02325-0000 @@
002326 6201 CDF 0 /02326-6201 2A
002327 3045 DCA PNT1 /02327-3045 X%
002330 1725 TAD I PRNTNZ /02330-1725 OU
002331 3047 DCA COCNT /02331-3047 X'
002332 2325 ISZ PRNTNZ /02332-2325 SU
002333 6211 PRNTNL, CDF 10 /02333-6211 2I
002334 1445 TAD I PNT1 /02334-1445 L%
002335 6201 CDF 0 /02335-6201 2A
002336 7440 SZA /02336-7440 <
002337 4436 JMS I TYPE /02337-4436 $^
002340 2045 ISZ PNT1 /02340-2045 P%
002341 2047 ISZ COCNT /02341-2047 P'
002342 5333 JMP PRNTNL /02342-5333 +[
002343 5725 JMP I PRNTNZ /02343-5725 /U
002344 1176 TAD 0176 /02344-1176 I>
002345 6034 KRS /02345-6034 0\
002346 1375 TAD 2375 /02346-1375 K=
002347 7450 SNA /02347-7450 <(
002350 6031 KSF /02350-6031 0Y
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-25
002351 5743 JMP I 2343 /02351-5743 /#
002352 5554 JMP I 0154 /02352-5554 -,
002353 4562 JMS I 0162 /02353-4562 %2
002354 6257 CIF CDF 54 /02354-6257 2/
002355 6263 CIF CDF 60 /02355-6263 23
002356 0044 AND 0044 /02356-0044 @$
002357 4564 JMS I 0164 /02357-4564 %4
002360 6677
002361 1752
002362 2006
002363 4403
002364 2004
002365 2001
002366 4410
002367 0232
002370 7546
002371 0212
002372 0215
002373 4600
002374 7600
002375 2000
002376 4577
002377 3000
2400 PAGE
002400 0000 CHKUSA, 0000 /02400-0000 @@
002401 7041 CMA IAC /02401-7041 8!
002402 3042 DCA TMP /02402-3042 X"
002403 1377 TAD (DVLNAM-1 /02403-1377 K?
002404 3012 DCA XR2 /02404-3012 XJ
002405 1412 TAD I XR2 /02405-1412 LJ
002406 7450 SNA /02406-7450 <(
002407 5600 JMP I CHKUSA /02407-5600 .@
002410 1042 TAD TMP /02410-1042 H"
002411 7640 SZA CLA /02411-7640 >
002412 5205 JMP .-5 /02412-5205 *E
002413 4426 JMS I PRINT /02413-4426 $V
002414 0037 CHAR1 /02414-0037 @_
002415 4426 JMS I PRINT /02415-4426 $V
002416 6100 MCONFL /02416-6067 07
002417 1012 TAD XR2 /02417-1012 HJ
002420 1376 TAD (HDRUSA /02420-1376 K>
002421 3042 DCA TMP /02421-3042 X"
002422 1042 TAD TMP /02422-1042 H"
002423 7104 CLL RAL /02423-7104 9D
002424 1042 TAD TMP /02424-1042 H"
002425 1375 TAD (MDVLST /02425-1375 K=
002426 3230 DCA .+2 /02426-3230 ZX
002427 4426 JMS I PRINT /02427-4426 $V
002430 3361 MDVLST /02430-3355 [-
002431 4427 JMS I CRLF /02431-4427 $W
002432 4426 JMS I PRINT /02432-4426 $V
002433 6072 MTRYAG /02433-6061 01
002434 4774 JMS I (SWIT /02434-4774 '<
002435 5773 JMP I (USAAGN /02435-5773 /;
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-26
002436 5600 JMP I CHKUSA /02436-5600 .@
002437 0000 SYNC, 0000 /02437-0000 @@
002440 6031 KSF /02440-6031 0Y
002441 5240 JMP .-1 /02441-5240 *
002442 6032 KCC /02442-6032 0Z
002443 5637 JMP I SYNC /02443-5637 ._
002444 0000 BDEVNA, 0000 /02444-0000 @@
002445 3037 DCA CHAR1 /02445-3037 X_
002446 3040 DCA CHAR2 /02446-3040 X
002447 3042 DCA TMP /02447-3042 X"
002450 1372 TAD (CHAR1 /02450-1372 K:
002451 3052 DCA CHPNT /02451-3052 X*
002452 7240 CLA CMA /02452-7240 :
002453 3053 DCA CHHALF /02453-3053 X+
002454 3051 BDEV4, DCA CHCNT /02454-3051 X)
002455 1413 TAD I GETLPT /02455-1413 LK
002456 1371 TAD (-240 /02456-1371 K9
002457 7450 SNA /02457-7450 <(
002460 5255 JMP .-3 /02460-5255 *-
002461 1370 TAD (240 /02461-1370 K8
002462 7410 SKP /02462-7410 <H
002463 1413 BDEVOF, TAD I GETLPT /02463-1413 LK
002464 3050 DCA CHTMP /02464-3050 X(
002465 1050 TAD CHTMP /02465-1050 H(
002466 1367 TAD (-256 /02466-1367 K7
002467 7450 SNA /02467-7450 <(
002470 5327 JMP BDEVNX /02470-5327 +W
002471 1366 TAD (-2 /02471-1366 K6
002472 7100 CLL /02472-7100 9@
002473 1365 TAD (-12 /02473-1365 K5
002474 7620 SNL CLA /02474-7620 >P
002475 5304 JMP BDEVOK /02475-5304 +D
002476 1364 TAD (-301 /02476-1364 K4
002477 1050 TAD CHTMP /02477-1050 H(
002500 7120 CLL CML /02500-7120 9P
002501 1363 TAD (-32 /02501-1363 K3
002502 7620 SNL CLA /02502-7620 >P
002503 5334 JMP BDEVEN /02503-5334 +\
002504 1051 BDEVOK, TAD CHCNT /02504-1051 H)
002505 1362 TAD (-6 /02505-1362 K2
002506 7700 SMA CLA /02506-7700 ?@
002507 5263 JMP BDEVOF /02507-5263 *3
002510 1051 TAD CHCNT /02510-1051 H)
002511 7110 CLL RAR /02511-7110 9H
002512 1052 TAD CHPNT /02512-1052 H*
002513 3045 DCA PNT1 /02513-3045 X%
002514 1050 TAD CHTMP /02514-1050 H(
002515 0361 AND (77 /02515-0361 C1
002516 7430 SZL /02516-7430 <X
002517 5323 JMP .+4 /02517-5323 +S
002520 7006 RTL /02520-7006 8F
002521 7006 RTL /02521-7006 8F
002522 7006 RTL /02522-7006 8F
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-27
002523 1445 TAD I PNT1 /02523-1445 L%
002524 3445 DCA I PNT1 /02524-3445 \%
002525 2051 ISZ CHCNT /02525-2051 P)
002526 5263 JMP BDEVOF /02526-5263 *3
002527 2053 BDEVNX, ISZ CHHALF /02527-2053 P+
002530 5334 JMP BDEVEN /02530-5334 +\
002531 2052 ISZ CHPNT /02531-2052 P*
002532 1360 TAD (4 /02532-1360 K0
002533 5254 JMP BDEV4 /02533-5254 *,
002534 1051 BDEVEN, TAD CHCNT /02534-1051 H)
002535 7640 SZA CLA /02535-7640 >
002536 2244 ISZ BDEVNA /02536-2244 R$
002537 5644 JMP I BDEVNA /02537-5644 .$
002540 0000 XTYPE, 0000 /02540-0000 @@
002541 5344 JMP .+3 /02541-5344 +$
002542 6041 TSF /02542-6041 0!
002543 5342 JMP .-1 /02543-5342 +"
002544 6046 TLS /02544-6046 0&
002545 7200 CLA /02545-7200 :@
002546 1357 TAD (NOP /02546-1357 K/
002547 3341 DCA XTYPE+1 /02547-3341 [!
002550 5740 JMP I XTYPE /02550-5740 /
002551 7410 SKP /02551-7410 <H
002552 5365 JMP 2565 /02552-5365 +5
002553 2370 ISZ 2570 /02553-2370 S8
002554 5360 JMP 2560 /02554-5360 +0
002555 7240 CLA CMA /02555-7240 :
002556 3370 DCA 2570 /02556-3370 [8
002557 7000
002560 0004
002561 0077
002562 7772
002563 7746
002564 7477
002565 7766
002566 7776
002567 7522
002570 0240
002571 7540
002572 0037
002573 2032
002574 0300
002575 3361
002576 4500
002577 3277
2600 PAGE
002600 0000 XREAD, AND 0000 /02600-0000 @@
002601 1377 TAD (": /02601-1377 K?
002602 4436 JMS I TYPE /02602-4436 $^
002603 3044 DCA DELFLG /02603-3044 X$
002604 1376 TAD (INBUF-1 /02604-1376 K>
002605 3013 DCA GETLPT /02605-3013 XK
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-28
002606 6031 PRIGN, KSF /02606-6031 0Y
002607 5206 JMP .-1 /02607-5206 *F
002610 1375 TAD (200 /02610-1375 K=
002611 6034 KRS /02611-6034 0\
002612 3037 DCA CHAR1 /02612-3037 X_
002613 6032 KCC /02613-6032 0Z
002614 4335 JMS SWITCH /02614-4335 #]
002615 7553 -225 /^U /02615-7553 =+
002616 2672 PRCTL /02616-2672 V:
002617 7563 -215 /CR /02617-7563 =3
002620 2651 PRCR /02620-2651 V)
002621 7401 -377 /DEL /02621-7401 <A
002622 2711 PRDEL /02622-2711 WI
002623 7403 -375 /} /02623-7403 <C
002624 2705 PRESC /02624-2705 WE
002625 7402 -376 /~ /02625-7402 <B
002626 2705 PRESC /02626-2705 WE
002627 7545 -233 /ESC /02627-7545 =%
002630 2705 PRESC /02630-2705 WE
002631 7566 -212 /LF /02631-7566 =6
002632 2752 PRLF /02632-2752 W*
002633 7600 -200 /NULL /02633-7600 >@
002634 2606 PRIGN /02634-2606 VF
002635 7561 -217 /^O /02635-7561 =1
002636 2606 PRIGN /02636-2606 VF
002637 7575 -203 /^C /02637-7575 ==
002640 7605 KMON+5 /02640-7605 >E
002641 0000 0000 /02641-0000 @@
002642 4261 JMS PRSUB /02642-4261 "1
002643 1037 TAD CHAR1 /02643-1037 H_
002644 3413 DCA I GETLPT /02644-3413 \K
002645 1013 TAD GETLPT /02645-1013 HK
002646 1374 TAD (-INBUF-110 /02646-1374 K<
002647 7710 SPA CLA /02647-7710 ?H
002650 5206 JMP PRIGN /02650-5206 *F
002651 4427 PRCR, JMS I CRLF /02651-4427 $W
002652 1013 TAD GETLPT /02652-1013 HK
002653 1373 TAD (-INBUF+1 /02653-1373 K;
002654 7650 SNA CLA /02654-7650 >(
002655 5201 JMP XREAD+1 /02655-5201 *A
002656 3413 DCA I GETLPT /02656-3413 \K
002657 3413 DCA I GETLPT /02657-3413 \K
002660 5600 JMP I XREAD /02660-5600 .@
002661 0000 PRSUB, 0000 /02661-0000 @@
002662 2044 ISZ DELFLG /02662-2044 P$
002663 5266 JMP .+3 /02663-5266 *6
002664 1372 TAD (334 /\ /02664-1372 K:
002665 4436 JMS I TYPE /02665-4436 $^
002666 3044 DCA DELFLG /02666-3044 X$
002667 1037 TAD CHAR1 /02667-1037 H_
002670 4436 JMS I TYPE /02670-4436 $^
002671 5661 JMP I PRSUB /02671-5661 .1
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-29
002672 1371 PRCTL, TAD (336 /^ /02672-1371 K9
002673 4436 JMS I TYPE /02673-4436 $^
002674 1037 TAD CHAR1 /02674-1037 H_
002675 1370 TAD (100 /02675-1370 K8
002676 4436 JMS I TYPE /02676-4436 $^
002677 4427 PRCTL2, JMS I CRLF /02677-4427 $W
002700 2335 ISZ SWITCH /02700-2335 S]
002701 1735 TAD I SWITCH /02701-1735 O]
002702 7640 SZA CLA /02702-7640 >
002703 5203 JMP XREAD+3 /02703-5203 *C
002704 5201 JMP XREAD+1 /02704-5201 *A
002705 1367 PRESC, TAD (244 /$ /02705-1367 K7
002706 3037 DCA CHAR1 /02706-3037 X_
002707 4261 JMS PRSUB /02707-4261 "1
002710 5252 JMP PRCR+1 /02710-5252 **
002711 1013 PRDEL, TAD GETLPT /02711-1013 HK
002712 1373 TAD (-INBUF+1 /02712-1373 K;
002713 7650 SNA CLA /02713-7650 >(
002714 5331 JMP PREMP /02714-5331 +Y
002715 1372 TAD (334 /02715-1372 K:
002716 2044 ISZ DELFLG /02716-2044 P$
002717 4436 JMS I TYPE /02717-4436 $^
002720 7240 CLA CMA /02720-7240 :
002721 3044 DCA DELFLG /02721-3044 X$
002722 1013 TAD GETLPT /02722-1013 HK
002723 3045 DCA PNT1 /02723-3045 X%
002724 1445 TAD I PNT1 /02724-1445 L%
002725 4436 JMS I TYPE /02725-4436 $^
002726 7240 PRLF2, CLA CMA /02726-7240 :
002727 1013 TAD GETLPT /02727-1013 HK
002730 5205 JMP PRIGN-1 /02730-5205 *E
002731 2044 PREMP, ISZ DELFLG /02731-2044 P$
002732 5277 JMP PRCTL2 /02732-5277 *?
002733 1372 TAD (334 /02733-1372 K:
002734 5276 JMP PRCTL2-1 /02734-5276 *>
002735 0000 SWITCH, 0000 /02735-0000 @@
002736 1735 TAD I SWITCH /02736-1735 O]
002737 2335 ISZ SWITCH /02737-2335 S]
002740 7450 SNA /02740-7450 <(
002741 5735 JMP I SWITCH /02741-5735 /]
002742 1037 TAD CHAR1 /02742-1037 H_
002743 7650 SNA CLA /02743-7650 >(
002744 5347 JMP .+3 /02744-5347 +'
002745 2335 ISZ SWITCH /02745-2335 S]
002746 5336 JMP SWITCH+1 /02746-5336 +^
002747 1735 TAD I SWITCH /02747-1735 O]
002750 3045 DCA PNT1 /02750-3045 X%
002751 5445 JMP I PNT1 /02751-5445 ,%
002752 4427 PRLF, JMS I CRLF /02752-4427 $W
002753 3413 DCA I GETLPT /02753-3413 \K
002754 1376 TAD (INBUF-1 /02754-1376 K>
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-30
002755 3017 DCA 0017 /02755-3017 XO
002756 1417 TAD I 0017 /02756-1417 LO
002757 7450 SNA /02757-7450 <(
002760 5326 JMP PRLF2 /02760-5326 +V
002761 4436 JMS I TYPE /02761-4436 $^
002762 5356 JMP .-4 /02762-5356 +.
002763 7621 MQL CLA /02763-7621 >Q
002764 4353 JMS 2753 /02764-4353 #+
002765 7020 CML /02765-7020 8P
002766 1373 TAD 2773 /02766-1373 K;
002767 0244
002770 0100
002771 0336
002772 0334
002773 1101
002774 0770
002775 0200
002776 6677
002777 0272
3000 PAGE
003000 0000 WRDATE, 0000 /03000-0000 @@
003001 1777 TAD I (BATCCL /03001-1777 O?
003002 0376 AND (0600 /03002-0376 C>
003003 6211 CDF 10 /03003-6211 2I
003004 3775 DCA I (HDRBAT /03004-3775 _=
003005 1774 TAD I (SYSDAT /03005-1774 O<
003006 3773 DCA I (HDRDAT /03006-3773 _;
003007 6201 CDF 0 /03007-6201 2A
003010 5600 JMP I WRDATE /03010-5600 .@
003011 4426 ENDPRC, JMS I PRINT /03011-4426 $V
003012 5672 MSQVOL /03012-5660 .0
003013 4772 JMS I (SWIT /03013-4772 ':
003014 7410 SKP /03014-7410 <H
003015 5771 JMP I (STRTEN /03015-5771 /9
003016 4427 JMS I CRLF /03016-4427 $W
003017 4426 JMS I PRINT /03017-4426 $V
003020 5711 MMNTNV /03020-5677 .?
003021 4772 JMS I (SWIT /03021-4772 ':
003022 7000 NOP /03022-7000 8@
003023 6211 CDF 10 /03023-6211 2I
003024 2770 ISZ I (HDRVOL /03024-2770 W8
003025 7300 CLA CLL /03025-7300 ;@
003026 1367 TAD (DIRHDR-1 /03026-1367 K7
003027 3014 DCA ENFROM /03027-3014 XL
003030 1366 TAD (SAVHDR+400-1 /03030-1366 K6
003031 3015 DCA ENTO /03031-3015 XM
003032 1414 TAD I ENFROM /03032-1414 LL
003033 3415 DCA I ENTO /03033-3415 \M
003034 1015 TAD ENTO /03034-1015 HM
003035 1365 TAD (-SAVHDR-1000 /03035-1365 K5
003036 7710 SPA CLA /03036-7710 ?H
003037 5232 JMP .-5 /03037-5232 *Z
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-31
003040 6201 CDF 0 /03040-6201 2A
003041 4443 JMS I ENTRY /03041-4443 $#
003042 1410 1410 /03042-1410 LH
003043 2000 2000 /03043-2000 P@
003044 0001 0001 /03044-0001 @A
003045 5241 JMP .-4 /03045-5241 *!
003046 7240 CLA CMA /03046-7240 :
003047 3023 DCA WRITOK /03047-3023 XS
003050 6211 CDF 10 /03050-6211 2I
003051 1765 TAD I (DIRBUF /03051-1765 O5
003052 7100 CLL /03052-7100 9@
003053 1364 TAD (100 /03053-1364 K4
003054 7620 SNL CLA /03054-7620 >P
003055 5300 JMP BADHDR /03055-5300 +@
003056 3763 DCA I (SAVNXT /03056-3763 _3
003057 1362 TAD (DIRNXT /03057-1362 K2
003060 3022 DCA DIRPNT /03060-3022 XR
003061 1422 TAD I DIRPNT /03061-1422 LR
003062 7650 SNA CLA /03062-7650 >(
003063 5270 JMP .+5 /03063-5270 *8
003064 1361 TAD (400 /03064-1361 K1
003065 1022 TAD DIRPNT /03065-1022 HR
003066 3022 DCA DIRPNT /03066-3022 XR
003067 5261 JMP .-6 /03067-5261 *1
003070 6201 CDF 0 /03070-6201 2A
003071 1022 TAD DIRPNT /03071-1022 HR
003072 1360 TAD (-DIRHDR /03072-1360 K0
003073 7710 SPA CLA /03073-7710 ?H
003074 5301 JMP BADHDR+1 /03074-5301 +A
003075 4426 JMS I PRINT /03075-4426 $V
003076 4006 MDIRPA /03076-3767 _7
003077 5432 JMP I KMEXIT /03077-5432 ,Z
003100 3023 BADHDR, DCA WRITOK /03100-3023 XS
003101 6211 CDF 10 /03101-6211 2I
003102 7300 CLA CLL /03102-7300 ;@
003103 3020 DCA PRNTIT /03103-3020 XP
003104 1367 TAD (DIRHDR-1 /03104-1367 K7
003105 3015 DCA ENTO /03105-3015 XM
003106 1366 TAD (5400-1 /03106-1366 K6
003107 3014 DCA ENFROM /03107-3014 XL
003110 1414 TAD I ENFROM /03110-1414 LL
003111 3415 DCA I ENTO /03111-3415 \M
003112 1015 TAD ENTO /03112-1015 HM
003113 1365 TAD (-6000 /03113-1365 K5
003114 7710 SPA CLA /03114-7710 ?H
003115 5310 JMP .-5 /03115-5310 +H
003116 6201 CDF 0 /03116-6201 2A
003117 7300 CLA CLL /03117-7300 ;@
003120 3020 DCA PRNTIT /03120-3020 XP
003121 5757 JMP I (GUDVNM+1 /03121-5757 //
003122 2062 ISZ 0062 /03122-2062 P2
003123 5340 JMP 3140 /03123-5340 +
003124 1027 TAD 0027 /03124-1027 HW
003125 3035 DCA 0035 /03125-3035 X]
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-32
003126 4543 JMS I 0143 /03126-4543 %#
003127 1020 TAD PRNTIT /03127-1020 HP
003130 3014 DCA 0014 /03130-3014 XL
003131 1021 TAD WRFLG /03131-1021 HQ
003132 3015 DCA 0015 /03132-3015 XM
003133 1022 TAD DIRPNT /03133-1022 HR
003134 3016 DCA 0016 /03134-3016 XN
003135 1035 TAD 0035 /03135-1035 H]
003136 3017 DCA 0017 /03136-3017 XO
003137 5211 JMP 3011 /03137-5211 *I
003140 1027 TAD 0027 /03140-1027 HW
003141 7041 CMA IAC /03141-7041 8!
003142 1035 TAD 0035 /03142-1035 H]
003143 7650 SNA CLA /03143-7650 >(
003144 5327 JMP 3127 /03144-5327 +W
003145 4542 JMS I 0142 /03145-4542 %"
003146 5144 JMP 0144 /03146-5144 )$
003147 5211 JMP 3011 /03147-5211 *I
003150 3600 DCA I 3000 /03150-3600 ^@
003151 3656 DCA I 3056 /03151-3656 ^.
003152 5435 JMP I READ /03152-5435 ,]
003153 3644 DCA I 3044 /03153-3644 ^$
003154 3665 DCA I 3065 /03154-3665 ^5
003155 3665 DCA I 3065 /03155-3665 ^5
003156 3647 DCA I 3047 /03156-3647 ^'
003157 1201
003160 3400
003161 0400
003162 2002
003163 5002
003164 0100
003165 2000
003166 5377
003167 4377
003170 4504
003171 0215
003172 0300
003173 4512
003174 7666
003175 4513
003176 0600
003177 7777
3200 PAGE
003200 0000 DVLENT, 0000/03200-0000 @@ /0: TTY
003201 0000 0000/03201-0000 @@ /1: PTR
003202 0000 0000/03202-0000 @@ /2: PTP
003203 7134 7134/03203-7134 9\ /3: CDR
003204 0000 0000/03204-0000 @@ /4: LPT
003205 1520 1520/03205-1520 MP /5: RK08 (1520= - DECIMAL 3248)
003206 6001 6001/03206-6001 0A /6: RF08 IN VARIOUS SIZES
003207 4001 4001/03207-4001 A /7: "
003210 2001 2001/03210-2001 PA /10: "
003211 0001 0001/03211-0001 @A /11: "(CHEATS A BLOCK ON LARGEST TO KEEP IT NON-ZERO)
003212 7601 7601/03212-7601 >A /12: DF32 IN VARIOUS SIZES
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-33
003213 7401 7401/03213-7401 <A /13: "
003214 7201 7201/03214-7201 :A /14: "
003215 7001 7001/03215-7001 8A /15: "(CHEATS A BLOCK TO AVOID HARDWARE TROUBLE)
003216 6437 6437/03216-6437 4_ /16: TC08 DECTAPE
003217 6437 6437/03217-6437 4_ /17: LINCTAPE
003220 0000 0000/03220-0000 @@ /20: MAGTAPE
003221 6437 6437/03221-6437 4_ /21: TD8E
003222 0000 0000/03222-0000 @@ /22: BAT: BATCH HANDLER
003223 1520 1520/03223-1520 MP /23: 1/2 OF AN RK8E
003224 0000 0000/03224-0000 @@ /24: NULL: NULL HANDLER
003225 7022 7022/03225-7022 8R /25: RX01 FLOPPY DISK
003226 0017 0017/03226-0000 @@ /26: RL01 A,B BIG
003227 0000 0000/03227-0000 @@ /27: TA8E CASSETTE
003230 0000 0000/03230-0000 @@ /30: PDP-12 SCOPE AND TEK DISPLAY
003231 4027 4027/03231-0000 @@ /31: RL01 C SMALL
003232 0000 0000/03232-0000 @@ /32: NEW RX MUST BE ZERO TO EXAMINE MEDIA
003233 7600 7600/03233-0000 @@ /33: VX EXT.MEM. PLATTER #1
003234 7400 7400/03234-0000 @@ /34: VX EXT.MEM. PLATTER #1,2
003235 7200 7200/03235-0000 @@ /35: VX EXT.MEM. PLATTER #1,2,3
003236 0000 0000/03236-0000 @@ /36: DUMP
003237 7000 7000/03237-0000 @@ /37: TU58 DECTAPE II (6-BIT BYTES)
003240 1520 1520/03240-0000 @@ /40: SYS. IND. MOD43 DISK
003241 6556 6556/03241-0000 @@ /41: RB01 1.5 DENSITY FLOPPY - INTERLEAVE 2
003242 6556 6556/03242-0000 @@ /42: RB07 1.5 DENSITY FLOPPY - INTERLEAVE 4
003243 0000 0000/03243-0000 @@ /43: EDOU
003244 0000 0000/03244-0000 @@ /44: EDIN
003245 0000 0000/03245-0000 @@ /USER DEVICES
003246 0000 0000/03246-0000 @@ /50: MULTI8 VIRTUAL DEV
003247 0000 0000/03247-0000 @@ /51: "
003250 0000 0000/03250-0000 @@ /52: "
003251 0000 0000/03251-0000 @@ /53: "
003252 0000 0000/03252-1520 MP /54: "
003253 0000 0000/03253-0000 @@ /55: "
003254 0000 0000/03254-0000 @@ /56: "
003255 0000 0000/03255-0000 @@ /57: "
003256 0000 0000/03256-0000 @@ /60: ASYNCHRONOUS COMMUNICATION
003257 0000 0000/03257-0000 @@ /XX:
003260 0000 0000/03260-0000 @@ /ZBBLOCK
003261 0000 0000/03261-0000 @@
003262 0000 0000/03262-0000 @@
003263 0000 0000/03263-0000 @@
003264 0000 0000/03264-0000 @@
003265 0000 0000/03265-0000 @@
003266 0000 0000/03266-0000 @@
003267 0000 0000/03267-0000 @@
003270 0000 0000/03270-0000 @@
003271 0000 0000/03271-0000 @@
003272 0000 0000/03272-0000 @@
003273 0000 0000/03273-0000 @@
003274 0000 0000/03274-0000 @@
003275 0000 0000/03275-0000 @@
003276 0000 0000/03276-0000 @@
003277 0000 0000/03277-0000 @@
003300 4631 DVLNAM, 4631 /SYS /03300-4631 &Y
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-34
003301 5723 5723 /DSK /03301-5723 /S
003302 5524 5524 /TTY /03302-5524 -T
003303 4020 4020 /LPT /03303-4020 P
003304 4024 4024 /PTP /03304-4024 T
003305 4224 4224 /PTR /03305-4224 "T
003306 6504 6504 /CDR /03306-6504 5D
003307 4604 4604 /DTA0 /03307-4604 &D
003310 4605 4605 /DTA1 /03310-4605 &E
003311 4606 4606 /DTA2 /03311-4606 &F
003312 4607 4607 /DTA3 /03312-4607 &G
003313 4610 4610 /DTA4 /03313-4610 &H
003314 4611 4611 /DTA5 /03314-4611 &I
003315 4612 4612 /DTA6 /03315-4612 &J
003316 4613 4613 /DTA7 /03316-4613 &K
003317 4215 4215 /RL0A /03317-5604 .D
003320 4216 4216 /RL0B /03320-5605 .E
003321 4315 4315 /RL1A /03321-5606 .F
003322 4316 4316 /RL1B /03322-5607 .G
003323 4217 4217 /RL0C /03323-5610 .H
003324 4317 4317 /RL1C /03324-5611 .I
003325 4417 4417 /RL2C /03325-5612 .J
003326 4517 4517 /RL3C /03326-5613 .K
003327 6373 6373 /RKA0 /03327-6373 3;
003330 6374 6374 /RKA1 /03330-6374 3<
003331 6375 6375 /RKA2 /03331-6375 3=
003332 6376 6376 /RKA3 /03332-6376 3>
003333 6473 6473 /RKB0 /03333-6473 4;
003334 6474 6474 /RKB1 /03334-6474 4<
003335 6475 6475 /RKB2 /03335-6475 4=
003336 6476 6476 /RKB3 /03336-6476 4>
003337 6410 6410 /RXA0 /03337-6410 4H
003340 6411 6411 /RXA1 /03340-6411 4I
003341 6510 6510 /RXB0 /03341-6510 5H
003342 6511 6511 /RXB1 /03342-6511 5I
003343 0406 0406 /DF /03343-0406 DF
003344 2206 2206 /RF /03344-2206 RF
003345 2426 2426 /TV /03345-2426 TV
003346 7241 7241 /NULL /03346-7241 :!
003347 4503 4503 /CSA0 /03347-4503 %C
003350 4504 4504 /CSA1 /03350-4504 %D
003351 0303 0303 /CC /03351-0303 CC
003352 5704 5704 /MTA0 /03352-5704 /D
003353 5705 5705 /MTA1 /03353-5705 /E
003354 6362 6362 /RBA0
003355 6363 6363 /RBA1
003356 6431 6431 /EDOU
003357 5622 5622 /EDIN
003360 0000 0000 /@@ /03354-0000 @@
003361 2331 MDVLST, TEXT "SYS"
003362 2300
003363 0000 0000
003364 0423 TEXT "DSK"
003365 1300
003366 0000 0000
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-35
003367 2424 TEXT "TTY"
003370 3100
003371 0000 0000
003372 1420 TEXT "LPT"
003373 2400
003374 0000 0000
003375 2024 TEXT "PTP"
003376 2000
003377 0000 0000
003400 2024 TEXT "PTR"
003401 2200
003402 0000 0000
003403 0304 TEXT "CDR"
003404 2200
003405 0000 0000
003406 0424 TEXT "DTA0"
003407 0160
003410 0000
003411 0424 TEXT "DTA1"
003412 0161
003413 0000
003414 0424 TEXT "DTA2"
003415 0162
003416 0000
003417 0424 TEXT "DTA3"
003420 0163
003421 0000
003422 0424 TEXT "DTA4"
003423 0164
003424 0000
003425 0424 TEXT "DTA5"
003426 0165
003427 0000
003430 0424 TEXT "DTA6"
003431 0166
003432 0000
003433 0424 TEXT "DTA7"
003434 0167
003435 0000
003436 2214 TEXT "RL0A"
003437 6001
003440 0000
003441 2214 TEXT "RL0B"
003442 6002
003443 0000
003444 2214 TEXT "RL1A"
003445 6101
003446 0000
003447 2214 TEXT "RL1B"
003450 6102
003451 0000
003452 2214 TEXT "RL0C"
003453 6003
003454 0000
003455 2214 TEXT "RL1C"
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-36
003456 6103
003457 0000
003460 2214 TEXT "RL2C"
003461 6203
003462 0000
003463 2214 TEXT "RL3C"
003464 6303
003465 0000
003466 2213 TEXT "RKA0"
003467 0160
003470 0000
003471 2213 TEXT "RKA1"
003472 0161
003473 0000
003474 2213 TEXT "RKA2"
003475 0162
003476 0000
003477 2213 TEXT "RKA3"
003500 0163
003501 0000
003502 2213 TEXT "RKB0"
003503 0260
003504 0000
003505 2213 TEXT "RKB1"
003506 0261
003507 0000
003510 2213 TEXT "RKB2"
003511 0262
003512 0000
003513 2213 TEXT "RKB3"
003514 0263
003515 0000
003516 2230 TEXT "RXA0"
003517 0160
003520 0000
003521 2230 TEXT "RXA1"
003522 0161
003523 0000
003524 2230 TEXT "RXB0"
003525 0260
003526 0000
003527 2230 TEXT "RXB1"
003530 0261
003531 0000
003532 0406 TEXT "DF"
003533 0000
003534 0000 0000
003535 2206 TEXT "RF"
003536 0000
003537 0000 0000
003540 2426 TEXT "TV"
003541 0000
003542 0000 0000
003543 1625 TEXT "NULL"
003544 1414
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-37
003545 0000
003546 0323 TEXT "CSA0"
003547 0160
003550 0000
003551 0323 TEXT "CSA1"
003552 0161
003553 0000
003554 0303 TEXT "CC"
003555 0000
003556 0000 0000
003557 1524 TEXT "MTA0"
003560 0160
003561 0000
003562 1524 TEXT "MTA1"
003563 0161
003564 0000
003565 2202 TEXT "RBA0"
003566 0160
003567 0000
003570 2202 TEXT "RBA1"
003571 0161
003572 0000
003573 0504 TEXT "EDOU"
003574 1725
003575 0000
003576 0504 TEXT "EDIN"
003577 1116
003600 0000
003601 4633 M8MLTO /03561-4614 &L
003602 4624 M7MLTI /03562-4605 &E
003603 4616 M6ETOS /03563-4577 %?
003604 4610 M5OS78 /03564-4571 %9
003605 4576 M4DECS /03565-4557 %/
003606 4570 M3OS12 /03566-4551 %)
003607 4563 M2OS8 /03567-4544 %$
003610 4556 M1PS8 /03570-4537 %_
003611 4546 MSIDSW, M0EQUN /03571-4527 %W
003612 1617 MCONER, TEXT "NOT NUMERIC INPUT"
003613 2440
003614 1625
003615 1505
003616 2211
003617 0340
003620 1116
003621 2025
003622 2400
003623 2014 MPLYN, TEXT "PLEASE ANSWER YES OR NO"
003624 0501
003625 2305
003626 4001
003627 1623
003630 2705
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-38
003631 2240
003632 3105
003633 2340
003634 1722
003635 4016
003636 1700
003637 0417 MWHELP, TEXT "DO YOU WANT HELP?"
003640 4031
003641 1725
003642 4027
003643 0116
003644 2440
003645 1005
003646 1420
003647 7700
003650 3105 MYES, TEXT "YES"
003651 2300
003652 1617 MNO, TEXT "NO"
003653 0000
003654 2410 MPARBL, TEXT "THIS PROGRAM ESTABISHES A PARAMETER BLOCK"
003655 1123
003656 4020
003657 2217
003660 0722
003661 0115
003662 4005
003663 2324
003664 0102
003665 1123
003666 1005
003667 2340
003670 0140
003671 2001
003672 2201
003673 1505
003674 2405
003675 2240
003676 0214
003677 1703
003700 1300
003701 1716 MDEC8, TEXT "ON DECSYSTEM-8 FILE STRUCTURED DEVICES"
003702 4004
003703 0503
003704 2331
003705 2324
003706 0515
003707 5570
003710 4006
003711 1114
003712 0540
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-39
003713 2324
003714 2225
003715 0324
003716 2522
003717 0504
003720 4004
003721 0526
003722 1103
003723 0523
003724 0000
003725 1116 MINKM, TEXT "INPUT IS VIA THE REGULAR MONITOR LINE SCANNER"
003726 2025
003727 2440
003730 1123
003731 4026
003732 1101
003733 4024
003734 1005
003735 4022
003736 0507
003737 2514
003740 0122
003741 4015
003742 1716
003743 1124
003744 1722
003745 4014
003746 1116
003747 0540
003750 2303
003751 0116
003752 1605
003753 2200
003754 0405 MDEVNA, TEXT "DEVICE NAME"
003755 2611
003756 0305
003757 4016
003760 0115
003761 0500
003762 7702 MBADIN, TEXT "?BAD INPUT"
003763 0104
003764 4011
003765 1620
003766 2524
003767 0000
003770 0405 MDEVNF, TEXT "DEVICE NOT FILE STRUCTURED"
003771 2611
003772 0305
003773 4016
003774 1724
003775 4006
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-40
003776 1114
003777 0540
004000 2324
004001 2225
004002 0324
004003 2522
004004 0504
004005 0000
004006 0411 MDIRPA, TEXT "DIRECTORY OCCUPIES PARAMETER BLOCK"
004007 2205
004010 0324
004011 1722
004012 3140
004013 1703
004014 0325
004015 2011
004016 0523
004017 4020
004020 0122
004021 0115
004022 0524
004023 0522
004024 4002
004025 1417
004026 0313
004027 0000
004030 0405 MDVHPA, TEXT "DEVICE HAS PARAMETER BLOCK"
004031 2611
004032 0305
004033 4010
004034 0123
004035 4020
004036 0122
004037 0115
004040 0524
004041 0522
004042 4002
004043 1417
004044 0313
004045 0000
004046 0417 MDMPIT, TEXT "DO YOU WISH TO DUMP IT?"
004047 4031
004050 1725
004051 4027
004052 1123
004053 1040
004054 2417
004055 4004
004056 2515
004057 2040
004060 1124
004061 7700
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-41
004062 1001 MERB16, TEXT "HANDLER ERROR READING BLOCKS 1-6 (PARITY?)"
004063 1604
004064 1405
004065 2240
004066 0522
004067 2217
004070 2240
004071 2205
004072 0104
004073 1116
004074 0740
004075 0214
004076 1703
004077 1323
004100 4061
004101 5566
004102 4050
004103 2001
004104 2211
004105 2431
004106 7751
004107 0000
004110 2310 MCONTI, TEXT "SHALL I CONTINUE?"
004111 0114
004112 1440
004113 1140
004114 0317
004115 1624
004116 1116
004117 2505
004120 7700
004121 0411 MDIRZE, TEXT "DIRECTORY WILL BE ZEROED"
004122 2205
004123 0324
004124 1722
004125 3140
004126 2711
004127 1414
004130 4002
004131 0540
004132 3205
004133 2217
004134 0504
004135 0000
004136 2324 MSTDVL, TEXT "STANDARD DEVICE LENGTH?"
004137 0116
004140 0401
004141 2204
004142 4004
004143 0526
004144 1103
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-42
004145 0540
004146 1405
004147 1607
004150 2410
004151 7700
004152 1517 MDEVSL, TEXT "MOST DEVICES HAVE A STANDARD LENGTH"
004153 2324
004154 4004
004155 0526
004156 1103
004157 0523
004160 4010
004161 0126
004162 0540
004163 0140
004164 2324
004165 0116
004166 0401
004167 2204
004170 4014
004171 0516
004172 0724
004173 1000
004174 0116 MAYNMQ, TEXT "ANSWER YES TO THE NEXT QUESTION"
004175 2327
004176 0522
004177 4031
004200 0523
004201 4024
004202 1740
004203 2410
004204 0540
004205 1605
004206 3024
004207 4021
004210 2505
004211 2324
004212 1117
004213 1600
004214 2516 MNSDEV, TEXT "UNLESS YOU HAVE A NON-STANDARD DEVICE."
004215 1405
004216 2323
004217 4031
004220 1725
004221 4010
004222 0126
004223 0540
004224 0140
004225 1617
004226 1655
004227 2324
004230 0116
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-43
004231 0401
004232 2204
004233 4004
004234 0526
004235 1103
004236 0556
004237 0000
004240 2324 MSTDVA, TEXT "STANDARD DEVICES ARE:"
004241 0116
004242 0401
004243 2204
004244 4004
004245 0526
004246 1103
004247 0523
004250 4001
004251 2205
004252 7200
004253 4040 MVDEVS, TEXT " DTAN,LTAN,DF32,RF08,RK8,RXN,TD8E"
004254 0424
004255 0116
004256 5414
004257 2401
004260 1654
004261 0406
004262 6362
004263 5422
004264 0660
004265 7054
004266 2213
004267 7054
004270 2230
004271 1654
004272 2404
004273 7005
004274 0000
004275 0405 MDVLDC, TEXT "DEVICE LENGTH (DECIMAL)"
004276 2611
004277 0305
004300 4014
004301 0516
004302 0724
004303 1040
004304 5004
004305 0503
004306 1115
004307 0114
004310 5100
004311 2310 MSTSQZ, TEXT "SHALL I USE STANDARD SQUASH AND ZERO PARAMETERS?"
004312 0114
004313 1440
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-44
004314 1140
004315 2523
004316 0540
004317 2324
004320 0116
004321 0401
004322 2204
004323 4023
004324 2125
004325 0123
004326 1040
004327 0116
004330 0440
004331 3205
004332 2217
004333 4020
004334 0122
004335 0115
004336 0524
004337 0522
004340 2377
004341 0000
004342 0617 MSQZE, TEXT /FOR "SQUASH" AND "ZERO" THE FOLLOWING ARE OPTIONS:/
004343 2240
004344 4223
004345 2125
004346 0123
004347 1042
004350 4001
004351 1604
004352 4042
004353 3205
004354 2217
004355 4240
004356 2410
004357 0540
004360 0617
004361 1414
004362 1727
004363 1116
004364 0740
004365 0122
004366 0540
004367 1720
004370 2411
004371 1716
004372 2372
004373 0000
004374 4040 MNOZER, 4040
004375 1617 MNOZE2, TEXT /NO "ZERO" ALLOWED/
004376 4042
004377 3205
004400 2217
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-45
004401 4240
004402 0114
004403 1417
004404 2705
004405 0400
004406 4040 MONLSQ, TEXT / ONLY "SQUASH" TO MYSELF/
004407 1716
004410 1431
004411 4042
004412 2321
004413 2501
004414 2310
004415 4240
004416 2417
004417 4015
004420 3123
004421 0514
004422 0600
004423 4040 MSQPER, TEXT / NO "SQUASH" PERIOD/
004424 1617
004425 4042
004426 2321
004427 2501
004430 2310
004431 4240
004432 2005
004433 2211
004434 1704
004435 0000
004436 2324 MSTDSQ, TEXT "STANDARD IS ONLY SELF SQUASH, NO ZERO"
004437 0116
004440 0401
004441 2204
004442 4011
004443 2340
004444 1716
004445 1431
004446 4023
004447 0514
004450 0640
004451 2321
004452 2501
004453 2310
004454 5440
004455 1617
004456 4032
004457 0522
004460 1700
004461 4232 MZEALL, TEXT /"ZERO" ALLOWED?/
004462 0522
004463 1742
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-46
004464 4001
004465 1414
004466 1727
004467 0504
004470 7700
004471 4223 MSQODV, TEXT /"SQUASH" FROM OTHER DEVICE ALLOWED?/
004472 2125
004473 0123
004474 1042
004475 4006
004476 2217
004477 1540
004500 1724
004501 1005
004502 2240
004503 0405
004504 2611
004505 0305
004506 4001
004507 1414
004510 1727
004511 0504
004512 7700
004513 4223 MSQMYS, TEXT /"SQUASH" TO MYSELF?/
004514 2125
004515 0123
004516 1042
004517 4024
004520 1740
004521 1531
004522 2305
004523 1406
004524 7700
004525 1123 MISSYS, TEXT "IS A SYSTEM PRESENT?"
004526 4001
004527 4023
004530 3123
004531 2405
004532 1540
004533 2022
004534 0523
004535 0516
004536 2477
004537 0000
004540 2331 MSYSID, TEXT "SYSTEM ID: "
004541 2324
004542 0515
004543 4011
004544 0472
004545 4000
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-47
004546 4040 M0EQUN, TEXT " 0=UNASSIGNED "
004547 6075
004550 2516
004551 0123
004552 2311
004553 0716
004554 0504
004555 4000
004556 4040 M1PS8, TEXT " 1=PS/8 "
004557 6175
004560 2023
004561 5770
004562 4000
004563 4040 M2OS8, TEXT " 2=OS/8 "
004564 6275
004565 1723
004566 5770
004567 4000
004570 4040 M3OS12, TEXT " 3=OS/12 "
004571 6375
004572 1723
004573 5761
004574 6240
004575 0000
004576 4040 M4DECS, TEXT " 4=DECSYSTEM-8/78 "
004577 6475
004600 0405
004601 0323
004602 3123
004603 2405
004604 1555
004605 7057
004606 6770
004607 4000
004610 4040 M5OS78, TEXT " 5=OS/78 "
004611 6575
004612 1723
004613 5767
004614 7040
004615 0000
004616 4040 M6ETOS, TEXT " 6=ETOS/8 "
004617 6675
004620 0524
004621 1723
004622 5770
004623 4000
004624 4040 M7MLTI, TEXT " 7=MULTI/8 "
004625 6775
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-48
004626 1525
004627 1424
004630 1157
004631 7040
004632 0000
004633 4040 M8MLTO, TEXT " 8=MULTOS/8 "
004634 7075
004635 1525
004636 1424
004637 1723
004640 5770
004641 4000
004642 2605 MVERSY, TEXT "VERSION NUMBER (ASSOCIATED WITH SYSTEM ARE; IE. 1,2,3 ETC.)"
004643 2223
004644 1117
004645 1640
004646 1625
004647 1502
004650 0522
004651 4050
004652 0123
004653 2317
004654 0311
004655 0124
004656 0504
004657 4027
004660 1124
004661 1040
004662 2331
004663 2324
004664 0515
004665 4001
004666 2205
004667 7340
004670 1105
004671 5640
004672 6154
004673 6254
004674 6340
004675 0524
004676 0356
004677 5100
004700 2605 MVERCO, TEXT "VERSION RELEASE CODE (IE. 1=A,2=B,3=C ETC.)"
004701 2223
004702 1117
004703 1640
004704 2205
004705 1405
004706 0123
004707 0540
004710 0317
004711 0405
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-49
004712 4050
004713 1105
004714 5640
004715 6175
004716 0154
004717 6275
004720 0254
004721 6375
004722 0340
004723 0524
004724 0356
004725 5100
004726 2523 MUDVNM, TEXT "USER ASSIGNED DEVICE NAME "
004727 0522
004730 4001
004731 2323
004732 1107
004733 1605
004734 0440
004735 0405
004736 2611
004737 0305
004740 4016
004741 0115
004742 0540
004743 0000
004744 2410 MUSALO, TEXT "THE USER ASSIGNED NAME IS A LOGICAL NAME USED"
004745 0540
004746 2523
004747 0522
004750 4001
004751 2323
004752 1107
004753 1605
004754 0440
004755 1601
004756 1505
004757 4011
004760 2340
004761 0140
004762 1417
004763 0711
004764 0301
004765 1440
004766 1601
004767 1505
004770 4025
004771 2305
004772 0400
004773 0231 MAUTOA, TEXT "BY AUTOAS. IT IS RECOMMENDED THAT THIS NAME"
004774 4001
004775 2524
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-50
004776 1701
004777 2356
005000 4011
005001 2440
005002 1123
005003 4022
005004 0503
005005 1715
005006 1505
005007 1604
005010 0504
005011 4024
005012 1001
005013 2440
005014 2410
005015 1123
005016 4016
005017 0115
005020 0500
005021 0205 M2CHAR, TEXT "BE A TWO CHARACTER NAME STARTING WITH AN ALPHA"
005022 4001
005023 4024
005024 2717
005025 4003
005026 1001
005027 2201
005030 0324
005031 0522
005032 4016
005033 0115
005034 0540
005035 2324
005036 0122
005037 2411
005040 1607
005041 4027
005042 1124
005043 1040
005044 0116
005045 4001
005046 1420
005047 1001
005050 0000
005051 2417 MUNIQE, TEXT "TO INSURE UNIQUENESS."
005052 4011
005053 1623
005054 2522
005055 0540
005056 2516
005057 1121
005060 2505
005061 1605
005062 2323
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-51
005063 5600
005064 4040 MVOLID, TEXT " VOLUME ID "
005065 2617
005066 1425
005067 1505
005070 4011
005071 0440
005072 0000
005073 2410 MVOLEL, TEXT "THE VOLUME ID IS AN EXTRA LABEL FOR IDENTIFICATION"
005074 0540
005075 2617
005076 1425
005077 1505
005100 4011
005101 0440
005102 1123
005103 4001
005104 1640
005105 0530
005106 2422
005107 0140
005110 1401
005111 0205
005112 1440
005113 0617
005114 2240
005115 1104
005116 0516
005117 2411
005120 0611
005121 0301
005122 2411
005123 1716
005124 0000
005125 2025 MDECLT, TEXT "PURPOSES ONLY. A DECIMAL NUMBER < 4096"
005126 2220
005127 1723
005130 0523
005131 4017
005132 1614
005133 3156
005134 4001
005135 4004
005136 0503
005137 1115
005140 0114
005141 4016
005142 2515
005143 0205
005144 2240
005145 7440
005146 6460
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-52
005147 7166
005150 0000
005151 0405 MDESLB, TEXT "DESCRIPTIVE LABEL"
005152 2303
005153 2211
005154 2024
005155 1126
005156 0540
005157 1401
005160 0205
005161 1400
005162 2410 MDESAS, TEXT "THE DESCRIPTIVE LABEL MAY BE ANY STRING OF"
005163 0540
005164 0405
005165 2303
005166 2211
005167 2024
005170 1126
005171 0540
005172 1401
005173 0205
005174 1440
005175 1501
005176 3140
005177 0205
005200 4001
005201 1631
005202 4023
005203 2422
005204 1116
005205 0740
005206 1706
005207 0000
005210 2520 M127CH, TEXT "UP TO 127 CHARACTERS ON MULTIPLE LINES"
005211 4024
005212 1740
005213 6162
005214 6740
005215 0310
005216 0122
005217 0103
005220 2405
005221 2223
005222 4017
005223 1640
005224 1525
005225 1424
005226 1120
005227 1405
005230 4014
005231 1116
005232 0523
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-53
005233 0000
005234 1124 MTERMZ, TEXT "IT MUST BE TERMINATED WITH A ^Z (CNT/Z)"
005235 4015
005236 2523
005237 2440
005240 0205
005241 4024
005242 0522
005243 1511
005244 1601
005245 2405
005246 0440
005247 2711
005250 2410
005251 4001
005252 4036
005253 3240
005254 5003
005255 1624
005256 5732
005257 5100
005260 0617 MTERCR, TEXT "FOLLOWED BY A CARRIAGE RETURN."
005261 1414
005262 1727
005263 0504
005264 4002
005265 3140
005266 0140
005267 0301
005270 2222
005271 1101
005272 0705
005273 4022
005274 0524
005275 2522
005276 1656
005277 0000
005300 1517 MTH128, TEXT "MORE THAN 128 CHARS INPUT - TERMINATION FORCED"
005301 2205
005302 4024
005303 1001
005304 1640
005305 6162
005306 7040
005307 0310
005310 0122
005311 2340
005312 1116
005313 2025
005314 2440
005315 5540
005316 2405
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-54
005317 2215
005320 1116
005321 0124
005322 1117
005323 1640
005324 0617
005325 2203
005326 0504
005327 0000
005330 0114 MALLSQ, TEXT /ALL FORMS OF "SQUASH" ALLOWED/
005331 1440
005332 0617
005333 2215
005334 2340
005335 1706
005336 4042
005337 2321
005340 2501
005341 2310
005342 4240
005343 0114
005344 1417
005345 2705
005346 0400
005347 2605 MVERS, TEXT "VERSION: "
005350 2223
005351 1117
005352 1672
005353 4000
005354 2523 MSTDST, TEXT "USE STANDARD START OF FILE STORAGE?"
005355 0540
005356 2324
005357 0116
005360 0401
005361 2204
005362 4023
005363 2401
005364 2224
005365 4017
005366 0640
005367 0611
005370 1405
005371 4023
005372 2417
005373 2201
005374 0705
005375 7700
005376 0611 MFSTBL, TEXT "FILE STORAGE STARTS AT BLOCK (DECIMAL) "
005377 1405
005400 4023
005401 2417
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-55
005402 2201
005403 0705
005404 4023
005405 2401
005406 2224
005407 2340
005410 0124
005411 4002
005412 1417
005413 0313
005414 4050
005415 0405
005416 0311
005417 1501
005420 1451
005421 4000
005422 1617 MNOSYS, TEXT "NO SYSTEM PRESENT"
005423 4023
005424 3123
005425 2405
005426 1540
005427 2022
005430 0523
005431 0516
005432 2400
005433 2410 MNXPRZ, TEXT /THE NEXT PARAMETER IS USED FOR "ZERO" TO DETERMINE/
005434 0540
005435 1605
005436 3024
005437 4020
005440 0122
005441 0115
005442 0524
005443 0522
005444 4011
005445 2340
005446 2523
005447 0504
005450 4006
005451 1722
005452 4042
005453 3205
005454 2217
005455 4240
005456 2417
005457 4004
005460 0524
005461 0522
005462 1511
005463 1605
005464 0000
005465 2710 MSTBEG, TEXT "WHERE FILE STORAGE BEGINS"
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-56
005466 0522
005467 0540
005470 0611
005471 1405
005472 4023
005473 2417
005474 2201
005475 0705
005476 4002
005477 0507
005500 1116
005501 2300
005502 2324 MSTD07, TEXT "STANDARD IS 7 FOR NON-SYSTEM DEVICES,"
005503 0116
005504 0401
005505 2204
005506 4011
005507 2340
005510 6740
005511 0617
005512 2240
005513 1617
005514 1655
005515 2331
005516 2324
005517 0515
005520 4004
005521 0526
005522 1103
005523 0523
005524 5400
005525 6665 MSTD56, TEXT "65 FOR SYSTEM DEVICE"
005526 4006
005527 1722
005530 4023
005531 3123
005532 2405
005533 1540
005534 0405
005535 2611
005536 0305
005537 0000
005540 1515 MMMMMT, TEXT "MMMM!! THAT FEELS BETTER!"
005541 1515
005542 4141
005543 4024
005544 1001
005545 2440
005546 0605
005547 0514
005550 2340
005551 0205
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-57
005552 2424
005553 0522
005554 4100
005555 2303 MSCRLL, TEXT "SCRATCH A LITTLE TO THE LEFT...."
005556 2201
005557 2403
005560 1040
005561 0140
005562 1411
005563 2424
005564 1405
005565 4024
005566 1740
005567 2410
005570 0540
005571 1405
005572 0624
005573 5656
005574 5656
005575 0000
005576 1515 MMMMMM, TEXT "MMMMMMM!!"
005577 1515
005600 1515
005601 1541
005602 4100
005603 5252 MCHNG, TEXT "**CHANGE THIS**?"
005604 0310
005605 0116
005606 0705
005607 4024
005610 1011
005611 2352
005612 5277
005613 0000
005614 2014 MANABC, TEXT "PLEASE ANSWER A, B, OR C "
005615 0501
005616 2305
005617 4001
005620 1623
005621 2705
005622 2240
005623 0154
005624 4002
005625 5440
005626 1722
005627 4003
005630 4000
005631 0417 MWISH, TEXT "DO YOU WISH TO"
005632 4031
005633 1725
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-58
005634 4027
005635 1123
005636 1040
005637 2417
005640 0000
005641 4040 MWISHA, TEXT " A:REPLACE"
005642 0172
005643 2205
005644 2014
005645 0103
005646 0500
005647 4040 MWISHB, TEXT " B:SELECIVELY DECIDDE"
005650 0272
005651 2305
005652 1405
005653 0311
005654 2605
005655 1431
005656 4004
005657 0503
005660 1104
005661 0405
005662 0000
005663 4040 MWISHC, TEXT " C:PRINT IT?"
005664 0372
005665 2022
005666 1116
005667 2440
005670 1124
005671 7700
005672 2305 MSQVOL, TEXT "SEQUENTIAL VOLUMES (Y OR N)?"
005673 2125
005674 0516
005675 2411
005676 0114
005677 4026
005700 1714
005701 2515
005702 0523
005703 4050
005704 3140
005705 1722
005706 4016
005707 5177
005710 0000
005711 1517 MMNTNV, TEXT "MOUNT NEW VOLUME, THEN TYPE Y"
005712 2516
005713 2440
005714 1605
005715 2740
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-59
005716 2617
005717 1425
005720 1505
005721 5440
005722 2410
005723 0516
005724 4024
005725 3120
005726 0540
005727 3100
005730 2014 MWRENA, TEXT "PLEASE WRITE ENABLE THE DEVICE"
005731 0501
005732 2305
005733 4027
005734 2211
005735 2405
005736 4005
005737 1601
005740 0214
005741 0540
005742 2410
005743 0540
005744 0405
005745 2611
005746 0305
005747 0000
005750 1725 MOUCH, TEXT "OUCH!!"
005751 0310
005752 4141
005753 0000
005754 3117 MYFORG, TEXT "YOU FORGOT SOMETHING."
005755 2540
005756 0617
005757 2207
005760 1724
005761 4023
005762 1715
005763 0524
005764 1011
005765 1607
005766 5600
005767 2410 MTHNKS, TEXT "THANKS!"
005770 0116
005771 1323
005772 4100
005773 0314 MPRSW, TEXT "CLUE: YOU NEED TO PRESS A SWITCH"
005774 2505
005775 7240
005776 3117
005777 2540
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-60
006000 1605
006001 0504
006002 4024
006003 1740
006004 2022
006005 0523
006006 2340
006007 0140
006010 2327
006011 1124
006012 0310
006013 0000
006014 3117 MDUMMY, TEXT "YOU DUMMY! I CAN'T DO EVERYTHING"
006015 2540
006016 0425
006017 1515
006020 3141
006021 4011
006022 4003
006023 0116
006024 4724
006025 4004
006026 1740
006027 0526
006030 0522
006031 3124
006032 1011
006033 1607
006034 0000
006035 2410 MWRNEN, TEXT "THE DEVICE NEEDS TO BE WRITE ENABLED"
006036 0540
006037 0405
006040 2611
006041 0305
006042 4016
006043 0505
006044 0423
006045 4024
006046 1740
006047 0205
006050 4027
006051 2211
006052 2405
006053 4005
006054 1601
006055 0214
006056 0504
006057 0000
006060 1605 MGHELP, TEXT "NEXT TIME GET HELP!"
006061 3024
006062 4024
006063 1115
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-61
006064 0540
006065 0705
006066 2440
006067 1005
006070 1420
006071 4100
006072 2422 MTRYAG, TEXT "TRY ADAIN?"
006073 3140
006074 0104
006075 0111
006076 1677
006077 0000
006100 4003 MCONFL, TEXT " CONFLICTS WITH "
006101 1716
006102 0614
006103 1103
006104 2423
006105 4027
006106 1124
006107 1040
006110 0000
006111 1005 MHVERS, TEXT "HEADER VERSION 50"
006112 0104
006113 0522
006114 4026
006115 0522
006116 2311
006117 1716
006120 4065
006121 6000
006122 1517 MMON, TEXT "MON"
006123 1600
006124 2425 MTUES, TEXT "TUES"
006125 0523
006126 0000
006127 2705 MWEDN, TEXT "WEDNES"
006130 0416
006131 0523
006132 0000
006133 2410 MTHUR, TEXT "THURS"
006134 2522
006135 2300
006136 0622 MFRID, TEXT "FRI"
006137 1100
006140 0000 0000
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 1-62
6200 PAGE
0200 *200 /STARTING ADDRESS
NOPUNCH
7200 *7200
HNDBUF, /ZBLOCK 400
0001 FIELD 1
2000 *2000
012000 0000 DIRBUF, 0 /ZBLOCK 2400
012001 0000 DIRSTR, 0
012002 0000 DIRNXT, 0
012003 0000 0
012004 0000 DIRADD, 0
012005 0000 0
012006 0000 DIRFIL, 0
4400 *4400
014400 0427 DIRHDR, 0427
014401 1203 1203
014402 0000 HDRFLG, 0
014403 0000 HDRLEN, 0
014404 0000 HDRZEA, 0
014405 0000 HDRSQO, 0
014406 0000 HDRSQM, 0
014407 0000 HDRSYS, 0
4410 *4410
014410 0007 HDRSTR, 7
4476 *4476
014476 0000 HDRZ6, 0 /ZBLOCK 6
014477 0000 HDRUDV, 0
014500 0000 HDRUSA, ZBLOCK 4
HDRBLK, /ZBLOCK 73
014504 0000 HDRVOL, 0
014505 0000 HDRSID, 0
014506 0000 HDRVER, 0
014507 0000 HDRREL, 0
014510 0000 HDR10, 0
014511 0000 HDR11, 0
014512 1234 HDRDAT, 1234
014513 0600 HDRBAT, 0600
4600 *4600
014600 0000 HDRLBL, 0
5000 *DIRHDR+400
015000 0000 SAVHDR, 0
015001 0000 SAVSTR, 0
015002 0000 SAVNXT, 0
ENPUNCH
$$$$$$$$$$$$$$$$
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 2
BADDIR 0640 ENDPRC 3011 MBC 6174 MSTSQZ 4311
BADHDR 3100 ENFROM 0014 MCHNG 5603 MSYSID 4540
BADSTR 1040 ENTO 0015 MCONER 3612 MTERCR 5260
BATCCL 7777 ENTRY 0043 MCONFL 6100 MTERMZ 5234
BDEVEN 2534 GDEVNA 0400 MCONTI 4110 MTHNKS 5767
BDEVNA 2444 GEDVLN 1736 MDECLT 5125 MTHUR 6133
BDEVNX 2527 GETA 1734 MDEC8 3701 MTH128 5300
BDEVOF 2463 GETABC 1701 MDESAS 5162 MTRYAG 6072
BDEVOK 2504 GETB 1733 MDESLB 5151 MTUES 6124
BDEV4 2454 GETC 1732 MDEVNA 3754 MUDVNM 4726
CHAR1 0037 GETLIN 2317 MDEVNF 3770 MULTPR 0660
CHAR2 0040 GETLPT 0013 MDEVSL 4152 MUNIQE 5051
CHCNT 0051 GLNSTD 1000 MDIRPA 4006 MUSALO 4744
CHHALF 0053 GTS 6210 MDIRZE 4121 MVDEVS 4253
CHKUSA 2400 GUDVNM 1200 MDMPIT 4046 MVERCO 4700
CHNGIT 0500 GUDVN2 1255 MDUMMY 6014 MVERS 5347
CHNG1 0512 HDRBAT 4513 MDVHPA 4030 MVERSY 4642
CHPNT 0052 HDRBLK 4504 MDVLDC 4275 MVOLEL 5073
CHTMP 0050 HDRDAT 4512 MDVLST 3361 MVOLE2 2075
CNT 0046 HDRFLG 4402 MERB16 4062 MVOLID 5064
COCNT 0047 HDRLBL 4600 MFRID 6136 MWEDN 6127
CONDEC 0711 HDRLEN 4403 MFSTBL 5376 MWHELP 3637
CONEXI 0751 HDRREL 4507 MGHELP 6060 MWISH 5631
CONLUP 0713 HDRSID 4505 MHVERS 6111 MWISHA 5641
CRLF 0027 HDRSQM 4406 MINKM 3725 MWISHB 5647
CTRLC 0516 HDRSQO 4405 MISSYS 4525 MWISHC 5663
CTRLO 0530 HDRSTR 4410 MMMMMM 5576 MWRENA 5730
CTRL2 0541 HDRSYS 4407 MMMMMT 5540 MWRNEN 6035
DCM 7575 HDRUDV 4477 MMNTNV 5711 MYES 3650
DECCNT 1513 HDRUSA 4500 MMON 6122 MYFORG 5754
DECCON 1432 HDRVER 4506 MNO 3652 MZEALL 4461
DECDIG 1514 HDRVOL 4504 MNOSYS 5422 M0EQUN 4546
DECINC 1512 HDRZEA 4404 MNOZER 4374 M1PS8 4556
DECINP 1511 HDRZ6 4476 MNOZE2 4375 M127CH 5210
DECLUP 1450 HDR10 4510 MNSDEV 4214 M2CHAR 5021
DECLU0 1445 HDR11 4511 MNXPRZ 5433 M2OS8 4563
DECTBL 1504 HELP 0030 MONLSQ 4406 M3OS12 4570
DEC0 1510 HNDBUF 7200 MOUCH 5750 M4DECS 4576
DELFLG 0044 INBUF 6700 MPARBL 3654 M5OS78 4610
DESLBL 2200 KMEXIT 0032 MPLYN 3623 M6ETOS 4616
DIRADD 2004 KMON 7600 MPRSW 5773 M7MLTI 4624
DIRBUF 2000 LBLCNT 0024 MSCRLL 5555 M8MLTO 4633
DIRFIL 2006 LBLGET 2236 MSIDSW 3611 NOSID 1400
DIRHDR 4400 LBLOUT 2253 MSQMYS 4513 PAGE2 0200
DIRNXT 2002 LBLPNT 0025 MSQODV 4471 PNT1 0045
DIRPNT 0022 LBLSTR 2230 MSQPER 4423 PRCR 2651
DIRSTR 2001 LBM 6170 MSQVOL 5672 PRCTL 2672
DPIC 7573 LRR 6240 MSQZE 4342 PRCTL2 2677
DPSZ 7451 LUSR 6260 MSTBEG 5465 PRDEL 2711
DVCTEN 1750 LXM 6200 MSTDSQ 4436 PREMP 2731
DVCTER 1752 MALLSQ 5330 MSTDST 5354 PRESC 2705
DVCTW 1747 MANABC 5614 MSTDVA 4240 PRIGN 2606
DVCTWT 7760 MAUTOA 4773 MSTDVL 4136 PRINT 0026
DVLENT 3200 MAYNMQ 4174 MSTD07 5502 PRLF 2752
DVLNAM 3300 MBADIN 3762 MSTD56 5525 PRLF2 2726
/HEADER.PA V50.1 PAL8-V50X 29-JUN-88 PAGE 2-1
PRNTIT 0020 XCRLF 1310
PRNTNL 2333 XDRSQM 1126
PRNTNZ 2325 XHELP 0264
PRSUB 2661 XNO 0332
RACA 6175 XPIND 0223
RACB 6176 XPRBYT 0251
RACC 6177 XPRINT 0230
RBM 6171 XPRNX 0236
RDEVNA 0034 XREAD 2600
READ 0035 XR2 0012
READER 0673 XTYPE 2540
READIR 0600 XYES 0327
RECC 1525 XYES2 0335
RECOVR 2112 YN 0031
REC1 2123 ZLOCS 2000
REC2 2141 ZLOCSP 2013
REC3 1515
REC4 1540
RLB 6172
RMR 6173
RRR 6250
RTS 6220
RUSR 6270
RXM 6230
SAM 7457
SAVHDR 5000
SAVNXT 5002
SAVSTR 5001
SCA 7441
SQSHZE 1077
START 0200
STDLEN 1033
STRTEN 0215
SWIT 0300
SWITCH 2735
SYNC 2437
SYSDAT 7666
SYSUPD 1600
SYSU2 1622
TMP 0042
TRYA 0407
TYPE 0036
UADVNM 2014
UDEVEN 0435
UDEVNA 0433
UDEVNO 0434
USAAGN 2032
USALUP 2041
USR 0033
WRALL 2260
WRDATE 3000
WRFLG 0021
WRHDR 2310
WRITOK 0023
XANPR 0275
ERRORS DETECTED: 0
LINKS GENERATED: 0