|
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: 13976 (0x3698)
Notes: pts_type(SC)
Names: »GETLRN.SC«
└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
└─⟦this⟧ »PTSDEMO/GETLRN.SC«
IDENT GETLRN READ LRN IN VTOC * *********************************************************************** * * TO GET THE LRN OF A STANDARD FILE * * CALL GETLRN,FILENAME,1,VOLNAME,LRN,ERCOD * * TO UPDATE THE LRN OF A STANDARD FILE. * * CALL PUTLRN,DATAITEM1,VAL1,VOL1,(VOL2,..),LRN,ERROR * * THE CONTENTS OF THE ITEMS IS: * DATAITEM1 : FILE NAME * VAL1 : NR OF VOLUMES * *********************************************************************** * * ************************************************* * E N T R I E S A N D E X T E R N A L S * ************************************************* * ENTRY GETLRN ENTRY PUTLRN * EXTRN I:EVA0 EXTRN I:RT1 EJECT ************************************************************************** * * THIS ROUTINE IS TO GET THE LRN * ************************************************************************** * GETLRN EQU * CF A14,LRN LDR A1,A1 ERROR CODE RF(NZ) WRONG LD A4,22,A4 GET LRN CF A14,I:EVA0 ADRESS LRN IN CRDEIT STR A4,A9 STORE LRN LDK A1,0 OK RF AFHAND EJECT ************************************************************** * * THIS ROUTINE IS THE PUTLRN. * *************************************************************** * PUTLRN EQU * CF A14,LRN LDR A1,A1 RF(NZ) WRONG CF A14,I:EVA0 LDR* A3,A9 ST A3,22,A4 -STORE RECORD NUMBER. CF A14,WRITE -WRITE THE LRN. RF AFHAND WRONG EQU * ADKL A12,2 ADJUST PROGRAM POINTER * AFHAND EQU * LDR A1,A1 -IS IT OKE.? RF(Z) COMSEG RF GETRC * 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. ********************************************* * C O M S E G * COMMON EXIT PART FOR ALL FUNCTIONS. ********************************************* COMSEG EQU * LDR A4,A1 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 * LD A2,2,A13 CHECK CONDITION REGISTER SC A1,-2,A2 CM FREE -FREE. ABL I:RT1 EJECT * ********************************************************* * * STANDARD ROUTINES FOR THE GETLRN. * * LRN EQU * CF A14,STANDRD -GET FILENAME + VOLUME NAME 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 * EJECT * INIT1 EQU * LDK A1,0 ST A1,RETCOD -INIT RETURN CODE LDK A1,/E8 FIRST FILE CODE ST A1,ECB STORE IN ECB LDKL A2,/100 LENGTH ST A2,ECB+4 -RECORD LENGTH RTN A14 * INIT2 EQU * LDK A2,0 VTOC IN SECTOR 0 ST A2,SECNR+2 -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,/FA -IS IT FA ? 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 * * EJECT ***************************************** * CHECK VOLUME NAME. ***************************************** * CHKVLN EQU * LD A2,ECB+2 -BUFFER ADRS. ST A2,C:STOR -ROUTINE COMPARE LDK A3,1 -PRESET NUMBER OF CHECKS LDKL A4,WORK+8 -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 * EJECT * 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 ********************************* * GET NEXT ECB. ********************************* * * NXTECB EQU * LDKL A2,BUFFE2 ST A2,ECB+2 -SAVE BUFFER2 ADRES. LD A6,BUFFER+10 -FREE SPACE TABLE ADK A6,1 LD A3,BUFFER+6 -GET VTOC SECTORS. ADR A3,A6 -LAST VTOC SECTOR. RTN A14 * * * EJECT ********************************************** * SEARCH FILENAME IN THE -VTOC-. ********************************************** * * SEARCH EQU * LDKL A4,WORK -ADRES FILE NAME. ST A4,C:STOR STORE IN ROUTINE COMPAR LDKL A4,BUFFE2 -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+256 -END OF SECTOR. RB(2) LABEL2 -NO GET BACK. OKE RTN A14 * EJECT * * ************************************ * READ SECTOR OF THE VTOC. ************************************ * * VTOC EQU * ST A6,SECNR+2 -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,I:EVA0 ADDRESS FILENAME LDK A4,8 BYTES TO MOVE LDK A3,0 REPLACEMENT IN WORK CF A14,A:MOVE MOVE FILENAME TO WORK LDK A3,0 CLEAR A3 LCR A3,A12 FETCH NUMBER OF VOLUMES ADKL A12,1 INCREASE PROGRAMPOINTER LDR A7,A3 -SAVE REGISTER. LDK A6,0 ST:01 EQU * CF A14,VOLNAM ADK A6,1 SUK A7,1 RB(NZ) ST:01 RTN A14 * * * EJECT ************************************** * 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 ****************************************** * 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,8 -VOLUME ENTRY. ADR A3,A1 -ADD INDEX. LDK A4,6 -LENGTH CF A14,A:MOVE -MOVE VOLUME 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 WORK. ***************************************************** * * A:MOVE EQU * LDKL A1,WORK ADDRESS WORKFIELD 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 EJECT * * ************************************************************************ * * D I S C R I P T O R B L O C K * * FREE DATA 0 BLOCK EQU * DATA BUFFER DATA BUFFE2 WORK DATA 0 RES 6 ECB DATA 0 DATA 0 DATA 0 DATA 0 DATA 0 -RETURN CODE. SECNR DATA 0 -SECTOR NUMBER. DATA 0 CONTROL WORD 2 RETCOD DATA 0 BUFFER EQU * RES 128 BUFFE2 EQU * RES 128 * * * END
0x0000…0026 (0, 0, 398) Head {h00=0x0022, h01=0x0050, text=» IDENT GETLRN READ LRN IN VTOC«, t00=0x0000, t01=0x0004}
0x0026…0030 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x002a}
0x0030…0080 Head {h00=0x004c, h01=0x0050, text=»*********************************************************************** «, t00=0x0000, t01=0x0034}
0x0080…008a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0084}
0x008a…00ba Head {h00=0x002c, h01=0x0050, text=»* TO GET THE LRN OF A STANDARD FILE «, t00=0x0000, t01=0x008e}
0x00ba…00c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00be}
0x00c4…00fa Head {h00=0x0032, h01=0x0050, text=»* CALL GETLRN,FILENAME,1,VOLNAME,LRN,ERCOD«, t00=0x0000, t01=0x00c8}
0x00fa…0104 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00fe}
0x0104…0138 Head {h00=0x0030, h01=0x0050, text=»* TO UPDATE THE LRN OF A STANDARD FILE. «, t00=0x0000, t01=0x0108}
0x0138…0142 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x013c}
0x0142…0184 Head {h00=0x003e, h01=0x0050, text=»* CALL PUTLRN,DATAITEM1,VAL1,VOL1,(VOL2,..),LRN,ERROR «, t00=0x0000, t01=0x0146}
0x0184…018e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0188}
0x018e…01ba (1, 0, 400) Head {h00=0x0028, h01=0x0050, text=»* THE CONTENTS OF THE ITEMS IS: «, t00=0x0001, t01=0x0004}
0x01ba…01de Head {h00=0x0020, h01=0x0050, text=»* DATAITEM1 : FILE NAME«, t00=0x0001, t01=0x0030}
0x01de…0206 Head {h00=0x0024, h01=0x0050, text=»* VAL1 : NR OF VOLUMES«, t00=0x0001, t01=0x0054}
0x0206…0210 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x007c}
0x0210…0260 Head {h00=0x004c, h01=0x0047, text=»*********************************************************************** «, t00=0x0001, t01=0x0086}
0x0260…026a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00d6}
0x026a…0274 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00e0}
0x0274…02ae Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0001, t01=0x00ea}
0x02ae…02e8 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=0x0001, t01=0x0124}
0x02e8…0322 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0001, t01=0x015e}
0x0322…032c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0008}
0x032c…0342 Head {h00=0x0012, h01=0x0050, text=» ENTRY GETLRN «, t00=0x0002, t01=0x0012}
0x0342…0358 Head {h00=0x0012, h01=0x0050, text=» ENTRY PUTLRN «, t00=0x0002, t01=0x0028}
0x0358…0362 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x003e}
0x0362…0378 Head {h00=0x0012, h01=0x0050, text=» EXTRN I:EVA0 «, t00=0x0002, t01=0x0048}
0x0378…038c Head {h00=0x0010, h01=0x0050, text=» EXTRN I:RT1«, t00=0x0002, t01=0x005e}
0x038c…039a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0072}
0x039a…03ec Head {h00=0x004e, h01=0x0050, text=»**************************************************************************«, t00=0x0002, t01=0x0080}
0x03ec…03f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00d2}
0x03f6…0422 Head {h00=0x0028, h01=0x0050, text=»* THIS ROUTINE IS TO GET THE LRN«, t00=0x0002, t01=0x00dc}
0x0422…042c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0108}
0x042c…047e Head {h00=0x004e, h01=0x0050, text=»**************************************************************************«, t00=0x0002, t01=0x0112}
0x047e…0488 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0164}
0x0488…049c Head {h00=0x0010, h01=0x0050, text=»GETLRN EQU *«, t00=0x0002, t01=0x016e}
0x049c…04b0 Head {h00=0x0010, h01=0x0050, text=» CF A14,LRN «, t00=0x0002, t01=0x0182}
0x04b0…04ce Head {h00=0x001a, h01=0x0050, text=» LDR A1,A1 ERROR CODE «, t00=0x0003, t01=0x0008}
0x04ce…04e4 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) WRONG «, t00=0x0003, t01=0x0026}
0x04e4…0500 Head {h00=0x0018, h01=0x0050, text=» LD A4,22,A4 GET LRN«, t00=0x0003, t01=0x003c}
0x0500…052c Head {h00=0x0028, h01=0x0050, text=» CF A14,I:EVA0 ADRESS LRN IN CRDEIT «, t00=0x0003, t01=0x0058}
0x052c…0548 Head {h00=0x0018, h01=0x0050, text=» STR A4,A9 STORE LRN«, t00=0x0003, t01=0x0084}
0x0548…055c Head {h00=0x0010, h01=0x0050, text=» LDK A1,0 OK«, t00=0x0003, t01=0x00a0}
0x055c…056e Head {h00=0x000e, h01=0x0050, text=» RF AFHAND«, t00=0x0003, t01=0x00b4}
0x056e…057c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x00c6}
0x057c…05c2 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0003, t01=0x00d4}
0x05c2…05cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x011a}
0x05cc…05f6 Head {h00=0x0026, h01=0x0050, text=»* THIS ROUTINE IS THE PUTLRN.«, t00=0x0003, t01=0x0124}
0x05f6…0600 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x014e}
0x0600…0648 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0003, t01=0x0158}
0x0648…0652 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0010}
0x0652…0666 Head {h00=0x0010, h01=0x0050, text=»PUTLRN EQU *«, t00=0x0004, t01=0x001a}
0x0666…067a Head {h00=0x0010, h01=0x0050, text=» CF A14,LRN «, t00=0x0004, t01=0x002e}
0x067a…068c Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0004, t01=0x0042}
0x068c…06a2 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) WRONG «, t00=0x0004, t01=0x0054}
0x06a2…06b8 Head {h00=0x0012, h01=0x0050, text=» CF A14,I:EVA0«, t00=0x0004, t01=0x006a}
0x06b8…06cc Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A9 «, t00=0x0004, t01=0x0080}
0x06cc…06f6 Head {h00=0x0026, h01=0x0050, text=» ST A3,22,A4 -STORE RECORD NUMBER.«, t00=0x0004, t01=0x0094}
0x06f6…071c Head {h00=0x0022, h01=0x0050, text=» CF A14,WRITE -WRITE THE LRN. «, t00=0x0004, t01=0x00be}
0x071c…072e Head {h00=0x000e, h01=0x0050, text=» RF AFHAND«, t00=0x0004, t01=0x00e4}
0x072e…0742 Head {h00=0x0010, h01=0x0050, text=»WRONG EQU * «, t00=0x0004, t01=0x00f6}
0x0742…076c Head {h00=0x0026, h01=0x0050, text=» ADKL A12,2 ADJUST PROGRAM POINTER«, t00=0x0004, t01=0x010a}
0x076c…0776 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0134}
0x0776…078a Head {h00=0x0010, h01=0x0050, text=»AFHAND EQU *«, t00=0x0004, t01=0x013e}
0x078a…07aa Head {h00=0x001c, h01=0x0050, text=» LDR A1,A1 -IS IT OKE.? «, t00=0x0004, t01=0x0152}
0x07aa…07c0 Head {h00=0x0012, h01=0x0050, text=» RF(Z) COMSEG «, t00=0x0004, t01=0x0172}
0x07c0…07d2 Head {h00=0x000e, h01=0x0050, text=» RF GETRC «, t00=0x0004, t01=0x0188}
0x07d2…07dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x000a}
0x07dc…07ea Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0014}
0x07ea…081a Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x0005, t01=0x0022}
0x081a…0840 Head {h00=0x0022, h01=0x0050, text=»* G E T R E T U R N C O D E«, t00=0x0005, t01=0x0052}
0x0840…0870 Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x0005, t01=0x0078}
0x0870…0884 Head {h00=0x0010, h01=0x0050, text=»GETRC EQU * «, t00=0x0005, t01=0x00a8}
0x0884…089a Head {h00=0x0012, h01=0x0050, text=» LD A2,RETCOD «, t00=0x0005, t01=0x00bc}
0x089a…08c0 Head {h00=0x0022, h01=0x0050, text=» LDR A1,A2 -RETURN CODE IN A1 «, t00=0x0005, t01=0x00d2}
0x08c0…08e4 Head {h00=0x0020, h01=0x0050, text=» ANKL A1,/028E -I/O ERROR ??«, t00=0x0005, t01=0x00f8}
0x08e4…0908 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) COMSEG -IN A1 FOUT. «, t00=0x0005, t01=0x011c}
0x0908…0922 Head {h00=0x0016, h01=0x0050, text=» LDR A1,A2 -WAIT. «, t00=0x0005, t01=0x0140}
0x0922…094a Head {h00=0x0024, h01=0x0050, text=» ANK A1,/20 -FILE NAME UNKNOWN. «, t00=0x0005, t01=0x015a}
0x094a…0972 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) COMSEG -IN A1 AL WRONG. «, t00=0x0005, t01=0x0182}
0x0972…0984 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0006, t01=0x001a}
0x0984…09aa Head {h00=0x0022, h01=0x0050, text=» ANK A1,1 -DISK NOT OPERABLE. «, t00=0x0006, t01=0x002c}
0x09aa…09c0 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) COMSEG«, t00=0x0006, t01=0x0052}
0x09c0…09e8 Head {h00=0x0024, h01=0x0050, text=» LDR A1,A2 -VOLUME NAME UNKNOWN.«, t00=0x0006, t01=0x0068}
0x09e8…0a1e Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0006, t01=0x0090}
0x0a1e…0a36 Head {h00=0x0014, h01=0x0050, text=»* C O M S E G «, t00=0x0006, t01=0x00c6}
0x0a36…0a66 Head {h00=0x002c, h01=0x0050, text=»* COMMON EXIT PART FOR ALL FUNCTIONS. «, t00=0x0006, t01=0x00de}
0x0a66…0a9c Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0006, t01=0x010e}
0x0a9c…0ab0 Head {h00=0x0010, h01=0x0050, text=»COMSEG EQU *«, t00=0x0006, t01=0x0144}
0x0ab0…0ac2 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x0006, t01=0x0158}
0x0ac2…0ad8 Head {h00=0x0012, h01=0x0050, text=» CF A14,I:EVA0«, t00=0x0006, t01=0x016a}
0x0ad8…0aea Head {h00=0x000e, h01=0x0050, text=» STR A4,A9«, t00=0x0006, t01=0x0180}
0x0aea…0b0e (7, 0, 400) Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 -PRESET COND. REG.«, t00=0x0007, t01=0x0004}
0x0b0e…0b32 Head {h00=0x0020, h01=0x0050, text=» LDR A4,A4 -TJEK ON STATUS. «, t00=0x0007, t01=0x0028}
0x0b32…0b46 Head {h00=0x0010, h01=0x0050, text=» RF(Z) CON0 «, t00=0x0007, t01=0x004c}
0x0b46…0b60 Head {h00=0x0016, h01=0x0050, text=» LDK A1,2 -ERROR. «, t00=0x0007, t01=0x0060}
0x0b60…0b72 Head {h00=0x000e, h01=0x0050, text=»CON0 EQU *«, t00=0x0007, t01=0x007a}
0x0b72…0ba0 Head {h00=0x002a, h01=0x0050, text=» LD A2,2,A13 CHECK CONDITION REGISTER «, t00=0x0007, t01=0x008c}
0x0ba0…0bb4 Head {h00=0x0010, h01=0x0050, text=» SC A1,-2,A2«, t00=0x0007, t01=0x00ba}
0x0bb4…0bcc Head {h00=0x0014, h01=0x0050, text=» CM FREE -FREE. «, t00=0x0007, t01=0x00ce}
0x0bcc…0bde Head {h00=0x000e, h01=0x0050, text=» ABL I:RT1«, t00=0x0007, t01=0x00e6}
0x0bde…0bec Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x00f8}
0x0bec…0bf6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0106}
0x0bf6…0c38 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0007, t01=0x0110}
0x0c38…0c42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0152}
0x0c42…0c70 Head {h00=0x002a, h01=0x0050, text=»* STANDARD ROUTINES FOR THE GETLRN.«, t00=0x0007, t01=0x015c}
0x0c70…0c7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x018a}
0x0c7a…0c84 (8, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0004}
0x0c84…0c96 Head {h00=0x000e, h01=0x0050, text=»LRN EQU * «, t00=0x0008, t01=0x000e}
0x0c96…0cca Head {h00=0x0030, h01=0x0050, text=» CF A14,STANDRD -GET FILENAME + VOLUME NAME «, t00=0x0008, t01=0x0020}
0x0cca…0cfc Head {h00=0x002e, h01=0x0050, text=» CF A14,INIT1 -FC--> E9, REC LENGTH--> 410«, t00=0x0008, t01=0x0054}
0x0cfc…0d28 Head {h00=0x0028, h01=0x0050, text=»VOLG CF A14,INIT2 -BUFADRES + SECNR.«, t00=0x0008, t01=0x0086}
0x0d28…0d4c Head {h00=0x0020, h01=0x0050, text=» CF A14,GETVOL -GET VOLUME. «, t00=0x0008, t01=0x00b2}
0x0d4c…0d5e Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0008, t01=0x00d6}
0x0d5e…0d82 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) ENDLRN -NOT OPERABLE«, t00=0x0008, t01=0x00e8}
0x0d82…0daa Head {h00=0x0024, h01=0x0050, text=» CF A14,NXTECB -ADJUST THE ECB. «, t00=0x0008, t01=0x010c}
0x0daa…0dd0 Head {h00=0x0022, h01=0x0050, text=» CF A14,VTOC -SEARCH THE VTOC.«, t00=0x0008, t01=0x0134}
0x0dd0…0de2 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0008, t01=0x015a}
0x0de2…0e04 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) ENDLRN -I/O ERROR «, t00=0x0008, t01=0x016c}
0x0e04…0e2a Head {h00=0x0022, h01=0x0050, text=» LDR A8,A8 -FILE NOT IN VTOC. «, t00=0x0008, t01=0x018e}
0x0e2a…0e3e Head {h00=0x0010, h01=0x0050, text=» RB(Z) VOLG «, t00=0x0009, t01=0x0024}
0x0e3e…0e52 Head {h00=0x0010, h01=0x0050, text=»ENDLRN EQU *«, t00=0x0009, t01=0x0038}
0x0e52…0e62 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0009, t01=0x004c}
0x0e62…0e6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x005c}
0x0e6c…0e7a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0066}
0x0e7a…0e84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0074}
0x0e84…0e98 Head {h00=0x0010, h01=0x0050, text=»INIT1 EQU * «, t00=0x0009, t01=0x007e}
0x0e98…0eaa Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0009, t01=0x0092}
0x0eaa…0ed2 Head {h00=0x0024, h01=0x0050, text=» ST A1,RETCOD -INIT RETURN CODE «, t00=0x0009, t01=0x00a4}
0x0ed2…0ef6 Head {h00=0x0020, h01=0x0050, text=» LDK A1,/E8 FIRST FILE CODE «, t00=0x0009, t01=0x00cc}
0x0ef6…0f16 Head {h00=0x001c, h01=0x0050, text=» ST A1,ECB STORE IN ECB «, t00=0x0009, t01=0x00f0}
0x0f16…0f32 Head {h00=0x0018, h01=0x0050, text=» LDKL A2,/100 LENGTH«, t00=0x0009, t01=0x0110}
0x0f32…0f56 Head {h00=0x0020, h01=0x0050, text=» ST A2,ECB+4 -RECORD LENGTH «, t00=0x0009, t01=0x012c}
0x0f56…0f66 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0009, t01=0x0150}
0x0f66…0f70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0160}
0x0f70…0f84 Head {h00=0x0010, h01=0x0050, text=»INIT2 EQU * «, t00=0x0009, t01=0x016a}
0x0f84…0fa6 Head {h00=0x001e, h01=0x0050, text=» LDK A2,0 VTOC IN SECTOR 0«, t00=0x0009, t01=0x017e}
0x0fa6…0fcc Head {h00=0x0022, h01=0x0050, text=» ST A2,SECNR+2 -SECTOR NUMBER.«, t00=0x000a, t01=0x0010}
0x0fcc…0fe4 Head {h00=0x0014, h01=0x0050, text=» LDKL A2,BUFFER «, t00=0x000a, t01=0x0036}
0x0fe4…1006 Head {h00=0x001e, h01=0x0050, text=» ST A2,ECB+2 -BUFFER ADRES«, t00=0x000a, t01=0x004e}
0x1006…1018 Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x000a, t01=0x0070}
0x1018…1028 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x000a, t01=0x0082}
0x1028…1036 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0092}
0x1036…1040 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00a0}
0x1040…1070 Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x000a, t01=0x00aa}
0x1070…1090 Head {h00=0x001c, h01=0x0050, text=»* GET THE VOLUME NAME.«, t00=0x000a, t01=0x00da}
0x1090…10c0 Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x000a, t01=0x00fa}
0x10c0…10ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x012a}
0x10ca…10d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0134}
0x10d4…10e8 Head {h00=0x0010, h01=0x0050, text=»GETVOL EQU *«, t00=0x000a, t01=0x013e}
0x10e8…110c Head {h00=0x0020, h01=0x0050, text=» ADS A1,ECB -STORE FILECODE «, t00=0x000a, t01=0x0152}
0x110c…1120 Head {h00=0x0010, h01=0x0050, text=» LC A1,ECB+1«, t00=0x000a, t01=0x0176}
0x1120…1140 Head {h00=0x001c, h01=0x0050, text=» SUK A1,/FA -IS IT FA ? «, t00=0x000a, t01=0x018a}
0x1140…1158 Head {h00=0x0014, h01=0x0050, text=» RF(Z) VOLABSEN «, t00=0x000b, t01=0x001a}
0x1158…116c Head {h00=0x0010, h01=0x0050, text=» CF A14,READ«, t00=0x000b, t01=0x0032}
0x116c…117e Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x000b, t01=0x0046}
0x117e…1196 Head {h00=0x0014, h01=0x0050, text=» RF(NZ) NEXTVOL «, t00=0x000b, t01=0x0058}
0x1196…11c0 Head {h00=0x0026, h01=0x0050, text=» CF A14,CHKVLN -CHECK VOLUME NAME.«, t00=0x000b, t01=0x0070}
0x11c0…11d2 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x000b, t01=0x009a}
0x11d2…11f4 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) NXVOL -NEXT VOLUME«, t00=0x000b, t01=0x00ac}
0x11f4…1204 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x000b, t01=0x00ce}
0x1204…1218 Head {h00=0x0010, h01=0x0050, text=»NXVOL EQU * «, t00=0x000b, t01=0x00de}
0x1218…1242 Head {h00=0x0026, h01=0x0050, text=» LDK A1,/40 -VOLUME NAME UNKNOWN. «, t00=0x000b, t01=0x00f2}
0x1242…1258 Head {h00=0x0012, h01=0x0050, text=» ORS A1,RETCOD«, t00=0x000b, t01=0x011c}
0x1258…1280 Head {h00=0x0024, h01=0x0050, text=»NEXTVOL LDK A1,1 -FILECODE 1 UP.«, t00=0x000b, t01=0x0132}
0x1280…129e Head {h00=0x001a, h01=0x0050, text=» RB GETVOL -ONES MORE.«, t00=0x000b, t01=0x015a}
0x129e…12b8 Head {h00=0x0016, h01=0x0050, text=»VOLABSEN LDK A1,2 «, t00=0x000b, t01=0x0178}
0x12b8…12c8 (12, 0, 400) Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x000c, t01=0x0004}
0x12c8…12d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0014}
0x12d2…12dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x001e}
0x12dc…12e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0028}
0x12e6…12f4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0032}
0x12f4…12fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0040}
0x12fe…1308 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x004a}
0x1308…1348 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x000c, t01=0x0054}
0x1348…136e Head {h00=0x0022, h01=0x0050, text=»* I / O R O U T I N E S . «, t00=0x000c, t01=0x0094}
0x136e…13ae Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x000c, t01=0x00ba}
0x13ae…13b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00fa}
0x13b8…13c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0104}
0x13c2…13d4 Head {h00=0x000e, h01=0x0050, text=»READ EQU *«, t00=0x000c, t01=0x010e}
0x13d4…13f8 Head {h00=0x0020, h01=0x0050, text=» LDK A7,/91 -PHYSICAL READ. «, t00=0x000c, t01=0x0120}
0x13f8…140a Head {h00=0x000e, h01=0x0050, text=» RF IODISC«, t00=0x000c, t01=0x0144}
0x140a…1414 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0156}
0x1414…141e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0160}
0x141e…1432 Head {h00=0x0010, h01=0x0050, text=»WRITE EQU * «, t00=0x000c, t01=0x016a}
0x1432…1456 Head {h00=0x0020, h01=0x0050, text=» LDK A7,/95 -PHYSICAL WRITE.«, t00=0x000c, t01=0x017e}
0x1456…1468 Head {h00=0x000e, h01=0x0050, text=» RF IODISC«, t00=0x000d, t01=0x0012}
0x1468…1472 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0024}
0x1472…147c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x002e}
0x147c…1486 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0038}
0x1486…14b0 Head {h00=0x0026, h01=0x0050, text=»* CHECK THE RETURN CODE.«, t00=0x000d, t01=0x0042}
0x14b0…14ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x006c}
0x14ba…14ce Head {h00=0x0010, h01=0x0050, text=»IODISC EQU *«, t00=0x000d, t01=0x0076}
0x14ce…14f2 Head {h00=0x0020, h01=0x0050, text=» LDK A2,1 -INDICATION RETRY.«, t00=0x000d, t01=0x008a}
0x14f2…1506 Head {h00=0x0010, h01=0x0050, text=» LDKL A8,ECB«, t00=0x000d, t01=0x00ae}
0x1506…1518 Head {h00=0x000e, h01=0x0050, text=»RETRY LKM «, t00=0x000d, t01=0x00c2}
0x1518…1528 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x000d, t01=0x00d4}
0x1528…154a Head {h00=0x001e, h01=0x0050, text=» LD A1,8,A8 -RETURN CODE. «, t00=0x000d, t01=0x00e4}
0x154a…1560 Head {h00=0x0012, h01=0x0050, text=» RF(Z) EOREAD «, t00=0x000d, t01=0x0106}
0x1560…157c Head {h00=0x0018, h01=0x0050, text=» SUK A2,1 -RETRY ?? «, t00=0x000d, t01=0x011c}
0x157c…1590 Head {h00=0x0010, h01=0x0050, text=» RB(Z) RETRY«, t00=0x000d, t01=0x0138}
0x1590…15c0 Head {h00=0x002c, h01=0x0050, text=» ORS A1,RETCOD -STORE TOTAL RETURN CODE «, t00=0x000d, t01=0x014c}
0x15c0…15d4 Head {h00=0x0010, h01=0x0050, text=»EOREAD EQU *«, t00=0x000d, t01=0x017c}
0x15d4…15e4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x000d, t01=0x0190}
0x15e4…15ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0010}
0x15ee…15f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x001a}
0x15f8…1606 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x0024}
0x1606…1638 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x000e, t01=0x0032}
0x1638…1658 Head {h00=0x001c, h01=0x0050, text=»* CHECK VOLUME NAME. «, t00=0x000e, t01=0x0064}
0x1658…168a Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x000e, t01=0x0084}
0x168a…1694 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00b6}
0x1694…16a8 Head {h00=0x0010, h01=0x0050, text=»CHKVLN EQU *«, t00=0x000e, t01=0x00c0}
0x16a8…16ca Head {h00=0x001e, h01=0x0050, text=» LD A2,ECB+2 -BUFFER ADRS.«, t00=0x000e, t01=0x00d4}
0x16ca…16f0 Head {h00=0x0022, h01=0x0050, text=» ST A2,C:STOR -ROUTINE COMPARE«, t00=0x000e, t01=0x00f6}
0x16f0…171a Head {h00=0x0026, h01=0x0050, text=» LDK A3,1 -PRESET NUMBER OF CHECKS«, t00=0x000e, t01=0x011c}
0x171a…1744 Head {h00=0x0026, h01=0x0050, text=» LDKL A4,WORK+8 -BASIC VOLUME NAME«, t00=0x000e, t01=0x0146}
0x1744…1758 Head {h00=0x0010, h01=0x0050, text=»LABEL EQU * «, t00=0x000e, t01=0x0170}
0x1758…176a Head {h00=0x000e, h01=0x0050, text=» LDK A1,6 «, t00=0x000e, t01=0x0184}
0x176a…1790 Head {h00=0x0022, h01=0x0050, text=» CF A14,COMPAR -CHECK THE NAME«, t00=0x000f, t01=0x0008}
0x1790…17a2 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x000f, t01=0x002e}
0x17a2…17b6 Head {h00=0x0010, h01=0x0050, text=» RF(Z) EINDE«, t00=0x000f, t01=0x0040}
0x17b6…17d2 Head {h00=0x0018, h01=0x0050, text=» ADK A3,1 -NEXT NAME«, t00=0x000f, t01=0x0054}
0x17d2…17f8 Head {h00=0x0022, h01=0x0050, text=» CWR A6,A3 -ALL VOLUMES HAD ??«, t00=0x000f, t01=0x0070}
0x17f8…180c Head {h00=0x0010, h01=0x0050, text=» RF(N) EINDE«, t00=0x000f, t01=0x0096}
0x180c…182e Head {h00=0x001e, h01=0x0050, text=» ADK A4,6 -ADJUST POINTER.«, t00=0x000f, t01=0x00aa}
0x182e…1840 Head {h00=0x000e, h01=0x0050, text=» RB LABEL «, t00=0x000f, t01=0x00cc}
0x1840…1856 Head {h00=0x0012, h01=0x0050, text=»EINDE RTN A14 «, t00=0x000f, t01=0x00de}
0x1856…1860 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00f4}
0x1860…186e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x00fe}
0x186e…1878 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x010c}
0x1878…188c Head {h00=0x0010, h01=0x0050, text=»COMPAR EQU *«, t00=0x000f, t01=0x0116}
0x188c…189e Head {h00=0x000e, h01=0x0050, text=» LDK A5,0 «, t00=0x000f, t01=0x012a}
0x189e…18c8 Head {h00=0x0026, h01=0x0050, text=» ADR A4,A1 -THE CORRECT POINTER ? «, t00=0x000f, t01=0x013c}
0x18c8…18e0 Head {h00=0x0014, h01=0x0050, text=»C:LOOP SUK A1,1 «, t00=0x000f, t01=0x0166}
0x18e0…18f2 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x000f, t01=0x017e}
0x18f2…1912 Head {h00=0x001c, h01=0x0050, text=» LCR A5,A4 -CHAR IN A5. «, t00=0x000f, t01=0x0190}
0x1912…1934 Head {h00=0x001e, h01=0x0050, text=» CC A5,0,A1 -COMPARE CHAR.«, t00=0x0010, t01=0x0020}
0x1934…195c Head {h00=0x0024, h01=0x0050, text=»C:STOR EQU *-2 -SAVE ADRES ITEM «, t00=0x0010, t01=0x0042}
0x195c…197e Head {h00=0x001e, h01=0x0050, text=» RF(NZ) NOTSAME -NOT EQUAL«, t00=0x0010, t01=0x006a}
0x197e…1990 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0010, t01=0x008c}
0x1990…19a6 Head {h00=0x0012, h01=0x0050, text=» RB(NZ) C:LOOP«, t00=0x0010, t01=0x009e}
0x19a6…19b6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0010, t01=0x00b4}
0x19b6…19cc Head {h00=0x0012, h01=0x0050, text=»NOTSAME EQU * «, t00=0x0010, t01=0x00c4}
0x19cc…19f0 Head {h00=0x0020, h01=0x0050, text=» SUR A4,A1 -GET POINTER BACK«, t00=0x0010, t01=0x00da}
0x19f0…1a02 Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0010, t01=0x00fe}
0x1a02…1a12 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0010, t01=0x0110}
0x1a12…1a3c Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0010, t01=0x0120}
0x1a3c…1a56 Head {h00=0x0016, h01=0x0050, text=»* GET NEXT ECB. «, t00=0x0010, t01=0x014a}
0x1a56…1a80 Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0010, t01=0x0164}
0x1a80…1a8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x018e}
0x1a8a…1a94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0008}
0x1a94…1aa8 Head {h00=0x0010, h01=0x0050, text=»NXTECB EQU *«, t00=0x0011, t01=0x0012}
0x1aa8…1ac0 Head {h00=0x0014, h01=0x0050, text=» LDKL A2,BUFFE2 «, t00=0x0011, t01=0x0026}
0x1ac0…1aea Head {h00=0x0026, h01=0x0050, text=» ST A2,ECB+2 -SAVE BUFFER2 ADRES. «, t00=0x0011, t01=0x003e}
0x1aea…1b14 Head {h00=0x0026, h01=0x0050, text=» LD A6,BUFFER+10 -FREE SPACE TABLE«, t00=0x0011, t01=0x0068}
0x1b14…1b26 Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x0011, t01=0x0092}
0x1b26…1b50 Head {h00=0x0026, h01=0x0050, text=» LD A3,BUFFER+6 -GET VTOC SECTORS.«, t00=0x0011, t01=0x00a4}
0x1b50…1b76 Head {h00=0x0022, h01=0x0050, text=» ADR A3,A6 -LAST VTOC SECTOR. «, t00=0x0011, t01=0x00ce}
0x1b76…1b86 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0011, t01=0x00f4}
0x1b86…1b90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0104}
0x1b90…1b9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x010e}
0x1b9a…1ba4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0118}
0x1ba4…1bb2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x0122}
0x1bb2…1be8 Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0011, t01=0x0130}
0x1be8…1c14 Head {h00=0x0028, h01=0x0050, text=»* SEARCH FILENAME IN THE -VTOC-. «, t00=0x0011, t01=0x0166}
0x1c14…1c4a (18, 0, 400) Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0012, t01=0x0004}
0x1c4a…1c54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x003a}
0x1c54…1c5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0044}
0x1c5e…1c72 Head {h00=0x0010, h01=0x0050, text=»SEARCH EQU *«, t00=0x0012, t01=0x004e}
0x1c72…1c9a Head {h00=0x0024, h01=0x0050, text=» LDKL A4,WORK -ADRES FILE NAME. «, t00=0x0012, t01=0x0062}
0x1c9a…1cc8 Head {h00=0x002a, h01=0x0050, text=» ST A4,C:STOR STORE IN ROUTINE COMPAR «, t00=0x0012, t01=0x008a}
0x1cc8…1cf4 Head {h00=0x0028, h01=0x0050, text=» LDKL A4,BUFFE2 -BEGIN VTOC RECORD. «, t00=0x0012, t01=0x00b8}
0x1cf4…1d0c Head {h00=0x0014, h01=0x0050, text=»LABEL2 LDK A1,8 «, t00=0x0012, t01=0x00e4}
0x1d0c…1d34 Head {h00=0x0024, h01=0x0050, text=» CF A14,COMPAR -CHECK FILENAMES «, t00=0x0012, t01=0x00fc}
0x1d34…1d46 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0012, t01=0x0124}
0x1d46…1d62 Head {h00=0x0018, h01=0x0050, text=» RF(Z) OKE -SAME ?? «, t00=0x0012, t01=0x0136}
0x1d62…1d88 Head {h00=0x0022, h01=0x0050, text=» ADK A4,42 -NEXT VTOC RECORD. «, t00=0x0012, t01=0x0152}
0x1d88…1db2 Head {h00=0x0026, h01=0x0050, text=» CWK A4,BUFFE2+256 -END OF SECTOR.«, t00=0x0012, t01=0x0178}
0x1db2…1dd6 Head {h00=0x0020, h01=0x0050, text=» RB(2) LABEL2 -NO GET BACK. «, t00=0x0013, t01=0x0012}
0x1dd6…1dea Head {h00=0x0010, h01=0x0050, text=»OKE RTN A14 «, t00=0x0013, t01=0x0036}
0x1dea…1df4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x004a}
0x1df4…1e02 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x0054}
0x1e02…1e0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0062}
0x1e0c…1e16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x006c}
0x1e16…1e42 Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x0013, t01=0x0076}
0x1e42…1e66 Head {h00=0x0020, h01=0x0050, text=»* READ SECTOR OF THE VTOC.«, t00=0x0013, t01=0x00a2}
0x1e66…1e92 Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x0013, t01=0x00c6}
0x1e92…1e9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00f2}
0x1e9c…1ea6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00fc}
0x1ea6…1eb8 Head {h00=0x000e, h01=0x0050, text=»VTOC EQU *«, t00=0x0013, t01=0x0106}
0x1eb8…1ee4 Head {h00=0x0028, h01=0x0050, text=» ST A6,SECNR+2 -STORE SECTOR NUMBER «, t00=0x0013, t01=0x0118}
0x1ee4…1f06 Head {h00=0x001e, h01=0x0050, text=» CF A14,READ -READ SECTOR «, t00=0x0013, t01=0x0144}
0x1f06…1f18 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0013, t01=0x0166}
0x1f18…1f38 Head {h00=0x001c, h01=0x0050, text=» RF(NZ) ERRREAD -ERROR ?«, t00=0x0013, t01=0x0178}
0x1f38…1f62 Head {h00=0x0026, h01=0x0050, text=» CF A14,SEARCH -SEARCH FILE NAME. «, t00=0x0014, t01=0x0008}
0x1f62…1f74 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0014, t01=0x0032}
0x1f74…1f92 Head {h00=0x001a, h01=0x0050, text=» RF(Z) FOUND -FOUND ??«, t00=0x0014, t01=0x0044}
0x1f92…1fb0 Head {h00=0x001a, h01=0x0050, text=» ADK A6,1 -NO NEXT ONE«, t00=0x0014, t01=0x0062}
0x1fb0…1fd4 Head {h00=0x0020, h01=0x0050, text=» CWR A3,A6 -END OF SECTOR ? «, t00=0x0014, t01=0x0080}
0x1fd4…1ffe Head {h00=0x0026, h01=0x0050, text=» RB(NZ) VTOC -NO NEXT VTOC SECTOR.«, t00=0x0014, t01=0x00a4}
0x1ffe…2024 Head {h00=0x0022, h01=0x0050, text=» LDK A1,/20 -FILENAME UNKNOWN «, t00=0x0014, t01=0x00ce}
0x2024…204e Head {h00=0x0026, h01=0x0050, text=» ORS A1,RETCOD -STORE RETURN CODE.«, t00=0x0014, t01=0x00f4}
0x204e…2060 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0014, t01=0x011e}
0x2060…2080 Head {h00=0x001c, h01=0x0050, text=» LDKL A8,0 -NOT PRESENT.«, t00=0x0014, t01=0x0130}
0x2080…2098 Head {h00=0x0014, h01=0x0050, text=»ERRREAD RTN A14 «, t00=0x0014, t01=0x0150}
0x2098…20a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0168}
0x20a2…20ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0172}
0x20ac…20c0 Head {h00=0x0010, h01=0x0050, text=»FOUND EQU * «, t00=0x0014, t01=0x017c}
0x20c0…20d2 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0014, t01=0x0190}
0x20d2…20e2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0015, t01=0x0012}
0x20e2…20ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0022}
0x20ec…20f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x002c}
0x20f6…2104 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x0036}
0x2104…210e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0044}
0x210e…2118 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x004e}
0x2118…2146 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0015, t01=0x0058}
0x2146…2168 Head {h00=0x001e, h01=0x0050, text=»* STANDARD SUB ROUTINE. «, t00=0x0015, t01=0x0086}
0x2168…2196 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0015, t01=0x00a8}
0x2196…21a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00d6}
0x21a0…21aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00e0}
0x21aa…21c0 Head {h00=0x0012, h01=0x0050, text=»STANDRD EQU * «, t00=0x0015, t01=0x00ea}
0x21c0…21d6 Head {h00=0x0012, h01=0x0050, text=» CF A14,QUEUE «, t00=0x0015, t01=0x0100}
0x21d6…21fe Head {h00=0x0024, h01=0x0050, text=» CF A14,I:EVA0 ADDRESS FILENAME «, t00=0x0015, t01=0x0116}
0x21fe…221e Head {h00=0x001c, h01=0x0050, text=» LDK A4,8 BYTES TO MOVE «, t00=0x0015, t01=0x013e}
0x221e…2244 Head {h00=0x0022, h01=0x0050, text=» LDK A3,0 REPLACEMENT IN WORK «, t00=0x0015, t01=0x015e}
0x2244…2270 Head {h00=0x0028, h01=0x0050, text=» CF A14,A:MOVE MOVE FILENAME TO WORK«, t00=0x0015, t01=0x0184}
0x2270…228a Head {h00=0x0016, h01=0x0050, text=» LDK A3,0 CLEAR A3«, t00=0x0016, t01=0x0020}
0x228a…22b6 Head {h00=0x0028, h01=0x0050, text=» LCR A3,A12 FETCH NUMBER OF VOLUMES «, t00=0x0016, t01=0x003a}
0x22b6…22e2 Head {h00=0x0028, h01=0x0050, text=» ADKL A12,1 INCREASE PROGRAMPOINTER «, t00=0x0016, t01=0x0066}
0x22e2…2304 Head {h00=0x001e, h01=0x0050, text=» LDR A7,A3 -SAVE REGISTER.«, t00=0x0016, t01=0x0092}
0x2304…2316 Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x0016, t01=0x00b4}
0x2316…232a Head {h00=0x0010, h01=0x0050, text=»ST:01 EQU * «, t00=0x0016, t01=0x00c6}
0x232a…2340 Head {h00=0x0012, h01=0x0050, text=» CF A14,VOLNAM«, t00=0x0016, t01=0x00da}
0x2340…2352 Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x0016, t01=0x00f0}
0x2352…2364 Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0016, t01=0x0102}
0x2364…237a Head {h00=0x0012, h01=0x0050, text=» RB(NZ) ST:01 «, t00=0x0016, t01=0x0114}
0x237a…238a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0016, t01=0x012a}
0x238a…2394 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x013a}
0x2394…239e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0144}
0x239e…23a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x014e}
0x23a8…23b6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x0158}
0x23b6…23e4 Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0016, t01=0x0166}
0x23e4…2404 (23, 0, 400) Head {h00=0x001c, h01=0x0050, text=»* SUB ROUTINE : QUEUE.«, t00=0x0017, t01=0x0004}
0x2404…240e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0024}
0x240e…243c Head {h00=0x002a, h01=0x0050, text=»* THIS IS TO SHEDULE THE TASK UNTILL«, t00=0x0017, t01=0x002e}
0x243c…245e Head {h00=0x001e, h01=0x0050, text=»* THE ENTRY IS OMITTED. «, t00=0x0017, t01=0x005c}
0x245e…248e Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x0017, t01=0x007e}
0x248e…24a2 Head {h00=0x0010, h01=0x0050, text=»QUEUE EQU * «, t00=0x0017, t01=0x00ae}
0x24a2…24c4 Head {h00=0x001e, h01=0x0050, text=» LD A1,FREE -IS OMITTED ??«, t00=0x0017, t01=0x00c2}
0x24c4…24e8 Head {h00=0x0020, h01=0x0050, text=» RF(Z) Q:RTN -OKAY IF ZERO. «, t00=0x0017, t01=0x00e4}
0x24e8…24f4 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0017, t01=0x0108}
0x24f4…2504 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0017, t01=0x0114}
0x2504…2516 Head {h00=0x000e, h01=0x0050, text=» RB QUEUE «, t00=0x0017, t01=0x0124}
0x2516…252a Head {h00=0x0010, h01=0x0050, text=»Q:RTN EQU * «, t00=0x0017, t01=0x0136}
0x252a…254a Head {h00=0x001c, h01=0x0050, text=» IM FREE -INDICATE USED.«, t00=0x0017, t01=0x014a}
0x254a…255a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0017, t01=0x016a}
0x255a…258c Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0017, t01=0x017a}
0x258c…25ba Head {h00=0x002a, h01=0x0050, text=»* THIS ROUTINE IS TO MOVE THE VOLUME «, t00=0x0018, t01=0x001c}
0x25ba…25e2 Head {h00=0x0024, h01=0x0050, text=»* NAME TO THE DISCRIPTOR BLOCK.«, t00=0x0018, t01=0x004a}
0x25e2…25ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0072}
0x25ec…2626 Head {h00=0x0036, h01=0x0050, text=»* REG. A7 CONTAINS THE INDEX OF THE VOLUME NAME. «, t00=0x0018, t01=0x007c}
0x2626…2658 Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x0018, t01=0x00b6}
0x2658…266c Head {h00=0x0010, h01=0x0050, text=»VOLNAM EQU *«, t00=0x0018, t01=0x00e8}
0x266c…2682 Head {h00=0x0012, h01=0x0050, text=» CF A14,I:EVA0«, t00=0x0018, t01=0x00fc}
0x2682…26a0 Head {h00=0x001a, h01=0x0050, text=» LDR A1,A6 -GET INDEX.«, t00=0x0018, t01=0x0112}
0x26a0…26bc Head {h00=0x0018, h01=0x0050, text=» SLL A1,1 -MUL BY 2.«, t00=0x0018, t01=0x0130}
0x26bc…26da Head {h00=0x001a, h01=0x0050, text=» ADR A1,A6 -ADD VALUE.«, t00=0x0018, t01=0x014c}
0x26da…26fe Head {h00=0x0020, h01=0x0050, text=» SLL A1,1 -MUL BY 2 --> 6 X.«, t00=0x0018, t01=0x016a}
0x26fe…271e Head {h00=0x001c, h01=0x0050, text=» LDK A3,8 -VOLUME ENTRY.«, t00=0x0018, t01=0x018e}
0x271e…273c Head {h00=0x001a, h01=0x0050, text=» ADR A3,A1 -ADD INDEX.«, t00=0x0019, t01=0x001e}
0x273c…2756 Head {h00=0x0016, h01=0x0050, text=» LDK A4,6 -LENGTH «, t00=0x0019, t01=0x003c}
0x2756…277a Head {h00=0x0020, h01=0x0050, text=» CF A14,A:MOVE -MOVE VOLUME «, t00=0x0019, t01=0x0056}
0x277a…278a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0019, t01=0x007a}
0x278a…2798 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x008a}
0x2798…27a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0098}
0x27a2…27ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00a2}
0x27ac…27e8 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0019, t01=0x00ac}
0x27e8…281a Head {h00=0x002e, h01=0x0050, text=»* ROUTINE TO MOVE CORE FROM USER TO THE«, t00=0x0019, t01=0x00e8}
0x281a…2838 Head {h00=0x001a, h01=0x0050, text=»* DISCRIPTOR BLOCK.«, t00=0x0019, t01=0x011a}
0x2838…2842 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0138}
0x2842…2874 Head {h00=0x002e, h01=0x0050, text=»* REG. A9 CONTAINS THE USER CORE ADRES.«, t00=0x0019, t01=0x0142}
0x2874…289c Head {h00=0x0024, h01=0x0050, text=»* REG. A4 CONTAINS THE LENGTH«, t00=0x0019, t01=0x0174}
0x289c…28d0 Head {h00=0x0030, h01=0x0050, text=»* REG. A3 CONTAINS THE ENTRY IN THE WORK.«, t00=0x001a, t01=0x000c}
0x28d0…290e Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x001a, t01=0x0040}
0x290e…2918 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x007e}
0x2918…2922 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0088}
0x2922…2936 Head {h00=0x0010, h01=0x0050, text=»A:MOVE EQU *«, t00=0x001a, t01=0x0092}
0x2936…295e Head {h00=0x0024, h01=0x0050, text=» LDKL A1,WORK ADDRESS WORKFIELD «, t00=0x001a, t01=0x00a6}
0x295e…2980 Head {h00=0x001e, h01=0x0050, text=» ADR A1,A3 -ENTRY IN BLOCK«, t00=0x001a, t01=0x00ce}
0x2980…2998 Head {h00=0x0014, h01=0x0050, text=» ST A1,DISCRIPT «, t00=0x001a, t01=0x00f0}
0x2998…29ba Head {h00=0x001e, h01=0x0050, text=» ST A9,ADRES -USER ADRES. «, t00=0x001a, t01=0x0108}
0x29ba…29cc Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x001a, t01=0x012a}
0x29cc…29e0 Head {h00=0x0010, h01=0x0050, text=»M:LOOP EQU *«, t00=0x001a, t01=0x013c}
0x29e0…2a08 Head {h00=0x0024, h01=0x0050, text=» SUK A4,1 -EVERY THING MOVED ?? «, t00=0x001a, t01=0x0150}
0x2a08…2a1c Head {h00=0x0010, h01=0x0050, text=» RF(N) M:END«, t00=0x001a, t01=0x0178}
0x2a1c…2a30 Head {h00=0x0010, h01=0x0050, text=» LC A1,0,A4 «, t00=0x001a, t01=0x018c}
0x2a30…2a46 Head {h00=0x0012, h01=0x0050, text=»ADRES EQU *-2 «, t00=0x001b, t01=0x0010}
0x2a46…2a5a Head {h00=0x0010, h01=0x0050, text=» SC A1,0,A4 «, t00=0x001b, t01=0x0026}
0x2a5a…2a72 Head {h00=0x0014, h01=0x0050, text=»DISCRIPT EQU *-2«, t00=0x001b, t01=0x003a}
0x2a72…2a84 Head {h00=0x000e, h01=0x0050, text=» RB M:LOOP«, t00=0x001b, t01=0x0052}
0x2a84…2a98 Head {h00=0x0010, h01=0x0050, text=»M:END EQU * «, t00=0x001b, t01=0x0064}
0x2a98…2aa8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001b, t01=0x0078}
0x2aa8…2ab6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x0088}
0x2ab6…2ac0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0096}
0x2ac0…2aca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00a0}
0x2aca…2b1a Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x001b, t01=0x00aa}
0x2b1a…2b24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00fa}
0x2b24…2b5c Head {h00=0x0034, h01=0x0050, text=»* D I S C R I P T O R B L O C K«, t00=0x001b, t01=0x0104}
0x2b5c…2b66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x013c}
0x2b66…2b70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0146}
0x2b70…2b84 Head {h00=0x0010, h01=0x0050, text=»FREE DATA 0 «, t00=0x001b, t01=0x0150}
0x2b84…2b98 Head {h00=0x0010, h01=0x0050, text=»BLOCK EQU * «, t00=0x001b, t01=0x0164}
0x2b98…2bac Head {h00=0x0010, h01=0x0050, text=» DATA BUFFER«, t00=0x001b, t01=0x0178}
0x2bac…2bc0 Head {h00=0x0010, h01=0x0050, text=» DATA BUFFE2«, t00=0x001b, t01=0x018c}
0x2bc0…2bd4 Head {h00=0x0010, h01=0x0050, text=»WORK DATA 0 «, t00=0x001c, t01=0x0010}
0x2bd4…2be2 Head {h00=0x000a, h01=0x0050, text=» RES 6«, t00=0x001c, t01=0x0024}
0x2be2…2bf4 Head {h00=0x000e, h01=0x0050, text=»ECB DATA 0«, t00=0x001c, t01=0x0032}
0x2bf4…2c04 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x001c, t01=0x0044}
0x2c04…2c14 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x001c, t01=0x0054}
0x2c14…2c24 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x001c, t01=0x0064}
0x2c24…2c42 Head {h00=0x001a, h01=0x0050, text=» DATA 0 -RETURN CODE. «, t00=0x001c, t01=0x0074}
0x2c42…2c66 Head {h00=0x0020, h01=0x0050, text=»SECNR DATA 0 -SECTOR NUMBER.«, t00=0x001c, t01=0x0092}
0x2c66…2c84 Head {h00=0x001a, h01=0x0050, text=» DATA 0 CONTROL WORD 2«, t00=0x001c, t01=0x00b6}
0x2c84…2c9a Head {h00=0x0012, h01=0x0050, text=»RETCOD DATA 0 «, t00=0x001c, t01=0x00d4}
0x2c9a…2cae Head {h00=0x0010, h01=0x0050, text=»BUFFER EQU *«, t00=0x001c, t01=0x00ea}
0x2cae…2cbe Head {h00=0x000c, h01=0x0050, text=» RES 128«, t00=0x001c, t01=0x00fe}
0x2cbe…2cd2 Head {h00=0x0010, h01=0x0050, text=»BUFFE2 EQU *«, t00=0x001c, t01=0x010e}
0x2cd2…2ce2 Head {h00=0x000c, h01=0x0050, text=» RES 128«, t00=0x001c, t01=0x0122}
0x2ce2…2cec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0132}
0x2cec…2cf6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x013c}
0x2cf6…2d00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0146}
0x2d00…2d0c Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x001c, t01=0x0150}
0x2d0c…2d10 Head {h00=0x4004, h01=0x0000}
0x2d10…2d14 00 1c 01 5c ┆ ┆
0x2d14…2d1c (29, 1, 8) 20 04 00 00 00 1d 00 04 ┆ ┆
0x2d1c…2d6c (30, 0, 400) 1b 29 22 52 14 80 0e 80 0f 01 22 6d 57 0b 80 0c 47 49 32 08 01 36 52 57 00 35 01 82 00 2a 00 26 03 12 00 00 00 ff 00 00 03 01 36 6d 34 00 21 65 52 1a 21 65 53 16 21 65 57 12 21 65 6e 0e 21 65 6f 0a 21 65 70 06 00 36 00 20 00 2a 00 26 03 12 ┆ )"R "mW GI2 6RW 5 * & 6m4 !eR !eS !eW !en !eo !ep 6 * & ┆
0x2d6c…2dbc 00 00 01 1d 00 00 01 00 11 01 43 11 34 01 00 49 4b 23 38 52 16 01 35 4e 25 37 58 15 01 44 17 30 05 00 44 44 00 36 00 4e 00 2a 00 26 03 12 00 00 01 3b 00 00 30 06 04 44 44 57 06 01 00 11 01 43 11 34 01 00 31 25 21 36 53 05 80 10 49 32 84 41 ┆ C 4 IK#8R 5N%7X D 0 DD 6 N * & ; 0 DDW C 4 1%!6S I2 A┆
0x2dbc…2e0c 60 80 00 36 00 7c 00 2a 00 26 03 12 00 00 01 59 00 00 11 11 01 66 6d 80 0c 25 00 31 86 49 32 6b 48 34 1a 80 12 d5 d1 80 13 27 d0 80 01 10 4a 31 00 36 00 aa 00 2a 00 26 03 12 00 00 01 77 00 00 06 80 12 d3 d0 80 12 d5 d0 40 34 5f 29 48 35 05 ┆` 6 | * & Y fm % 1 I2kH4 ' J1 6 * & w @4_)H5 ┆
0x2e0c…2e5c 80 0c 48 57 03 80 0c 26 49 32 40 01 36 54 00 36 00 d8 00 2a 00 26 03 12 00 00 01 95 00 00 01 84 53 00 3d 65 00 85 32 80 14 80 f3 49 32 2d 01 b2 74 03 2b 52 00 b6 2b 00 6c 23 d4 00 00 36 01 06 00 2a 00 26 03 12 00 00 01 b3 00 00 b7 87 d1 d4 ┆ HW &I2@ 6T 6 * & S =e 2 I2- t +R + l# 6 * & ┆
0x2e5c…2eac 80 11 17 00 60 d0 03 60 11 00 6c 23 60 00 b7 87 d1 60 80 11 17 15 60 13 13 57 00 36 01 34 00 2a 00 26 03 12 00 00 01 d1 00 00 05 01 36 53 80 02 80 11 13 40 60 34 00 25 65 77 32 23 65 78 2e 00 80 65 08 80 db 80 15 80 00 36 01 62 00 2a 00 26 ┆ ` ` l#` ` ` W 6 4 * & 6S @`4 %ew2#ex. e 6 b * &┆
0x2eac…2efc (31, 0, 400) 03 12 00 00 01 ef 00 00 f3 d1 49 32 28 48 fa 18 21 84 6d 14 21 84 53 0b 25 37 54 1c 30 06 04 d3 d3 57 15 01 43 69 00 36 01 90 00 2a 00 26 03 12 00 00 02 0d 00 00 57 08 01 43 68 57 03 01 43 11 01 00 11 57 03 01 00 13 34 01 49 35 1d 49 31 1a ┆ I2(H ! m ! S %7T 0 W Ci 6 * & W ChW C W 4 I5 I1 ┆
0x2efc…2f4c 28 6a 82 02 00 37 00 2e 00 2a 00 26 03 12 00 00 02 2b 00 00 57 14 03 66 52 21 66 54 08 01 43 6a 01 00 11 57 05 41 34 00 41 e9 34 01 30 07 de 00 dd de 00 37 00 5c 00 2a 00 26 03 12 00 00 02 49 00 00 0b dd 73 80 0c 23 49 32 06 01 36 53 01 b2 ┆(j 7 . * & + W fR!fT Cj W A4 A 4 0 7 * & I s #I2 6S ┆
0x2f4c…2f9c 75 34 00 20 dc 65 06 01 43 24 01 00 11 34 01 80 00 37 00 8a 00 2a 00 26 03 12 00 00 02 67 00 00 16 80 02 40 56 40 32 40 51 01 53 10 40 52 40 53 40 54 40 55 01 5f 6b 80 17 2b 80 01 1a 00 00 37 00 b8 00 2a 00 26 03 12 00 00 02 85 00 00 52 41 ┆u4 e C$ 4 7 * & g @V@2@Q S @R@S@T@U _k + 7 * & RA┆
0x2f9c…2fec 10 52 e4 25 1b 52 10 0e 25 52 1c 2e 21 40 10 06 80 13 1a d1 5f 37 05 41 1b 36 41 07 00 37 00 e6 00 2a 00 26 03 12 00 00 02 a3 00 00 02 02 02 07 0b 0f 13 5f 2b 00 53 41 5f 30 41 51 5f 34 41 52 5f 38 41 53 5f 3c 41 54 5f 40 00 37 01 14 00 2a ┆ R % R %R .!@ _7 A 6A 7 * & _+ SA_0AQ_4AR_8AS_<AT_@ 7 *┆
0x2fec…303c 00 26 03 12 00 00 02 c1 00 00 62 5f d0 40 4b d0 23 40 10 02 41 55 80 18 49 32 ad 80 19 49 32 a8 21 52 11 2e 21 52 12 2a 00 37 01 42 00 2a 00 26 03 12 00 00 02 df 00 00 21 52 13 26 21 53 10 1d 49 55 07 80 1a 00 73 5f 57 18 00 70 53 03 70 59 ┆ & b_ @K #@ AU I2 I2 !R .!R * 7 B * & !R &!S IU s_W pS pY┆
0x303c…308c (32, 0, 400) 08 70 db 80 15 70 00 37 01 70 00 2a 00 26 03 12 00 00 02 fd 00 00 f3 d1 49 32 7d 57 05 80 1b 49 32 76 48 56 04 80 1c 57 60 21 53 10 1c 29 52 16 04 80 1d 57 00 38 00 0e 00 2a 00 26 03 12 00 00 03 1b 00 00 54 29 52 17 04 80 1e 57 4c 21 52 19 ┆ p p 7 p * & I2}W I2vHV W`!S )R W 8 * & T)R WL!R ┆
0x308c…30dc 04 29 52 1a 04 80 1f 57 40 36 52 0b 00 0c 10 14 18 1c 00 38 00 3c 00 2a 00 26 03 12 00 00 03 39 00 00 20 24 28 2c 30 21 5f 6c 04 80 20 57 2a 80 21 57 26 80 22 57 22 80 23 57 1e 80 24 57 1a 80 00 38 00 6a 00 2a 00 26 03 12 00 00 03 57 00 00 ┆ )R W@6R 8 < * & 9 $(,0!_l W* !W& "W" #W $W 8 j * & W ┆
0x30dc…312c 25 57 16 80 26 57 12 80 27 57 0e 80 28 57 0a 80 29 57 06 80 2a 57 02 80 2b 21 52 11 03 80 00 38 00 98 00 2a 00 26 03 12 00 00 03 75 00 00 11 13 21 22 54 06 29 84 53 02 3f 01 34 00 01 22 52 01 12 73 30 08 5e 13 80 0c 10 49 32 0f 00 38 00 c6 ┆%W &W 'W (W )W *W +!R 8 * & u !"T ) S ? 4 "R s0 ^ I2 8 ┆
0x312c…317c 00 2a 00 26 03 12 00 00 03 93 00 00 30 08 5e 15 80 0c 10 49 32 05 00 31 25 57 03 01 22 6d 34 00 01 20 52 08 20 db 80 15 20 f3 00 38 00 f4 00 2a 00 26 03 12 00 00 03 b1 00 00 d1 49 32 60 49 fa 15 80 2c 80 2d 20 f3 49 32 54 80 0e 49 32 4f 80 ┆ * & 0 ^ I2 1%W "m4 R 8 * & I2`I , - I2T I2O ┆
0x317c…31cc 0b 49 32 4a 57 0c 21 22 00 38 01 22 00 2a 00 26 03 12 00 00 03 cf 00 00 54 08 01 22 52 80 2e 49 32 3c 01 22 52 00 25 31 80 0c 1e 49 32 30 80 2d 20 f3 49 32 29 09 00 38 01 50 00 2a 00 26 03 12 00 00 03 ed 00 00 dd 73 00 5a dd 62 de d0 d6 5a ┆ I2JW !" 8 " * & T "R .I2< "R %1 I20 - I2) 8 P * & s Z b Z┆
0x31cc…321c (33, 0, 400) d2 30 09 de 80 1d 49 32 15 80 2f 49 32 10 01 22 53 80 2d 20 00 38 01 7e 00 2a 00 26 03 12 00 00 04 0b 00 00 f3 49 32 06 57 0d 80 13 16 d1 80 02 80 0e 80 0f 01 22 6d 34 00 00 4a dc 00 49 4a 0b 49 73 00 39 00 1c 00 2a 00 26 03 12 00 00 04 29 ┆ 0 I2 /I2 "S - 8 ~ * & I2 W "m4 J IJ Is 9 * & )┆
0x321c…326c 00 00 09 49 76 02 49 4a 25 49 72 22 0b 4a 73 00 49 4a 0b 49 73 09 49 76 02 49 4a 25 49 52 0f 23 00 39 00 4a 00 2a 00 26 03 12 00 00 04 47 00 00 49 5a 0b 0b 4a 73 25 4a 52 04 25 4a 71 06 01 00 11 01 43 11 34 01 29 15 52 d1 52 06 29 53 00 39 ┆ Iv IJ%Ir" Js IJ Is Iv IJ%IR # 9 J * & G IZ Js%JR %Jq C 4 ) R R )S 9┆
0x326c…32bc 00 78 00 2a 00 26 03 12 00 00 04 65 00 00 10 96 57 1b 29 15 52 d1 53 15 21 53 10 0e 49 51 87 49 52 84 49 54 81 49 53 7e 57 03 48 55 00 39 00 a6 00 2a 00 26 03 12 00 00 04 83 00 00 79 29 15 52 d2 52 05 49 51 70 57 15 29 15 52 d2 53 0f 48 51 ┆ x * & e W ) R S !S IQ IR IT IS~W HU 9 * & y) R R IQpW ) R S HQ┆
0x32bc…330c 0c 49 53 62 49 52 5f 49 54 5c 00 39 00 d4 00 2a 00 26 03 12 00 00 04 a1 00 00 48 55 59 29 15 52 d3 52 05 49 52 50 57 0f 29 15 52 d3 53 09 48 52 06 49 54 42 48 55 3f 29 00 39 01 02 00 2a 00 26 03 12 00 00 04 bf 00 00 15 52 d4 52 05 49 53 36 ┆ ISbIR_IT 9 * & HUY) R R IRPW ) R S HR ITBHU?) 9 * & R R IS6┆
0x330c…335c 57 00 29 15 52 d5 52 05 49 54 2b 57 1e 29 15 52 d5 53 0c 48 54 15 00 39 01 30 00 2a 00 26 03 12 00 00 04 dd 00 00 49 52 1d 49 51 1a 48 55 17 29 15 52 d5 54 06 48 54 03 48 51 0b 29 15 52 d6 52 09 48 55 02 00 39 01 5e 00 14 00 10 03 07 00 00 ┆W ) R R IT+W ) R S HT 9 0 * & IR IQ HU ) R T HT HQ ) R R HU 9 ^ ┆
0x335c…33ac (34, 0, 400) 04 fb 00 00 57 04 80 13 1a d1 34 00 00 39 01 8c 00 12 00 0e 03 06 00 00 05 03 00 00 00 01 00 01 02 65 00 3a 00 14 00 2a 00 26 03 12 00 00 05 09 00 00 00 2f 00 06 00 8f 00 06 03 e5 00 05 04 e6 00 01 00 74 00 01 01 49 00 01 02 65 00 02 02 11 ┆ W 4 9 e : * & / t I e ┆
0x33ac…33fc 00 3a 00 2a 00 2a 00 26 03 12 00 00 05 27 00 00 00 05 05 29 00 01 03 82 00 00 00 00 00 06 02 ae 00 06 04 6a 00 01 03 a6 00 06 03 44 00 00 00 3a 00 58 00 2a 00 26 03 12 00 00 05 45 00 00 00 42 00 01 02 42 00 05 01 f7 00 06 01 29 00 06 00 1d ┆ : * * & ' ) j D : X * & E B B ) ┆
0x33fc…344c 00 06 03 a1 00 06 03 4f 00 05 01 07 00 3a 00 86 00 2c 00 28 03 13 00 00 05 63 00 00 00 06 00 0e 00 01 04 5c 00 02 01 7e 00 05 00 4e 00 02 00 0e 00 04 05 fc 00 02 03 47 00 04 04 d3 00 3a 00 b4 00 2c 00 28 03 13 00 00 05 83 00 00 00 04 04 f2 ┆ O : , ( c ~ N G : , ( ┆
0x344c…349c 00 02 05 8d 00 03 00 0e 00 03 01 4c 00 03 01 f4 00 03 02 70 00 03 02 bb 00 03 03 55 00 3a 00 e4 00 2c 00 28 03 13 00 00 05 a3 00 00 00 03 02 f9 00 04 00 0e 00 04 01 a9 00 04 02 59 00 04 03 24 00 05 01 11 00 06 03 ea 00 05 03 83 00 3a 01 14 ┆ L p U : , ( Y $ : ┆
0x349c…34ec 00 2a 00 26 03 12 00 00 05 c3 00 00 00 02 04 b3 00 17 00 18 00 19 20 36 33 37 31 00 b8 b0 20 b0 24 b0 32 b0 79 b1 00 b9 01 b9 00 3a 01 44 00 2a 00 26 03 12 00 00 05 e1 00 00 11 d1 00 b1 00 01 b1 99 99 c1 4f c3 01 2a e0 c3 1e 46 4f 52 4d 41 ┆ * & 6371 $ 2 y : D * & O * FORMA┆
0x34ec…353c (35, 0, 398) 54 20 46 49 4c 45 20 56 00 3a 01 72 00 2a 00 26 03 12 00 00 05 ff 00 00 4f 4c 55 4d 45 20 4e 41 4d 45 20 3f 20 20 44 53 43 f0 1f 81 83 00 c0 11 c1 4f c3 0e 44 45 00 3b 00 10 00 2a 00 26 03 12 00 00 06 1d 00 00 4d 4f 20 50 54 53 20 36 38 30 ┆T FILE V : r * & OLUME NAME ? DSC O DE ; * & MO PTS 680┆
0x353c…358c 30 20 c3 12 31 32 4e 43 3d 38 37 30 31 35 35 30 34 30 31 30 00 3b 00 3e 00 2a 00 26 03 12 00 00 06 3b 00 00 30 20 c3 01 3a e0 c3 11 53 59 53 54 45 4d 20 4c 41 4e 47 55 41 47 45 20 3f f2 21 05 01 81 00 3b 00 6c 00 2a 00 26 03 12 00 00 06 59 ┆0 12NC=87015504010 ; > * & ; 0 : SYSTEM LANGUAGE ? ! ; l * & Y┆
0x358c…35dc 00 00 40 10 25 e1 c3 1e 44 41 54 41 20 42 41 53 45 20 56 4f 4c 55 4d 45 20 4e 41 4d 45 20 3f 20 00 3b 00 9a 00 2a 00 26 03 12 00 00 06 77 00 00 20 20 20 44 53 43 f2 1f 1b 83 83 00 c0 10 20 02 00 00 20 02 00 02 20 02 00 04 00 01 00 06 00 3b ┆ @ % DATA BASE VOLUME NAME ? ; * & w DSC ;┆
0x35dc…362c 00 c8 00 2a 00 26 03 12 00 00 06 95 00 00 00 04 00 07 30 01 00 0b 30 01 00 0c 30 02 00 0d 30 02 00 0f 30 02 00 11 30 02 00 13 30 02 00 3b 00 f6 00 2a 00 26 03 12 00 00 06 b3 00 00 00 15 30 02 00 17 30 02 00 19 30 02 00 1b 30 03 00 1d 30 03 ┆ * & 0 0 0 0 0 0 0 ; * & 0 0 0 0 0 ┆
0x362c…367a 00 20 00 05 00 00 00 28 00 05 00 3b 01 24 00 18 00 14 03 09 00 00 06 d1 00 00 00 29 00 2d 00 45 00 56 06 84 05 c6 00 3b 01 52 00 10 00 0c 03 05 00 00 06 dd 00 00 06 c8 05 e9 00 3b 01 6e 00 10 00 0c 03 05 00 00 06 e1 00 00 06 c8 05 e9 ┆ ( ; $ ) - E V ; R ; n ┆
0x367a…3698 (36, 2, 30) 00 3b 01 82 00 0e 00 0a 07 04 00 00 00 00 06 e4 00 00 00 3c 00 08 40 04 00 00 00 3c 00 1a ┆ ; < @ < ┆