File: HEAD50.LS of Disk: V50/Source/Source-Listing-PAL-2
(Source file text)
/HEADER.PA V50.1 PAL8-V50X 01-JUL-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 01-JUL-88 PAGE 1-1
0000 FIELD 0
0012 *0012
000012 0000 XR2, 0000
000013 1004 GETLPT, 1004
000014 7773 ENFROM, 7773
000015 1723 ENTO, 1723
000016 1020 1020
000017 0000 0000
000020 0000 PRNTIT, 0000
000021 7777 WRFLG, 7777
000022 0000 DIRPNT, 0000
000023 0000 WRITOK, 0000
000024 0000 LBLCNT, 0000
000025 0000 LBLPNT, 0000
000026 0230 PRINT, XPRINT
000027 2343 CRLF, XCRLF
000030 0264 HELP, XHELP
000031 0000 YN, 0000
000032 7605 KMEXIT, 7605
000033 7700 USR, 7700
000034 2444 RDEVNA, BDEVNA
000035 2600 READ, XREAD
000036 2540 TYPE, XTYPE
000037 0000 CHAR1, 0000
000040 0000 CHAR2, 0000
000041 0000 0000
000042 0000 TMP, 0000
000043 7200 ENTRY, 7200
000044 0000 DELFLG, 0000
000045 0000 PNT1, 0000
000046 0000 CNT, 0000
000047 0000 COCNT, 0000
000050 0000 CHTMP, 0000
000051 0000 CHCNT, 0000
000052 0000 CHPNT, 0000
000053 0000 CHHALF, 0000
0200 PAGE
PAGE2,
000200 7300 START, CLA CLL
000201 1777 TAD I (BATCCL
000202 7710 SPA CLA
000203 5432 JMP I KMEXIT
000204 6212 CIF 10
000205 4433 JMS I USR
000206 0010 0010
000207 1376 TAD (200
000210 3033 DCA USR
000211 4427 JMS I CRLF
000212 4426 JMS I PRINT
000213 5673 MHVERS
/HEADER.PA V50.1 PAL8-V50X 01-JUL-88 PAGE 1-2
000214 4427 JMS I CRLF
000215 4426 STRTEN, JMS I PRINT
000216 3637 MWHELP
000217 4300 JMS SWIT
000220 7240 CLA CMA
000221 3031 DCA YN
000222 5775 JMP I (GDEVNA
000223 0000 XPIND, 0000
000224 3037 DCA CHAR1
000225 1223 TAD XPIND
000226 3774 DCA I (SWITCH
000227 5773 JMP I (SWITCH+1
000230 0000 XPRINT, 0000
000231 6201 CDF 0
000232 6032 KCC
000233 1630 TAD I XPRINT
000234 3223 DCA XPIND
000235 2230 ISZ XPRINT
000236 1623 XPRNX, TAD I XPIND
000237 7012 RTR
000240 7012 RTR
000241 7012 RTR
000242 4251 JMS XPRBYT
000243 1623 TAD I XPIND
000244 4251 JMS XPRBYT
000245 2223 ISZ XPIND
000246 4772 JMS I (CTRLO
000247 5630 JMP I XPRINT
000250 5236 JMP XPRNX
000251 0000 XPRBYT, 0000
000252 0371 AND (77
000253 7450 SNA
000254 5630 JMP I XPRINT
000255 1370 TAD (-40
000256 7510 SPA
000257 1367 TAD (100
000260 1366 TAD (240
000261 4436 JMS I TYPE
000262 4765 JMS I (CTRLC
000263 5651 JMP I XPRBYT
000264 0000 XHELP, 0000
000265 6201 CDF 0
000266 1664 TAD I XHELP
000267 3275 DCA XANPR
000270 2264 ISZ XHELP
000271 1031 TAD YN
000272 7650 SNA CLA
000273 5664 JMP I XHELP
000274 4426 JMS I PRINT
000275 0000 XANPR, 0000
000276 4427 JMS I CRLF
/HEADER.PA V50.1 PAL8-V50X 01-JUL-88 PAGE 1-3
000277 5664 JMP I XHELP
000300 0000 SWIT, 0000
000301 6031 KSF
000302 5301 JMP .-1
000303 6036 KRB
000304 4223 JMS XPIND
000305 7575 -203
000306 7600 KMON
000307 7775 -3
000310 7600 KMON
000311 7447 -331 /Y
000312 0327 XYES
000313 7647 -131 /Y
000314 0327 XYES
000315 7462 -316 /N
000316 0332 XNO
000317 7662 -116 /N
000320 0332 XNO
000321 0000 0000
000322 4427 JMS I CRLF
000323 4426 JMS I PRINT
000324 3623 MPLYN
000325 4427 JMS I CRLF
000326 5301 JMP SWIT+1
000327 4426 XYES, JMS I PRINT
000330 3651 MYES
000331 5335 JMP XYES2
000332 2300 XNO, ISZ SWIT
000333 4426 JMS I PRINT
000334 3653 MNO
000335 4427 XYES2, JMS I CRLF
000336 5700 JMP I SWIT
000365 0516
000366 0240
000367 0100
000370 7740
000371 0077
000372 0530
000373 2734
000374 2733
000375 0400
000376 0200
000377 7777
0400 PAGE
000400 4430 GDEVNA, JMS I HELP
000401 3655 MPARBL
000402 4430 JMS I HELP
000403 3702 MDEC8
000404 4427 JMS I CRLF
000405 4430 JMS I HELP
000406 3722 MINKM
000407 4427 TRYA, JMS I CRLF
/HEADER.PA V50.1 PAL8-V50X 01-JUL-88 PAGE 1-4
000410 4426 JMS I PRINT
000411 3746 MDEVNA
000412 4777 JMS I (GETLIN
000413 4427 JMS I CRLF
000414 4434 JMS I RDEVNA
000415 7410 SKP
000416 5222 JMP .+4
000417 4426 JMS I PRINT
000420 3755 MBADIN
000421 5200 JMP GDEVNA
000422 1037 TAD CHAR1
000423 3233 DCA UDEVNA
000424 1040 TAD CHAR2
000425 3234 DCA UDEVNO
000426 1376 TAD (HNDBUF+1
000427 3235 DCA UDEVEN
000430 6212 CIF 10
000431 4433 JMS I USR
000432 0001 0001
000433 0000 UDEVNA, AND 0000 /NAME
000434 0000 UDEVNO, AND 0000 /DEVNO
000435 0000 UDEVEN, AND 0000 /ENTRY
000436 5217 JMP 0417
000437 1235 TAD UDEVEN
000440 3043 DCA ENTRY
000441 1234 TAD UDEVNO
000442 1375 TAD (DVCTWT-1
000443 3233 DCA UDEVNA
000444 6211 CDF 10
000445 1633 TAD I UDEVNA
000446 6201 CDF 0
000447 3774 DCA I (DVCTW
000450 1774 TAD I (DVCTW
000451 7710 SPA CLA
000452 5256 JMP .+4
000453 4426 JMS I PRINT
000454 3763 MDEVNF
000455 5207 JMP TRYA
000456 4773 JMS I (READIR
000457 1372 TAD (DIRHDR-1
000460 3012 DCA XR2
000461 6211 CDF 10
000462 1371 TAD (427
000463 3412 DCA I XR2
000464 1370 TAD (1203
000465 3412 DCA I XR2
000466 7240 CLA CMA
000467 3412 DCA I XR2
000470 4767 JMS I (UADVNM
000471 4766 JMS I (DESLBL
000472 4765 JMS I (SYSUPD
000473 4764 JMS I (DIRDAT
000474 4763 JMS I (GLNSTD
/JMS I (UADVNM
/JMS I (DESLBL
/HEADER.PA V50.1 PAL8-V50X 01-JUL-88 PAGE 1-5
000475 4762 JMS I (WRALL
000476 4761 JMS I (WRHDR
000477 5760 JMP I (ENDPRC
000500 0000 CHNGIT, 0000
000501 6201 CDF 0
000502 1020 TAD PRNTIT
000503 7650 SNA CLA
000504 5312 JMP CHNG1
000505 4427 JMS I CRLF
000506 4426 JMS I PRINT
000507 5365 MCHNG
000510 4757 JMS I (SWIT
000511 5314 JMP .+3
000512 2300 CHNG1, ISZ CHNGIT
000513 5700 JMP I CHNGIT
000514 3021 DCA WRFLG
000515 5700 JMP I CHNGIT
000516 0000 CTRLC, 0000
000517 6031 KSF
000520 5716 JMP I CTRLC
000521 6034 KRS
000522 1356 TAD (-203
000523 7640 SZA CLA
000524 5716 JMP I CTRLC
000525 6041 TSF
000526 5325 JMP .-1
000527 5755 JMP I (KMON
000530 0000 CTRLO, 0000
000531 6031 KSF
000532 5341 JMP CTRL2
000533 6034 KRS
000534 1354 TAD (-217
000535 7640 SZA CLA
000536 5341 JMP CTRL2
000537 6032 KCC
000540 5730 JMP I CTRLO
000541 2330 CTRL2, ISZ CTRLO
000542 5730 JMP I CTRLO
000554 7561
000555 7600
000556 7575
000557 0300
000560 3011
000561 2307
000562 2257
000563 1000
000564 1077
000565 1600
000566 2200
000567 2014
000570 1203
/HEADER.PA V50.1 PAL8-V50X 01-JUL-88 PAGE 1-6
000571 0427
000572 4377
000573 0600
000574 1747
000575 7757
000576 7201
000577 2316
0600 PAGE
000600 0000 READIR, 0000
000601 4443 JMS I ENTRY
000602 1410 1410
000603 2000 DIRBUF
000604 0001 0001
000605 5273 JMP READER
000606 7240 CLA CMA
000607 3023 DCA WRITOK
000610 6211 CDF 10
000611 1777 TAD I (DIRBUF
000612 7100 CLL
000613 1376 TAD (100
000614 7620 SNL CLA
000615 5240 JMP BADDIR
000616 3775 DCA I (SAVNXT
000617 1374 TAD (DIRNXT
000620 3022 DCA DIRPNT
000621 1422 TAD I DIRPNT
000622 7650 SNA CLA
000623 5230 JMP .+5
000624 1373 TAD (400
000625 1022 TAD DIRPNT
000626 3022 DCA DIRPNT
000627 5221 JMP .-6
000630 6201 CDF 0
000631 1022 TAD DIRPNT
000632 1372 TAD (-DIRHDR
000633 7710 SPA CLA
000634 5241 JMP BADDIR+1
000635 4426 JMS I PRINT
000636 4001 MDIRPA
000637 5432 JMP I KMEXIT
000640 3023 BADDIR, DCA WRITOK
000641 6211 CDF 10
000642 2771 ISZ I (HDRFLG
000643 5600 JMP I READIR
000644 4260 JMS MULTPR
000645 4023 MDVHPA
000646 5413 MWISH
000647 5423 MWISHA
000650 5431 MWISHB
000651 5444 MWISHC
000652 0000 0000
000653 4770 JMS I (GETABC
000654 5600 JMP I READIR
/HEADER.PA V50.1 PAL8-V50X 01-JUL-88 PAGE 1-7
000655 7240 CLA CMA
000656 3020 DCA PRNTIT
000657 5767 JMP I (GUDVNM
000660 0000 MULTPR, 0000
000661 6201 CDF 0
000662 1660 TAD I MULTPR
000663 2260 ISZ MULTPR
000664 7450 SNA
000665 5660 JMP I MULTPR
000666 3270 DCA .+2
000667 4426 JMS I PRINT
000670 0000 AND 0000
000671 4427 JMS I CRLF
000672 5261 JMP MULTPR+1
000673 4427 READER, JMS I CRLF
000674 4426 JMS I PRINT
000675 4056 MERB16
000676 4427 JMS I CRLF
000677 4426 JMS I PRINT
000700 4104 MCONTI
000701 4766 JMS I (SWIT
000702 7410 SKP
000703 5765 JMP I (STRTEN
000704 3023 DCA WRITOK
000705 4426 JMS I PRINT
000706 4116 MDIRZE
000707 4427 JMS I CRLF
000710 5600 JMP I READIR
000711 0000 CONDEC, 0000
000712 3047 DCA COCNT
000713 3045 CONLUP, DCA PNT1
000714 1413 TAD I GETLPT
000715 7450 SNA
000716 5351 JMP CONEXI
000717 3046 DCA CNT
000720 1046 TAD CNT
000721 1364 TAD (-260
000722 7100 CLL
000723 1363 TAD (-12
000724 7620 SNL CLA
000725 5334 JMP .+7
000726 1047 TAD COCNT
000727 7640 SZA CLA
000730 5351 JMP CONEXI
000731 4426 JMS I PRINT
000732 3612 MCONER
000733 5711 JMP I CONDEC
000734 1045 TAD PNT1
000735 7104 CLL RAL
000736 3045 DCA PNT1
000737 1045 TAD PNT1
000740 7104 CLL RAL
/HEADER.PA V50.1 PAL8-V50X 01-JUL-88 PAGE 1-8
000741 7104 CLL RAL
000742 1045 TAD PNT1
000743 3045 DCA PNT1
000744 1046 TAD CNT
000745 0362 AND (17
000746 1045 TAD PNT1
000747 2047 ISZ COCNT
000750 5313 JMP CONLUP
000751 1045 CONEXI, TAD PNT1
000752 2311 ISZ CONDEC
000753 5711 JMP I CONDEC
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
001001 4777 JMS I (WRDATE
001002 4776 JMS I (GEDVLN
001003 7650 SNA CLA
001004 5224 JMP ASKDVL
001005 4430 JMS I HELP
001006 4150 MDEVSL
001007 4430 JMS I HELP
001010 4172 MAYNMQ
001011 4430 JMS I HELP
001012 4212 MNSDEV
001013 4430 JMS I HELP
001014 4236 MSTDVA
001015 4430 JMS I HELP
001016 4251 MVDEVS
001017 4427 JMS I CRLF
001020 4426 JMS I PRINT
001021 4133 MSTDVL
001022 4775 JMS I (SWIT
001023 5233 JMP STDLEN
001024 4426 ASKDVL, JMS I PRINT
001025 4273 MDVLDC
001026 4774 JMS I (GETLIN
001027 4773 JMS I (CONDEC
001030 5224 JMP .-4
001031 7041 CMA IAC
/HEADER.PA V50.1 PAL8-V50X 01-JUL-88 PAGE 1-9
001032 7410 SKP
001033 4776 STDLEN, JMS I (GEDVLN
001034 6211 CDF 10
001035 3772 DCA I (HDRLEN
001036 6201 CDF 0
001037 4427 JMS I CRLF
001040 4430 BADSTR, JMS I HELP
001041 5215 MNXPRZ
001042 4430 JMS I HELP
001043 5247 MSTBEG
001044 4430 JMS I HELP
001045 5264 MSTD07
001046 4430 JMS I HELP
001047 5307 MSTD56
001050 6211 CDF 10
001051 1771 TAD I (HDRSYS
001052 7640 SZA CLA
001053 1370 TAD (61
001054 1367 TAD (7
001055 3766 DCA I (HDRSTR
001056 4426 JMS I PRINT
001057 5134 MSTDST /USE STD START
001060 4775 JMS I (SWIT
001061 5600 JMP I GLNSTD
001062 4426 JMS I PRINT
001063 5157 MFSTBL
001064 4774 JMS I (GETLIN
001065 4773 JMS I (CONDEC
001066 5262 JMP .-4
001067 6211 CDF 10
001070 3766 DCA I (HDRSTR
001071 1766 TAD I (HDRSTR
001072 6201 CDF 0
001073 1365 TAD (-7
001074 7710 SPA CLA
001075 5240 JMP BADSTR
001076 5600 JMP I GLNSTD
001077 0000 DIRDAT, AND 0000
001100 4777 JMS I (WRDATE
001101 4427 JMS I CRLF
001102 4430 JMS I HELP
001103 5704 MDIDAH
001104 4426 JMS I PRINT
001105 5733 MDIASK
001106 5312 JMP DIRASK
001107 7200 CLA
001110 4426 JMS I PRINT
001111 5752 MDIERR
001112 4774 DIRASK, JMS I (GETLIN
001113 4773 JMS I (CONDEC
001114 5307 JMP DIRASK-3
001115 6211 CDF 10
001116 1364 TAD (-3662 /-1970
001117 3763 DCA I (HDRDID
/HEADER.PA V50.1 PAL8-V50X 01-JUL-88 PAGE 1-10
001120 1763 TAD I (HDRDID
001121 7510 SPA
001122 5307 JMP DIRASK-3
001123 1362 TAD (-100 /-2034+1970
001124 7700 SMA CLA
001125 5307 JMP DIRASK-3
001126 6201 CDF 0
001127 5677 JMP I DIRDAT
001162 7700
001163 4411
001164 4116
001165 7771
001166 4410
001167 0007
001170 0061
001171 4407
001172 4403
001173 0711
001174 2316
001175 0300
001176 1736
001177 3000
1200 PAGE
001200 7240 GUDVNM, CLA CMA
001201 3021 DCA WRFLG
001202 4427 JMS I CRLF
001203 4426 JMS I PRINT
001204 4524 MUDVNM
001205 1377 TAD (HDRUSA
001206 4776 JMS I (PRNTNZ
001207 7774 -4
001210 4426 JMS I PRINT
001211 4662 MVOLID
001212 6211 CDF 10
001213 1775 TAD I (HDRVOL
001214 4774 JMS I (DECCON
001215 4773 JMS I (CHNGIT
001216 4772 JMS I (UADVNM
001217 4427 JMS I CRLF
001220 4426 JMS I PRINT
001221 4747 MDESLB
001222 4427 JMS I CRLF
001223 1371 TAD (HDRLBL
001224 4776 JMS I (PRNTNZ
001225 7600 -200
001226 4773 JMS I (CHNGIT
001227 4770 JMS I (DESLBL
001230 4427 JMS I CRLF
001231 6211 CDF 10
001232 1767 TAD I (HDRSYS
001233 7650 SNA CLA
001234 5261 JMP NOSID
001235 1766 TAD I (HDRSID
/HEADER.PA V50.1 PAL8-V50X 01-JUL-88 PAGE 1-11
001236 6201 CDF 0
001237 1365 TAD (MSIDSW
001240 3045 DCA PNT1
001241 1445 TAD I PNT1
001242 3246 DCA .+4
001243 4426 JMS I PRINT
001244 4334 MSYSID
001245 4426 JMS I PRINT
001246 0000 0000
001247 4426 JMS I PRINT
001250 5127 MVERS
001251 6211 CDF 10
001252 1764 TAD I (HDRVER
001253 4774 JMS I (DECCON
001254 6211 CDF 10
001255 1763 TAD I (HDRREL
001256 1362 TAD (300
001257 4436 JMS I TYPE
001260 5263 JMP NOSID+2
001261 4426 NOSID, JMS I PRINT
001262 5204 MNOSYS
001263 4773 JMS I (CHNGIT
001264 4761 JMS I (SYSUPD
001265 4427 JMS I CRLF
001266 4426 JMS I PRINT
001267 4310 MINDAT
001270 6211 CDF 10
001271 1760 TAD I (HDRDAT
001272 7012 RTR
001273 7010 RAR
001274 0357 AND (37
001275 4774 JMS I (DECCON
001276 1356 TAD ("-
001277 4436 JMS I TYPE
001300 6211 CDF 10
001301 1760 TAD I (HDRDAT
001302 7002 BSW
001303 7012 RTR
001304 0355 AND (17
001305 4774 JMS I (DECCON
001306 1356 TAD ("-
001307 4436 JMS I TYPE
001310 6211 CDF 10
001311 1760 TAD I (HDRDAT
001312 0354 AND (7
001313 3342 DCA XTEMP
001314 1753 TAD I (HDRBAT
001315 7012 RTR
001316 7012 RTR
001317 0352 AND (70
001320 1342 TAD XTEMP
001321 1351 TAD (3662 /1970
001322 4774 JMS I (DECCON
001323 6211 CDF 10
001324 1750 TAD I (HDRDID
/HEADER.PA V50.1 PAL8-V50X 01-JUL-88 PAGE 1-12
001325 7650 SNA CLA
001326 5336 JMP GUDVN2
001327 4427 JMS I CRLF
001330 4426 JMS I PRINT
001331 5776 MDIDAP
001332 6211 CDF 10
001333 1750 TAD I (HDRDID
001334 1351 TAD (3662 /1970
001335 4774 JMS I (DECCON
001336 4773 GUDVN2, JMS I (CHNGIT
001337 4747 JMS I (DIRDAT
001340 4427 JMS I CRLF
001341 5746 JMP I (DVLDC
001342 0000 XTEMP, 0
001346 1400
001347 1077
001350 4411
001351 3662
001352 0070
001353 4513
001354 0007
001355 0017
001356 0255
001357 0037
001360 4512
001361 1600
001362 0300
001363 4507
001364 4506
001365 3611
001366 4505
001367 4407
001370 2200
001371 4600
001372 2014
001373 0500
001374 1425
001375 4504
001376 2324
001377 4500
1400 PAGE
001400 4426 DVLDC, JMS I PRINT
001401 4273 MDVLDC
001402 7240 CLA CMA
001403 6211 CDF 10
001404 3777 DCA I (HDRFLG
001405 1776 TAD I (HDRLEN
001406 7041 CMA IAC
001407 4225 JMS DECCON
001410 4427 JMS I CRLF
001411 4426 JMS I PRINT
001412 5157 MFSTBL
/HEADER.PA V50.1 PAL8-V50X 01-JUL-88 PAGE 1-13
001413 6211 CDF 10
001414 1775 TAD I (HDRSTR
001415 4225 JMS DECCON
001416 4774 JMS I (CHNGIT
001417 4773 JMS I (GLNSTD
001420 4427 JMS I CRLF
001421 2021 ISZ WRFLG
001422 4772 JMS I (WRHDR
001423 4427 JMS I CRLF
001424 5771 JMP I (ENDPRC
001425 0000 DECCON, 0000
001426 6201 CDF 0
001427 3304 DCA DECINP
001430 7330 CLA CLL CML RAR
001431 3307 DCA DECDIG
001432 3305 DCA DECINC
001433 1276 TAD DECTBL-1
001434 3306 DCA DECCNT
001435 1275 TAD DECTBL-2
001436 3243 DCA DECLUP
001437 7410 SKP
001440 3304 DECLU0, DCA DECINP
001441 7100 CLL
001442 1304 TAD DECINP
001443 1277 DECLUP, TAD DECTBL
001444 7430 SZL
001445 2305 ISZ DECINC
001446 7430 SZL
001447 5240 JMP DECLU0
001450 7200 CLA
001451 1305 TAD DECINC
001452 7650 SNA CLA
001453 5256 JMP .+3
001454 1303 TAD DEC0
001455 3307 DCA DECDIG
001456 1305 TAD DECINC
001457 1307 TAD DECDIG
001460 7500 SMA
001461 4436 JMS I TYPE
001462 7200 CLA
001463 3305 DCA DECINC
001464 2243 ISZ DECLUP
001465 2306 ISZ DECCNT
001466 5242 JMP DECLUP-1
001467 1307 TAD DECDIG
001470 7700 SMA CLA
001471 5625 JMP I DECCON
001472 1303 TAD DEC0
001473 4436 JMS I TYPE
001474 5625 JMP I DECCON
001475 1277 TAD DECTBL
001476 7774 -4
001477 6030 DECTBL, -1750 /-1000
/HEADER.PA V50.1 PAL8-V50X 01-JUL-88 PAGE 1-14
001500 7634 -144 /-100
001501 7766 -12 /-10
001502 7777 -1 /-1
001503 0260 DEC0, 260
001504 0000 DECINP, AND 0000
001505 0000 DECINC, AND 0000
001506 0000 DECCNT, AND 0000
001507 4000 DECDIG, JMS 0000
001510 4430 REC3, JMS I HELP
001511 5322 MMMMMT
001512 4430 JMS I HELP
001513 5337 MSCRLL
001514 7344 CLA CLL CMA RAL
001515 3304 DCA DECINP
001516 1370 TAD (-5
001517 3305 DCA DECINC
001520 4443 RECC, JMS I ENTRY
001521 0210 0210
001522 5000 SAVHDR
001523 0050 0050
001524 7300 CLA CLL
001525 2305 ISZ DECINC
001526 5320 JMP RECC
001527 4430 JMS I HELP
001530 5360 MMMMMM
001531 2304 ISZ DECINP
001532 5316 JMP RECC-2
001533 4430 REC4, JMS I HELP
001534 5551 MTHNKS
001535 4427 JMS I CRLF
001536 1367 TAD (RECOVR-2
001537 3766 DCA I (DVCTEN
001540 4427 JMS I CRLF
001541 5765 JMP I (STRTEN
001542 0000 XX, AND 0000
001543 3050 DCA CHTMP
001544 1050 TAD CHTMP
001545 7012 RTR
001546 7012 RTR
001547 7012 RTR
001550 4436 JMS I TYPE
001551 1050 TAD CHTMP
001552 4436 JMS I TYPE
001553 5742 JMP I XX
001565 0215
001566 1750
001567 2110
001570 7773
001571 3011
001572 2307
001573 1000
001574 0500
/HEADER.PA V50.1 PAL8-V50X 01-JUL-88 PAGE 1-15
001575 4410
001576 4403
001577 4402
1600 PAGE
001600 0000 SYSUPD, 0000
001601 7300 CLA CLL
001602 6211 CDF 10
001603 3777 DCA I (HDRSYS
001604 6201 CDF 0
001605 1376 TAD (HDRBLK
001606 4775 JMS I (ZLOCS
001607 7705 -73
001610 4774 JMS I (WRDATE
001611 4426 JMS I PRINT
001612 4321 MISSYS
001613 4773 JMS I (SWIT
001614 7410 SKP
001615 5600 JMP I SYSUPD
001616 7240 CLA CMA
001617 6211 CDF 10
001620 3777 DCA I (HDRSYS
001621 6201 CDF 0
001622 4426 SYSU2, JMS I PRINT
001623 4334 MSYSID
001624 4427 JMS I CRLF
001625 4430 JMS I HELP
001626 4342 M0EQUN
001627 4430 JMS I HELP
001630 4352 M1PS8
001631 4430 JMS I HELP
001632 4357 M2OS8
001633 4430 JMS I HELP
001634 4364 M3OS12
001635 4430 JMS I HELP
001636 4372 M4DECS
001637 4430 JMS I HELP
001640 4404 M5OS78
001641 4430 JMS I HELP
001642 4412 M6ETOS
001643 4430 JMS I HELP
001644 4420 M7MLTI
001645 4430 JMS I HELP
001646 4427 M8MLTO
001647 4772 JMS I (GETLIN
001650 4771 JMS I (CONDEC
001651 5222 JMP SYSU2
001652 7041 CMA IAC
001653 6211 CDF 10
001654 3770 DCA I (HDRSID
001655 6201 CDF 0
001656 4426 JMS I PRINT
001657 4436 MVERSY
001660 4772 JMS I (GETLIN
001661 4771 JMS I (CONDEC
/HEADER.PA V50.1 PAL8-V50X 01-JUL-88 PAGE 1-16
001662 5256 JMP .-4
001663 6211 CDF 10
001664 3767 DCA I (HDRVER
001665 6201 CDF 0
001666 4426 JMS I PRINT
001667 4475 MVERCO
001670 4772 JMS I (GETLIN
001671 4771 JMS I (CONDEC
001672 5266 JMP .-4
001673 6211 CDF 10
001674 3766 DCA I (HDRREL
001675 3765 DCA I (HDR10
001676 3764 DCA I (HDR11
001677 6201 CDF 0
001700 5600 JMP I SYSUPD
001701 0000 GETABC, 0000
001702 6031 KSF
001703 5302 JMP .-1
001704 6036 KRB
001705 6041 TSF
001706 5305 JMP .-1
001707 6046 TLS
001710 4763 JMS I (XPIND
001711 7477 -301
001712 1734 GETA
001713 7677 -101
001714 1734 GETA
001715 7476 -302
001716 1733 GETB
001717 7676 -102
001720 1733 GETB
001721 7475 -303
001722 1732 GETC
001723 7675 -103
001724 1732 GETC
001725 0000 0000
001726 4427 JMS I CRLF
001727 4426 JMS I PRINT
001730 5376 MANABC
001731 5302 JMP GETABC+1
001732 2301 GETC, ISZ GETABC
001733 2301 GETB, ISZ GETABC
001734 4427 GETA, JMS I CRLF
001735 5701 JMP I GETABC
001736 0000 GEDVLN, 0000
001737 1347 TAD DVCTW
001740 0362 AND (770
001741 7112 CLL RTR
001742 7010 RAR
001743 1361 TAD (DVLENT
001744 3045 DCA PNT1
001745 1445 TAD I PNT1
001746 5736 JMP I GEDVLN
/HEADER.PA V50.1 PAL8-V50X 01-JUL-88 PAGE 1-17
001747 0000 DVCTW, AND 0000
001750 2110 DVCTEN, RECOVR-2
001751 5750 JMP I DVCTEN
001752 7300 DVCTER, CLA CLL
001753 2350 ISZ DVCTEN
001754 2350 ISZ DVCTEN
001755 5750 JMP I DVCTEN
001761 3200
001762 0770
001763 0223
001764 4511
001765 4510
001766 4507
001767 4506
001770 4505
001771 0711
001772 2316
001773 0300
001774 3000
001775 2000
001776 4504
001777 4407
2000 PAGE
002000 0000 ZLOCS, 0000
002001 3012 DCA XR2
002002 1600 TAD I ZLOCS
002003 3213 DCA ZLOCSP
002004 2200 ISZ ZLOCS
002005 6211 CDF 10
002006 3412 DCA I XR2
002007 2213 ISZ ZLOCSP
002010 5206 JMP .-2
002011 6201 CDF 0
002012 5600 JMP I ZLOCS
002013 0000 ZLOCSP, 0000
002014 0000 UADVNM, 0000
002015 4777 JMS I (WRDATE
002016 1376 TAD (HDRZ6
002017 4200 JMS ZLOCS
002020 7772 -6
002021 4427 JMS I CRLF
002022 4430 JMS I HELP
002023 4542 MUSALO
002024 4430 JMS I HELP
002025 4571 MAUTOA
002026 4430 JMS I HELP
002027 4617 M2CHAR
002030 4430 JMS I HELP
002031 4647 MUNIQE
002032 4426 USAAGN, JMS I PRINT
/HEADER.PA V50.1 PAL8-V50X 01-JUL-88 PAGE 1-18
002033 4524 MUDVNM
002034 4775 JMS I (GETLIN
002035 1374 TAD (HDRUSA
002036 3045 DCA PNT1
002037 1373 TAD (-4
002040 3046 DCA CNT
002041 1413 USALUP, TAD I GETLPT
002042 7450 SNA
002043 5252 JMP .+7
002044 6211 CDF 10
002045 3445 DCA I PNT1
002046 6201 CDF 0
002047 2045 ISZ PNT1
002050 2046 ISZ CNT
002051 5241 JMP USALUP
002052 1372 TAD (INBUF-1
002053 3013 DCA GETLPT
002054 4434 JMS I RDEVNA
002055 5215 JMP UADVNM+1
002056 1040 TAD CHAR2
002057 7650 SNA CLA
002060 7240 CLA CMA
002061 3042 DCA TMP
002062 1037 TAD CHAR1
002063 1040 TAD CHAR2
002064 7104 CLL RAL
002065 2042 ISZ TMP
002066 7120 CLL CML
002067 7010 RAR
002070 6211 CDF 10
002071 3771 DCA I (HDRUDV
002072 1771 TAD I (HDRUDV
002073 6201 CDF 0
002074 4770 JMS I (CHKUSA
002075 4430 MVOLE2, JMS I HELP
002076 4671 MVOLEL
002077 4430 JMS I HELP
002100 4723 MDECLT
002101 4426 JMS I PRINT
002102 4662 MVOLID
002103 4775 JMS I (GETLIN
002104 4767 JMS I (CONDEC
002105 5275 JMP MVOLE2
002106 6211 CDF 10
002107 3766 DCA I (HDRVOL
002110 6201 CDF 0
002111 5614 JMP I UADVNM
002112 1031 RECOVR, TAD YN
002113 7650 SNA CLA
002114 5323 JMP REC1
002115 4430 JMS I HELP
002116 5512 MWRENA
002117 4765 JMS I (SYNC
002120 4764 JMS I (DVCTEN
/HEADER.PA V50.1 PAL8-V50X 01-JUL-88 PAGE 1-19
002121 4763 JMS I (WRHDR
002122 5762 JMP I (STRTEN
002123 7240 REC1, CLA CMA
002124 3031 DCA YN
002125 4430 JMS I HELP
002126 5532 MOUCH
002127 4430 JMS I HELP
002130 5536 MYFORG
002131 4765 JMS I (SYNC
002132 4764 JMS I (DVCTEN
002133 4763 JMS I (WRHDR
002134 5761 JMP I (REC4
002135 4430 JMS I HELP
002136 5532 MOUCH
002137 4430 JMS I HELP
002140 5555 MPRSW
002141 4765 REC2, JMS I (SYNC
002142 4764 JMS I (DVCTEN
002143 4763 JMS I (WRHDR
002144 5760 JMP I (REC3
002145 4757 JMS I (MULTPR
002146 5532 MOUCH
002147 5576 MDUMMY
002150 5617 MWRNEN
002151 5642 MGHELP
002152 0000 0000
002153 5341 JMP REC2
002157 0660
002160 1510
002161 1533
002162 0215
002163 2307
002164 1750
002165 2437
002166 4504
002167 0711
002170 2400
002171 4477
002172 6677
002173 7774
002174 4500
002175 2316
002176 4476
002177 3000
2200 PAGE
002200 0000 DESLBL, 0000
002201 4777 JMS I (WRDATE
002202 1376 TAD (HDRLBL-1
002203 4775 JMS I (ZLOCS
002204 7600 -200
002205 4430 JMS I HELP
002206 4761 MDESAS
002207 4430 JMS I HELP
/HEADER.PA V50.1 PAL8-V50X 01-JUL-88 PAGE 1-20
002210 5007 M127CH
002211 4430 JMS I HELP
002212 5033 MTERMZ
002213 4430 JMS I HELP
002214 5057 MTERCR
002215 4426 JMS I PRINT
002216 4747 MDESLB
002217 1374 TAD (-200
002220 3024 DCA LBLCNT
002221 1373 TAD (HDRLBL
002222 3025 DCA LBLPNT
002223 5230 JMP LBLSTR
002224 1372 TAD (215
002225 4236 JMS LBLGET
002226 1371 TAD (212
002227 4236 JMS LBLGET
002230 4316 LBLSTR, JMS GETLIN
002231 1413 TAD I GETLPT
002232 7450 SNA
002233 5224 JMP LBLSTR-4
002234 4236 JMS LBLGET
002235 5231 JMP LBLSTR+1
002236 0000 LBLGET, 0000
002237 6211 CDF 10
002240 3425 DCA I LBLPNT
002241 1425 TAD I LBLPNT
002242 6201 CDF 0
002243 1370 TAD (-232
002244 7650 SNA CLA
002245 5253 JMP LBLOUT
002246 2025 ISZ LBLPNT
002247 2024 ISZ LBLCNT
002250 5636 JMP I LBLGET
002251 4426 JMS I PRINT
002252 5077 MTH128
002253 6211 LBLOUT, CDF 10
002254 3425 DCA I LBLPNT
002255 6201 CDF 0
002256 5600 JMP I DESLBL
002257 0000 WRALL, 0000
002260 2023 ISZ WRITOK
002261 7410 SKP
002262 5657 JMP I WRALL
002263 1375 TAD (DIRBUF
002264 4775 JMS I (ZLOCS
002265 7772 -6
002266 6211 CDF 10
002267 1767 TAD I (HDRSTR
002270 3766 DCA I (DIRSTR
002271 7240 CLA CMA
002272 3775 DCA I (DIRBUF
002273 7240 CLA CMA
002274 3765 DCA I (DIRADD
/HEADER.PA V50.1 PAL8-V50X 01-JUL-88 PAGE 1-21
002275 1764 TAD I (HDRLEN
002276 1766 TAD I (DIRSTR
002277 3763 DCA I (DIRFIL
002300 6201 CDF 0
002301 4443 JMS I ENTRY
002302 5210 5210
002303 2000 DIRBUF
002304 0001 AND 0001
002305 7402 HLT
002306 5657 JMP I WRALL
002307 0000 WRHDR, 0000
002310 4443 JMS I ENTRY
002311 4210 4210
002312 4400 DIRHDR
002313 0006 0006
002314 5762 JMP I (DVCTER
002315 5707 JMP I WRHDR
002316 0000 GETLIN, 0000
002317 6201 CDF 0
002320 4435 JMS I READ
002321 1361 TAD (INBUF-1
002322 3013 DCA GETLPT
002323 5716 JMP I GETLIN
002324 0000 PRNTNZ, 0000
002325 6201 CDF 0
002326 3045 DCA PNT1
002327 1724 TAD I PRNTNZ
002330 3047 DCA COCNT
002331 2324 ISZ PRNTNZ
002332 6211 PRNTNL, CDF 10
002333 1445 TAD I PNT1
002334 6201 CDF 0
002335 7440 SZA
002336 4436 JMS I TYPE
002337 2045 ISZ PNT1
002340 2047 ISZ COCNT
002341 5332 JMP PRNTNL
002342 5724 JMP I PRNTNZ
002343 0000 XCRLF, 0000
002344 1372 TAD (215
002345 4436 JMS I TYPE
002346 1371 TAD (212
002347 4436 JMS I TYPE
002350 5743 JMP I XCRLF
002361 6677
002362 1752
002363 2006
002364 4403
002365 2004
002366 2001
/HEADER.PA V50.1 PAL8-V50X 01-JUL-88 PAGE 1-22
002367 4410
002370 7546
002371 0212
002372 0215
002373 4600
002374 7600
002375 2000
002376 4577
002377 3000
2400 PAGE
002400 0000 CHKUSA, 0000
002401 7041 CMA IAC
002402 3042 DCA TMP
002403 1377 TAD (DVLNAM-1
002404 3012 DCA XR2
002405 1412 TAD I XR2
002406 7450 SNA
002407 5600 JMP I CHKUSA
002410 1042 TAD TMP
002411 7640 SZA CLA
002412 5205 JMP .-5
002413 4426 JMS I PRINT
002414 0037 CHAR1
002415 4426 JMS I PRINT
002416 5662 MCONFL
002417 1012 TAD XR2
002420 1376 TAD (HDRUSA
002421 3042 DCA TMP
002422 1042 TAD TMP
002423 7104 CLL RAL
002424 1042 TAD TMP
002425 1375 TAD (MDVLST
002426 3230 DCA .+2
002427 4426 JMS I PRINT
002430 3361 MDVLST
002431 4427 JMS I CRLF
002432 4426 JMS I PRINT
002433 5654 MTRYAG
002434 4774 JMS I (SWIT
002435 5773 JMP I (USAAGN
002436 5600 JMP I CHKUSA
002437 0000 SYNC, 0000
002440 6031 KSF
002441 5240 JMP .-1
002442 6032 KCC
002443 5637 JMP I SYNC
002444 0000 BDEVNA, 0000
002445 3037 DCA CHAR1
002446 3040 DCA CHAR2
002447 3042 DCA TMP
002450 1372 TAD (CHAR1
002451 3052 DCA CHPNT
/HEADER.PA V50.1 PAL8-V50X 01-JUL-88 PAGE 1-23
002452 7240 CLA CMA
002453 3053 DCA CHHALF
002454 3051 BDEV4, DCA CHCNT
002455 1413 TAD I GETLPT
002456 1371 TAD (-240
002457 7450 SNA
002460 5255 JMP .-3
002461 1370 TAD (240
002462 7410 SKP
002463 1413 BDEVOF, TAD I GETLPT
002464 3050 DCA CHTMP
002465 1050 TAD CHTMP
002466 1367 TAD (-256
002467 7450 SNA
002470 5327 JMP BDEVNX
002471 1366 TAD (-2
002472 7100 CLL
002473 1365 TAD (-12
002474 7620 SNL CLA
002475 5304 JMP BDEVOK
002476 1364 TAD (-301
002477 1050 TAD CHTMP
002500 7120 CLL CML
002501 1363 TAD (-32
002502 7620 SNL CLA
002503 5334 JMP BDEVEN
002504 1051 BDEVOK, TAD CHCNT
002505 1362 TAD (-6
002506 7700 SMA CLA
002507 5263 JMP BDEVOF
002510 1051 TAD CHCNT
002511 7110 CLL RAR
002512 1052 TAD CHPNT
002513 3045 DCA PNT1
002514 1050 TAD CHTMP
002515 0361 AND (77
002516 7430 SZL
002517 5323 JMP .+4
002520 7006 RTL
002521 7006 RTL
002522 7006 RTL
002523 1445 TAD I PNT1
002524 3445 DCA I PNT1
002525 2051 ISZ CHCNT
002526 5263 JMP BDEVOF
002527 2053 BDEVNX, ISZ CHHALF
002530 5334 JMP BDEVEN
002531 2052 ISZ CHPNT
002532 1360 TAD (4
002533 5254 JMP BDEV4
002534 1051 BDEVEN, TAD CHCNT
002535 7640 SZA CLA
002536 2244 ISZ BDEVNA
002537 5644 JMP I BDEVNA
/HEADER.PA V50.1 PAL8-V50X 01-JUL-88 PAGE 1-24
002540 0000 XTYPE, 0000
002541 5344 JMP .+3
002542 6041 TSF
002543 5342 JMP .-1
002544 6046 TLS
002545 7200 CLA
002546 1357 TAD (NOP
002547 3341 DCA XTYPE+1
002550 5740 JMP I XTYPE
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
/TAD (":
/JMS I TYPE
002601 3044 DCA DELFLG
002602 1377 TAD (INBUF-1
002603 3013 DCA GETLPT
002604 6031 PRIGN, KSF
002605 5204 JMP .-1
002606 1376 TAD (200
002607 6034 KRS
002610 3037 DCA CHAR1
002611 6032 KCC
002612 4333 JMS SWITCH
002613 7553 -225 /^U
002614 2670 PRCTL
002615 7563 -215 /CR
002616 2647 PRCR
002617 7401 -377 /DEL
002620 2707 PRDEL
002621 7403 -375 /}
002622 2703 PRESC
002623 7402 -376 /~
002624 2703 PRESC
002625 7545 -233 /ESC
002626 2703 PRESC
002627 7566 -212 /LF
/HEADER.PA V50.1 PAL8-V50X 01-JUL-88 PAGE 1-25
002630 2750 PRLF
002631 7600 -200 /NULL
002632 2604 PRIGN
002633 7561 -217 /^O
002634 2604 PRIGN
002635 7575 -203 /^C
002636 7605 KMON+5
002637 0000 0000
002640 4257 JMS PRSUB
002641 1037 TAD CHAR1
002642 3413 DCA I GETLPT
002643 1013 TAD GETLPT
002644 1375 TAD (-INBUF-110
002645 7710 SPA CLA
002646 5204 JMP PRIGN
002647 4427 PRCR, JMS I CRLF
002650 1013 TAD GETLPT
002651 1374 TAD (-INBUF+1
002652 7650 SNA CLA
002653 5201 JMP XREAD+1
002654 3413 DCA I GETLPT
002655 3413 DCA I GETLPT
002656 5600 JMP I XREAD
002657 0000 PRSUB, 0000
002660 2044 ISZ DELFLG
002661 5264 JMP .+3
002662 1373 TAD (334 /\
002663 4436 JMS I TYPE
002664 3044 DCA DELFLG
002665 1037 TAD CHAR1
002666 4436 JMS I TYPE
002667 5657 JMP I PRSUB
002670 1372 PRCTL, TAD (336 /^
002671 4436 JMS I TYPE
002672 1037 TAD CHAR1
002673 1371 TAD (100
002674 4436 JMS I TYPE
002675 4427 PRCTL2, JMS I CRLF
002676 2333 ISZ SWITCH
002677 1733 TAD I SWITCH
002700 7640 SZA CLA
002701 5203 JMP XREAD+3
002702 5201 JMP XREAD+1
002703 1370 PRESC, TAD (244 /$
002704 3037 DCA CHAR1
002705 4257 JMS PRSUB
002706 5250 JMP PRCR+1
002707 1013 PRDEL, TAD GETLPT
002710 1374 TAD (-INBUF+1
002711 7650 SNA CLA
/HEADER.PA V50.1 PAL8-V50X 01-JUL-88 PAGE 1-26
002712 5327 JMP PREMP
002713 1373 TAD (334
002714 2044 ISZ DELFLG
002715 4436 JMS I TYPE
002716 7240 CLA CMA
002717 3044 DCA DELFLG
002720 1013 TAD GETLPT
002721 3045 DCA PNT1
002722 1445 TAD I PNT1
002723 4436 JMS I TYPE
002724 7240 PRLF2, CLA CMA
002725 1013 TAD GETLPT
002726 5203 JMP PRIGN-1
002727 2044 PREMP, ISZ DELFLG
002730 5275 JMP PRCTL2
002731 1373 TAD (334
002732 5274 JMP PRCTL2-1
002733 0000 SWITCH, 0000
002734 1733 TAD I SWITCH
002735 2333 ISZ SWITCH
002736 7450 SNA
002737 5733 JMP I SWITCH
002740 1037 TAD CHAR1
002741 7650 SNA CLA
002742 5345 JMP .+3
002743 2333 ISZ SWITCH
002744 5334 JMP SWITCH+1
002745 1733 TAD I SWITCH
002746 3045 DCA PNT1
002747 5445 JMP I PNT1
002750 4427 PRLF, JMS I CRLF
002751 3413 DCA I GETLPT
002752 1377 TAD (INBUF-1
002753 3017 DCA 0017
002754 1417 TAD I 0017
002755 7450 SNA
002756 5324 JMP PRLF2
002757 4436 JMS I TYPE
002760 5354 JMP .-4
002770 0244
002771 0100
002772 0336
002773 0334
002774 1101
002775 0770
002776 0200
002777 6677
3000 PAGE
003000 0000 WRDATE, 0000
003001 1777 TAD I (BATCCL
003002 0376 AND (1600
/HEADER.PA V50.1 PAL8-V50X 01-JUL-88 PAGE 1-27
003003 6211 CDF 10
003004 3775 DCA I (HDRBAT
003005 1774 TAD I (SYSDAT
003006 3773 DCA I (HDRDAT
003007 6201 CDF 0
003010 5600 JMP I WRDATE
003011 4426 ENDPRC, JMS I PRINT
003012 5453 MSQVOL
003013 4772 JMS I (SWIT
003014 7410 SKP
003015 5771 JMP I (STRTEN
003016 4427 JMS I CRLF
003017 4426 JMS I PRINT
003020 5472 MMNTNV
003021 4772 JMS I (SWIT
003022 7000 NOP
003023 6211 CDF 10
003024 2770 ISZ I (HDRVOL
003025 7300 CLA CLL
003026 1367 TAD (DIRHDR-1
003027 3014 DCA ENFROM
003030 1366 TAD (SAVHDR+400-1
003031 3015 DCA ENTO
003032 1414 TAD I ENFROM
003033 3415 DCA I ENTO
003034 1015 TAD ENTO
003035 1365 TAD (-SAVHDR-1000
003036 7710 SPA CLA
003037 5232 JMP .-5
003040 6201 CDF 0
003041 4443 JMS I ENTRY
003042 1410 1410
003043 2000 2000
003044 0001 0001
003045 5241 JMP .-4
003046 7240 CLA CMA
003047 3023 DCA WRITOK
003050 6211 CDF 10
003051 1765 TAD I (DIRBUF
003052 7100 CLL
003053 1364 TAD (100
003054 7620 SNL CLA
003055 5300 JMP BADHDR
003056 3763 DCA I (SAVNXT
003057 1362 TAD (DIRNXT
003060 3022 DCA DIRPNT
003061 1422 TAD I DIRPNT
003062 7650 SNA CLA
003063 5270 JMP .+5
003064 1361 TAD (400
003065 1022 TAD DIRPNT
003066 3022 DCA DIRPNT
003067 5261 JMP .-6
003070 6201 CDF 0
/HEADER.PA V50.1 PAL8-V50X 01-JUL-88 PAGE 1-28
003071 1022 TAD DIRPNT
003072 1360 TAD (-DIRHDR
003073 7710 SPA CLA
003074 5301 JMP BADHDR+1
003075 4426 JMS I PRINT
003076 4001 MDIRPA
003077 5432 JMP I KMEXIT
003100 3023 BADHDR, DCA WRITOK
003101 6211 CDF 10
003102 7300 CLA CLL
003103 3020 DCA PRNTIT
003104 1367 TAD (DIRHDR-1
003105 3015 DCA ENTO
003106 1366 TAD (5400-1
003107 3014 DCA ENFROM
003110 1414 TAD I ENFROM
003111 3415 DCA I ENTO
003112 1015 TAD ENTO
003113 1365 TAD (-6000
003114 7710 SPA CLA
003115 5310 JMP .-5
003116 6201 CDF 0
003117 7300 CLA CLL
003120 3020 DCA PRNTIT
003121 5757 JMP I (GUDVNM+1
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 1600
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)
/HEADER.PA V50.1 PAL8-V50X 01-JUL-88 PAGE 1-29
003212 7601 7601/03212-7601 >A /12: DF32 IN VARIOUS SIZES
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 @@
/HEADER.PA V50.1 PAL8-V50X 01-JUL-88 PAGE 1-30
003300 4631 DVLNAM, 4631 /SYS
003301 5723 5723 /DSK
003302 5524 5524 /TTY
003303 4020 4020 /LPT
003304 4024 4024 /PTP
003305 4224 4224 /PTR
003306 6504 6504 /CDR
003307 4604 4604 /DTA0
003310 4605 4605 /DTA1
003311 4606 4606 /DTA2
003312 4607 4607 /DTA3
003313 4610 4610 /DTA4
003314 4611 4611 /DTA5
003315 4612 4612 /DTA6
003316 4613 4613 /DTA7
003317 4215 4215 /RL0A
003320 4216 4216 /RL0B
003321 4315 4315 /RL1A
003322 4316 4316 /RL1B
003323 4217 4217 /RL0C
003324 4317 4317 /RL1C
003325 4417 4417 /RL2C
003326 4517 4517 /RL3C
003327 6373 6373 /RKA0
003330 6374 6374 /RKA1
003331 6375 6375 /RKA2
003332 6376 6376 /RKA3
003333 6473 6473 /RKB0
003334 6474 6474 /RKB1
003335 6475 6475 /RKB2
003336 6476 6476 /RKB3
003337 6410 6410 /RXA0
003340 6411 6411 /RXA1
003341 6510 6510 /RXB0
003342 6511 6511 /RXB1
003343 0406 0406 /DF
003344 2206 2206 /RF
003345 2426 2426 /TV
003346 7241 7241 /NULL
003347 4503 4503 /CSA0
003350 4504 4504 /CSA1
003351 0303 0303 /CC
003352 5704 5704 /MTA0
003353 5705 5705 /MTA1
003354 6362 6362 /RBA0
003355 6363 6363 /RBA1
003356 6431 6431 /EDOU
003357 5622 5622 /EDIN
003360 0000 0000 /@@
003361 2331 MDVLST, TEXT "SYS"
003362 2300
003363 0000 0000
003364 0423 TEXT "DSK"
003365 1300
/HEADER.PA V50.1 PAL8-V50X 01-JUL-88 PAGE 1-31
003366 0000 0000
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
/HEADER.PA V50.1 PAL8-V50X 01-JUL-88 PAGE 1-32
003455 2214 TEXT "RL1C"
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"
/HEADER.PA V50.1 PAL8-V50X 01-JUL-88 PAGE 1-33
003544 1414
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 4427 M8MLTO
003602 4420 M7MLTI
003603 4412 M6ETOS
003604 4404 M5OS78
003605 4372 M4DECS
003606 4364 M3OS12
003607 4357 M2OS8
003610 4352 M1PS8
003611 4342 MSIDSW, M0EQUN
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 01-JUL-88 PAGE 1-34
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 7740
003650 0000
003651 3105 MYES, TEXT "YES"
003652 2300
003653 1617 MNO, TEXT "NO"
003654 0000
003655 2410 MPARBL, TEXT "THIS PROGRAM ESTABISHES A PARAMETER BLOCK"
003656 1123
003657 4020
003660 2217
003661 0722
003662 0115
003663 4005
003664 2324
003665 0102
003666 1123
003667 1005
003670 2340
003671 0140
003672 2001
003673 2201
003674 1505
003675 2405
003676 2240
003677 0214
003700 1703
003701 1300
003702 1716 MDEC8, TEXT "ON OS-8 FILE STRUCTURED DEVICES"
003703 4017
003704 2355
003705 7040
003706 0611
003707 1405
003710 4023
003711 2422
003712 2503
003713 2425
003714 2205
003715 0440
003716 0405
003717 2611
/HEADER.PA V50.1 PAL8-V50X 01-JUL-88 PAGE 1-35
003720 0305
003721 2300
003722 1116 MINKM, TEXT "INPUT IS VIA THE REGULAR MONITOR INPUT"
003723 2025
003724 2440
003725 1123
003726 4026
003727 1101
003730 4024
003731 1005
003732 4022
003733 0507
003734 2514
003735 0122
003736 4015
003737 1716
003740 1124
003741 1722
003742 4011
003743 1620
003744 2524
003745 0000
003746 0405 MDEVNA, TEXT "DEVICE NAME: "
003747 2611
003750 0305
003751 4016
003752 0115
003753 0572
003754 4000
003755 7702 MBADIN, TEXT "?BAD INPUT"
003756 0104
003757 4011
003760 1620
003761 2524
003762 0000
003763 0405 MDEVNF, TEXT "DEVICE NOT FILE STRUCTURED"
003764 2611
003765 0305
003766 4016
003767 1724
003770 4006
003771 1114
003772 0540
003773 2324
003774 2225
003775 0324
003776 2522
003777 0504
004000 0000
004001 0411 MDIRPA, TEXT "DIRECTORY OCCUPIES PARAMETER BLOCK"
004002 2205
004003 0324
004004 1722
004005 3140
004006 1703
/HEADER.PA V50.1 PAL8-V50X 01-JUL-88 PAGE 1-36
004007 0325
004010 2011
004011 0523
004012 4020
004013 0122
004014 0115
004015 0524
004016 0522
004017 4002
004020 1417
004021 0313
004022 0000
004023 0405 MDVHPA, TEXT "DEVICE HAS PARAMETER BLOCK"
004024 2611
004025 0305
004026 4010
004027 0123
004030 4020
004031 0122
004032 0115
004033 0524
004034 0522
004035 4002
004036 1417
004037 0313
004040 0000
004041 0417 MDMPIT, TEXT "DO YOU WISH TO DUMP IT? "
004042 4031
004043 1725
004044 4027
004045 1123
004046 1040
004047 2417
004050 4004
004051 2515
004052 2040
004053 1124
004054 7740
004055 0000
004056 1001 MERB16, TEXT "HANDLER ERROR READING BLOCKS 1-6 (PARITY?)"
004057 1604
004060 1405
004061 2240
004062 0522
004063 2217
004064 2240
004065 2205
004066 0104
004067 1116
004070 0740
004071 0214
004072 1703
004073 1323
004074 4061
004075 5566
/HEADER.PA V50.1 PAL8-V50X 01-JUL-88 PAGE 1-37
004076 4050
004077 2001
004100 2211
004101 2431
004102 7751
004103 0000
004104 2310 MCONTI, TEXT "SHALL I CONTINUE? "
004105 0114
004106 1440
004107 1140
004110 0317
004111 1624
004112 1116
004113 2505
004114 7740
004115 0000
004116 0411 MDIRZE, TEXT "DIRECTORY WILL BE ZEROED"
004117 2205
004120 0324
004121 1722
004122 3140
004123 2711
004124 1414
004125 4002
004126 0540
004127 3205
004130 2217
004131 0504
004132 0000
004133 2324 MSTDVL, TEXT "STANDARD DEVICE LENGTH? "
004134 0116
004135 0401
004136 2204
004137 4004
004140 0526
004141 1103
004142 0540
004143 1405
004144 1607
004145 2410
004146 7740
004147 0000
004150 1517 MDEVSL, TEXT "MOST DEVICES HAVE A STANDARD LENGTH"
004151 2324
004152 4004
004153 0526
004154 1103
004155 0523
004156 4010
004157 0126
004160 0540
004161 0140
004162 2324
004163 0116
004164 0401
/HEADER.PA V50.1 PAL8-V50X 01-JUL-88 PAGE 1-38
004165 2204
004166 4014
004167 0516
004170 0724
004171 1000
004172 0116 MAYNMQ, TEXT "ANSWER YES TO THE NEXT QUESTION"
004173 2327
004174 0522
004175 4031
004176 0523
004177 4024
004200 1740
004201 2410
004202 0540
004203 1605
004204 3024
004205 4021
004206 2505
004207 2324
004210 1117
004211 1600
004212 2516 MNSDEV, TEXT "UNLESS YOU HAVE A NON-STANDARD DEVICE."
004213 1405
004214 2323
004215 4031
004216 1725
004217 4010
004220 0126
004221 0540
004222 0140
004223 1617
004224 1655
004225 2324
004226 0116
004227 0401
004230 2204
004231 4004
004232 0526
004233 1103
004234 0556
004235 0000
004236 2324 MSTDVA, TEXT "STANDARD DEVICES ARE:"
004237 0116
004240 0401
004241 2204
004242 4004
004243 0526
004244 1103
004245 0523
004246 4001
004247 2205
004250 7200
004251 4040 MVDEVS, TEXT " DTAN,LTAN,DF32,RF08,RK8,RXN,TD8E"
004252 0424
004253 0116
/HEADER.PA V50.1 PAL8-V50X 01-JUL-88 PAGE 1-39
004254 5414
004255 2401
004256 1654
004257 0406
004260 6362
004261 5422
004262 0660
004263 7054
004264 2213
004265 7054
004266 2230
004267 1654
004270 2404
004271 7005
004272 0000
004273 0405 MDVLDC, TEXT "DEVICE LENGTH (DECIMAL): "
004274 2611
004275 0305
004276 4014
004277 0516
004300 0724
004301 1040
004302 5004
004303 0503
004304 1115
004305 0114
004306 5172
004307 4000
004310 1116 MINDAT, TEXT "INITIALIZED ON: "
004311 1124
004312 1101
004313 1411
004314 3205
004315 0440
004316 1716
004317 7240
004320 0000
004321 1123 MISSYS, TEXT "IS A SYSTEM PRESENT? "
004322 4001
004323 4023
004324 3123
004325 2405
004326 1540
004327 2022
004330 0523
004331 0516
004332 2477
004333 4000
004334 2331 MSYSID, TEXT "SYSTEM ID: "
004335 2324
004336 0515
004337 4011
004340 0472
004341 4000
004342 4040 M0EQUN, TEXT " 0=UNASSIGNED "
/HEADER.PA V50.1 PAL8-V50X 01-JUL-88 PAGE 1-40
004343 6075
004344 2516
004345 0123
004346 2311
004347 0716
004350 0504
004351 4000
004352 4040 M1PS8, TEXT " 1=PS/8 "
004353 6175
004354 2023
004355 5770
004356 4000
004357 4040 M2OS8, TEXT " 2=OS/8 "
004360 6275
004361 1723
004362 5770
004363 4000
004364 4040 M3OS12, TEXT " 3=OS/12 "
004365 6375
004366 1723
004367 5761
004370 6240
004371 0000
004372 4040 M4DECS, TEXT " 4=DECSYSTEM-8/78 "
004373 6475
004374 0405
004375 0323
004376 3123
004377 2405
004400 1555
004401 7057
004402 6770
004403 4000
004404 4040 M5OS78, TEXT " 5=OS/78 "
004405 6575
004406 1723
004407 5767
004410 7040
004411 0000
004412 4040 M6ETOS, TEXT " 6=ETOS/8 "
004413 6675
004414 0524
004415 1723
004416 5770
004417 4000
004420 4040 M7MLTI, TEXT " 7=MULTI/8 "
004421 6775
004422 1525
004423 1424
004424 1157
004425 7040
004426 0000
004427 4040 M8MLTO, TEXT " 8=MULTOS/8 "
004430 7075
004431 1525
/HEADER.PA V50.1 PAL8-V50X 01-JUL-88 PAGE 1-41
004432 1424
004433 1723
004434 5770
004435 4000
004436 2605 MVERSY, TEXT "VERSION NUMBER (ASSOCIATED WITH SYSTEM ARE; IE. 1,2,3 ETC.): "
004437 2223
004440 1117
004441 1640
004442 1625
004443 1502
004444 0522
004445 4050
004446 0123
004447 2317
004450 0311
004451 0124
004452 0504
004453 4027
004454 1124
004455 1040
004456 2331
004457 2324
004460 0515
004461 4001
004462 2205
004463 7340
004464 1105
004465 5640
004466 6154
004467 6254
004470 6340
004471 0524
004472 0356
004473 5172
004474 4000
004475 2605 MVERCO, TEXT "VERSION RELEASE CODE (IE. 1=A,2=B,3=C ETC.): "
004476 2223
004477 1117
004500 1640
004501 2205
004502 1405
004503 0123
004504 0540
004505 0317
004506 0405
004507 4050
004510 1105
004511 5640
004512 6175
004513 0154
004514 6275
004515 0254
004516 6375
004517 0340
004520 0524
/HEADER.PA V50.1 PAL8-V50X 01-JUL-88 PAGE 1-42
004521 0356
004522 5172
004523 4000
004524 2523 MUDVNM, TEXT "USER ASSIGNED DEVICE NAME: "
004525 0522
004526 4001
004527 2323
004530 1107
004531 1605
004532 0440
004533 0405
004534 2611
004535 0305
004536 4016
004537 0115
004540 0572
004541 4000
004542 2410 MUSALO, TEXT "THE USER ASSIGNED NAME IS A LOGICAL NAME USED"
004543 0540
004544 2523
004545 0522
004546 4001
004547 2323
004550 1107
004551 1605
004552 0440
004553 1601
004554 1505
004555 4011
004556 2340
004557 0140
004560 1417
004561 0711
004562 0301
004563 1440
004564 1601
004565 1505
004566 4025
004567 2305
004570 0400
004571 0231 MAUTOA, TEXT "BY AUTOAS. IT IS RECOMMENDED THAT THIS NAME"
004572 4001
004573 2524
004574 1701
004575 2356
004576 4011
004577 2440
004600 1123
004601 4022
004602 0503
004603 1715
004604 1505
004605 1604
004606 0504
004607 4024
/HEADER.PA V50.1 PAL8-V50X 01-JUL-88 PAGE 1-43
004610 1001
004611 2440
004612 2410
004613 1123
004614 4016
004615 0115
004616 0500
004617 0205 M2CHAR, TEXT "BE A TWO CHARACTER NAME STARTING WITH AN ALPHA"
004620 4001
004621 4024
004622 2717
004623 4003
004624 1001
004625 2201
004626 0324
004627 0522
004630 4016
004631 0115
004632 0540
004633 2324
004634 0122
004635 2411
004636 1607
004637 4027
004640 1124
004641 1040
004642 0116
004643 4001
004644 1420
004645 1001
004646 0000
004647 2417 MUNIQE, TEXT "TO INSURE UNIQUENESS."
004650 4011
004651 1623
004652 2522
004653 0540
004654 2516
004655 1121
004656 2505
004657 1605
004660 2323
004661 5600
004662 4040 MVOLID, TEXT " VOLUME ID: "
004663 2617
004664 1425
004665 1505
004666 4011
004667 0472
004670 4000
004671 2410 MVOLEL, TEXT "THE VOLUME ID IS AN EXTRA LABEL FOR IDENTIFICATION"
004672 0540
004673 2617
004674 1425
004675 1505
004676 4011
/HEADER.PA V50.1 PAL8-V50X 01-JUL-88 PAGE 1-44
004677 0440
004700 1123
004701 4001
004702 1640
004703 0530
004704 2422
004705 0140
004706 1401
004707 0205
004710 1440
004711 0617
004712 2240
004713 1104
004714 0516
004715 2411
004716 0611
004717 0301
004720 2411
004721 1716
004722 0000
004723 2025 MDECLT, TEXT "PURPOSES ONLY. A DECIMAL NUMBER < 4096"
004724 2220
004725 1723
004726 0523
004727 4017
004730 1614
004731 3156
004732 4001
004733 4004
004734 0503
004735 1115
004736 0114
004737 4016
004740 2515
004741 0205
004742 2240
004743 7440
004744 6460
004745 7166
004746 0000
004747 0405 MDESLB, TEXT "DESCRIPTIVE LABEL: "
004750 2303
004751 2211
004752 2024
004753 1126
004754 0540
004755 1401
004756 0205
004757 1472
004760 4000
004761 2410 MDESAS, TEXT "THE DESCRIPTIVE LABEL MAY BE ANY STRING OF"
004762 0540
004763 0405
004764 2303
004765 2211
/HEADER.PA V50.1 PAL8-V50X 01-JUL-88 PAGE 1-45
004766 2024
004767 1126
004770 0540
004771 1401
004772 0205
004773 1440
004774 1501
004775 3140
004776 0205
004777 4001
005000 1631
005001 4023
005002 2422
005003 1116
005004 0740
005005 1706
005006 0000
005007 2520 M127CH, TEXT "UP TO 127 CHARACTERS ON MULTIPLE LINES"
005010 4024
005011 1740
005012 6162
005013 6740
005014 0310
005015 0122
005016 0103
005017 2405
005020 2223
005021 4017
005022 1640
005023 1525
005024 1424
005025 1120
005026 1405
005027 4014
005030 1116
005031 0523
005032 0000
005033 1124 MTERMZ, TEXT "IT MUST BE TERMINATED WITH A ^Z (CNT/Z)"
005034 4015
005035 2523
005036 2440
005037 0205
005040 4024
005041 0522
005042 1511
005043 1601
005044 2405
005045 0440
005046 2711
005047 2410
005050 4001
005051 4036
005052 3240
005053 5003
005054 1624
/HEADER.PA V50.1 PAL8-V50X 01-JUL-88 PAGE 1-46
005055 5732
005056 5100
005057 0617 MTERCR, TEXT "FOLLOWED BY A CARRIAGE RETURN."
005060 1414
005061 1727
005062 0504
005063 4002
005064 3140
005065 0140
005066 0301
005067 2222
005070 1101
005071 0705
005072 4022
005073 0524
005074 2522
005075 1656
005076 0000
005077 1517 MTH128, TEXT "MORE THAN 128 CHARS INPUT - TERMINATION FORCED"
005100 2205
005101 4024
005102 1001
005103 1640
005104 6162
005105 7040
005106 0310
005107 0122
005110 2340
005111 1116
005112 2025
005113 2440
005114 5540
005115 2405
005116 2215
005117 1116
005120 0124
005121 1117
005122 1640
005123 0617
005124 2203
005125 0504
005126 0000
005127 2605 MVERS, TEXT "VERSION: "
005130 2223
005131 1117
005132 1672
005133 4000
005134 2523 MSTDST, TEXT "USE STANDARD START OF FILE STORAGE? "
005135 0540
005136 2324
005137 0116
005140 0401
005141 2204
005142 4023
005143 2401
/HEADER.PA V50.1 PAL8-V50X 01-JUL-88 PAGE 1-47
005144 2224
005145 4017
005146 0640
005147 0611
005150 1405
005151 4023
005152 2417
005153 2201
005154 0705
005155 7740
005156 0000
005157 0611 MFSTBL, TEXT "FILE STORAGE STARTS AT BLOCK (DECIMAL): "
005160 1405
005161 4023
005162 2417
005163 2201
005164 0705
005165 4023
005166 2401
005167 2224
005170 2340
005171 0124
005172 4002
005173 1417
005174 0313
005175 4050
005176 0405
005177 0311
005200 1501
005201 1451
005202 7240
005203 0000
005204 1617 MNOSYS, TEXT "NO SYSTEM PRESENT"
005205 4023
005206 3123
005207 2405
005210 1540
005211 2022
005212 0523
005213 0516
005214 2400
005215 2410 MNXPRZ, TEXT /THE NEXT PARAMETER IS USED FOR "ZERO" TO DETERMINE/
005216 0540
005217 1605
005220 3024
005221 4020
005222 0122
005223 0115
005224 0524
005225 0522
005226 4011
005227 2340
005230 2523
005231 0504
005232 4006
/HEADER.PA V50.1 PAL8-V50X 01-JUL-88 PAGE 1-48
005233 1722
005234 4042
005235 3205
005236 2217
005237 4240
005240 2417
005241 4004
005242 0524
005243 0522
005244 1511
005245 1605
005246 0000
005247 2710 MSTBEG, TEXT "WHERE FILE STORAGE BEGINS"
005250 0522
005251 0540
005252 0611
005253 1405
005254 4023
005255 2417
005256 2201
005257 0705
005260 4002
005261 0507
005262 1116
005263 2300
005264 2324 MSTD07, TEXT "STANDARD IS 7 FOR NON-SYSTEM DEVICES,"
005265 0116
005266 0401
005267 2204
005270 4011
005271 2340
005272 6740
005273 0617
005274 2240
005275 1617
005276 1655
005277 2331
005300 2324
005301 0515
005302 4004
005303 0526
005304 1103
005305 0523
005306 5400
005307 6665 MSTD56, TEXT "65 FOR SYSTEM DEVICE"
005310 4006
005311 1722
005312 4023
005313 3123
005314 2405
005315 1540
005316 0405
005317 2611
005320 0305
005321 0000
/HEADER.PA V50.1 PAL8-V50X 01-JUL-88 PAGE 1-49
005322 1515 MMMMMT, TEXT "MMMM!! THAT FEELS BETTER!"
005323 1515
005324 4141
005325 4024
005326 1001
005327 2440
005330 0605
005331 0514
005332 2340
005333 0205
005334 2424
005335 0522
005336 4100
005337 2303 MSCRLL, TEXT "SCRATCH A LITTLE TO THE LEFT...."
005340 2201
005341 2403
005342 1040
005343 0140
005344 1411
005345 2424
005346 1405
005347 4024
005350 1740
005351 2410
005352 0540
005353 1405
005354 0624
005355 5656
005356 5656
005357 0000
005360 1515 MMMMMM, TEXT "MMMMMMM!!"
005361 1515
005362 1515
005363 1541
005364 4100
005365 5252 MCHNG, TEXT "**CHANGE THIS**? "
005366 0310
005367 0116
005370 0705
005371 4024
005372 1011
005373 2352
005374 5277
005375 4000
005376 2014 MANABC, TEXT "PLEASE ANSWER A, B, OR C "
005377 0501
005400 2305
005401 4001
005402 1623
005403 2705
005404 2240
005405 0154
005406 4002
005407 5440
005410 1722
/HEADER.PA V50.1 PAL8-V50X 01-JUL-88 PAGE 1-50
005411 4003
005412 4000
005413 0417 MWISH, TEXT "DO YOU WISH TO"
005414 4031
005415 1725
005416 4027
005417 1123
005420 1040
005421 2417
005422 0000
005423 4040 MWISHA, TEXT " A:REPLACE"
005424 0172
005425 2205
005426 2014
005427 0103
005430 0500
005431 4040 MWISHB, TEXT " B:SELECIVELY DECIDE"
005432 0272
005433 2305
005434 1405
005435 0311
005436 2605
005437 1431
005440 4004
005441 0503
005442 1104
005443 0500
005444 4040 MWISHC, TEXT " C:PRINT IT?"
005445 0372
005446 2022
005447 1116
005450 2440
005451 1124
005452 7700
005453 2305 MSQVOL, TEXT "SEQUENTIAL VOLUMES (Y OR N)? "
005454 2125
005455 0516
005456 2411
005457 0114
005460 4026
005461 1714
005462 2515
005463 0523
005464 4050
005465 3140
005466 1722
005467 4016
005470 5177
005471 4000
005472 1517 MMNTNV, TEXT "MOUNT NEW VOLUME, THEN TYPE Y: "
005473 2516
005474 2440
005475 1605
005476 2740
005477 2617
/HEADER.PA V50.1 PAL8-V50X 01-JUL-88 PAGE 1-51
005500 1425
005501 1505
005502 5440
005503 2410
005504 0516
005505 4024
005506 3120
005507 0540
005510 3172
005511 4000
005512 2014 MWRENA, TEXT "PLEASE WRITE ENABLE THE DEVICE"
005513 0501
005514 2305
005515 4027
005516 2211
005517 2405
005520 4005
005521 1601
005522 0214
005523 0540
005524 2410
005525 0540
005526 0405
005527 2611
005530 0305
005531 0000
005532 1725 MOUCH, TEXT "OUCH!!"
005533 0310
005534 4141
005535 0000
005536 3117 MYFORG, TEXT "YOU FORGOT SOMETHING."
005537 2540
005540 0617
005541 2207
005542 1724
005543 4023
005544 1715
005545 0524
005546 1011
005547 1607
005550 5600
005551 2410 MTHNKS, TEXT "THANKS!"
005552 0116
005553 1323
005554 4100
005555 0314 MPRSW, TEXT "CLUE: YOU NEED TO PRESS A SWITCH"
005556 2505
005557 7240
005560 3117
005561 2540
005562 1605
005563 0504
005564 4024
005565 1740
005566 2022
/HEADER.PA V50.1 PAL8-V50X 01-JUL-88 PAGE 1-52
005567 0523
005570 2340
005571 0140
005572 2327
005573 1124
005574 0310
005575 0000
005576 3117 MDUMMY, TEXT "YOU DUMMY! I CAN'T DO EVERYTHING"
005577 2540
005600 0425
005601 1515
005602 3141
005603 4011
005604 4003
005605 0116
005606 4724
005607 4004
005610 1740
005611 0526
005612 0522
005613 3124
005614 1011
005615 1607
005616 0000
005617 2410 MWRNEN, TEXT "THE DEVICE NEEDS TO BE WRITE ENABLED"
005620 0540
005621 0405
005622 2611
005623 0305
005624 4016
005625 0505
005626 0423
005627 4024
005630 1740
005631 0205
005632 4027
005633 2211
005634 2405
005635 4005
005636 1601
005637 0214
005640 0504
005641 0000
005642 1605 MGHELP, TEXT "NEXT TIME GET HELP!"
005643 3024
005644 4024
005645 1115
005646 0540
005647 0705
005650 2440
005651 1005
005652 1420
005653 4100
005654 2422 MTRYAG, TEXT "TRY ADAIN?"
005655 3140
/HEADER.PA V50.1 PAL8-V50X 01-JUL-88 PAGE 1-53
005656 0104
005657 0111
005660 1677
005661 0000
005662 4003 MCONFL, TEXT " CONFLICTS WITH "
005663 1716
005664 0614
005665 1103
005666 2423
005667 4027
005670 1124
005671 1040
005672 0000
005673 1005 MHVERS, TEXT "HEADER VERSION 50"
005674 0104
005675 0522
005676 4026
005677 0522
005700 2311
005701 1716
005702 4065
005703 6000
005704 0411 MDIDAH, TEXT "DIRECTORY DATE SHOWS EPOCH OF FILES ON MEDIUM"
005705 2205
005706 0324
005707 1722
005710 3140
005711 0401
005712 2405
005713 4023
005714 1017
005715 2723
005716 4005
005717 2017
005720 0310
005721 4017
005722 0640
005723 0611
005724 1405
005725 2340
005726 1716
005727 4015
005730 0504
005731 1125
005732 1500
005733 2014 MDIASK, TEXT "PLEASE ENTER DIRECTORY DATE: "
005734 0501
005735 2305
005736 4005
005737 1624
005740 0522
005741 4004
005742 1122
005743 0503
005744 2417
/HEADER.PA V50.1 PAL8-V50X 01-JUL-88 PAGE 1-54
005745 2231
005746 4004
005747 0124
005750 0572
005751 4000
005752 2014 MDIERR, TEXT "PLEASE ENTER YEAR BETWEEN 1971 AND 2034"
005753 0501
005754 2305
005755 4005
005756 1624
005757 0522
005760 4031
005761 0501
005762 2240
005763 0205
005764 2427
005765 0505
005766 1640
005767 6171
005770 6761
005771 4001
005772 1604
005773 4062
005774 6063
005775 6400
005776 0411 MDIDAP, TEXT "DIRECTORY DATE: "
005777 2205
006000 0324
006001 1722
006002 3140
006003 0401
006004 2405
006005 7240
006006 0000
006007 0000 0000
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
/HEADER.PA V50.1 PAL8-V50X 01-JUL-88 PAGE 1-55
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
014410 0007 HDRSTR, 7
014411 0000 HDRDID, 0
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 01-JUL-88 PAGE 2
ASKDVL 1024 DVCTWT 7760 MANABC 5376 MTERCR 5057
BADDIR 0640 DVLDC 1400 MAUTOA 4571 MTERMZ 5033
BADHDR 3100 DVLENT 3200 MAYNMQ 4172 MTHNKS 5551
BADSTR 1040 DVLNAM 3300 MBADIN 3755 MTH128 5077
BATCCL 7777 ENDPRC 3011 MBC 6174 MTRYAG 5654
BDEVEN 2534 ENFROM 0014 MCHNG 5365 MUDVNM 4524
BDEVNA 2444 ENTO 0015 MCONER 3612 MULTPR 0660
BDEVNX 2527 ENTRY 0043 MCONFL 5662 MUNIQE 4647
BDEVOF 2463 GDEVNA 0400 MCONTI 4104 MUSALO 4542
BDEVOK 2504 GEDVLN 1736 MDECLT 4723 MVDEVS 4251
BDEV4 2454 GETA 1734 MDEC8 3702 MVERCO 4475
CHAR1 0037 GETABC 1701 MDESAS 4761 MVERS 5127
CHAR2 0040 GETB 1733 MDESLB 4747 MVERSY 4436
CHCNT 0051 GETC 1732 MDEVNA 3746 MVOLEL 4671
CHHALF 0053 GETLIN 2316 MDEVNF 3763 MVOLE2 2075
CHKUSA 2400 GETLPT 0013 MDEVSL 4150 MVOLID 4662
CHNGIT 0500 GLNSTD 1000 MDIASK 5733 MWHELP 3637
CHNG1 0512 GTS 6210 MDIDAH 5704 MWISH 5413
CHPNT 0052 GUDVNM 1200 MDIDAP 5776 MWISHA 5423
CHTMP 0050 GUDVN2 1336 MDIERR 5752 MWISHB 5431
CNT 0046 HDRBAT 4513 MDIRPA 4001 MWISHC 5444
COCNT 0047 HDRBLK 4504 MDIRZE 4116 MWRENA 5512
CONDEC 0711 HDRDAT 4512 MDMPIT 4041 MWRNEN 5617
CONEXI 0751 HDRDID 4411 MDUMMY 5576 MYES 3651
CONLUP 0713 HDRFLG 4402 MDVHPA 4023 MYFORG 5536
CRLF 0027 HDRLBL 4600 MDVLDC 4273 M0EQUN 4342
CTRLC 0516 HDRLEN 4403 MDVLST 3361 M1PS8 4352
CTRLO 0530 HDRREL 4507 MERB16 4056 M127CH 5007
CTRL2 0541 HDRSID 4505 MFSTBL 5157 M2CHAR 4617
DCM 7575 HDRSQM 4406 MGHELP 5642 M2OS8 4357
DECCNT 1506 HDRSQO 4405 MHVERS 5673 M3OS12 4364
DECCON 1425 HDRSTR 4410 MINDAT 4310 M4DECS 4372
DECDIG 1507 HDRSYS 4407 MINKM 3722 M5OS78 4404
DECINC 1505 HDRUDV 4477 MISSYS 4321 M6ETOS 4412
DECINP 1504 HDRUSA 4500 MMMMMM 5360 M7MLTI 4420
DECLUP 1443 HDRVER 4506 MMMMMT 5322 M8MLTO 4427
DECLU0 1440 HDRVOL 4504 MMNTNV 5472 NOSID 1261
DECTBL 1477 HDRZEA 4404 MNO 3653 PAGE2 0200
DEC0 1503 HDRZ6 4476 MNOSYS 5204 PNT1 0045
DELFLG 0044 HDR10 4510 MNSDEV 4212 PRCR 2647
DESLBL 2200 HDR11 4511 MNXPRZ 5215 PRCTL 2670
DIRADD 2004 HELP 0030 MOUCH 5532 PRCTL2 2675
DIRASK 1112 HNDBUF 7200 MPARBL 3655 PRDEL 2707
DIRBUF 2000 INBUF 6700 MPLYN 3623 PREMP 2727
DIRDAT 1077 KMEXIT 0032 MPRSW 5555 PRESC 2703
DIRFIL 2006 KMON 7600 MSCRLL 5337 PRIGN 2604
DIRHDR 4400 LBLCNT 0024 MSIDSW 3611 PRINT 0026
DIRNXT 2002 LBLGET 2236 MSQVOL 5453 PRLF 2750
DIRPNT 0022 LBLOUT 2253 MSTBEG 5247 PRLF2 2724
DIRSTR 2001 LBLPNT 0025 MSTDST 5134 PRNTIT 0020
DPIC 7573 LBLSTR 2230 MSTDVA 4236 PRNTNL 2332
DPSZ 7451 LBM 6170 MSTDVL 4133 PRNTNZ 2324
DVCTEN 1750 LRR 6240 MSTD07 5264 PRSUB 2657
DVCTER 1752 LUSR 6260 MSTD56 5307 RACA 6175
DVCTW 1747 LXM 6200 MSYSID 4334 RACB 6176
/HEADER.PA V50.1 PAL8-V50X 01-JUL-88 PAGE 2-1
RACC 6177 XREAD 2600
RBM 6171 XR2 0012
RDEVNA 0034 XTEMP 1342
READ 0035 XTYPE 2540
READER 0673 XX 1542
READIR 0600 XYES 0327
RECC 1520 XYES2 0335
RECOVR 2112 YN 0031
REC1 2123 ZLOCS 2000
REC2 2141 ZLOCSP 2013
REC3 1510
REC4 1533
RLB 6172
RMR 6173
RRR 6250
RTS 6220
RUSR 6270
RXM 6230
SAM 7457
SAVHDR 5000
SAVNXT 5002
SAVSTR 5001
SCA 7441
START 0200
STDLEN 1033
STRTEN 0215
SWIT 0300
SWITCH 2733
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 2257
WRDATE 3000
WRFLG 0021
WRHDR 2307
WRITOK 0023
XANPR 0275
XCRLF 2343
XHELP 0264
XNO 0332
XPIND 0223
XPRBYT 0251
XPRINT 0230
XPRNX 0236
ERRORS DETECTED: 0
LINKS GENERATED: 0