|
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: 13685 (0x3575)
Notes: pts_type(SC)
Names: »FSUPDT.SC«
└─⟦f45ea3bc3⟧ Bits:30009713 Philips computer tape "WSM"
└─⟦this⟧ »WSM:CREA/FSUPDT.SC«
IDENT FSUPDT REL=2.3,850313,870155940230 ************************************************************ * * LATEST UPDATE 850313 MADE BY JE * * HISTORY= * * 850313/JE PERFORMANCE DIRECT MOV VAL.OBJ. CLEAR CMBOOL * 831024/CJ POINTER NOT OK VD82 & <DUPL> (FSU591C) * 830920/CJ VBBOOL :=T IF VALBUF OVERFLOW * 830630/CJ REFRESH OF FORMAT FWFSUS * 830607/CJ CHECK OFF EFF. LENGTH INSTEAD OF DEFINED LENGTH * 830526/CJ REL.NUMBER TO FWFSUS FROM WSMDDV IN "RELNUM" * ************************************************************* DDUM WSMDDV PDIV ENTRY FSUPDT EXPROC READIN,PKTAB,PKTAB,PKTAB,PLIT ***READ IN ONE FIELD EXPROC WSMERR,PKTAB,PLIT ***(ERROR-)MESSAGE ROUTINE EXPROC DISPLY,PBIN ***DISPLAY FORMAT SECTION EXPROC USMODL ***UNPACK FORMAT SECTION MODEL EXPROC PRNTFS ***PRINT FORMAT SECTION MODEL EXPROC ATTPRT ***ATTACH PRINTER EXPROC DETPRT ***DETACH PRINTER EXT ICLEAR ---ASSRUT:CLEAR ITEM EXT PREAD ---ASSRUT:READ INTO POOL-UNITS EXT PCLOSE ---ASSRUT:CLOSE DISC-FILE EXT PDLETE ---ASSRUT:DELETE FROM DISC EXT TESTB ---ASSRUT:TEST BIT POSITION EXT CHANFC ---ASSRUT:CHANGE FILE CODE * GSS EQU X'AC' GET SIZE OF SCREEN CED EQU X'B7' CHANGE ECHO-DEVICE TRP EQU X'A7' TRANSFORM PARAMETER EJECT INCLUDE WSMKEY,LIST EJECT INCLUDE KEYT1,LIST INCLUDE KEYT2,LIST INCLUDE KEYT3,LIST INCLUDE KEYT5,LIST INCLUDE KEYT12,LIST EJECT FSUPDT PROC MOVE LBIN1,W1 DSC SCRN,TRP,LBIN1 BACKGROUND:=WHITE FSU000 CLEAR LBOOL4 NOT DUPLICATION MOVE GBIN2,W0 CLEAR RETUR-CODE ATTFMT FWFSUN ATTACH FORMAT-SECTION FORMAT ERASE 5,W1,W0 ERASE OLD CONTENTS DISPLAY 0,W1,W0 DISPLAY ENTIRE FORMAT MOVE LBIN4,W0 FIELD SEQ NO:=0 B FSU405 FSU100 GETABX LBIN4 GET CURRENT INDEX FSU150 PERF READIN,KEYT1,KEYT2,KEYT3,=W'0' ***READ IN ONE FIELD IB LBIN2,FSU500,FSU200,FSU300,FSU400 B FSU100 EJECT * * CANCEL-KEY * FSU200 ERASE 5,W1,W0 ERASE OLD CONTENTS DISPLAY 1,W1,W0 DISPLAY JUST FIELD CONTENTS SETCUR B FSU100 * * RETUR-KEY * FSU300 MOVE GBIN2,W1 INDICATE RETUR-KEY B FSU999 * * POWER OFF * FSU400 DISPLAY 0,W1,W0 DISPLAY ENTIRE FORMAT FSU402 GETABX LBIN4 GET CURRENT FIELD FSU405 GETFLD 0,LBIN4,LBIN3 SEARCH CURR POS BNOK FSU410 SETCUR B FSU150 FSU410 MOVE LBIN4,LBIN3 CHANGE INDEX B FSU405 EJECT * * END OF FORMAT FOUND * * READ IN WANTED FORMAT SECTION * WITH START IN BUFFERNO:9 * INITIATE PARAMETER BLOCK (LSTR81) * FSU500 MOVE GBIN4,DPBIN STORE DIMENSION OF BPOOL ADD GBIN4,W1 ADJUST CALL ICLEAR,LSTR81 ---CLEAR ITEM MOVE LSTR6A,=C' DSDS' TYPE = DSDS XCOPY LSTR81,W5,W1,LSTR6A,GBIN1 STORE TYPE OF DATA = S XCOPY LSTR81,W6,W6,GSTR6A,W0 IDENT=DEF,SEC OR TABLE NAME MOVE LBIN1,W24 WORKPOINTER:=24 ADD LBIN1,W2 GIVING 26 XCOPY LSTR81,LBIN1,W8,GSTR8A,W0 STORE FILENAME ADD LBIN1,W8 ADJUST POINTER XCOPY LSTR81,LBIN1,W6,GSTR6C,W0 STORE VOLUME ID EJECT FSU520 XCOPY LSTR81,W14,W2,DPBIN,W0 MAX NUMB OF POOL-UNITS XCOPY LSTR81,W12,W1,W1,W1 FILECODE:=1 CLEAR LBOOLA FALSE=DISC-ERROR (IF ANY) CALL PREAD,LSTR81,BPOOL(GBIN4) ---READ POOLS FROM DISC BOK FSU590 BL FSU525 JMP IF CR=2(DISC-ERROR) SET LBOOLA TRUE=POOL-ERROR FSU525 * * ERROR AT READ * XCOPY LBIN3,W0,W2,LSTR81,W20 UNPACK RETCODE BIN CALL PCLOSE,LSTR81,BPOOL(GBIN4) --CLOSE DISC-FILE MOVE LBIN2,W0 BIT-INDEX:=0 MOVE LSTR1,=X'31' LOAD '1' MOVE LSTR16,=X'30' LOAD WITH '0':S FSU530 CALL TESTB,LBIN3,LBIN2 ---TEST BIT (INDEX) BOK FSU540 JMP IF FALSE = 0 XCOPY LSTR16,LBIN2,W1,LSTR1,W0 LOAD '1' WHEN TRUE = 1 FSU540 ADD LBIN2,W1 NEXT BITINDEX CBNG LBIN2,W15,FSU530 GO ON UNTIL > 15 FSU550 MOVE LBIN1,W0 NO CLEAR MOVE LBIN4,W8 ERRORMESSAGE NO:8 PERF WSMERR,KEYT5,=W'0' ***(ERROR-)MESSAGE /ROUTINE IB LBIN2,FSU520,FSU200, CLR,CAN C FSU300,FSU300 RET,ENT DISPLAY 0,W1,W0 DISPLAY ENTIRE FORMAT B FSU550 POWER OFF EJECT * * ENTER-KEY * FSU590 CLEAR UPBOOL MOVE GBIN3,GBIN4 LOAD STARTPOOL NUMBER CALL PCLOSE,LSTR81,BPOOL(GBIN4) --CLOSE DISC-FILE MOVE LBIN1,W24 ADD LBIN1,W2 ADJUST FOR EFF. LENGTH MOVE LBIN16,W0 CLEAR BINARY XCOPY LBIN16,W1,W1,BPOOL(GBIN4),LBIN1 LOAD SECT.SIZE LINES EFF SUB LBIN1,W2 ADJUST FOR GIVEN LENGTH TBT VD82,FSU590B JMP IF VD82 CBG LBIN16,W23,FSU591A JMP IF TOO BIG XCOPY LBIN4,W1,W1,BPOOL(GBIN4),LBIN1 LOAD DECL. LENGTH CBNG LBIN4,W23,FSU590A JMP IF < 24 LINES SET UPBOOL PREPARE UNPACK FSU590A B FSU591B CONTINUE FSU590B CBNG LBIN16,ROWS,FSU591B NOT EXEEDED EJECT FSU591A MOVE LBIN4,=W'33' MESSAGE NO =33 PERF WSMERR,KEYT5,=W'0' ***ERROR-MESSAGE ROUTINE IB LBIN2,FSU300,FSU300, C FSU300,FSU300 RETURN KEY ALWAYS B FSU400 POWER OFF FSU591B ADD LBIN1,W1 ADJUST BUFFER POINTER XCOPY LBIN16,W1,W1,BPOOL(GBIN4),LBIN1 LOAD SECT.SIZE COLS CBNG LBIN16,COLS,FSU591C NOT EXEEDED B FSU591A ERROR HANDLING FSU591C ADD LBIN1,W1 GIVING 26 DLETE LSTR81,W0,LBIN1 MOVE GSTR80,LSTR81 SAVE OLD FILE AND VOLUME ERASE 0,W1,W10 ERASE SCREEN * * UNPACK FORMAT MODELLING STATIC AND DYNAMIC FIELDS * PERF USMODL ***UNPACK SECTION MODEL BG FSU980 JUMP IF MEMORY OVERFLOW * * DISPLAY FORMAT SECTION LAYOUT * FSU592 MOVE LBIN1,W2 BACKGROUND :=BLACK CALL TESTB,GBIN10,W14 ---TEST BIT NO=14 BF FSU595 JMP IF FALSE = 0 SUB LBIN1,W1 BACKGROUND:=WHITE FSU595 DSC SCRN,TRP,LBIN1 CHANGE BACKGROUND MOVE LBIN16,W1 1ST ROW MOVE LBIN4,=X'0101' ROW:=1 COL:=1 MOVE LBIN14,W0 ATTR.TAB POINTER:=0 MOVE LBIN1,W0 PERF DISPLY,LBIN8 ***EDIT AND WRITE TO E-O-S ATTFMT FHOME SET CURSOR POSITION THOME HOME EJECT * * ASK FOR FURTHER ACTIONS * ENTER=> UPDATE * PRINT=> HARDCOPY * DEL => DELETE * DUP => DUPLICATE * FSU600 MOVE LBIN1,W0 NO CLEAR MOVE LBIN4,W22 MESSAGE NO 22 PERF WSMERR,KEYT12,=W'0' ***(ERROR-)MESSAGE ROUTINE ATTFMT FHOME THOME IB LBIN2,FSU000,FSU000, CLR,CAN C FSU300,FSU700, RET,ENT C FSU800,FSU850, PRT,DEL C FSU900 DUP B FSU592 POWER OFF FSU700 CLEAR CMBOOL FALSE=NO CHANGE OF DYN FIELDS SET LBOOL8 TRUE=UPDATE OLD MODE B FSU999 EJECT * * PRINT OUT OF FORMAT SECTION * FSU800 PERF ATTPRT ***CHECK PRINTER-DEVICE BNOK FSU810 TBF LBOOLE,FSU810 JMP IF NOT OK CBE LBIN2,W0,FSU801 JMP IF OK IB LBIN2,FSU600,FSU300 ***OK,CAN,RET B FSU600 JMP ON OTHER KEYS FSU801 PERF PRNTFS ***PRINT FORMAT SECTION TBT VBBOOL,FSU805 JMP IF VALBUF OVERFLOW PERF DETPRT ***DETACH PRINTER B FSU600 FSU805 PERF DETPRT ***DETACH PRINTER B FSU985 * * CHECK PRINTER-DEVICE * FSU810 PERF WSMERR,KEYT5,=W'0' ***ERROR/MESSAGE ROUTINE IB LBIN2,FSU800,FSU600,FSU300,FSU800 ***CLR,CAN,RET,ENT B FSU400 EJECT * * DELETE FORMAT SECTION * FSU850 MOVE LBIN1,W0 NO CLEAR MOVE LBIN4,W7 MESSAGE NO:=7 PERF WSMERR,KEYT5,=W'0' ***(ERROR/)MESSAGE ROUTINE IB LBIN2,FSU600,FSU000, CLR,CAN C FSU300,FSU860 RET ENT B FSU400 POWER OFF FSU860 * * INITIATE PARAMETER BLOCK (LSTR81) * CALL ICLEAR,LSTR81 ---CLEAR ITEM MOVE LSTR6A,=C' DSDS' TYPE = D(EFINITION) TYPE = S(ECTION) XCOPY LSTR81,W5,W1,LSTR6A,GBIN1 STORE TYPE OF DATA = S XCOPY LSTR81,W6,W6,BPOOL(GBIN4),W6 IDENT=DEF,SEC OR TABLE NAME MOVE LBIN1,W12 WORKPOINTER:=12 XCOPY LSTR81,LBIN1,W1,W1,W1 FILECODE:=1 ADD LBIN1,W14 GIVING 26 XCOPY LSTR81,LBIN1,W8,GSTR8A,W0 STORE FILENAME ADD LBIN1,W8 ADJUST POINTER XCOPY LSTR81,LBIN1,W6,GSTR6C,W0 STORE VOLUME ID FSU870 CLEAR LBOOLA FALSE=DISC-ERROR (IF ANY) CALL PDLETE,LSTR81,BPOOL(GBIN4) ---WRITE POOLS ON DISC BOK FSU890 BL FSU872 JMP IF CR=2(DISC-ERROR) SET LBOOLA TRUE=POOL-ERROR FSU872 * * ERROR AT DELETE * XCOPY LBIN3,W0,W2,LSTR81,W20 UNPACK RETCODE BIN CALL PCLOSE,LSTR81,BPOOL(GBIN4) --CLOSE DISC-FILE MOVE LBIN2,W0 BIT-INDEX:=0 MOVE LSTR1,=X'31' LOAD '1' MOVE LSTR16,=X'30' LOAD WITH '0':S FSU875 CALL TESTB,LBIN3,LBIN2 ---TEST BIT (INDEX) BOK FSU880 JMP IF FALSE = 0 XCOPY LSTR16,LBIN2,W1,LSTR1,W0 LOAD '1' WHEN TRUE = 1 FSU880 ADD LBIN2,W1 NEXT BITINDEX CBNG LBIN2,W15,FSU875 GO ON UNTIL > 15 FSU885 MOVE LBIN1,W0 NO CLEAR MOVE LBIN4,W8 ERRORMESSAGE NO:8 PERF WSMERR,KEYT5,=W'0' ***(ERROR-)MESSAGE /ROUTINE IB LBIN2,FSU870,FSU000, CLR,CAN C FSU300,FSU000 RET,ENT DISPLAY 0,W1,W0 DISPLAY ENTIRE FORMAT B FSU885 POWER OFF FSU890 CALL PCLOSE,LSTR81,BPOOL(GBIN4) --CLOSE DISC-FILE B FSU000 EJECT * * DUPLICATION OF FORMAT SECTION * FSU900 DSC KEYB,CED,SYSLFC CHANGE ECHO-DEVICE CALL CHANFC,SCRN,SYSLFC ---CHANGE FILE CODE ATTFMT FWFSDP MOVE LBIN18,W24 LINE NUMBER TBF VD82,FSU901 MOVE LBIN18,W1 VD82 SYSTEM LINE FSU901 SET LBOOL4 TRUE = DUPLICATION FSU940 POWER OFF DISPLAY 4,LBIN18,LBIN18 MOVE LBIN4,W3 FIELDNUMBER:=3 GETFLD 0,LBIN4,LBIN3 MAKE FIELD 3 CURRENT SETCUR FSU910 GETABX LBIN4 SET LBOOLD FOR WSMERR; DISPLAY COND. PERF READIN,KEYT1,KEYT2,KEYT3,=W'0' ***READ IN ONE FIELD CLEAR LBOOLD IB LBIN2,FSU950,FSU920, E-O-F,CANCEL C FSU300,FSU940 RETURN,POWER OFF B FSU910 EJECT * * CANCEL KEY * FSU920 ERASE 1,W1,W0 XCOPY GSTR6C,W0,W6,GSTR80,W8 RESTORE OLD VOLUME NAME XCOPY GSTR8A,W0,W8,GSTR80,W0 RESTORE OLD FILE NAME XCOPY GSTR6A,W0,W6,BPOOL(GBIN4),W6 RESTORE SECTION NAME DISPLAY 1,W1,W0 B FSU940 EJECT * * END OF FORMAT FOUND * FSU950 MOVE LBIN1,W0 NO CLEAR MOVE LBIN4,W7 MESSAGE NO:=7 PERF WSMERR,KEYT5,=W'0' ***(ERROR/)MESSAGE ROUTINE IB LBIN2,FSU940,FSU920, CLR,CAN C FSU300,FSU960 RET ENT B FSU940 POWER OFF * * ENTER KEY * FSU960 XCOPY BPOOL(GBIN4),W6,W6,GSTR6A,W0 RENAME FORMAT SECTION XCOPY BPOOL(GBIN4),W22,W1,W1,W1 VERSION NO:=1 MOVE GBIN2,W2 INDICATE DIRECT WRITE B FSU999 FSU985 MOVE LBIN5,W5 VALIDATION BUFFER OVERFLOW FSU980 MOVE LBIN1,W0 NO CLEAR MOVE LBIN4,W2 ERRORMESSAGE NO:=2 PERF WSMERR,KEYT5,=W'0' ***(ERROR-)MESSAGE ROUTINE MOVE GBIN2,W1 INDICATE RETURN KEY EJECT * * EXIT * FSU999 CALL CHANFC,SCRN,SCRNFC ---CHANGE FILE CODE DSC KEYB,CED,SCRNFC CHANGE ECHO-DEVIVE ATTFMT FHOME THOME CLEAR LBOOL4 NO DUPLICATION RET PEND EJECT INCLUDE FWFSUS,LIST END
0x0000…0032 (0, 0, 400) Head {h00=0x002e, h01=0x0050, text=» IDENT FSUPDT REL=2.3,850313,870155940230 «, t00=0x0000, t01=0x0004}
0x0032…003a Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0036}
0x003a…007e Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0000, t01=0x003e}
0x007e…0088 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0082}
0x0088…00b2 Head {h00=0x0026, h01=0x0050, text=»* LATEST UPDATE 850313 MADE BY JE«, t00=0x0000, t01=0x008c}
0x00b2…00bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00b6}
0x00bc…00d0 Head {h00=0x0010, h01=0x0050, text=»* HISTORY= «, t00=0x0000, t01=0x00c0}
0x00d0…00da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00d4}
0x00da…0124 Head {h00=0x0046, h01=0x0050, text=»* 850313/JE PERFORMANCE DIRECT MOV VAL.OBJ. CLEAR CMBOOL«, t00=0x0000, t01=0x00de}
0x0124…0168 Head {h00=0x0040, h01=0x0050, text=»* 831024/CJ POINTER NOT OK VD82 & <DUPL> (FSU591C)«, t00=0x0000, t01=0x0128}
0x0168…01a4 Head {h00=0x0038, h01=0x0050, text=»* 830920/CJ VBBOOL :=T IF VALBUF OVERFLOW «, t00=0x0000, t01=0x016c}
0x01a4…01da Head {h00=0x0032, h01=0x0050, text=»* 830630/CJ REFRESH OF FORMAT FWFSUS«, t00=0x0001, t01=0x0018}
0x01da…0228 Head {h00=0x004a, h01=0x0050, text=»* 830607/CJ CHECK OFF EFF. LENGTH INSTEAD OF DEFINED LENGTH «, t00=0x0001, t01=0x004e}
0x0228…0272 Head {h00=0x0046, h01=0x0050, text=»* 830526/CJ REL.NUMBER TO FWFSUS FROM WSMDDV IN "RELNUM"«, t00=0x0001, t01=0x009c}
0x0272…027c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00e6}
0x027c…02c2 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0001, t01=0x00f0}
0x02c2…02d6 Head {h00=0x0010, h01=0x0050, text=» DDUM WSMDDV«, t00=0x0001, t01=0x0136}
0x02d6…02e4 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0001, t01=0x014a}
0x02e4…02fa Head {h00=0x0012, h01=0x0050, text=» ENTRY FSUPDT «, t00=0x0001, t01=0x0158}
0x02fa…033c Head {h00=0x003e, h01=0x0050, text=» EXPROC READIN,PKTAB,PKTAB,PKTAB,PLIT ***READ IN ONE FIELD«, t00=0x0001, t01=0x016e}
0x033c…0378 Head {h00=0x0038, h01=0x0050, text=» EXPROC WSMERR,PKTAB,PLIT ***(ERROR-)MESSAGE ROUTINE«, t00=0x0002, t01=0x0020}
0x0378…03ae Head {h00=0x0032, h01=0x0050, text=» EXPROC DISPLY,PBIN ***DISPLAY FORMAT SECTION «, t00=0x0002, t01=0x005c}
0x03ae…03e4 Head {h00=0x0032, h01=0x0050, text=» EXPROC USMODL ***UNPACK FORMAT SECTION MODEL «, t00=0x0002, t01=0x0092}
0x03e4…0418 Head {h00=0x0030, h01=0x0050, text=» EXPROC PRNTFS ***PRINT FORMAT SECTION MODEL«, t00=0x0002, t01=0x00c8}
0x0418…0440 Head {h00=0x0024, h01=0x0050, text=» EXPROC ATTPRT ***ATTACH PRINTER«, t00=0x0002, t01=0x00fc}
0x0440…0468 Head {h00=0x0024, h01=0x0050, text=» EXPROC DETPRT ***DETACH PRINTER«, t00=0x0002, t01=0x0124}
0x0468…0490 Head {h00=0x0024, h01=0x0050, text=» EXT ICLEAR ---ASSRUT:CLEAR ITEM«, t00=0x0002, t01=0x014c}
0x0490…04c2 Head {h00=0x002e, h01=0x0050, text=» EXT PREAD ---ASSRUT:READ INTO POOL-UNITS «, t00=0x0002, t01=0x0174}
0x04c2…04f0 Head {h00=0x002a, h01=0x0050, text=» EXT PCLOSE ---ASSRUT:CLOSE DISC-FILE «, t00=0x0003, t01=0x0016}
0x04f0…051e Head {h00=0x002a, h01=0x0050, text=» EXT PDLETE ---ASSRUT:DELETE FROM DISC«, t00=0x0003, t01=0x0044}
0x051e…054c Head {h00=0x002a, h01=0x0050, text=» EXT TESTB ---ASSRUT:TEST BIT POSITION«, t00=0x0003, t01=0x0072}
0x054c…057a Head {h00=0x002a, h01=0x0050, text=» EXT CHANFC ---ASSRUT:CHANGE FILE CODE«, t00=0x0003, t01=0x00a0}
0x057a…0584 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00ce}
0x0584…05ac Head {h00=0x0024, h01=0x0050, text=»GSS EQU X'AC' GET SIZE OF SCREEN«, t00=0x0003, t01=0x00d8}
0x05ac…05d4 Head {h00=0x0024, h01=0x0050, text=»CED EQU X'B7' CHANGE ECHO-DEVICE«, t00=0x0003, t01=0x0100}
0x05d4…05fe Head {h00=0x0026, h01=0x0050, text=»TRP EQU X'A7' TRANSFORM PARAMETER «, t00=0x0003, t01=0x0128}
0x05fe…060c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x0152}
0x060c…0628 Head {h00=0x0018, h01=0x0050, text=» INCLUDE WSMKEY,LIST«, t00=0x0003, t01=0x0160}
0x0628…0636 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x017c}
0x0636…0652 Head {h00=0x0018, h01=0x0050, text=» INCLUDE KEYT1,LIST «, t00=0x0003, t01=0x018a}
0x0652…066e Head {h00=0x0018, h01=0x0050, text=» INCLUDE KEYT2,LIST «, t00=0x0004, t01=0x0016}
0x066e…068a Head {h00=0x0018, h01=0x0050, text=» INCLUDE KEYT3,LIST «, t00=0x0004, t01=0x0032}
0x068a…06a6 Head {h00=0x0018, h01=0x0050, text=» INCLUDE KEYT5,LIST «, t00=0x0004, t01=0x004e}
0x06a6…06c2 Head {h00=0x0018, h01=0x0050, text=» INCLUDE KEYT12,LIST«, t00=0x0004, t01=0x006a}
0x06c2…06d0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0086}
0x06d0…06e4 Head {h00=0x0010, h01=0x0050, text=»FSUPDT PROC «, t00=0x0004, t01=0x0094}
0x06e4…06fa Head {h00=0x0012, h01=0x0050, text=» MOVE LBIN1,W1«, t00=0x0004, t01=0x00a8}
0x06fa…0728 Head {h00=0x002a, h01=0x0050, text=» DSC SCRN,TRP,LBIN1 BACKGROUND:=WHITE «, t00=0x0004, t01=0x00be}
0x0728…0736 Head {h00=0x000a, h01=0x0050, text=»FSU000«, t00=0x0004, t01=0x00ec}
0x0736…075c Head {h00=0x0022, h01=0x0050, text=» CLEAR LBOOL4 NOT DUPLICATION «, t00=0x0004, t01=0x00fa}
0x075c…0784 Head {h00=0x0024, h01=0x0050, text=» MOVE GBIN2,W0 CLEAR RETUR-CODE «, t00=0x0004, t01=0x0120}
0x0784…07b8 Head {h00=0x0030, h01=0x0050, text=» ATTFMT FWFSUN ATTACH FORMAT-SECTION FORMAT «, t00=0x0004, t01=0x0148}
0x07b8…07e2 Head {h00=0x0026, h01=0x0050, text=» ERASE 5,W1,W0 ERASE OLD CONTENTS «, t00=0x0004, t01=0x017c}
0x07e2…0810 Head {h00=0x002a, h01=0x0050, text=» DISPLAY 0,W1,W0 DISPLAY ENTIRE FORMAT«, t00=0x0005, t01=0x0016}
0x0810…0836 Head {h00=0x0022, h01=0x0050, text=» MOVE LBIN4,W0 FIELD SEQ NO:=0«, t00=0x0005, t01=0x0044}
0x0836…0848 Head {h00=0x000e, h01=0x0050, text=» B FSU405 «, t00=0x0005, t01=0x006a}
0x0848…0856 Head {h00=0x000a, h01=0x0050, text=»FSU100«, t00=0x0005, t01=0x007c}
0x0856…087e Head {h00=0x0024, h01=0x0050, text=» GETABX LBIN4 GET CURRENT INDEX «, t00=0x0005, t01=0x008a}
0x087e…088c Head {h00=0x000a, h01=0x0050, text=»FSU150«, t00=0x0005, t01=0x00b2}
0x088c…08ce Head {h00=0x003e, h01=0x0050, text=» PERF READIN,KEYT1,KEYT2,KEYT3,=W'0' ***READ IN ONE FIELD «, t00=0x0005, t01=0x00c0}
0x08ce…08fc Head {h00=0x002a, h01=0x0050, text=» IB LBIN2,FSU500,FSU200,FSU300,FSU400 «, t00=0x0005, t01=0x0102}
0x08fc…090e Head {h00=0x000e, h01=0x0050, text=» B FSU100 «, t00=0x0005, t01=0x0130}
0x090e…091c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0142}
0x091c…0926 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0150}
0x0926…093e Head {h00=0x0014, h01=0x0050, text=»* CANCEL-KEY «, t00=0x0005, t01=0x015a}
0x093e…0948 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0172}
0x0948…0956 Head {h00=0x000a, h01=0x0050, text=»FSU200«, t00=0x0005, t01=0x017c}
0x0956…0980 Head {h00=0x0026, h01=0x0050, text=» ERASE 5,W1,W0 ERASE OLD CONTENTS «, t00=0x0005, t01=0x018a}
0x0980…09b4 Head {h00=0x0030, h01=0x0050, text=» DISPLAY 1,W1,W0 DISPLAY JUST FIELD CONTENTS«, t00=0x0006, t01=0x0024}
0x09b4…09c4 Head {h00=0x000c, h01=0x0050, text=» SETCUR «, t00=0x0006, t01=0x0058}
0x09c4…09d6 Head {h00=0x000e, h01=0x0050, text=» B FSU100 «, t00=0x0006, t01=0x0068}
0x09d6…09e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x007a}
0x09e0…09f6 Head {h00=0x0012, h01=0x0050, text=»* RETUR-KEY«, t00=0x0006, t01=0x0084}
0x09f6…0a00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x009a}
0x0a00…0a0e Head {h00=0x000a, h01=0x0050, text=»FSU300«, t00=0x0006, t01=0x00a4}
0x0a0e…0a38 Head {h00=0x0026, h01=0x0050, text=» MOVE GBIN2,W1 INDICATE RETUR-KEY «, t00=0x0006, t01=0x00b2}
0x0a38…0a4a Head {h00=0x000e, h01=0x0050, text=» B FSU999 «, t00=0x0006, t01=0x00dc}
0x0a4a…0a54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00ee}
0x0a54…0a6a Head {h00=0x0012, h01=0x0050, text=»* POWER OFF«, t00=0x0006, t01=0x00f8}
0x0a6a…0a74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x010e}
0x0a74…0a82 Head {h00=0x000a, h01=0x0050, text=»FSU400«, t00=0x0006, t01=0x0118}
0x0a82…0ab0 Head {h00=0x002a, h01=0x0050, text=» DISPLAY 0,W1,W0 DISPLAY ENTIRE FORMAT«, t00=0x0006, t01=0x0126}
0x0ab0…0abe Head {h00=0x000a, h01=0x0050, text=»FSU402«, t00=0x0006, t01=0x0154}
0x0abe…0ae6 Head {h00=0x0024, h01=0x0050, text=» GETABX LBIN4 GET CURRENT FIELD «, t00=0x0006, t01=0x0162}
0x0ae6…0af4 Head {h00=0x000a, h01=0x0050, text=»FSU405«, t00=0x0006, t01=0x018a}
0x0af4…0b22 Head {h00=0x002a, h01=0x0050, text=» GETFLD 0,LBIN4,LBIN3 SEARCH CURR POS «, t00=0x0007, t01=0x0008}
0x0b22…0b36 Head {h00=0x0010, h01=0x0050, text=» BNOK FSU410«, t00=0x0007, t01=0x0036}
0x0b36…0b46 Head {h00=0x000c, h01=0x0050, text=» SETCUR «, t00=0x0007, t01=0x004a}
0x0b46…0b58 Head {h00=0x000e, h01=0x0050, text=» B FSU150 «, t00=0x0007, t01=0x005a}
0x0b58…0b66 Head {h00=0x000a, h01=0x0050, text=»FSU410«, t00=0x0007, t01=0x006c}
0x0b66…0b8c Head {h00=0x0022, h01=0x0050, text=» MOVE LBIN4,LBIN3 CHANGE INDEX«, t00=0x0007, t01=0x007a}
0x0b8c…0b9e Head {h00=0x000e, h01=0x0050, text=» B FSU405 «, t00=0x0007, t01=0x00a0}
0x0b9e…0bac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x00b2}
0x0bac…0bb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00c0}
0x0bb6…0bd6 Head {h00=0x001c, h01=0x0050, text=»* END OF FORMAT FOUND«, t00=0x0007, t01=0x00ca}
0x0bd6…0be0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00ea}
0x0be0…0c0a Head {h00=0x0026, h01=0x0050, text=»* READ IN WANTED FORMAT SECTION«, t00=0x0007, t01=0x00f4}
0x0c0a…0c30 Head {h00=0x0022, h01=0x0050, text=»* WITH START IN BUFFERNO:9 «, t00=0x0007, t01=0x011e}
0x0c30…0c62 Head {h00=0x002e, h01=0x0050, text=»* INITIATE PARAMETER BLOCK (LSTR81) «, t00=0x0007, t01=0x0144}
0x0c62…0c6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0176}
0x0c6c…0c7a Head {h00=0x000a, h01=0x0050, text=»FSU500«, t00=0x0007, t01=0x0180}
0x0c7a…0cac Head {h00=0x002e, h01=0x0050, text=» MOVE GBIN4,DPBIN STORE DIMENSION OF BPOOL«, t00=0x0007, t01=0x018e}
0x0cac…0cc8 Head {h00=0x0018, h01=0x0050, text=» ADD GBIN4,W1 ADJUST«, t00=0x0008, t01=0x0030}
0x0cc8…0cf2 Head {h00=0x0026, h01=0x0050, text=» CALL ICLEAR,LSTR81 ---CLEAR ITEM «, t00=0x0008, t01=0x004c}
0x0cf2…0d1c Head {h00=0x0026, h01=0x0050, text=» MOVE LSTR6A,=C' DSDS' TYPE = DSDS«, t00=0x0008, t01=0x0076}
0x0d1c…0d5c Head {h00=0x003c, h01=0x0050, text=» XCOPY LSTR81,W5,W1,LSTR6A,GBIN1 STORE TYPE OF DATA = S «, t00=0x0008, t01=0x00a0}
0x0d5c…0d9e Head {h00=0x003e, h01=0x0050, text=» XCOPY LSTR81,W6,W6,GSTR6A,W0 IDENT=DEF,SEC OR TABLE NAME «, t00=0x0008, t01=0x00e0}
0x0d9e…0dc6 Head {h00=0x0024, h01=0x0050, text=» MOVE LBIN1,W24 WORKPOINTER:=24 «, t00=0x0008, t01=0x0122}
0x0dc6…0de6 Head {h00=0x001c, h01=0x0050, text=» ADD LBIN1,W2 GIVING 26 «, t00=0x0008, t01=0x014a}
0x0de6…0e1e Head {h00=0x0034, h01=0x0050, text=» XCOPY LSTR81,LBIN1,W8,GSTR8A,W0 STORE FILENAME «, t00=0x0008, t01=0x016a}
0x0e1e…0e42 Head {h00=0x0020, h01=0x0050, text=» ADD LBIN1,W8 ADJUST POINTER«, t00=0x0009, t01=0x0012}
0x0e42…0e7a Head {h00=0x0034, h01=0x0050, text=» XCOPY LSTR81,LBIN1,W6,GSTR6C,W0 STORE VOLUME ID«, t00=0x0009, t01=0x0036}
0x0e7a…0e88 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x006e}
0x0e88…0e96 Head {h00=0x000a, h01=0x0050, text=»FSU520«, t00=0x0009, t01=0x007c}
0x0e96…0ed2 Head {h00=0x0038, h01=0x0050, text=» XCOPY LSTR81,W14,W2,DPBIN,W0 MAX NUMB OF POOL-UNITS«, t00=0x0009, t01=0x008a}
0x0ed2…0f00 Head {h00=0x002a, h01=0x0050, text=» XCOPY LSTR81,W12,W1,W1,W1 FILECODE:=1«, t00=0x0009, t01=0x00c6}
0x0f00…0f30 Head {h00=0x002c, h01=0x0050, text=» CLEAR LBOOLA FALSE=DISC-ERROR (IF ANY) «, t00=0x0009, t01=0x00f4}
0x0f30…0f70 Head {h00=0x003c, h01=0x0050, text=» CALL PREAD,LSTR81,BPOOL(GBIN4) ---READ POOLS FROM DISC «, t00=0x0009, t01=0x0124}
0x0f70…0f84 Head {h00=0x0010, h01=0x0050, text=» BOK FSU590 «, t00=0x0009, t01=0x0164}
0x0f84…0fae Head {h00=0x0026, h01=0x0050, text=» BL FSU525 JMP IF CR=2(DISC-ERROR)«, t00=0x0009, t01=0x0178}
0x0fae…0fd2 Head {h00=0x0020, h01=0x0050, text=» SET LBOOLA TRUE=POOL-ERROR «, t00=0x000a, t01=0x0012}
0x0fd2…0fe0 Head {h00=0x000a, h01=0x0050, text=»FSU525«, t00=0x000a, t01=0x0036}
0x0fe0…0fea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0044}
0x0fea…1006 Head {h00=0x0018, h01=0x0050, text=»* ERROR AT READ «, t00=0x000a, t01=0x004e}
0x1006…1010 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x006a}
0x1010…1048 Head {h00=0x0034, h01=0x0050, text=» XCOPY LBIN3,W0,W2,LSTR81,W20 UNPACK RETCODE BIN«, t00=0x000a, t01=0x0074}
0x1048…1082 Head {h00=0x0036, h01=0x0050, text=» CALL PCLOSE,LSTR81,BPOOL(GBIN4) --CLOSE DISC-FILE«, t00=0x000a, t01=0x00ac}
0x1082…10a6 Head {h00=0x0020, h01=0x0050, text=» MOVE LBIN2,W0 BIT-INDEX:=0 «, t00=0x000a, t01=0x00e6}
0x10a6…10ca Head {h00=0x0020, h01=0x0050, text=» MOVE LSTR1,=X'31' LOAD '1' «, t00=0x000a, t01=0x010a}
0x10ca…10f6 Head {h00=0x0028, h01=0x0050, text=» MOVE LSTR16,=X'30' LOAD WITH '0':S «, t00=0x000a, t01=0x012e}
0x10f6…1104 Head {h00=0x000a, h01=0x0050, text=»FSU530«, t00=0x000a, t01=0x015a}
0x1104…1138 Head {h00=0x0030, h01=0x0050, text=» CALL TESTB,LBIN3,LBIN2 ---TEST BIT (INDEX) «, t00=0x000a, t01=0x0168}
0x1138…115c Head {h00=0x0020, h01=0x0050, text=» BOK FSU540 JMP IF FALSE = 0«, t00=0x000b, t01=0x000c}
0x115c…119a Head {h00=0x003a, h01=0x0050, text=» XCOPY LSTR16,LBIN2,W1,LSTR1,W0 LOAD '1' WHEN TRUE = 1«, t00=0x000b, t01=0x0030}
0x119a…11a8 Head {h00=0x000a, h01=0x0050, text=»FSU540«, t00=0x000b, t01=0x006e}
0x11a8…11cc Head {h00=0x0020, h01=0x0050, text=» ADD LBIN2,W1 NEXT BITINDEX «, t00=0x000b, t01=0x007c}
0x11cc…11fc Head {h00=0x002c, h01=0x0050, text=» CBNG LBIN2,W15,FSU530 GO ON UNTIL > 15 «, t00=0x000b, t01=0x00a0}
0x11fc…120a Head {h00=0x000a, h01=0x0050, text=»FSU550«, t00=0x000b, t01=0x00d0}
0x120a…122a Head {h00=0x001c, h01=0x0050, text=» MOVE LBIN1,W0 NO CLEAR «, t00=0x000b, t01=0x00de}
0x122a…1252 Head {h00=0x0024, h01=0x0050, text=» MOVE LBIN4,W8 ERRORMESSAGE NO:8«, t00=0x000b, t01=0x00fe}
0x1252…128e Head {h00=0x0038, h01=0x0050, text=» PERF WSMERR,KEYT5,=W'0' ***(ERROR-)MESSAGE /ROUTINE«, t00=0x000b, t01=0x0126}
0x128e…12b8 Head {h00=0x0026, h01=0x0050, text=» IB LBIN2,FSU520,FSU200, CLR,CAN C«, t00=0x000b, t01=0x0162}
0x12b8…12d8 Head {h00=0x001c, h01=0x0050, text=» FSU300,FSU300 RET,ENT «, t00=0x000b, t01=0x018c}
0x12d8…1306 Head {h00=0x002a, h01=0x0050, text=» DISPLAY 0,W1,W0 DISPLAY ENTIRE FORMAT«, t00=0x000c, t01=0x001c}
0x1306…1322 Head {h00=0x0018, h01=0x0050, text=» B FSU550 POWER OFF «, t00=0x000c, t01=0x004a}
0x1322…1330 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0066}
0x1330…133a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0074}
0x133a…1350 Head {h00=0x0012, h01=0x0050, text=»* ENTER-KEY«, t00=0x000c, t01=0x007e}
0x1350…135a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0094}
0x135a…1368 Head {h00=0x000a, h01=0x0050, text=»FSU590«, t00=0x000c, t01=0x009e}
0x1368…137e Head {h00=0x0012, h01=0x0050, text=» CLEAR UPBOOL «, t00=0x000c, t01=0x00ac}
0x137e…13ae Head {h00=0x002c, h01=0x0050, text=» MOVE GBIN3,GBIN4 LOAD STARTPOOL NUMBER «, t00=0x000c, t01=0x00c2}
0x13ae…13e8 Head {h00=0x0036, h01=0x0050, text=» CALL PCLOSE,LSTR81,BPOOL(GBIN4) --CLOSE DISC-FILE«, t00=0x000c, t01=0x00f2}
0x13e8…1400 Head {h00=0x0014, h01=0x0050, text=» MOVE LBIN1,W24 «, t00=0x000c, t01=0x012c}
0x1400…142c Head {h00=0x0028, h01=0x0050, text=» ADD LBIN1,W2 ADJUST FOR EFF. LENGTH«, t00=0x000c, t01=0x0144}
0x142c…1450 Head {h00=0x0020, h01=0x0050, text=» MOVE LBIN16,W0 CLEAR BINARY«, t00=0x000c, t01=0x0170}
0x1450…1498 (13, 0, 400) Head {h00=0x0044, h01=0x0050, text=» XCOPY LBIN16,W1,W1,BPOOL(GBIN4),LBIN1 LOAD SECT.SIZE LINES EFF «, t00=0x000d, t01=0x0004}
0x1498…14c6 Head {h00=0x002a, h01=0x0050, text=» SUB LBIN1,W2 ADJUST FOR GIVEN LENGTH «, t00=0x000d, t01=0x004c}
0x14c6…14ec Head {h00=0x0022, h01=0x0050, text=» TBT VD82,FSU590B JMP IF VD82 «, t00=0x000d, t01=0x007a}
0x14ec…151a Head {h00=0x002a, h01=0x0050, text=» CBG LBIN16,W23,FSU591A JMP IF TOO BIG«, t00=0x000d, t01=0x00a0}
0x151a…155a Head {h00=0x003c, h01=0x0050, text=» XCOPY LBIN4,W1,W1,BPOOL(GBIN4),LBIN1 LOAD DECL. LENGTH «, t00=0x000d, t01=0x00ce}
0x155a…158c Head {h00=0x002e, h01=0x0050, text=» CBNG LBIN4,W23,FSU590A JMP IF < 24 LINES «, t00=0x000d, t01=0x010e}
0x158c…15ae Head {h00=0x001e, h01=0x0050, text=» SET UPBOOL PREPARE UNPACK«, t00=0x000d, t01=0x0140}
0x15ae…15be Head {h00=0x000c, h01=0x0050, text=»FSU590A «, t00=0x000d, t01=0x0162}
0x15be…15da Head {h00=0x0018, h01=0x0050, text=» B FSU591B CONTINUE «, t00=0x000d, t01=0x0172}
0x15da…15ea Head {h00=0x000c, h01=0x0050, text=»FSU590B «, t00=0x000d, t01=0x018e}
0x15ea…1618 Head {h00=0x002a, h01=0x0050, text=» CBNG LBIN16,ROWS,FSU591B NOT EXEEDED «, t00=0x000e, t01=0x000e}
0x1618…1626 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x003c}
0x1626…1656 Head {h00=0x002c, h01=0x0050, text=»FSU591A MOVE LBIN4,=W'33' MESSAGE NO =33«, t00=0x000e, t01=0x004a}
0x1656…1690 Head {h00=0x0036, h01=0x0050, text=» PERF WSMERR,KEYT5,=W'0' ***ERROR-MESSAGE ROUTINE «, t00=0x000e, t01=0x007a}
0x1690…16b4 Head {h00=0x0020, h01=0x0050, text=» IB LBIN2,FSU300,FSU300, C «, t00=0x000e, t01=0x00b4}
0x16b4…16de Head {h00=0x0026, h01=0x0050, text=» FSU300,FSU300 RETURN KEY ALWAYS «, t00=0x000e, t01=0x00d8}
0x16de…16fa Head {h00=0x0018, h01=0x0050, text=» B FSU400 POWER OFF «, t00=0x000e, t01=0x0102}
0x16fa…172c Head {h00=0x002e, h01=0x0050, text=»FSU591B ADD LBIN1,W1 ADJUST BUFFER POINTER«, t00=0x000e, t01=0x011e}
0x172c…176e Head {h00=0x003e, h01=0x0050, text=» XCOPY LBIN16,W1,W1,BPOOL(GBIN4),LBIN1 LOAD SECT.SIZE COLS«, t00=0x000e, t01=0x0150}
0x176e…179c (15, 0, 400) Head {h00=0x002a, h01=0x0050, text=» CBNG LBIN16,COLS,FSU591C NOT EXEEDED «, t00=0x000f, t01=0x0004}
0x179c…17be Head {h00=0x001e, h01=0x0050, text=» B FSU591A ERROR HANDLING «, t00=0x000f, t01=0x0032}
0x17be…17ce Head {h00=0x000c, h01=0x0050, text=»FSU591C «, t00=0x000f, t01=0x0054}
0x17ce…17ee Head {h00=0x001c, h01=0x0050, text=» ADD LBIN1,W1 GIVING 26 «, t00=0x000f, t01=0x0064}
0x17ee…180c Head {h00=0x001a, h01=0x0050, text=» DLETE LSTR81,W0,LBIN1«, t00=0x000f, t01=0x0084}
0x180c…1840 Head {h00=0x0030, h01=0x0050, text=» MOVE GSTR80,LSTR81 SAVE OLD FILE AND VOLUME«, t00=0x000f, t01=0x00a2}
0x1840…1864 Head {h00=0x0020, h01=0x0050, text=» ERASE 0,W1,W10 ERASE SCREEN«, t00=0x000f, t01=0x00d6}
0x1864…186e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00fa}
0x186e…18ae Head {h00=0x003c, h01=0x0050, text=»* UNPACK FORMAT MODELLING STATIC AND DYNAMIC FIELDS «, t00=0x000f, t01=0x0104}
0x18ae…18b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0144}
0x18b8…18e4 Head {h00=0x0028, h01=0x0050, text=» PERF USMODL ***UNPACK SECTION MODEL«, t00=0x000f, t01=0x014e}
0x18e4…190e Head {h00=0x0026, h01=0x0050, text=» BG FSU980 JUMP IF MEMORY OVERFLOW«, t00=0x000f, t01=0x017a}
0x190e…1918 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0014}
0x1918…1942 Head {h00=0x0026, h01=0x0050, text=»* DISPLAY FORMAT SECTION LAYOUT«, t00=0x0010, t01=0x001e}
0x1942…194c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0048}
0x194c…195a Head {h00=0x000a, h01=0x0050, text=»FSU592«, t00=0x0010, t01=0x0052}
0x195a…1984 Head {h00=0x0026, h01=0x0050, text=» MOVE LBIN1,W2 BACKGROUND :=BLACK «, t00=0x0010, t01=0x0060}
0x1984…19b4 Head {h00=0x002c, h01=0x0050, text=» CALL TESTB,GBIN10,W14 ---TEST BIT NO=14«, t00=0x0010, t01=0x008a}
0x19b4…19d8 Head {h00=0x0020, h01=0x0050, text=» BF FSU595 JMP IF FALSE = 0 «, t00=0x0010, t01=0x00ba}
0x19d8…1a00 Head {h00=0x0024, h01=0x0050, text=» SUB LBIN1,W1 BACKGROUND:=WHITE «, t00=0x0010, t01=0x00de}
0x1a00…1a0e Head {h00=0x000a, h01=0x0050, text=»FSU595«, t00=0x0010, t01=0x0106}
0x1a0e…1a3c Head {h00=0x002a, h01=0x0050, text=» DSC SCRN,TRP,LBIN1 CHANGE BACKGROUND «, t00=0x0010, t01=0x0114}
0x1a3c…1a5c Head {h00=0x001c, h01=0x0050, text=» MOVE LBIN16,W1 1ST ROW «, t00=0x0010, t01=0x0142}
0x1a5c…1a86 Head {h00=0x0026, h01=0x0050, text=» MOVE LBIN4,=X'0101' ROW:=1 COL:=1«, t00=0x0010, t01=0x0162}
0x1a86…1ab2 Head {h00=0x0028, h01=0x0050, text=» MOVE LBIN14,W0 ATTR.TAB POINTER:=0 «, t00=0x0010, t01=0x018c}
0x1ab2…1ac8 Head {h00=0x0012, h01=0x0050, text=» MOVE LBIN1,W0«, t00=0x0011, t01=0x0028}
0x1ac8…1afe Head {h00=0x0032, h01=0x0050, text=» PERF DISPLY,LBIN8 ***EDIT AND WRITE TO E-O-S «, t00=0x0011, t01=0x003e}
0x1afe…1b28 Head {h00=0x0026, h01=0x0050, text=» ATTFMT FHOME SET CURSOR POSITION «, t00=0x0011, t01=0x0074}
0x1b28…1b3c Head {h00=0x0010, h01=0x0050, text=» THOME HOME«, t00=0x0011, t01=0x009e}
0x1b3c…1b4a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x00b2}
0x1b4a…1b54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00c0}
0x1b54…1b78 Head {h00=0x0020, h01=0x0050, text=»* ASK FOR FURTHER ACTIONS«, t00=0x0011, t01=0x00ca}
0x1b78…1b96 Head {h00=0x001a, h01=0x0050, text=»* ENTER=> UPDATE «, t00=0x0011, t01=0x00ee}
0x1b96…1bb6 Head {h00=0x001c, h01=0x0050, text=»* PRINT=> HARDCOPY «, t00=0x0011, t01=0x010c}
0x1bb6…1bd4 Head {h00=0x001a, h01=0x0050, text=»* DEL => DELETE «, t00=0x0011, t01=0x012c}
0x1bd4…1bf4 Head {h00=0x001c, h01=0x0050, text=»* DUP => DUPLICATE«, t00=0x0011, t01=0x014a}
0x1bf4…1bfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x016a}
0x1bfe…1c0c Head {h00=0x000a, h01=0x0050, text=»FSU600«, t00=0x0011, t01=0x0174}
0x1c0c…1c2c Head {h00=0x001c, h01=0x0050, text=» MOVE LBIN1,W0 NO CLEAR «, t00=0x0011, t01=0x0182}
0x1c2c…1c52 Head {h00=0x0022, h01=0x0050, text=» MOVE LBIN4,W22 MESSAGE NO 22«, t00=0x0012, t01=0x0012}
0x1c52…1c8e Head {h00=0x0038, h01=0x0050, text=» PERF WSMERR,KEYT12,=W'0' ***(ERROR-)MESSAGE ROUTINE«, t00=0x0012, t01=0x0038}
0x1c8e…1ca4 Head {h00=0x0012, h01=0x0050, text=» ATTFMT FHOME «, t00=0x0012, t01=0x0074}
0x1ca4…1cb2 Head {h00=0x000a, h01=0x0050, text=» THOME«, t00=0x0012, t01=0x008a}
0x1cb2…1cdc Head {h00=0x0026, h01=0x0050, text=» IB LBIN2,FSU000,FSU000, CLR,CAN C«, t00=0x0012, t01=0x0098}
0x1cdc…1cfe Head {h00=0x001e, h01=0x0050, text=» FSU300,FSU700, RET,ENT C«, t00=0x0012, t01=0x00c2}
0x1cfe…1d20 Head {h00=0x001e, h01=0x0050, text=» FSU800,FSU850, PRT,DEL C«, t00=0x0012, t01=0x00e4}
0x1d20…1d34 Head {h00=0x0010, h01=0x0050, text=» FSU900 DUP«, t00=0x0012, t01=0x0106}
0x1d34…1d50 Head {h00=0x0018, h01=0x0050, text=» B FSU592 POWER OFF «, t00=0x0012, t01=0x011a}
0x1d50…1d5e Head {h00=0x000a, h01=0x0050, text=»FSU700«, t00=0x0012, t01=0x0136}
0x1d5e…1d92 Head {h00=0x0030, h01=0x0050, text=» CLEAR CMBOOL FALSE=NO CHANGE OF DYN FIELDS «, t00=0x0012, t01=0x0144}
0x1d92…1dbc Head {h00=0x0026, h01=0x0050, text=» SET LBOOL8 TRUE=UPDATE OLD MODE «, t00=0x0012, t01=0x0178}
0x1dbc…1dce Head {h00=0x000e, h01=0x0050, text=» B FSU999 «, t00=0x0013, t01=0x0012}
0x1dce…1ddc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x0024}
0x1ddc…1de6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0032}
0x1de6…1e0e Head {h00=0x0024, h01=0x0050, text=»* PRINT OUT OF FORMAT SECTION«, t00=0x0013, t01=0x003c}
0x1e0e…1e18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0064}
0x1e18…1e26 Head {h00=0x000a, h01=0x0050, text=»FSU800«, t00=0x0013, t01=0x006e}
0x1e26…1e52 Head {h00=0x0028, h01=0x0050, text=» PERF ATTPRT ***CHECK PRINTER-DEVICE«, t00=0x0013, t01=0x007c}
0x1e52…1e66 Head {h00=0x0010, h01=0x0050, text=» BNOK FSU810«, t00=0x0013, t01=0x00a8}
0x1e66…1e92 Head {h00=0x0028, h01=0x0050, text=» TBF LBOOLE,FSU810 JMP IF NOT OK «, t00=0x0013, t01=0x00bc}
0x1e92…1eb8 Head {h00=0x0022, h01=0x0050, text=» CBE LBIN2,W0,FSU801 JMP IF OK«, t00=0x0013, t01=0x00e8}
0x1eb8…1ee6 Head {h00=0x002a, h01=0x0050, text=» IB LBIN2,FSU600,FSU300 ***OK,CAN,RET «, t00=0x0013, t01=0x010e}
0x1ee6…1f0a Head {h00=0x0020, h01=0x0050, text=» B FSU600 JMP ON OTHER KEYS «, t00=0x0013, t01=0x013c}
0x1f0a…1f18 Head {h00=0x000a, h01=0x0050, text=»FSU801«, t00=0x0013, t01=0x0160}
0x1f18…1f44 Head {h00=0x0028, h01=0x0050, text=» PERF PRNTFS ***PRINT FORMAT SECTION«, t00=0x0013, t01=0x016e}
0x1f44…1f76 Head {h00=0x002e, h01=0x0050, text=» TBT VBBOOL,FSU805 JMP IF VALBUF OVERFLOW «, t00=0x0014, t01=0x000a}
0x1f76…1f9c Head {h00=0x0022, h01=0x0050, text=» PERF DETPRT ***DETACH PRINTER«, t00=0x0014, t01=0x003c}
0x1f9c…1fae Head {h00=0x000e, h01=0x0050, text=» B FSU600 «, t00=0x0014, t01=0x0062}
0x1fae…1fbc Head {h00=0x000a, h01=0x0050, text=»FSU805«, t00=0x0014, t01=0x0074}
0x1fbc…1fe2 Head {h00=0x0022, h01=0x0050, text=» PERF DETPRT ***DETACH PRINTER«, t00=0x0014, t01=0x0082}
0x1fe2…1ff4 Head {h00=0x000e, h01=0x0050, text=» B FSU985 «, t00=0x0014, t01=0x00a8}
0x1ff4…1ffe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00ba}
0x1ffe…201e Head {h00=0x001c, h01=0x0050, text=»* CHECK PRINTER-DEVICE«, t00=0x0014, t01=0x00c4}
0x201e…2028 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00e4}
0x2028…2036 Head {h00=0x000a, h01=0x0050, text=»FSU810«, t00=0x0014, t01=0x00ee}
0x2036…2070 Head {h00=0x0036, h01=0x0050, text=» PERF WSMERR,KEYT5,=W'0' ***ERROR/MESSAGE ROUTINE «, t00=0x0014, t01=0x00fc}
0x2070…20b0 Head {h00=0x003c, h01=0x0050, text=» IB LBIN2,FSU800,FSU600,FSU300,FSU800 ***CLR,CAN,RET,ENT«, t00=0x0014, t01=0x0136}
0x20b0…20c2 Head {h00=0x000e, h01=0x0050, text=» B FSU400 «, t00=0x0014, t01=0x0176}
0x20c2…20d0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x0188}
0x20d0…20da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0008}
0x20da…20fc Head {h00=0x001e, h01=0x0050, text=»* DELETE FORMAT SECTION«, t00=0x0015, t01=0x0012}
0x20fc…2106 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0034}
0x2106…2114 Head {h00=0x000a, h01=0x0050, text=»FSU850«, t00=0x0015, t01=0x003e}
0x2114…2134 Head {h00=0x001c, h01=0x0050, text=» MOVE LBIN1,W0 NO CLEAR «, t00=0x0015, t01=0x004c}
0x2134…2158 Head {h00=0x0020, h01=0x0050, text=» MOVE LBIN4,W7 MESSAGE NO:=7«, t00=0x0015, t01=0x006c}
0x2158…2194 Head {h00=0x0038, h01=0x0050, text=» PERF WSMERR,KEYT5,=W'0' ***(ERROR/)MESSAGE ROUTINE «, t00=0x0015, t01=0x0090}
0x2194…21be Head {h00=0x0026, h01=0x0050, text=» IB LBIN2,FSU600,FSU000, CLR,CAN C«, t00=0x0015, t01=0x00cc}
0x21be…21de Head {h00=0x001c, h01=0x0050, text=» FSU300,FSU860 RET ENT «, t00=0x0015, t01=0x00f6}
0x21de…21fa Head {h00=0x0018, h01=0x0050, text=» B FSU400 POWER OFF «, t00=0x0015, t01=0x0116}
0x21fa…2208 Head {h00=0x000a, h01=0x0050, text=»FSU860«, t00=0x0015, t01=0x0132}
0x2208…2212 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0140}
0x2212…2244 Head {h00=0x002e, h01=0x0050, text=»* INITIATE PARAMETER BLOCK (LSTR81) «, t00=0x0015, t01=0x014a}
0x2244…224e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x017c}
0x224e…2278 Head {h00=0x0026, h01=0x0050, text=» CALL ICLEAR,LSTR81 ---CLEAR ITEM «, t00=0x0015, t01=0x0186}
0x2278…22aa Head {h00=0x002e, h01=0x0050, text=» MOVE LSTR6A,=C' DSDS' TYPE = D(EFINITION)«, t00=0x0016, t01=0x0020}
0x22aa…22c6 Head {h00=0x0018, h01=0x0050, text=» TYPE = S(ECTION) «, t00=0x0016, t01=0x0052}
0x22c6…2306 Head {h00=0x003c, h01=0x0050, text=» XCOPY LSTR81,W5,W1,LSTR6A,GBIN1 STORE TYPE OF DATA = S «, t00=0x0016, t01=0x006e}
0x2306…234e Head {h00=0x0044, h01=0x0050, text=» XCOPY LSTR81,W6,W6,BPOOL(GBIN4),W6 IDENT=DEF,SEC OR TABLE NAME «, t00=0x0016, t01=0x00ae}
0x234e…2376 Head {h00=0x0024, h01=0x0050, text=» MOVE LBIN1,W12 WORKPOINTER:=12 «, t00=0x0016, t01=0x00f6}
0x2376…23a6 Head {h00=0x002c, h01=0x0050, text=» XCOPY LSTR81,LBIN1,W1,W1,W1 FILECODE:=1«, t00=0x0016, t01=0x011e}
0x23a6…23c6 Head {h00=0x001c, h01=0x0050, text=» ADD LBIN1,W14 GIVING 26«, t00=0x0016, t01=0x014e}
0x23c6…23fe Head {h00=0x0034, h01=0x0050, text=» XCOPY LSTR81,LBIN1,W8,GSTR8A,W0 STORE FILENAME «, t00=0x0016, t01=0x016e}
0x23fe…2422 Head {h00=0x0020, h01=0x0050, text=» ADD LBIN1,W8 ADJUST POINTER«, t00=0x0017, t01=0x0016}
0x2422…245a Head {h00=0x0034, h01=0x0050, text=» XCOPY LSTR81,LBIN1,W6,GSTR6C,W0 STORE VOLUME ID«, t00=0x0017, t01=0x003a}
0x245a…2468 Head {h00=0x000a, h01=0x0050, text=»FSU870«, t00=0x0017, t01=0x0072}
0x2468…2498 Head {h00=0x002c, h01=0x0050, text=» CLEAR LBOOLA FALSE=DISC-ERROR (IF ANY) «, t00=0x0017, t01=0x0080}
0x2498…24d8 Head {h00=0x003c, h01=0x0050, text=» CALL PDLETE,LSTR81,BPOOL(GBIN4) ---WRITE POOLS ON DISC «, t00=0x0017, t01=0x00b0}
0x24d8…24ec Head {h00=0x0010, h01=0x0050, text=» BOK FSU890 «, t00=0x0017, t01=0x00f0}
0x24ec…2516 Head {h00=0x0026, h01=0x0050, text=» BL FSU872 JMP IF CR=2(DISC-ERROR)«, t00=0x0017, t01=0x0104}
0x2516…253a Head {h00=0x0020, h01=0x0050, text=» SET LBOOLA TRUE=POOL-ERROR «, t00=0x0017, t01=0x012e}
0x253a…2548 Head {h00=0x000a, h01=0x0050, text=»FSU872«, t00=0x0017, t01=0x0152}
0x2548…2552 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0160}
0x2552…2570 Head {h00=0x001a, h01=0x0050, text=»* ERROR AT DELETE «, t00=0x0017, t01=0x016a}
0x2570…257a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0188}
0x257a…25b2 (24, 0, 400) Head {h00=0x0034, h01=0x0050, text=» XCOPY LBIN3,W0,W2,LSTR81,W20 UNPACK RETCODE BIN«, t00=0x0018, t01=0x0004}
0x25b2…25ec Head {h00=0x0036, h01=0x0050, text=» CALL PCLOSE,LSTR81,BPOOL(GBIN4) --CLOSE DISC-FILE«, t00=0x0018, t01=0x003c}
0x25ec…2610 Head {h00=0x0020, h01=0x0050, text=» MOVE LBIN2,W0 BIT-INDEX:=0 «, t00=0x0018, t01=0x0076}
0x2610…2634 Head {h00=0x0020, h01=0x0050, text=» MOVE LSTR1,=X'31' LOAD '1' «, t00=0x0018, t01=0x009a}
0x2634…2660 Head {h00=0x0028, h01=0x0050, text=» MOVE LSTR16,=X'30' LOAD WITH '0':S «, t00=0x0018, t01=0x00be}
0x2660…266e Head {h00=0x000a, h01=0x0050, text=»FSU875«, t00=0x0018, t01=0x00ea}
0x266e…26a2 Head {h00=0x0030, h01=0x0050, text=» CALL TESTB,LBIN3,LBIN2 ---TEST BIT (INDEX) «, t00=0x0018, t01=0x00f8}
0x26a2…26c6 Head {h00=0x0020, h01=0x0050, text=» BOK FSU880 JMP IF FALSE = 0«, t00=0x0018, t01=0x012c}
0x26c6…2704 Head {h00=0x003a, h01=0x0050, text=» XCOPY LSTR16,LBIN2,W1,LSTR1,W0 LOAD '1' WHEN TRUE = 1«, t00=0x0018, t01=0x0150}
0x2704…2712 Head {h00=0x000a, h01=0x0050, text=»FSU880«, t00=0x0018, t01=0x018e}
0x2712…2736 Head {h00=0x0020, h01=0x0050, text=» ADD LBIN2,W1 NEXT BITINDEX «, t00=0x0019, t01=0x000c}
0x2736…2766 Head {h00=0x002c, h01=0x0050, text=» CBNG LBIN2,W15,FSU875 GO ON UNTIL > 15 «, t00=0x0019, t01=0x0030}
0x2766…2774 Head {h00=0x000a, h01=0x0050, text=»FSU885«, t00=0x0019, t01=0x0060}
0x2774…2794 Head {h00=0x001c, h01=0x0050, text=» MOVE LBIN1,W0 NO CLEAR «, t00=0x0019, t01=0x006e}
0x2794…27bc Head {h00=0x0024, h01=0x0050, text=» MOVE LBIN4,W8 ERRORMESSAGE NO:8«, t00=0x0019, t01=0x008e}
0x27bc…27f8 Head {h00=0x0038, h01=0x0050, text=» PERF WSMERR,KEYT5,=W'0' ***(ERROR-)MESSAGE /ROUTINE«, t00=0x0019, t01=0x00b6}
0x27f8…2822 Head {h00=0x0026, h01=0x0050, text=» IB LBIN2,FSU870,FSU000, CLR,CAN C«, t00=0x0019, t01=0x00f2}
0x2822…2842 Head {h00=0x001c, h01=0x0050, text=» FSU300,FSU000 RET,ENT «, t00=0x0019, t01=0x011c}
0x2842…2870 Head {h00=0x002a, h01=0x0050, text=» DISPLAY 0,W1,W0 DISPLAY ENTIRE FORMAT«, t00=0x0019, t01=0x013c}
0x2870…288c Head {h00=0x0018, h01=0x0050, text=» B FSU885 POWER OFF «, t00=0x0019, t01=0x016a}
0x288c…289a Head {h00=0x000a, h01=0x0050, text=»FSU890«, t00=0x0019, t01=0x0186}
0x289a…28d4 (26, 0, 398) Head {h00=0x0036, h01=0x0050, text=» CALL PCLOSE,LSTR81,BPOOL(GBIN4) --CLOSE DISC-FILE«, t00=0x001a, t01=0x0004}
0x28d4…28e6 Head {h00=0x000e, h01=0x0050, text=» B FSU000 «, t00=0x001a, t01=0x003e}
0x28e6…28f4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0050}
0x28f4…28fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x005e}
0x28fe…2928 Head {h00=0x0026, h01=0x0050, text=»* DUPLICATION OF FORMAT SECTION«, t00=0x001a, t01=0x0068}
0x2928…2932 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0092}
0x2932…2940 Head {h00=0x000a, h01=0x0050, text=»FSU900«, t00=0x001a, t01=0x009c}
0x2940…2970 Head {h00=0x002c, h01=0x0050, text=» DSC KEYB,CED,SYSLFC CHANGE ECHO-DEVICE «, t00=0x001a, t01=0x00aa}
0x2970…29a4 Head {h00=0x0030, h01=0x0050, text=» CALL CHANFC,SCRN,SYSLFC ---CHANGE FILE CODE«, t00=0x001a, t01=0x00da}
0x29a4…29ba Head {h00=0x0012, h01=0x0050, text=» ATTFMT FWFSDP«, t00=0x001a, t01=0x010e}
0x29ba…29de Head {h00=0x0020, h01=0x0050, text=» MOVE LBIN18,W24 LINE NUMBER«, t00=0x001a, t01=0x0124}
0x29de…29f6 Head {h00=0x0014, h01=0x0050, text=» TBF VD82,FSU901«, t00=0x001a, t01=0x0148}
0x29f6…2a1e Head {h00=0x0024, h01=0x0050, text=» MOVE LBIN18,W1 VD82 SYSTEM LINE«, t00=0x001a, t01=0x0160}
0x2a1e…2a2c Head {h00=0x000a, h01=0x0050, text=»FSU901«, t00=0x001a, t01=0x0188}
0x2a2c…2a52 Head {h00=0x0022, h01=0x0050, text=» SET LBOOL4 TRUE = DUPLICATION«, t00=0x001b, t01=0x0008}
0x2a52…2a6c Head {h00=0x0016, h01=0x0050, text=»FSU940 POWER OFF«, t00=0x001b, t01=0x002e}
0x2a6c…2a8c Head {h00=0x001c, h01=0x0050, text=» DISPLAY 4,LBIN18,LBIN18«, t00=0x001b, t01=0x0048}
0x2a8c…2ab2 Head {h00=0x0022, h01=0x0050, text=» MOVE LBIN4,W3 FIELDNUMBER:=3 «, t00=0x001b, t01=0x0068}
0x2ab2…2ae4 Head {h00=0x002e, h01=0x0050, text=» GETFLD 0,LBIN4,LBIN3 MAKE FIELD 3 CURRENT«, t00=0x001b, t01=0x008e}
0x2ae4…2af4 Head {h00=0x000c, h01=0x0050, text=» SETCUR «, t00=0x001b, t01=0x00c0}
0x2af4…2b02 Head {h00=0x000a, h01=0x0050, text=»FSU910«, t00=0x001b, t01=0x00d0}
0x2b02…2b18 Head {h00=0x0012, h01=0x0050, text=» GETABX LBIN4 «, t00=0x001b, t01=0x00de}
0x2b18…2b46 Head {h00=0x002a, h01=0x0050, text=» SET LBOOLD FOR WSMERR; DISPLAY COND. «, t00=0x001b, t01=0x00f4}
0x2b46…2b88 Head {h00=0x003e, h01=0x0050, text=» PERF READIN,KEYT1,KEYT2,KEYT3,=W'0' ***READ IN ONE FIELD «, t00=0x001b, t01=0x0122}
0x2b88…2b9e Head {h00=0x0012, h01=0x0050, text=» CLEAR LBOOLD «, t00=0x001b, t01=0x0164}
0x2b9e…2bce Head {h00=0x002c, h01=0x0050, text=» IB LBIN2,FSU950,FSU920, E-O-F,CANCEL C «, t00=0x001b, t01=0x017a}
0x2bce…2bf6 Head {h00=0x0024, h01=0x0050, text=» FSU300,FSU940 RETURN,POWER OFF«, t00=0x001c, t01=0x001a}
0x2bf6…2c08 Head {h00=0x000e, h01=0x0050, text=» B FSU910 «, t00=0x001c, t01=0x0042}
0x2c08…2c16 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x0054}
0x2c16…2c20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0062}
0x2c20…2c36 Head {h00=0x0012, h01=0x0050, text=»* CANCEL KEY«, t00=0x001c, t01=0x006c}
0x2c36…2c40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0082}
0x2c40…2c4e Head {h00=0x000a, h01=0x0050, text=»FSU920«, t00=0x001c, t01=0x008c}
0x2c4e…2c64 Head {h00=0x0012, h01=0x0050, text=» ERASE 1,W1,W0«, t00=0x001c, t01=0x009a}
0x2c64…2ca2 Head {h00=0x003a, h01=0x0050, text=» XCOPY GSTR6C,W0,W6,GSTR80,W8 RESTORE OLD VOLUME NAME «, t00=0x001c, t01=0x00b0}
0x2ca2…2cde Head {h00=0x0038, h01=0x0050, text=» XCOPY GSTR8A,W0,W8,GSTR80,W0 RESTORE OLD FILE NAME «, t00=0x001c, t01=0x00ee}
0x2cde…2d1e Head {h00=0x003c, h01=0x0050, text=» XCOPY GSTR6A,W0,W6,BPOOL(GBIN4),W6 RESTORE SECTION NAME«, t00=0x001c, t01=0x012a}
0x2d1e…2d36 Head {h00=0x0014, h01=0x0050, text=» DISPLAY 1,W1,W0«, t00=0x001c, t01=0x016a}
0x2d36…2d48 Head {h00=0x000e, h01=0x0050, text=» B FSU940 «, t00=0x001c, t01=0x0182}
0x2d48…2d56 (29, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x0004}
0x2d56…2d60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0012}
0x2d60…2d80 Head {h00=0x001c, h01=0x0050, text=»* END OF FORMAT FOUND «, t00=0x001d, t01=0x001c}
0x2d80…2d8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x003c}
0x2d8a…2d98 Head {h00=0x000a, h01=0x0050, text=»FSU950«, t00=0x001d, t01=0x0046}
0x2d98…2db8 Head {h00=0x001c, h01=0x0050, text=» MOVE LBIN1,W0 NO CLEAR «, t00=0x001d, t01=0x0054}
0x2db8…2ddc Head {h00=0x0020, h01=0x0050, text=» MOVE LBIN4,W7 MESSAGE NO:=7«, t00=0x001d, t01=0x0074}
0x2ddc…2e18 Head {h00=0x0038, h01=0x0050, text=» PERF WSMERR,KEYT5,=W'0' ***(ERROR/)MESSAGE ROUTINE «, t00=0x001d, t01=0x0098}
0x2e18…2e42 Head {h00=0x0026, h01=0x0050, text=» IB LBIN2,FSU940,FSU920, CLR,CAN C«, t00=0x001d, t01=0x00d4}
0x2e42…2e62 Head {h00=0x001c, h01=0x0050, text=» FSU300,FSU960 RET ENT «, t00=0x001d, t01=0x00fe}
0x2e62…2e7e Head {h00=0x0018, h01=0x0050, text=» B FSU940 POWER OFF «, t00=0x001d, t01=0x011e}
0x2e7e…2e88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x013a}
0x2e88…2e9e Head {h00=0x0012, h01=0x0050, text=»* ENTER KEY «, t00=0x001d, t01=0x0144}
0x2e9e…2ea8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x015a}
0x2ea8…2eb6 Head {h00=0x000a, h01=0x0050, text=»FSU960«, t00=0x001d, t01=0x0164}
0x2eb6…2ef8 Head {h00=0x003e, h01=0x0050, text=» XCOPY BPOOL(GBIN4),W6,W6,GSTR6A,W0 RENAME FORMAT SECTION «, t00=0x001d, t01=0x0172}
0x2ef8…2f2e Head {h00=0x0032, h01=0x0050, text=» XCOPY BPOOL(GBIN4),W22,W1,W1,W1 VERSION NO:=1«, t00=0x001e, t01=0x0024}
0x2f2e…2f5a Head {h00=0x0028, h01=0x0050, text=» MOVE GBIN2,W2 INDICATE DIRECT WRITE«, t00=0x001e, t01=0x005a}
0x2f5a…2f6c Head {h00=0x000e, h01=0x0050, text=» B FSU999 «, t00=0x001e, t01=0x0086}
0x2f6c…2f7a Head {h00=0x000a, h01=0x0050, text=»FSU985«, t00=0x001e, t01=0x0098}
0x2f7a…2fac Head {h00=0x002e, h01=0x0050, text=» MOVE LBIN5,W5 VALIDATION BUFFER OVERFLOW «, t00=0x001e, t01=0x00a6}
0x2fac…2fba Head {h00=0x000a, h01=0x0050, text=»FSU980«, t00=0x001e, t01=0x00d8}
0x2fba…2fda Head {h00=0x001c, h01=0x0050, text=» MOVE LBIN1,W0 NO CLEAR «, t00=0x001e, t01=0x00e6}
0x2fda…3004 Head {h00=0x0026, h01=0x0050, text=» MOVE LBIN4,W2 ERRORMESSAGE NO:=2 «, t00=0x001e, t01=0x0106}
0x3004…3040 Head {h00=0x0038, h01=0x0050, text=» PERF WSMERR,KEYT5,=W'0' ***(ERROR-)MESSAGE ROUTINE «, t00=0x001e, t01=0x0130}
0x3040…306a Head {h00=0x0026, h01=0x0050, text=» MOVE GBIN2,W1 INDICATE RETURN KEY«, t00=0x001e, t01=0x016c}
0x306a…3078 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x0008}
0x3078…3082 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0016}
0x3082…3094 Head {h00=0x000e, h01=0x0050, text=»* EXIT «, t00=0x001f, t01=0x0020}
0x3094…309e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0032}
0x309e…30ac Head {h00=0x000a, h01=0x0050, text=»FSU999«, t00=0x001f, t01=0x003c}
0x30ac…30e0 Head {h00=0x0030, h01=0x0050, text=» CALL CHANFC,SCRN,SCRNFC ---CHANGE FILE CODE«, t00=0x001f, t01=0x004a}
0x30e0…3110 Head {h00=0x002c, h01=0x0050, text=» DSC KEYB,CED,SCRNFC CHANGE ECHO-DEVIVE «, t00=0x001f, t01=0x007e}
0x3110…3126 Head {h00=0x0012, h01=0x0050, text=» ATTFMT FHOME «, t00=0x001f, t01=0x00ae}
0x3126…3134 Head {h00=0x000a, h01=0x0050, text=» THOME«, t00=0x001f, t01=0x00c4}
0x3134…3158 Head {h00=0x0020, h01=0x0050, text=» CLEAR LBOOL4 NO DUPLICATION«, t00=0x001f, t01=0x00d2}
0x3158…3164 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001f, t01=0x00f6}
0x3164…3172 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001f, t01=0x0102}
0x3172…3180 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x0110}
0x3180…319c Head {h00=0x0018, h01=0x0050, text=» INCLUDE FWFSUS,LIST«, t00=0x001f, t01=0x011e}
0x319c…31a8 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x001f, t01=0x013a}
0x31a8…31ac Head {h00=0x4004, h01=0x0000}
0x31ac…31b0 00 1f 01 46 ┆ F┆
0x31b0…31b8 (32, 1, 8) 20 04 00 00 00 20 00 04 ┆ ┆
0x31b8…3208 (33, 0, 477) 00 0c 02 ff 01 00 00 82 00 86 00 00 00 00 00 00 00 10 03 00 01 02 00 00 00 89 00 00 00 02 4f 00 00 80 00 00 00 00 00 00 00 0c 03 04 01 00 00 81 00 86 00 00 00 00 00 00 00 16 03 05 01 03 00 00 00 bc 00 00 00 02 4f 04 00 0f 6b 00 00 b0 00 01 ┆ O O k ┆
0x3208…3258 00 16 03 06 01 03 00 00 00 bc 00 00 00 02 4f 04 00 84 6b 00 00 bc 00 01 00 18 03 07 01 05 00 00 00 bd 00 00 00 02 4f 04 00 2f 4f 04 00 63 4f 00 00 24 00 00 00 00 00 00 00 14 03 08 01 03 00 00 00 88 00 00 00 02 4f 04 00 2f 4f 00 00 1d 00 00 ┆ O k O /O cO $ O /O ┆
0x3258…32a8 00 0c 03 09 01 00 00 85 00 86 00 00 00 00 00 00 00 14 03 0a 01 03 00 00 00 bc 00 00 00 02 4f 04 00 36 4f 00 00 17 00 00 00 24 03 0b 01 07 00 00 00 bb 00 00 00 02 4f 04 00 84 4f 04 00 36 4f 04 00 86 4f 04 00 29 4f 04 00 63 4f 00 00 18 00 00 ┆ O 6O $ O O 6O O )O cO ┆
0x32a8…32f8 00 10 03 0c 01 02 00 00 00 9c 00 00 00 02 4f 00 00 87 00 00 00 00 00 00 00 14 03 0d 01 03 00 00 00 88 00 00 00 02 4f 04 00 63 4f 00 00 18 00 00 00 18 03 0e 01 04 00 00 00 a1 00 00 00 02 4f 04 00 63 4f 04 00 26 4f 00 00 87 00 00 00 00 00 00 ┆ O O cO O cO &O ┆
0x32f8…3348 00 18 03 0f 01 04 00 00 00 a1 00 00 00 02 4f 04 00 63 4f 04 00 2f 4f 00 00 87 00 00 00 00 00 00 00 10 03 10 01 02 00 00 00 89 00 00 00 02 4f 00 00 85 00 00 00 00 00 00 00 0c 03 11 01 00 00 87 00 86 00 00 00 00 00 00 00 14 03 12 01 03 00 00 ┆ O cO /O O ┆
0x3348…3395 f7 b6 dc b8 1b e6 00 34 01 e0 00 d1 00 00 00 02 4f 04 00 63 4f 00 00 24 00 00 00 10 03 13 01 02 00 00 00 8b 00 00 00 02 4f 00 00 88 00 00 00 00 00 00 00 14 03 14 01 03 00 00 00 bc 00 00 00 02 4f 04 00 36 4f 00 00 17 00 00 00 0c 03 ┆ 4 O cO $ O O 6O ┆
0x3395…33e5 (34, 0, 480) 00 d1 00 00 00 02 4f 04 00 63 4f 00 00 24 00 00 00 10 03 13 01 02 00 00 00 8b 00 00 00 02 4f 00 00 88 00 00 00 00 00 00 00 14 03 14 01 03 00 00 00 bc 00 00 00 02 4f 04 00 36 4f 00 00 17 00 00 00 0c 03 15 01 00 00 89 00 86 00 00 00 00 00 00 ┆ O cO $ O O 6O ┆
0x33e5…3435 00 14 03 16 01 03 00 00 00 a8 00 00 00 02 4f 04 00 36 4f 00 00 8a 00 00 00 10 03 17 01 02 00 00 00 8b 00 00 00 02 4f 00 00 88 00 00 00 00 00 00 00 20 03 18 01 06 00 00 00 d5 00 00 00 02 4f 04 00 2f 4f 04 00 17 4f 04 00 13 4f 04 00 8b 4f 00 ┆ O 6O O O /O O O O ┆
0x3435…3485 00 36 00 00 00 00 00 00 00 18 03 19 01 04 00 00 00 a1 00 00 00 02 4f 04 00 2f 4f 04 00 17 4f 00 00 88 00 00 00 00 00 00 00 14 03 1a 01 03 00 00 00 88 00 00 00 02 4f 04 00 36 4f 00 00 13 00 00 00 14 03 1b 01 03 00 00 00 bc 00 00 00 02 4f 04 ┆ 6 O /O O O 6O O ┆
0x3485…34d5 00 2f 4f 00 00 17 00 00 00 20 03 1c 01 06 00 00 00 d5 00 00 00 02 4f 04 00 2f 4f 04 00 18 4f 04 00 18 4f 04 00 8b 4f 00 00 36 00 00 00 00 00 00 00 1a 03 1d 01 04 00 00 00 a4 00 00 00 02 4f 04 00 2f 6b 06 00 08 00 02 4f 00 00 8c 00 00 00 00 ┆ /O O /O O O O 6 O /k O ┆
0x34d5…3525 00 0c 03 1e 01 00 00 8d 00 86 00 00 00 00 00 00 00 14 03 1f 01 03 00 00 00 88 00 00 00 02 4f 04 00 36 4f 00 00 13 00 00 00 10 03 20 01 02 00 00 00 89 00 00 00 02 4f 00 00 89 00 00 00 00 00 00 00 0c 03 21 01 00 00 00 00 7c 00 00 00 00 00 00 ┆ O 6O O ! | ┆
0x3525…3575 02 a9 02 aa 02 ab 00 34 00 00 00 0c 03 25 01 00 00 8c 00 86 00 00 00 00 00 00 00 1c 03 26 01 05 00 00 00 a0 00 00 00 02 4f 04 00 0c 4f 04 00 2f 4f 04 00 3b 4f 00 00 2f 00 00 00 14 03 27 01 03 00 00 00 d1 00 00 00 02 4f 04 00 2f 4f 00 00 3b ┆ 4 % & O O /O ;O / ' O /O ;┆