|
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: 7672 (0x1df8)
Notes: pts_type(SC)
Names: »CASTTS.SC«
└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
└─⟦this⟧ »PTSDEMO/CASTTS.SC«
IDENT CASTTS SYSTEM START
DDUM DEMODDIV
PDIV
EXPROC DAUCCY
EXPROC DBUOPR
EXPROC EHISYS
EXPROC QIRDBS
EXPROC XBFMT
EXPROC XEERR
EXPROC ZAOPND
EXPROC ZBCLSD
EXPROC ZKOPNF
EXPROC ZLCLSF
EXPROC ZCRDD
EXPROC ZGREA
EXPROC ZHWRID
EXPROC FMOVE
ENTRY CASTTS
ENTRY CBSTTS
ENTRY SPAP32
*********************************************************************
*
* SYSTEM START - PART 1
*
************************************************************************
CASTTS PROC
CA000
MOVE YDSTATUS,=D'1' SYSTEM START PROGRESSING
*
* PERFORM INITIALISATIONS
*
MOVE NDLASTRM,=D'100' TERM NUMBERING
*
* THE NEXT FORMAT IS INCLUDED IN THE APPLICATION.
* TO INSTRUCT XBFMT, NOT TO READ A FORMAT, PARAMETER W'0'
* IS PASSED TO XBFMT
*
CALL FMOVE,FCFORMAT,FMTVOL
PERF XBFMT,=W'0'
TBT SBCANCEL,CA900
CALL FMOVE,FCFORMAT,FMTSYS
PERF XBFMT,=W'0' LANGUAGE AND DBS VOLNAME
TBT SBCANCEL,CA900
MOVE NDTRMLGG,YDSYSLGG SET LANGUAGE
B CA999
CA900
MOVE YDSTATUS,=D'0' RESET TO SYSTEM NOT STARTED
CA999
RET
PEND
*********************************************************************
*
* GET FORMAT FILE VOLUME NAME
*
*********************************************************************
FMTVOL FRMT
FSL
FTEXT 'FORMAT FILE VOLUME NAME ? DSC'
FKI 31,MINL=1,MAXL=3,NUM,NEOI,ME
FCOPY VCVOLNR2
FMEND
************************************************************************
*
* GET SYSTEM LANGUAGE AND VOLUME NUMBERS
*
************************************************************************
FMTSYS FRMT
FSL
FTEXT 'SYSTEM LANGUAGE ?'
FKI 33,MINL=1,MAXL=1,NUM,NCLR,NEOI,APPL=5
FMEL '9',YDSYSLGG
FNL
FTEXT 'DATA BASE VOLUME NAME ? DSC'
FKI 31,ME,MINL=3,MAXL=3,NUM,NEOI,APPL=27
FCOPY VCVOLNR1
FMEND
************************************************************************
*
* SYSTEM START - PART 2
*
************************************************************************
CBSTTS PROC
CB000
*
* READ SYSTEM RECORD
*
MOVE YDSYSRNR,=D'1'
MUL YDSYSRNR,KDSHIFT SHIFT NUMBER
PERF ZCRDD,YDSYSRNR,NDLRN1,KW1 READ SYSTEM RECORD
TBT SBCANCEL,CB900
TBT SBRECAVB,CB050
*
* RECORD NOT AVAILABLE, PERFORM INITIALISATIONS
*
PERF EHISYS
*
* WRITE THE SYSTEM RECORD TO THE DATABASE
* AND UPDATE THE LRN ON DISK, SO NEXT TIME THE SYSTEM
* RECORD CAN BE READ ANYHOW
*
PERF ZHWRID,YDSYSRNR,NDLRN1
TBT SBCANCEL,CB900
PERF ZBCLSD CLOSE DATABASE TO UPDATE LRN
TBT SBCANCEL,CB900
PERF ZAOPND AND OPEN DATABASE AGAIN
TBT SBCANCEL,CB900
B CB500 CONTINUE
CB050
*
* CHECK WETHER OR NOT THE SYSTEM HAS BEEN CLOSED
* PROPERLY IN THE LAST DEMONSTRATION
*
0x0000…003c (0, 0, 400) Head {h00=0x0038, h01=0x0050, text=» IDENT CASTTS SYSTEM START«, t00=0x0000, t01=0x0004}
0x003c…0052 Head {h00=0x0012, h01=0x000e, text=» DDUM DEMODDIV«, t00=0x0000, t01=0x0040}
0x0052…0060 Head {h00=0x000a, h01=0x0005, text=» PDIV «, t00=0x0000, t01=0x0056}
0x0060…0076 Head {h00=0x0012, h01=0x0050, text=» EXPROC DAUCCY«, t00=0x0000, t01=0x0064}
0x0076…008c Head {h00=0x0012, h01=0x0050, text=» EXPROC DBUOPR«, t00=0x0000, t01=0x007a}
0x008c…00a2 Head {h00=0x0012, h01=0x0050, text=» EXPROC EHISYS«, t00=0x0000, t01=0x0090}
0x00a2…00b8 Head {h00=0x0012, h01=0x0050, text=» EXPROC QIRDBS«, t00=0x0000, t01=0x00a6}
0x00b8…00ce Head {h00=0x0012, h01=0x0050, text=» EXPROC XBFMT «, t00=0x0000, t01=0x00bc}
0x00ce…00e4 Head {h00=0x0012, h01=0x0050, text=» EXPROC XEERR «, t00=0x0000, t01=0x00d2}
0x00e4…00fa Head {h00=0x0012, h01=0x0050, text=» EXPROC ZAOPND«, t00=0x0000, t01=0x00e8}
0x00fa…0110 Head {h00=0x0012, h01=0x0050, text=» EXPROC ZBCLSD«, t00=0x0000, t01=0x00fe}
0x0110…0126 Head {h00=0x0012, h01=0x0050, text=» EXPROC ZKOPNF«, t00=0x0000, t01=0x0114}
0x0126…013c Head {h00=0x0012, h01=0x0050, text=» EXPROC ZLCLSF«, t00=0x0000, t01=0x012a}
0x013c…0152 Head {h00=0x0012, h01=0x0050, text=» EXPROC ZCRDD «, t00=0x0000, t01=0x0140}
0x0152…0168 Head {h00=0x0012, h01=0x0050, text=» EXPROC ZGREA «, t00=0x0000, t01=0x0156}
0x0168…017e Head {h00=0x0012, h01=0x0050, text=» EXPROC ZHWRID«, t00=0x0000, t01=0x016c}
0x017e…0194 Head {h00=0x0012, h01=0x0050, text=» EXPROC FMOVE «, t00=0x0000, t01=0x0182}
0x0194…01aa Head {h00=0x0012, h01=0x0050, text=» ENTRY CASTTS «, t00=0x0001, t01=0x0008}
0x01aa…01c0 Head {h00=0x0012, h01=0x0050, text=» ENTRY CBSTTS «, t00=0x0001, t01=0x001e}
0x01c0…01d6 Head {h00=0x0012, h01=0x0050, text=» ENTRY SPAP32 «, t00=0x0001, t01=0x0034}
0x01d6…0224 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0001, t01=0x004a}
0x0224…022e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0098}
0x022e…024e Head {h00=0x001c, h01=0x0050, text=»* SYSTEM START - PART 1«, t00=0x0001, t01=0x00a2}
0x024e…0258 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00c2}
0x0258…02a8 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0001, t01=0x00cc}
0x02a8…02bc Head {h00=0x0010, h01=0x0050, text=»CASTTS PROC «, t00=0x0001, t01=0x011c}
0x02bc…02ca Head {h00=0x000a, h01=0x0050, text=»CA000 «, t00=0x0001, t01=0x0130}
0x02ca…0300 Head {h00=0x0032, h01=0x0050, text=» MOVE YDSTATUS,=D'1' SYSTEM START PROGRESSING «, t00=0x0001, t01=0x013e}
0x0300…030a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0174}
0x030a…032c Head {h00=0x001e, h01=0x0050, text=»* PERFORM INITIALISATIONS «, t00=0x0001, t01=0x017e}
0x032c…0336 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0010}
0x0336…0364 Head {h00=0x002a, h01=0x0050, text=» MOVE NDLASTRM,=D'100' TERM NUMBERING «, t00=0x0002, t01=0x001a}
0x0364…036e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0048}
0x036e…03a8 Head {h00=0x0036, h01=0x0050, text=»* THE NEXT FORMAT IS INCLUDED IN THE APPLICATION. «, t00=0x0002, t01=0x0052}
0x03a8…03ea Head {h00=0x003e, h01=0x0050, text=»* TO INSTRUCT XBFMT, NOT TO READ A FORMAT, PARAMETER W'0' «, t00=0x0002, t01=0x008c}
0x03ea…0406 Head {h00=0x0018, h01=0x0050, text=»* IS PASSED TO XBFMT«, t00=0x0002, t01=0x00ce}
0x0406…0410 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00ea}
0x0410…043e Head {h00=0x002a, h01=0x0050, text=» CALL FMOVE,FCFORMAT,FMTVOL«, t00=0x0002, t01=0x00f4}
0x043e…0462 Head {h00=0x0020, h01=0x0050, text=» PERF XBFMT,=W'0'«, t00=0x0002, t01=0x0122}
0x0462…048a Head {h00=0x0024, h01=0x0050, text=» TBT SBCANCEL,CA900 «, t00=0x0002, t01=0x0146}
0x048a…04ae Head {h00=0x0020, h01=0x0050, text=» CALL FMOVE,FCFORMAT,FMTSYS «, t00=0x0002, t01=0x016e}
0x04ae…04e0 (3, 0, 400) Head {h00=0x002e, h01=0x0050, text=» PERF XBFMT,=W'0' LANGUAGE AND DBS VOLNAME«, t00=0x0003, t01=0x0004}
0x04e0…04fc Head {h00=0x0018, h01=0x0050, text=» TBT SBCANCEL,CA900 «, t00=0x0003, t01=0x0036}
0x04fc…0528 Head {h00=0x0028, h01=0x0050, text=» MOVE NDTRMLGG,YDSYSLGG SET LANGUAGE«, t00=0x0003, t01=0x0052}
0x0528…0538 Head {h00=0x000c, h01=0x0050, text=» B CA999«, t00=0x0003, t01=0x007e}
0x0538…0546 Head {h00=0x000a, h01=0x0050, text=»CA900 «, t00=0x0003, t01=0x008e}
0x0546…057e Head {h00=0x0034, h01=0x0050, text=» MOVE YDSTATUS,=D'0' RESET TO SYSTEM NOT STARTED«, t00=0x0003, t01=0x009c}
0x057e…058c Head {h00=0x000a, h01=0x0050, text=»CA999 «, t00=0x0003, t01=0x00d4}
0x058c…0598 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0003, t01=0x00e2}
0x0598…05a6 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0003, t01=0x00ee}
0x05a6…05f4 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0003, t01=0x00fc}
0x05f4…05fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x014a}
0x05fe…0624 Head {h00=0x0022, h01=0x0050, text=»* GET FORMAT FILE VOLUME NAME«, t00=0x0003, t01=0x0154}
0x0624…062e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x017a}
0x062e…067c Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0003, t01=0x0184}
0x067c…0692 Head {h00=0x0012, h01=0x0050, text=»FMTVOL FRMT «, t00=0x0004, t01=0x0042}
0x0692…06a6 Head {h00=0x0010, h01=0x0050, text=» FSL«, t00=0x0004, t01=0x0058}
0x06a6…06e0 Head {h00=0x0036, h01=0x0050, text=» FTEXT 'FORMAT FILE VOLUME NAME ? DSC' «, t00=0x0004, t01=0x006c}
0x06e0…0716 Head {h00=0x0032, h01=0x0050, text=» FKI 31,MINL=1,MAXL=3,NUM,NEOI,ME «, t00=0x0004, t01=0x00a6}
0x0716…0738 Head {h00=0x001e, h01=0x0050, text=» FCOPY VCVOLNR2 «, t00=0x0004, t01=0x00dc}
0x0738…074e Head {h00=0x0012, h01=0x0050, text=» FMEND«, t00=0x0004, t01=0x00fe}
0x074e…079e Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0004, t01=0x0114}
0x079e…07a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0164}
0x07a8…07d8 Head {h00=0x002c, h01=0x0050, text=»* GET SYSTEM LANGUAGE AND VOLUME NUMBERS«, t00=0x0004, t01=0x016e}
0x07d8…07e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x000e}
0x07e2…0832 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0005, t01=0x0018}
0x0832…0846 Head {h00=0x0010, h01=0x0050, text=»FMTSYS FRMT «, t00=0x0005, t01=0x0068}
0x0846…0852 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0005, t01=0x007c}
0x0852…0874 Head {h00=0x001e, h01=0x0050, text=» FTEXT 'SYSTEM LANGUAGE ?'«, t00=0x0005, t01=0x0088}
0x0874…08a6 Head {h00=0x002e, h01=0x0050, text=» FKI 33,MINL=1,MAXL=1,NUM,NCLR,NEOI,APPL=5«, t00=0x0005, t01=0x00aa}
0x08a6…08c0 Head {h00=0x0016, h01=0x0050, text=» FMEL '9',YDSYSLGG«, t00=0x0005, t01=0x00dc}
0x08c0…08cc Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0005, t01=0x00f6}
0x08cc…08fc Head {h00=0x002c, h01=0x0050, text=» FTEXT 'DATA BASE VOLUME NAME ? DSC' «, t00=0x0005, t01=0x0102}
0x08fc…092e Head {h00=0x002e, h01=0x0050, text=» FKI 31,ME,MINL=3,MAXL=3,NUM,NEOI,APPL=27 «, t00=0x0005, t01=0x0132}
0x092e…0946 Head {h00=0x0014, h01=0x0050, text=» FCOPY VCVOLNR1 «, t00=0x0005, t01=0x0164}
0x0946…0954 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0005, t01=0x017c}
0x0954…09a4 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0005, t01=0x018a}
0x09a4…09ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x004a}
0x09ae…09ce Head {h00=0x001c, h01=0x0050, text=»* SYSTEM START - PART 2 «, t00=0x0006, t01=0x0054}
0x09ce…09d8 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0006, t01=0x0074}
0x09d8…0a28 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0006, t01=0x007e}
0x0a28…0a3c Head {h00=0x0010, h01=0x0050, text=»CBSTTS PROC «, t00=0x0006, t01=0x00ce}
0x0a3c…0a4a Head {h00=0x000a, h01=0x0050, text=»CB000 «, t00=0x0006, t01=0x00e2}
0x0a4a…0a54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00f0}
0x0a54…0a70 Head {h00=0x0018, h01=0x0050, text=»* READ SYSTEM RECORD«, t00=0x0006, t01=0x00fa}
0x0a70…0a7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0116}
0x0a7a…0a96 Head {h00=0x0018, h01=0x0050, text=» MOVE YDSYSRNR,=D'1'«, t00=0x0006, t01=0x0120}
0x0a96…0ac0 Head {h00=0x0026, h01=0x0050, text=» MUL YDSYSRNR,KDSHIFT SHIFT NUMBER«, t00=0x0006, t01=0x013c}
0x0ac0…0afa Head {h00=0x0036, h01=0x0050, text=» PERF ZCRDD,YDSYSRNR,NDLRN1,KW1 READ SYSTEM RECORD«, t00=0x0006, t01=0x0166}
0x0afa…0b16 Head {h00=0x0018, h01=0x0050, text=» TBT SBCANCEL,CB900 «, t00=0x0007, t01=0x0010}
0x0b16…0b32 Head {h00=0x0018, h01=0x0050, text=» TBT SBRECAVB,CB050 «, t00=0x0007, t01=0x002c}
0x0b32…0b3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0048}
0x0b3c…0b74 Head {h00=0x0034, h01=0x0050, text=»* RECORD NOT AVAILABLE, PERFORM INITIALISATIONS «, t00=0x0007, t01=0x0052}
0x0b74…0b7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x008a}
0x0b7e…0b92 Head {h00=0x0010, h01=0x0050, text=» PERF EHISYS«, t00=0x0007, t01=0x0094}
0x0b92…0b9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00a8}
0x0b9c…0bce Head {h00=0x002e, h01=0x0050, text=»* WRITE THE SYSTEM RECORD TO THE DATABASE «, t00=0x0007, t01=0x00b2}
0x0bce…0c0c Head {h00=0x003a, h01=0x0050, text=»* AND UPDATE THE LRN ON DISK, SO NEXT TIME THE SYSTEM «, t00=0x0007, t01=0x00e4}
0x0c0c…0c30 Head {h00=0x0020, h01=0x0050, text=»* RECORD CAN BE READ ANYHOW «, t00=0x0007, t01=0x0122}
0x0c30…0c3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0146}
0x0c3a…0c5e Head {h00=0x0020, h01=0x0050, text=» PERF ZHWRID,YDSYSRNR,NDLRN1«, t00=0x0007, t01=0x0150}
0x0c5e…0c7a Head {h00=0x0018, h01=0x0050, text=» TBT SBCANCEL,CB900 «, t00=0x0007, t01=0x0174}
0x0c7a…0cac Head {h00=0x002e, h01=0x0050, text=» PERF ZBCLSD CLOSE DATABASE TO UPDATE LRN «, t00=0x0007, t01=0x0190}
0x0cac…0cc8 Head {h00=0x0018, h01=0x0050, text=» TBT SBCANCEL,CB900 «, t00=0x0008, t01=0x0032}
0x0cc8…0cf4 Head {h00=0x0028, h01=0x0050, text=» PERF ZAOPND AND OPEN DATABASE AGAIN«, t00=0x0008, t01=0x004e}
0x0cf4…0d10 Head {h00=0x0018, h01=0x0050, text=» TBT SBCANCEL,CB900 «, t00=0x0008, t01=0x007a}
0x0d10…0d2a Head {h00=0x0016, h01=0x0050, text=» B CB500 CONTINUE «, t00=0x0008, t01=0x0096}
0x0d2a…0d38 Head {h00=0x000a, h01=0x0050, text=»CB050 «, t00=0x0008, t01=0x00b0}
0x0d38…0d42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00be}
0x0d42…0d7a Head {h00=0x0034, h01=0x0050, text=»* CHECK WETHER OR NOT THE SYSTEM HAS BEEN CLOSED«, t00=0x0008, t01=0x00c8}
0x0d7a…0da6 Head {h00=0x0028, h01=0x0050, text=»* PROPERLY IN THE LAST DEMONSTRATION«, t00=0x0008, t01=0x0100}
0x0da6…0db0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x012c}
0x0db0…0db4 Head {h00=0x0054, h01=0x0050}
0x0db4…0db8 Head {h00=0x5c43, h01=0x4245}
0x0db8…0dc0 5c 59 44 53 54 41 54 55 ┆ YDSTATU┆
0x0dc0…0e0e 53 2c 3d 44 27 33 27 2c 43 42 35 30 30 5c 53 59 53 54 45 4d 20 43 4c 4f 53 45 44 20 4c 41 53 54 20 54 49 4d 45 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 08 01 36 00 06 00 50 2a 20 ┆S,=D'3',CB500 SYSTEM CLOSED LAST TIME 6 P* ┆
0x0e0e…0e5e (9, 0, 400) 00 08 01 8e 00 2c 00 50 2a 20 53 59 53 54 45 4d 20 4e 4f 54 20 43 4c 4f 53 45 44 20 50 52 4f 50 45 52 4c 59 20 4c 41 53 54 20 54 49 4d 45 2c 20 00 09 00 08 00 28 00 50 2a 20 20 20 20 45 4e 53 55 52 45 20 54 48 45 20 44 41 54 41 42 41 53 45 ┆ , P* SYSTEM NOT CLOSED PROPERLY LAST TIME, ( P* ENSURE THE DATABASE┆
0x0e5e…0eae 20 43 4f 4e 53 49 53 54 45 4e 43 59 00 09 00 38 00 06 00 50 2a 20 00 09 00 64 00 30 00 50 5c 4d 4f 56 45 5c 59 44 53 54 41 54 55 53 2c 3d 44 27 31 27 5c 46 49 52 53 54 20 52 45 53 54 4f 52 45 20 59 44 53 54 41 54 55 53 20 00 09 00 6e 00 22 ┆ CONSISTENCY 8 P* d 0 P MOVE YDSTATUS,=D'1' FIRST RESTORE YDSTATUS n "┆
0x0eae…0efe 00 50 5c 50 45 52 46 5c 51 49 52 44 42 53 5c 52 45 53 54 4f 52 45 20 44 41 54 41 42 41 53 45 20 00 09 00 a2 00 18 00 50 5c 54 42 54 5c 53 42 43 41 4e 43 45 4c 2c 43 42 39 30 30 20 00 09 00 c8 00 0a 00 50 43 42 35 30 30 20 00 09 00 e4 00 2a ┆ P PERF QIRDBS RESTORE DATABASE P TBT SBCANCEL,CB900 PCB500 *┆
0x0efe…0f4e 00 50 5c 4d 4f 56 45 5c 59 44 53 54 41 54 55 53 2c 3d 44 27 31 27 5c 52 45 53 54 4f 52 45 20 59 44 53 54 41 54 55 53 20 00 09 00 f2 00 30 00 50 20 4d 4f 56 45 20 59 44 53 59 53 4c 47 47 2c 4e 44 54 52 4d 4c 47 47 5c 53 41 56 45 20 53 59 53 ┆ P MOVE YDSTATUS,=D'1' RESTORE YDSTATUS 0 P MOVE YDSYSLGG,NDTRMLGG SAVE SYS┆
0x0f4e…0f9e 54 45 4d 20 4c 41 4e 47 55 41 47 45 00 09 01 20 00 26 00 50 20 50 45 52 46 20 58 42 46 4d 54 2c 3d 57 27 31 34 27 5c 53 59 53 54 45 4d 20 53 54 41 52 54 20 32 20 00 09 01 54 00 18 00 50 20 54 42 54 20 53 42 43 41 4e 43 45 4c 2c 43 42 39 30 ┆TEM LANGUAGE & P PERF XBFMT,=W'14' SYSTEM START 2 T P TBT SBCANCEL,CB90┆
0x0f9e…0fee (10, 0, 400) 30 20 00 09 01 7e 00 06 00 50 2a 20 00 0a 00 0a 00 34 00 50 2a 20 52 45 57 52 49 54 45 20 53 59 53 54 45 4d 20 52 45 43 4f 52 44 2c 20 54 4f 20 43 4f 56 45 52 20 54 48 45 20 53 49 54 55 41 54 49 4f 4e 20 00 0a 00 14 00 36 00 50 2a 20 20 20 ┆0 ~ P* 4 P* REWRITE SYSTEM RECORD, TO COVER THE SITUATION 6 P* ┆
0x0fee…103e 20 57 48 45 52 45 20 41 20 42 52 45 41 4b 44 4f 57 4e 20 4f 43 43 55 52 53 20 49 4e 20 44 41 55 43 43 59 20 4f 52 20 44 42 55 4f 50 52 20 00 0a 00 4c 00 06 00 50 2a 20 00 0a 00 86 00 20 00 50 5c 50 45 52 46 5c 5a 48 57 52 49 44 2c 59 44 53 ┆ WHERE A BREAKDOWN OCCURS IN DAUCCY OR DBUOPR L P* P PERF ZHWRID,YDS┆
0x103e…108e 59 53 52 4e 52 2c 4e 44 4c 52 4e 31 00 0a 00 90 00 18 00 50 5c 54 42 54 5c 53 42 43 41 4e 43 45 4c 2c 43 42 39 30 30 20 00 0a 00 b4 00 54 00 50 5c 4d 55 4c 5c 4e 44 54 49 4d 45 2c 3d 44 27 31 30 30 27 5c 41 44 44 20 53 45 43 4f 4e 44 53 5c ┆YSRNR,NDLRN1 P TBT SBCANCEL,CB900 T P MUL NDTIME,=D'100' ADD SECONDS ┆
0x108e…10de 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0a 00 d0 00 2c 00 50 5c 4d 4f 56 45 20 57 43 53 54 52 47 31 32 2c 4e 44 54 49 4d 45 5c 43 4f ┆ , P MOVE WCSTRG12,NDTIME CO┆
0x10de…112e 4e 56 45 52 54 20 54 4f 20 53 54 52 49 4e 47 20 00 0a 01 28 00 52 00 50 5c 43 4f 50 59 5c 56 43 54 49 4d 45 2c 4b 57 30 2c 4b 57 36 2c 57 43 53 54 52 47 31 32 2c 4b 57 32 5c 47 45 54 20 52 49 44 20 4f 46 20 53 49 47 4e 20 41 4e 44 20 46 49 ┆NVERT TO STRING ( R P COPY VCTIME,KW0,KW6,WCSTRG12,KW2 GET RID OF SIGN AND FI┆
0x112e…117e (11, 0, 398) 52 53 54 20 30 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 20 00 0a 01 58 00 14 00 50 20 53 45 54 54 49 4d 45 20 56 43 54 49 4d 45 20 00 0b 00 1e 00 06 00 50 2a 20 00 0b 00 36 00 22 00 50 2a 20 49 4e 49 54 49 41 4c 49 53 45 20 43 55 52 ┆RST 0 X P SETTIME VCTIME P* 6 " P* INITIALISE CUR┆
0x117e…11ce 52 45 4e 43 59 20 52 45 43 4f 52 44 53 20 00 0b 00 40 00 06 00 50 2a 20 00 0b 00 66 00 0a 00 50 43 42 36 30 30 20 00 0b 00 70 00 1c 00 50 20 20 20 20 20 20 20 20 20 50 45 52 46 20 20 20 20 44 41 55 43 43 59 20 00 0b 00 7e 00 18 00 50 5c 54 ┆RENCY RECORDS @ P* f PCB600 p P PERF DAUCCY ~ P T┆
0x11ce…121e 42 54 5c 53 42 43 41 4e 43 45 4c 2c 43 42 39 30 30 20 00 0b 00 9e 00 06 00 50 2a 20 00 0b 00 ba 00 22 00 50 2a 20 49 4e 49 54 49 41 4c 49 53 45 20 4f 50 45 52 41 54 4f 52 20 52 45 43 4f 52 44 53 20 00 0b 00 c4 00 06 00 50 2a 20 00 0b 00 ea ┆BT SBCANCEL,CB900 P* " P* INITIALISE OPERATOR RECORDS P* ┆
0x121e…126e 00 0a 00 50 43 42 37 30 30 20 00 0b 00 f4 00 10 00 50 20 50 45 52 46 20 44 42 55 4f 50 52 00 0b 01 02 00 18 00 50 20 54 42 54 20 53 42 43 41 4e 43 45 4c 2c 43 42 39 30 30 20 00 0b 01 16 00 34 00 50 20 4d 4f 56 45 20 59 44 53 54 41 54 55 53 ┆ PCB700 P PERF DBUOPR P TBT SBCANCEL,CB900 4 P MOVE YDSTATUS┆
0x126e…12bc 2c 3d 44 27 32 27 5c 53 59 53 54 45 4d 20 48 41 53 20 42 45 45 4e 20 53 54 41 52 54 45 44 20 4e 4f 57 00 0b 01 32 00 06 00 50 2a 20 00 0b 01 6a 00 1a 00 50 2a 20 57 52 49 54 45 20 53 59 53 54 45 4d 20 52 45 43 4f 52 44 20 00 0b 01 74 ┆,=D'2' SYSTEM HAS BEEN STARTED NOW 2 P* j P* WRITE SYSTEM RECORD t┆
0x12bc…130c (12, 0, 400) 00 06 00 50 2a 20 00 0c 00 04 00 20 00 50 5c 50 45 52 46 5c 5a 48 57 52 49 44 2c 59 44 53 59 53 52 4e 52 2c 4e 44 4c 52 4e 31 00 0c 00 0e 00 18 00 50 5c 54 42 54 5c 53 42 43 41 4e 43 45 4c 2c 43 42 39 30 30 20 00 0c 00 32 00 0c 00 50 20 42 ┆ P* P PERF ZHWRID,YDSYSRNR,NDLRN1 P TBT SBCANCEL,CB900 2 P B┆
0x130c…135c 20 43 42 39 39 39 00 0c 00 4e 00 4c 00 50 2a 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ CB999 N L P* ┆
0x135c…13ac 00 00 00 00 00 2a 00 0c 00 5e 00 4c 00 50 2a 20 44 49 53 50 4c 41 59 20 45 52 52 4f 52 3a 20 44 49 53 4b 20 45 52 52 4f 52 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ * ^ L P* DISPLAY ERROR: DISK ERROR ┆
0x13ac…13fc 00 00 00 00 00 2a 00 0c 00 ae 00 4c 00 50 2a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ * L P* ┆
0x13fc…144c 00 00 00 00 00 2a 00 0c 00 fe 00 54 00 50 43 42 38 39 30 5c 5c 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ * T PCB890 ┆
0x144c…149c (13, 0, 400) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0c 01 4e 00 54 00 50 5c 50 45 52 46 5c 58 45 45 52 52 2c 3d 57 27 36 27 2c 4b 57 31 5c 41 4e 53 57 45 52 20 4d 55 53 54 20 42 45 20 43 41 4e 43 45 4c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ N T P PERF XEERR,=W'6',KW1 ANSWER MUST BE CANCEL ┆
0x149c…14ec 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0d 00 16 00 0a 00 50 43 42 39 30 30 20 00 0d 00 6e 00 24 00 50 5c 50 45 52 46 5c 5a 47 52 45 41 5c 52 45 4c 45 41 53 45 20 45 58 43 4c 2e 20 41 43 43 45 53 20 00 0d 00 7c ┆ PCB900 n $ P PERF ZGREA RELEASE EXCL. ACCES |┆
0x14ec…153c 00 06 00 50 2a 20 00 0d 00 a4 00 12 00 50 2a 20 43 4c 4f 53 45 20 46 49 4c 45 53 20 00 0d 00 ae 00 06 00 50 2a 20 00 0d 00 c4 00 10 00 50 5c 50 45 52 46 5c 5a 42 43 4c 53 44 00 0d 00 ce 00 10 00 50 5c 50 45 52 46 5c 5a 4c 43 4c 53 46 00 0d ┆ P* P* CLOSE FILES P* P PERF ZBCLSD P PERF ZLCLSF ┆
0x153c…158c 00 e2 00 4c 00 50 5c 4d 4f 56 45 5c 59 44 53 54 41 54 55 53 2c 3d 44 27 30 27 5c 52 45 53 45 54 20 54 4f 20 4e 4f 54 20 53 54 41 52 54 45 44 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0d ┆ L P MOVE YDSTATUS,=D'0' RESET TO NOT STARTED ┆
0x158c…15dc 00 f6 00 0a 00 50 43 42 39 39 39 20 00 0d 01 46 00 08 00 04 20 52 45 54 00 0d 01 54 00 0a 00 05 20 50 45 4e 44 20 00 0d 01 60 00 4c 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ PCB999 F RET T PEND ` L P**********************************┆
0x15dc…162c (14, 0, 400) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 0d 01 6e 00 06 00 50 2a 20 00 0e 00 2e 00 28 00 50 2a 20 43 48 45 43 4b 20 44 41 54 45 20 45 4e 54 45 52 45 44 20 49 4e 20 ┆************************************** n P* . ( P* CHECK DATE ENTERED IN ┆
0x162c…167c 53 59 53 54 45 4d 20 53 54 41 52 54 00 0e 00 38 00 06 00 50 2a 20 00 0e 00 64 00 4c 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆SYSTEM START 8 P* d L P**************************************************┆
0x167c…16cc 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 0e 00 6e 00 16 00 50 53 50 41 50 33 32 5c 50 52 4f 43 5c 58 57 52 45 54 20 00 0e 00 be 00 10 00 50 5c 50 42 49 4e 5c 58 57 52 45 54 20 00 0e 00 d8 00 0a 00 50 53 33 32 30 ┆********************** n PSPAP32 PROC XWRET P PBIN XWRET PS320┆
0x16cc…171c 30 30 00 0e 00 ec 00 06 00 50 2a 20 00 0e 00 fa 00 42 00 50 2a 20 4e 44 44 41 54 45 20 43 4f 4e 54 41 49 4e 53 20 54 48 45 20 44 41 54 45 20 45 4e 54 45 52 45 44 20 41 4e 44 20 48 41 53 20 54 48 45 20 46 4f 52 4d 41 54 3a 20 44 44 4d 4d 59 ┆00 P* B P* NDDATE CONTAINS THE DATE ENTERED AND HAS THE FORMAT: DDMMY┆
0x171c…176c 59 20 00 0e 01 04 00 06 00 50 2a 20 00 0e 01 4a 00 28 00 50 5c 4d 4f 56 45 5c 57 44 45 43 32 2c 4e 44 44 41 54 45 5c 53 41 56 45 20 44 41 54 45 20 45 4e 54 45 52 45 44 00 0e 01 54 00 10 00 50 2a 20 43 48 45 43 4b 20 59 45 41 52 00 0e 01 80 ┆Y P* J ( P MOVE WDEC2,NDDATE SAVE DATE ENTERED T P* CHECK YEAR ┆
0x176c…17bc (15, 0, 400) 00 16 00 50 5c 4d 4f 56 45 5c 57 44 45 43 31 2c 57 44 45 43 32 20 00 0f 00 04 00 26 00 50 5c 44 49 56 5c 57 44 45 43 31 2c 3d 44 27 31 30 30 27 5c 47 45 54 20 52 49 44 20 4f 46 20 59 45 41 52 00 0f 00 1e 00 18 00 50 5c 4d 55 4c 5c 57 44 45 ┆ P MOVE WDEC1,WDEC2 & P DIV WDEC1,=D'100' GET RID OF YEAR P MUL WDE┆
0x17bc…180c 43 31 2c 3d 44 27 2d 31 30 30 27 20 00 0f 00 48 00 2a 00 50 5c 41 44 44 5c 57 44 45 43 31 2c 57 44 45 43 32 5c 54 4f 20 47 45 54 20 27 59 59 27 20 49 4e 20 57 44 45 43 31 20 00 0f 00 64 00 2a 00 50 5c 43 42 4c 5c 57 44 45 43 31 2c 3d 44 27 ┆C1,=D'-100' H * P ADD WDEC1,WDEC2 TO GET 'YY' IN WDEC1 d * P CBL WDEC1,=D'┆
0x180c…185c 37 39 27 2c 53 33 32 39 30 30 5c 4e 4f 54 20 49 4e 20 52 41 4e 47 45 20 00 0f 00 92 00 12 00 50 2a 20 43 48 45 43 4b 20 4d 4f 4e 54 48 20 00 0f 00 c0 00 2a 00 50 5c 44 49 56 5c 57 44 45 43 32 2c 3d 44 27 31 30 30 27 5c 4e 4f 57 20 49 4e 20 ┆79',S32900 NOT IN RANGE P* CHECK MONTH * P DIV WDEC2,=D'100' NOW IN ┆
0x185c…18ac 57 44 45 43 32 3a 20 44 44 4d 4d 20 00 0f 00 d6 00 16 00 50 5c 4d 4f 56 45 5c 57 44 45 43 31 2c 57 44 45 43 32 20 00 0f 01 04 00 28 00 50 5c 44 49 56 5c 57 44 45 43 31 2c 3d 44 27 31 30 30 27 5c 47 45 54 20 52 49 44 20 4f 46 20 4d 4f 4e 54 ┆WDEC2: DDMM P MOVE WDEC1,WDEC2 ( P DIV WDEC1,=D'100' GET RID OF MONT┆
0x18ac…18fc 48 20 00 0f 01 1e 00 18 00 50 5c 4d 55 4c 5c 57 44 45 43 31 2c 3d 44 27 2d 31 30 30 27 20 00 0f 01 4a 00 2a 00 50 5c 41 44 44 5c 57 44 45 43 31 2c 57 44 45 43 32 5c 54 4f 20 47 45 54 20 27 4d 4d 27 20 49 4e 20 57 44 45 43 31 20 00 0f 01 66 ┆H P MUL WDEC1,=D'-100' J * P ADD WDEC1,WDEC2 TO GET 'MM' IN WDEC1 f┆
0x18fc…194c (16, 0, 400) 00 28 00 50 5c 43 42 4c 5c 57 44 45 43 31 2c 3d 44 27 31 27 2c 53 33 32 39 30 30 5c 4e 4f 54 20 49 4e 20 52 41 4e 47 45 00 10 00 04 00 2a 00 50 5c 43 42 47 5c 57 44 45 43 31 2c 3d 44 27 31 32 27 2c 53 33 32 39 30 30 5c 4e 4f 54 20 49 4e 20 ┆ ( P CBL WDEC1,=D'1',S32900 NOT IN RANGE * P CBG WDEC1,=D'12',S32900 NOT IN ┆
0x194c…199c 52 41 4e 47 45 20 00 10 00 30 00 10 00 50 2a 20 43 48 45 43 4b 20 44 41 59 20 00 10 00 5e 00 2a 00 50 5c 44 49 56 5c 57 44 45 43 32 2c 3d 44 27 31 30 30 27 5c 54 4f 20 47 45 54 20 44 41 59 20 49 4e 20 57 44 45 43 32 00 10 00 72 00 28 00 50 ┆RANGE 0 P* CHECK DAY ^ * P DIV WDEC2,=D'100' TO GET DAY IN WDEC2 r ( P┆
0x199c…19ec 5c 43 42 4c 5c 57 44 45 43 32 2c 3d 44 27 31 27 2c 53 33 32 39 30 30 5c 4e 4f 54 20 49 4e 20 52 41 4e 47 45 00 10 00 a0 00 20 00 50 5c 43 42 4c 5c 57 44 45 43 32 2c 3d 44 27 33 32 27 2c 53 33 32 39 39 39 5c 4f 4b 45 00 10 00 cc 00 0a 00 50 ┆ CBL WDEC2,=D'1',S32900 NOT IN RANGE P CBL WDEC2,=D'32',S32999 OKE P┆
0x19ec…1a3c 53 33 32 39 30 30 00 10 00 f0 00 1c 00 50 5c 4d 4f 56 45 5c 58 57 52 45 54 2c 3d 57 27 31 27 5c 45 52 52 4f 52 20 00 10 00 fe 00 2a 00 50 5c 4d 4f 56 45 5c 53 50 42 49 4e 57 34 2c 3d 57 27 31 27 5c 56 41 4c 55 45 20 4e 4f 54 20 49 4e 20 52 ┆S32900 P MOVE XWRET,=W'1' ERROR * P MOVE SPBINW4,=W'1' VALUE NOT IN R┆
0x1a3c…1a8c 41 4e 47 45 00 10 01 1e 00 0a 00 50 53 33 32 39 39 39 00 10 01 4c 00 08 00 50 5c 52 45 54 00 10 01 5a 00 0a 00 50 5c 50 45 4e 44 20 00 10 01 66 00 4c 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ANGE PS32999 L P RET Z P PEND f L P****************************┆
0x1a8c…1ad0 (17, 2, 68) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 10 01 74 00 08 00 50 20 45 4e 44 00 11 00 34 40 04 00 00 00 11 00 40 ┆******************************************** t P END 4@ @┆
0x1ad0…1ad8 (18, 1, 8) 20 04 00 00 00 12 00 04 ┆ ┆
0x1ad8…1b28 (19, 0, 400) 20 20 20 20 20 4f 50 45 4e 20 46 4f 52 4d 41 54 20 46 49 4c 45 20 00 02 01 6e 00 24 00 50 20 20 20 20 20 20 20 20 20 54 42 54 20 20 20 20 20 53 42 43 41 4e 43 45 4c 2c 43 41 39 30 30 20 00 03 00 1e 00 20 00 50 5c 43 41 4c 4c 5c 46 4d 4f 56 ┆ OPEN FORMAT FILE n $ P TBT SBCANCEL,CA900 P CALL FMOV┆
0x1b28…1b78 45 2c 46 43 46 4f 52 4d 41 54 2c 46 4d 54 53 59 53 20 00 03 00 46 00 2e 00 50 5c 50 45 52 46 5c 58 42 46 4d 54 2c 3d 57 27 30 27 5c 4c 41 4e 47 55 41 47 45 20 41 4e 44 20 44 42 53 20 56 4f 4c 4e 41 4d 45 00 03 00 6a 00 18 00 50 20 54 42 54 ┆E,FCFORMAT,FMTSYS F . P PERF XBFMT,=W'0' LANGUAGE AND DBS VOLNAME j P TBT┆
0x1b78…1bc8 20 53 42 43 41 4e 43 45 4c 2c 43 41 39 30 30 20 00 03 00 9c 00 28 00 50 5c 4d 4f 56 45 5c 4e 44 54 52 4d 4c 47 47 2c 59 44 53 59 53 4c 47 47 5c 53 45 54 20 4c 41 4e 47 55 41 47 45 00 03 00 b8 00 06 00 50 2a 20 00 03 00 e4 00 4c 00 50 2a 20 ┆ SBCANCEL,CA900 ( P MOVE NDTRMLGG,YDSYSLGG SET LANGUAGE P* L P* ┆
0x1bc8…1c18 4f 50 45 4e 20 44 41 54 41 42 41 53 45 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2a 00 03 00 ee 00 06 00 50 2a 20 ┆OPEN DATABASE * P* ┆
0x1c18…1c68 00 03 01 3e 00 10 00 50 20 50 45 52 46 20 5a 41 4f 50 4e 44 00 03 01 48 00 18 00 50 5c 54 42 46 5c 53 42 43 41 4e 43 45 4c 2c 43 41 39 39 39 20 00 03 01 5c 00 0a 00 50 43 41 39 30 30 20 00 03 01 78 00 54 00 50 5c 50 45 52 46 5c 5a 4c 43 4c ┆ > P PERF ZAOPND H P TBF SBCANCEL,CA999 PCA900 x T P PERF ZLCL┆
0x1c68…1cb8 (20, 0, 400) 53 46 5c 43 4c 4f 53 45 20 46 4f 52 4d 41 54 46 49 4c 45 20 41 47 41 49 4e 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 03 01 86 00 34 00 50 20 4d ┆SF CLOSE FORMATFILE AGAIN 4 P M┆
0x1cb8…1d08 4f 56 45 20 59 44 53 54 41 54 55 53 2c 3d 44 27 30 27 5c 52 45 53 45 54 20 54 4f 20 53 59 53 54 45 4d 20 4e 4f 54 20 53 54 41 52 54 45 44 00 04 00 4e 00 0a 00 50 43 41 39 39 39 20 00 04 00 86 00 08 00 50 20 52 45 54 00 04 00 94 00 0a 00 50 ┆OVE YDSTATUS,=D'0' RESET TO SYSTEM NOT STARTED N PCA999 P RET P┆
0x1d08…1d58 20 50 45 4e 44 20 00 04 00 a0 00 4a 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ PEND J P******************************************************************┆
0x1d58…1da8 2a 2a 2a 20 00 04 00 ae 00 06 00 50 2a 20 00 04 00 fc 00 22 00 50 2a 20 20 47 45 54 20 46 4f 52 4d 41 54 20 46 49 4c 45 20 56 4f 4c 55 4d 45 20 4e 41 4d 45 00 04 01 06 00 06 00 50 2a 20 00 04 01 2c 00 4a 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆*** P* " P* GET FORMAT FILE VOLUME NAME P* , J P**********┆
0x1da8…1df8 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 04 01 36 00 12 00 50 46 4d 54 56 4f 4c 20 20 20 46 52 4d ┆*********************************************************** 6 PFMTVOL FRM┆