Directory of image this file is from
This file as a plain text file

|@
H 
@@@a@`		.. 
 

 	
. - (/2S-
#
(
$$?<?9(? )i 9"`8b
++tr/#!2DM
q@nb("rjb5a1v 8.` `?E
!p
$P
@@^_4!R*2#\p)W(q`Y/KS"U
pFtgpqz |VPq-

L20 "&;q"M/g
%[q)!ro ~)@n*&+&,&@MC~P z.}/Em*JC|P{ . !z$.z/BmC|P +z..y/@mEE]CxPw . 9z<.v/Dm@C*ub~CxP IzL.t/skd*!RJ"L*p'+o',+/rf

hvzfn 
bDf.Hs{b hJ
!@
 p/PART OF CRUDS WHICH SAVES BUFFERS
MQL=7421
MQA=7501
BSW=7002
FIELD 1
*400
A, CLA CLL /DISPLAY A NAME BUFFER
 TAD (-7)
 DCA CNT
 TAD (BUFFER+1)
 DCA DPOINT
 TAD (3000)
 DCA I DPOINT
 ISZ DPOINT
 ISZ CNT
 JMP .-4
 CLA CLL
 TAD (BUFFER)
 6150
   TAD (10)
 6151
 TAD (BUFFER)
 DCA DPOINT
 A1, KSF 100
 JMP .-1
 KRB 100
 AND (0177)
 DCA I DPOINT
 JMS FIND
 ISZ DPOINT
 CLA CLL
 TAD (BUFFER+7)
 CIA
 TAD DPOINT
 SPA CLA
 JMP A1
 TAD (BUFFER+6)
 DCA DPOINT
 JMP A1
FIND,0/ACCEPT A SIX CHARACTER NAME
 TAD I DPOINT
 TAD (-54)
 SZA CLA
 JMP F1
 CLA CLL CMA RAL
 TAD DPOINT
 DCA DPOINT
 TAD (BUFFER-1)
 CIA
 TAD DPOINT
 SMA SZA CLA
 JMP I FIND
 TAD (BUFFER-1)
 DCA DPOINT
 JMP I FIND
F1, TAD I DPOINT
 TAD (-15)
 SZA CLA
 JMP I FIND
 JMP COMPRS
BUFFER,0063
0
0
0
0
0
0
0
COMPRS, CLA CLL/COMPRESS SIX CHARACTERS INTO THREE WORDS
 TAD BUFFER
 AND (77)
 BSW
 DCA TEMP1
 TAD BUFFER+1
 AND (77)
 TAD TEMP1
 DCA NAME
 TAD BUFFER+2
 AND (77)
 BSW
 DCA TEMP1
 TAD BUFFER+3
 AND (77)
 TAD TEMP1
 DCA NAME+1
 TAD BUFFER+4
 AND (77)
 BSW
 DCA TEMP1
 TAD BUFFER+5
 AND (77)
 TAD TEMP1
 DCA NAME+2
 6152
 JMP I (600)
TEMP1,0
DPOINT,0
CNT,-1000
*600
 TAD NAMED
 DCA D1
 TAD NAMED+1
 DCA D1+1
 TAD (7201)
 DCA D1+2
 TAD (NAME)
 DCA D2
 DCA D3
 TAD I (7746)
 AND (7776)
 DCA I (7746)
 CDF 10
 CIF 10
 JMS I (7700)/USR IN
 10
 CLA
 CDF 10
 CIF 10
 JMS I (200)
 1
D1, 0
 0
 7201/DEVICE HANDLER
 JMP ERR1
 CLA
 TAD D1+1
 CDF 10
 CIF 10
 JMS I (200)/0PEN AND ENTER DEVICE HANDLER
 3
D2, NAME
 D3, 0
 JMP ERR2
 CLA CLL
 TAD D2
 DCA D6
 CDF 10
 CIF 00
 JMS I D1+2
D4, 5101
D5, 1000
D6,0
 JMP ERR3
 CLA
 TAD D1+1
 CDF 10
 CIF 10/CLOSE FILE
 JMS I (200)
 4
 NAME
 30
 JMP ERR4
 JMP DONE
NAME, FILENAME PATBUF.SV
NAMED, DEVICE DTA0
ERR1, CIF 10
 JMS I (200)
 7
 1
ERR2, CIF 10
 JMS I (200)
 7