File: HEAD40.PA of Disk: V50/Source/Source-Listing-PAL-2
(Source file text)
/HEADER.PA V50.1
/
/
/
/
/
/
/
/
/
/COPYRIGHT (C) 2020 BY W. VAN DER MARK
/
/
/
MQL=7421
MQA=7501
SCA=7441
DPSZ=7451
DPIC=7573
DCM=7575
SAM=7457
KCF=6030
TFL=6040
TSF=6041
TCF=6042
TPC=6044
TSK=6045
TLS=6046
LBM=6170
RBM=6171
RLB=6172
RMR=6173
MBC=6174
RACA=6175
RACB=6176
RACC=6177
LXM=6200
GTS=6210
RTS=6220
RXM=6230
LRR=6240
RRR=6250
LUSR=6260
RUSR=6270
BATCCL=7777
KMON=7600
DVCTWT=7760
SYSDAT=7666
INBUF=6700
FIELD 0
*0000
0003 /00000-0003 @C
7200 /00001-7200 :@
1053 /00002-1053 H+
3033 /00003-3033 X[
4500 /00004-4500 %@
2331 /00005-2331 SY
2324 /00006-2324 ST
0515 /00007-0515 EM
4005 /00010-4005 E
2222 /00011-2222 RR
XR2, 0000 /00012-0000 @@
GETLPT, 1004 /00013-1004 HD
ENFROM, 7773 /00014-7773 ?;
ENTO, 1723 /00015-1723 OS
1020 /00016-1020 HP
0000 /00017-0000 @@
PRNTIT, 0000 /00020-0000 @@
WRFLG, 7777 /00021-7777 ??
DIRPNT, 0000 /00022-0000 @@
WRITOK, 0000 /00023-0000 @@
LBLCNT, 0000 /00024-0000 @@
LBLPNT, 0000 /00025-0000 @@
PRINT, XPRINT /00026-0230 BX
CRLF, XCRLF /00027-1310 KH
HELP, XHELP /00030-0264 B4
YN, 0000 /00031-0000 @@
KMEXIT, 7605 /00032-7605 >E
USR, 7700 /00033-7700 ?@
RDEVNA, BDEVNA /00034-2444 T$
READ, XREAD /00035-2600 V@
TYPE, XTYPE /00036-2540 U
CHAR1, 0000 /00037-0000 @@
CHAR2, 0000 /00040-0000 @@
0000 /00041-0000 @@
TMP, 0000 /00042-0000 @@
ENTRY, 7200 /00043-7200 :@
DELFLG, 0000 /00044-0000 @@
PNT1, 0000 /00045-0000 @@
CNT, 0000 /00046-0000 @@
COCNT, 0000 /00047-0000 @@
CHTMP, 0000 /00050-0000 @@
CHCNT, 0000 /00051-0000 @@
CHPNT, 0000 /00052-0000 @@
CHHALF, 0000 /00053-0000 @@
4000 /00054-4000 @
3700 /00055-3700 _@
2020 /00056-2020 PP
0070 /00057-0070 @8
0603 /00060-0603 FC
0600 /00061-0600 F@
0434 /00062-0434 D\
0067 /00063-0067 @7
6003 /00064-6003 0C
0244 /00065-0244 B$
0100 /00066-0100 A@
0336 /00067-0336 C^
0334 /00070-0334 C\
7001 /00071-7001 8A
6670 /00072-6670 68
0212 /00073-0212 BJ
0215 /00074-0215 BM
0403 /00075-0403 DC
0010 /00076-0010 @H
7700 /00077-7700 ?@
0330 /00100-0330 CX
0306 /00101-0306 CF
0564 /00102-0564 E4
1754 /00103-1754 O,
0527 /00104-0527 EW
0300 /00105-0300 C@
1676 /00106-1676 N>
7404 /00107-7404 <D
7600 /00110-7600 >@
7402 /00111-7402 <B
7401 /00112-7401 <A
7403 /00113-7403 <C
1610 /00114-1610 NH
7400 /00115-7400 <@
0526 /00116-0526 EV
0200 /00117-0200 B@
0007 /00120-0007 @G
7757 /00121-7757 ?/
7764 /00122-7764 ?4
7762 /00123-7762 ?2
0033 /00124-0033 @[
7761 /00125-7761 ?1
7760 /00126-7760 ?0
7756 /00127-7756 ?.
7775 /00130-7775 ?=
7745 /00131-7745 ?%
1672 /00132-1672 N:
1000 /00133-1000 H@
7744 /00134-7744 ?$
1113 /00135-1113 IK
0370 /00136-0370 C8
1001 /00137-1001 HA
0645 /00140-0645 F%
1532 /00141-1532 MZ
2326 /00142-2326 SV
0651 /00143-0651 F)
1645 /00144-1645 N%
7410 /00145-7410 <H
0766 /00146-0766 G6
1600 /00147-1600 N@
0637 /00150-0637 F_
1655 /00151-1655 N-
0701 /00152-0701 GA
1163 /00153-1163 I3
7740 /00154-7740 ?
0012 /00155-0012 @J
1327 /00156-1327 KW
0363 /00157-0363 C3
0777 /00160-0777 G?
1166 /00161-1166 I6
7607 /00162-7607 >G
0256 /00163-0256 B.
0004 /00164-0004 @D
0077 /00165-0077 @?
7772 /00166-7772 ?:
7746 /00167-7746 ?&
7477 /00170-7477 <?
7766 /00171-7766 ?6
7776 /00172-7776 ?>
7522 /00173-7522 =R
0240 /00174-0240 B
7540 /00175-7540 =
0034 /00176-0034 @\
7000 /00177-7000 8@
PAGE
PAGE2,
START, CLA CLL /00200-7300 ;@
TAD I (BATCCL /00201-1777 O?
SPA CLA /00202-7710 ?H
JMP I KMEXIT /00203-5432 ,Z
CIF 10 /00204-6212 2J
JMS I USR /00205-4433 $[
0010 /00206-0010 @H
TAD (200 /00207-1376 K>
DCA USR /00210-3033 X[
JMS I CRLF /00211-4427 $W
JMS I PRINT /00212-4426 $V
MHVERS /00213-6100 1@
JMS I CRLF /00214-4427 $W
STRTEN, JMS I PRINT /00215-4426 $V
MWHELP /00216-3617 ^O
JMS SWIT /00217-4300 #@
CLA CMA /00220-7240 :
DCA YN /00221-3031 XY
JMP I (GDEVNA /00222-5775 /=
XPIND, 0000 /00223-0000 @@
DCA CHAR1 /00224-3037 X_
TAD XPIND /00225-1223 JS
DCA I (SWITCH /00226-3774 _<
JMP I (SWITCH+1 /00227-5773 /;
XPRINT, 0000 /00230-0000 @@
CDF 0 /00231-6201 2A
KCC /00232-6032 0Z
TAD I XPRINT /00233-1630 NX
DCA XPIND /00234-3223 ZS
ISZ XPRINT /00235-2230 RX
XPRNX, TAD I XPIND /00236-1623 NS
RTR /00237-7012 8J
RTR /00240-7012 8J
RTR /00241-7012 8J
JMS XPRBYT /00242-4251 ")
TAD I XPIND /00243-1623 NS
JMS XPRBYT /00244-4251 ")
ISZ XPIND /00245-2223 RS
JMS I (CTRLO /00246-4772 ':
JMP I XPRINT /00247-5630 .X
JMP XPRNX /00250-5236 *^
XPRBYT, 0000 /00251-0000 @@
AND (77 /00252-0371 C9
SNA /00253-7450 <(
JMP I XPRINT /00254-5630 .X
TAD (-40 /00255-1370 K8
SPA /00256-7510 =H
TAD (100 /00257-1367 K7
TAD (240 /00260-1366 K6
JMS I TYPE /00261-4436 $^
JMS I (CTRLC /00262-4765 '5
JMP I XPRBYT /00263-5651 .)
XHELP, 0000 /00264-0000 @@
CDF 0 /00265-6201 2A
TAD I XHELP /00266-1664 N4
DCA XANPR /00267-3275 Z=
ISZ XHELP /00270-2264 R4
TAD YN /00271-1031 HY
SNA CLA /00272-7650 >(
JMP I XHELP /00273-5664 .4
JMS I PRINT /00274-4426 $V
XANPR, 0000 /00275-0000 @@
JMS I CRLF /00276-4427 $W
JMP I XHELP /00277-5664 .4
SWIT, 0000 /00300-0000 @@
KSF /00301-6031 0Y
JMP .-1 /00302-5301 +A
KRB /00303-6036 0^
JMS XPIND /00304-4223 "S
-203 /00305-7575 ==
KMON /00306-7600 >@
-3 /00307-7775 ?=
KMON /00310-7600 >@
-331 /Y /00311-7447 <'
XYES /00312-0327 CW
-131 /Y /00313-7647 >'
XYES /00314-0327 CW
-316 /N /00315-7462 <2
XNO /00316-0332 CZ
-116 /N /00317-7662 >2
XNO /00320-0332 CZ
0000 /00321-0000 @@
JMS I CRLF /00322-4427 $W
JMS I PRINT /00323-4426 $V
MPLYN /00324-3603 ^C
JMS I CRLF /00325-4427 $W
JMP SWIT+1 /00326-5301 +A
XYES, JMS I PRINT /00327-4426 $V
MYES /00330-3630 ^X
JMP XYES2 /00331-5335 +]
XNO, ISZ SWIT /00332-2300 S@
JMS I PRINT /00333-4426 $V
MNO /00334-3632 ^Z
XYES2, JMS I CRLF /00335-4427 $W
JMP I SWIT /00336-5700 /@
JMP I 0033 /00337-5433 ,[
AND 0000 /00340-0000 @@
DCA YN /00341-3031 XY
TAD YN /00342-1031 HY
RTR /00343-7012 8J
RTR /00344-7012 8J
RTR /00345-7012 8J
JMS 0352 /00346-4352 #*
TAD YN /00347-1031 HY
JMS 0352 /00350-4352 #*
JMP I 0340 /00351-5740 /
AND 0000 /00352-0000 @@
AND 0165 /00353-0165 A5
SNA /00354-7450 <(
JMP I 0352 /00355-5752 /*
TAD 0174 /00356-1174 I<
AND 0165 /00357-0165 A5
TAD 0174 /00360-1174 I<
JMS I 0023 /00361-4423 $S
JMP I 0352 /00362-5752 /*
JMS 0330 /00363-4330 #X
SMA CLA /00364-7700 ?@
PAGE
GDEVNA, JMS I HELP /00400-4430 $X
MPARBL /00401-3634 ^\
JMS I HELP /00402-4430 $X
MDEC8 /00403-3662 ^2
JMS I CRLF /00404-4427 $W
JMS I HELP /00405-4430 $X
MINKM /00406-3706 _F
TRYA, JMS I CRLF /00407-4427 $W
JMS I PRINT /00410-4426 $V
MDEVNA /00411-3735 _]
JMS I (GETLIN /00412-4777 '?
JMS I CRLF /00413-4427 $W
JMS I RDEVNA /00414-4434 $\
SKP /00415-7410 <H
JMP .+4 /00416-5222 *R
JMS I PRINT /00417-4426 $V
MBADIN /00420-3743 _#
JMP GDEVNA /00421-5200 *@
TAD CHAR1 /00422-1037 H_
DCA UDEVNA /00423-3233 Z[
TAD CHAR2 /00424-1040 H
DCA UDEVNO /00425-3234 Z\
TAD (HNDBUF+1 /00426-1376 K>
DCA UDEVEN /00427-3235 Z]
CIF 10 /00430-6212 2J
JMS I USR /00431-4433 $[
0001 /00432-0001 @A
UDEVNA, AND 0000 /NAME /00433-0000 @@
UDEVNO, AND 0000 /DEVNO /00434-0000 @@
UDEVEN, AND 0000 /ENTRY /00435-0000 @@
JMP 0417 /00436-5217 *O
TAD UDEVEN /00437-1235 J]
DCA ENTRY /00440-3043 X#
TAD UDEVNO /00441-1234 J\
TAD (DVCTWT-1 /00442-1375 K=
DCA UDEVNA /00443-3233 Z[
CDF 10 /00444-6211 2I
TAD I UDEVNA /00445-1633 N[
CDF 0 /00446-6201 2A
DCA I (DVCTW /00447-3774 _<
TAD I (DVCTW /00450-1774 O<
SPA CLA /00451-7710 ?H
JMP .+4 /00452-5256 *.
JMS I PRINT /00453-4426 $V
MDEVNF /00454-3751 _)
JMP TRYA /00455-5207 *G
JMS I (READIR /00456-4773 ';
TAD (DIRHDR-1 /00457-1372 K:
DCA XR2 /00460-3012 XJ
CDF 10 /00461-6211 2I
TAD (427 /00462-1371 K9
DCA I XR2 /00463-3412 \J
TAD (1203 /00464-1370 K8
DCA I XR2 /00465-3412 \J
CLA CMA /00466-7240 :
DCA I XR2 /00467-3412 \J
JMS I (SQSHZE /00470-4767 '7
JMS I (SYSUPD /00471-4766 '6
JMS I (GLNSTD /00472-4765 '5
JMS I (UADVNM /00473-4764 '4
JMS I (DESLBL /00474-4763 '3
JMS I (WRALL /00475-4762 '2
JMS I (WRHDR /00476-4761 '1
JMP I (ENDPRC /00477-5760 /0
CHNGIT, 0000 /00500-0000 @@
CDF 0 /00501-6201 2A
TAD PRNTIT /00502-1020 HP
SNA CLA /00503-7650 >(
JMP CHNG1 /00504-5312 +J
JMS I CRLF /00505-4427 $W
JMS I PRINT /00506-4426 $V
MCHNG /00507-5571 -9
JMS I (SWIT /00510-4757 '/
JMP .+3 /00511-5314 +L
CHNG1, ISZ CHNGIT /00512-2300 S@
JMP I CHNGIT /00513-5700 /@
DCA WRFLG /00514-3021 XQ
JMP I CHNGIT /00515-5700 /@
CTRLC, 0000 /00516-0000 @@
KSF /00517-6031 0Y
JMP I CTRLC /00520-5716 /N
KRS /00521-6034 0\
TAD (-203 /00522-1356 K.
SZA CLA /00523-7640 >
JMP I CTRLC /00524-5716 /N
TSF /00525-6041 0!
JMP .-1 /00526-5325 +U
JMP I (KMON /00527-5755 /-
CTRLO, 0000 /00530-0000 @@
KSF /00531-6031 0Y
JMP CTRL2 /00532-5341 +!
KRS /00533-6034 0\
TAD (-217 /00534-1354 K,
SZA CLA /00535-7640 >
JMP CTRL2 /00536-5341 +!
KCC /00537-6032 0Z
JMP I CTRLO /00540-5730 /X
CTRL2, ISZ CTRLO /00541-2330 SX
JMP I CTRLO /00542-5730 /X
JMS 0163 /00543-4163 !3
JMP 0000 /00544-5000 (@
ISZ 0525 /00545-2325 SU
JMS 0455 /00546-4255 "-
JMP 0164 /00547-5164 )4
AND 0024 /00550-0024 @T
AND I 0143 /00551-0543 E#
JMP I 0500 /00552-5700 /@
ISZ I 0031 /00553-2431 TY
PAGE
READIR, 0000 /00600-0000 @@
JMS I ENTRY /00601-4443 $#
1410 /00602-1410 LH
DIRBUF /00603-2000 P@
0001 /00604-0001 @A
JMP READER /00605-5273 *;
CLA CMA /00606-7240 :
DCA WRITOK /00607-3023 XS
CDF 10 /00610-6211 2I
TAD I (DIRBUF /00611-1777 O?
CLL /00612-7100 9@
TAD (100 /00613-1376 K>
SNL CLA /00614-7620 >P
JMP BADDIR /00615-5240 *
DCA I (SAVNXT /00616-3775 _=
TAD (DIRNXT /00617-1374 K<
DCA DIRPNT /00620-3022 XR
TAD I DIRPNT /00621-1422 LR
SNA CLA /00622-7650 >(
JMP .+5 /00623-5230 *X
TAD (400 /00624-1373 K;
TAD DIRPNT /00625-1022 HR
DCA DIRPNT /00626-3022 XR
JMP .-6 /00627-5221 *Q
CDF 0 /00630-6201 2A
TAD DIRPNT /00631-1022 HR
TAD (-DIRHDR /00632-1372 K:
SPA CLA /00633-7710 ?H
JMP BADDIR+1 /00634-5241 *!
JMS I PRINT /00635-4426 $V
MDIRPA /00636-3767 _7
JMP I KMEXIT /00637-5432 ,Z
BADDIR, DCA WRITOK /00640-3023 XS
CDF 10 /00641-6211 2I
ISZ I (HDRFLG /00642-2771 W9
JMP I READIR /00643-5600 .@
JMS MULTPR /00644-4260 "0
MDVHPA /00645-4011 I
MWISH /00646-5617 .O
MWISHA /00647-5627 .W
MWISHB /00650-5635 .]
MWISHC /00651-5651 .)
0000 /00652-0000 @@
JMS I (GETABC /00653-4770 '8
JMP I READIR /00654-5600 .@
CLA CMA /00655-7240 :
DCA PRNTIT /00656-3020 XP
JMP I (GUDVNM /00657-5767 /7
MULTPR, 0000 /00660-0000 @@
CDF 0 /00661-6201 2A
TAD I MULTPR /00662-1660 N0
ISZ MULTPR /00663-2260 R0
SNA /00664-7450 <(
JMP I MULTPR /00665-5660 .0
DCA .+2 /00666-3270 Z8
JMS I PRINT /00667-4426 $V
AND 0000 /00670-0000 @@
JMS I CRLF /00671-4427 $W
JMP MULTPR+1 /00672-5261 *1
READER, JMS I CRLF /00673-4427 $W
JMS I PRINT /00674-4426 $V
MERB16 /00675-4043 #
JMS I CRLF /00676-4427 $W
JMS I PRINT /00677-4426 $V
MCONTI /00700-4071 9
JMS I (SWIT /00701-4766 '6
SKP /00702-7410 <H
JMP I (STRTEN /00703-5765 /5
DCA WRITOK /00704-3023 XS
JMS I PRINT /00705-4426 $V
MDIRZE /00706-4102 !B
JMS I CRLF /00707-4427 $W
JMP I READIR /00710-5600 .@
CONDEC, 0000 /00711-0000 @@
DCA COCNT /00712-3047 X'
CONLUP, DCA PNT1 /00713-3045 X%
TAD I GETLPT /00714-1413 LK
SNA /00715-7450 <(
JMP CONEXI /00716-5351 +)
DCA CNT /00717-3046 X&
TAD CNT /00720-1046 H&
TAD (-260 /00721-1364 K4
CLL /00722-7100 9@
TAD (-12 /00723-1363 K3
SNL CLA /00724-7620 >P
JMP .+7 /00725-5334 +\
TAD COCNT /00726-1047 H'
SZA CLA /00727-7640 >
JMP CONEXI /00730-5351 +)
JMS I PRINT /00731-4426 $V
MCONER /00732-3572 ]:
JMP I CONDEC /00733-5711 /I
TAD PNT1 /00734-1045 H%
CLL RAL /00735-7104 9D
DCA PNT1 /00736-3045 X%
TAD PNT1 /00737-1045 H%
CLL RAL /00740-7104 9D
CLL RAL /00741-7104 9D
TAD PNT1 /00742-1045 H%
DCA PNT1 /00743-3045 X%
TAD CNT /00744-1046 H&
AND (17 /00745-0362 C2
TAD PNT1 /00746-1045 H%
ISZ COCNT /00747-2047 P'
JMP CONLUP /00750-5313 +K
CONEXI, TAD PNT1 /00751-1045 H%
ISZ CONDEC /00752-2311 SI
JMP I CONDEC /00753-5711 /I
SZA /00754-7440 <
ISZ 0730 /00755-2330 SX
AND 0765 /00756-0365 C5
JMP I 0730 /00757-5730 /X
JMP I 0731 /00760-5731 /Y
JMS I 0166 /00761-4566 %6
PAGE
GLNSTD, AND 0000 /01000-0000 @@
JMS I (WRDATE /01001-4777 '?
JMS I (GEDVLN /01002-4776 '>
SNA CLA /01003-7650 >(
JMP 1024 /01004-5224 *T
JMS I HELP /01005-4430 $X
MDEVSL /01006-4133 ![
JMS I HELP /01007-4430 $X
MAYNMQ /01010-4155 !-
JMS I HELP /01011-4430 $X
MNSDEV /01012-4175 !=
JMS I HELP /01013-4430 $X
MSTDVA /01014-4221 "Q
JMS I HELP /01015-4430 $X
MVDEVS /01016-4234 "\
JMS I CRLF /01017-4427 $W
JMS I PRINT /01020-4426 $V
MSTDVL /01021-4117 !O
JMS I (SWIT /01022-4775 '=
JMP STDLEN /01023-5233 *[
JMS I PRINT /01024-4426 $V
MDVLDC /01025-4256 ".
JMS I (GETLIN /01026-4774 '<
JMS I (CONDEC /01027-4773 ';
JMP .-4 /01030-5224 *T
CMA IAC /01031-7041 8!
SKP /01032-7410 <H
STDLEN, JMS I (GEDVLN /01033-4776 '>
CDF 10 /01034-6211 2I
DCA I (HDRLEN /01035-3772 _:
CDF 0 /01036-6201 2A
JMS I CRLF /01037-4427 $W
BADSTR, JMS I HELP /01040-4430 $X
MNXPRZ /01041-5421 ,Q
JMS I HELP /01042-4430 $X
MSTBEG /01043-5453 ,+
JMS I HELP /01044-4430 $X
MSTD07 /01045-5470 ,8
JMS I HELP /01046-4430 $X
MSTD56 /01047-5513 -K
CDF 10 /01050-6211 2I
TAD I (HDRSYS /01051-1771 O9
SZA CLA /01052-7640 >
TAD (61 /01053-1370 K8
TAD (7 /01054-1367 K7
DCA I (HDRSTR /01055-3766 _6
JMS I PRINT /01056-4426 $V
MSTDST /USE STD START /01057-5342 +"
JMS I (SWIT /01060-4775 '=
JMP I GLNSTD /01061-5600 .@
JMS I PRINT /01062-4426 $V
MFSTBL /01063-5364 +4
JMS I (GETLIN /01064-4774 '<
JMS I (CONDEC /01065-4773 ';
JMP .-4 /01066-5262 *2
CDF 10 /01067-6211 2I
DCA I (HDRSTR /01070-3766 _6
TAD I (HDRSTR /01071-1766 O6
CDF 0 /01072-6201 2A
TAD (-7 /01073-1365 K5
SPA CLA /01074-7710 ?H
JMP BADSTR /01075-5240 *
JMP I GLNSTD /01076-5600 .@
SQSHZE, AND 0000 /01077-0000 @@
JMS I (WRDATE /01100-4777 '?
JMS I CRLF /01101-4427 $W
JMS I HELP /01102-4430 $X
MSQZE /01103-4323 #S
JMS I HELP /01104-4430 $X
MNOZER /01105-4355 #-
JMS I HELP /01106-4430 $X
MSQPER /01107-4404 $D
JMS I HELP /01110-4430 $X
MONLSQ /01111-4367 #7
JMS I HELP /01112-4430 $X
MSTDSQ /01113-4417 $O
JMS I PRINT /01114-4426 $V
MSTSQZ /01115-4272 ":
JMS I (SWIT /01116-4775 '=
SKP /01117-7410 <H
JMP XDRSQM+4 /01120-5332 +Z
CDF 10 /01121-6211 2I
CLA CMA /01122-7240 :
DCA I (HDRZEA /01123-3764 _4
CLA CMA /01124-7240 :
DCA I (HDRSQO /01125-3763 _3
XDRSQM, CDF 10 /01126-6211 2I
DCA I (HDRSQM /01127-3762 _2
CDF 0 /01130-6201 2A
JMP I SQSHZE /01131-5677 .?
JMS I PRINT /01132-4426 $V
MZEALL /01133-4442 $"
JMS I (SWIT /01134-4775 '=
SKP /01135-7410 <H
CLA CMA /01136-7240 :
CDF 10 /01137-6211 2I
DCA I (HDRZEA /01140-3764 _4
JMS I PRINT /01141-4426 $V
MSQODV /01142-4452 $*
JMS I (SWIT /01143-4775 '=
SKP /01144-7410 <H
JMP .+3 /01145-5350 +(
CDF 10 /01146-6211 2I
JMP XDRSQM-1 /01147-5325 +U
CDF 10 /01150-6211 2I
CLA CMA /01151-7240 :
DCA I (HDRSQO /01152-3763 _3
JMS I PRINT /01153-4426 $V
MSQMYS /01154-4474 $<
JMS I (SWIT /01155-4775 '=
SKP /01156-7410 <H
CLA CMA /01157-7240 :
JMP XDRSQM /01160-5326 +V
CIF CDF 0 /01161-6203 2C
PAGE
GUDVNM, CLA CMA /01200-7240 :
DCA WRFLG /01201-3021 XQ
JMS I CRLF /01202-4427 $W
JMS I PRINT /01203-4426 $V
MUDVNM /01204-4711 'I
TAD (HDRUSA /01205-1377 K?
JMS I (PRNTNZ /01206-4776 '>
-4 /01207-7774 ?<
JMS I PRINT /01210-4426 $V
MVOLID /01211-5051 ()
CDF 10 /01212-6211 2I
TAD I (HDRVOL /01213-1775 O=
JMS I (DECCON /01214-4774 '<
JMS I (CHNGIT /01215-4773 ';
JMS I (UADVNM /01216-4772 ':
JMS I CRLF /01217-4427 $W
TAD (HDRLBL /01220-1371 K9
JMS I (PRNTNZ /01221-4776 '>
-200 /01222-7600 >@
JMS I (CHNGIT /01223-4773 ';
JMS I (DESLBL /01224-4770 '8
JMS I CRLF /01225-4427 $W
CDF 10 /01226-6211 2I
TAD I (HDRZEA /01227-1767 O7
SNA CLA /01230-7650 >(
IAC /01231-7001 8A
TAD (MNOZE2 /01232-1366 K6
DCA .+2 /01233-3235 Z]
JMS I PRINT /01234-4426 $V
MNOZE2 /01235-4356 #.
JMS I CRLF /01236-4427 $W
CDF 10 /01237-6211 2I
TAD I (HDRSQM /01240-1765 O5
SNA CLA /01241-7650 >(
JMP .+4 /01242-5246 *&
JMS I PRINT /01243-4426 $V
MSQPER /01244-4404 $D
JMP GUDVN2 /01245-5255 *-
TAD I (HDRSQO /01246-1764 O4
SZA CLA /01247-7640 >
TAD (MONLSQ-MALLSQ /01250-1363 K3
TAD (MALLSQ /01251-1362 K2
DCA .+2 /01252-3254 Z,
JMS I PRINT /01253-4426 $V
MALLSQ /01254-5315 +M
GUDVN2, JMS I (CHNGIT /01255-4773 ';
JMS I (SQSHZE /01256-4761 '1
JMS I CRLF /01257-4427 $W
CDF 10 /01260-6211 2I
TAD I (HDRSYS /01261-1760 O0
SNA CLA /01262-7650 >(
JMP I (NOSID /01263-5757 //
TAD I (HDRSID /01264-1756 O.
CDF 0 /01265-6201 2A
TAD (MSIDSW /01266-1355 K-
DCA PNT1 /01267-3045 X%
TAD I PNT1 /01270-1445 L%
DCA .+4 /01271-3275 Z=
JMS I PRINT /01272-4426 $V
MSYSID /01273-4521 %Q
JMS I PRINT /01274-4426 $V
0000 /01275-0000 @@
JMS I PRINT /01276-4426 $V
MVERS /01277-5334 +\
CDF 10 /01300-6211 2I
TAD I (HDRVER /01301-1754 O,
JMS I (DECCON /01302-4774 '<
CDF 10 /01303-6211 2I
TAD I (HDRREL /01304-1753 O+
TAD (300 /01305-1352 K*
JMS I TYPE /01306-4436 $^
JMP I (NOSID+2 /01307-5751 /)
XCRLF, 0000 /01310-0000 @@
TAD (215 /01311-1350 K(
JMS I TYPE /01312-4436 $^
TAD (212 /01313-1347 K'
JMS I TYPE /01314-4436 $^
JMP I XCRLF /01315-5710 /H
CLA CMA /01316-7240 :
DCA PRNTIT /01317-3020 XP
TAD GETLPT /01320-1013 HK
DCA CHAR2 /01321-3040 X
TAD I CHAR2 /01322-1440 L
JMS I 0023 /01323-4423 $S
CLA CMA /01324-7240 :
TAD GETLPT /01325-1013 HK
JMP 1205 /01326-5205 *E
AND I 0034 /01327-0434 D\
TAD I 1327 /01330-1727 OW
ISZ 1327 /01331-2327 SW
SNA /01332-7450 <(
JMP I 1327 /01333-5727 /W
TAD 0034 /01334-1034 H\
SNA CLA /01335-7650 >(
JMP 1341 /01336-5341 +!
ISZ 1327 /01337-2327 SW
JMP 1330 /01340-5330 +X
TAD I 1327 /01341-1727 OW
DCA CHAR2 /01342-3040 X
JMP I CHAR2 /01343-5440 ,
JMS I 0161 /01344-4561 %1
DCA I GETLPT /01345-3413 \K
TAD 0163 /01346-1163 I3
PAGE
NOSID, JMS I PRINT /01400-4426 $V
MNOSYS /01401-5410 ,H
JMS I (CHNGIT /01402-4777 '?
JMS I (SYSUPD /01403-4776 '>
JMS I CRLF /01404-4427 $W
JMS I PRINT /01405-4426 $V
MDVLDC /01406-4256 ".
CLA CMA /01407-7240 :
CDF 10 /01410-6211 2I
DCA I (HDRFLG /01411-3775 _=
TAD I (HDRLEN /01412-1774 O<
CMA IAC /01413-7041 8!
JMS DECCON /01414-4232 "Z
JMS I CRLF /01415-4427 $W
JMS I PRINT /01416-4426 $V
MFSTBL /01417-5364 +4
CDF 10 /01420-6211 2I
TAD I (HDRSTR /01421-1773 O;
JMS DECCON /01422-4232 "Z
JMS I (CHNGIT /01423-4777 '?
JMS I (GLNSTD /01424-4772 ':
JMS I CRLF /01425-4427 $W
ISZ WRFLG /01426-2021 PQ
JMS I (WRHDR /01427-4771 '9
JMS I CRLF /01430-4427 $W
JMP I (ENDPRC /01431-5770 /8
DECCON, 0000 /01432-0000 @@
CDF 0 /01433-6201 2A
DCA DECINP /01434-3311 [I
CLA CLL CML RAR /01435-7330 ;X
DCA DECDIG /01436-3314 [L
DCA DECINC /01437-3312 [J
TAD DECTBL-1 /01440-1303 KC
DCA DECCNT /01441-3313 [K
TAD DECTBL-2 /01442-1302 KB
DCA DECLUP /01443-3250 Z(
SKP /01444-7410 <H
DECLU0, DCA DECINP /01445-3311 [I
CLL /01446-7100 9@
TAD DECINP /01447-1311 KI
DECLUP, TAD DECTBL /01450-1304 KD
SZL /01451-7430 <X
ISZ DECINC /01452-2312 SJ
SZL /01453-7430 <X
JMP DECLU0 /01454-5245 *%
CLA /01455-7200 :@
TAD DECINC /01456-1312 KJ
SNA CLA /01457-7650 >(
JMP .+3 /01460-5263 *3
TAD DEC0 /01461-1310 KH
DCA DECDIG /01462-3314 [L
TAD DECINC /01463-1312 KJ
TAD DECDIG /01464-1314 KL
SMA /01465-7500 =@
JMS I TYPE /01466-4436 $^
CLA /01467-7200 :@
DCA DECINC /01470-3312 [J
ISZ DECLUP /01471-2250 R(
ISZ DECCNT /01472-2313 SK
JMP DECLUP-1 /01473-5247 *'
TAD DECDIG /01474-1314 KL
SMA CLA /01475-7700 ?@
JMP I DECCON /01476-5632 .Z
TAD DEC0 /01477-1310 KH
JMS I TYPE /01500-4436 $^
JMP I DECCON /01501-5632 .Z
TAD DECTBL /01502-1304 KD
-4 /01503-7774 ?<
DECTBL, -1750 /-1000 /01504-6030 0X
-144 /-100 /01505-7634 >\
-12 /-10 /01506-7766 ?6
-1 /-1 /01507-7777 ??
DEC0, 260 /01510-0260 B0
DECINP, AND 0000 /01511-0000 @@
DECINC, AND 0000 /01512-0000 @@
DECCNT, AND 0000 /01513-0000 @@
DECDIG, JMS 0000 /01514-4000 @
REC3, JMS I HELP /01515-4430 $X
MMMMMT /01516-5526 -V
JMS I HELP /01517-4430 $X
MSCRLL /01520-5543 -#
CLA CLL CMA RAL /01521-7344 ;$
DCA DECINP /01522-3311 [I
TAD (-5 /01523-1367 K7
DCA DECINC /01524-3312 [J
RECC, JMS I ENTRY /01525-4443 $#
0210 /01526-0210 BH
SAVHDR /01527-5000 (@
0050 /01530-0050 @(
CLA CLL /01531-7300 ;@
ISZ DECINC /01532-2312 SJ
JMP RECC /01533-5325 +U
JMS I HELP /01534-4430 $X
MMMMMM /01535-5564 -4
ISZ DECINP /01536-2311 SI
JMP RECC-2 /01537-5323 +S
REC4, JMS I HELP /01540-4430 $X
MTHNKS /01541-5756 /.
JMS I CRLF /01542-4427 $W
TAD (RECOVR-2 /01543-1366 K6
DCA I (DVCTEN /01544-3765 _5
JMS I CRLF /01545-4427 $W
JMP I (STRTEN /01546-5764 /4
AND 0000 /01547-0000 @@
DCA CHTMP /01550-3050 X(
TAD CHTMP /01551-1050 H(
RTR /01552-7012 8J
RTR /01553-7012 8J
RTR /01554-7012 8J
JMS I TYPE /01555-4436 $^
TAD CHTMP /01556-1050 H(
JMS I TYPE /01557-4436 $^
JMP I 1547 /01560-5747 /'
JMP 1567 /01561-5367 +7
TAD 1556 /01562-1356 K.
JMS I 1576 /01563-4776 '>
PAGE
SYSUPD, 0000 /01600-0000 @@
CLA CLL /01601-7300 ;@
CDF 10 /01602-6211 2I
DCA I (HDRSYS /01603-3777 _?
CDF 0 /01604-6201 2A
TAD (HDRBLK /01605-1376 K>
JMS I (ZLOCS /01606-4775 '=
-73 /01607-7705 ?E
JMS I (WRDATE /01610-4774 '<
JMS I PRINT /01611-4426 $V
MISSYS /01612-4506 %F
JMS I (SWIT /01613-4773 ';
SKP /01614-7410 <H
JMP I SYSUPD /01615-5600 .@
CLA CMA /01616-7240 :
CDF 10 /01617-6211 2I
DCA I (HDRSYS /01620-3777 _?
CDF 0 /01621-6201 2A
SYSU2, JMS I PRINT /01622-4426 $V
MSYSID /01623-4521 %Q
JMS I CRLF /01624-4427 $W
JMS I HELP /01625-4430 $X
M0EQUN /01626-4527 %W
JMS I HELP /01627-4430 $X
M1PS8 /01630-4537 %_
JMS I HELP /01631-4430 $X
M2OS8 /01632-4544 %$
JMS I HELP /01633-4430 $X
M3OS12 /01634-4551 %)
JMS I HELP /01635-4430 $X
M4DECS /01636-4557 %/
JMS I HELP /01637-4430 $X
M5OS78 /01640-4571 %9
JMS I HELP /01641-4430 $X
M6ETOS /01642-4577 %?
JMS I HELP /01643-4430 $X
M7MLTI /01644-4605 &E
JMS I HELP /01645-4430 $X
M8MLTO /01646-4614 &L
JMS I (GETLIN /01647-4772 ':
JMS I (CONDEC /01650-4771 '9
JMP SYSU2 /01651-5222 *R
CMA IAC /01652-7041 8!
CDF 10 /01653-6211 2I
DCA I (HDRSID /01654-3770 _8
CDF 0 /01655-6201 2A
JMS I PRINT /01656-4426 $V
MVERSY /01657-4623 &S
JMS I (GETLIN /01660-4772 ':
JMS I (CONDEC /01661-4771 '9
JMP .-4 /01662-5256 *.
CDF 10 /01663-6211 2I
DCA I (HDRVER /01664-3767 _7
CDF 0 /01665-6201 2A
JMS I PRINT /01666-4426 $V
MVERCO /01667-4662 &2
JMS I (GETLIN /01670-4772 ':
JMS I (CONDEC /01671-4771 '9
JMP .-4 /01672-5266 *6
CDF 10 /01673-6211 2I
DCA I (HDRREL /01674-3766 _6
DCA I (HDR10 /01675-3765 _5
DCA I (HDR11 /01676-3764 _4
CDF 0 /01677-6201 2A
JMP I SYSUPD /01700-5600 .@
GETABC, 0000 /01701-0000 @@
KSF /01702-6031 0Y
JMP .-1 /01703-5302 +B
KRB /01704-6036 0^
TSF /01705-6041 0!
JMP .-1 /01706-5305 +E
TLS /01707-6046 0&
JMS I (XPIND /01710-4763 '3
-301 /01711-7477 <?
GETA /01712-1734 O\
-101 /01713-7677 >?
GETA /01714-1734 O\
-302 /01715-7476 <>
GETB /01716-1733 O[
-102 /01717-7676 >>
GETB /01720-1733 O[
-303 /01721-7475 <=
GETC /01722-1732 OZ
-103 /01723-7675 >=
GETC /01724-1732 OZ
0000 /01725-0000 @@
JMS I CRLF /01726-4427 $W
JMS I PRINT /01727-4426 $V
MANABC /01730-5602 .B
JMP GETABC+1 /01731-5302 +B
GETC, ISZ GETABC /01732-2301 SA
GETB, ISZ GETABC /01733-2301 SA
GETA, JMS I CRLF /01734-4427 $W
JMP I GETABC /01735-5701 /A
GEDVLN, 0000 /01736-0000 @@
TAD DVCTW /01737-1347 K'
AND (770 /01740-0362 C2
CLL RTR /01741-7112 9J
RAR /01742-7010 8H
TAD (DVLENT /01743-1361 K1
DCA PNT1 /01744-3045 X%
TAD I PNT1 /01745-1445 L%
JMP I GEDVLN /01746-5736 /^
DVCTW, AND 0000 /01747-0000 @@
DVCTEN, RECOVR-2 /01750-2110 QH
JMP I DVCTEN /01751-5750 /(
DVCTER, CLA CLL /01752-7300 ;@
ISZ DVCTEN /01753-2350 S(
ISZ DVCTEN /01754-2350 S(
JMP I DVCTEN /01755-5750 /(
AND 0007 /01756-0007 @G
AND 0000 /01757-0000 @@
OSR /01760-7404 <D
PAGE
ZLOCS, 0000 /02000-0000 @@
DCA XR2 /02001-3012 XJ
TAD I ZLOCS /02002-1600 N@
DCA ZLOCSP /02003-3213 ZK
ISZ ZLOCS /02004-2200 R@
CDF 10 /02005-6211 2I
DCA I XR2 /02006-3412 \J
ISZ ZLOCSP /02007-2213 RK
JMP .-2 /02010-5206 *F
CDF 0 /02011-6201 2A
JMP I ZLOCS /02012-5600 .@
ZLOCSP, 0000 /02013-0000 @@
UADVNM, 0000 /02014-0000 @@
JMS I (WRDATE /02015-4777 '?
TAD (HDRZ6 /02016-1376 K>
JMS ZLOCS /02017-4200 "@
-6 /02020-7772 ?:
JMS I CRLF /02021-4427 $W
JMS I HELP /02022-4430 $X
MUSALO /02023-4730 'X
JMS I HELP /02024-4430 $X
MAUTOA /02025-4757 '/
JMS I HELP /02026-4430 $X
M2CHAR /02027-5006 (F
JMS I HELP /02030-4430 $X
MUNIQE /02031-5036 (^
USAAGN, JMS I PRINT /02032-4426 $V
MUDVNM /02033-4711 'I
JMS I (GETLIN /02034-4775 '=
TAD (HDRUSA /02035-1374 K<
DCA PNT1 /02036-3045 X%
TAD (-4 /02037-1373 K;
DCA CNT /02040-3046 X&
USALUP, TAD I GETLPT /02041-1413 LK
SNA /02042-7450 <(
JMP .+7 /02043-5252 **
CDF 10 /02044-6211 2I
DCA I PNT1 /02045-3445 \%
CDF 0 /02046-6201 2A
ISZ PNT1 /02047-2045 P%
ISZ CNT /02050-2046 P&
JMP USALUP /02051-5241 *!
TAD (INBUF-1 /02052-1372 K:
DCA GETLPT /02053-3013 XK
JMS I RDEVNA /02054-4434 $\
JMP UADVNM+1 /02055-5215 *M
TAD CHAR2 /02056-1040 H
SNA CLA /02057-7650 >(
CLA CMA /02060-7240 :
DCA TMP /02061-3042 X"
TAD CHAR1 /02062-1037 H_
TAD CHAR2 /02063-1040 H
CLL RAL /02064-7104 9D
ISZ TMP /02065-2042 P"
CLL CML /02066-7120 9P
RAR /02067-7010 8H
CDF 10 /02070-6211 2I
DCA I (HDRUDV /02071-3771 _9
TAD I (HDRUDV /02072-1771 O9
CDF 0 /02073-6201 2A
JMS I (CHKUSA /02074-4770 '8
MVOLE2, JMS I HELP /02075-4430 $X
MVOLEL /02076-5060 (0
JMS I HELP /02077-4430 $X
MDECLT /02100-5112 )J
JMS I PRINT /02101-4426 $V
MVOLID /02102-5051 ()
JMS I (GETLIN /02103-4775 '=
JMS I (CONDEC /02104-4767 '7
JMP MVOLE2 /02105-5275 *=
CDF 10 /02106-6211 2I
DCA I (HDRVOL /02107-3766 _6
CDF 0 /02110-6201 2A
JMP I UADVNM /02111-5614 .L
RECOVR, TAD YN /02112-1031 HY
SNA CLA /02113-7650 >(
JMP REC1 /02114-5323 +S
JMS I HELP /02115-4430 $X
MWRENA /02116-5717 /O
JMS I (SYNC /02117-4765 '5
JMS I (DVCTEN /02120-4764 '4
JMS I (WRHDR /02121-4763 '3
JMP I (STRTEN /02122-5762 /2
REC1, CLA CMA /02123-7240 :
DCA YN /02124-3031 XY
JMS I HELP /02125-4430 $X
MOUCH /02126-5737 /_
JMS I HELP /02127-4430 $X
MYFORG /02130-5743 /#
JMS I (SYNC /02131-4765 '5
JMS I (DVCTEN /02132-4764 '4
JMS I (WRHDR /02133-4763 '3
JMP I (REC4 /02134-5761 /1
JMS I HELP /02135-4430 $X
MOUCH /02136-5737 /_
JMS I HELP /02137-4430 $X
MPRSW /02140-5762 /2
REC2, JMS I (SYNC /02141-4765 '5
JMS I (DVCTEN /02142-4764 '4
JMS I (WRHDR /02143-4763 '3
JMP I (REC3 /02144-5760 /0
JMS I (MULTPR /02145-4757 '/
MOUCH /02146-5737 /_
MDUMMY /02147-6003 0C
MWRNEN /02150-6024 0T
MGHELP /02151-6047 0'
0000 /02152-0000 @@
JMP REC2 /02153-5341 +!
JMS I 0057 /02154-4457 $/
JMS I 0101 /02155-4501 %A
ISZ 2004 /02156-2204 RD
PAGE
DESLBL, 0000 /02200-0000 @@
JMS I (WRDATE /02201-4777 '?
TAD (HDRLBL-1 /02202-1376 K>
JMS I (ZLOCS /02203-4775 '=
-200 /02204-7600 >@
JMS I HELP /02205-4430 $X
MDESAS /02206-5147 )'
JMS I HELP /02207-4430 $X
M127CH /02210-5175 )=
JMS I HELP /02211-4430 $X
MTERMZ /02212-5221 *Q
JMS I HELP /02213-4430 $X
MTERCR /02214-5245 *%
JMS I PRINT /02215-4426 $V
MDESLB /02216-5136 )^
TAD (-200 /02217-1374 K<
DCA LBLCNT /02220-3024 XT
TAD (HDRLBL /02221-1373 K;
DCA LBLPNT /02222-3025 XU
JMP LBLSTR /02223-5230 *X
TAD (215 /02224-1372 K:
JMS LBLGET /02225-4236 "^
TAD (212 /02226-1371 K9
JMS LBLGET /02227-4236 "^
LBLSTR, JMS GETLIN /02230-4317 #O
TAD I GETLPT /02231-1413 LK
SNA /02232-7450 <(
JMP LBLSTR-4 /02233-5224 *T
JMS LBLGET /02234-4236 "^
JMP LBLSTR+1 /02235-5231 *Y
LBLGET, 0000 /02236-0000 @@
CDF 10 /02237-6211 2I
DCA I LBLPNT /02240-3425 \U
TAD I LBLPNT /02241-1425 LU
CDF 0 /02242-6201 2A
TAD (-232 /02243-1370 K8
SNA CLA /02244-7650 >(
JMP LBLOUT /02245-5253 *+
ISZ LBLPNT /02246-2025 PU
ISZ LBLCNT /02247-2024 PT
JMP I LBLGET /02250-5636 .^
JMS I PRINT /02251-4426 $V
MTH128 /02252-5265 *5
LBLOUT, TAD (232 /02253-1367 K7
CDF 10 /02254-6211 2I
DCA I LBLPNT /02255-3425 \U
CDF 0 /02256-6201 2A
JMP I DESLBL /02257-5600 .@
WRALL, 0000 /02260-0000 @@
ISZ WRITOK /02261-2023 PS
SKP /02262-7410 <H
JMP I WRALL /02263-5660 .0
TAD (DIRBUF /02264-1375 K=
JMS I (ZLOCS /02265-4775 '=
-6 /02266-7772 ?:
CDF 10 /02267-6211 2I
TAD I (HDRSTR /02270-1766 O6
DCA I (DIRSTR /02271-3765 _5
CLA CMA /02272-7240 :
DCA I (DIRBUF /02273-3775 _=
CLA CMA /02274-7240 :
DCA I (DIRADD /02275-3764 _4
TAD I (HDRLEN /02276-1763 O3
TAD I (DIRSTR /02277-1765 O5
DCA I (DIRFIL /02300-3762 _2
CDF 0 /02301-6201 2A
JMS I ENTRY /02302-4443 $#
5210 /02303-5210 *H
DIRBUF /02304-2000 P@
AND 0001 /02305-0001 @A
HLT /02306-7402 <B
JMP I WRALL /02307-5660 .0
WRHDR, 0000 /02310-0000 @@
JMS I ENTRY /02311-4443 $#
4210 /02312-4210 "H
DIRHDR /02313-4400 $@
0006 /02314-0006 @F
JMP I (DVCTER /02315-5761 /1
JMP I WRHDR /02316-5710 /H
GETLIN, 0000 /02317-0000 @@
CDF 0 /02320-6201 2A
JMS I READ /02321-4435 $]
TAD (INBUF-1 /02322-1360 K0
DCA GETLPT /02323-3013 XK
JMP I GETLIN /02324-5717 /O
PRNTNZ, 0000 /02325-0000 @@
CDF 0 /02326-6201 2A
DCA PNT1 /02327-3045 X%
TAD I PRNTNZ /02330-1725 OU
DCA COCNT /02331-3047 X'
ISZ PRNTNZ /02332-2325 SU
PRNTNL, CDF 10 /02333-6211 2I
TAD I PNT1 /02334-1445 L%
CDF 0 /02335-6201 2A
SZA /02336-7440 <
JMS I TYPE /02337-4436 $^
ISZ PNT1 /02340-2045 P%
ISZ COCNT /02341-2047 P'
JMP PRNTNL /02342-5333 +[
JMP I PRNTNZ /02343-5725 /U
TAD 0176 /02344-1176 I>
KRS /02345-6034 0\
TAD 2375 /02346-1375 K=
SNA /02347-7450 <(
KSF /02350-6031 0Y
JMP I 2343 /02351-5743 /#
JMP I 0154 /02352-5554 -,
JMS I 0162 /02353-4562 %2
CIF CDF 54 /02354-6257 2/
CIF CDF 60 /02355-6263 23
AND 0044 /02356-0044 @$
JMS I 0164 /02357-4564 %4
PAGE
CHKUSA, 0000 /02400-0000 @@
CMA IAC /02401-7041 8!
DCA TMP /02402-3042 X"
TAD (DVLNAM-1 /02403-1377 K?
DCA XR2 /02404-3012 XJ
TAD I XR2 /02405-1412 LJ
SNA /02406-7450 <(
JMP I CHKUSA /02407-5600 .@
TAD TMP /02410-1042 H"
SZA CLA /02411-7640 >
JMP .-5 /02412-5205 *E
JMS I PRINT /02413-4426 $V
CHAR1 /02414-0037 @_
JMS I PRINT /02415-4426 $V
MCONFL /02416-6067 07
TAD XR2 /02417-1012 HJ
TAD (HDRUSA /02420-1376 K>
DCA TMP /02421-3042 X"
TAD TMP /02422-1042 H"
CLL RAL /02423-7104 9D
TAD TMP /02424-1042 H"
TAD (MDVLST /02425-1375 K=
DCA .+2 /02426-3230 ZX
JMS I PRINT /02427-4426 $V
MDVLST /02430-3355 [-
JMS I CRLF /02431-4427 $W
JMS I PRINT /02432-4426 $V
MTRYAG /02433-6061 01
JMS I (SWIT /02434-4774 '<
JMP I (USAAGN /02435-5773 /;
JMP I CHKUSA /02436-5600 .@
SYNC, 0000 /02437-0000 @@
KSF /02440-6031 0Y
JMP .-1 /02441-5240 *
KCC /02442-6032 0Z
JMP I SYNC /02443-5637 ._
BDEVNA, 0000 /02444-0000 @@
DCA CHAR1 /02445-3037 X_
DCA CHAR2 /02446-3040 X
DCA TMP /02447-3042 X"
TAD (CHAR1 /02450-1372 K:
DCA CHPNT /02451-3052 X*
CLA CMA /02452-7240 :
DCA CHHALF /02453-3053 X+
BDEV4, DCA CHCNT /02454-3051 X)
TAD I GETLPT /02455-1413 LK
TAD (-240 /02456-1371 K9
SNA /02457-7450 <(
JMP .-3 /02460-5255 *-
TAD (240 /02461-1370 K8
SKP /02462-7410 <H
BDEVOF, TAD I GETLPT /02463-1413 LK
DCA CHTMP /02464-3050 X(
TAD CHTMP /02465-1050 H(
TAD (-256 /02466-1367 K7
SNA /02467-7450 <(
JMP BDEVNX /02470-5327 +W
TAD (-2 /02471-1366 K6
CLL /02472-7100 9@
TAD (-12 /02473-1365 K5
SNL CLA /02474-7620 >P
JMP BDEVOK /02475-5304 +D
TAD (-301 /02476-1364 K4
TAD CHTMP /02477-1050 H(
CLL CML /02500-7120 9P
TAD (-32 /02501-1363 K3
SNL CLA /02502-7620 >P
JMP BDEVEN /02503-5334 +\
BDEVOK, TAD CHCNT /02504-1051 H)
TAD (-6 /02505-1362 K2
SMA CLA /02506-7700 ?@
JMP BDEVOF /02507-5263 *3
TAD CHCNT /02510-1051 H)
CLL RAR /02511-7110 9H
TAD CHPNT /02512-1052 H*
DCA PNT1 /02513-3045 X%
TAD CHTMP /02514-1050 H(
AND (77 /02515-0361 C1
SZL /02516-7430 <X
JMP .+4 /02517-5323 +S
RTL /02520-7006 8F
RTL /02521-7006 8F
RTL /02522-7006 8F
TAD I PNT1 /02523-1445 L%
DCA I PNT1 /02524-3445 \%
ISZ CHCNT /02525-2051 P)
JMP BDEVOF /02526-5263 *3
BDEVNX, ISZ CHHALF /02527-2053 P+
JMP BDEVEN /02530-5334 +\
ISZ CHPNT /02531-2052 P*
TAD (4 /02532-1360 K0
JMP BDEV4 /02533-5254 *,
BDEVEN, TAD CHCNT /02534-1051 H)
SZA CLA /02535-7640 >
ISZ BDEVNA /02536-2244 R$
JMP I BDEVNA /02537-5644 .$
XTYPE, 0000 /02540-0000 @@
JMP .+3 /02541-5344 +$
TSF /02542-6041 0!
JMP .-1 /02543-5342 +"
TLS /02544-6046 0&
CLA /02545-7200 :@
TAD (NOP /02546-1357 K/
DCA XTYPE+1 /02547-3341 [!
JMP I XTYPE /02550-5740 /
SKP /02551-7410 <H
JMP 2565 /02552-5365 +5
ISZ 2570 /02553-2370 S8
JMP 2560 /02554-5360 +0
CLA CMA /02555-7240 :
DCA 2570 /02556-3370 [8
PAGE
XREAD, AND 0000 /02600-0000 @@
TAD (": /02601-1377 K?
JMS I TYPE /02602-4436 $^
DCA DELFLG /02603-3044 X$
TAD (INBUF-1 /02604-1376 K>
DCA GETLPT /02605-3013 XK
PRIGN, KSF /02606-6031 0Y
JMP .-1 /02607-5206 *F
TAD (200 /02610-1375 K=
KRS /02611-6034 0\
DCA CHAR1 /02612-3037 X_
KCC /02613-6032 0Z
JMS SWITCH /02614-4335 #]
-225 /^U /02615-7553 =+
PRCTL /02616-2672 V:
-215 /CR /02617-7563 =3
PRCR /02620-2651 V)
-377 /DEL /02621-7401 <A
PRDEL /02622-2711 WI
-375 /} /02623-7403 <C
PRESC /02624-2705 WE
-376 /~ /02625-7402 <B
PRESC /02626-2705 WE
-233 /ESC /02627-7545 =%
PRESC /02630-2705 WE
-212 /LF /02631-7566 =6
PRLF /02632-2752 W*
-200 /NULL /02633-7600 >@
PRIGN /02634-2606 VF
-217 /^O /02635-7561 =1
PRIGN /02636-2606 VF
-203 /^C /02637-7575 ==
KMON+5 /02640-7605 >E
0000 /02641-0000 @@
JMS PRSUB /02642-4261 "1
TAD CHAR1 /02643-1037 H_
DCA I GETLPT /02644-3413 \K
TAD GETLPT /02645-1013 HK
TAD (-INBUF-110 /02646-1374 K<
SPA CLA /02647-7710 ?H
JMP PRIGN /02650-5206 *F
PRCR, JMS I CRLF /02651-4427 $W
TAD GETLPT /02652-1013 HK
TAD (-INBUF+1 /02653-1373 K;
SNA CLA /02654-7650 >(
JMP XREAD+1 /02655-5201 *A
DCA I GETLPT /02656-3413 \K
DCA I GETLPT /02657-3413 \K
JMP I XREAD /02660-5600 .@
PRSUB, 0000 /02661-0000 @@
ISZ DELFLG /02662-2044 P$
JMP .+3 /02663-5266 *6
TAD (334 /\ /02664-1372 K:
JMS I TYPE /02665-4436 $^
DCA DELFLG /02666-3044 X$
TAD CHAR1 /02667-1037 H_
JMS I TYPE /02670-4436 $^
JMP I PRSUB /02671-5661 .1
PRCTL, TAD (336 /^ /02672-1371 K9
JMS I TYPE /02673-4436 $^
TAD CHAR1 /02674-1037 H_
TAD (100 /02675-1370 K8
JMS I TYPE /02676-4436 $^
PRCTL2, JMS I CRLF /02677-4427 $W
ISZ SWITCH /02700-2335 S]
TAD I SWITCH /02701-1735 O]
SZA CLA /02702-7640 >
JMP XREAD+3 /02703-5203 *C
JMP XREAD+1 /02704-5201 *A
PRESC, TAD (244 /$ /02705-1367 K7
DCA CHAR1 /02706-3037 X_
JMS PRSUB /02707-4261 "1
JMP PRCR+1 /02710-5252 **
PRDEL, TAD GETLPT /02711-1013 HK
TAD (-INBUF+1 /02712-1373 K;
SNA CLA /02713-7650 >(
JMP PREMP /02714-5331 +Y
TAD (334 /02715-1372 K:
ISZ DELFLG /02716-2044 P$
JMS I TYPE /02717-4436 $^
CLA CMA /02720-7240 :
DCA DELFLG /02721-3044 X$
TAD GETLPT /02722-1013 HK
DCA PNT1 /02723-3045 X%
TAD I PNT1 /02724-1445 L%
JMS I TYPE /02725-4436 $^
PRLF2, CLA CMA /02726-7240 :
TAD GETLPT /02727-1013 HK
JMP PRIGN-1 /02730-5205 *E
PREMP, ISZ DELFLG /02731-2044 P$
JMP PRCTL2 /02732-5277 *?
TAD (334 /02733-1372 K:
JMP PRCTL2-1 /02734-5276 *>
SWITCH, 0000 /02735-0000 @@
TAD I SWITCH /02736-1735 O]
ISZ SWITCH /02737-2335 S]
SNA /02740-7450 <(
JMP I SWITCH /02741-5735 /]
TAD CHAR1 /02742-1037 H_
SNA CLA /02743-7650 >(
JMP .+3 /02744-5347 +'
ISZ SWITCH /02745-2335 S]
JMP SWITCH+1 /02746-5336 +^
TAD I SWITCH /02747-1735 O]
DCA PNT1 /02750-3045 X%
JMP I PNT1 /02751-5445 ,%
PRLF, JMS I CRLF /02752-4427 $W
DCA I GETLPT /02753-3413 \K
TAD (INBUF-1 /02754-1376 K>
DCA 0017 /02755-3017 XO
TAD I 0017 /02756-1417 LO
SNA /02757-7450 <(
JMP PRLF2 /02760-5326 +V
JMS I TYPE /02761-4436 $^
JMP .-4 /02762-5356 +.
MQL CLA /02763-7621 >Q
JMS 2753 /02764-4353 #+
CML /02765-7020 8P
TAD 2773 /02766-1373 K;
PAGE
WRDATE, 0000 /03000-0000 @@
TAD I (BATCCL /03001-1777 O?
AND (0600 /03002-0376 C>
CDF 10 /03003-6211 2I
DCA I (HDRBAT /03004-3775 _=
TAD I (SYSDAT /03005-1774 O<
DCA I (HDRDAT /03006-3773 _;
CDF 0 /03007-6201 2A
JMP I WRDATE /03010-5600 .@
ENDPRC, JMS I PRINT /03011-4426 $V
MSQVOL /03012-5660 .0
JMS I (SWIT /03013-4772 ':
SKP /03014-7410 <H
JMP I (STRTEN /03015-5771 /9
JMS I CRLF /03016-4427 $W
JMS I PRINT /03017-4426 $V
MMNTNV /03020-5677 .?
JMS I (SWIT /03021-4772 ':
NOP /03022-7000 8@
CDF 10 /03023-6211 2I
ISZ I (HDRVOL /03024-2770 W8
CLA CLL /03025-7300 ;@
TAD (DIRHDR-1 /03026-1367 K7
DCA ENFROM /03027-3014 XL
TAD (SAVHDR+400-1 /03030-1366 K6
DCA ENTO /03031-3015 XM
TAD I ENFROM /03032-1414 LL
DCA I ENTO /03033-3415 \M
TAD ENTO /03034-1015 HM
TAD (-SAVHDR-1000 /03035-1365 K5
SPA CLA /03036-7710 ?H
JMP .-5 /03037-5232 *Z
CDF 0 /03040-6201 2A
JMS I ENTRY /03041-4443 $#
1410 /03042-1410 LH
2000 /03043-2000 P@
0001 /03044-0001 @A
JMP .-4 /03045-5241 *!
CLA CMA /03046-7240 :
DCA WRITOK /03047-3023 XS
CDF 10 /03050-6211 2I
TAD I (DIRBUF /03051-1765 O5
CLL /03052-7100 9@
TAD (100 /03053-1364 K4
SNL CLA /03054-7620 >P
JMP BADHDR /03055-5300 +@
DCA I (SAVNXT /03056-3763 _3
TAD (DIRNXT /03057-1362 K2
DCA DIRPNT /03060-3022 XR
TAD I DIRPNT /03061-1422 LR
SNA CLA /03062-7650 >(
JMP .+5 /03063-5270 *8
TAD (400 /03064-1361 K1
TAD DIRPNT /03065-1022 HR
DCA DIRPNT /03066-3022 XR
JMP .-6 /03067-5261 *1
CDF 0 /03070-6201 2A
TAD DIRPNT /03071-1022 HR
TAD (-DIRHDR /03072-1360 K0
SPA CLA /03073-7710 ?H
JMP BADHDR+1 /03074-5301 +A
JMS I PRINT /03075-4426 $V
MDIRPA /03076-3767 _7
JMP I KMEXIT /03077-5432 ,Z
BADHDR, DCA WRITOK /03100-3023 XS
CDF 10 /03101-6211 2I
CLA CLL /03102-7300 ;@
DCA PRNTIT /03103-3020 XP
TAD (DIRHDR-1 /03104-1367 K7
DCA ENTO /03105-3015 XM
TAD (5400-1 /03106-1366 K6
DCA ENFROM /03107-3014 XL
TAD I ENFROM /03110-1414 LL
DCA I ENTO /03111-3415 \M
TAD ENTO /03112-1015 HM
TAD (-6000 /03113-1365 K5
SPA CLA /03114-7710 ?H
JMP .-5 /03115-5310 +H
CDF 0 /03116-6201 2A
CLA CLL /03117-7300 ;@
DCA PRNTIT /03120-3020 XP
JMP I (GUDVNM+1 /03121-5757 //
ISZ 0062 /03122-2062 P2
JMP 3140 /03123-5340 +
TAD 0027 /03124-1027 HW
DCA 0035 /03125-3035 X]
JMS I 0143 /03126-4543 %#
TAD PRNTIT /03127-1020 HP
DCA 0014 /03130-3014 XL
TAD WRFLG /03131-1021 HQ
DCA 0015 /03132-3015 XM
TAD DIRPNT /03133-1022 HR
DCA 0016 /03134-3016 XN
TAD 0035 /03135-1035 H]
DCA 0017 /03136-3017 XO
JMP 3011 /03137-5211 *I
TAD 0027 /03140-1027 HW
CMA IAC /03141-7041 8!
TAD 0035 /03142-1035 H]
SNA CLA /03143-7650 >(
JMP 3127 /03144-5327 +W
JMS I 0142 /03145-4542 %"
JMP 0144 /03146-5144 )$
JMP 3011 /03147-5211 *I
DCA I 3000 /03150-3600 ^@
DCA I 3056 /03151-3656 ^.
JMP I READ /03152-5435 ,]
DCA I 3044 /03153-3644 ^$
DCA I 3065 /03154-3665 ^5
DCA I 3065 /03155-3665 ^5
DCA I 3047 /03156-3647 ^'
PAGE
DVLENT, 0000/03200-0000 @@ /0: TTY
0000/03201-0000 @@ /1: PTR
0000/03202-0000 @@ /2: PTP
7134/03203-7134 9\ /3: CDR
0000/03204-0000 @@ /4: LPT
1520/03205-1520 MP /5: RK08 (1520= - DECIMAL 3248)
6001/03206-6001 0A /6: RF08 IN VARIOUS SIZES
4001/03207-4001 A /7: "
2001/03210-2001 PA /10: "
0001/03211-0001 @A /11: "(CHEATS A BLOCK ON LARGEST TO KEEP IT NON-ZERO)
7601/03212-7601 >A /12: DF32 IN VARIOUS SIZES
7401/03213-7401 <A /13: "
7201/03214-7201 :A /14: "
7001/03215-7001 8A /15: "(CHEATS A BLOCK TO AVOID HARDWARE TROUBLE)
6437/03216-6437 4_ /16: TC08 DECTAPE
6437/03217-6437 4_ /17: LINCTAPE
0000/03220-0000 @@ /20: MAGTAPE
6437/03221-6437 4_ /21: TD8E
0000/03222-0000 @@ /22: BAT: BATCH HANDLER
1520/03223-1520 MP /23: 1/2 OF AN RK8E
0000/03224-0000 @@ /24: NULL: NULL HANDLER
7022/03225-7022 8R /25: RX01 FLOPPY DISK
0017/03226-0000 @@ /26: RL01 A,B BIG
0000/03227-0000 @@ /27: TA8E CASSETTE
0000/03230-0000 @@ /30: PDP-12 SCOPE AND TEK DISPLAY
4027/03231-0000 @@ /31: RL01 C SMALL
0000/03232-0000 @@ /32: NEW RX MUST BE ZERO TO EXAMINE MEDIA
7600/03233-0000 @@ /33: VX EXT.MEM. PLATTER #1
7400/03234-0000 @@ /34: VX EXT.MEM. PLATTER #1,2
7200/03235-0000 @@ /35: VX EXT.MEM. PLATTER #1,2,3
0000/03236-0000 @@ /36: DUMP
7000/03237-0000 @@ /37: TU58 DECTAPE II (6-BIT BYTES)
1520/03240-0000 @@ /40: SYS. IND. MOD43 DISK
6556/03241-0000 @@ /41: RB01 1.5 DENSITY FLOPPY - INTERLEAVE 2
6556/03242-0000 @@ /42: RB07 1.5 DENSITY FLOPPY - INTERLEAVE 4
0000/03243-0000 @@ /43: EDOU
0000/03244-0000 @@ /44: EDIN
0000/03245-0000 @@ /USER DEVICES
0000/03246-0000 @@ /50: MULTI8 VIRTUAL DEV
0000/03247-0000 @@ /51: "
0000/03250-0000 @@ /52: "
0000/03251-0000 @@ /53: "
0000/03252-1520 MP /54: "
0000/03253-0000 @@ /55: "
0000/03254-0000 @@ /56: "
0000/03255-0000 @@ /57: "
0000/03256-0000 @@ /60: ASYNCHRONOUS COMMUNICATION
0000/03257-0000 @@ /XX:
0000/03260-0000 @@ /ZBBLOCK
0000/03261-0000 @@
0000/03262-0000 @@
0000/03263-0000 @@
0000/03264-0000 @@
0000/03265-0000 @@
0000/03266-0000 @@
0000/03267-0000 @@
0000/03270-0000 @@
0000/03271-0000 @@
0000/03272-0000 @@
0000/03273-0000 @@
0000/03274-0000 @@
0000/03275-0000 @@
0000/03276-0000 @@
0000/03277-0000 @@
DVLNAM, 4631 /SYS /03300-4631 &Y
5723 /DSK /03301-5723 /S
5524 /TTY /03302-5524 -T
4020 /LPT /03303-4020 P
4024 /PTP /03304-4024 T
4224 /PTR /03305-4224 "T
6504 /CDR /03306-6504 5D
4604 /DTA0 /03307-4604 &D
4605 /DTA1 /03310-4605 &E
4606 /DTA2 /03311-4606 &F
4607 /DTA3 /03312-4607 &G
4610 /DTA4 /03313-4610 &H
4611 /DTA5 /03314-4611 &I
4612 /DTA6 /03315-4612 &J
4613 /DTA7 /03316-4613 &K
4215 /RL0A /03317-5604 .D
4216 /RL0B /03320-5605 .E
4315 /RL1A /03321-5606 .F
4316 /RL1B /03322-5607 .G
4217 /RL0C /03323-5610 .H
4317 /RL1C /03324-5611 .I
4417 /RL2C /03325-5612 .J
4517 /RL3C /03326-5613 .K
6373 /RKA0 /03327-6373 3;
6374 /RKA1 /03330-6374 3<
6375 /RKA2 /03331-6375 3=
6376 /RKA3 /03332-6376 3>
6473 /RKB0 /03333-6473 4;
6474 /RKB1 /03334-6474 4<
6475 /RKB2 /03335-6475 4=
6476 /RKB3 /03336-6476 4>
6410 /RXA0 /03337-6410 4H
6411 /RXA1 /03340-6411 4I
6510 /RXB0 /03341-6510 5H
6511 /RXB1 /03342-6511 5I
0406 /DF /03343-0406 DF
2206 /RF /03344-2206 RF
2426 /TV /03345-2426 TV
7241 /NULL /03346-7241 :!
4503 /CSA0 /03347-4503 %C
4504 /CSA1 /03350-4504 %D
0303 /CC /03351-0303 CC
5704 /MTA0 /03352-5704 /D
5705 /MTA1 /03353-5705 /E
6362 /RBA0
6363 /RBA1
6431 /EDOU
5622 /EDIN
0000 /@@ /03354-0000 @@
MDVLST, TEXT "SYS"
0000
TEXT "DSK"
0000
TEXT "TTY"
0000
TEXT "LPT"
0000
TEXT "PTP"
0000
TEXT "PTR"
0000
TEXT "CDR"
0000
TEXT "DTA0"
TEXT "DTA1"
TEXT "DTA2"
TEXT "DTA3"
TEXT "DTA4"
TEXT "DTA5"
TEXT "DTA6"
TEXT "DTA7"
TEXT "RL0A"
TEXT "RL0B"
TEXT "RL1A"
TEXT "RL1B"
TEXT "RL0C"
TEXT "RL1C"
TEXT "RL2C"
TEXT "RL3C"
TEXT "RKA0"
TEXT "RKA1"
TEXT "RKA2"
TEXT "RKA3"
TEXT "RKB0"
TEXT "RKB1"
TEXT "RKB2"
TEXT "RKB3"
TEXT "RXA0"
TEXT "RXA1"
TEXT "RXB0"
TEXT "RXB1"
TEXT "DF"
0000
TEXT "RF"
0000
TEXT "TV"
0000
TEXT "NULL"
TEXT "CSA0"
TEXT "CSA1"
TEXT "CC"
0000
TEXT "MTA0"
TEXT "MTA1"
TEXT "RBA0"
TEXT "RBA1"
TEXT "EDOU"
TEXT "EDIN"
M8MLTO /03561-4614 &L
M7MLTI /03562-4605 &E
M6ETOS /03563-4577 %?
M5OS78 /03564-4571 %9
M4DECS /03565-4557 %/
M3OS12 /03566-4551 %)
M2OS8 /03567-4544 %$
M1PS8 /03570-4537 %_
MSIDSW, M0EQUN /03571-4527 %W
MCONER, TEXT "NOT NUMERIC INPUT"
MPLYN, TEXT "PLEASE ANSWER YES OR NO"
MWHELP, TEXT "DO YOU WANT HELP?"
MYES, TEXT "YES"
MNO, TEXT "NO"
MPARBL, TEXT "THIS PROGRAM ESTABISHES A PARAMETER BLOCK"
MDEC8, TEXT "ON DECSYSTEM-8 FILE STRUCTURED DEVICES"
MINKM, TEXT "INPUT IS VIA THE REGULAR MONITOR LINE SCANNER"
MDEVNA, TEXT "DEVICE NAME"
MBADIN, TEXT "?BAD INPUT"
MDEVNF, TEXT "DEVICE NOT FILE STRUCTURED"
MDIRPA, TEXT "DIRECTORY OCCUPIES PARAMETER BLOCK"
MDVHPA, TEXT "DEVICE HAS PARAMETER BLOCK"
MDMPIT, TEXT "DO YOU WISH TO DUMP IT?"
MERB16, TEXT "HANDLER ERROR READING BLOCKS 1-6 (PARITY?)"
MCONTI, TEXT "SHALL I CONTINUE?"
MDIRZE, TEXT "DIRECTORY WILL BE ZEROED"
MSTDVL, TEXT "STANDARD DEVICE LENGTH?"
MDEVSL, TEXT "MOST DEVICES HAVE A STANDARD LENGTH"
MAYNMQ, TEXT "ANSWER YES TO THE NEXT QUESTION"
MNSDEV, TEXT "UNLESS YOU HAVE A NON-STANDARD DEVICE."
MSTDVA, TEXT "STANDARD DEVICES ARE:"
MVDEVS, TEXT " DTAN,LTAN,DF32,RF08,RK8,RXN,TD8E"
MDVLDC, TEXT "DEVICE LENGTH (DECIMAL)"
MSTSQZ, TEXT "SHALL I USE STANDARD SQUASH AND ZERO PARAMETERS?"
MSQZE, TEXT /FOR "SQUASH" AND "ZERO" THE FOLLOWING ARE OPTIONS:/
MNOZER, 4040
MNOZE2, TEXT /NO "ZERO" ALLOWED/
MONLSQ, TEXT / ONLY "SQUASH" TO MYSELF/
MSQPER, TEXT / NO "SQUASH" PERIOD/
MSTDSQ, TEXT "STANDARD IS ONLY SELF SQUASH, NO ZERO"
MZEALL, TEXT /"ZERO" ALLOWED?/
MSQODV, TEXT /"SQUASH" FROM OTHER DEVICE ALLOWED?/
MSQMYS, TEXT /"SQUASH" TO MYSELF?/
MISSYS, TEXT "IS A SYSTEM PRESENT?"
MSYSID, TEXT "SYSTEM ID: "
M0EQUN, TEXT " 0=UNASSIGNED "
M1PS8, TEXT " 1=PS/8 "
M2OS8, TEXT " 2=OS/8 "
M3OS12, TEXT " 3=OS/12 "
M4DECS, TEXT " 4=DECSYSTEM-8/78 "
M5OS78, TEXT " 5=OS/78 "
M6ETOS, TEXT " 6=ETOS/8 "
M7MLTI, TEXT " 7=MULTI/8 "
M8MLTO, TEXT " 8=MULTOS/8 "
MVERSY, TEXT "VERSION NUMBER (ASSOCIATED WITH SYSTEM ARE; IE. 1,2,3 ETC.)"
MVERCO, TEXT "VERSION RELEASE CODE (IE. 1=A,2=B,3=C ETC.)"
MUDVNM, TEXT "USER ASSIGNED DEVICE NAME "
MUSALO, TEXT "THE USER ASSIGNED NAME IS A LOGICAL NAME USED"
MAUTOA, TEXT "BY AUTOAS. IT IS RECOMMENDED THAT THIS NAME"
M2CHAR, TEXT "BE A TWO CHARACTER NAME STARTING WITH AN ALPHA"
MUNIQE, TEXT "TO INSURE UNIQUENESS."
MVOLID, TEXT " VOLUME ID "
MVOLEL, TEXT "THE VOLUME ID IS AN EXTRA LABEL FOR IDENTIFICATION"
MDECLT, TEXT "PURPOSES ONLY. A DECIMAL NUMBER < 4096"
MDESLB, TEXT "DESCRIPTIVE LABEL"
MDESAS, TEXT "THE DESCRIPTIVE LABEL MAY BE ANY STRING OF"
M127CH, TEXT "UP TO 127 CHARACTERS ON MULTIPLE LINES"
MTERMZ, TEXT "IT MUST BE TERMINATED WITH A ^Z (CNT/Z)"
MTERCR, TEXT "FOLLOWED BY A CARRIAGE RETURN."
MTH128, TEXT "MORE THAN 128 CHARS INPUT - TERMINATION FORCED"
MALLSQ, TEXT /ALL FORMS OF "SQUASH" ALLOWED/
MVERS, TEXT "VERSION: "
MSTDST, TEXT "USE STANDARD START OF FILE STORAGE?"
MFSTBL, TEXT "FILE STORAGE STARTS AT BLOCK (DECIMAL) "
MNOSYS, TEXT "NO SYSTEM PRESENT"
MNXPRZ, TEXT /THE NEXT PARAMETER IS USED FOR "ZERO" TO DETERMINE/
MSTBEG, TEXT "WHERE FILE STORAGE BEGINS"
MSTD07, TEXT "STANDARD IS 7 FOR NON-SYSTEM DEVICES,"
MSTD56, TEXT "65 FOR SYSTEM DEVICE"
MMMMMT, TEXT "MMMM!! THAT FEELS BETTER!"
MSCRLL, TEXT "SCRATCH A LITTLE TO THE LEFT...."
MMMMMM, TEXT "MMMMMMM!!"
MCHNG, TEXT "**CHANGE THIS**?"
MANABC, TEXT "PLEASE ANSWER A, B, OR C "
MWISH, TEXT "DO YOU WISH TO"
MWISHA, TEXT " A:REPLACE"
MWISHB, TEXT " B:SELECIVELY DECIDDE"
MWISHC, TEXT " C:PRINT IT?"
MSQVOL, TEXT "SEQUENTIAL VOLUMES (Y OR N)?"
MMNTNV, TEXT "MOUNT NEW VOLUME, THEN TYPE Y"
MWRENA, TEXT "PLEASE WRITE ENABLE THE DEVICE"
MOUCH, TEXT "OUCH!!"
MYFORG, TEXT "YOU FORGOT SOMETHING."
MTHNKS, TEXT "THANKS!"
MPRSW, TEXT "CLUE: YOU NEED TO PRESS A SWITCH"
MDUMMY, TEXT "YOU DUMMY! I CAN'T DO EVERYTHING"
MWRNEN, TEXT "THE DEVICE NEEDS TO BE WRITE ENABLED"
MGHELP, TEXT "NEXT TIME GET HELP!"
MTRYAG, TEXT "TRY ADAIN?"
MCONFL, TEXT " CONFLICTS WITH "
MHVERS, TEXT "HEADER VERSION 50"
MMON, TEXT "MON"
MTUES, TEXT "TUES"
MWEDN, TEXT "WEDNES"
MTHUR, TEXT "THURS"
MFRID, TEXT "FRI"
0000
PAGE
*200 /STARTING ADDRESS
NOPUNCH
*7200
HNDBUF, /ZBLOCK 400
FIELD 1
*2000
DIRBUF, 0 /ZBLOCK 2400
DIRSTR, 0
DIRNXT, 0
0
DIRADD, 0
0
DIRFIL, 0
*4400
DIRHDR, 0427
1203
HDRFLG, 0
HDRLEN, 0
HDRZEA, 0
HDRSQO, 0
HDRSQM, 0
HDRSYS, 0
*4410
HDRSTR, 7
*4476
HDRZ6, 0 /ZBLOCK 6
HDRUDV, 0
HDRUSA, ZBLOCK 4
HDRBLK, /ZBLOCK 73
HDRVOL, 0
HDRSID, 0
HDRVER, 0
HDRREL, 0
HDR10, 0
HDR11, 0
HDRDAT, 1234
HDRBAT, 0600
*4600
HDRLBL, 0
*DIRHDR+400
SAVHDR, 0
SAVSTR, 0
SAVNXT, 0
ENPUNCH
$$$$$$$$$$$$$$$$