|
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: 26822 (0x68c6)
Notes: pts_type(SC)
Names: »FILES.SC«
└─⟦110b7ed5e⟧ Bits:30009664 Philips computer tape "600106"
└─⟦this⟧ »TOOLS/FILES.SC«
└─⟦bdcaa0fa2⟧ Bits:30009700 Philips computer tape "600999"
└─⟦this⟧ »TOOLS/FILES.SC«
IDENT FILES S. KRUIJER B.S.O. REL 1.04
*
*
*
*
***********************************************************************
*
* 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.
*
*
* 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.
*
*
***********************************************************************
*
* SEE NEXT PAGE.
EJECT
*
***********************************************************************
*
*
* 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
*
* ... STANDS FOR :
*
* 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.
*
*
* 7) GET VOLUME NAME.
*
* CALL GETVN,FC1,NAME,ERROR
*
* FC1 CONTAINS THE DISK NUMBER (1 - 4).
* NAME CONTAINS AFTER THE CALL THE VOLUME NAME.
*
*
* 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
ENTRY GETVN
ENTRY S:CLS
*
*
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,I:EVA0 -GET NO OF RECORDS.
LDK A4,3
LDK A3,55 -STORE TO POS 55-57.
CF A14,A:MOVE
CF A14,A:EVA -HAAL BLOCKINGSFACTOR.
SC A3,BLOCK+49 -STORE
CF A14,A:EVA
SC 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) CFFEND
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
*
***************************************************
* 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
EJECT
*****************************************
* 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
*
******************************************
* 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
EJECT
*
******************************************
* COPY FILE TO FILE.
******************************************
*
CFF EQU *
CF A14,QUEUE -SYSTEM FREE.
CF A14,INIT
CF A14,ASROUT -ASSIGN FILES.
LDKL A1,/41C1 -SPECIAL ASSIGN.
ST A1,FC1
CF A14,ASROUT
LDKL A1,/01C0 -FC1 := C0.
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.
LDK A4,/C1
CF A14,S:CLS -CLOSE FILES.
LDK A4,/C0
CF A14,S:CLS
CFFEND EQU *
RF COMSEG
*
GETOUT EQU *
RB AFHAND -BRANCH WAS TO LONG.
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
*
*
***********************************************
* CLOSE ROUTINE.
***********************************************
*
S:CLS EQU *
ST A1,REG01 -SAVE A1 FIRST.
LDKL A8,ASSBLK
STR A4,A8 -STORE FILE CODE.
LDK A7,/22
LKM
DATA 1 -LINKEM : 1.
LD A1,REG01 -RESTORE A1.
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
*
****************************************
* G E T V O L U M E N A M E
****************************************
*
GETVN EQU *
CF A14,QUEUE
CF A14,INIT
CF A14,STORE -SAVE REGISTERS.
CF A14,INIT1
LDK A1,/EF -+1 = F0.
ST A1,ECB
CF A14,INIT2 -INIT BUFFER.
CF A14,A:EVA -GET DISK NUMBER.
LDK A2,2
ADS A2,REG12 -UPDATE REGISTER 12.
ADS A3,ECB
LC A3,ECB+1
CF A14,READ -READ SECTOR 1.
LDR A1,A1
RB(NZ) GETOUT -ERROR ??
CF A14,I:EVA0 -GET FIELD FOR NAME.
LDK A4,6
LDK A3,2
ADR A9,A4
V:LOOP EQU *
LD A2,BUFFER,A4 -FROM RIGHT TO LEFT.
SUR A9,A3
STR A2,A9
SUR A4,A3
RB(P) V:LOOP
LDK A1,0
RB GETOUT -READY.
*
*
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
*
*
REG01 DATA 0
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
DATA 0
*
*
*
************************************************************************
*
* C R E A T E A N D D E L E T E B U F F E R
*
*
*
DATA /4141
BUFFER EQU *
RES 205
BUFFE2 EQU *
RES 205
*
*
*
END
0x0000…003e (0, 0, 400) Head {h00=0x003a, h01=0x0050, text=» IDENT FILES S. KRUIJER B.S.O. REL 1.04 «, t00=0x0000, t01=0x0004}
0x003e…0048 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0000, t01=0x0042}
0x0048…0052 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x004c}
0x0052…005c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0056}
0x005c…0066 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0060}
0x0066…00b6 Head {h00=0x004c, h01=0x0047, text=»*********************************************************************** «, t00=0x0000, t01=0x006a}
0x00b6…00c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ba}
0x00c0…00f2 Head {h00=0x002e, h01=0x0050, text=»* F I L E S«, t00=0x0000, t01=0x00c4}
0x00f2…0126 Head {h00=0x0030, h01=0x0050, text=»* *************** «, t00=0x0000, t01=0x00f6}
0x0126…0130 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x012a}
0x0130…0176 Head {h00=0x0042, h01=0x003e, text=»* THIS MODULE PROVIDES AN CREDIT INTERFACE TO HANDLE THE TOSS«, t00=0x0000, t01=0x0134}
0x0176…01ae Head {h00=0x0034, h01=0x0050, text=»* UTILITIES. ALL THE ROUTINES ARE IN ASSEMBLER.«, t00=0x0000, t01=0x017a}
0x01ae…01b8 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0001, t01=0x0022}
0x01b8…01f8 Head {h00=0x003c, h01=0x0050, text=»* THE INTERFACE IS CALLED UPON THE FOLLOWING MANNERS : «, t00=0x0001, t01=0x002c}
0x01f8…0202 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0001, t01=0x006c}
0x0202…020c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0076}
0x020c…0234 Head {h00=0x0024, h01=0x001f, text=»* 1) TO CREATE A STANDARD FILE «, t00=0x0001, t01=0x0080}
0x0234…023e Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0001, t01=0x00a8}
0x023e…0286 Head {h00=0x0044, h01=0x0050, text=»* CALL CRFS,DATAITEM1,VAL1,VOL1(,VOL2,..),DATE,RECL,NOREC, «, t00=0x0001, t01=0x00b2}
0x0286…02bc Head {h00=0x0032, h01=0x0050, text=»* BF,NOIND,KEY,ERROR«, t00=0x0001, t01=0x00fa}
0x02bc…02c6 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0001, t01=0x0130}
0x02c6…0306 Head {h00=0x003c, h01=0x0038, text=»* DATAITEM1 CONTAINS THE FILE NAME.(MUST BE 8 CHAR.)«, t00=0x0001, t01=0x013a}
0x0306…033e Head {h00=0x0034, h01=0x002f, text=»* VAL1 CONTAINS THE NUMBER OF VOLUMES. «, t00=0x0001, t01=0x017a}
0x033e…0382 Head {h00=0x0040, h01=0x003c, text=»* VOL(1-4) REPRESENTS DATAITEMS IN WICH THE VOLUMENAMES«, t00=0x0002, t01=0x0022}
0x0382…03c0 Head {h00=0x003a, h01=0x0035, text=»* ARE PLACED (EACH ONE MUST BE 6 CHAR.) «, t00=0x0002, t01=0x0066}
0x03c0…03fc Head {h00=0x0038, h01=0x0050, text=»* DATE A STRING ITEM WITH THE SYSTEM DATE. «, t00=0x0002, t01=0x00a4}
0x03fc…0442 Head {h00=0x0042, h01=0x0050, text=»* BF REPRESENTS THE BLOCKINGS FACTOR. (IN BINAIRY).«, t00=0x0002, t01=0x00e0}
0x0442…047e Head {h00=0x0038, h01=0x0050, text=»* RECL IS A BINAIRY WITH THE RECORD LENGTH.«, t00=0x0002, t01=0x0126}
0x047e…04be Head {h00=0x003c, h01=0x0038, text=»* NOREC IS A BINAITY WITH THE NUMBER OF RECORDS.«, t00=0x0002, t01=0x0162}
0x04be…04fc Head {h00=0x003a, h01=0x0050, text=»* NOIND REPRESENTS THE NUMBER OF INDEX FILES. «, t00=0x0003, t01=0x0012}
0x04fc…054a Head {h00=0x004a, h01=0x0045, text=»* KEY REPRESENTS A DATAITEM IN WICH THE KEYADRES IS PLACED. «, t00=0x0003, t01=0x0050}
0x054a…0588 Head {h00=0x003a, h01=0x0050, text=»* ERROR THIS FIELD CONTAINS THE ERROR NUMBER. «, t00=0x0003, t01=0x009e}
0x0588…0592 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0003, t01=0x00dc}
0x0592…059c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00e6}
0x059c…05c4 Head {h00=0x0024, h01=0x0020, text=»* 2) TO DELETE A STANDARD FILE.«, t00=0x0003, t01=0x00f0}
0x05c4…05ce Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0003, t01=0x0118}
0x05ce…060a Head {h00=0x0038, h01=0x0050, text=»* CALL DLFS,DATAITEM1,VAL1,VOL1,(VOL2..),ERROR «, t00=0x0003, t01=0x0122}
0x060a…0614 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0003, t01=0x015e}
0x0614…065e Head {h00=0x0046, h01=0x0041, text=»* THE CONTENS OF THE ITEMS IS THE SAME AS WITH A CREATE FILE. «, t00=0x0003, t01=0x0168}
0x065e…0668 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0004, t01=0x0022}
0x0668…0672 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x002c}
0x0672…06a2 Head {h00=0x002c, h01=0x0050, text=»* 3) TO GET THE LRN OF A STANDARD FILE.«, t00=0x0004, t01=0x0036}
0x06a2…06ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0066}
0x06ac…06ee Head {h00=0x003e, h01=0x0050, text=»* CALL GETLRN,DATAITEM1,VAL1,VOL1,(VOL2,..),LRN,ERROR «, t00=0x0004, t01=0x0070}
0x06ee…06f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00b2}
0x06f8…073a Head {h00=0x003e, h01=0x0050, text=»* LRN CONTAINS THE LAST RECORD NUMBER OF A FILE «, t00=0x0004, t01=0x00bc}
0x073a…0780 Head {h00=0x0042, h01=0x0050, text=»* AFTER THE CALL GETLRN IS PERFORMED SUCCESFULL.«, t00=0x0004, t01=0x00fe}
0x0780…078a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0144}
0x078a…07cc Head {h00=0x003e, h01=0x0050, text=»* THE CONTENS OF THE OTHER ITEMS IS THE SAME AS WITH A«, t00=0x0004, t01=0x014e}
0x07cc…07e6 Head {h00=0x0016, h01=0x0050, text=»* CREATE FILE.«, t00=0x0004, t01=0x0190}
0x07e6…07f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x001a}
0x07f0…07fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0024}
0x07fa…084a Head {h00=0x004c, h01=0x0050, text=»*********************************************************************** «, t00=0x0005, t01=0x002e}
0x084a…0854 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x007e}
0x0854…086e Head {h00=0x0016, h01=0x0050, text=»* SEE NEXT PAGE. «, t00=0x0005, t01=0x0088}
0x086e…087c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x00a2}
0x087c…0886 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00b0}
0x0886…08d6 Head {h00=0x004c, h01=0x0050, text=»*********************************************************************** «, t00=0x0005, t01=0x00ba}
0x08d6…08e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x010a}
0x08e0…08ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0114}
0x08ea…091e Head {h00=0x0030, h01=0x0050, text=»* 4) TO UPDATE THE LRN OF A STANDARD FILE. «, t00=0x0005, t01=0x011e}
0x091e…0928 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0152}
0x0928…096a Head {h00=0x003e, h01=0x0050, text=»* CALL PUTLRN,DATAITEM1,VAL1,VOL1,(VOL2,..),LRN,ERROR «, t00=0x0005, t01=0x015c}
0x096a…0974 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x000e}
0x0974…09b0 Head {h00=0x0038, h01=0x0050, text=»* THE CONTENS OF THE ITEMS IS THE SAME AS WITH A«, t00=0x0006, t01=0x0018}
0x09b0…09ee Head {h00=0x003a, h01=0x0050, text=»* CALL GETLRN, BUT IN THIS CASE THE LRN IS UPDATED«, t00=0x0006, t01=0x0054}
0x09ee…0a1e Head {h00=0x002c, h01=0x0050, text=»* AT THE RIGTH PLACE IN THE -VTOC-. «, t00=0x0006, t01=0x0092}
0x0a1e…0a28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00c2}
0x0a28…0a32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00cc}
0x0a32…0a72 Head {h00=0x003c, h01=0x0050, text=»* 5) SOME ROUTINES TO GET THE SPECIALITIES FROM A FILE.«, t00=0x0006, t01=0x00d6}
0x0a72…0aae Head {h00=0x0038, h01=0x0050, text=»* ALL THESE ROUTINES ARE THE SAME AS THE GETLRN.«, t00=0x0006, t01=0x0116}
0x0aae…0ab8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0152}
0x0ab8…0afa Head {h00=0x003e, h01=0x0050, text=»* CALL GET...,DATAITEM1,VAL1,VOL1,(VOL2,..),...,ERROR «, t00=0x0006, t01=0x015c}
0x0afa…0b04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x000e}
0x0b04…0b24 Head {h00=0x001c, h01=0x0050, text=»* ... STANDS FOR : «, t00=0x0007, t01=0x0018}
0x0b24…0b2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0038}
0x0b2e…0b58 Head {h00=0x0026, h01=0x0050, text=»* GETRL RECORD LENGTH. «, t00=0x0007, t01=0x0042}
0x0b58…0b8a Head {h00=0x002e, h01=0x0050, text=»* GETEL FILE EXTENSION LENGTH. «, t00=0x0007, t01=0x006c}
0x0b8a…0bb6 Head {h00=0x0028, h01=0x0050, text=»* GETBF BLOCKINGS FACTOR.«, t00=0x0007, t01=0x009e}
0x0bb6…0be8 Head {h00=0x002e, h01=0x0050, text=»* GETNIF NUMBER OF INDEX FILES. «, t00=0x0007, t01=0x00ca}
0x0be8…0c10 Head {h00=0x0024, h01=0x0050, text=»* GETKA KEY ADDRESS. «, t00=0x0007, t01=0x00fc}
0x0c10…0c1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0124}
0x0c1a…0c24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x012e}
0x0c24…0c44 Head {h00=0x001c, h01=0x0050, text=»* 6) COPY FILE TO FILE.«, t00=0x0007, t01=0x0138}
0x0c44…0c4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0158}
0x0c4e…0c84 Head {h00=0x0032, h01=0x0050, text=»* CALL CFF,FILEIN,VOL1,FILEOUT,VOL2,ERROR «, t00=0x0007, t01=0x0162}
0x0c84…0c8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0008}
0x0c8e…0cca Head {h00=0x0038, h01=0x0050, text=»* FILEIN CONTAINS THE NAME OF THE INPUT FILE.«, t00=0x0008, t01=0x0012}
0x0cca…0d08 Head {h00=0x003a, h01=0x0050, text=»* FILEOUT CONTAINS THE NAME OF THE OUTPUT FILE. «, t00=0x0008, t01=0x004e}
0x0d08…0d46 Head {h00=0x003a, h01=0x0050, text=»* VOL1 CONTAINS THE VOLUME NAME OF INPUTFILE.«, t00=0x0008, t01=0x008c}
0x0d46…0d86 Head {h00=0x003c, h01=0x0050, text=»* VOL2 CONTAINS THE VOLUME NAME OF OUTPUTFILE. «, t00=0x0008, t01=0x00ca}
0x0d86…0d90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x010a}
0x0d90…0d9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0114}
0x0d9a…0db8 Head {h00=0x001a, h01=0x0050, text=»* 7) GET VOLUME NAME.«, t00=0x0008, t01=0x011e}
0x0db8…0dc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x013c}
0x0dc2…0dea Head {h00=0x0024, h01=0x0050, text=»* CALL GETVN,FC1,NAME,ERROR «, t00=0x0008, t01=0x0146}
0x0dea…0df4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x016e}
0x0df4…0e2e Head {h00=0x0036, h01=0x0050, text=»* FC1 CONTAINS THE DISK NUMBER (1 - 4). «, t00=0x0008, t01=0x0178}
0x0e2e…0e6e Head {h00=0x003c, h01=0x0050, text=»* NAME CONTAINS AFTER THE CALL THE VOLUME NAME.«, t00=0x0009, t01=0x0022}
0x0e6e…0e78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0062}
0x0e78…0e82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x006c}
0x0e82…0ece Head {h00=0x0048, h01=0x0044, text=»* BY : SEBE KRUIJER.«, t00=0x0009, t01=0x0076}
0x0ece…0f1e Head {h00=0x004c, h01=0x0047, text=»*********************************************************************** «, t00=0x0009, t01=0x00c2}
0x0f1e…0f28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0112}
0x0f28…0f36 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x011c}
0x0f36…0f40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x012a}
0x0f40…0f7a Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0009, t01=0x0134}
0x0f7a…0fb4 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=0x016e}
0x0fb4…0fee Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x000a, t01=0x0018}
0x0fee…0ff8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0052}
0x0ff8…100c Head {h00=0x0010, h01=0x0050, text=» ENTRY CRFS «, t00=0x000a, t01=0x005c}
0x100c…1020 Head {h00=0x0010, h01=0x0050, text=» ENTRY DLFS «, t00=0x000a, t01=0x0070}
0x1020…1034 Head {h00=0x0010, h01=0x0050, text=» ENTRY A:PPC«, t00=0x000a, t01=0x0084}
0x1034…105e Head {h00=0x0026, h01=0x0050, text=» ENTRY A:EVA -ROUTINE FOR I:EVA0. «, t00=0x000a, t01=0x0098}
0x105e…1074 Head {h00=0x0012, h01=0x0050, text=» ENTRY GETLRN «, t00=0x000a, t01=0x00c2}
0x1074…108a Head {h00=0x0012, h01=0x0050, text=» ENTRY PUTLRN «, t00=0x000a, t01=0x00d8}
0x108a…109c Head {h00=0x000e, h01=0x0050, text=» ENTRY CFF«, t00=0x000a, t01=0x00ee}
0x109c…10b0 Head {h00=0x0010, h01=0x0050, text=» ENTRY GETRL«, t00=0x000a, t01=0x0100}
0x10b0…10c4 Head {h00=0x0010, h01=0x0050, text=» ENTRY GETEL«, t00=0x000a, t01=0x0114}
0x10c4…10d8 Head {h00=0x0010, h01=0x0050, text=» ENTRY GETBF«, t00=0x000a, t01=0x0128}
0x10d8…10ee Head {h00=0x0012, h01=0x0050, text=» ENTRY GETNIF «, t00=0x000a, t01=0x013c}
0x10ee…1102 Head {h00=0x0010, h01=0x0050, text=» ENTRY GETKA«, t00=0x000a, t01=0x0152}
0x1102…1116 Head {h00=0x0010, h01=0x0050, text=» ENTRY GETVN«, t00=0x000a, t01=0x0166}
0x1116…112a Head {h00=0x0010, h01=0x0050, text=» ENTRY S:CLS«, t00=0x000a, t01=0x017a}
0x112a…1134 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x018e}
0x1134…113e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0008}
0x113e…1154 Head {h00=0x0012, h01=0x0050, text=» EXTRN I:EVA0 «, t00=0x000b, t01=0x0012}
0x1154…1168 Head {h00=0x0010, h01=0x0050, text=» EXTRN I:RT1«, t00=0x000b, t01=0x0028}
0x1168…117e Head {h00=0x0012, h01=0x0050, text=» EXTRN CRFILE «, t00=0x000b, t01=0x003c}
0x117e…1194 Head {h00=0x0012, h01=0x0050, text=» EXTRN DLFILE «, t00=0x000b, t01=0x0052}
0x1194…11aa Head {h00=0x0012, h01=0x0050, text=» EXTRN COPFIL «, t00=0x000b, t01=0x0068}
0x11aa…11c0 Head {h00=0x0012, h01=0x0050, text=» EJECT «, t00=0x000b, t01=0x007e}
0x11c0…11ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0094}
0x11ca…120c Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x000b, t01=0x009e}
0x120c…1216 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00e0}
0x1216…124c 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=0x000b, t01=0x00ea}
0x124c…1256 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0120}
0x1256…1260 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x012a}
0x1260…1272 Head {h00=0x000e, h01=0x0050, text=»CRFS EQU *«, t00=0x000b, t01=0x0134}
0x1272…12a0 Head {h00=0x002a, h01=0x0050, text=» CF A14,STANDRD -STANDARD FILE BLOCK. «, t00=0x000b, t01=0x0146}
0x12a0…12ce Head {h00=0x002a, h01=0x0050, text=» CF A14,TEKST -FILL DATE RET. PERIOD. «, t00=0x000b, t01=0x0174}
0x12ce…12e4 Head {h00=0x0012, h01=0x0050, text=» CF A14,A:EVA «, t00=0x000c, t01=0x0012}
0x12e4…130c Head {h00=0x0024, h01=0x0050, text=» ST A3,BLOCK+50 -RECORD LENGTH. «, t00=0x000c, t01=0x0028}
0x130c…1336 Head {h00=0x0026, h01=0x0050, text=» CF A14,I:EVA0 -GET NO OF RECORDS.«, t00=0x000c, t01=0x0050}
0x1336…1348 Head {h00=0x000e, h01=0x0050, text=» LDK A4,3 «, t00=0x000c, t01=0x007a}
0x1348…1370 Head {h00=0x0024, h01=0x0050, text=» LDK A3,55 -STORE TO POS 55-57. «, t00=0x000c, t01=0x008c}
0x1370…1386 Head {h00=0x0012, h01=0x0050, text=» CF A14,A:MOVE«, t00=0x000c, t01=0x00b4}
0x1386…13b2 Head {h00=0x0028, h01=0x0050, text=» CF A14,A:EVA -HAAL BLOCKINGSFACTOR.«, t00=0x000c, t01=0x00ca}
0x13b2…13d0 Head {h00=0x001a, h01=0x0050, text=» SC A3,BLOCK+49 -STORE«, t00=0x000c, t01=0x00f6}
0x13d0…13e6 Head {h00=0x0012, h01=0x0050, text=» CF A14,A:EVA «, t00=0x000c, t01=0x0114}
0x13e6…13fe Head {h00=0x0014, h01=0x0050, text=» SC A3,BLOCK+54 «, t00=0x000c, t01=0x012a}
0x13fe…1422 Head {h00=0x0020, h01=0x0050, text=» CF A14,A:EVA -GET KEYADRES.«, t00=0x000c, t01=0x0142}
0x1422…143a Head {h00=0x0014, h01=0x0050, text=» ST A3,BLOCK+52 «, t00=0x000c, t01=0x0166}
0x143a…1462 Head {h00=0x0024, h01=0x0050, text=» CF A14,STORE -SAVE REG 11 .. 13«, t00=0x000c, t01=0x017e}
0x1462…1488 Head {h00=0x0022, h01=0x0050, text=» LDKL A12,BLOCK -BLOCK ADRES. «, t00=0x000d, t01=0x0016}
0x1488…14aa Head {h00=0x001e, h01=0x0050, text=» CF A14,CRFILE -THE CREATE«, t00=0x000d, t01=0x003c}
0x14aa…14d0 Head {h00=0x0022, h01=0x0050, text=» RF CFFEND -TO COMMON SEGMENT «, t00=0x000d, t01=0x005e}
0x14d0…14da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0084}
0x14da…1522 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x000d, t01=0x008e}
0x1522…152c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00d6}
0x152c…1562 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=0x000d, t01=0x00e0}
0x1562…156c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0116}
0x156c…1576 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0120}
0x1576…1588 Head {h00=0x000e, h01=0x0050, text=»DLFS EQU *«, t00=0x000d, t01=0x012a}
0x1588…15b0 Head {h00=0x0024, h01=0x0050, text=» CF A14,STANDRD STANDARD PARAM. «, t00=0x000d, t01=0x013c}
0x15b0…15d6 Head {h00=0x0022, h01=0x0050, text=» CF A14,STORE STORE REGISTERS.«, t00=0x000d, t01=0x0164}
0x15d6…15ee Head {h00=0x0014, h01=0x0050, text=» LDKL A12,BLOCK «, t00=0x000d, t01=0x018a}
0x15ee…1616 Head {h00=0x0024, h01=0x0050, text=» CF A14,DLFILE -DELETE THE FILE.«, t00=0x000e, t01=0x0012}
0x1616…1628 Head {h00=0x000e, h01=0x0050, text=» RF CFFEND«, t00=0x000e, t01=0x003a}
0x1628…1632 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x004c}
0x1632…167a Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x000e, t01=0x0056}
0x167a…1688 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x009e}
0x1688…16d0 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x000e, t01=0x00ac}
0x16d0…16da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00f4}
0x16da…1718 Head {h00=0x003a, h01=0x0050, text=»* THIS ROUTINE IS TO GET THE LAST RECORD NUMBER FROM«, t00=0x000e, t01=0x00fe}
0x1718…1730 Head {h00=0x0014, h01=0x0050, text=»* THE -VTOC-. «, t00=0x000e, t01=0x013c}
0x1730…173a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0154}
0x173a…1782 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x000e, t01=0x015e}
0x1782…178c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0016}
0x178c…17a0 Head {h00=0x0010, h01=0x0050, text=»GETLRN EQU *«, t00=0x000f, t01=0x0020}
0x17a0…17b4 Head {h00=0x0010, h01=0x0050, text=» CF A14,LRN «, t00=0x000f, t01=0x0034}
0x17b4…17c6 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x000f, t01=0x0048}
0x17c6…17dc Head {h00=0x0012, h01=0x0050, text=» RF(NZ) AFHAND«, t00=0x000f, t01=0x005a}
0x17dc…17fe Head {h00=0x001e, h01=0x0050, text=» LD A4,22,A4 -GET LRN NR. «, t00=0x000f, t01=0x0070}
0x17fe…1812 Head {h00=0x0010, h01=0x0050, text=»GETAF EQU * «, t00=0x000f, t01=0x0092}
0x1812…1828 Head {h00=0x0012, h01=0x0050, text=» CF A14,I:EVA0«, t00=0x000f, t01=0x00a6}
0x1828…1850 Head {h00=0x0024, h01=0x0050, text=» STR A4,A9 STORE LAST REC NUMBER«, t00=0x000f, t01=0x00bc}
0x1850…1872 Head {h00=0x001e, h01=0x0050, text=» LDK A1,0 -INDICATION OK. «, t00=0x000f, t01=0x00e4}
0x1872…1886 Head {h00=0x0010, h01=0x0050, text=»AFHAND EQU *«, t00=0x000f, t01=0x0106}
0x1886…1898 Head {h00=0x000e, h01=0x0050, text=» LDK A2,2 «, t00=0x000f, t01=0x011a}
0x1898…18ba Head {h00=0x001e, h01=0x0050, text=» ADS A2,REG12 -NIEUWE A12 «, t00=0x000f, t01=0x012c}
0x18ba…18da Head {h00=0x001c, h01=0x0050, text=» LDR A1,A1 -IS IT OKE.? «, t00=0x000f, t01=0x014e}
0x18da…18f0 Head {h00=0x0012, h01=0x0050, text=» RF(Z) CFFEND «, t00=0x000f, t01=0x016e}
0x18f0…1902 Head {h00=0x000e, h01=0x0050, text=» RF GETRC «, t00=0x000f, t01=0x0184}
0x1902…190c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0008}
0x190c…1952 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0010, t01=0x0012}
0x1952…195c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0058}
0x195c…1986 Head {h00=0x0026, h01=0x0050, text=»* THIS ROUTINE IS THE PUTLRN.«, t00=0x0010, t01=0x0062}
0x1986…1990 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x008c}
0x1990…19d8 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0010, t01=0x0096}
0x19d8…19e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00de}
0x19e2…19f6 Head {h00=0x0010, h01=0x0050, text=»PUTLRN EQU *«, t00=0x0010, t01=0x00e8}
0x19f6…1a0a Head {h00=0x0010, h01=0x0050, text=» CF A14,LRN «, t00=0x0010, t01=0x00fc}
0x1a0a…1a1c Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0010, t01=0x0110}
0x1a1c…1a32 Head {h00=0x0012, h01=0x0050, text=» RB(NZ) AFHAND«, t00=0x0010, t01=0x0122}
0x1a32…1a48 Head {h00=0x0012, h01=0x0050, text=» CF A14,A:EVA «, t00=0x0010, t01=0x0138}
0x1a48…1a72 Head {h00=0x0026, h01=0x0050, text=» ST A3,22,A4 -STORE RECORD NUMBER.«, t00=0x0010, t01=0x014e}
0x1a72…1a98 Head {h00=0x0022, h01=0x0050, text=» CF A14,WRITE -WRITE THE LRN. «, t00=0x0010, t01=0x0178}
0x1a98…1aaa Head {h00=0x000e, h01=0x0050, text=» RB AFHAND«, t00=0x0011, t01=0x000e}
0x1aaa…1ab4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0020}
0x1ab4…1af0 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0011, t01=0x002a}
0x1af0…1b14 Head {h00=0x0020, h01=0x0050, text=»* GET THE RECORD LENGTH. «, t00=0x0011, t01=0x0066}
0x1b14…1b50 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x0011, t01=0x008a}
0x1b50…1b5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00c6}
0x1b5a…1b6e Head {h00=0x0010, h01=0x0050, text=»GETRL EQU * «, t00=0x0011, t01=0x00d0}
0x1b6e…1b92 Head {h00=0x0020, h01=0x0050, text=» CF A14,LRN -SOME STANDARDS.«, t00=0x0011, t01=0x00e4}
0x1b92…1ba4 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0011, t01=0x0108}
0x1ba4…1bc2 Head {h00=0x001a, h01=0x0050, text=» RB(NZ) AFHAND -OKE ??«, t00=0x0011, t01=0x011a}
0x1bc2…1bea Head {h00=0x0024, h01=0x0050, text=» LD A4,24,A4 -THE RECORD LENGTH.«, t00=0x0011, t01=0x0138}
0x1bea…1bfc Head {h00=0x000e, h01=0x0050, text=» RB GETAF «, t00=0x0011, t01=0x0160}
0x1bfc…1c0a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x0172}
0x1c0a…1c3c Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0011, t01=0x0180}
0x1c3c…1c62 Head {h00=0x0022, h01=0x0050, text=»* GET THE EXTENSION LENGTH. «, t00=0x0012, t01=0x0022}
0x1c62…1c94 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0012, t01=0x0048}
0x1c94…1c9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x007a}
0x1c9e…1cb2 Head {h00=0x0010, h01=0x0050, text=»GETEL EQU * «, t00=0x0012, t01=0x0084}
0x1cb2…1cc6 Head {h00=0x0010, h01=0x0050, text=» CF A14,LRN «, t00=0x0012, t01=0x0098}
0x1cc6…1ce0 Head {h00=0x0016, h01=0x0050, text=» LDR A1,A1 -OKE ??«, t00=0x0012, t01=0x00ac}
0x1ce0…1cf6 Head {h00=0x0012, h01=0x0050, text=» RB(NZ) AFHAND«, t00=0x0012, t01=0x00c6}
0x1cf6…1d22 Head {h00=0x0028, h01=0x0050, text=» LD A4,14,A4 -THE EXTENSION LENGTH. «, t00=0x0012, t01=0x00dc}
0x1d22…1d34 Head {h00=0x000e, h01=0x0050, text=» RB GETAF «, t00=0x0012, t01=0x0108}
0x1d34…1d3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x011a}
0x1d3e…1d6e Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0012, t01=0x0124}
0x1d6e…1d92 Head {h00=0x0020, h01=0x0050, text=»* GET THE BLOCKINGS FACTOR. «, t00=0x0012, t01=0x0154}
0x1d92…1dc2 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0012, t01=0x0178}
0x1dc2…1dcc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0018}
0x1dcc…1de0 Head {h00=0x0010, h01=0x0050, text=»GETBF EQU * «, t00=0x0013, t01=0x0022}
0x1de0…1e00 Head {h00=0x001c, h01=0x0050, text=» CF A14,LRN -STANDARDS. «, t00=0x0013, t01=0x0036}
0x1e00…1e12 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0013, t01=0x0056}
0x1e12…1e28 Head {h00=0x0012, h01=0x0050, text=» RB(NZ) AFHAND«, t00=0x0013, t01=0x0068}
0x1e28…1e54 Head {h00=0x0028, h01=0x0050, text=» LD A4,26,A4 -THE BLOCKINGS FACTOR. «, t00=0x0013, t01=0x007e}
0x1e54…1e72 Head {h00=0x001a, h01=0x0050, text=» SRL A4,8 -TO 2E BYTE.«, t00=0x0013, t01=0x00aa}
0x1e72…1e84 Head {h00=0x000e, h01=0x0050, text=» RB GETAF «, t00=0x0013, t01=0x00c8}
0x1e84…1e8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00da}
0x1e8e…1ec0 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0013, t01=0x00e4}
0x1ec0…1eec Head {h00=0x0028, h01=0x0050, text=»* GET THE NUMBER OF INDEX FILES.«, t00=0x0013, t01=0x0116}
0x1eec…1f1e Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0013, t01=0x0142}
0x1f1e…1f28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0174}
0x1f28…1f3c Head {h00=0x0010, h01=0x0050, text=»GETNIF EQU *«, t00=0x0013, t01=0x017e}
0x1f3c…1f50 (20, 0, 400) Head {h00=0x0010, h01=0x0050, text=» CF A14,LRN «, t00=0x0014, t01=0x0004}
0x1f50…1f6a Head {h00=0x0016, h01=0x0050, text=» LDR A1,A1 -OKE ??«, t00=0x0014, t01=0x0018}
0x1f6a…1f80 Head {h00=0x0012, h01=0x0050, text=» RB(NZ) AFHAND«, t00=0x0014, t01=0x0032}
0x1f80…1fa2 Head {h00=0x001e, h01=0x0050, text=» LD A4,36,A4 -THE NUMBER. «, t00=0x0014, t01=0x0048}
0x1fa2…1fb4 Head {h00=0x000e, h01=0x0050, text=» SLL A4,8 «, t00=0x0014, t01=0x006a}
0x1fb4…1fd6 Head {h00=0x001e, h01=0x0050, text=» SRL A4,8 -TO THE 2E BYTE.«, t00=0x0014, t01=0x007c}
0x1fd6…1fe8 Head {h00=0x000e, h01=0x0050, text=» RB GETAF «, t00=0x0014, t01=0x009e}
0x1fe8…1ff2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00b0}
0x1ff2…2024 Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0014, t01=0x00ba}
0x2024…2046 Head {h00=0x001e, h01=0x0050, text=»* GET THE KEY ADDRESS.«, t00=0x0014, t01=0x00ec}
0x2046…2078 Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0014, t01=0x010e}
0x2078…2082 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0140}
0x2082…2096 Head {h00=0x0010, h01=0x0050, text=»GETKA EQU * «, t00=0x0014, t01=0x014a}
0x2096…20aa Head {h00=0x0010, h01=0x0050, text=» CF A14,LRN «, t00=0x0014, t01=0x015e}
0x20aa…20c4 Head {h00=0x0016, h01=0x0050, text=» LDR A1,A1 -OKE ??«, t00=0x0014, t01=0x0172}
0x20c4…20da Head {h00=0x0012, h01=0x0050, text=» RB(NZ) AFHAND«, t00=0x0014, t01=0x018c}
0x20da…2100 Head {h00=0x0022, h01=0x0050, text=» LD A4,38,A4 -THE KEY ADDRESS.«, t00=0x0015, t01=0x0012}
0x2100…2112 Head {h00=0x000e, h01=0x0050, text=» RB GETAF «, t00=0x0015, t01=0x0038}
0x2112…2120 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x004a}
0x2120…212a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0058}
0x212a…215c Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0015, t01=0x0062}
0x215c…217a Head {h00=0x001a, h01=0x0050, text=»* COPY FILE TO FILE.«, t00=0x0015, t01=0x0094}
0x217a…21ac Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0015, t01=0x00b2}
0x21ac…21b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00e4}
0x21b6…21c8 Head {h00=0x000e, h01=0x0050, text=»CFF EQU * «, t00=0x0015, t01=0x00ee}
0x21c8…21ec Head {h00=0x0020, h01=0x0050, text=» CF A14,QUEUE -SYSTEM FREE. «, t00=0x0015, t01=0x0100}
0x21ec…2200 Head {h00=0x0010, h01=0x0050, text=» CF A14,INIT«, t00=0x0015, t01=0x0124}
0x2200…2226 Head {h00=0x0022, h01=0x0050, text=» CF A14,ASROUT -ASSIGN FILES. «, t00=0x0015, t01=0x0138}
0x2226…224e Head {h00=0x0024, h01=0x0050, text=» LDKL A1,/41C1 -SPECIAL ASSIGN. «, t00=0x0015, t01=0x015e}
0x224e…2260 Head {h00=0x000e, h01=0x0050, text=» ST A1,FC1«, t00=0x0015, t01=0x0186}
0x2260…2276 Head {h00=0x0012, h01=0x0050, text=» CF A14,ASROUT«, t00=0x0016, t01=0x0008}
0x2276…2298 Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/01C0 -FC1 := C0.«, t00=0x0016, t01=0x001e}
0x2298…22aa Head {h00=0x000e, h01=0x0050, text=» ST A1,FC1«, t00=0x0016, t01=0x0040}
0x22aa…22bc Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0016, t01=0x0052}
0x22bc…22de Head {h00=0x001e, h01=0x0050, text=» ST A2,BLOCK+4 INIT BLOCK.«, t00=0x0016, t01=0x0064}
0x22de…22f0 Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0016, t01=0x0086}
0x22f0…2306 Head {h00=0x0012, h01=0x0050, text=» ST A2,BLOCK+8«, t00=0x0016, t01=0x0098}
0x2306…232c Head {h00=0x0022, h01=0x0050, text=» LD A3,FC1A2 -THE FILE CODES. «, t00=0x0016, t01=0x00ae}
0x232c…2352 Head {h00=0x0022, h01=0x0050, text=» ST A3,BLOCK+6 -IN THE BLOCK. «, t00=0x0016, t01=0x00d4}
0x2352…2368 Head {h00=0x0012, h01=0x0050, text=» CF A14,STORE «, t00=0x0016, t01=0x00fa}
0x2368…2390 Head {h00=0x0024, h01=0x0050, text=» LDKL A12,BLOCK -BLOCK ADDRESS. «, t00=0x0016, t01=0x0110}
0x2390…23b6 Head {h00=0x0022, h01=0x0050, text=» CF A14,COPFIL -COPY ROUTINE. «, t00=0x0016, t01=0x0138}
0x23b6…23ca Head {h00=0x0010, h01=0x0050, text=» LDK A4,/C1 «, t00=0x0016, t01=0x015e}
0x23ca…23ee Head {h00=0x0020, h01=0x0050, text=» CF A14,S:CLS -CLOSE FILES. «, t00=0x0016, t01=0x0172}
0x23ee…2402 Head {h00=0x0010, h01=0x0050, text=» LDK A4,/C0 «, t00=0x0017, t01=0x0008}
0x2402…2418 Head {h00=0x0012, h01=0x0050, text=» CF A14,S:CLS «, t00=0x0017, t01=0x001c}
0x2418…242c Head {h00=0x0010, h01=0x0050, text=»CFFEND EQU *«, t00=0x0017, t01=0x0032}
0x242c…243e Head {h00=0x000e, h01=0x0050, text=» RF COMSEG«, t00=0x0017, t01=0x0046}
0x243e…2448 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0058}
0x2448…245c Head {h00=0x0010, h01=0x0050, text=»GETOUT EQU *«, t00=0x0017, t01=0x0062}
0x245c…2484 Head {h00=0x0024, h01=0x0050, text=» RB AFHAND -BRANCH WAS TO LONG. «, t00=0x0017, t01=0x0076}
0x2484…2492 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x009e}
0x2492…249c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00ac}
0x249c…24a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00b6}
0x24a6…24da Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x0017, t01=0x00c0}
0x24da…24fa Head {h00=0x001c, h01=0x0050, text=»* THE ASSIGN ROUTINE. «, t00=0x0017, t01=0x00f4}
0x24fa…2522 Head {h00=0x0024, h01=0x0050, text=»* THE FILE CODE IS INCREASED. «, t00=0x0017, t01=0x0114}
0x2522…2556 Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x0017, t01=0x013c}
0x2556…2560 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0170}
0x2560…2574 Head {h00=0x0010, h01=0x0050, text=»ASROUT EQU *«, t00=0x0017, t01=0x017a}
0x2574…2598 Head {h00=0x0020, h01=0x0050, text=» CF A14,I:EVA0 -A FILENAME. «, t00=0x0017, t01=0x018e}
0x2598…25ba Head {h00=0x001e, h01=0x0050, text=» LDK A4,8 -BYTES TO MOVE. «, t00=0x0018, t01=0x0022}
0x25ba…25da Head {h00=0x001c, h01=0x0050, text=» LDK A3,6 -FROM BYTE 6. «, t00=0x0018, t01=0x0044}
0x25da…25f0 Head {h00=0x0012, h01=0x0050, text=» CF A14,A:MOVE«, t00=0x0018, t01=0x0064}
0x25f0…2616 Head {h00=0x0022, h01=0x0050, text=» CF A14,I:EVA0 -A VOLUME NAME.«, t00=0x0018, t01=0x007a}
0x2616…2628 Head {h00=0x000e, h01=0x0050, text=» LDK A4,6 «, t00=0x0018, t01=0x00a0}
0x2628…263a Head {h00=0x000e, h01=0x0050, text=» LDK A3,14«, t00=0x0018, t01=0x00b2}
0x263a…2650 Head {h00=0x0012, h01=0x0050, text=» CF A14,A:MOVE«, t00=0x0018, t01=0x00c4}
0x2650…2678 Head {h00=0x0024, h01=0x0050, text=» LDKL A8,ASSBLK -ADDRESS BLOCK. «, t00=0x0018, t01=0x00da}
0x2678…269a Head {h00=0x001e, h01=0x0050, text=» LDK A7,0 -NORMAL ASSIGN. «, t00=0x0018, t01=0x0102}
0x269a…26b8 Head {h00=0x001a, h01=0x0050, text=» LD A1,FC1 FILE CODE. «, t00=0x0018, t01=0x0124}
0x26b8…26d6 Head {h00=0x001a, h01=0x0050, text=» STR A1,A8 -TO BLOCK. «, t00=0x0018, t01=0x0142}
0x26d6…26e6 Head {h00=0x000c, h01=0x0050, text=» IM FC1 «, t00=0x0018, t01=0x0160}
0x26e6…26f2 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0018, t01=0x0170}
0x26f2…2710 Head {h00=0x001a, h01=0x0050, text=» DATA 15 -THE ASSIGN. «, t00=0x0018, t01=0x017c}
0x2710…2720 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0019, t01=0x000a}
0x2720…272a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x001a}
0x272a…2734 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0024}
0x2734…276c Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0019, t01=0x002e}
0x276c…2788 Head {h00=0x0018, h01=0x0050, text=»* CLOSE ROUTINE.«, t00=0x0019, t01=0x0066}
0x2788…27c0 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0019, t01=0x0082}
0x27c0…27ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00ba}
0x27ca…27de Head {h00=0x0010, h01=0x0050, text=»S:CLS EQU * «, t00=0x0019, t01=0x00c4}
0x27de…2802 Head {h00=0x0020, h01=0x0050, text=» ST A1,REG01 -SAVE A1 FIRST.«, t00=0x0019, t01=0x00d8}
0x2802…281a Head {h00=0x0014, h01=0x0050, text=» LDKL A8,ASSBLK «, t00=0x0019, t01=0x00fc}
0x281a…283e Head {h00=0x0020, h01=0x0050, text=» STR A4,A8 -STORE FILE CODE.«, t00=0x0019, t01=0x0114}
0x283e…2852 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/22 «, t00=0x0019, t01=0x0138}
0x2852…285e Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0019, t01=0x014c}
0x285e…287a Head {h00=0x0018, h01=0x0050, text=» DATA 1 -LINKEM : 1.«, t00=0x0019, t01=0x0158}
0x287a…289c Head {h00=0x001e, h01=0x0050, text=» LD A1,REG01 -RESTORE A1. «, t00=0x0019, t01=0x0174}
0x289c…28ac Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001a, t01=0x0008}
0x28ac…28b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0018}
0x28b6…28c4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0022}
0x28c4…28ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0030}
0x28ce…28fe Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x001a, t01=0x003a}
0x28fe…2924 Head {h00=0x0022, h01=0x0050, text=»* G E T R E T U R N C O D E«, t00=0x001a, t01=0x006a}
0x2924…2954 Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x001a, t01=0x0090}
0x2954…295e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00c0}
0x295e…2972 Head {h00=0x0010, h01=0x0050, text=»GETRC EQU * «, t00=0x001a, t01=0x00ca}
0x2972…2988 Head {h00=0x0012, h01=0x0050, text=» LD A2,RETCOD «, t00=0x001a, t01=0x00de}
0x2988…29ae Head {h00=0x0022, h01=0x0050, text=» LDR A1,A2 -RETURN CODE IN A1 «, t00=0x001a, t01=0x00f4}
0x29ae…29d2 Head {h00=0x0020, h01=0x0050, text=» ANKL A1,/028E -I/O ERROR ??«, t00=0x001a, t01=0x011a}
0x29d2…29f6 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) COMSEG -IN A1 FOUT. «, t00=0x001a, t01=0x013e}
0x29f6…2a10 Head {h00=0x0016, h01=0x0050, text=» LDR A1,A2 -WAIT. «, t00=0x001a, t01=0x0162}
0x2a10…2a38 Head {h00=0x0024, h01=0x0050, text=» ANK A1,/20 -FILE NAME UNKNOWN. «, t00=0x001a, t01=0x017c}
0x2a38…2a60 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) COMSEG -IN A1 AL WRONG. «, t00=0x001b, t01=0x0014}
0x2a60…2a72 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x001b, t01=0x003c}
0x2a72…2a98 Head {h00=0x0022, h01=0x0050, text=» ANK A1,1 -DISK NOT OPERABLE. «, t00=0x001b, t01=0x004e}
0x2a98…2aae Head {h00=0x0012, h01=0x0050, text=» RF(NZ) COMSEG«, t00=0x001b, t01=0x0074}
0x2aae…2ad6 Head {h00=0x0024, h01=0x0050, text=» LDR A1,A2 -VOLUME NAME UNKNOWN.«, t00=0x001b, t01=0x008a}
0x2ad6…2ae8 Head {h00=0x000e, h01=0x0050, text=» RF COMSEG«, t00=0x001b, t01=0x00b2}
0x2ae8…2af2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00c4}
0x2af2…2afc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00ce}
0x2afc…2b32 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x001b, t01=0x00d8}
0x2b32…2b4a Head {h00=0x0014, h01=0x0050, text=»* C O M S E G «, t00=0x001b, t01=0x010e}
0x2b4a…2b54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0126}
0x2b54…2b84 Head {h00=0x002c, h01=0x0050, text=»* COMMON EXIT PART FOR ALL FUNCTIONS. «, t00=0x001b, t01=0x0130}
0x2b84…2bba Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x001b, t01=0x0160}
0x2bba…2bc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0008}
0x2bc4…2bce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0012}
0x2bce…2be2 Head {h00=0x0010, h01=0x0050, text=»COMSEG EQU *«, t00=0x001c, t01=0x001c}
0x2be2…2bf4 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x001c, t01=0x0030}
0x2bf4…2c1e Head {h00=0x0026, h01=0x0050, text=» CF A14,RESTOR -RESTORE A11,..A13 «, t00=0x001c, t01=0x0042}
0x2c1e…2c34 Head {h00=0x0012, h01=0x0050, text=» CF A14,I:EVA0«, t00=0x001c, t01=0x006c}
0x2c34…2c46 Head {h00=0x000e, h01=0x0050, text=» STR A4,A9«, t00=0x001c, t01=0x0082}
0x2c46…2c6a Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 -PRESET COND. REG.«, t00=0x001c, t01=0x0094}
0x2c6a…2c8e Head {h00=0x0020, h01=0x0050, text=» LDR A4,A4 -TJEK ON STATUS. «, t00=0x001c, t01=0x00b8}
0x2c8e…2ca2 Head {h00=0x0010, h01=0x0050, text=» RF(Z) CON0 «, t00=0x001c, t01=0x00dc}
0x2ca2…2cbc Head {h00=0x0016, h01=0x0050, text=» LDK A1,2 -ERROR. «, t00=0x001c, t01=0x00f0}
0x2cbc…2cce Head {h00=0x000e, h01=0x0050, text=»CON0 EQU *«, t00=0x001c, t01=0x010a}
0x2cce…2ce4 Head {h00=0x0012, h01=0x0050, text=» CF A14,KONDIT«, t00=0x001c, t01=0x011c}
0x2ce4…2cfc Head {h00=0x0014, h01=0x0050, text=» CM FREE -FREE. «, t00=0x001c, t01=0x0132}
0x2cfc…2d0e Head {h00=0x000e, h01=0x0050, text=» ABL I:RT1«, t00=0x001c, t01=0x014a}
0x2d0e…2d1c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x015c}
0x2d1c…2d26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x016a}
0x2d26…2d56 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x001c, t01=0x0174}
0x2d56…2d7c Head {h00=0x0022, h01=0x0050, text=»* G E T V O L U M E N A M E«, t00=0x001d, t01=0x0014}
0x2d7c…2dac Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x001d, t01=0x003a}
0x2dac…2db6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x006a}
0x2db6…2dca Head {h00=0x0010, h01=0x0050, text=»GETVN EQU * «, t00=0x001d, t01=0x0074}
0x2dca…2de0 Head {h00=0x0012, h01=0x0050, text=» CF A14,QUEUE «, t00=0x001d, t01=0x0088}
0x2de0…2df4 Head {h00=0x0010, h01=0x0050, text=» CF A14,INIT«, t00=0x001d, t01=0x009e}
0x2df4…2e1a Head {h00=0x0022, h01=0x0050, text=» CF A14,STORE -SAVE REGISTERS.«, t00=0x001d, t01=0x00b2}
0x2e1a…2e30 Head {h00=0x0012, h01=0x0050, text=» CF A14,INIT1 «, t00=0x001d, t01=0x00d8}
0x2e30…2e4e Head {h00=0x001a, h01=0x0050, text=» LDK A1,/EF -+1 = F0. «, t00=0x001d, t01=0x00ee}
0x2e4e…2e60 Head {h00=0x000e, h01=0x0050, text=» ST A1,ECB«, t00=0x001d, t01=0x010c}
0x2e60…2e84 Head {h00=0x0020, h01=0x0050, text=» CF A14,INIT2 -INIT BUFFER. «, t00=0x001d, t01=0x011e}
0x2e84…2eac Head {h00=0x0024, h01=0x0050, text=» CF A14,A:EVA -GET DISK NUMBER. «, t00=0x001d, t01=0x0142}
0x2eac…2ebe Head {h00=0x000e, h01=0x0050, text=» LDK A2,2 «, t00=0x001d, t01=0x016a}
0x2ebe…2ee8 Head {h00=0x0026, h01=0x0050, text=» ADS A2,REG12 -UPDATE REGISTER 12.«, t00=0x001d, t01=0x017c}
0x2ee8…2efc Head {h00=0x0010, h01=0x0050, text=» ADS A3,ECB «, t00=0x001e, t01=0x0016}
0x2efc…2f10 Head {h00=0x0010, h01=0x0050, text=» LC A3,ECB+1«, t00=0x001e, t01=0x002a}
0x2f10…2f34 Head {h00=0x0020, h01=0x0050, text=» CF A14,READ -READ SECTOR 1.«, t00=0x001e, t01=0x003e}
0x2f34…2f46 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x001e, t01=0x0062}
0x2f46…2f66 Head {h00=0x001c, h01=0x0050, text=» RB(NZ) GETOUT -ERROR ??«, t00=0x001e, t01=0x0074}
0x2f66…2f92 Head {h00=0x0028, h01=0x0050, text=» CF A14,I:EVA0 -GET FIELD FOR NAME. «, t00=0x001e, t01=0x0094}
0x2f92…2fa4 Head {h00=0x000e, h01=0x0050, text=» LDK A4,6 «, t00=0x001e, t01=0x00c0}
0x2fa4…2fb6 Head {h00=0x000e, h01=0x0050, text=» LDK A3,2 «, t00=0x001e, t01=0x00d2}
0x2fb6…2fc8 Head {h00=0x000e, h01=0x0050, text=» ADR A9,A4«, t00=0x001e, t01=0x00e4}
0x2fc8…2fdc Head {h00=0x0010, h01=0x0050, text=»V:LOOP EQU *«, t00=0x001e, t01=0x00f6}
0x2fdc…300a Head {h00=0x002a, h01=0x0050, text=» LD A2,BUFFER,A4 -FROM RIGHT TO LEFT. «, t00=0x001e, t01=0x010a}
0x300a…301c Head {h00=0x000e, h01=0x0050, text=» SUR A9,A3«, t00=0x001e, t01=0x0138}
0x301c…302e Head {h00=0x000e, h01=0x0050, text=» STR A2,A9«, t00=0x001e, t01=0x014a}
0x302e…3040 Head {h00=0x000e, h01=0x0050, text=» SUR A4,A3«, t00=0x001e, t01=0x015c}
0x3040…3056 Head {h00=0x0012, h01=0x0050, text=» RB(P) V:LOOP «, t00=0x001e, t01=0x016e}
0x3056…3068 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x001e, t01=0x0184}
0x3068…3082 Head {h00=0x0016, h01=0x0050, text=» RB GETOUT -READY.«, t00=0x001f, t01=0x0008}
0x3082…308c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0022}
0x308c…3096 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x002c}
0x3096…30a4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x0036}
0x30a4…30ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0044}
0x30ae…30f0 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x001f, t01=0x004e}
0x30f0…30fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0090}
0x30fa…3128 Head {h00=0x002a, h01=0x0050, text=»* STANDARD ROUTINES FOR THE GETLRN.«, t00=0x001f, t01=0x009a}
0x3128…3132 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00c8}
0x3132…313c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00d2}
0x313c…314e Head {h00=0x000e, h01=0x0050, text=»LRN EQU * «, t00=0x001f, t01=0x00dc}
0x314e…3182 Head {h00=0x0030, h01=0x0050, text=» CF A14,STANDRD -GET FILENAME + VOLUME NAME «, t00=0x001f, t01=0x00ee}
0x3182…3198 Head {h00=0x0012, h01=0x0050, text=» CF A14,STORE «, t00=0x001f, t01=0x0122}
0x3198…31ca Head {h00=0x002e, h01=0x0050, text=» CF A14,INIT1 -FC--> E9, REC LENGTH--> 410«, t00=0x001f, t01=0x0138}
0x31ca…31f6 Head {h00=0x0028, h01=0x0050, text=»VOLG CF A14,INIT2 -BUFADRES + SECNR.«, t00=0x001f, t01=0x016a}
0x31f6…321a Head {h00=0x0020, h01=0x0050, text=» CF A14,GETVOL -GET VOLUME. «, t00=0x0020, t01=0x0008}
0x321a…322c Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0020, t01=0x002c}
0x322c…3250 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) ENDLRN -NOT OPERABLE«, t00=0x0020, t01=0x003e}
0x3250…3278 Head {h00=0x0024, h01=0x0050, text=» CF A14,NXTECB -ADJUST THE ECB. «, t00=0x0020, t01=0x0062}
0x3278…329e Head {h00=0x0022, h01=0x0050, text=» CF A14,VTOC -SEARCH THE VTOC.«, t00=0x0020, t01=0x008a}
0x329e…32b0 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0020, t01=0x00b0}
0x32b0…32d2 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ENDLRN -I/O ERROR «, t00=0x0020, t01=0x00c2}
0x32d2…32f8 Head {h00=0x0022, h01=0x0050, text=» LDR A8,A8 -FILE NOT IN VTOC. «, t00=0x0020, t01=0x00e4}
0x32f8…330c Head {h00=0x0010, h01=0x0050, text=» RB(Z) VOLG «, t00=0x0020, t01=0x010a}
0x330c…3320 Head {h00=0x0010, h01=0x0050, text=»ENDLRN EQU *«, t00=0x0020, t01=0x011e}
0x3320…3330 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0020, t01=0x0132}
0x3330…333a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0142}
0x333a…3344 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x014c}
0x3344…3358 Head {h00=0x0010, h01=0x0050, text=»INIT1 EQU * «, t00=0x0020, t01=0x0156}
0x3358…336a Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0020, t01=0x016a}
0x336a…3392 Head {h00=0x0024, h01=0x0050, text=» ST A1,RETCOD -INIT RETURN CODE «, t00=0x0020, t01=0x017c}
0x3392…33a6 Head {h00=0x0010, h01=0x0050, text=» LDK A1,/E8 «, t00=0x0021, t01=0x0014}
0x33a6…33b8 Head {h00=0x000e, h01=0x0050, text=» ST A1,ECB«, t00=0x0021, t01=0x0028}
0x33b8…33ce Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/19A «, t00=0x0021, t01=0x003a}
0x33ce…33f2 Head {h00=0x0020, h01=0x0050, text=» ST A2,ECB+4 -RECORD LENGTH «, t00=0x0021, t01=0x0050}
0x33f2…3402 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0021, t01=0x0074}
0x3402…340c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0084}
0x340c…3420 Head {h00=0x0010, h01=0x0050, text=»INIT2 EQU * «, t00=0x0021, t01=0x008e}
0x3420…3432 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0021, t01=0x00a2}
0x3432…3456 Head {h00=0x0020, h01=0x0050, text=» ST A2,SECNR -SECTOR NUMBER.«, t00=0x0021, t01=0x00b4}
0x3456…346e Head {h00=0x0014, h01=0x0050, text=» LDKL A2,BUFFER «, t00=0x0021, t01=0x00d8}
0x346e…3490 Head {h00=0x001e, h01=0x0050, text=» ST A2,ECB+2 -BUFFER ADRES«, t00=0x0021, t01=0x00f0}
0x3490…34a2 Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x0021, t01=0x0112}
0x34a2…34b2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0021, t01=0x0124}
0x34b2…34c0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x0134}
0x34c0…34ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0142}
0x34ca…34fa Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x0021, t01=0x014c}
0x34fa…351a Head {h00=0x001c, h01=0x0050, text=»* GET THE VOLUME NAME.«, t00=0x0021, t01=0x017c}
0x351a…354a Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x0022, t01=0x000c}
0x354a…3554 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x003c}
0x3554…355e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0046}
0x355e…3572 Head {h00=0x0010, h01=0x0050, text=»GETVOL EQU *«, t00=0x0022, t01=0x0050}
0x3572…3596 Head {h00=0x0020, h01=0x0050, text=» ADS A1,ECB -STORE FILECODE «, t00=0x0022, t01=0x0064}
0x3596…35aa Head {h00=0x0010, h01=0x0050, text=» LC A1,ECB+1«, t00=0x0022, t01=0x0088}
0x35aa…35ca Head {h00=0x001c, h01=0x0050, text=» SUK A1,/F4 -IS IT F4 ? «, t00=0x0022, t01=0x009c}
0x35ca…35e2 Head {h00=0x0014, h01=0x0050, text=» RF(Z) VOLABSEN «, t00=0x0022, t01=0x00bc}
0x35e2…35f6 Head {h00=0x0010, h01=0x0050, text=» CF A14,READ«, t00=0x0022, t01=0x00d4}
0x35f6…3608 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0022, t01=0x00e8}
0x3608…3620 Head {h00=0x0014, h01=0x0050, text=» RF(NZ) NEXTVOL «, t00=0x0022, t01=0x00fa}
0x3620…364a Head {h00=0x0026, h01=0x0050, text=» CF A14,CHKVLN -CHECK VOLUME NAME.«, t00=0x0022, t01=0x0112}
0x364a…365c Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0022, t01=0x013c}
0x365c…367e Head {h00=0x001e, h01=0x0050, text=» RF(NZ) NXVOL -NEXT VOLUME«, t00=0x0022, t01=0x014e}
0x367e…368e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0022, t01=0x0170}
0x368e…36a2 Head {h00=0x0010, h01=0x0050, text=»NXVOL EQU * «, t00=0x0022, t01=0x0180}
0x36a2…36cc (35, 0, 400) Head {h00=0x0026, h01=0x0050, text=» LDK A1,/40 -VOLUME NAME UNKNOWN. «, t00=0x0023, t01=0x0004}
0x36cc…36e2 Head {h00=0x0012, h01=0x0050, text=» ORS A1,RETCOD«, t00=0x0023, t01=0x002e}
0x36e2…370a Head {h00=0x0024, h01=0x0050, text=»NEXTVOL LDK A1,1 -FILECODE 1 UP.«, t00=0x0023, t01=0x0044}
0x370a…3728 Head {h00=0x001a, h01=0x0050, text=» RB GETVOL -ONES MORE.«, t00=0x0023, t01=0x006c}
0x3728…3742 Head {h00=0x0016, h01=0x0050, text=»VOLABSEN LDK A1,2 «, t00=0x0023, t01=0x008a}
0x3742…3752 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0023, t01=0x00a4}
0x3752…375c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00b4}
0x375c…3766 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00be}
0x3766…3770 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00c8}
0x3770…377e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x00d2}
0x377e…3788 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00e0}
0x3788…3792 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00ea}
0x3792…37d2 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0023, t01=0x00f4}
0x37d2…37f8 Head {h00=0x0022, h01=0x0050, text=»* I / O R O U T I N E S . «, t00=0x0023, t01=0x0134}
0x37f8…3838 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0023, t01=0x015a}
0x3838…3842 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x000a}
0x3842…384c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0014}
0x384c…385e Head {h00=0x000e, h01=0x0050, text=»READ EQU *«, t00=0x0024, t01=0x001e}
0x385e…3882 Head {h00=0x0020, h01=0x0050, text=» LDK A7,/91 -PHYSICAL READ. «, t00=0x0024, t01=0x0030}
0x3882…3894 Head {h00=0x000e, h01=0x0050, text=» RF IODISC«, t00=0x0024, t01=0x0054}
0x3894…389e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0066}
0x389e…38a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0070}
0x38a8…38bc Head {h00=0x0010, h01=0x0050, text=»WRITE EQU * «, t00=0x0024, t01=0x007a}
0x38bc…38e0 Head {h00=0x0020, h01=0x0050, text=» LDK A7,/95 -PHYSICAL WRITE.«, t00=0x0024, t01=0x008e}
0x38e0…38f2 Head {h00=0x000e, h01=0x0050, text=» RF IODISC«, t00=0x0024, t01=0x00b2}
0x38f2…38fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00c4}
0x38fc…3906 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00ce}
0x3906…3910 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00d8}
0x3910…393a Head {h00=0x0026, h01=0x0050, text=»* CHECK THE RETURN CODE.«, t00=0x0024, t01=0x00e2}
0x393a…3944 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x010c}
0x3944…3958 Head {h00=0x0010, h01=0x0050, text=»IODISC EQU *«, t00=0x0024, t01=0x0116}
0x3958…397c Head {h00=0x0020, h01=0x0050, text=» LDK A2,1 -INDICATION RETRY.«, t00=0x0024, t01=0x012a}
0x397c…3990 Head {h00=0x0010, h01=0x0050, text=» LDKL A8,ECB«, t00=0x0024, t01=0x014e}
0x3990…39a2 Head {h00=0x000e, h01=0x0050, text=»RETRY LKM «, t00=0x0024, t01=0x0162}
0x39a2…39b2 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0024, t01=0x0174}
0x39b2…39d4 Head {h00=0x001e, h01=0x0050, text=» LD A1,8,A8 -RETURN CODE. «, t00=0x0024, t01=0x0184}
0x39d4…39ea Head {h00=0x0012, h01=0x0050, text=» RF(Z) EOREAD «, t00=0x0025, t01=0x0016}
0x39ea…3a06 Head {h00=0x0018, h01=0x0050, text=» SUK A2,1 -RETRY ?? «, t00=0x0025, t01=0x002c}
0x3a06…3a1a Head {h00=0x0010, h01=0x0050, text=» RB(Z) RETRY«, t00=0x0025, t01=0x0048}
0x3a1a…3a4a Head {h00=0x002c, h01=0x0050, text=» ORS A1,RETCOD -STORE TOTAL RETURN CODE «, t00=0x0025, t01=0x005c}
0x3a4a…3a5e Head {h00=0x0010, h01=0x0050, text=»EOREAD EQU *«, t00=0x0025, t01=0x008c}
0x3a5e…3a6e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0025, t01=0x00a0}
0x3a6e…3a78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00b0}
0x3a78…3a82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00ba}
0x3a82…3ac8 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0025, t01=0x00c4}
0x3ac8…3af2 Head {h00=0x0026, h01=0x0050, text=»* CHECK CONDITION REGISTER. «, t00=0x0025, t01=0x010a}
0x3af2…3b38 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0025, t01=0x0134}
0x3b38…3b42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x017a}
0x3b42…3b56 Head {h00=0x0010, h01=0x0050, text=»KONDIT EQU *«, t00=0x0025, t01=0x0184}
0x3b56…3b6a Head {h00=0x0010, h01=0x0050, text=» LD A2,2,A13«, t00=0x0026, t01=0x0008}
0x3b6a…3b7e Head {h00=0x0010, h01=0x0050, text=» SC A1,-2,A2«, t00=0x0026, t01=0x001c}
0x3b7e…3b8e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0026, t01=0x0030}
0x3b8e…3b98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0040}
0x3b98…3ba2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x004a}
0x3ba2…3bac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0054}
0x3bac…3bc0 Head {h00=0x0010, h01=0x0050, text=»A:EVA EQU * «, t00=0x0026, t01=0x005e}
0x3bc0…3bd6 Head {h00=0x0012, h01=0x0050, text=» CF A14,I:EVA0«, t00=0x0026, t01=0x0072}
0x3bd6…3bea Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A9 «, t00=0x0026, t01=0x0088}
0x3bea…3bfa Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0026, t01=0x009c}
0x3bfa…3c04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00ac}
0x3c04…3c12 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x00b6}
0x3c12…3c1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00c4}
0x3c1c…3c26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00ce}
0x3c26…3c58 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0026, t01=0x00d8}
0x3c58…3c78 Head {h00=0x001c, h01=0x0050, text=»* CHECK VOLUME NAME. «, t00=0x0026, t01=0x010a}
0x3c78…3caa Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0026, t01=0x012a}
0x3caa…3cb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x015c}
0x3cb4…3cc8 Head {h00=0x0010, h01=0x0050, text=»CHKVLN EQU *«, t00=0x0026, t01=0x0166}
0x3cc8…3cea Head {h00=0x001e, h01=0x0050, text=» LD A2,ECB+2 -BUFFER ADRS.«, t00=0x0026, t01=0x017a}
0x3cea…3d10 Head {h00=0x0022, h01=0x0050, text=» ADK A2,2 -POINTER IN BUFFER. «, t00=0x0027, t01=0x000c}
0x3d10…3d36 Head {h00=0x0022, h01=0x0050, text=» ST A2,C:STOR -ROUTINE COMPARE«, t00=0x0027, t01=0x0032}
0x3d36…3d60 Head {h00=0x0026, h01=0x0050, text=» LDK A3,1 -PRESET NUMBER OF CHECKS«, t00=0x0027, t01=0x0058}
0x3d60…3d8c Head {h00=0x0028, h01=0x0050, text=» LDKL A4,BLOCK+16 -BASIC VOLUME NAME«, t00=0x0027, t01=0x0082}
0x3d8c…3da0 Head {h00=0x0010, h01=0x0050, text=»LABEL EQU * «, t00=0x0027, t01=0x00ae}
0x3da0…3db2 Head {h00=0x000e, h01=0x0050, text=» LDK A1,6 «, t00=0x0027, t01=0x00c2}
0x3db2…3dd8 Head {h00=0x0022, h01=0x0050, text=» CF A14,COMPAR -CHECK THE NAME«, t00=0x0027, t01=0x00d4}
0x3dd8…3dea Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0027, t01=0x00fa}
0x3dea…3dfe Head {h00=0x0010, h01=0x0050, text=» RF(Z) EINDE«, t00=0x0027, t01=0x010c}
0x3dfe…3e1a Head {h00=0x0018, h01=0x0050, text=» ADK A3,1 -NEXT NAME«, t00=0x0027, t01=0x0120}
0x3e1a…3e40 Head {h00=0x0022, h01=0x0050, text=» CWR A6,A3 -ALL VOLUMES HAD ??«, t00=0x0027, t01=0x013c}
0x3e40…3e54 Head {h00=0x0010, h01=0x0050, text=» RF(N) EINDE«, t00=0x0027, t01=0x0162}
0x3e54…3e76 Head {h00=0x001e, h01=0x0050, text=» ADK A4,6 -ADJUST POINTER.«, t00=0x0027, t01=0x0176}
0x3e76…3e88 Head {h00=0x000e, h01=0x0050, text=» RB LABEL «, t00=0x0028, t01=0x0008}
0x3e88…3e9e Head {h00=0x0012, h01=0x0050, text=»EINDE RTN A14 «, t00=0x0028, t01=0x001a}
0x3e9e…3ea8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0030}
0x3ea8…3eb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x003a}
0x3eb2…3ec6 Head {h00=0x0010, h01=0x0050, text=»COMPAR EQU *«, t00=0x0028, t01=0x0044}
0x3ec6…3ed8 Head {h00=0x000e, h01=0x0050, text=» LDK A5,0 «, t00=0x0028, t01=0x0058}
0x3ed8…3f02 Head {h00=0x0026, h01=0x0050, text=» ADR A4,A1 -THE CORRECT POINTER ? «, t00=0x0028, t01=0x006a}
0x3f02…3f1a Head {h00=0x0014, h01=0x0050, text=»C:LOOP SUK A1,1 «, t00=0x0028, t01=0x0094}
0x3f1a…3f2c Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0028, t01=0x00ac}
0x3f2c…3f4c Head {h00=0x001c, h01=0x0050, text=» LCR A5,A4 -CHAR IN A5. «, t00=0x0028, t01=0x00be}
0x3f4c…3f6e Head {h00=0x001e, h01=0x0050, text=» CC A5,0,A1 -COMPARE CHAR.«, t00=0x0028, t01=0x00de}
0x3f6e…3f96 Head {h00=0x0024, h01=0x0050, text=»C:STOR EQU *-2 -SAVE ADRES ITEM «, t00=0x0028, t01=0x0100}
0x3f96…3fb8 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) NOTSAME -NOT EQUAL«, t00=0x0028, t01=0x0128}
0x3fb8…3fca Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0028, t01=0x014a}
0x3fca…3fe0 Head {h00=0x0012, h01=0x0050, text=» RB(NZ) C:LOOP«, t00=0x0028, t01=0x015c}
0x3fe0…3ff0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0028, t01=0x0172}
0x3ff0…4006 Head {h00=0x0012, h01=0x0050, text=»NOTSAME EQU * «, t00=0x0028, t01=0x0182}
0x4006…402a Head {h00=0x0020, h01=0x0050, text=» SUR A4,A1 -GET POINTER BACK«, t00=0x0029, t01=0x0008}
0x402a…403c Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0029, t01=0x002c}
0x403c…404c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0029, t01=0x003e}
0x404c…4056 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x004e}
0x4056…4064 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x0058}
0x4064…406e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0066}
0x406e…4098 Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0029, t01=0x0070}
0x4098…40b2 Head {h00=0x0016, h01=0x0050, text=»* GET NEXT ECB. «, t00=0x0029, t01=0x009a}
0x40b2…40dc Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0029, t01=0x00b4}
0x40dc…40e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00de}
0x40e6…40f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00e8}
0x40f0…4104 Head {h00=0x0010, h01=0x0050, text=»NXTECB EQU *«, t00=0x0029, t01=0x00f2}
0x4104…411c Head {h00=0x0014, h01=0x0050, text=» LDKL A2,BUFFE2 «, t00=0x0029, t01=0x0106}
0x411c…4146 Head {h00=0x0026, h01=0x0050, text=» ST A2,ECB+2 -SAVE BUFFER2 ADRES. «, t00=0x0029, t01=0x011e}
0x4146…4170 Head {h00=0x0026, h01=0x0050, text=» LD A6,BUFFER+12 -FREE SPACE TABLE«, t00=0x0029, t01=0x0148}
0x4170…4182 Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x0029, t01=0x0172}
0x4182…41ac Head {h00=0x0026, h01=0x0050, text=» LD A3,BUFFER+8 -GET VTOC SECTORS.«, t00=0x0029, t01=0x0184}
0x41ac…41d2 Head {h00=0x0022, h01=0x0050, text=» ADR A3,A6 -LAST VTOC SECTOR. «, t00=0x002a, t01=0x001e}
0x41d2…41e2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002a, t01=0x0044}
0x41e2…41ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0054}
0x41ec…41f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x005e}
0x41f6…4200 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0068}
0x4200…4236 Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x002a, t01=0x0072}
0x4236…4262 Head {h00=0x0028, h01=0x0050, text=»* SEARCH FILENAME IN THE -VTOC-. «, t00=0x002a, t01=0x00a8}
0x4262…4298 Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x002a, t01=0x00d4}
0x4298…42a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x010a}
0x42a2…42ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0114}
0x42ac…42c0 Head {h00=0x0010, h01=0x0050, text=»SEARCH EQU *«, t00=0x002a, t01=0x011e}
0x42c0…42ea Head {h00=0x0026, h01=0x0050, text=» LDKL A4,BLOCK+8 -ADRES FILE NAME.«, t00=0x002a, t01=0x0132}
0x42ea…4318 Head {h00=0x002a, h01=0x0050, text=» ST A4,C:STOR STORE IN ROUTINE COMPAR «, t00=0x002a, t01=0x015c}
0x4318…4346 Head {h00=0x002a, h01=0x0050, text=» LDKL A4,BUFFE2+2 -BEGIN VTOC RECORD. «, t00=0x002a, t01=0x018a}
0x4346…435e Head {h00=0x0014, h01=0x0050, text=»LABEL2 LDK A1,8 «, t00=0x002b, t01=0x0028}
0x435e…4386 Head {h00=0x0024, h01=0x0050, text=» CF A14,COMPAR -CHECK FILENAMES «, t00=0x002b, t01=0x0040}
0x4386…4398 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x002b, t01=0x0068}
0x4398…43b4 Head {h00=0x0018, h01=0x0050, text=» RF(Z) OKE -SAME ?? «, t00=0x002b, t01=0x007a}
0x43b4…43da Head {h00=0x0022, h01=0x0050, text=» ADK A4,42 -NEXT VTOC RECORD. «, t00=0x002b, t01=0x0096}
0x43da…4404 Head {h00=0x0026, h01=0x0050, text=» CWK A4,BUFFE2+420 -END OF SECTOR.«, t00=0x002b, t01=0x00bc}
0x4404…4428 Head {h00=0x0020, h01=0x0050, text=» RB(2) LABEL2 -NO GET BACK. «, t00=0x002b, t01=0x00e6}
0x4428…443c Head {h00=0x0010, h01=0x0050, text=»OKE RTN A14 «, t00=0x002b, t01=0x010a}
0x443c…4446 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x011e}
0x4446…4454 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x0128}
0x4454…445e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0136}
0x445e…4468 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0140}
0x4468…4494 Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x002b, t01=0x014a}
0x4494…44b8 Head {h00=0x0020, h01=0x0050, text=»* READ SECTOR OF THE VTOC.«, t00=0x002b, t01=0x0176}
0x44b8…44e4 Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x002c, t01=0x000a}
0x44e4…44ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0036}
0x44ee…44f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0040}
0x44f8…450a Head {h00=0x000e, h01=0x0050, text=»VTOC EQU *«, t00=0x002c, t01=0x004a}
0x450a…4534 Head {h00=0x0026, h01=0x0050, text=» ST A6,SECNR -STORE SECTOR NUMBER «, t00=0x002c, t01=0x005c}
0x4534…4556 Head {h00=0x001e, h01=0x0050, text=» CF A14,READ -READ SECTOR «, t00=0x002c, t01=0x0086}
0x4556…4568 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x002c, t01=0x00a8}
0x4568…4588 Head {h00=0x001c, h01=0x0050, text=» RF(NZ) ERRREAD -ERROR ?«, t00=0x002c, t01=0x00ba}
0x4588…45b2 Head {h00=0x0026, h01=0x0050, text=» CF A14,SEARCH -SEARCH FILE NAME. «, t00=0x002c, t01=0x00da}
0x45b2…45c4 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x002c, t01=0x0104}
0x45c4…45e2 Head {h00=0x001a, h01=0x0050, text=» RF(Z) FOUND -FOUND ??«, t00=0x002c, t01=0x0116}
0x45e2…4600 Head {h00=0x001a, h01=0x0050, text=» ADK A6,1 -NO NEXT ONE«, t00=0x002c, t01=0x0134}
0x4600…4624 Head {h00=0x0020, h01=0x0050, text=» CWR A3,A6 -END OF SECTOR ? «, t00=0x002c, t01=0x0152}
0x4624…464e Head {h00=0x0026, h01=0x0050, text=» RB(NZ) VTOC -NO NEXT VTOC SECTOR.«, t00=0x002c, t01=0x0176}
0x464e…4674 Head {h00=0x0022, h01=0x0050, text=» LDK A1,/20 -FILENAME UNKNOWN «, t00=0x002d, t01=0x0010}
0x4674…469e Head {h00=0x0026, h01=0x0050, text=» ORS A1,RETCOD -STORE RETURN CODE.«, t00=0x002d, t01=0x0036}
0x469e…46b0 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x002d, t01=0x0060}
0x46b0…46d0 Head {h00=0x001c, h01=0x0050, text=» LDKL A8,0 -NOT PRESENT.«, t00=0x002d, t01=0x0072}
0x46d0…46e8 Head {h00=0x0014, h01=0x0050, text=»ERRREAD RTN A14 «, t00=0x002d, t01=0x0092}
0x46e8…46f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00aa}
0x46f2…46fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00b4}
0x46fc…4710 Head {h00=0x0010, h01=0x0050, text=»FOUND EQU * «, t00=0x002d, t01=0x00be}
0x4710…4722 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x002d, t01=0x00d2}
0x4722…4732 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002d, t01=0x00e4}
0x4732…473c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00f4}
0x473c…4746 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00fe}
0x4746…4754 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x0108}
0x4754…475e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0116}
0x475e…4768 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0120}
0x4768…4796 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x002d, t01=0x012a}
0x4796…47b8 Head {h00=0x001e, h01=0x0050, text=»* STANDARD SUB ROUTINE. «, t00=0x002d, t01=0x0158}
0x47b8…47e6 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x002d, t01=0x017a}
0x47e6…47f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0018}
0x47f0…47fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0022}
0x47fa…4810 Head {h00=0x0012, h01=0x0050, text=»STANDRD EQU * «, t00=0x002e, t01=0x002c}
0x4810…4826 Head {h00=0x0012, h01=0x0050, text=» CF A14,QUEUE «, t00=0x002e, t01=0x0042}
0x4826…483a Head {h00=0x0010, h01=0x0050, text=» CF A14,INIT«, t00=0x002e, t01=0x0058}
0x483a…4850 Head {h00=0x0012, h01=0x0050, text=» CF A14,FILNAM«, t00=0x002e, t01=0x006c}
0x4850…4866 Head {h00=0x0012, h01=0x0050, text=» CF A14,A:PPC «, t00=0x002e, t01=0x0082}
0x4866…4888 Head {h00=0x001e, h01=0x0050, text=» LDR A7,A3 -SAVE REGISTER.«, t00=0x002e, t01=0x0098}
0x4888…489a Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x002e, t01=0x00ba}
0x489a…48ae Head {h00=0x0010, h01=0x0050, text=»ST:01 EQU * «, t00=0x002e, t01=0x00cc}
0x48ae…48c4 Head {h00=0x0012, h01=0x0050, text=» CF A14,VOLNAM«, t00=0x002e, t01=0x00e0}
0x48c4…48d6 Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x002e, t01=0x00f6}
0x48d6…48e8 Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x002e, t01=0x0108}
0x48e8…48fe Head {h00=0x0012, h01=0x0050, text=» RB(NZ) ST:01 «, t00=0x002e, t01=0x011a}
0x48fe…4914 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/5353«, t00=0x002e, t01=0x0130}
0x4914…4942 Head {h00=0x002a, h01=0x0050, text=» SC A1,BLOCK+6 -STORE IN PARAM BLOCK. «, t00=0x002e, t01=0x0146}
0x4942…4952 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002e, t01=0x0174}
0x4952…495c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0184}
0x495c…4966 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x018e}
0x4966…4970 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0008}
0x4970…499e Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x002f, t01=0x0012}
0x499e…49be Head {h00=0x001c, h01=0x0050, text=»* SUB ROUTINE : QUEUE.«, t00=0x002f, t01=0x0040}
0x49be…49c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0060}
0x49c8…49f6 Head {h00=0x002a, h01=0x0050, text=»* THIS IS TO SHEDULE THE TASK UNTILL«, t00=0x002f, t01=0x006a}
0x49f6…4a18 Head {h00=0x001e, h01=0x0050, text=»* THE ENTRY IS OMITTED. «, t00=0x002f, t01=0x0098}
0x4a18…4a48 Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x002f, t01=0x00ba}
0x4a48…4a52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00ea}
0x4a52…4a5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00f4}
0x4a5c…4a70 Head {h00=0x0010, h01=0x0050, text=»QUEUE EQU * «, t00=0x002f, t01=0x00fe}
0x4a70…4a92 Head {h00=0x001e, h01=0x0050, text=» LD A1,FREE -IS OMITTED ??«, t00=0x002f, t01=0x0112}
0x4a92…4ab6 Head {h00=0x0020, h01=0x0050, text=» RF(Z) Q:RTN -OKAY IF ZERO. «, t00=0x002f, t01=0x0134}
0x4ab6…4ac2 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x002f, t01=0x0158}
0x4ac2…4ad2 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002f, t01=0x0164}
0x4ad2…4ae4 Head {h00=0x000e, h01=0x0050, text=» RB QUEUE «, t00=0x002f, t01=0x0174}
0x4ae4…4af8 Head {h00=0x0010, h01=0x0050, text=»Q:RTN EQU * «, t00=0x002f, t01=0x0186}
0x4af8…4b18 Head {h00=0x001c, h01=0x0050, text=» IM FREE -INDICATE USED.«, t00=0x0030, t01=0x000a}
0x4b18…4b28 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0030, t01=0x002a}
0x4b28…4b32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x003a}
0x4b32…4b3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0044}
0x4b3c…4b4a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x004e}
0x4b4a…4b54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x005c}
0x4b54…4b5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0066}
0x4b5e…4b90 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0030, t01=0x0070}
0x4b90…4bbc Head {h00=0x0028, h01=0x0050, text=»* THIS ROUTINE IS TO COPY THE USER «, t00=0x0030, t01=0x00a2}
0x4bbc…4be8 Head {h00=0x0028, h01=0x0050, text=»* FILENAME TO THE DISCRIPTOR BLOCK.«, t00=0x0030, t01=0x00ce}
0x4be8…4c1a Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0030, t01=0x00fa}
0x4c1a…4c24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x012c}
0x4c24…4c2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0136}
0x4c2e…4c42 Head {h00=0x0010, h01=0x0050, text=»FILNAM EQU *«, t00=0x0030, t01=0x0140}
0x4c42…4c58 Head {h00=0x0012, h01=0x0050, text=» CF A14,I:EVA0«, t00=0x0030, t01=0x0154}
0x4c58…4c7a Head {h00=0x001e, h01=0x0050, text=» LDK A4,8 -BYTES TO MOVE. «, t00=0x0030, t01=0x016a}
0x4c7a…4ca2 Head {h00=0x0024, h01=0x0050, text=» LDK A3,8 -FROM BYTE 8 IN BLOCK.«, t00=0x0030, t01=0x018c}
0x4ca2…4cb8 Head {h00=0x0012, h01=0x0050, text=» CF A14,A:MOVE«, t00=0x0031, t01=0x0024}
0x4cb8…4cc8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0031, t01=0x003a}
0x4cc8…4cd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x004a}
0x4cd2…4cdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0054}
0x4cdc…4d0e Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0031, t01=0x005e}
0x4d0e…4d3c Head {h00=0x002a, h01=0x0050, text=»* THIS ROUTINE IS TO MOVE THE VOLUME «, t00=0x0031, t01=0x0090}
0x4d3c…4d64 Head {h00=0x0024, h01=0x0050, text=»* NAME TO THE DISCRIPTOR BLOCK.«, t00=0x0031, t01=0x00be}
0x4d64…4d6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00e6}
0x4d6e…4da8 Head {h00=0x0036, h01=0x0050, text=»* REG. A7 CONTAINS THE INDEX OF THE VOLUME NAME. «, t00=0x0031, t01=0x00f0}
0x4da8…4dda Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0031, t01=0x012a}
0x4dda…4de4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x015c}
0x4de4…4dee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0166}
0x4dee…4e02 Head {h00=0x0010, h01=0x0050, text=»VOLNAM EQU *«, t00=0x0031, t01=0x0170}
0x4e02…4e18 Head {h00=0x0012, h01=0x0050, text=» CF A14,I:EVA0«, t00=0x0031, t01=0x0184}
0x4e18…4e36 Head {h00=0x001a, h01=0x0050, text=» LDR A1,A6 -GET INDEX.«, t00=0x0032, t01=0x000a}
0x4e36…4e52 Head {h00=0x0018, h01=0x0050, text=» SLL A1,1 -MUL BY 2.«, t00=0x0032, t01=0x0028}
0x4e52…4e70 Head {h00=0x001a, h01=0x0050, text=» ADR A1,A6 -ADD VALUE.«, t00=0x0032, t01=0x0044}
0x4e70…4e94 Head {h00=0x0020, h01=0x0050, text=» SLL A1,1 -MUL BY 2 --> 6 X.«, t00=0x0032, t01=0x0062}
0x4e94…4eb6 Head {h00=0x001e, h01=0x0050, text=» LDK A3,16 -VOLUME ENTRY. «, t00=0x0032, t01=0x0086}
0x4eb6…4ed4 Head {h00=0x001a, h01=0x0050, text=» ADR A3,A1 -ADD INDEX.«, t00=0x0032, t01=0x00a8}
0x4ed4…4eee Head {h00=0x0016, h01=0x0050, text=» LDK A4,6 -LENGTH «, t00=0x0032, t01=0x00c6}
0x4eee…4f12 Head {h00=0x0020, h01=0x0050, text=» CF A14,A:MOVE -MOVE VOLUME «, t00=0x0032, t01=0x00e0}
0x4f12…4f22 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0032, t01=0x0104}
0x4f22…4f2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0114}
0x4f2c…4f36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x011e}
0x4f36…4f70 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0032, t01=0x0128}
0x4f70…4fa4 Head {h00=0x0030, h01=0x0050, text=»* ROUTINE TO GET A CONSTANT VALUE FROM THE«, t00=0x0032, t01=0x0162}
0x4fa4…4fd4 Head {h00=0x002c, h01=0x0050, text=»* USER DATA DIVISION AND TO UPDATE THE«, t00=0x0033, t01=0x0008}
0x4fd4…4ff0 Head {h00=0x0018, h01=0x0050, text=»* PROGRAM POINTER.«, t00=0x0033, t01=0x0038}
0x4ff0…502a Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0033, t01=0x0054}
0x502a…5034 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x008e}
0x5034…503e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0098}
0x503e…5052 Head {h00=0x0010, h01=0x0050, text=»A:PPC EQU * «, t00=0x0033, t01=0x00a2}
0x5052…5064 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0033, t01=0x00b6}
0x5064…5078 Head {h00=0x0010, h01=0x0050, text=» LCR A3,A12 «, t00=0x0033, t01=0x00c8}
0x5078…508c Head {h00=0x0010, h01=0x0050, text=» ADKL A12,1 «, t00=0x0033, t01=0x00dc}
0x508c…509c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0033, t01=0x00f0}
0x509c…50aa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x0100}
0x50aa…50b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x010e}
0x50b4…50be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0118}
0x50be…50fa Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0033, t01=0x0122}
0x50fa…512c Head {h00=0x002e, h01=0x0050, text=»* ROUTINE TO MOVE CORE FROM USER TO THE«, t00=0x0033, t01=0x015e}
0x512c…514a Head {h00=0x001a, h01=0x0050, text=»* DISCRIPTOR BLOCK.«, t00=0x0033, t01=0x0190}
0x514a…5154 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x001e}
0x5154…5186 Head {h00=0x002e, h01=0x0050, text=»* REG. A9 CONTAINS THE USER CORE ADRES.«, t00=0x0034, t01=0x0028}
0x5186…51ae Head {h00=0x0024, h01=0x0050, text=»* REG. A4 CONTAINS THE LENGTH«, t00=0x0034, t01=0x005a}
0x51ae…51e4 Head {h00=0x0032, h01=0x0050, text=»* REG. A3 CONTAINS THE ENTRY IN THE BLOCK. «, t00=0x0034, t01=0x0082}
0x51e4…5222 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0034, t01=0x00b8}
0x5222…522c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00f6}
0x522c…5236 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0100}
0x5236…524a Head {h00=0x0010, h01=0x0050, text=»A:MOVE EQU *«, t00=0x0034, t01=0x010a}
0x524a…5272 Head {h00=0x0024, h01=0x0050, text=» LDKL A1,BLOCK -DISCRIPTOR BLOCK«, t00=0x0034, t01=0x011e}
0x5272…5294 Head {h00=0x001e, h01=0x0050, text=» ADR A1,A3 -ENTRY IN BLOCK«, t00=0x0034, t01=0x0146}
0x5294…52ac Head {h00=0x0014, h01=0x0050, text=» ST A1,DISCRIPT «, t00=0x0034, t01=0x0168}
0x52ac…52ce Head {h00=0x001e, h01=0x0050, text=» ST A9,ADRES -USER ADRES. «, t00=0x0034, t01=0x0180}
0x52ce…52e0 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0035, t01=0x0012}
0x52e0…52f4 Head {h00=0x0010, h01=0x0050, text=»M:LOOP EQU *«, t00=0x0035, t01=0x0024}
0x52f4…531c Head {h00=0x0024, h01=0x0050, text=» SUK A4,1 -EVERY THING MOVED ?? «, t00=0x0035, t01=0x0038}
0x531c…5330 Head {h00=0x0010, h01=0x0050, text=» RF(N) M:END«, t00=0x0035, t01=0x0060}
0x5330…5344 Head {h00=0x0010, h01=0x0050, text=» LC A1,0,A4 «, t00=0x0035, t01=0x0074}
0x5344…535a Head {h00=0x0012, h01=0x0050, text=»ADRES EQU *-2 «, t00=0x0035, t01=0x0088}
0x535a…536e Head {h00=0x0010, h01=0x0050, text=» SC A1,0,A4 «, t00=0x0035, t01=0x009e}
0x536e…5386 Head {h00=0x0014, h01=0x0050, text=»DISCRIPT EQU *-2«, t00=0x0035, t01=0x00b2}
0x5386…5398 Head {h00=0x000e, h01=0x0050, text=» RB M:LOOP«, t00=0x0035, t01=0x00ca}
0x5398…53ac Head {h00=0x0010, h01=0x0050, text=»M:END EQU * «, t00=0x0035, t01=0x00dc}
0x53ac…53bc Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0035, t01=0x00f0}
0x53bc…53c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0100}
0x53c6…53d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x010a}
0x53d0…540e Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0035, t01=0x0114}
0x540e…5444 Head {h00=0x0032, h01=0x0050, text=»* ROUTINE TO MOVE DATE AND RETENTION PERIOD«, t00=0x0035, t01=0x0152}
0x5444…5476 Head {h00=0x002e, h01=0x0050, text=»* FROM USER BUFFER TO DISCRIPTOR BLOCK.«, t00=0x0035, t01=0x0188}
0x5476…54b6 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0036, t01=0x002a}
0x54b6…54c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x006a}
0x54c0…54ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0074}
0x54ca…54de Head {h00=0x0010, h01=0x0050, text=»TEKST EQU * «, t00=0x0036, t01=0x007e}
0x54de…54f4 Head {h00=0x0012, h01=0x0050, text=» CF A14,I:EVA0«, t00=0x0036, t01=0x0092}
0x54f4…5514 Head {h00=0x001c, h01=0x0050, text=» LDK A4,15 LENGTH TEXT. «, t00=0x0036, t01=0x00a8}
0x5514…5536 Head {h00=0x001e, h01=0x0050, text=» LDK A3,40 ENTRY IN BLOCK.«, t00=0x0036, t01=0x00c8}
0x5536…554c Head {h00=0x0012, h01=0x0050, text=» CF A14,A:MOVE«, t00=0x0036, t01=0x00ea}
0x554c…555c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0036, t01=0x0100}
0x555c…5566 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0110}
0x5566…5570 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x011a}
0x5570…557e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x0124}
0x557e…5588 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0132}
0x5588…5592 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x013c}
0x5592…55d0 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0036, t01=0x0146}
0x55d0…5608 Head {h00=0x0034, h01=0x0050, text=»* THIS ROUTINE IS TO INIT THE DISCRIPTOR BLOCK«, t00=0x0036, t01=0x0184}
0x5608…5622 Head {h00=0x0016, h01=0x0050, text=»* ON TO SPACES. «, t00=0x0037, t01=0x002c}
0x5622…5660 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0037, t01=0x0046}
0x5660…566a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0084}
0x566a…567c Head {h00=0x000e, h01=0x0050, text=»INIT EQU *«, t00=0x0037, t01=0x008e}
0x567c…569c Head {h00=0x001c, h01=0x0050, text=» LDKL A1,/2020 -SPACES. «, t00=0x0037, t01=0x00a0}
0x569c…56ae Head {h00=0x000e, h01=0x0050, text=» LDK A2,50«, t00=0x0037, t01=0x00c0}
0x56ae…56c2 Head {h00=0x0010, h01=0x0050, text=»I:LOOP EQU *«, t00=0x0037, t01=0x00d2}
0x56c2…56dc Head {h00=0x0016, h01=0x0050, text=» ST A1,BLOCK+6,A2 «, t00=0x0037, t01=0x00e6}
0x56dc…56ee Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0037, t01=0x0100}
0x56ee…5716 Head {h00=0x0024, h01=0x0050, text=» RB(NN) I:LOOP -END OF BUFFER ??«, t00=0x0037, t01=0x0112}
0x5716…5728 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0037, t01=0x013a}
0x5728…575c Head {h00=0x0030, h01=0x0050, text=» ST A1,BLOCK+54 -NUMBER OF INDEX FILES --> 0«, t00=0x0037, t01=0x014c}
0x575c…576c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0037, t01=0x0180}
0x576c…5776 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0190}
0x5776…5780 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x000a}
0x5780…5794 Head {h00=0x0010, h01=0x0050, text=»REG01 DATA 0«, t00=0x0038, t01=0x0014}
0x5794…57a8 Head {h00=0x0010, h01=0x0050, text=»FREE DATA 0 «, t00=0x0038, t01=0x0028}
0x57a8…57be Head {h00=0x0012, h01=0x0050, text=»FC1 DATA /01C0«, t00=0x0038, t01=0x003c}
0x57be…57d6 Head {h00=0x0014, h01=0x0050, text=»FC1A2 DATA /C0C1«, t00=0x0038, t01=0x0052}
0x57d6…57e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x006a}
0x57e0…5818 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0038, t01=0x0074}
0x5818…583e Head {h00=0x0022, h01=0x0050, text=»* ROUTINE TO SAVE REGISTERS.«, t00=0x0038, t01=0x00ac}
0x583e…5876 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0038, t01=0x00d2}
0x5876…5880 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x010a}
0x5880…5894 Head {h00=0x0010, h01=0x0050, text=»STORE EQU * «, t00=0x0038, t01=0x0114}
0x5894…58aa Head {h00=0x0012, h01=0x0050, text=» ST A11,REG11 «, t00=0x0038, t01=0x0128}
0x58aa…58c0 Head {h00=0x0012, h01=0x0050, text=» ST A12,REG12 «, t00=0x0038, t01=0x013e}
0x58c0…58d6 Head {h00=0x0012, h01=0x0050, text=» ST A13,REG13 «, t00=0x0038, t01=0x0154}
0x58d6…58e6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0038, t01=0x016a}
0x58e6…58f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x017a}
0x58f0…58fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0184}
0x58fa…5932 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0038, t01=0x018e}
0x5932…5966 Head {h00=0x0030, h01=0x0050, text=»* ROUTINE TO GET BACK THE SAVED REGISTERS.«, t00=0x0039, t01=0x0036}
0x5966…599e Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0039, t01=0x006a}
0x599e…59a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00a2}
0x59a8…59bc Head {h00=0x0010, h01=0x0050, text=»RESTOR EQU *«, t00=0x0039, t01=0x00ac}
0x59bc…59d0 Head {h00=0x0010, h01=0x0050, text=» LDKL A11,0 «, t00=0x0039, t01=0x00c0}
0x59d0…59e6 Head {h00=0x0012, h01=0x0050, text=»REG11 EQU *-2 «, t00=0x0039, t01=0x00d4}
0x59e6…59fa Head {h00=0x0010, h01=0x0050, text=» LDKL A12,0 «, t00=0x0039, t01=0x00ea}
0x59fa…5a10 Head {h00=0x0012, h01=0x0050, text=»REG12 EQU *-2 «, t00=0x0039, t01=0x00fe}
0x5a10…5a24 Head {h00=0x0010, h01=0x0050, text=» LDKL A13,0 «, t00=0x0039, t01=0x0114}
0x5a24…5a3a Head {h00=0x0012, h01=0x0050, text=»REG13 EQU *-2 «, t00=0x0039, t01=0x0128}
0x5a3a…5a4a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0039, t01=0x013e}
0x5a4a…5a54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x014e}
0x5a54…5a6c Head {h00=0x0014, h01=0x0050, text=» DATA 'TM','P-' «, t00=0x0039, t01=0x0158}
0x5a6c…5a7a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0039, t01=0x0170}
0x5a7a…5a84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x017e}
0x5a84…5a8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0188}
0x5a8e…5ade (58, 0, 400) Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x003a, t01=0x0004}
0x5ade…5ae8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0054}
0x5ae8…5b20 Head {h00=0x0034, h01=0x0050, text=»* D I S C R I P T O R B L O C K«, t00=0x003a, t01=0x005e}
0x5b20…5b2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0096}
0x5b2a…5b34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00a0}
0x5b34…5b48 Head {h00=0x0010, h01=0x0050, text=»BLOCK EQU * «, t00=0x003a, t01=0x00aa}
0x5b48…5b5c Head {h00=0x0010, h01=0x0050, text=» DATA BUFFER«, t00=0x003a, t01=0x00be}
0x5b5c…5b70 Head {h00=0x0010, h01=0x0050, text=» DATA BUFFE2«, t00=0x003a, t01=0x00d2}
0x5b70…5b86 Head {h00=0x0012, h01=0x0050, text=»ASSBLK DATA 0 «, t00=0x003a, t01=0x00e6}
0x5b86…5b96 Head {h00=0x000c, h01=0x0050, text=» RES 16 «, t00=0x003a, t01=0x00fc}
0x5b96…5ba8 Head {h00=0x000e, h01=0x0050, text=»ECB DATA 0«, t00=0x003a, t01=0x010c}
0x5ba8…5bb8 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x003a, t01=0x011e}
0x5bb8…5bc8 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x003a, t01=0x012e}
0x5bc8…5bd8 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x003a, t01=0x013e}
0x5bd8…5bf6 Head {h00=0x001a, h01=0x0050, text=» DATA 0 -RETURN CODE. «, t00=0x003a, t01=0x014e}
0x5bf6…5c1a Head {h00=0x0020, h01=0x0050, text=»SECNR DATA 0 -SECTOR NUMBER.«, t00=0x003a, t01=0x016c}
0x5c1a…5c30 Head {h00=0x0012, h01=0x0050, text=»RETCOD DATA 0 «, t00=0x003a, t01=0x0190}
0x5c30…5c46 Head {h00=0x0012, h01=0x0050, text=»BUFADR DATA 0 «, t00=0x003b, t01=0x0016}
0x5c46…5c56 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x003b, t01=0x002c}
0x5c56…5c66 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x003b, t01=0x003c}
0x5c66…5c70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x004c}
0x5c70…5c7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0056}
0x5c7a…5c84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0060}
0x5c84…5cd4 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x003b, t01=0x006a}
0x5cd4…5cde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00ba}
0x5cde…5d22 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=0x003b, t01=0x00c4}
0x5d22…5d2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0108}
0x5d2c…5d36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0112}
0x5d36…5d40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x011c}
0x5d40…5d54 Head {h00=0x0010, h01=0x0050, text=» DATA /4141 «, t00=0x003b, t01=0x0126}
0x5d54…5d68 Head {h00=0x0010, h01=0x0050, text=»BUFFER EQU *«, t00=0x003b, t01=0x013a}
0x5d68…5d78 Head {h00=0x000c, h01=0x0050, text=» RES 205«, t00=0x003b, t01=0x014e}
0x5d78…5d8c Head {h00=0x0010, h01=0x0050, text=»BUFFE2 EQU *«, t00=0x003b, t01=0x015e}
0x5d8c…5d9c Head {h00=0x000c, h01=0x0050, text=» RES 205«, t00=0x003b, t01=0x0172}
0x5d9c…5da6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0182}
0x5da6…5db0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x018c}
0x5db0…5dba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0008}
0x5dba…5dc6 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x003c, t01=0x0012}
0x5dc6…5dca Head {h00=0x4004, h01=0x0000}
0x5dca…5dce 00 3c 00 1e ┆ < ┆
0x5dce…5dd6 (61, 1, 8) 20 04 00 00 00 3d 00 04 ┆ = ┆
0x5dd6…5e26 (62, 0, 400) 12 01 1b 01 5d 14 11 02 d4 24 e5 10 e5 29 12 01 1b 01 59 16 5f 24 1b 01 55 10 84 04 85 0c 78 8c 94 14 d5 30 e5 14 e5 29 5f 38 d5 24 5f 0a d4 24 e4 29 11 01 12 01 1b 01 59 50 5f 4a 83 0c 55 18 85 3b 84 08 24 01 54 12 84 04 24 01 54 16 84 0c ┆ ] $ ) Y _$ U x 0 )_8 $_ $ ) YP_J U ; $ T $ T ┆
0x5e26…5e76 24 01 54 4e 70 8c 85 3a f0 3a 84 04 24 01 54 2a d4 28 57 0a e4 24 e4 10 11 01 1b 01 55 0e e4 24 d4 29 11 01 12 02 1b 01 59 16 5f 26 d3 28 23 ff a4 20 ff 00 ab 10 d3 29 5f 34 84 24 d5 28 24 ff a5 20 ff 00 ac 14 d4 29 11 01 12 01 1b 01 59 52 ┆$ TNp : : $ T* (W $ U $ ) Y _& (# )_4 $ ($ ) YR┆
0x5e76…5ec6 5f 4c 1b 01 55 0e 84 04 85 0c 70 8c 94 14 92 14 84 30 5f 38 84 24 5f 3c 00 0e 43 54 12 68 11 4e 18 6c 13 6e 86 34 00 00 00 00 00 00 00 00 00 00 00 00 ff fe 38 f8 3b 56 44 4c 08 fc ff fe 38 d8 3b 56 44 4c 83 30 83 35 20 bf 83 40 00 00 83 31 ┆_L U p 0_8 $_< CT h N l n 4 8 ;VDL 8 ;VDL 0 5 @ 1┆
0x5ec6…5f16 84 41 00 00 84 14 82 08 5a 3e f0 3a 82 44 00 4e 57 00 82 28 50 00 e3 44 01 00 87 1c 50 34 1f 02 50 d4 1f 04 50 bc 1f 31 50 30 1f 01 88 20 39 de 1f 01 88 20 39 fc 57 0e 99 04 87 1c 50 14 1f 02 50 08 1f 35 50 14 8f 20 60 3a f7 a1 3a f8 8f 20 ┆ A Z> : D NW (P D P4 P P 1P0 9 9 W P P 5P `: : ┆
0x5f16…5f66 60 42 84 58 00 1a 50 c0 57 82 82 42 00 0a 82 59 00 1c 81 40 3b de 50 1e 83 18 93 20 00 18 e9 0c 50 04 81 24 5f 10 81 18 f7 a1 1f 76 39 42 00 14 5f 34 86 04 5f 24 82 58 00 00 00 00 00 00 00 00 00 00 00 07 e0 39 c0 00 00 01 20 0a 80 20 06 0c ┆`B X P W B Y @; P P $_ v9B _4 _$ X 9 ┆
0x5f66…5fb6 (63, 0, 400) 00 1c 82 39 83 42 00 02 83 59 00 1c 83 42 00 04 83 59 00 1e ee 20 44 1e 50 38 81 40 5f b0 e9 20 5f f6 88 20 60 3a 84 40 5f b2 94 60 5f b2 1c 02 ec 40 5f b2 50 06 ee 30 50 18 5f 0e 86 25 01 02 91 41 5f b0 91 41 5f b4 01 04 a9 59 00 02 f7 a1 ┆ 9 B Y B Y D P8 @_ _ `: @_ `_ @_ P 0P _ % A_ A_ Y ┆
0x5fb6…6006 3a c0 99 04 f7 a1 0a 26 5f 94 81 42 00 04 e9 20 08 fc 51 5a f7 a1 3a 32 f7 a1 3a 90 5f a8 80 d8 00 04 84 58 00 1a 50 18 82 30 82 59 00 1a 14 06 83 50 ff fc 83 43 00 06 01 00 f7 a1 09 78 5f ca f7 a1 3a 0e 5f d0 81 42 00 0a 21 03 50 06 81 59 ┆: &_ B QZ :2 : _ X P 0 Y P C x_ : _ B ! P Y┆
0x6006…6056 00 02 5f 52 81 58 00 02 21 09 58 0e f7 a1 3a c0 01 04 5f 16 82 42 00 0a 82 59 00 20 5f 6c 81 20 80 08 8f 20 60 3e 81 18 82 58 00 20 50 10 82 41 3a 20 f7 a1 1f 76 3a 28 00 00 84 59 00 14 57 62 86 04 a0 59 00 14 01 40 5f 96 81 18 82 58 00 20 ┆ _R X ! X : _ B Y _l `> X P A: v:( Y Wb Y @_ X ┆
0x6056…60a6 58 14 82 41 3a 44 f7 a1 1f 76 3a 4c 00 00 84 59 00 14 5f 26 86 04 a0 59 00 14 f7 a1 3a a6 82 40 3b c4 ea 18 5c 30 a0 41 3b c6 a0 41 3b c4 5f 3a 82 58 00 14 50 0c 82 28 9a 09 a0 79 00 14 a0 59 00 14 57 0e 82 20 44 4c 20 bf 84 28 50 04 83 30 ┆X A:D v:L Y _& Y : @; 0 A; A; _: X P ( y Y W DL (P 0┆
0x60a6…60f6 83 29 97 a0 00 04 8f 3e 82 20 38 9c 04 16 83 28 50 04 82 0c 5f 08 94 18 84 29 a0 31 5f 1c 82 20 38 9c 04 16 94 18 83 28 58 28 eb 10 50 04 82 0c 5f 0c 83 30 83 29 5f 36 00 12 aa 40 50 90 14 00 02 40 01 00 20 b0 00 2c 02 8a 00 10 04 00 80 05 ┆ ) > 8 (P _ ) 1_ 8 (X( P _ 0 )_6 @P @ , ┆
0x60f6…6146 (64, 0, 400) 82 58 00 00 22 ff 58 3e 1a 7f 58 42 82 58 00 00 22 ff 1a 45 5c 4c 82 20 3b de 04 18 5f 48 82 20 3b de 04 18 5f 3a 82 18 12 1a 83 28 50 04 82 0c 5f 08 84 29 a0 31 f0 34 86 20 44 1e 81 58 00 02 52 32 01 02 e9 58 00 06 54 2a 80 d8 00 04 83 58 ┆ X " X> XB X " E L ; _H ; _: (P _ ) 1 4 D X R2 X T* X┆
0x6146…6196 00 1a 50 26 82 2c 82 59 00 1a 13 06 84 4c ff fc 84 43 00 06 84 4c ff fe 84 43 00 0a 01 00 84 0c f7 a1 09 78 97 a0 00 04 8f 3e 81 40 38 9a a9 40 38 96 e9 40 38 98 81 41 38 98 58 18 a9 20 20 00 f7 a1 0a 26 5f 22 81 58 00 14 50 08 a0 79 00 14 ┆ P& , Y L C L C x > @8 @8 @8 A8 X &_" X P y ┆
0x6196…61e6 a0 59 00 14 81 58 00 06 19 02 50 18 19 04 54 14 f7 a1 3a a6 82 40 3b c4 ea 18 54 08 a0 41 3b c6 a0 41 3b c4 97 a0 00 04 8f 3e 83 41 3b a6 84 41 3b aa 85 41 3b ae 86 41 3b b2 87 41 3b b6 80 c1 3b ba 57 18 83 20 00 00 84 20 00 00 85 20 00 00 ┆ Y X P T : @; T A; A; > A; A; A; A; A; ; W ┆
0x61e6…6236 86 20 00 00 87 20 00 00 80 a0 00 00 97 a0 00 04 8f 3e 82 28 50 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 50 00 1f 31 50 00 00 00 00 00 00 00 00 00 00 00 00 00 42 48 42 42 85 20 38 d2 f5 21 42 e8 82 20 03 16 42 c2 f5 21 43 0e 54 8a 81 08 ┆ > (P P 1P BHBB 8 !B B !C T ┆
0x6236…6286 19 02 50 b4 19 02 50 8c 19 01 88 20 3e 16 19 0b 88 20 3e 76 19 05 88 20 3e 2e 80 88 f5 21 43 0e 54 66 ea 02 54 62 03 00 ea 41 44 1f 50 08 03 02 ea 41 44 1e 54 52 f5 21 00 08 80 04 00 00 00 42 a8 40 00 51 42 aa 80 00 00 00 02 84 02 49 04 4c ┆ P P > >v >. !C Tf Tb AD P AD TR ! B @ QB I L┆
0x6286…62d6 (65, 0, 400) 43 0e 54 4c 80 88 f5 21 43 0e 54 44 ea 02 54 40 f5 21 42 f6 1a 85 54 38 f5 21 42 f6 41 82 49 c2 01 01 81 41 3b d0 82 02 1b 02 50 14 e8 a0 00 22 88 20 3f 4e f5 21 43 2c 86 0c 8c 20 3f d6 5f 8e f5 21 43 2c 86 0c 54 04 86 20 44 1e 8f 20 3f 06 ┆C TL !C TD T@ !B T8 !B A I A; P " ?N !C, ? _ !C, T D ? ┆
0x62d6…6326 22 7f 1a 7f 58 a4 f5 21 42 f6 5f 0c f5 21 43 f8 a0 41 3b ce 81 40 3b c6 50 10 86 40 3b c4 50 06 01 02 f5 21 40 00 a0 41 3b c6 a0 41 3b c8 5f ce f5 21 43 f8 81 40 3b c8 50 1a 81 40 44 4c 58 40 f5 21 40 46 1f 01 54 3c a0 41 3b cc f5 21 40 f8 ┆" X !B _ !C A; @; P @; P !@ A; A; _ !C @; P @DLX@ !@F T< A; !@ ┆
0x6326…6376 8f 20 3b ea 81 40 3b c6 50 20 81 40 44 4c 50 1a 86 40 3b c4 88 20 3c 88 82 38 f5 21 3f 38 01 00 f5 21 40 00 a0 41 3b d0 5f 3a f5 21 42 f6 1a 85 58 36 5f 5a 90 41 3b cc 84 40 44 4c 14 06 ec 40 3b dc 54 14 01 1b e9 31 5c 52 14 01 e1 30 1c 01 ┆ ; @; P @DLP @; < 8 !?8 !@ A; _: !B X6_Z A; @DL @; T 1 R 0 ┆
0x6376…63c6 19 32 50 bc 19 04 50 b8 1f 01 50 9c a0 41 3b da f7 a1 3a 7c 14 06 86 40 3b c2 82 38 e2 48 1e a4 81 40 44 4c 50 04 82 45 00 04 ee 20 44 1e 50 5e 82 58 00 02 52 58 82 58 00 06 50 08 02 02 ea 58 00 06 54 4a 01 00 80 d8 00 04 83 50 ff fc 83 43 ┆ 2P P P A; :| @; 8 H @DLP E D P^ X RX X P X TJ P C┆
0x63c6…6416 00 06 f7 a1 3a 68 82 43 00 0a e2 50 00 02 22 ff e2 48 1e a4 22 08 50 0a 82 58 00 02 2a 0a 82 59 00 02 82 58 00 06 54 08 1c 06 f5 21 3a e6 57 08 01 00 f7 a1 09 78 57 28 88 44 20 52 45 09 52 2a 52 45 52 52 52 14 80 01 49 42 00 00 20 40 02 25 ┆ :h C P " H " P X * Y X T !: W xW( D RE R*RERRR IB @ %┆
0x6416…6466 (66, 0, 400) f7 a1 0a 26 57 22 81 58 00 02 52 0a 81 58 00 06 54 04 f7 a1 0a 26 1c 06 f5 21 3a e6 f7 a1 3a f8 f5 21 40 d8 8f 20 3b ea 81 58 00 02 21 08 5f 10 58 12 f5 21 40 e6 57 42 a0 41 3b c8 86 40 3b c2 84 58 00 1c 1c 02 83 20 07 82 90 41 3b ce a0 41 ┆ &W" X R X T & !: : !@ ; X ! _ X !@ WB A; @; X A; A┆
0x6466…64b6 3b c4 01 01 b1 41 3b d0 81 40 3b e4 11 01 81 41 3b e4 8f 20 3f b2 f5 21 43 f8 81 40 3b c6 54 20 a9 40 3b c8 50 04 f5 21 41 0c 8f 20 3b ea f5 21 43 f8 81 40 3b c6 54 08 a9 40 3b c8 58 14 57 78 01 00 41 82 49 c2 f7 a1 3b 8a f7 a1 1f 76 3e 56 ┆; A; @; A; ? !C @; T @; P !A ; !C @; T @; X Wx A I ; v>V┆
0x64b6…6506 00 03 8f 20 60 42 f7 a1 3b a4 86 40 3b c4 81 40 3b cc 8c 20 3f 6c 81 40 3b dc 99 40 3b d6 81 41 3b da 8f 20 3f c0 f5 21 43 f8 81 40 3b c6 58 56 f5 21 42 f6 ea 20 00 b0 54 10 81 40 3b d0 50 16 f5 21 41 00 f5 21 43 c8 5f 70 ea 20 00 31 54 2c ┆ `B ; @; @; ?l @; @; A; ? !C @; XV !B T @; P !A !C _p 1T,┆
0x6506…6556 81 40 3b d0 58 16 81 40 3b ca 50 16 01 00 82 40 3b cc 54 30 f5 21 40 00 f5 21 40 fc a0 41 3b ce 5f 98 01 01 b1 41 3b d0 8f 20 3f c0 ea 20 00 bc 5c 42 a0 41 3b c6 81 40 3b ca 54 04 01 02 5f 32 01 00 5f 36 86 40 3b c4 f7 a1 3a de a0 41 3b cc ┆ @; X @; P @; T0 !@ !@ A; _ A; ? B A; @; T _2 _6 @; : A; ┆
0x6556…65a6 a0 41 3b c6 81 58 00 02 21 04 58 44 81 20 80 00 a1 59 00 02 5f 4e 81 40 3b c6 54 48 81 58 00 02 83 04 21 01 50 08 f5 21 40 ea 8f 20 3b ea 23 08 54 06 81 40 44 4c 54 06 40 25 50 25 02 94 aa 4a a4 0b 2a aa aa 42 50 48 95 14 28 15 40 08 0a 2c ┆ A; X ! XD Y _N @; TH X ! P !@ ; # T @DLT @%P% J * BPH ( @ ,┆
0x65a6…65f6 (67, 0, 400) f5 21 40 e6 5f 14 f5 21 3f 38 f5 21 40 d8 5f 1e 90 41 3b c8 a0 41 3b da 82 45 00 04 90 41 3b cc 86 41 3b c2 f0 34 81 40 3b c6 50 0c f5 21 41 00 f5 21 43 c8 8f 20 3b ea f5 21 43 a4 86 40 3b de 50 12 1e 18 f5 21 42 32 f5 21 43 c8 90 41 3b c6 ┆ !@ _ !?8 !@ _ A; A; E A; A; 4 @; P !A !C ; !C @; P !B2 !C A; ┆
0x65f6…6646 8f 20 3b ea 86 40 38 9c 54 06 f5 21 40 fc 5f 10 1e 16 80 d8 00 04 54 06 f7 a1 3a a6 5f 14 80 c1 3b d4 86 41 3b c4 84 20 56 56 84 43 00 02 f7 a1 09 50 84 42 00 02 83 42 00 04 84 41 3b d6 1b 02 83 41 3b d8 a0 41 3b da a0 41 3b ca a0 41 3b cc ┆ ; @8 T !@ _ T : _ ; A; VV C P B B A; A; A; A; A; ┆
0x6646…6696 f5 21 41 34 f5 21 43 c8 90 41 3b c6 5f 5e 81 40 3b c6 5c 88 87 18 f5 21 43 a4 86 1c 81 58 00 02 21 07 5c 80 81 58 00 02 5a 70 81 58 00 06 19 06 58 70 19 02 58 74 5f 7e 86 40 3b c4 50 36 82 58 00 02 52 30 82 58 00 06 1a 06 50 10 1a 02 54 24 ┆ !A4 !C A; _^ @; !C X ! X Zp X Xp Xt_~ @; P6 X R0 X P T$┆
0x6696…66e6 81 04 54 08 02 02 82 59 00 06 57 14 80 c0 3b d4 f7 a1 3a 68 80 82 50 08 82 43 00 0a f7 a1 0a 26 f7 a1 3a a6 a0 41 3b c6 a0 41 3b c4 f0 34 84 40 44 4c 14 06 03 00 81 40 3b cc 54 0a 81 40 3b dc 99 10 81 41 3b da 94 40 3b da 84 41 3b dc a0 41 ┆ T Y W ; :h P C & : A; A; 4 @DL @; T @; A; @; A; A┆
0x66e6…6736 3b cc 07 00 f5 21 43 0e 54 32 ea 20 00 03 50 34 ea 20 00 17 50 4a ea 20 00 1f 50 4c ea 20 00 05 50 1a ea 20 00 ff 50 2e e2 31 14 01 90 41 3b da 81 40 3b da e9 20 08 fc 4a 51 49 55 15 52 04 a8 82 55 54 88 00 04 00 01 41 54 89 2a 90 00 01 45 ┆; !C T2 P4 PJ PL P P. 1 A; @; JQIU R UT AT * E┆
0x6736…6786 (68, 0, 400) 5d 36 57 1a 03 01 1a 7f 50 16 5f 40 81 40 44 4c 82 40 3b da 82 45 00 02 f5 21 44 08 50 02 03 01 87 0c f5 21 42 e8 f0 34 83 0c 5c 20 03 02 5f 24 f5 21 44 08 5c 32 5f 6c 02 01 03 31 b2 41 3b d0 54 0a 03 30 57 06 03 3b 57 02 03 3c 02 10 e2 41 ┆]6W P _@ @DL @; E !D P !B 4 _$ !D 2_l 1 A; T 0W ;W < A┆
0x6786…67d6 3b e2 e3 41 3b e3 57 14 03 15 57 06 03 04 57 02 03 05 e3 41 3b e2 02 ff e2 41 3b e3 f5 21 42 7a e2 40 3b e2 f5 21 42 fe e2 40 3b e3 f5 21 42 fe 02 ff f5 21 42 ee 02 ff f5 21 42 ee 02 00 42 92 4a d2 f0 34 f5 21 42 7a 02 02 f5 21 42 ee 07 00 ┆; A; W W W A; A; !Bz @; !B @; !B !B !B B J 4 !Bz !B ┆
0x67d6…6826 84 40 3b d6 94 40 3b da 84 41 3b dc 14 02 03 00 81 40 3b da 54 28 e2 40 44 1f f5 21 42 fe 82 38 f5 21 42 fe 81 40 3b ce 50 12 02 2d f5 21 42 fe 83 78 00 1e f5 21 5f 54 03 05 57 02 03 02 e2 30 14 01 22 7f 81 40 3b ce 50 4c ea 20 00 20 52 1a ┆ @; @; A; @; T( @D !B 8 !B @; P - !B x !_T W 0 " @; PL R ┆
0x6826…6876 ea 20 00 7e 54 02 02 0a ea 20 00 7d 54 02 02 19 ea 20 00 7f 54 30 1a 01 57 2c 02 1d f5 21 42 fe e2 50 ff ff 22 7f 81 08 21 01 22 1e 3a 41 aa 04 2a 40 e2 48 1e a4 ea 20 00 18 54 02 02 30 f5 21 42 fe 13 01 57 0a ea 20 00 07 52 04 f5 21 42 fe ┆ ~T }T T0 W, !B P " ! " :A *@ H T 0 !B W R !B ┆
0x6876…68c6 90 41 3b da 81 40 3b d8 e9 40 3b da 55 3c 13 01 eb 20 08 fc 5a 78 01 11 e9 51 ff fe 50 12 e9 51 ff ff 54 16 e2 30 14 01 f5 21 42 fe 90 41 3b da e2 30 f5 21 42 fe 90 41 01 44 20 41 00 a0 25 55 24 12 54 4a 51 10 10 00 01 00 20 81 54 00 05 2c ┆ A; @; @; U< Zx Q P Q T 0 !B A; 0 !B A D A %U$ TJQ T ,┆