|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 6112 (0x17e0)
Types: TextFile
Notes: Mikados_K
Names: »RENAMF.K«
└─⟦33b8385fd⟧ Bits:30009009 PSAP1
└─⟦this⟧ »RENAMF.K«
;*************************************************************
;* PASCAL STANDARD ASSEMBLER PACKAGE. *
;* *
;* (C) 1980 DANSK DATA ELEKTRONIK APS. *
;*************************************************************
;
;*************************************************************
;* PROCEDURE NAME: RENAMF *
;*************************************************************
;
; CT 22-SEP-1980
;
;=============================================================
; DESCRIPTION:
; THIS PROCEDURE RENAMES A MIKADOS FILE.
; PLEASE REFER TO THE PASCAL STANDARD ASSEMBLER PACKAGE MANUAL
; SECTION 8.1 FOR DETAILS.
;
;-------------------------------------------------------------
; STACK CONTENTS ON ENTRY: I I
; I---------------I
; I RETURN ADR. I
; I---------------I
; I -> NEWNAME I
; I---------------I
; I -> OLDNAME I
; I---------------I
; I I
;-------------------------------------------------------------
; STACK CONTENTS ON EXIT: EMPTY
;=============================================================
SKIP
SYMB
RENAMF::
;
;GET AND SAVE POINTERS FROM STACK
;
POP D ;DE=RETURN ADDRESS
POP H ;HL->NEWNAME
SHLD NEWPTR ;SAVE ADDRESS OF NEWNAME
POP H ;HL->OLDNAME
SHLD OLDPTR ;SAVE ADDRESS OF OLDNAME
PUSH D ;PUT RETURN ADDRESS BACK ON STACK
;
;CHECK THAT THERE IS ROOM ON THE HEAP FOR THE DCB
;
LHLD NP ;HL->NEXT VACANT IN HEAP
XCHG ;DE->NEXT VACANT IN HEAP
LXI H,-#256-#48-#40-#10 ;HL:=REQUIRED DISTANCE
; BETWEEN STACK AND HEAP
DAD SP
MOV A,L ;CALCULATE DISTANCE
SUB E
MOV A,H
SBB D ;IS IT SUFFICIENT?
JNC SUFF ;YES
MVI E,'K' ;(SET UP ERROR CODE FOR UNSIFFICENT
; STACK LENGTH)
JMP XEQRR ;NO. TERMINATE WITH RUN TIME ERROR K
SUFF: XCHG ;YES. HL->TOP OF HEAP
SHLD DCBADR ;THIS SHOULD BE THE DATA CONTROL BLOCK
LXI D,#256+#48 ;RESERVE ROOM
DAD D ; ON HEAP
SHLD NP ; FOR DCB
;
;THE FOLLOWING CODE BUILDS AND PUSHES THE PARAMETERS FOR THE
;RENAM SUBROUTINE
;
LXI D,1 ;DCB SIZE
PUSH D
;
;BLANK OLDNAM AND NEWNAM
;
MVI A,#16 ;A=LENGTH OF FIELD TO BE BLANKED
LXI H,OLDNAM ;HL->FIELD TO BE BLANKED (OLDNAM AND
; NEWNAM ARE CONTIGUOUS)
CALL E0LIN ;BLANK IT!
;
;MOVE CURRENT FILE NAME TO OLDNAM. THE CURRENT FILE NAME IS
;TERMINATED BY A ':'
;
LXI B,OLDNAM ;BC->OLDNAM
LHLD OLDPTR ;HL->OLDNAME PARAMETER
INX H ;SKIP LENGTH OF OLDNAME PARAMETER
NEXOLD:MOV A,M ;A:=A CHARACTER FROM OLDNAME PARAMETER
CPI ':' ;IS IT A COLON?
JZ GETDSC ;YES, WE ARE FINISHED
STAX B ;NO, STORE IT IN OLDNAM
INX H ;POINT TO
INX B ; NEXT CHARACTER
JMP NEXOLD ;AND DO IT ONCE MORE
;
;GET DISC ID
;
GETDSC:INX H ;HL->DISC ID IN OLDNAME PARAMETER
MOV C,M ;GET
INX H ; DISC ID
MOV B,M ; INTO BC
INX H ;SKIP THE SUBSEQUENT COLON
PUSH B ;PUSH DISC ID
;
;GET FILE TYPE
;
INX H ;HL->FILE TYPE
MOV B,M ;B:=FILE TYPE
PUSH B ;PUSH FILE TYPE IN MSB.
;
;MOVE NEW FILE NAME TO NEWNAM
;
LXI B,NEWNAM ;BC->NEWNAM
LHLD NEWPTR ;HL->NEWNAME PARAMETER
MOV D,M ;D:=LENGTH OF NEWNAME
INX H ;HL->FIRST CHAR IN NEWNAME
NEXNEW:MOV A,M ;A:=A CHARACTER FROM NEWNAME PARAMETER
STAX B ;STORE THE CHARACTER IN NEWNAM
INX H ;POINT TO
INX B ; NEXT CHARACTER
DCR D ;ANY MORE CHARACTERS LEFT?
JNZ NEXNEW ;YES, DO IT AGAIN
;
;SET UP REMAINING PARAMETERS FOR RENAM SUBROUTINE
;
LXI B,NEWNAM
PUSH B ;PUSH ADDRESS OF NEW NAME
LXI B,OLDNAM
PUSH B ;PUSH ADDRESS OF CURRENT NAME
LHLD DCBADR
PUSH H ;PUSH ADDRESS OF DCB
MVI M,0 ;INDICATE
LXI B,DKÅBN ; FILE
DAD B ; CLOSED
MVI M,0
;
;RENAME!
;
CALL RENAM
;
;SET IORESULT
;
STA IORSLT
;
;RELEASE DCB AREA FROM HEAP
;
LHLD DCBADR ;HL->TOP OF HEAP BEFORE RESERVATION
SHLD NP ;STORE IT AS THE NEW TOP OF HEAP
RET
SKIP
;********** LOCAL DATA *********************
DCBADR:DS 2 ;ADDRESS OF DATA CONTROL BLOCK FOR FILE
OLDNAM:DS 8 ;CURRENT FILE NAME
NEWNAM:DS 8 ;NEW FILE NAME
OLDPTR:DS 2 ;ADDRESS OF OLDNAME PARAMETER
NEWPTR:DS 2 ;ADDRESS OF NEWNAME PARAMETER
END
0x0000…0040 Line {l1=0x3e, l2=»;*************************************************************«, l3=0x3e}
0x0040…0080 Line {l1=0x3e, l2=»;* PASCAL STANDARD ASSEMBLER PACKAGE. *«, l3=0x3e}
0x0080…00c0 Line {l1=0x3e, l2=»;* *«, l3=0x3e}
0x00c0…0100 Line {l1=0x3e, l2=»;* (C) 1980 DANSK DATA ELEKTRONIK APS. *«, l3=0x3e}
0x0100…0140 Line {l1=0x3e, l2=»;*************************************************************«, l3=0x3e}
0x0140…0143 Line {l1=0x01, l2=»;«, l3=0x01}
0x0143…0183 Line {l1=0x3e, l2=»;*************************************************************«, l3=0x3e}
0x0183…01c3 Line {l1=0x3e, l2=»;* PROCEDURE NAME: RENAMF *«, l3=0x3e}
0x01c3…0203 Line {l1=0x3e, l2=»;*************************************************************«, l3=0x3e}
0x0203…0206 Line {l1=0x01, l2=»;«, l3=0x01}
0x0206…0218 Line {l1=0x10, l2=»; CT 22-SEP-1980«, l3=0x10}
0x0218…021b Line {l1=0x01, l2=»;«, l3=0x01}
0x021b…025b Line {l1=0x3e, l2=»;=============================================================«, l3=0x3e}
0x025b…026b Line {l1=0x0e, l2=»; DESCRIPTION:«, l3=0x0e}
0x026b…0295 Line {l1=0x28, l2=»; THIS PROCEDURE RENAMES A MIKADOS FILE.«, l3=0x28}
0x0295…02d5 Line {l1=0x3e, l2=»; PLEASE REFER TO THE PASCAL STANDARD ASSEMBLER PACKAGE MANUAL«, l3=0x3e}
0x02d5…02f1 Line {l1=0x1a, l2=»; SECTION 8.1 FOR DETAILS.«, l3=0x1a}
0x02f1…02f4 Line {l1=0x01, l2=»;«, l3=0x01}
0x02f4…0334 Line {l1=0x3e, l2=»;-------------------------------------------------------------«, l3=0x3e}
0x0334…0366 Line {l1=0x30, l2=»; STACK CONTENTS ON ENTRY: I I«, l3=0x30}
0x0366…0398 Line {l1=0x30, l2=»; I---------------I«, l3=0x30}
0x0398…03ca Line {l1=0x30, l2=»; I RETURN ADR. I«, l3=0x30}
0x03ca…03fc Line {l1=0x30, l2=»; I---------------I«, l3=0x30}
0x03fc…042e Line {l1=0x30, l2=»; I -> NEWNAME I«, l3=0x30}
0x042e…0460 Line {l1=0x30, l2=»; I---------------I«, l3=0x30}
0x0460…0492 Line {l1=0x30, l2=»; I -> OLDNAME I«, l3=0x30}
0x0492…04c4 Line {l1=0x30, l2=»; I---------------I«, l3=0x30}
0x04c4…04f6 Line {l1=0x30, l2=»; I I«, l3=0x30}
0x04f6…0536 Line {l1=0x3e, l2=»;-------------------------------------------------------------«, l3=0x3e}
0x0536…055c Line {l1=0x24, l2=»; STACK CONTENTS ON EXIT: EMPTY«, l3=0x24}
0x055c…059c Line {l1=0x3e, l2=»;=============================================================«, l3=0x3e}
0x059c…059f Line {l1=0x01, l2=» «, l3=0x01}
0x059f…05ac Line {l1=0x0b, l2=» SKIP«, l3=0x0b}
0x05ac…05b9 Line {l1=0x0b, l2=» SYMB«, l3=0x0b}
0x05b9…05bc Line {l1=0x01, l2=» «, l3=0x01}
0x05bc…05c6 Line {l1=0x08, l2=»RENAMF::«, l3=0x08}
0x05c6…05c9 Line {l1=0x01, l2=» «, l3=0x01}
0x05c9…05cc Line {l1=0x01, l2=»;«, l3=0x01}
0x05cc…05ef Line {l1=0x21, l2=»;GET AND SAVE POINTERS FROM STACK«, l3=0x21}
0x05ef…05f2 Line {l1=0x01, l2=»;«, l3=0x01}
0x05f2…061d Line {l1=0x29, l2=» POP D ;DE=RETURN ADDRESS«, l3=0x29}
0x061d…0642 Line {l1=0x23, l2=» POP H ;HL->NEWNAME«, l3=0x23}
0x0642…0673 Line {l1=0x2f, l2=» SHLD NEWPTR ;SAVE ADDRESS OF NEWNAME«, l3=0x2f}
0x0673…0698 Line {l1=0x23, l2=» POP H ;HL->OLDNAME«, l3=0x23}
0x0698…06c9 Line {l1=0x2f, l2=» SHLD OLDPTR ;SAVE ADDRESS OF OLDNAME«, l3=0x2f}
0x06c9…0703 Line {l1=0x38, l2=» PUSH D ;PUT RETURN ADDRESS BACK ON STACK«, l3=0x38}
0x0703…0706 Line {l1=0x01, l2=» «, l3=0x01}
0x0706…0709 Line {l1=0x01, l2=»;«, l3=0x01}
0x0709…073c Line {l1=0x31, l2=»;CHECK THAT THERE IS ROOM ON THE HEAP FOR THE DCB«, l3=0x31}
0x073c…073f Line {l1=0x01, l2=»;«, l3=0x01}
0x073f…0770 Line {l1=0x2f, l2=» LHLD NP ;HL->NEXT VACANT IN HEAP«, l3=0x2f}
0x0770…07a1 Line {l1=0x2f, l2=» XCHG ;DE->NEXT VACANT IN HEAP«, l3=0x2f}
0x07a1…07dc Line {l1=0x39, l2=» LXI H,-#256-#48-#40-#10 ;HL:=REQUIRED DISTANCE«, l3=0x39}
0x07dc…0819 Line {l1=0x3b, l2=» ; BETWEEN STACK AND HEAP«, l3=0x3b}
0x0819…082c Line {l1=0x11, l2=» DAD SP«, l3=0x11}
0x082c…0858 Line {l1=0x2a, l2=» MOV A,L ;CALCULATE DISTANCE«, l3=0x2a}
0x0858…086a Line {l1=0x10, l2=» SUB E«, l3=0x10}
0x086a…087e Line {l1=0x12, l2=» MOV A,H«, l3=0x12}
0x087e…08a9 Line {l1=0x29, l2=» SBB D ;IS IT SUFFICIENT?«, l3=0x29}
0x08a9…08c6 Line {l1=0x1b, l2=» JNC SUFF ;YES«, l3=0x1b}
0x08c6…0902 Line {l1=0x3a, l2=» MVI E,'K' ;(SET UP ERROR CODE FOR UNSIFFICENT«, l3=0x3a}
0x0902…092b Line {l1=0x27, l2=» ; STACK LENGTH)«, l3=0x27}
0x092b…0968 Line {l1=0x3b, l2=» JMP XEQRR ;NO. TERMINATE WITH RUN TIME ERROR K«, l3=0x3b}
0x0968…0971 Line {l1=0x07, l2=» «, l3=0x07}
0x0971…099f Line {l1=0x2c, l2=»SUFF: XCHG ;YES. HL->TOP OF HEAP«, l3=0x2c}
0x099f…09de Line {l1=0x3d, l2=» SHLD DCBADR ;THIS SHOULD BE THE DATA CONTROL BLOCK«, l3=0x3d}
0x09de…0a07 Line {l1=0x27, l2=» LXI D,#256+#48 ;RESERVE ROOM«, l3=0x27}
0x0a07…0a2e Line {l1=0x25, l2=» DAD D ; ON HEAP«, l3=0x25}
0x0a2e…0a58 Line {l1=0x28, l2=» SHLD NP ; FOR DCB«, l3=0x28}
0x0a58…0a61 Line {l1=0x07, l2=» «, l3=0x07}
0x0a61…0a64 Line {l1=0x01, l2=»;«, l3=0x01}
0x0a64…0aa2 Line {l1=0x3c, l2=»;THE FOLLOWING CODE BUILDS AND PUSHES THE PARAMETERS FOR THE«, l3=0x3c}
0x0aa2…0ab5 Line {l1=0x11, l2=»;RENAM SUBROUTINE«, l3=0x11}
0x0ab5…0ab8 Line {l1=0x01, l2=»;«, l3=0x01}
0x0ab8…0ada Line {l1=0x20, l2=» LXI D,1 ;DCB SIZE«, l3=0x20}
0x0ada…0aec Line {l1=0x10, l2=» PUSH D«, l3=0x10}
0x0aec…0aef Line {l1=0x01, l2=» «, l3=0x01}
0x0aef…0af2 Line {l1=0x01, l2=»;«, l3=0x01}
0x0af2…0b0c Line {l1=0x18, l2=»;BLANK OLDNAM AND NEWNAM«, l3=0x18}
0x0b0c…0b0f Line {l1=0x01, l2=»;«, l3=0x01}
0x0b0f…0b49 Line {l1=0x38, l2=» MVI A,#16 ;A=LENGTH OF FIELD TO BE BLANKED«, l3=0x38}
0x0b49…0b87 Line {l1=0x3c, l2=» LXI H,OLDNAM ;HL->FIELD TO BE BLANKED (OLDNAM AND«, l3=0x3c}
0x0b87…0bc1 Line {l1=0x38, l2=» ; NEWNAM ARE CONTIGUOUS)«, l3=0x38}
0x0bc1…0be5 Line {l1=0x22, l2=» CALL E0LIN ;BLANK IT!«, l3=0x22}
0x0be5…0be8 Line {l1=0x01, l2=» «, l3=0x01}
0x0be8…0beb Line {l1=0x01, l2=»;«, l3=0x01}
0x0beb…0c28 Line {l1=0x3b, l2=»;MOVE CURRENT FILE NAME TO OLDNAM. THE CURRENT FILE NAME IS«, l3=0x3b}
0x0c28…0c3e Line {l1=0x14, l2=»;TERMINATED BY A ':'«, l3=0x14}
0x0c3e…0c41 Line {l1=0x01, l2=»;«, l3=0x01}
0x0c41…0c66 Line {l1=0x23, l2=» LXI B,OLDNAM ;BC->OLDNAM«, l3=0x23}
0x0c66…0c96 Line {l1=0x2e, l2=» LHLD OLDPTR ;HL->OLDNAME PARAMETER«, l3=0x2e}
0x0c96…0cd1 Line {l1=0x39, l2=» INX H ;SKIP LENGTH OF OLDNAME PARAMETER«, l3=0x39}
0x0cd1…0d11 Line {l1=0x3e, l2=»NEXOLD:MOV A,M ;A:=A CHARACTER FROM OLDNAME PARAMETER«, l3=0x3e}
0x0d11…0d3a Line {l1=0x27, l2=» CPI ':' ;IS IT A COLON?«, l3=0x27}
0x0d3a…0d69 Line {l1=0x2d, l2=» JZ GETDSC ;YES, WE ARE FINISHED«, l3=0x2d}
0x0d69…0d9a Line {l1=0x2f, l2=» STAX B ;NO, STORE IT IN OLDNAM«, l3=0x2f}
0x0d9a…0dbd Line {l1=0x21, l2=» INX H ;POINT TO«, l3=0x21}
0x0dbd…0de9 Line {l1=0x2a, l2=» INX B ; NEXT CHARACTER«, l3=0x2a}
0x0de9…0e17 Line {l1=0x2c, l2=» JMP NEXOLD ;AND DO IT ONCE MORE«, l3=0x2c}
0x0e17…0e1a Line {l1=0x01, l2=» «, l3=0x01}
0x0e1a…0e1d Line {l1=0x01, l2=»;«, l3=0x01}
0x0e1d…0e2b Line {l1=0x0c, l2=»;GET DISC ID«, l3=0x0c}
0x0e2b…0e2e Line {l1=0x01, l2=»;«, l3=0x01}
0x0e2e…0e69 Line {l1=0x39, l2=»GETDSC:INX H ;HL->DISC ID IN OLDNAME PARAMETER«, l3=0x39}
0x0e69…0e87 Line {l1=0x1c, l2=» MOV C,M ;GET«, l3=0x1c}
0x0e87…0eab Line {l1=0x22, l2=» INX H ; DISC ID«, l3=0x22}
0x0eab…0ed1 Line {l1=0x24, l2=» MOV B,M ; INTO BC«, l3=0x24}
0x0ed1…0f05 Line {l1=0x32, l2=» INX H ;SKIP THE SUBSEQUENT COLON«, l3=0x32}
0x0f05…0f2c Line {l1=0x25, l2=» PUSH B ;PUSH DISC ID«, l3=0x25}
0x0f2c…0f2f Line {l1=0x01, l2=» «, l3=0x01}
0x0f2f…0f32 Line {l1=0x01, l2=»;«, l3=0x01}
0x0f32…0f42 Line {l1=0x0e, l2=»;GET FILE TYPE«, l3=0x0e}
0x0f42…0f45 Line {l1=0x01, l2=»;«, l3=0x01}
0x0f45…0f6d Line {l1=0x26, l2=» INX H ;HL->FILE TYPE«, l3=0x26}
0x0f6d…0f94 Line {l1=0x25, l2=» MOV B,M ;B:=FILE TYPE«, l3=0x25}
0x0f94…0fc5 Line {l1=0x2f, l2=» PUSH B ;PUSH FILE TYPE IN MSB.«, l3=0x2f}
0x0fc5…0fc8 Line {l1=0x01, l2=» «, l3=0x01}
0x0fc8…0fcb Line {l1=0x01, l2=»;«, l3=0x01}
0x0fcb…0fea Line {l1=0x1d, l2=»;MOVE NEW FILE NAME TO NEWNAM«, l3=0x1d}
0x0fea…0fed Line {l1=0x01, l2=»;«, l3=0x01}
0x0fed…1012 Line {l1=0x23, l2=» LXI B,NEWNAM ;BC->NEWNAM«, l3=0x23}
0x1012…1042 Line {l1=0x2e, l2=» LHLD NEWPTR ;HL->NEWNAME PARAMETER«, l3=0x2e}
0x1042…1071 Line {l1=0x2d, l2=» MOV D,M ;D:=LENGTH OF NEWNAME«, l3=0x2d}
0x1071…10a5 Line {l1=0x32, l2=» INX H ;HL->FIRST CHAR IN NEWNAME«, l3=0x32}
0x10a5…10e5 Line {l1=0x3e, l2=»NEXNEW:MOV A,M ;A:=A CHARACTER FROM NEWNAME PARAMETER«, l3=0x3e}
0x10e5…111d Line {l1=0x36, l2=» STAX B ;STORE THE CHARACTER IN NEWNAM«, l3=0x36}
0x111d…1140 Line {l1=0x21, l2=» INX H ;POINT TO«, l3=0x21}
0x1140…116b Line {l1=0x29, l2=» INX B ; NEXT CHARACTER«, l3=0x29}
0x116b…119f Line {l1=0x32, l2=» DCR D ;ANY MORE CHARACTERS LEFT?«, l3=0x32}
0x119f…11ca Line {l1=0x29, l2=» JNZ NEXNEW ;YES, DO IT AGAIN«, l3=0x29}
0x11ca…11cd Line {l1=0x01, l2=» «, l3=0x01}
0x11cd…11d0 Line {l1=0x01, l2=»;«, l3=0x01}
0x11d0…1203 Line {l1=0x31, l2=»;SET UP REMAINING PARAMETERS FOR RENAM SUBROUTINE«, l3=0x31}
0x1203…1206 Line {l1=0x01, l2=»;«, l3=0x01}
0x1206…121f Line {l1=0x17, l2=» LXI B,NEWNAM«, l3=0x17}
0x121f…1252 Line {l1=0x31, l2=» PUSH B ;PUSH ADDRESS OF NEW NAME«, l3=0x31}
0x1252…126b Line {l1=0x17, l2=» LXI B,OLDNAM«, l3=0x17}
0x126b…12a2 Line {l1=0x35, l2=» PUSH B ;PUSH ADDRESS OF CURRENT NAME«, l3=0x35}
0x12a2…12b9 Line {l1=0x15, l2=» LHLD DCBADR«, l3=0x15}
0x12b9…12e7 Line {l1=0x2c, l2=» PUSH H ;PUSH ADDRESS OF DCB«, l3=0x2c}
0x12e7…130a Line {l1=0x21, l2=» MVI M,0 ;INDICATE«, l3=0x21}
0x130a…132b Line {l1=0x1f, l2=» LXI B,DKÅBN ; FILE«, l3=0x1f}
0x132b…1350 Line {l1=0x23, l2=» DAD B ; CLOSED«, l3=0x23}
0x1350…1364 Line {l1=0x12, l2=» MVI M,0«, l3=0x12}
0x1364…1367 Line {l1=0x01, l2=» «, l3=0x01}
0x1367…136a Line {l1=0x01, l2=»;«, l3=0x01}
0x136a…1374 Line {l1=0x08, l2=»;RENAME!«, l3=0x08}
0x1374…1377 Line {l1=0x01, l2=»;«, l3=0x01}
0x1377…138d Line {l1=0x14, l2=» CALL RENAM«, l3=0x14}
0x138d…1390 Line {l1=0x01, l2=» «, l3=0x01}
0x1390…1393 Line {l1=0x01, l2=»;«, l3=0x01}
0x1393…13a2 Line {l1=0x0d, l2=»;SET IORESULT«, l3=0x0d}
0x13a2…13a5 Line {l1=0x01, l2=»;«, l3=0x01}
0x13a5…13bc Line {l1=0x15, l2=» STA IORSLT«, l3=0x15}
0x13bc…13bf Line {l1=0x01, l2=» «, l3=0x01}
0x13bf…13c2 Line {l1=0x01, l2=»;«, l3=0x01}
0x13c2…13df Line {l1=0x1b, l2=»;RELEASE DCB AREA FROM HEAP«, l3=0x1b}
0x13df…13e2 Line {l1=0x01, l2=»;«, l3=0x01}
0x13e2…141e Line {l1=0x3a, l2=» LHLD DCBADR ;HL->TOP OF HEAP BEFORE RESERVATION«, l3=0x3a}
0x141e…1457 Line {l1=0x37, l2=» SHLD NP ;STORE IT AS THE NEW TOP OF HEAP«, l3=0x37}
0x1457…1460 Line {l1=0x07, l2=» «, l3=0x07}
0x1460…146c Line {l1=0x0a, l2=» RET«, l3=0x0a}
0x146c…146f Line {l1=0x01, l2=» «, l3=0x01}
0x146f…147c Line {l1=0x0b, l2=» SKIP«, l3=0x0b}
0x147c…14aa Line {l1=0x2c, l2=»;********** LOCAL DATA *********************«, l3=0x2c}
0x14aa…14ad Line {l1=0x01, l2=» «, l3=0x01}
0x14ad…14ed Line {l1=0x3e, l2=»DCBADR:DS 2 ;ADDRESS OF DATA CONTROL BLOCK FOR FILE«, l3=0x3e}
0x14ed…1518 Line {l1=0x29, l2=»OLDNAM:DS 8 ;CURRENT FILE NAME«, l3=0x29}
0x1518…153f Line {l1=0x25, l2=»NEWNAM:DS 8 ;NEW FILE NAME«, l3=0x25}
0x153f…1575 Line {l1=0x34, l2=»OLDPTR:DS 2 ;ADDRESS OF OLDNAME PARAMETER«, l3=0x34}
0x1575…15ab Line {l1=0x34, l2=»NEWPTR:DS 2 ;ADDRESS OF NEWNAME PARAMETER«, l3=0x34}
0x15ab…15ae Line {l1=0x01, l2=» «, l3=0x01}
0x15ae…15ba Line {l1=0x0a, l2=» END«, l3=0x0a}
0x15ba…15c0 00 00 63 63 63 63 ┆ cccc┆
0x15c0…15e0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x10…]