|
DataMuseum.dkPresents historical artifacts from the history of: Philips Data Systems |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Philips Data Systems Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 23020 (0x59ec)
Notes: pts_type(SC)
Names: »FILES.SC«
└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
└─⟦this⟧ »PTSDEMO/FILES.SC«
IDENT FILES SEP 80,SEBE,BSO APELDOORN
*
*
*
*
***********************************************************************
*
* F I L E S
* ***************
*
* THIS MODULE PROVIDES AN CREDIT INTERFACE TO HANDLE THE TOSS
* UTILITIES. ALL THE ROUTINES ARE IN ASSEMBLER.
*
* THE INTERFACE IS CALLED UPON THE FOLLOWING MANNERS :
*
*
* 1) TO CREATE A STANDARD FILE
*
* CALL CRFS,DATAITEM1,VAL1,VOL1(,VOL2,..),DATE,RECL,NOREC,
* BF,NOIND,KEY,ERROR
*
* DATAITEM1 CONTAINS THE FILE NAME.(MUST BE 8 CHAR.)
* VAL1 CONTAINS THE NUMBER OF VOLUMES.
* VOL(1-4) REPRESENTS DATAITEMS IN WICH THE VOLUMENAMES
* ARE PLACED (EACH ONE MUST BE 6 CHAR.)
* DATE A STRING ITEM WITH THE SYSTEM DATE.
* BF REPRESENTS THE BLOCKINGS FACTOR. (IN BINAIRY).
* RECL IS A BINAIRY WITH THE RECORD LENGTH.
* NOREC IS A BINAITY WITH THE NUMBER OF RECORDS.
* NOIND REPRESENTS THE NUMBER OF INDEX FILES.
* KEY REPRESENTS A DATAITEM IN WICH THE KEYADRES IS PLACED.
* ERROR THIS FIELD CONTAINS THE ERROR NUMBER.
*
*
* 2) TO DELETE A STANDARD FILE.
*
* CALL DLFS,DATAITEM1,VAL1,VOL1,(VOL2..),ERROR
*
* THE CONTENS OF THE ITEMS IS THE SAME AS WITH A CREATE FILE.
*
*
***********************************************************************
*
* SEE NEXT PAGE.
*
EJECT
*
***********************************************************************
*
*
* 3) TO GET THE LRN OF A STANDARD FILE.
*
* CALL GETLRN,DATAITEM1,VAL1,VOL1,(VOL2,..),LRN,ERROR
*
* LRN CONTAINS THE LAST RECORD NUMBER OF A FILE
* AFTER THE CALL GETLRN IS PERFORMED SUCCESFULL.
*
* THE CONTENS OF THE OTHER ITEMS IS THE SAME AS WITH A
* CREATE FILE.
*
*
* 4) TO UPDATE THE LRN OF A STANDARD FILE.
*
* CALL PUTLRN,DATAITEM1,VAL1,VOL1,(VOL2,..),LRN,ERROR
*
* THE CONTENS OF THE ITEMS IS THE SAME AS WITH A
* CALL GETLRN, BUT IN THIS CASE THE LRN IS UPDATED
* AT THE RIGTH PLACE IN THE -VTOC-.
*
*
* 5) SOME ROUTINES TO GET THE SPECIALITIES FROM A FILE.
* ALL THESE ROUTINES ARE THE SAME AS THE GETLRN.
*
* CALL GET...,DATAITEM1,VAL1,VOL1,(VOL2,..),...,ERROR
*
* GETRL RECORD LENGTH.
* GETEL FILE EXTENSION LENGTH.
* GETBF BLOCKINGS FACTOR.
* GETNIF NUMBER OF INDEX FILES.
* GETKA KEY ADDRESS.
*
*
* 6) COPY FILE TO FILE.
*
* CALL CFF,FILEIN,VOL1,FILEOUT,VOL2,ERROR
*
* FILEIN CONTAINS THE NAME OF THE INPUT FILE.
* FILEOUT CONTAINS THE NAME OF THE OUTPUT FILE.
* VOL1 CONTAINS THE VOLUME NAME OF INPUTFILE.
* VOL2 CONTAINS THE VOLUME NAME OF OUTPUTFILE.
*
*
* BY : SEBE KRUIJER.
***********************************************************************
*
EJECT
*
*************************************************
* E N T R I E S A N D E X T E R N A L S *
*************************************************
*
ENTRY CRFS
ENTRY DLFS
ENTRY A:PPC
ENTRY A:EVA -ROUTINE FOR I:EVA0.
ENTRY GETLRN
ENTRY PUTLRN
ENTRY CFF
ENTRY GETRL
ENTRY GETEL
ENTRY GETBF
ENTRY GETNIF
ENTRY GETKA
*
*
EXTRN I:EVA0
EXTRN I:RT1
EXTRN CRFILE
EXTRN DLFILE
EXTRN COPFIL
EJECT
*
*********************************************************
*
* C R E A T E A S T A N D A R D F I L E
*
*
CRFS EQU *
CF A14,STANDRD -STANDARD FILE BLOCK.
CF A14,TEKST -FILL DATE RET. PERIOD.
CF A14,A:EVA
ST A3,BLOCK+50 -RECORD LENGTH.
CF A14,A:EVA
ST A3,BLOCK+56 -NO OF RECORDS.
CF A14,A:EVA -HAAL BLOCKINGSFACTOR.
SC A3,BLOCK+49 -STORE
CF A14,A:EVA
SLL A3,8 -NIF TO 1E BYTE.
ST A3,BLOCK+54
CF A14,A:EVA -GET KEYADRES.
ST A3,BLOCK+52
CF A14,STORE -SAVE REG 11 .. 13
LDKL A12,BLOCK -BLOCK ADRES.
CF A14,CRFILE -THE CREATE
RF CFFEND -TO COMMON SEGMENT
*
*
****************************************************************
*
* D E L E T E A S T A N D A R D F I L E
*
*
DLFS EQU *
CF A14,STANDRD STANDARD PARAM.
CF A14,STORE STORE REGISTERS.
LDKL A12,BLOCK
CF A14,DLFILE -DELETE THE FILE.
RF CFFEND
*
*
***************************************************************
EJECT
*
*
***************************************************************
*
* THIS ROUTINE IS TO GET THE LAST RECORD NUMBER FROM
* THE -VTOC-.
*
***************************************************************
*
GETLRN EQU *
CF A14,LRN
LDR A1,A1
RF(NZ) AFHAND
LD A4,22,A4 -GET LRN NR.
GETAF EQU *
CF A14,I:EVA0
STR A4,A9 STORE LAST REC NUMBER
LDK A1,0 -INDICATION OK.
AFHAND EQU *
LDK A2,2
ADS A2,REG12 -NIEUWE A12
LDR A1,A1 -IS IT OKE.?
RF(Z) COMSEG
RF GETRC
*
*
**************************************************************
*
* THIS ROUTINE IS THE PUTLRN.
*
***************************************************************
*
PUTLRN EQU *
CF A14,LRN
LDR A1,A1
RB(NZ) AFHAND
CF A14,A:EVA
ST A3,22,A4 -STORE RECORD NUMBER.
CF A14,WRITE -WRITE THE LRN.
*
RB AFHAND
*
EJECT
*
***************************************************
* GET THE RECORD LENGTH.
***************************************************
*
GETRL EQU *
CF A14,LRN -SOME STANDARDS.
LDR A1,A1
RB(NZ) AFHAND -OKE ??
LD A4,24,A4 -THE RECORD LENGTH.
RB GETAF
*
*****************************************
* GET THE EXTENSION LENGTH.
*****************************************
*
GETEL EQU *
CF A14,LRN
LDR A1,A1 -OKE ??
RB(NZ) AFHAND
LD A4,14,A4 -THE EXTENSION LENGTH.
RB GETAF
*
****************************************
* GET THE BLOCKINGS FACTOR.
****************************************
*
GETBF EQU *
CF A14,LRN -STANDARDS.
LDR A1,A1
RB(NZ) AFHAND
LD A4,26,A4 -THE BLOCKINGS FACTOR.
SRL A4,8 -TO 2E BYTE.
RB GETAF
*
*****************************************
* GET THE NUMBER OF INDEX FILES.
*****************************************
*
GETNIF EQU *
CF A14,LRN
LDR A1,A1 -OKE ??
RB(NZ) AFHAND
LD A4,36,A4 -THE NUMBER.
SLL A4,8
SRL A4,8 -TO THE 2E BYTE.
RB GETAF
EJECT
*
*
******************************************
* GET THE KEY ADDRESS.
******************************************
*
GETKA EQU *
CF A14,LRN
LDR A1,A1 -OKE ??
RB(NZ) AFHAND
LD A4,38,A4 -THE KEY ADDRESS.
RB GETAF
*
*
******************************************
* COPY FILE TO FILE.
******************************************
*
CFF EQU *
CF A14,QUEUE -SYSTEM FREE.
CF A14,INIT
CF A14,ASROUT -ASSIGN FILES.
CF A14,ASROUT
LD A1,FC1 -FC1 := C0.
SUK A1,2
ST A1,FC1
LDK A2,0
ST A2,BLOCK+4 INIT BLOCK.
ADK A2,1
ST A2,BLOCK+8
LD A3,FC1A2 -THE FILE CODES.
ST A3,BLOCK+6 -IN THE BLOCK.
CF A14,STORE
LDKL A12,BLOCK -BLOCK ADDRESS.
CF A14,COPFIL -COPY ROUTINE.
CFFEND EQU *
RF COMSEG
*
EJECT
*
*
********************************************
* THE ASSIGN ROUTINE.
* THE FILE CODE IS INCREASED.
********************************************
*
ASROUT EQU *
CF A14,I:EVA0 -A FILENAME.
LDK A4,8 -BYTES TO MOVE.
LDK A3,6 -FROM BYTE 6.
CF A14,A:MOVE
CF A14,I:EVA0 -A VOLUME NAME.
LDK A4,6
LDK A3,14
CF A14,A:MOVE
LDKL A8,ASSBLK -ADDRESS BLOCK.
LDK A7,0 -NORMAL ASSIGN.
LD A1,FC1 FILE CODE.
STR A1,A8 -TO BLOCK.
IM FC1
LKM
DATA 15 -THE ASSIGN.
RTN A14
*
*
EJECT
*
***************************************
* G E T R E T U R N C O D E
***************************************
*
GETRC EQU *
LD A2,RETCOD
LDR A1,A2 -RETURN CODE IN A1
ANKL A1,/028E -I/O ERROR ??
RF(NZ) COMSEG -IN A1 FOUT.
LDR A1,A2 -WAIT.
ANK A1,/20 -FILE NAME UNKNOWN.
RF(NZ) COMSEG -IN A1 AL WRONG.
LDR A1,A2
ANK A1,1 -DISK NOT OPERABLE.
RF(NZ) COMSEG
LDR A1,A2 -VOLUME NAME UNKNOWN.
RF COMSEG
*
*
*********************************************
* C O M S E G
*
* COMMON EXIT PART FOR ALL FUNCTIONS.
*********************************************
*
*
COMSEG EQU *
LDR A4,A1
CF A14,RESTOR -RESTORE A11,..A13
CF A14,I:EVA0
STR A4,A9
LDK A1,0 -PRESET COND. REG.
LDR A4,A4 -TJEK ON STATUS.
RF(Z) CON0
LDK A1,2 -ERROR.
CON0 EQU *
CF A14,KONDIT
CM FREE -FREE.
ABL I:RT1
EJECT
*
*********************************************************
*
* STANDARD ROUTINES FOR THE GETLRN.
*
*
LRN EQU *
CF A14,STANDRD -GET FILENAME + VOLUME NAME
CF A14,STORE
CF A14,INIT1 -FC--> E9, REC LENGTH--> 410
VOLG CF A14,INIT2 -BUFADRES + SECNR.
CF A14,GETVOL -GET VOLUME.
LDR A1,A1
RF(NZ) ENDLRN -NOT OPERABLE
CF A14,NXTECB -ADJUST THE ECB.
CF A14,VTOC -SEARCH THE VTOC.
LDR A1,A1
RF(NZ) ENDLRN -I/O ERROR
LDR A8,A8 -FILE NOT IN VTOC.
RB(Z) VOLG
ENDLRN EQU *
RTN A14
*
*
INIT1 EQU *
LDK A1,0
ST A1,RETCOD -INIT RETURN CODE
LDK A1,/E8
ST A1,ECB
LDKL A2,/19A
ST A2,ECB+4 -RECORD LENGTH
RTN A14
*
INIT2 EQU *
LDK A2,0
ST A2,SECNR -SECTOR NUMBER.
LDKL A2,BUFFER
ST A2,ECB+2 -BUFFER ADRES
LDK A1,1
RTN A14
EJECT
*
***************************************
* GET THE VOLUME NAME.
***************************************
*
*
GETVOL EQU *
ADS A1,ECB -STORE FILECODE
LC A1,ECB+1
SUK A1,/F4 -IS IT F4 ?
RF(Z) VOLABSEN
CF A14,READ
LDR A1,A1
RF(NZ) NEXTVOL
CF A14,CHKVLN -CHECK VOLUME NAME.
LDR A1,A1
RF(NZ) NXVOL -NEXT VOLUME
RTN A14
NXVOL EQU *
LDK A1,/40 -VOLUME NAME UNKNOWN.
ORS A1,RETCOD
NEXTVOL LDK A1,1 -FILECODE 1 UP.
RB GETVOL -ONES MORE.
VOLABSEN LDK A1,2
RTN A14
*
*
*
EJECT
*
*
********************************************************
* I / O R O U T I N E S .
********************************************************
*
*
READ EQU *
LDK A7,/91 -PHYSICAL READ.
RF IODISC
*
*
WRITE EQU *
LDK A7,/95 -PHYSICAL WRITE.
RF IODISC
*
*
*
* CHECK THE RETURN CODE.
*
IODISC EQU *
LDK A2,1 -INDICATION RETRY.
LDKL A8,ECB
RETRY LKM
DATA 1
LD A1,8,A8 -RETURN CODE.
RF(Z) EOREAD
SUK A2,1 -RETRY ??
RB(Z) RETRY
ORS A1,RETCOD -STORE TOTAL RETURN CODE
EOREAD EQU *
RTN A14
*
*
**************************************************************
* CHECK CONDITION REGISTER.
**************************************************************
*
KONDIT EQU *
LD A2,2,A13
SC A1,-2,A2
RTN A14
*
*
*
A:EVA EQU *
CF A14,I:EVA0
LDR* A3,A9
RTN A14
*
EJECT
*
*
*****************************************
* CHECK VOLUME NAME.
*****************************************
*
CHKVLN EQU *
LD A2,ECB+2 -BUFFER ADRS.
ADK A2,2 -POINTER IN BUFFER.
ST A2,C:STOR -ROUTINE COMPARE
LDK A3,1 -PRESET NUMBER OF CHECKS
LDKL A4,BLOCK+16 -BASIC VOLUME NAME
LABEL EQU *
LDK A1,6
CF A14,COMPAR -CHECK THE NAME
LDR A1,A1
RF(Z) EINDE
ADK A3,1 -NEXT NAME
CWR A6,A3 -ALL VOLUMES HAD ??
RF(N) EINDE
ADK A4,6 -ADJUST POINTER.
RB LABEL
EINDE RTN A14
*
*
COMPAR EQU *
LDK A5,0
ADR A4,A1 -THE CORRECT POINTER ?
C:LOOP SUK A1,1
SUK A4,1
LCR A5,A4 -CHAR IN A5.
CC A5,0,A1 -COMPARE CHAR.
C:STOR EQU *-2 -SAVE ADRES ITEM
RF(NZ) NOTSAME -NOT EQUAL
LDR A1,A1
RB(NZ) C:LOOP
RTN A14
NOTSAME EQU *
SUR A4,A1 -GET POINTER BACK
LDK A1,2
RTN A14
*
EJECT
*
*********************************
* GET NEXT ECB.
*********************************
*
*
NXTECB EQU *
LDKL A2,BUFFE2
ST A2,ECB+2 -SAVE BUFFER2 ADRES.
LD A6,BUFFER+12 -FREE SPACE TABLE
ADK A6,1
LD A3,BUFFER+8 -GET VTOC SECTORS.
ADR A3,A6 -LAST VTOC SECTOR.
RTN A14
*
*
*
**********************************************
* SEARCH FILENAME IN THE -VTOC-.
**********************************************
*
*
SEARCH EQU *
LDKL A4,BLOCK+8 -ADRES FILE NAME.
ST A4,C:STOR STORE IN ROUTINE COMPAR
LDKL A4,BUFFE2+2 -BEGIN VTOC RECORD.
LABEL2 LDK A1,8
CF A14,COMPAR -CHECK FILENAMES
LDR A1,A1
RF(Z) OKE -SAME ??
ADK A4,42 -NEXT VTOC RECORD.
CWK A4,BUFFE2+420 -END OF SECTOR.
RB(2) LABEL2 -NO GET BACK.
OKE RTN A14
*
EJECT
*
*
************************************
* READ SECTOR OF THE VTOC.
************************************
*
*
VTOC EQU *
ST A6,SECNR -STORE SECTOR NUMBER
CF A14,READ -READ SECTOR
LDR A1,A1
RF(NZ) ERRREAD -ERROR ?
CF A14,SEARCH -SEARCH FILE NAME.
LDR A1,A1
RF(Z) FOUND -FOUND ??
ADK A6,1 -NO NEXT ONE
CWR A3,A6 -END OF SECTOR ?
RB(NZ) VTOC -NO NEXT VTOC SECTOR.
LDK A1,/20 -FILENAME UNKNOWN
ORS A1,RETCOD -STORE RETURN CODE.
LDK A1,0
LDKL A8,0 -NOT PRESENT.
ERRREAD RTN A14
*
*
FOUND EQU *
LDK A1,0
RTN A14
*
*
EJECT
*
*
*************************************
* STANDARD SUB ROUTINE.
*************************************
*
*
STANDRD EQU *
CF A14,QUEUE
CF A14,INIT
CF A14,FILNAM
CF A14,A:PPC
LDR A7,A3 -SAVE REGISTER.
LDK A6,0
ST:01 EQU *
CF A14,VOLNAM
ADK A6,1
SUK A7,1
RB(NZ) ST:01
LDKL A1,/5353
SC A1,BLOCK+6 -STORE IN PARAM BLOCK.
RTN A14
*
*
*
**************************************
* SUB ROUTINE : QUEUE.
*
* THIS IS TO SHEDULE THE TASK UNTILL
* THE ENTRY IS OMITTED.
***************************************
*
*
QUEUE EQU *
LD A1,FREE -IS OMITTED ??
RF(Z) Q:RTN -OKAY IF ZERO.
LKM
DATA 0
RB QUEUE
Q:RTN EQU *
IM FREE -INDICATE USED.
RTN A14
*
*
EJECT
*
*
*****************************************
* THIS ROUTINE IS TO COPY THE USER
* FILENAME TO THE DISCRIPTOR BLOCK.
******************************************
*
*
FILNAM EQU *
CF A14,I:EVA0
LDK A4,8 -BYTES TO MOVE.
LDK A3,8 -FROM BYTE 8 IN BLOCK.
CF A14,A:MOVE
RTN A14
*
*
******************************************
* THIS ROUTINE IS TO MOVE THE VOLUME
* NAME TO THE DISCRIPTOR BLOCK.
*
* REG. A7 CONTAINS THE INDEX OF THE VOLUME NAME.
******************************************
*
*
VOLNAM EQU *
CF A14,I:EVA0
LDR A1,A6 -GET INDEX.
SLL A1,1 -MUL BY 2.
ADR A1,A6 -ADD VALUE.
SLL A1,1 -MUL BY 2 --> 6 X.
LDK A3,16 -VOLUME ENTRY.
ADR A3,A1 -ADD INDEX.
LDK A4,6 -LENGTH
CF A14,A:MOVE -MOVE VOLUME
RTN A14
*
*
*************************************************
* ROUTINE TO GET A CONSTANT VALUE FROM THE
* USER DATA DIVISION AND TO UPDATE THE
* PROGRAM POINTER.
*************************************************
*
*
A:PPC EQU *
LDK A3,0
LCR A3,A12
ADKL A12,1
RTN A14
EJECT
*
*
****************************************************
* ROUTINE TO MOVE CORE FROM USER TO THE
* DISCRIPTOR BLOCK.
*
* REG. A9 CONTAINS THE USER CORE ADRES.
* REG. A4 CONTAINS THE LENGTH
* REG. A3 CONTAINS THE ENTRY IN THE BLOCK.
*****************************************************
*
*
A:MOVE EQU *
LDKL A1,BLOCK -DISCRIPTOR BLOCK
ADR A1,A3 -ENTRY IN BLOCK
ST A1,DISCRIPT
ST A9,ADRES -USER ADRES.
LDK A1,0
M:LOOP EQU *
SUK A4,1 -EVERY THING MOVED ??
RF(N) M:END
LC A1,0,A4
ADRES EQU *-2
SC A1,0,A4
DISCRIPT EQU *-2
RB M:LOOP
M:END EQU *
RTN A14
*
*
******************************************************
* ROUTINE TO MOVE DATE AND RETENTION PERIOD
* FROM USER BUFFER TO DISCRIPTOR BLOCK.
*******************************************************
*
*
TEKST EQU *
CF A14,I:EVA0
LDK A4,15 LENGTH TEXT.
LDK A3,40 ENTRY IN BLOCK.
CF A14,A:MOVE
RTN A14
*
*
EJECT
*
*
******************************************************
* THIS ROUTINE IS TO INIT THE DISCRIPTOR BLOCK
* ON TO SPACES.
******************************************************
*
INIT EQU *
LDKL A1,/2020 -SPACES.
LDK A2,50
I:LOOP EQU *
ST A1,BLOCK+6,A2
SUK A2,2
RB(NN) I:LOOP -END OF BUFFER ??
LDK A1,0
ST A1,BLOCK+54 -NUMBER OF INDEX FILES --> 0
RTN A14
*
*
FREE DATA 0
FC1 DATA /01C0
FC1A2 DATA /C0C1
*
************************************************
* ROUTINE TO SAVE REGISTERS.
************************************************
*
STORE EQU *
ST A11,REG11
ST A12,REG12
ST A13,REG13
RTN A14
*
*
************************************************
* ROUTINE TO GET BACK THE SAVED REGISTERS.
************************************************
*
RESTOR EQU *
LDKL A11,0
REG11 EQU *-2
LDKL A12,0
REG12 EQU *-2
LDKL A13,0
REG13 EQU *-2
RTN A14
*
DATA 'TM','P-'
EJECT
*
*
************************************************************************
*
* D I S C R I P T O R B L O C K
*
*
BLOCK EQU *
DATA BUFFER
DATA BUFFE2
ASSBLK DATA 0
RES 16
ECB DATA 0
DATA 0
DATA 0
DATA 0
DATA 0 -RETURN CODE.
SECNR DATA 0 -SECTOR NUMBER.
RETCOD DATA 0
BUFADR DATA 0
DATA 0
*
*
*
************************************************************************
*
* C R E A T E A N D D E L E T E B U F F E R
*
*
*
DATA 0
DATA /4141
BUFFER EQU *
RES 205
BUFFE2 EQU *
RES 205
*
*
*
END
0x0000…003a (0, 0, 400) Head {h00=0x0036, h01=0x0050, text=» IDENT FILES SEP 80,SEBE,BSO APELDOORN «, t00=0x0000, t01=0x0004}
0x003a…0044 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0000, t01=0x003e}
0x0044…004e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0048}
0x004e…0058 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0052}
0x0058…0062 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x005c}
0x0062…00b2 Head {h00=0x004c, h01=0x0047, text=»*********************************************************************** «, t00=0x0000, t01=0x0066}
0x00b2…00bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00b6}
0x00bc…00ee Head {h00=0x002e, h01=0x0050, text=»* F I L E S«, t00=0x0000, t01=0x00c0}
0x00ee…0122 Head {h00=0x0030, h01=0x0050, text=»* *************** «, t00=0x0000, t01=0x00f2}
0x0122…012c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0126}
0x012c…0172 Head {h00=0x0042, h01=0x003e, text=»* THIS MODULE PROVIDES AN CREDIT INTERFACE TO HANDLE THE TOSS«, t00=0x0000, t01=0x0130}
0x0172…01aa Head {h00=0x0034, h01=0x0050, text=»* UTILITIES. ALL THE ROUTINES ARE IN ASSEMBLER.«, t00=0x0000, t01=0x0176}
0x01aa…01b4 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0001, t01=0x001e}
0x01b4…01f4 Head {h00=0x003c, h01=0x0050, text=»* THE INTERFACE IS CALLED UPON THE FOLLOWING MANNERS : «, t00=0x0001, t01=0x0028}
0x01f4…01fe Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0001, t01=0x0068}
0x01fe…0208 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0072}
0x0208…0230 Head {h00=0x0024, h01=0x001f, text=»* 1) TO CREATE A STANDARD FILE «, t00=0x0001, t01=0x007c}
0x0230…023a Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0001, t01=0x00a4}
0x023a…0282 Head {h00=0x0044, h01=0x0050, text=»* CALL CRFS,DATAITEM1,VAL1,VOL1(,VOL2,..),DATE,RECL,NOREC, «, t00=0x0001, t01=0x00ae}
0x0282…02b8 Head {h00=0x0032, h01=0x0050, text=»* BF,NOIND,KEY,ERROR«, t00=0x0001, t01=0x00f6}
0x02b8…02c2 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0001, t01=0x012c}
0x02c2…0302 Head {h00=0x003c, h01=0x0038, text=»* DATAITEM1 CONTAINS THE FILE NAME.(MUST BE 8 CHAR.)«, t00=0x0001, t01=0x0136}
0x0302…033a Head {h00=0x0034, h01=0x002f, text=»* VAL1 CONTAINS THE NUMBER OF VOLUMES. «, t00=0x0001, t01=0x0176}
0x033a…037e Head {h00=0x0040, h01=0x003c, text=»* VOL(1-4) REPRESENTS DATAITEMS IN WICH THE VOLUMENAMES«, t00=0x0002, t01=0x001e}
0x037e…03bc Head {h00=0x003a, h01=0x0035, text=»* ARE PLACED (EACH ONE MUST BE 6 CHAR.) «, t00=0x0002, t01=0x0062}
0x03bc…03f8 Head {h00=0x0038, h01=0x0050, text=»* DATE A STRING ITEM WITH THE SYSTEM DATE. «, t00=0x0002, t01=0x00a0}
0x03f8…043e Head {h00=0x0042, h01=0x0050, text=»* BF REPRESENTS THE BLOCKINGS FACTOR. (IN BINAIRY).«, t00=0x0002, t01=0x00dc}
0x043e…047a Head {h00=0x0038, h01=0x0050, text=»* RECL IS A BINAIRY WITH THE RECORD LENGTH.«, t00=0x0002, t01=0x0122}
0x047a…04ba Head {h00=0x003c, h01=0x0038, text=»* NOREC IS A BINAITY WITH THE NUMBER OF RECORDS.«, t00=0x0002, t01=0x015e}
0x04ba…04f8 Head {h00=0x003a, h01=0x0050, text=»* NOIND REPRESENTS THE NUMBER OF INDEX FILES. «, t00=0x0003, t01=0x000e}
0x04f8…0546 Head {h00=0x004a, h01=0x0045, text=»* KEY REPRESENTS A DATAITEM IN WICH THE KEYADRES IS PLACED. «, t00=0x0003, t01=0x004c}
0x0546…0584 Head {h00=0x003a, h01=0x0050, text=»* ERROR THIS FIELD CONTAINS THE ERROR NUMBER. «, t00=0x0003, t01=0x009a}
0x0584…058e Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0003, t01=0x00d8}
0x058e…0598 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00e2}
0x0598…05c0 Head {h00=0x0024, h01=0x0020, text=»* 2) TO DELETE A STANDARD FILE.«, t00=0x0003, t01=0x00ec}
0x05c0…05ca Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0003, t01=0x0114}
0x05ca…0606 Head {h00=0x0038, h01=0x0050, text=»* CALL DLFS,DATAITEM1,VAL1,VOL1,(VOL2..),ERROR «, t00=0x0003, t01=0x011e}
0x0606…0610 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0003, t01=0x015a}
0x0610…065a Head {h00=0x0046, h01=0x0041, text=»* THE CONTENS OF THE ITEMS IS THE SAME AS WITH A CREATE FILE. «, t00=0x0003, t01=0x0164}
0x065a…0664 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0004, t01=0x001e}
0x0664…066e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0028}
0x066e…06be Head {h00=0x004c, h01=0x0050, text=»*********************************************************************** «, t00=0x0004, t01=0x0032}
0x06be…06c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0082}
0x06c8…06e2 Head {h00=0x0016, h01=0x0050, text=»* SEE NEXT PAGE. «, t00=0x0004, t01=0x008c}
0x06e2…06ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00a6}
0x06ec…06fa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x00b0}
0x06fa…0704 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00be}
0x0704…0754 Head {h00=0x004c, h01=0x0050, text=»*********************************************************************** «, t00=0x0004, t01=0x00c8}
0x0754…075e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0118}
0x075e…0768 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0122}
0x0768…0798 Head {h00=0x002c, h01=0x0050, text=»* 3) TO GET THE LRN OF A STANDARD FILE.«, t00=0x0004, t01=0x012c}
0x0798…07a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x015c}
0x07a2…07e4 Head {h00=0x003e, h01=0x0050, text=»* CALL GETLRN,DATAITEM1,VAL1,VOL1,(VOL2,..),LRN,ERROR «, t00=0x0004, t01=0x0166}
0x07e4…07ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0018}
0x07ee…0830 Head {h00=0x003e, h01=0x0050, text=»* LRN CONTAINS THE LAST RECORD NUMBER OF A FILE «, t00=0x0005, t01=0x0022}
0x0830…0876 Head {h00=0x0042, h01=0x0050, text=»* AFTER THE CALL GETLRN IS PERFORMED SUCCESFULL.«, t00=0x0005, t01=0x0064}
0x0876…0880 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00aa}
0x0880…08c2 Head {h00=0x003e, h01=0x0050, text=»* THE CONTENS OF THE OTHER ITEMS IS THE SAME AS WITH A«, t00=0x0005, t01=0x00b4}
0x08c2…08dc Head {h00=0x0016, h01=0x0050, text=»* CREATE FILE.«, t00=0x0005, t01=0x00f6}
0x08dc…08e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0110}
0x08e6…08f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x011a}
0x08f0…0924 Head {h00=0x0030, h01=0x0050, text=»* 4) TO UPDATE THE LRN OF A STANDARD FILE. «, t00=0x0005, t01=0x0124}
0x0924…092e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0158}
0x092e…0970 Head {h00=0x003e, h01=0x0050, text=»* CALL PUTLRN,DATAITEM1,VAL1,VOL1,(VOL2,..),LRN,ERROR «, t00=0x0005, t01=0x0162}
0x0970…097a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0014}
0x097a…09b6 Head {h00=0x0038, h01=0x0050, text=»* THE CONTENS OF THE ITEMS IS THE SAME AS WITH A«, t00=0x0006, t01=0x001e}
0x09b6…09f4 Head {h00=0x003a, h01=0x0050, text=»* CALL GETLRN, BUT IN THIS CASE THE LRN IS UPDATED«, t00=0x0006, t01=0x005a}
0x09f4…0a24 Head {h00=0x002c, h01=0x0050, text=»* AT THE RIGTH PLACE IN THE -VTOC-. «, t00=0x0006, t01=0x0098}
0x0a24…0a2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00c8}
0x0a2e…0a38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00d2}
0x0a38…0a78 Head {h00=0x003c, h01=0x0050, text=»* 5) SOME ROUTINES TO GET THE SPECIALITIES FROM A FILE.«, t00=0x0006, t01=0x00dc}
0x0a78…0ab4 Head {h00=0x0038, h01=0x0050, text=»* ALL THESE ROUTINES ARE THE SAME AS THE GETLRN.«, t00=0x0006, t01=0x011c}
0x0ab4…0abe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0158}
0x0abe…0b00 Head {h00=0x003e, h01=0x0050, text=»* CALL GET...,DATAITEM1,VAL1,VOL1,(VOL2,..),...,ERROR «, t00=0x0006, t01=0x0162}
0x0b00…0b0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0014}
0x0b0a…0b34 Head {h00=0x0026, h01=0x0050, text=»* GETRL RECORD LENGTH. «, t00=0x0007, t01=0x001e}
0x0b34…0b66 Head {h00=0x002e, h01=0x0050, text=»* GETEL FILE EXTENSION LENGTH. «, t00=0x0007, t01=0x0048}
0x0b66…0b92 Head {h00=0x0028, h01=0x0050, text=»* GETBF BLOCKINGS FACTOR.«, t00=0x0007, t01=0x007a}
0x0b92…0bc4 Head {h00=0x002e, h01=0x0050, text=»* GETNIF NUMBER OF INDEX FILES. «, t00=0x0007, t01=0x00a6}
0x0bc4…0bec Head {h00=0x0024, h01=0x0050, text=»* GETKA KEY ADDRESS. «, t00=0x0007, t01=0x00d8}
0x0bec…0bf6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0100}
0x0bf6…0c00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x010a}
0x0c00…0c20 Head {h00=0x001c, h01=0x0050, text=»* 6) COPY FILE TO FILE.«, t00=0x0007, t01=0x0114}
0x0c20…0c2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0134}
0x0c2a…0c60 Head {h00=0x0032, h01=0x0050, text=»* CALL CFF,FILEIN,VOL1,FILEOUT,VOL2,ERROR «, t00=0x0007, t01=0x013e}
0x0c60…0c6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0174}
0x0c6a…0ca6 Head {h00=0x0038, h01=0x0050, text=»* FILEIN CONTAINS THE NAME OF THE INPUT FILE.«, t00=0x0007, t01=0x017e}
0x0ca6…0ce4 Head {h00=0x003a, h01=0x0050, text=»* FILEOUT CONTAINS THE NAME OF THE OUTPUT FILE. «, t00=0x0008, t01=0x002a}
0x0ce4…0d22 Head {h00=0x003a, h01=0x0050, text=»* VOL1 CONTAINS THE VOLUME NAME OF INPUTFILE.«, t00=0x0008, t01=0x0068}
0x0d22…0d62 Head {h00=0x003c, h01=0x0050, text=»* VOL2 CONTAINS THE VOLUME NAME OF OUTPUTFILE. «, t00=0x0008, t01=0x00a6}
0x0d62…0d6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00e6}
0x0d6c…0d76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00f0}
0x0d76…0dc2 Head {h00=0x0048, h01=0x0044, text=»* BY : SEBE KRUIJER.«, t00=0x0008, t01=0x00fa}
0x0dc2…0e12 Head {h00=0x004c, h01=0x0047, text=»*********************************************************************** «, t00=0x0008, t01=0x0146}
0x0e12…0e1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0008}
0x0e1c…0e2a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0012}
0x0e2a…0e34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0020}
0x0e34…0e6e Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0009, t01=0x002a}
0x0e6e…0ea8 Head {h00=0x0036, h01=0x0050, text=»* E N T R I E S A N D E X T E R N A L S * «, t00=0x0009, t01=0x0064}
0x0ea8…0ee2 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0009, t01=0x009e}
0x0ee2…0eec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00d8}
0x0eec…0f00 Head {h00=0x0010, h01=0x0050, text=» ENTRY CRFS «, t00=0x0009, t01=0x00e2}
0x0f00…0f14 Head {h00=0x0010, h01=0x0050, text=» ENTRY DLFS «, t00=0x0009, t01=0x00f6}
0x0f14…0f28 Head {h00=0x0010, h01=0x0050, text=» ENTRY A:PPC«, t00=0x0009, t01=0x010a}
0x0f28…0f52 Head {h00=0x0026, h01=0x0050, text=» ENTRY A:EVA -ROUTINE FOR I:EVA0. «, t00=0x0009, t01=0x011e}
0x0f52…0f68 Head {h00=0x0012, h01=0x0050, text=» ENTRY GETLRN «, t00=0x0009, t01=0x0148}
0x0f68…0f7e Head {h00=0x0012, h01=0x0050, text=» ENTRY PUTLRN «, t00=0x0009, t01=0x015e}
0x0f7e…0f90 Head {h00=0x000e, h01=0x0050, text=» ENTRY CFF«, t00=0x0009, t01=0x0174}
0x0f90…0fa4 Head {h00=0x0010, h01=0x0050, text=» ENTRY GETRL«, t00=0x0009, t01=0x0186}
0x0fa4…0fb8 Head {h00=0x0010, h01=0x0050, text=» ENTRY GETEL«, t00=0x000a, t01=0x000a}
0x0fb8…0fcc Head {h00=0x0010, h01=0x0050, text=» ENTRY GETBF«, t00=0x000a, t01=0x001e}
0x0fcc…0fe2 Head {h00=0x0012, h01=0x0050, text=» ENTRY GETNIF «, t00=0x000a, t01=0x0032}
0x0fe2…0ff6 Head {h00=0x0010, h01=0x0050, text=» ENTRY GETKA«, t00=0x000a, t01=0x0048}
0x0ff6…1000 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x005c}
0x1000…100a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0066}
0x100a…1020 Head {h00=0x0012, h01=0x0050, text=» EXTRN I:EVA0 «, t00=0x000a, t01=0x0070}
0x1020…1034 Head {h00=0x0010, h01=0x0050, text=» EXTRN I:RT1«, t00=0x000a, t01=0x0086}
0x1034…104a Head {h00=0x0012, h01=0x0050, text=» EXTRN CRFILE «, t00=0x000a, t01=0x009a}
0x104a…1060 Head {h00=0x0012, h01=0x0050, text=» EXTRN DLFILE «, t00=0x000a, t01=0x00b0}
0x1060…1076 Head {h00=0x0012, h01=0x0050, text=» EXTRN COPFIL «, t00=0x000a, t01=0x00c6}
0x1076…108c Head {h00=0x0012, h01=0x0050, text=» EJECT «, t00=0x000a, t01=0x00dc}
0x108c…1096 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00f2}
0x1096…10d8 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x000a, t01=0x00fc}
0x10d8…10e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x013e}
0x10e2…1118 Head {h00=0x0032, h01=0x0050, text=»* C R E A T E A S T A N D A R D F I L E «, t00=0x000a, t01=0x0148}
0x1118…1122 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x017e}
0x1122…112c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0188}
0x112c…113e (11, 0, 400) Head {h00=0x000e, h01=0x0050, text=»CRFS EQU *«, t00=0x000b, t01=0x0004}
0x113e…116c Head {h00=0x002a, h01=0x0050, text=» CF A14,STANDRD -STANDARD FILE BLOCK. «, t00=0x000b, t01=0x0016}
0x116c…119a Head {h00=0x002a, h01=0x0050, text=» CF A14,TEKST -FILL DATE RET. PERIOD. «, t00=0x000b, t01=0x0044}
0x119a…11b0 Head {h00=0x0012, h01=0x0050, text=» CF A14,A:EVA «, t00=0x000b, t01=0x0072}
0x11b0…11d8 Head {h00=0x0024, h01=0x0050, text=» ST A3,BLOCK+50 -RECORD LENGTH. «, t00=0x000b, t01=0x0088}
0x11d8…11ee Head {h00=0x0012, h01=0x0050, text=» CF A14,A:EVA «, t00=0x000b, t01=0x00b0}
0x11ee…1216 Head {h00=0x0024, h01=0x0050, text=» ST A3,BLOCK+56 -NO OF RECORDS. «, t00=0x000b, t01=0x00c6}
0x1216…1242 Head {h00=0x0028, h01=0x0050, text=» CF A14,A:EVA -HAAL BLOCKINGSFACTOR.«, t00=0x000b, t01=0x00ee}
0x1242…1260 Head {h00=0x001a, h01=0x0050, text=» SC A3,BLOCK+49 -STORE«, t00=0x000b, t01=0x011a}
0x1260…1276 Head {h00=0x0012, h01=0x0050, text=» CF A14,A:EVA «, t00=0x000b, t01=0x0138}
0x1276…1298 Head {h00=0x001e, h01=0x0050, text=» SLL A3,8 -NIF TO 1E BYTE.«, t00=0x000b, t01=0x014e}
0x1298…12b0 Head {h00=0x0014, h01=0x0050, text=» ST A3,BLOCK+54 «, t00=0x000b, t01=0x0170}
0x12b0…12d4 Head {h00=0x0020, h01=0x0050, text=» CF A14,A:EVA -GET KEYADRES.«, t00=0x000b, t01=0x0188}
0x12d4…12ec Head {h00=0x0014, h01=0x0050, text=» ST A3,BLOCK+52 «, t00=0x000c, t01=0x001c}
0x12ec…1314 Head {h00=0x0024, h01=0x0050, text=» CF A14,STORE -SAVE REG 11 .. 13«, t00=0x000c, t01=0x0034}
0x1314…133a Head {h00=0x0022, h01=0x0050, text=» LDKL A12,BLOCK -BLOCK ADRES. «, t00=0x000c, t01=0x005c}
0x133a…135c Head {h00=0x001e, h01=0x0050, text=» CF A14,CRFILE -THE CREATE«, t00=0x000c, t01=0x0082}
0x135c…1382 Head {h00=0x0022, h01=0x0050, text=» RF CFFEND -TO COMMON SEGMENT «, t00=0x000c, t01=0x00a4}
0x1382…138c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00ca}
0x138c…1396 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00d4}
0x1396…13de Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x000c, t01=0x00de}
0x13de…13e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0126}
0x13e8…141e Head {h00=0x0032, h01=0x0050, text=»* D E L E T E A S T A N D A R D F I L E «, t00=0x000c, t01=0x0130}
0x141e…1428 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0166}
0x1428…1432 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0170}
0x1432…1444 Head {h00=0x000e, h01=0x0050, text=»DLFS EQU *«, t00=0x000c, t01=0x017a}
0x1444…146c Head {h00=0x0024, h01=0x0050, text=» CF A14,STANDRD STANDARD PARAM. «, t00=0x000c, t01=0x018c}
0x146c…1492 Head {h00=0x0022, h01=0x0050, text=» CF A14,STORE STORE REGISTERS.«, t00=0x000d, t01=0x0024}
0x1492…14aa Head {h00=0x0014, h01=0x0050, text=» LDKL A12,BLOCK «, t00=0x000d, t01=0x004a}
0x14aa…14d2 Head {h00=0x0024, h01=0x0050, text=» CF A14,DLFILE -DELETE THE FILE.«, t00=0x000d, t01=0x0062}
0x14d2…14e4 Head {h00=0x000e, h01=0x0050, text=» RF CFFEND«, t00=0x000d, t01=0x008a}
0x14e4…14ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x009c}
0x14ee…14f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00a6}
0x14f8…1540 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x000d, t01=0x00b0}
0x1540…154e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x00f8}
0x154e…1558 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0106}
0x1558…1562 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0110}
0x1562…15aa Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x000d, t01=0x011a}
0x15aa…15b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0162}
0x15b4…15f2 Head {h00=0x003a, h01=0x0050, text=»* THIS ROUTINE IS TO GET THE LAST RECORD NUMBER FROM«, t00=0x000d, t01=0x016c}
0x15f2…160a Head {h00=0x0014, h01=0x0050, text=»* THE -VTOC-. «, t00=0x000e, t01=0x001a}
0x160a…1614 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0032}
0x1614…165c Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x000e, t01=0x003c}
0x165c…1666 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0084}
0x1666…167a Head {h00=0x0010, h01=0x0050, text=»GETLRN EQU *«, t00=0x000e, t01=0x008e}
0x167a…168e Head {h00=0x0010, h01=0x0050, text=» CF A14,LRN «, t00=0x000e, t01=0x00a2}
0x168e…16a0 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x000e, t01=0x00b6}
0x16a0…16b6 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) AFHAND«, t00=0x000e, t01=0x00c8}
0x16b6…16d8 Head {h00=0x001e, h01=0x0050, text=» LD A4,22,A4 -GET LRN NR. «, t00=0x000e, t01=0x00de}
0x16d8…16ec Head {h00=0x0010, h01=0x0050, text=»GETAF EQU * «, t00=0x000e, t01=0x0100}
0x16ec…1702 Head {h00=0x0012, h01=0x0050, text=» CF A14,I:EVA0«, t00=0x000e, t01=0x0114}
0x1702…172a Head {h00=0x0024, h01=0x0050, text=» STR A4,A9 STORE LAST REC NUMBER«, t00=0x000e, t01=0x012a}
0x172a…174c Head {h00=0x001e, h01=0x0050, text=» LDK A1,0 -INDICATION OK. «, t00=0x000e, t01=0x0152}
0x174c…1760 Head {h00=0x0010, h01=0x0050, text=»AFHAND EQU *«, t00=0x000e, t01=0x0174}
0x1760…1772 Head {h00=0x000e, h01=0x0050, text=» LDK A2,2 «, t00=0x000e, t01=0x0188}
0x1772…1794 Head {h00=0x001e, h01=0x0050, text=» ADS A2,REG12 -NIEUWE A12 «, t00=0x000f, t01=0x000a}
0x1794…17b4 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A1 -IS IT OKE.? «, t00=0x000f, t01=0x002c}
0x17b4…17ca Head {h00=0x0012, h01=0x0050, text=» RF(Z) COMSEG «, t00=0x000f, t01=0x004c}
0x17ca…17dc Head {h00=0x000e, h01=0x0050, text=» RF GETRC «, t00=0x000f, t01=0x0062}
0x17dc…17e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0074}
0x17e6…17f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x007e}
0x17f0…1836 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x000f, t01=0x0088}
0x1836…1840 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00ce}
0x1840…186a Head {h00=0x0026, h01=0x0050, text=»* THIS ROUTINE IS THE PUTLRN.«, t00=0x000f, t01=0x00d8}
0x186a…1874 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0102}
0x1874…18bc Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x000f, t01=0x010c}
0x18bc…18c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0154}
0x18c6…18da Head {h00=0x0010, h01=0x0050, text=»PUTLRN EQU *«, t00=0x000f, t01=0x015e}
0x18da…18ee Head {h00=0x0010, h01=0x0050, text=» CF A14,LRN «, t00=0x000f, t01=0x0172}
0x18ee…1900 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x000f, t01=0x0186}
0x1900…1916 Head {h00=0x0012, h01=0x0050, text=» RB(NZ) AFHAND«, t00=0x0010, t01=0x0008}
0x1916…192c Head {h00=0x0012, h01=0x0050, text=» CF A14,A:EVA «, t00=0x0010, t01=0x001e}
0x192c…1956 Head {h00=0x0026, h01=0x0050, text=» ST A3,22,A4 -STORE RECORD NUMBER.«, t00=0x0010, t01=0x0034}
0x1956…197c Head {h00=0x0022, h01=0x0050, text=» CF A14,WRITE -WRITE THE LRN. «, t00=0x0010, t01=0x005e}
0x197c…1986 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0084}
0x1986…1998 Head {h00=0x000e, h01=0x0050, text=» RB AFHAND«, t00=0x0010, t01=0x008e}
0x1998…19a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00a0}
0x19a2…19b0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x00aa}
0x19b0…19ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00b8}
0x19ba…19f6 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0010, t01=0x00c2}
0x19f6…1a1a Head {h00=0x0020, h01=0x0050, text=»* GET THE RECORD LENGTH. «, t00=0x0010, t01=0x00fe}
0x1a1a…1a56 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0010, t01=0x0122}
0x1a56…1a60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x015e}
0x1a60…1a74 Head {h00=0x0010, h01=0x0050, text=»GETRL EQU * «, t00=0x0010, t01=0x0168}
0x1a74…1a98 Head {h00=0x0020, h01=0x0050, text=» CF A14,LRN -SOME STANDARDS.«, t00=0x0010, t01=0x017c}
0x1a98…1aaa Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0011, t01=0x0010}
0x1aaa…1ac8 Head {h00=0x001a, h01=0x0050, text=» RB(NZ) AFHAND -OKE ??«, t00=0x0011, t01=0x0022}
0x1ac8…1af0 Head {h00=0x0024, h01=0x0050, text=» LD A4,24,A4 -THE RECORD LENGTH.«, t00=0x0011, t01=0x0040}
0x1af0…1b02 Head {h00=0x000e, h01=0x0050, text=» RB GETAF «, t00=0x0011, t01=0x0068}
0x1b02…1b0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x007a}
0x1b0c…1b3e Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0011, t01=0x0084}
0x1b3e…1b64 Head {h00=0x0022, h01=0x0050, text=»* GET THE EXTENSION LENGTH. «, t00=0x0011, t01=0x00b6}
0x1b64…1b96 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0011, t01=0x00dc}
0x1b96…1ba0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x010e}
0x1ba0…1bb4 Head {h00=0x0010, h01=0x0050, text=»GETEL EQU * «, t00=0x0011, t01=0x0118}
0x1bb4…1bc8 Head {h00=0x0010, h01=0x0050, text=» CF A14,LRN «, t00=0x0011, t01=0x012c}
0x1bc8…1be2 Head {h00=0x0016, h01=0x0050, text=» LDR A1,A1 -OKE ??«, t00=0x0011, t01=0x0140}
0x1be2…1bf8 Head {h00=0x0012, h01=0x0050, text=» RB(NZ) AFHAND«, t00=0x0011, t01=0x015a}
0x1bf8…1c24 Head {h00=0x0028, h01=0x0050, text=» LD A4,14,A4 -THE EXTENSION LENGTH. «, t00=0x0011, t01=0x0170}
0x1c24…1c36 Head {h00=0x000e, h01=0x0050, text=» RB GETAF «, t00=0x0012, t01=0x000c}
0x1c36…1c40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x001e}
0x1c40…1c70 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0012, t01=0x0028}
0x1c70…1c94 Head {h00=0x0020, h01=0x0050, text=»* GET THE BLOCKINGS FACTOR. «, t00=0x0012, t01=0x0058}
0x1c94…1cc4 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0012, t01=0x007c}
0x1cc4…1cce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00ac}
0x1cce…1ce2 Head {h00=0x0010, h01=0x0050, text=»GETBF EQU * «, t00=0x0012, t01=0x00b6}
0x1ce2…1d02 Head {h00=0x001c, h01=0x0050, text=» CF A14,LRN -STANDARDS. «, t00=0x0012, t01=0x00ca}
0x1d02…1d14 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0012, t01=0x00ea}
0x1d14…1d2a Head {h00=0x0012, h01=0x0050, text=» RB(NZ) AFHAND«, t00=0x0012, t01=0x00fc}
0x1d2a…1d56 Head {h00=0x0028, h01=0x0050, text=» LD A4,26,A4 -THE BLOCKINGS FACTOR. «, t00=0x0012, t01=0x0112}
0x1d56…1d74 Head {h00=0x001a, h01=0x0050, text=» SRL A4,8 -TO 2E BYTE.«, t00=0x0012, t01=0x013e}
0x1d74…1d86 Head {h00=0x000e, h01=0x0050, text=» RB GETAF «, t00=0x0012, t01=0x015c}
0x1d86…1d90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x016e}
0x1d90…1dc2 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0012, t01=0x0178}
0x1dc2…1dee Head {h00=0x0028, h01=0x0050, text=»* GET THE NUMBER OF INDEX FILES.«, t00=0x0013, t01=0x001a}
0x1dee…1e20 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0013, t01=0x0046}
0x1e20…1e2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0078}
0x1e2a…1e3e Head {h00=0x0010, h01=0x0050, text=»GETNIF EQU *«, t00=0x0013, t01=0x0082}
0x1e3e…1e52 Head {h00=0x0010, h01=0x0050, text=» CF A14,LRN «, t00=0x0013, t01=0x0096}
0x1e52…1e6c Head {h00=0x0016, h01=0x0050, text=» LDR A1,A1 -OKE ??«, t00=0x0013, t01=0x00aa}
0x1e6c…1e82 Head {h00=0x0012, h01=0x0050, text=» RB(NZ) AFHAND«, t00=0x0013, t01=0x00c4}
0x1e82…1ea4 Head {h00=0x001e, h01=0x0050, text=» LD A4,36,A4 -THE NUMBER. «, t00=0x0013, t01=0x00da}
0x1ea4…1eb6 Head {h00=0x000e, h01=0x0050, text=» SLL A4,8 «, t00=0x0013, t01=0x00fc}
0x1eb6…1ed8 Head {h00=0x001e, h01=0x0050, text=» SRL A4,8 -TO THE 2E BYTE.«, t00=0x0013, t01=0x010e}
0x1ed8…1eea Head {h00=0x000e, h01=0x0050, text=» RB GETAF «, t00=0x0013, t01=0x0130}
0x1eea…1ef8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x0142}
0x1ef8…1f02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0150}
0x1f02…1f0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x015a}
0x1f0c…1f3e Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0013, t01=0x0164}
0x1f3e…1f60 Head {h00=0x001e, h01=0x0050, text=»* GET THE KEY ADDRESS.«, t00=0x0014, t01=0x0008}
0x1f60…1f92 Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0014, t01=0x002a}
0x1f92…1f9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x005c}
0x1f9c…1fb0 Head {h00=0x0010, h01=0x0050, text=»GETKA EQU * «, t00=0x0014, t01=0x0066}
0x1fb0…1fc4 Head {h00=0x0010, h01=0x0050, text=» CF A14,LRN «, t00=0x0014, t01=0x007a}
0x1fc4…1fde Head {h00=0x0016, h01=0x0050, text=» LDR A1,A1 -OKE ??«, t00=0x0014, t01=0x008e}
0x1fde…1ff4 Head {h00=0x0012, h01=0x0050, text=» RB(NZ) AFHAND«, t00=0x0014, t01=0x00a8}
0x1ff4…201a Head {h00=0x0022, h01=0x0050, text=» LD A4,38,A4 -THE KEY ADDRESS.«, t00=0x0014, t01=0x00be}
0x201a…202c Head {h00=0x000e, h01=0x0050, text=» RB GETAF «, t00=0x0014, t01=0x00e4}
0x202c…2036 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00f6}
0x2036…2040 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0100}
0x2040…2072 Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0014, t01=0x010a}
0x2072…2090 Head {h00=0x001a, h01=0x0050, text=»* COPY FILE TO FILE.«, t00=0x0014, t01=0x013c}
0x2090…20c2 Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0014, t01=0x015a}
0x20c2…20cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x018c}
0x20cc…20de Head {h00=0x000e, h01=0x0050, text=»CFF EQU * «, t00=0x0015, t01=0x0008}
0x20de…2102 Head {h00=0x0020, h01=0x0050, text=» CF A14,QUEUE -SYSTEM FREE. «, t00=0x0015, t01=0x001a}
0x2102…2116 Head {h00=0x0010, h01=0x0050, text=» CF A14,INIT«, t00=0x0015, t01=0x003e}
0x2116…213c Head {h00=0x0022, h01=0x0050, text=» CF A14,ASROUT -ASSIGN FILES. «, t00=0x0015, t01=0x0052}
0x213c…2152 Head {h00=0x0012, h01=0x0050, text=» CF A14,ASROUT«, t00=0x0015, t01=0x0078}
0x2152…2170 Head {h00=0x001a, h01=0x0050, text=» LD A1,FC1 -FC1 := C0.«, t00=0x0015, t01=0x008e}
0x2170…2182 Head {h00=0x000e, h01=0x0050, text=» SUK A1,2 «, t00=0x0015, t01=0x00ac}
0x2182…2194 Head {h00=0x000e, h01=0x0050, text=» ST A1,FC1«, t00=0x0015, t01=0x00be}
0x2194…21a6 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0015, t01=0x00d0}
0x21a6…21c8 Head {h00=0x001e, h01=0x0050, text=» ST A2,BLOCK+4 INIT BLOCK.«, t00=0x0015, t01=0x00e2}
0x21c8…21da Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0015, t01=0x0104}
0x21da…21f0 Head {h00=0x0012, h01=0x0050, text=» ST A2,BLOCK+8«, t00=0x0015, t01=0x0116}
0x21f0…2216 Head {h00=0x0022, h01=0x0050, text=» LD A3,FC1A2 -THE FILE CODES. «, t00=0x0015, t01=0x012c}
0x2216…223c Head {h00=0x0022, h01=0x0050, text=» ST A3,BLOCK+6 -IN THE BLOCK. «, t00=0x0015, t01=0x0152}
0x223c…2252 Head {h00=0x0012, h01=0x0050, text=» CF A14,STORE «, t00=0x0015, t01=0x0178}
0x2252…227a Head {h00=0x0024, h01=0x0050, text=» LDKL A12,BLOCK -BLOCK ADDRESS. «, t00=0x0015, t01=0x018e}
0x227a…22a0 Head {h00=0x0022, h01=0x0050, text=» CF A14,COPFIL -COPY ROUTINE. «, t00=0x0016, t01=0x0026}
0x22a0…22b4 Head {h00=0x0010, h01=0x0050, text=»CFFEND EQU *«, t00=0x0016, t01=0x004c}
0x22b4…22c6 Head {h00=0x000e, h01=0x0050, text=» RF COMSEG«, t00=0x0016, t01=0x0060}
0x22c6…22d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0072}
0x22d0…22de Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x007c}
0x22de…22e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x008a}
0x22e8…22f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0094}
0x22f2…2326 Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x0016, t01=0x009e}
0x2326…2346 Head {h00=0x001c, h01=0x0050, text=»* THE ASSIGN ROUTINE. «, t00=0x0016, t01=0x00d2}
0x2346…236e Head {h00=0x0024, h01=0x0050, text=»* THE FILE CODE IS INCREASED. «, t00=0x0016, t01=0x00f2}
0x236e…23a2 Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x0016, t01=0x011a}
0x23a2…23ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x014e}
0x23ac…23c0 Head {h00=0x0010, h01=0x0050, text=»ASROUT EQU *«, t00=0x0016, t01=0x0158}
0x23c0…23e4 Head {h00=0x0020, h01=0x0050, text=» CF A14,I:EVA0 -A FILENAME. «, t00=0x0016, t01=0x016c}
0x23e4…2406 Head {h00=0x001e, h01=0x0050, text=» LDK A4,8 -BYTES TO MOVE. «, t00=0x0016, t01=0x0190}
0x2406…2426 Head {h00=0x001c, h01=0x0050, text=» LDK A3,6 -FROM BYTE 6. «, t00=0x0017, t01=0x0022}
0x2426…243c Head {h00=0x0012, h01=0x0050, text=» CF A14,A:MOVE«, t00=0x0017, t01=0x0042}
0x243c…2462 Head {h00=0x0022, h01=0x0050, text=» CF A14,I:EVA0 -A VOLUME NAME.«, t00=0x0017, t01=0x0058}
0x2462…2474 Head {h00=0x000e, h01=0x0050, text=» LDK A4,6 «, t00=0x0017, t01=0x007e}
0x2474…2486 Head {h00=0x000e, h01=0x0050, text=» LDK A3,14«, t00=0x0017, t01=0x0090}
0x2486…249c Head {h00=0x0012, h01=0x0050, text=» CF A14,A:MOVE«, t00=0x0017, t01=0x00a2}
0x249c…24c4 Head {h00=0x0024, h01=0x0050, text=» LDKL A8,ASSBLK -ADDRESS BLOCK. «, t00=0x0017, t01=0x00b8}
0x24c4…24e6 Head {h00=0x001e, h01=0x0050, text=» LDK A7,0 -NORMAL ASSIGN. «, t00=0x0017, t01=0x00e0}
0x24e6…2504 Head {h00=0x001a, h01=0x0050, text=» LD A1,FC1 FILE CODE. «, t00=0x0017, t01=0x0102}
0x2504…2522 Head {h00=0x001a, h01=0x0050, text=» STR A1,A8 -TO BLOCK. «, t00=0x0017, t01=0x0120}
0x2522…2532 Head {h00=0x000c, h01=0x0050, text=» IM FC1 «, t00=0x0017, t01=0x013e}
0x2532…253e Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0017, t01=0x014e}
0x253e…255c Head {h00=0x001a, h01=0x0050, text=» DATA 15 -THE ASSIGN. «, t00=0x0017, t01=0x015a}
0x255c…256c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0017, t01=0x0178}
0x256c…2576 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0188}
0x2576…2580 (24, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0004}
0x2580…258e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x000e}
0x258e…2598 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x001c}
0x2598…25c8 Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x0018, t01=0x0026}
0x25c8…25ee Head {h00=0x0022, h01=0x0050, text=»* G E T R E T U R N C O D E«, t00=0x0018, t01=0x0056}
0x25ee…261e Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x0018, t01=0x007c}
0x261e…2628 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00ac}
0x2628…263c Head {h00=0x0010, h01=0x0050, text=»GETRC EQU * «, t00=0x0018, t01=0x00b6}
0x263c…2652 Head {h00=0x0012, h01=0x0050, text=» LD A2,RETCOD «, t00=0x0018, t01=0x00ca}
0x2652…2678 Head {h00=0x0022, h01=0x0050, text=» LDR A1,A2 -RETURN CODE IN A1 «, t00=0x0018, t01=0x00e0}
0x2678…269c Head {h00=0x0020, h01=0x0050, text=» ANKL A1,/028E -I/O ERROR ??«, t00=0x0018, t01=0x0106}
0x269c…26c0 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) COMSEG -IN A1 FOUT. «, t00=0x0018, t01=0x012a}
0x26c0…26da Head {h00=0x0016, h01=0x0050, text=» LDR A1,A2 -WAIT. «, t00=0x0018, t01=0x014e}
0x26da…2702 Head {h00=0x0024, h01=0x0050, text=» ANK A1,/20 -FILE NAME UNKNOWN. «, t00=0x0018, t01=0x0168}
0x2702…272a Head {h00=0x0024, h01=0x0050, text=» RF(NZ) COMSEG -IN A1 AL WRONG. «, t00=0x0018, t01=0x0190}
0x272a…273c Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0019, t01=0x0028}
0x273c…2762 Head {h00=0x0022, h01=0x0050, text=» ANK A1,1 -DISK NOT OPERABLE. «, t00=0x0019, t01=0x003a}
0x2762…2778 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) COMSEG«, t00=0x0019, t01=0x0060}
0x2778…27a0 Head {h00=0x0024, h01=0x0050, text=» LDR A1,A2 -VOLUME NAME UNKNOWN.«, t00=0x0019, t01=0x0076}
0x27a0…27b2 Head {h00=0x000e, h01=0x0050, text=» RF COMSEG«, t00=0x0019, t01=0x009e}
0x27b2…27bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00b0}
0x27bc…27c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00ba}
0x27c6…27fc Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0019, t01=0x00c4}
0x27fc…2814 Head {h00=0x0014, h01=0x0050, text=»* C O M S E G «, t00=0x0019, t01=0x00fa}
0x2814…281e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0112}
0x281e…284e Head {h00=0x002c, h01=0x0050, text=»* COMMON EXIT PART FOR ALL FUNCTIONS. «, t00=0x0019, t01=0x011c}
0x284e…2884 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0019, t01=0x014c}
0x2884…288e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0182}
0x288e…2898 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x018c}
0x2898…28ac Head {h00=0x0010, h01=0x0050, text=»COMSEG EQU *«, t00=0x001a, t01=0x0008}
0x28ac…28be Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x001a, t01=0x001c}
0x28be…28e8 Head {h00=0x0026, h01=0x0050, text=» CF A14,RESTOR -RESTORE A11,..A13 «, t00=0x001a, t01=0x002e}
0x28e8…28fe Head {h00=0x0012, h01=0x0050, text=» CF A14,I:EVA0«, t00=0x001a, t01=0x0058}
0x28fe…2910 Head {h00=0x000e, h01=0x0050, text=» STR A4,A9«, t00=0x001a, t01=0x006e}
0x2910…2934 Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 -PRESET COND. REG.«, t00=0x001a, t01=0x0080}
0x2934…2958 Head {h00=0x0020, h01=0x0050, text=» LDR A4,A4 -TJEK ON STATUS. «, t00=0x001a, t01=0x00a4}
0x2958…296c Head {h00=0x0010, h01=0x0050, text=» RF(Z) CON0 «, t00=0x001a, t01=0x00c8}
0x296c…2986 Head {h00=0x0016, h01=0x0050, text=» LDK A1,2 -ERROR. «, t00=0x001a, t01=0x00dc}
0x2986…2998 Head {h00=0x000e, h01=0x0050, text=»CON0 EQU *«, t00=0x001a, t01=0x00f6}
0x2998…29ae Head {h00=0x0012, h01=0x0050, text=» CF A14,KONDIT«, t00=0x001a, t01=0x0108}
0x29ae…29c6 Head {h00=0x0014, h01=0x0050, text=» CM FREE -FREE. «, t00=0x001a, t01=0x011e}
0x29c6…29d8 Head {h00=0x000e, h01=0x0050, text=» ABL I:RT1«, t00=0x001a, t01=0x0136}
0x29d8…29e6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0148}
0x29e6…29f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0156}
0x29f0…2a32 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x001a, t01=0x0160}
0x2a32…2a3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0012}
0x2a3c…2a6a Head {h00=0x002a, h01=0x0050, text=»* STANDARD ROUTINES FOR THE GETLRN.«, t00=0x001b, t01=0x001c}
0x2a6a…2a74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x004a}
0x2a74…2a7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0054}
0x2a7e…2a90 Head {h00=0x000e, h01=0x0050, text=»LRN EQU * «, t00=0x001b, t01=0x005e}
0x2a90…2ac4 Head {h00=0x0030, h01=0x0050, text=» CF A14,STANDRD -GET FILENAME + VOLUME NAME «, t00=0x001b, t01=0x0070}
0x2ac4…2ada Head {h00=0x0012, h01=0x0050, text=» CF A14,STORE «, t00=0x001b, t01=0x00a4}
0x2ada…2b0c Head {h00=0x002e, h01=0x0050, text=» CF A14,INIT1 -FC--> E9, REC LENGTH--> 410«, t00=0x001b, t01=0x00ba}
0x2b0c…2b38 Head {h00=0x0028, h01=0x0050, text=»VOLG CF A14,INIT2 -BUFADRES + SECNR.«, t00=0x001b, t01=0x00ec}
0x2b38…2b5c Head {h00=0x0020, h01=0x0050, text=» CF A14,GETVOL -GET VOLUME. «, t00=0x001b, t01=0x0118}
0x2b5c…2b6e Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x001b, t01=0x013c}
0x2b6e…2b92 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) ENDLRN -NOT OPERABLE«, t00=0x001b, t01=0x014e}
0x2b92…2bba Head {h00=0x0024, h01=0x0050, text=» CF A14,NXTECB -ADJUST THE ECB. «, t00=0x001b, t01=0x0172}
0x2bba…2be0 Head {h00=0x0022, h01=0x0050, text=» CF A14,VTOC -SEARCH THE VTOC.«, t00=0x001c, t01=0x000a}
0x2be0…2bf2 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x001c, t01=0x0030}
0x2bf2…2c14 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ENDLRN -I/O ERROR «, t00=0x001c, t01=0x0042}
0x2c14…2c3a Head {h00=0x0022, h01=0x0050, text=» LDR A8,A8 -FILE NOT IN VTOC. «, t00=0x001c, t01=0x0064}
0x2c3a…2c4e Head {h00=0x0010, h01=0x0050, text=» RB(Z) VOLG «, t00=0x001c, t01=0x008a}
0x2c4e…2c62 Head {h00=0x0010, h01=0x0050, text=»ENDLRN EQU *«, t00=0x001c, t01=0x009e}
0x2c62…2c72 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001c, t01=0x00b2}
0x2c72…2c7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00c2}
0x2c7c…2c86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00cc}
0x2c86…2c9a Head {h00=0x0010, h01=0x0050, text=»INIT1 EQU * «, t00=0x001c, t01=0x00d6}
0x2c9a…2cac Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x001c, t01=0x00ea}
0x2cac…2cd4 Head {h00=0x0024, h01=0x0050, text=» ST A1,RETCOD -INIT RETURN CODE «, t00=0x001c, t01=0x00fc}
0x2cd4…2ce8 Head {h00=0x0010, h01=0x0050, text=» LDK A1,/E8 «, t00=0x001c, t01=0x0124}
0x2ce8…2cfa Head {h00=0x000e, h01=0x0050, text=» ST A1,ECB«, t00=0x001c, t01=0x0138}
0x2cfa…2d10 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/19A «, t00=0x001c, t01=0x014a}
0x2d10…2d34 Head {h00=0x0020, h01=0x0050, text=» ST A2,ECB+4 -RECORD LENGTH «, t00=0x001c, t01=0x0160}
0x2d34…2d44 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001c, t01=0x0184}
0x2d44…2d4e (29, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0004}
0x2d4e…2d62 Head {h00=0x0010, h01=0x0050, text=»INIT2 EQU * «, t00=0x001d, t01=0x000e}
0x2d62…2d74 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x001d, t01=0x0022}
0x2d74…2d98 Head {h00=0x0020, h01=0x0050, text=» ST A2,SECNR -SECTOR NUMBER.«, t00=0x001d, t01=0x0034}
0x2d98…2db0 Head {h00=0x0014, h01=0x0050, text=» LDKL A2,BUFFER «, t00=0x001d, t01=0x0058}
0x2db0…2dd2 Head {h00=0x001e, h01=0x0050, text=» ST A2,ECB+2 -BUFFER ADRES«, t00=0x001d, t01=0x0070}
0x2dd2…2de4 Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x001d, t01=0x0092}
0x2de4…2df4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001d, t01=0x00a4}
0x2df4…2e02 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x00b4}
0x2e02…2e0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00c2}
0x2e0c…2e3c Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x001d, t01=0x00cc}
0x2e3c…2e5c Head {h00=0x001c, h01=0x0050, text=»* GET THE VOLUME NAME.«, t00=0x001d, t01=0x00fc}
0x2e5c…2e8c Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x001d, t01=0x011c}
0x2e8c…2e96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x014c}
0x2e96…2ea0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0156}
0x2ea0…2eb4 Head {h00=0x0010, h01=0x0050, text=»GETVOL EQU *«, t00=0x001d, t01=0x0160}
0x2eb4…2ed8 Head {h00=0x0020, h01=0x0050, text=» ADS A1,ECB -STORE FILECODE «, t00=0x001d, t01=0x0174}
0x2ed8…2eec Head {h00=0x0010, h01=0x0050, text=» LC A1,ECB+1«, t00=0x001e, t01=0x0008}
0x2eec…2f0c Head {h00=0x001c, h01=0x0050, text=» SUK A1,/F4 -IS IT F4 ? «, t00=0x001e, t01=0x001c}
0x2f0c…2f24 Head {h00=0x0014, h01=0x0050, text=» RF(Z) VOLABSEN «, t00=0x001e, t01=0x003c}
0x2f24…2f38 Head {h00=0x0010, h01=0x0050, text=» CF A14,READ«, t00=0x001e, t01=0x0054}
0x2f38…2f4a Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x001e, t01=0x0068}
0x2f4a…2f62 Head {h00=0x0014, h01=0x0050, text=» RF(NZ) NEXTVOL «, t00=0x001e, t01=0x007a}
0x2f62…2f8c Head {h00=0x0026, h01=0x0050, text=» CF A14,CHKVLN -CHECK VOLUME NAME.«, t00=0x001e, t01=0x0092}
0x2f8c…2f9e Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x001e, t01=0x00bc}
0x2f9e…2fc0 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) NXVOL -NEXT VOLUME«, t00=0x001e, t01=0x00ce}
0x2fc0…2fd0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001e, t01=0x00f0}
0x2fd0…2fe4 Head {h00=0x0010, h01=0x0050, text=»NXVOL EQU * «, t00=0x001e, t01=0x0100}
0x2fe4…300e Head {h00=0x0026, h01=0x0050, text=» LDK A1,/40 -VOLUME NAME UNKNOWN. «, t00=0x001e, t01=0x0114}
0x300e…3024 Head {h00=0x0012, h01=0x0050, text=» ORS A1,RETCOD«, t00=0x001e, t01=0x013e}
0x3024…304c Head {h00=0x0024, h01=0x0050, text=»NEXTVOL LDK A1,1 -FILECODE 1 UP.«, t00=0x001e, t01=0x0154}
0x304c…306a Head {h00=0x001a, h01=0x0050, text=» RB GETVOL -ONES MORE.«, t00=0x001e, t01=0x017c}
0x306a…3084 Head {h00=0x0016, h01=0x0050, text=»VOLABSEN LDK A1,2 «, t00=0x001f, t01=0x000a}
0x3084…3094 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001f, t01=0x0024}
0x3094…309e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0034}
0x309e…30a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x003e}
0x30a8…30b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0048}
0x30b2…30c0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x0052}
0x30c0…30ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0060}
0x30ca…30d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x006a}
0x30d4…3114 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x001f, t01=0x0074}
0x3114…313a Head {h00=0x0022, h01=0x0050, text=»* I / O R O U T I N E S . «, t00=0x001f, t01=0x00b4}
0x313a…317a Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x001f, t01=0x00da}
0x317a…3184 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x011a}
0x3184…318e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0124}
0x318e…31a0 Head {h00=0x000e, h01=0x0050, text=»READ EQU *«, t00=0x001f, t01=0x012e}
0x31a0…31c4 Head {h00=0x0020, h01=0x0050, text=» LDK A7,/91 -PHYSICAL READ. «, t00=0x001f, t01=0x0140}
0x31c4…31d6 Head {h00=0x000e, h01=0x0050, text=» RF IODISC«, t00=0x001f, t01=0x0164}
0x31d6…31e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0176}
0x31e0…31ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0180}
0x31ea…31fe Head {h00=0x0010, h01=0x0050, text=»WRITE EQU * «, t00=0x001f, t01=0x018a}
0x31fe…3222 Head {h00=0x0020, h01=0x0050, text=» LDK A7,/95 -PHYSICAL WRITE.«, t00=0x0020, t01=0x000e}
0x3222…3234 Head {h00=0x000e, h01=0x0050, text=» RF IODISC«, t00=0x0020, t01=0x0032}
0x3234…323e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0044}
0x323e…3248 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x004e}
0x3248…3252 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0058}
0x3252…327c Head {h00=0x0026, h01=0x0050, text=»* CHECK THE RETURN CODE.«, t00=0x0020, t01=0x0062}
0x327c…3286 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x008c}
0x3286…329a Head {h00=0x0010, h01=0x0050, text=»IODISC EQU *«, t00=0x0020, t01=0x0096}
0x329a…32be Head {h00=0x0020, h01=0x0050, text=» LDK A2,1 -INDICATION RETRY.«, t00=0x0020, t01=0x00aa}
0x32be…32d2 Head {h00=0x0010, h01=0x0050, text=» LDKL A8,ECB«, t00=0x0020, t01=0x00ce}
0x32d2…32e4 Head {h00=0x000e, h01=0x0050, text=»RETRY LKM «, t00=0x0020, t01=0x00e2}
0x32e4…32f4 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0020, t01=0x00f4}
0x32f4…3316 Head {h00=0x001e, h01=0x0050, text=» LD A1,8,A8 -RETURN CODE. «, t00=0x0020, t01=0x0104}
0x3316…332c Head {h00=0x0012, h01=0x0050, text=» RF(Z) EOREAD «, t00=0x0020, t01=0x0126}
0x332c…3348 Head {h00=0x0018, h01=0x0050, text=» SUK A2,1 -RETRY ?? «, t00=0x0020, t01=0x013c}
0x3348…335c Head {h00=0x0010, h01=0x0050, text=» RB(Z) RETRY«, t00=0x0020, t01=0x0158}
0x335c…338c Head {h00=0x002c, h01=0x0050, text=» ORS A1,RETCOD -STORE TOTAL RETURN CODE «, t00=0x0020, t01=0x016c}
0x338c…33a0 Head {h00=0x0010, h01=0x0050, text=»EOREAD EQU *«, t00=0x0021, t01=0x000c}
0x33a0…33b0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0021, t01=0x0020}
0x33b0…33ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0030}
0x33ba…33c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x003a}
0x33c4…340a Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0021, t01=0x0044}
0x340a…3434 Head {h00=0x0026, h01=0x0050, text=»* CHECK CONDITION REGISTER. «, t00=0x0021, t01=0x008a}
0x3434…347a Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0021, t01=0x00b4}
0x347a…3484 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00fa}
0x3484…3498 Head {h00=0x0010, h01=0x0050, text=»KONDIT EQU *«, t00=0x0021, t01=0x0104}
0x3498…34ac Head {h00=0x0010, h01=0x0050, text=» LD A2,2,A13«, t00=0x0021, t01=0x0118}
0x34ac…34c0 Head {h00=0x0010, h01=0x0050, text=» SC A1,-2,A2«, t00=0x0021, t01=0x012c}
0x34c0…34d0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0021, t01=0x0140}
0x34d0…34da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0150}
0x34da…34e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x015a}
0x34e4…34ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0164}
0x34ee…3502 Head {h00=0x0010, h01=0x0050, text=»A:EVA EQU * «, t00=0x0021, t01=0x016e}
0x3502…3518 Head {h00=0x0012, h01=0x0050, text=» CF A14,I:EVA0«, t00=0x0021, t01=0x0182}
0x3518…352c Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A9 «, t00=0x0022, t01=0x0008}
0x352c…353c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0022, t01=0x001c}
0x353c…3546 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x002c}
0x3546…3554 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x0036}
0x3554…355e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0044}
0x355e…3568 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x004e}
0x3568…359a Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0022, t01=0x0058}
0x359a…35ba Head {h00=0x001c, h01=0x0050, text=»* CHECK VOLUME NAME. «, t00=0x0022, t01=0x008a}
0x35ba…35ec Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0022, t01=0x00aa}
0x35ec…35f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00dc}
0x35f6…360a Head {h00=0x0010, h01=0x0050, text=»CHKVLN EQU *«, t00=0x0022, t01=0x00e6}
0x360a…362c Head {h00=0x001e, h01=0x0050, text=» LD A2,ECB+2 -BUFFER ADRS.«, t00=0x0022, t01=0x00fa}
0x362c…3652 Head {h00=0x0022, h01=0x0050, text=» ADK A2,2 -POINTER IN BUFFER. «, t00=0x0022, t01=0x011c}
0x3652…3678 Head {h00=0x0022, h01=0x0050, text=» ST A2,C:STOR -ROUTINE COMPARE«, t00=0x0022, t01=0x0142}
0x3678…36a2 Head {h00=0x0026, h01=0x0050, text=» LDK A3,1 -PRESET NUMBER OF CHECKS«, t00=0x0022, t01=0x0168}
0x36a2…36ce (35, 0, 400) Head {h00=0x0028, h01=0x0050, text=» LDKL A4,BLOCK+16 -BASIC VOLUME NAME«, t00=0x0023, t01=0x0004}
0x36ce…36e2 Head {h00=0x0010, h01=0x0050, text=»LABEL EQU * «, t00=0x0023, t01=0x0030}
0x36e2…36f4 Head {h00=0x000e, h01=0x0050, text=» LDK A1,6 «, t00=0x0023, t01=0x0044}
0x36f4…371a Head {h00=0x0022, h01=0x0050, text=» CF A14,COMPAR -CHECK THE NAME«, t00=0x0023, t01=0x0056}
0x371a…372c Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0023, t01=0x007c}
0x372c…3740 Head {h00=0x0010, h01=0x0050, text=» RF(Z) EINDE«, t00=0x0023, t01=0x008e}
0x3740…375c Head {h00=0x0018, h01=0x0050, text=» ADK A3,1 -NEXT NAME«, t00=0x0023, t01=0x00a2}
0x375c…3782 Head {h00=0x0022, h01=0x0050, text=» CWR A6,A3 -ALL VOLUMES HAD ??«, t00=0x0023, t01=0x00be}
0x3782…3796 Head {h00=0x0010, h01=0x0050, text=» RF(N) EINDE«, t00=0x0023, t01=0x00e4}
0x3796…37b8 Head {h00=0x001e, h01=0x0050, text=» ADK A4,6 -ADJUST POINTER.«, t00=0x0023, t01=0x00f8}
0x37b8…37ca Head {h00=0x000e, h01=0x0050, text=» RB LABEL «, t00=0x0023, t01=0x011a}
0x37ca…37e0 Head {h00=0x0012, h01=0x0050, text=»EINDE RTN A14 «, t00=0x0023, t01=0x012c}
0x37e0…37ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0142}
0x37ea…37f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x014c}
0x37f4…3808 Head {h00=0x0010, h01=0x0050, text=»COMPAR EQU *«, t00=0x0023, t01=0x0156}
0x3808…381a Head {h00=0x000e, h01=0x0050, text=» LDK A5,0 «, t00=0x0023, t01=0x016a}
0x381a…3844 Head {h00=0x0026, h01=0x0050, text=» ADR A4,A1 -THE CORRECT POINTER ? «, t00=0x0023, t01=0x017c}
0x3844…385c Head {h00=0x0014, h01=0x0050, text=»C:LOOP SUK A1,1 «, t00=0x0024, t01=0x0016}
0x385c…386e Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0024, t01=0x002e}
0x386e…388e Head {h00=0x001c, h01=0x0050, text=» LCR A5,A4 -CHAR IN A5. «, t00=0x0024, t01=0x0040}
0x388e…38b0 Head {h00=0x001e, h01=0x0050, text=» CC A5,0,A1 -COMPARE CHAR.«, t00=0x0024, t01=0x0060}
0x38b0…38d8 Head {h00=0x0024, h01=0x0050, text=»C:STOR EQU *-2 -SAVE ADRES ITEM «, t00=0x0024, t01=0x0082}
0x38d8…38fa Head {h00=0x001e, h01=0x0050, text=» RF(NZ) NOTSAME -NOT EQUAL«, t00=0x0024, t01=0x00aa}
0x38fa…390c Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0024, t01=0x00cc}
0x390c…3922 Head {h00=0x0012, h01=0x0050, text=» RB(NZ) C:LOOP«, t00=0x0024, t01=0x00de}
0x3922…3932 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0024, t01=0x00f4}
0x3932…3948 Head {h00=0x0012, h01=0x0050, text=»NOTSAME EQU * «, t00=0x0024, t01=0x0104}
0x3948…396c Head {h00=0x0020, h01=0x0050, text=» SUR A4,A1 -GET POINTER BACK«, t00=0x0024, t01=0x011a}
0x396c…397e Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0024, t01=0x013e}
0x397e…398e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0024, t01=0x0150}
0x398e…3998 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0160}
0x3998…39a6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x016a}
0x39a6…39b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0178}
0x39b0…39da Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0024, t01=0x0182}
0x39da…39f4 Head {h00=0x0016, h01=0x0050, text=»* GET NEXT ECB. «, t00=0x0025, t01=0x001c}
0x39f4…3a1e Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0025, t01=0x0036}
0x3a1e…3a28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0060}
0x3a28…3a32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x006a}
0x3a32…3a46 Head {h00=0x0010, h01=0x0050, text=»NXTECB EQU *«, t00=0x0025, t01=0x0074}
0x3a46…3a5e Head {h00=0x0014, h01=0x0050, text=» LDKL A2,BUFFE2 «, t00=0x0025, t01=0x0088}
0x3a5e…3a88 Head {h00=0x0026, h01=0x0050, text=» ST A2,ECB+2 -SAVE BUFFER2 ADRES. «, t00=0x0025, t01=0x00a0}
0x3a88…3ab2 Head {h00=0x0026, h01=0x0050, text=» LD A6,BUFFER+12 -FREE SPACE TABLE«, t00=0x0025, t01=0x00ca}
0x3ab2…3ac4 Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x0025, t01=0x00f4}
0x3ac4…3aee Head {h00=0x0026, h01=0x0050, text=» LD A3,BUFFER+8 -GET VTOC SECTORS.«, t00=0x0025, t01=0x0106}
0x3aee…3b14 Head {h00=0x0022, h01=0x0050, text=» ADR A3,A6 -LAST VTOC SECTOR. «, t00=0x0025, t01=0x0130}
0x3b14…3b24 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0025, t01=0x0156}
0x3b24…3b2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0166}
0x3b2e…3b38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0170}
0x3b38…3b42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x017a}
0x3b42…3b78 Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0025, t01=0x0184}
0x3b78…3ba4 Head {h00=0x0028, h01=0x0050, text=»* SEARCH FILENAME IN THE -VTOC-. «, t00=0x0026, t01=0x002a}
0x3ba4…3bda Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0026, t01=0x0056}
0x3bda…3be4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x008c}
0x3be4…3bee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0096}
0x3bee…3c02 Head {h00=0x0010, h01=0x0050, text=»SEARCH EQU *«, t00=0x0026, t01=0x00a0}
0x3c02…3c2c Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BLOCK+8 -ADRES FILE NAME.«, t00=0x0026, t01=0x00b4}
0x3c2c…3c5a Head {h00=0x002a, h01=0x0050, text=» ST A4,C:STOR STORE IN ROUTINE COMPAR «, t00=0x0026, t01=0x00de}
0x3c5a…3c88 Head {h00=0x002a, h01=0x0050, text=» LDKL A4,BUFFE2+2 -BEGIN VTOC RECORD. «, t00=0x0026, t01=0x010c}
0x3c88…3ca0 Head {h00=0x0014, h01=0x0050, text=»LABEL2 LDK A1,8 «, t00=0x0026, t01=0x013a}
0x3ca0…3cc8 Head {h00=0x0024, h01=0x0050, text=» CF A14,COMPAR -CHECK FILENAMES «, t00=0x0026, t01=0x0152}
0x3cc8…3cda Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0026, t01=0x017a}
0x3cda…3cf6 Head {h00=0x0018, h01=0x0050, text=» RF(Z) OKE -SAME ?? «, t00=0x0026, t01=0x018c}
0x3cf6…3d1c Head {h00=0x0022, h01=0x0050, text=» ADK A4,42 -NEXT VTOC RECORD. «, t00=0x0027, t01=0x0018}
0x3d1c…3d46 Head {h00=0x0026, h01=0x0050, text=» CWK A4,BUFFE2+420 -END OF SECTOR.«, t00=0x0027, t01=0x003e}
0x3d46…3d6a Head {h00=0x0020, h01=0x0050, text=» RB(2) LABEL2 -NO GET BACK. «, t00=0x0027, t01=0x0068}
0x3d6a…3d7e Head {h00=0x0010, h01=0x0050, text=»OKE RTN A14 «, t00=0x0027, t01=0x008c}
0x3d7e…3d88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00a0}
0x3d88…3d96 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x00aa}
0x3d96…3da0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00b8}
0x3da0…3daa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00c2}
0x3daa…3dd6 Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x0027, t01=0x00cc}
0x3dd6…3dfa Head {h00=0x0020, h01=0x0050, text=»* READ SECTOR OF THE VTOC.«, t00=0x0027, t01=0x00f8}
0x3dfa…3e26 Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x0027, t01=0x011c}
0x3e26…3e30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0148}
0x3e30…3e3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0152}
0x3e3a…3e4c Head {h00=0x000e, h01=0x0050, text=»VTOC EQU *«, t00=0x0027, t01=0x015c}
0x3e4c…3e76 Head {h00=0x0026, h01=0x0050, text=» ST A6,SECNR -STORE SECTOR NUMBER «, t00=0x0027, t01=0x016e}
0x3e76…3e98 Head {h00=0x001e, h01=0x0050, text=» CF A14,READ -READ SECTOR «, t00=0x0028, t01=0x0008}
0x3e98…3eaa Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0028, t01=0x002a}
0x3eaa…3eca Head {h00=0x001c, h01=0x0050, text=» RF(NZ) ERRREAD -ERROR ?«, t00=0x0028, t01=0x003c}
0x3eca…3ef4 Head {h00=0x0026, h01=0x0050, text=» CF A14,SEARCH -SEARCH FILE NAME. «, t00=0x0028, t01=0x005c}
0x3ef4…3f06 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0028, t01=0x0086}
0x3f06…3f24 Head {h00=0x001a, h01=0x0050, text=» RF(Z) FOUND -FOUND ??«, t00=0x0028, t01=0x0098}
0x3f24…3f42 Head {h00=0x001a, h01=0x0050, text=» ADK A6,1 -NO NEXT ONE«, t00=0x0028, t01=0x00b6}
0x3f42…3f66 Head {h00=0x0020, h01=0x0050, text=» CWR A3,A6 -END OF SECTOR ? «, t00=0x0028, t01=0x00d4}
0x3f66…3f90 Head {h00=0x0026, h01=0x0050, text=» RB(NZ) VTOC -NO NEXT VTOC SECTOR.«, t00=0x0028, t01=0x00f8}
0x3f90…3fb6 Head {h00=0x0022, h01=0x0050, text=» LDK A1,/20 -FILENAME UNKNOWN «, t00=0x0028, t01=0x0122}
0x3fb6…3fe0 Head {h00=0x0026, h01=0x0050, text=» ORS A1,RETCOD -STORE RETURN CODE.«, t00=0x0028, t01=0x0148}
0x3fe0…3ff2 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0028, t01=0x0172}
0x3ff2…4012 Head {h00=0x001c, h01=0x0050, text=» LDKL A8,0 -NOT PRESENT.«, t00=0x0028, t01=0x0184}
0x4012…402a Head {h00=0x0014, h01=0x0050, text=»ERRREAD RTN A14 «, t00=0x0029, t01=0x0014}
0x402a…4034 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x002c}
0x4034…403e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0036}
0x403e…4052 Head {h00=0x0010, h01=0x0050, text=»FOUND EQU * «, t00=0x0029, t01=0x0040}
0x4052…4064 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0029, t01=0x0054}
0x4064…4074 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0029, t01=0x0066}
0x4074…407e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0076}
0x407e…4088 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0080}
0x4088…4096 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x008a}
0x4096…40a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0098}
0x40a0…40aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00a2}
0x40aa…40d8 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0029, t01=0x00ac}
0x40d8…40fa Head {h00=0x001e, h01=0x0050, text=»* STANDARD SUB ROUTINE. «, t00=0x0029, t01=0x00da}
0x40fa…4128 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0029, t01=0x00fc}
0x4128…4132 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x012a}
0x4132…413c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0134}
0x413c…4152 Head {h00=0x0012, h01=0x0050, text=»STANDRD EQU * «, t00=0x0029, t01=0x013e}
0x4152…4168 Head {h00=0x0012, h01=0x0050, text=» CF A14,QUEUE «, t00=0x0029, t01=0x0154}
0x4168…417c Head {h00=0x0010, h01=0x0050, text=» CF A14,INIT«, t00=0x0029, t01=0x016a}
0x417c…4192 Head {h00=0x0012, h01=0x0050, text=» CF A14,FILNAM«, t00=0x0029, t01=0x017e}
0x4192…41a8 (42, 0, 400) Head {h00=0x0012, h01=0x0050, text=» CF A14,A:PPC «, t00=0x002a, t01=0x0004}
0x41a8…41ca Head {h00=0x001e, h01=0x0050, text=» LDR A7,A3 -SAVE REGISTER.«, t00=0x002a, t01=0x001a}
0x41ca…41dc Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x002a, t01=0x003c}
0x41dc…41f0 Head {h00=0x0010, h01=0x0050, text=»ST:01 EQU * «, t00=0x002a, t01=0x004e}
0x41f0…4206 Head {h00=0x0012, h01=0x0050, text=» CF A14,VOLNAM«, t00=0x002a, t01=0x0062}
0x4206…4218 Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x002a, t01=0x0078}
0x4218…422a Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x002a, t01=0x008a}
0x422a…4240 Head {h00=0x0012, h01=0x0050, text=» RB(NZ) ST:01 «, t00=0x002a, t01=0x009c}
0x4240…4256 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/5353«, t00=0x002a, t01=0x00b2}
0x4256…4284 Head {h00=0x002a, h01=0x0050, text=» SC A1,BLOCK+6 -STORE IN PARAM BLOCK. «, t00=0x002a, t01=0x00c8}
0x4284…4294 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002a, t01=0x00f6}
0x4294…429e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0106}
0x429e…42a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0110}
0x42a8…42b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x011a}
0x42b2…42e0 Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x002a, t01=0x0124}
0x42e0…4300 Head {h00=0x001c, h01=0x0050, text=»* SUB ROUTINE : QUEUE.«, t00=0x002a, t01=0x0152}
0x4300…430a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0172}
0x430a…4338 Head {h00=0x002a, h01=0x0050, text=»* THIS IS TO SHEDULE THE TASK UNTILL«, t00=0x002a, t01=0x017c}
0x4338…435a Head {h00=0x001e, h01=0x0050, text=»* THE ENTRY IS OMITTED. «, t00=0x002b, t01=0x001a}
0x435a…438a Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x002b, t01=0x003c}
0x438a…4394 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x006c}
0x4394…439e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0076}
0x439e…43b2 Head {h00=0x0010, h01=0x0050, text=»QUEUE EQU * «, t00=0x002b, t01=0x0080}
0x43b2…43d4 Head {h00=0x001e, h01=0x0050, text=» LD A1,FREE -IS OMITTED ??«, t00=0x002b, t01=0x0094}
0x43d4…43f8 Head {h00=0x0020, h01=0x0050, text=» RF(Z) Q:RTN -OKAY IF ZERO. «, t00=0x002b, t01=0x00b6}
0x43f8…4404 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x002b, t01=0x00da}
0x4404…4414 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002b, t01=0x00e6}
0x4414…4426 Head {h00=0x000e, h01=0x0050, text=» RB QUEUE «, t00=0x002b, t01=0x00f6}
0x4426…443a Head {h00=0x0010, h01=0x0050, text=»Q:RTN EQU * «, t00=0x002b, t01=0x0108}
0x443a…445a Head {h00=0x001c, h01=0x0050, text=» IM FREE -INDICATE USED.«, t00=0x002b, t01=0x011c}
0x445a…446a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002b, t01=0x013c}
0x446a…4474 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x014c}
0x4474…447e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0156}
0x447e…448c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x0160}
0x448c…4496 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x016e}
0x4496…44a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0178}
0x44a0…44d2 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x002b, t01=0x0182}
0x44d2…44fe Head {h00=0x0028, h01=0x0050, text=»* THIS ROUTINE IS TO COPY THE USER «, t00=0x002c, t01=0x0024}
0x44fe…452a Head {h00=0x0028, h01=0x0050, text=»* FILENAME TO THE DISCRIPTOR BLOCK.«, t00=0x002c, t01=0x0050}
0x452a…455c Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x002c, t01=0x007c}
0x455c…4566 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00ae}
0x4566…4570 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00b8}
0x4570…4584 Head {h00=0x0010, h01=0x0050, text=»FILNAM EQU *«, t00=0x002c, t01=0x00c2}
0x4584…459a Head {h00=0x0012, h01=0x0050, text=» CF A14,I:EVA0«, t00=0x002c, t01=0x00d6}
0x459a…45bc Head {h00=0x001e, h01=0x0050, text=» LDK A4,8 -BYTES TO MOVE. «, t00=0x002c, t01=0x00ec}
0x45bc…45e4 Head {h00=0x0024, h01=0x0050, text=» LDK A3,8 -FROM BYTE 8 IN BLOCK.«, t00=0x002c, t01=0x010e}
0x45e4…45fa Head {h00=0x0012, h01=0x0050, text=» CF A14,A:MOVE«, t00=0x002c, t01=0x0136}
0x45fa…460a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002c, t01=0x014c}
0x460a…4614 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x015c}
0x4614…461e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0166}
0x461e…4650 Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x002c, t01=0x0170}
0x4650…467e Head {h00=0x002a, h01=0x0050, text=»* THIS ROUTINE IS TO MOVE THE VOLUME «, t00=0x002d, t01=0x0012}
0x467e…46a6 Head {h00=0x0024, h01=0x0050, text=»* NAME TO THE DISCRIPTOR BLOCK.«, t00=0x002d, t01=0x0040}
0x46a6…46b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0068}
0x46b0…46ea Head {h00=0x0036, h01=0x0050, text=»* REG. A7 CONTAINS THE INDEX OF THE VOLUME NAME. «, t00=0x002d, t01=0x0072}
0x46ea…471c Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x002d, t01=0x00ac}
0x471c…4726 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00de}
0x4726…4730 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00e8}
0x4730…4744 Head {h00=0x0010, h01=0x0050, text=»VOLNAM EQU *«, t00=0x002d, t01=0x00f2}
0x4744…475a Head {h00=0x0012, h01=0x0050, text=» CF A14,I:EVA0«, t00=0x002d, t01=0x0106}
0x475a…4778 Head {h00=0x001a, h01=0x0050, text=» LDR A1,A6 -GET INDEX.«, t00=0x002d, t01=0x011c}
0x4778…4794 Head {h00=0x0018, h01=0x0050, text=» SLL A1,1 -MUL BY 2.«, t00=0x002d, t01=0x013a}
0x4794…47b2 Head {h00=0x001a, h01=0x0050, text=» ADR A1,A6 -ADD VALUE.«, t00=0x002d, t01=0x0156}
0x47b2…47d6 Head {h00=0x0020, h01=0x0050, text=» SLL A1,1 -MUL BY 2 --> 6 X.«, t00=0x002d, t01=0x0174}
0x47d6…47f8 Head {h00=0x001e, h01=0x0050, text=» LDK A3,16 -VOLUME ENTRY. «, t00=0x002e, t01=0x0008}
0x47f8…4816 Head {h00=0x001a, h01=0x0050, text=» ADR A3,A1 -ADD INDEX.«, t00=0x002e, t01=0x002a}
0x4816…4830 Head {h00=0x0016, h01=0x0050, text=» LDK A4,6 -LENGTH «, t00=0x002e, t01=0x0048}
0x4830…4854 Head {h00=0x0020, h01=0x0050, text=» CF A14,A:MOVE -MOVE VOLUME «, t00=0x002e, t01=0x0062}
0x4854…4864 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002e, t01=0x0086}
0x4864…486e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0096}
0x486e…4878 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00a0}
0x4878…48b2 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x002e, t01=0x00aa}
0x48b2…48e6 Head {h00=0x0030, h01=0x0050, text=»* ROUTINE TO GET A CONSTANT VALUE FROM THE«, t00=0x002e, t01=0x00e4}
0x48e6…4916 Head {h00=0x002c, h01=0x0050, text=»* USER DATA DIVISION AND TO UPDATE THE«, t00=0x002e, t01=0x0118}
0x4916…4932 Head {h00=0x0018, h01=0x0050, text=»* PROGRAM POINTER.«, t00=0x002e, t01=0x0148}
0x4932…496c Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x002e, t01=0x0164}
0x496c…4976 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x000e}
0x4976…4980 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0018}
0x4980…4994 Head {h00=0x0010, h01=0x0050, text=»A:PPC EQU * «, t00=0x002f, t01=0x0022}
0x4994…49a6 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x002f, t01=0x0036}
0x49a6…49ba Head {h00=0x0010, h01=0x0050, text=» LCR A3,A12 «, t00=0x002f, t01=0x0048}
0x49ba…49ce Head {h00=0x0010, h01=0x0050, text=» ADKL A12,1 «, t00=0x002f, t01=0x005c}
0x49ce…49de Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002f, t01=0x0070}
0x49de…49ec Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002f, t01=0x0080}
0x49ec…49f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x008e}
0x49f6…4a00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0098}
0x4a00…4a3c Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x002f, t01=0x00a2}
0x4a3c…4a6e Head {h00=0x002e, h01=0x0050, text=»* ROUTINE TO MOVE CORE FROM USER TO THE«, t00=0x002f, t01=0x00de}
0x4a6e…4a8c Head {h00=0x001a, h01=0x0050, text=»* DISCRIPTOR BLOCK.«, t00=0x002f, t01=0x0110}
0x4a8c…4a96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x012e}
0x4a96…4ac8 Head {h00=0x002e, h01=0x0050, text=»* REG. A9 CONTAINS THE USER CORE ADRES.«, t00=0x002f, t01=0x0138}
0x4ac8…4af0 Head {h00=0x0024, h01=0x0050, text=»* REG. A4 CONTAINS THE LENGTH«, t00=0x002f, t01=0x016a}
0x4af0…4b26 (48, 0, 400) Head {h00=0x0032, h01=0x0050, text=»* REG. A3 CONTAINS THE ENTRY IN THE BLOCK. «, t00=0x0030, t01=0x0004}
0x4b26…4b64 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0030, t01=0x003a}
0x4b64…4b6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0078}
0x4b6e…4b78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0082}
0x4b78…4b8c Head {h00=0x0010, h01=0x0050, text=»A:MOVE EQU *«, t00=0x0030, t01=0x008c}
0x4b8c…4bb4 Head {h00=0x0024, h01=0x0050, text=» LDKL A1,BLOCK -DISCRIPTOR BLOCK«, t00=0x0030, t01=0x00a0}
0x4bb4…4bd6 Head {h00=0x001e, h01=0x0050, text=» ADR A1,A3 -ENTRY IN BLOCK«, t00=0x0030, t01=0x00c8}
0x4bd6…4bee Head {h00=0x0014, h01=0x0050, text=» ST A1,DISCRIPT «, t00=0x0030, t01=0x00ea}
0x4bee…4c10 Head {h00=0x001e, h01=0x0050, text=» ST A9,ADRES -USER ADRES. «, t00=0x0030, t01=0x0102}
0x4c10…4c22 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0030, t01=0x0124}
0x4c22…4c36 Head {h00=0x0010, h01=0x0050, text=»M:LOOP EQU *«, t00=0x0030, t01=0x0136}
0x4c36…4c5e Head {h00=0x0024, h01=0x0050, text=» SUK A4,1 -EVERY THING MOVED ?? «, t00=0x0030, t01=0x014a}
0x4c5e…4c72 Head {h00=0x0010, h01=0x0050, text=» RF(N) M:END«, t00=0x0030, t01=0x0172}
0x4c72…4c86 Head {h00=0x0010, h01=0x0050, text=» LC A1,0,A4 «, t00=0x0030, t01=0x0186}
0x4c86…4c9c Head {h00=0x0012, h01=0x0050, text=»ADRES EQU *-2 «, t00=0x0031, t01=0x000a}
0x4c9c…4cb0 Head {h00=0x0010, h01=0x0050, text=» SC A1,0,A4 «, t00=0x0031, t01=0x0020}
0x4cb0…4cc8 Head {h00=0x0014, h01=0x0050, text=»DISCRIPT EQU *-2«, t00=0x0031, t01=0x0034}
0x4cc8…4cda Head {h00=0x000e, h01=0x0050, text=» RB M:LOOP«, t00=0x0031, t01=0x004c}
0x4cda…4cee Head {h00=0x0010, h01=0x0050, text=»M:END EQU * «, t00=0x0031, t01=0x005e}
0x4cee…4cfe Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0031, t01=0x0072}
0x4cfe…4d08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0082}
0x4d08…4d12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x008c}
0x4d12…4d50 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0031, t01=0x0096}
0x4d50…4d86 Head {h00=0x0032, h01=0x0050, text=»* ROUTINE TO MOVE DATE AND RETENTION PERIOD«, t00=0x0031, t01=0x00d4}
0x4d86…4db8 Head {h00=0x002e, h01=0x0050, text=»* FROM USER BUFFER TO DISCRIPTOR BLOCK.«, t00=0x0031, t01=0x010a}
0x4db8…4df8 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0031, t01=0x013c}
0x4df8…4e02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x017c}
0x4e02…4e0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0186}
0x4e0c…4e20 Head {h00=0x0010, h01=0x0050, text=»TEKST EQU * «, t00=0x0031, t01=0x0190}
0x4e20…4e36 Head {h00=0x0012, h01=0x0050, text=» CF A14,I:EVA0«, t00=0x0032, t01=0x0014}
0x4e36…4e56 Head {h00=0x001c, h01=0x0050, text=» LDK A4,15 LENGTH TEXT. «, t00=0x0032, t01=0x002a}
0x4e56…4e78 Head {h00=0x001e, h01=0x0050, text=» LDK A3,40 ENTRY IN BLOCK.«, t00=0x0032, t01=0x004a}
0x4e78…4e8e Head {h00=0x0012, h01=0x0050, text=» CF A14,A:MOVE«, t00=0x0032, t01=0x006c}
0x4e8e…4e9e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0032, t01=0x0082}
0x4e9e…4ea8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0092}
0x4ea8…4eb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x009c}
0x4eb2…4ec0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0032, t01=0x00a6}
0x4ec0…4eca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00b4}
0x4eca…4ed4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00be}
0x4ed4…4f12 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0032, t01=0x00c8}
0x4f12…4f4a Head {h00=0x0034, h01=0x0050, text=»* THIS ROUTINE IS TO INIT THE DISCRIPTOR BLOCK«, t00=0x0032, t01=0x0106}
0x4f4a…4f64 Head {h00=0x0016, h01=0x0050, text=»* ON TO SPACES. «, t00=0x0032, t01=0x013e}
0x4f64…4fa2 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0032, t01=0x0158}
0x4fa2…4fac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0008}
0x4fac…4fbe Head {h00=0x000e, h01=0x0050, text=»INIT EQU *«, t00=0x0033, t01=0x0012}
0x4fbe…4fde Head {h00=0x001c, h01=0x0050, text=» LDKL A1,/2020 -SPACES. «, t00=0x0033, t01=0x0024}
0x4fde…4ff0 Head {h00=0x000e, h01=0x0050, text=» LDK A2,50«, t00=0x0033, t01=0x0044}
0x4ff0…5004 Head {h00=0x0010, h01=0x0050, text=»I:LOOP EQU *«, t00=0x0033, t01=0x0056}
0x5004…501e Head {h00=0x0016, h01=0x0050, text=» ST A1,BLOCK+6,A2 «, t00=0x0033, t01=0x006a}
0x501e…5030 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0033, t01=0x0084}
0x5030…5058 Head {h00=0x0024, h01=0x0050, text=» RB(NN) I:LOOP -END OF BUFFER ??«, t00=0x0033, t01=0x0096}
0x5058…506a Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0033, t01=0x00be}
0x506a…509e Head {h00=0x0030, h01=0x0050, text=» ST A1,BLOCK+54 -NUMBER OF INDEX FILES --> 0«, t00=0x0033, t01=0x00d0}
0x509e…50ae Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0033, t01=0x0104}
0x50ae…50b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0114}
0x50b8…50c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x011e}
0x50c2…50d6 Head {h00=0x0010, h01=0x0050, text=»FREE DATA 0 «, t00=0x0033, t01=0x0128}
0x50d6…50ec Head {h00=0x0012, h01=0x0050, text=»FC1 DATA /01C0«, t00=0x0033, t01=0x013c}
0x50ec…5104 Head {h00=0x0014, h01=0x0050, text=»FC1A2 DATA /C0C1«, t00=0x0033, t01=0x0152}
0x5104…510e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x016a}
0x510e…5146 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0033, t01=0x0174}
0x5146…516c Head {h00=0x0022, h01=0x0050, text=»* ROUTINE TO SAVE REGISTERS.«, t00=0x0034, t01=0x001c}
0x516c…51a4 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0034, t01=0x0042}
0x51a4…51ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x007a}
0x51ae…51c2 Head {h00=0x0010, h01=0x0050, text=»STORE EQU * «, t00=0x0034, t01=0x0084}
0x51c2…51d8 Head {h00=0x0012, h01=0x0050, text=» ST A11,REG11 «, t00=0x0034, t01=0x0098}
0x51d8…51ee Head {h00=0x0012, h01=0x0050, text=» ST A12,REG12 «, t00=0x0034, t01=0x00ae}
0x51ee…5204 Head {h00=0x0012, h01=0x0050, text=» ST A13,REG13 «, t00=0x0034, t01=0x00c4}
0x5204…5214 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0034, t01=0x00da}
0x5214…521e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00ea}
0x521e…5228 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00f4}
0x5228…5260 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0034, t01=0x00fe}
0x5260…5294 Head {h00=0x0030, h01=0x0050, text=»* ROUTINE TO GET BACK THE SAVED REGISTERS.«, t00=0x0034, t01=0x0136}
0x5294…52cc Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0034, t01=0x016a}
0x52cc…52d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0012}
0x52d6…52ea Head {h00=0x0010, h01=0x0050, text=»RESTOR EQU *«, t00=0x0035, t01=0x001c}
0x52ea…52fe Head {h00=0x0010, h01=0x0050, text=» LDKL A11,0 «, t00=0x0035, t01=0x0030}
0x52fe…5314 Head {h00=0x0012, h01=0x0050, text=»REG11 EQU *-2 «, t00=0x0035, t01=0x0044}
0x5314…5328 Head {h00=0x0010, h01=0x0050, text=» LDKL A12,0 «, t00=0x0035, t01=0x005a}
0x5328…533e Head {h00=0x0012, h01=0x0050, text=»REG12 EQU *-2 «, t00=0x0035, t01=0x006e}
0x533e…5352 Head {h00=0x0010, h01=0x0050, text=» LDKL A13,0 «, t00=0x0035, t01=0x0084}
0x5352…5368 Head {h00=0x0012, h01=0x0050, text=»REG13 EQU *-2 «, t00=0x0035, t01=0x0098}
0x5368…5378 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0035, t01=0x00ae}
0x5378…5382 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00be}
0x5382…539a Head {h00=0x0014, h01=0x0050, text=» DATA 'TM','P-' «, t00=0x0035, t01=0x00c8}
0x539a…53a8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0035, t01=0x00e0}
0x53a8…53b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00ee}
0x53b2…53bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00f8}
0x53bc…540c Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0035, t01=0x0102}
0x540c…5416 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0152}
0x5416…544e Head {h00=0x0034, h01=0x0050, text=»* D I S C R I P T O R B L O C K«, t00=0x0035, t01=0x015c}
0x544e…5458 (54, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0004}
0x5458…5462 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x000e}
0x5462…5476 Head {h00=0x0010, h01=0x0050, text=»BLOCK EQU * «, t00=0x0036, t01=0x0018}
0x5476…548a Head {h00=0x0010, h01=0x0050, text=» DATA BUFFER«, t00=0x0036, t01=0x002c}
0x548a…549e Head {h00=0x0010, h01=0x0050, text=» DATA BUFFE2«, t00=0x0036, t01=0x0040}
0x549e…54b4 Head {h00=0x0012, h01=0x0050, text=»ASSBLK DATA 0 «, t00=0x0036, t01=0x0054}
0x54b4…54c4 Head {h00=0x000c, h01=0x0050, text=» RES 16 «, t00=0x0036, t01=0x006a}
0x54c4…54d6 Head {h00=0x000e, h01=0x0050, text=»ECB DATA 0«, t00=0x0036, t01=0x007a}
0x54d6…54e6 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0036, t01=0x008c}
0x54e6…54f6 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0036, t01=0x009c}
0x54f6…5506 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0036, t01=0x00ac}
0x5506…5524 Head {h00=0x001a, h01=0x0050, text=» DATA 0 -RETURN CODE. «, t00=0x0036, t01=0x00bc}
0x5524…5548 Head {h00=0x0020, h01=0x0050, text=»SECNR DATA 0 -SECTOR NUMBER.«, t00=0x0036, t01=0x00da}
0x5548…555e Head {h00=0x0012, h01=0x0050, text=»RETCOD DATA 0 «, t00=0x0036, t01=0x00fe}
0x555e…5574 Head {h00=0x0012, h01=0x0050, text=»BUFADR DATA 0 «, t00=0x0036, t01=0x0114}
0x5574…5584 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0036, t01=0x012a}
0x5584…558e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x013a}
0x558e…5598 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0144}
0x5598…55a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x014e}
0x55a2…55f2 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0036, t01=0x0158}
0x55f2…55fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0018}
0x55fc…5640 Head {h00=0x0040, h01=0x0050, text=»* C R E A T E A N D D E L E T E B U F F E R«, t00=0x0037, t01=0x0022}
0x5640…564a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0066}
0x564a…5654 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0070}
0x5654…565e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x007a}
0x565e…566e Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0037, t01=0x0084}
0x566e…5682 Head {h00=0x0010, h01=0x0050, text=» DATA /4141 «, t00=0x0037, t01=0x0094}
0x5682…5696 Head {h00=0x0010, h01=0x0050, text=»BUFFER EQU *«, t00=0x0037, t01=0x00a8}
0x5696…56a6 Head {h00=0x000c, h01=0x0050, text=» RES 205«, t00=0x0037, t01=0x00bc}
0x56a6…56ba Head {h00=0x0010, h01=0x0050, text=»BUFFE2 EQU *«, t00=0x0037, t01=0x00cc}
0x56ba…56ca Head {h00=0x000c, h01=0x0050, text=» RES 205«, t00=0x0037, t01=0x00e0}
0x56ca…56d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00f0}
0x56d4…56de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00fa}
0x56de…56e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0104}
0x56e8…56f4 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0037, t01=0x010e}
0x56f4…56f8 Head {h00=0x4004, h01=0x0000}
0x56f8…56fc 00 37 01 1a ┆ 7 ┆
0x56fc…5704 (56, 1, 8) 20 04 00 00 00 38 00 04 ┆ 8 ┆
0x5704…5754 (57, 2, 328) 46 46 5c 44 4e 3d 37 20 00 10 01 8e 00 0e 00 50 5c 49 46 46 5c 44 4e 3d 38 20 00 11 00 10 00 0e 00 50 5c 49 46 46 5c 44 4e 3d 39 20 00 11 00 22 00 0e 00 50 5c 49 46 46 5c 44 4e 3d 31 30 00 11 00 34 00 0e 00 50 5c 49 46 46 5c 44 4e 3d 31 31 ┆FF DN=7 P IFF DN=8 P IFF DN=9 " P IFF DN=10 4 P IFF DN=11┆
0x5754…57a4 00 11 00 46 00 0e 00 50 5c 49 46 46 5c 44 4e 3d 31 32 00 11 00 58 00 0e 00 50 5c 49 46 46 5c 44 4e 3d 31 33 00 11 00 6a 00 0e 00 50 5c 49 46 46 5c 44 4e 3d 31 34 00 11 00 7c 00 1a 00 50 2a 20 20 20 44 4f 43 55 4d 45 4e 54 20 54 41 42 4c 45 ┆ F P IFF DN=12 X P IFF DN=13 j P IFF DN=14 | P* DOCUMENT TABLE┆
0x57a4…57f4 20 31 35 20 00 11 00 8e 00 04 00 50 00 11 00 ac 00 2c 00 50 5c 44 4f 43 50 41 52 5c 31 2c 30 2c 31 30 2c 36 37 2c 31 34 2c 32 2c 32 2c 30 2c 30 2c 30 2c 35 38 2c 30 2c 30 2c 30 20 00 11 00 b4 00 08 00 50 5c 58 49 46 00 11 00 e4 00 10 00 50 ┆ 15 P , P DOCPAR 1,0,10,67,14,2,2,0,0,0,58,0,0,0 P XIF P┆
0x57f4…5844 45 54 54 50 30 33 5c 45 51 55 5c 2a 00 11 00 f0 00 30 00 50 54 4c 54 50 30 33 5c 45 51 55 5c 45 54 54 50 30 33 2d 44 54 54 50 30 33 5c 54 4f 54 41 4c 20 54 41 42 4c 45 20 4c 45 4e 47 54 48 20 00 11 01 04 00 08 00 50 5c 45 4e 44 00 11 01 38 ┆ETTP03 EQU * 0 PTLTP03 EQU ETTP03-DTTP03 TOTAL TABLE LENGTH P END 8┆
0x5844…584c 40 04 00 00 00 11 01 44 ┆@ D┆
0x584c…5854 (58, 1, 8) 20 04 00 00 00 12 00 04 ┆ ┆
0x5854…585c (59, 1, 8) 20 04 00 00 00 2b 00 04 ┆ + ┆
0x585c…58ac (60, 0, 400) 54 0a 82 40 66 1e 54 48 90 41 66 1e 02 30 e2 41 66 93 e1 41 66 94 81 54 00 02 f6 a1 67 aa 81 20 44 56 81 41 66 92 81 54 00 04 81 41 66 94 82 40 66 9a 82 41 66 96 82 40 66 98 9a 20 51 a0 54 06 86 14 f6 a1 66 d2 82 20 66 80 03 18 f6 a1 0e ee ┆T @f TH Af 0 Af Af T g DV Af T Af @f Af @f Q T f f ┆
0x58ac…58fc 15 06 81 34 5e 88 82 20 66 6c 03 13 f6 a1 0e ee 99 04 81 41 66 1e 81 54 00 02 54 14 81 40 66 02 50 42 81 40 5b 68 a9 40 71 4c 50 38 90 41 66 00 81 20 66 6e f6 a1 66 c2 82 41 66 54 82 41 66 66 81 20 66 9a f6 a1 66 c2 15 02 82 20 66 52 03 19 ┆ 4^ fl Af T T @f PB @[h @qLP8 Af fn f AfT Aff f f fR ┆
0x58fc…594c f6 a1 0e ee 5f de f6 a1 68 2e 82 20 66 6c 03 13 f6 a1 0e ee f6 a1 0f 9c f6 a1 0f 78 81 40 66 98 e9 20 51 20 50 4e e9 20 51 a0 50 da 01 45 e1 41 66 2e 81 20 51 20 81 41 66 98 83 04 81 20 66 9a f6 a1 66 c2 81 20 66 b2 f6 a1 66 c2 81 0c 82 20 ┆ _ h. fl x @f Q PN Q P E Af. Q Af f f f f ┆
0x594c…599c 30 30 82 41 66 50 82 41 66 54 82 41 66 66 82 41 66 6e e9 20 51 20 50 08 81 41 66 9a 81 41 66 b2 8f 20 62 5a 02 53 e2 41 66 2e 01 57 e1 41 64 01 e1 41 66 af 81 20 51 a0 90 41 66 02 82 40 71 4c 58 5c 82 24 5c 60 82 20 66 2a 03 0a f6 a1 0e ee ┆00 AfP AfT Aff Afn Q P Af Af bZ S Af. W Ad Af Q Af @qLX $ ` f* ┆
0x599c…59ec 82 20 66 b4 03 06 f6 a1 0e ee f6 a1 68 d0 82 20 66 34 03 07 f6 a1 0e ee 81 20 30 30 81 41 66 50 81 41 66 54 81 41 66 66 81 41 66 6e 82 20 66 3c 03 16 f6 a1 0e ee 82 20 24 a2 22 aa 29 09 21 29 55 52 4a 55 48 a9 54 2a a5 49 55 09 4a 91 55 22 ┆ f h f4 00 AfP AfT Aff Afn f< $ " ) !)URJUH T* IU J U"┆