|
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: 11014 (0x2b06)
Notes: pts_type(SC)
Names: »FSINIT.SC«
└─⟦f45ea3bc3⟧ Bits:30009713 Philips computer tape "WSM"
└─⟦this⟧ »WSM:CREA/FSINIT.SC«
IDENT FSINIT REL=2.3,851010,870155940230 *************************************************************** * * * LATEST UPDATE 841010 MADE BY CJ * * * HISTORY= * 851010/CJ "-" NOT EOI IN SEC. GUIDING MESS * 841120/CJ MUL&DIV NOW FROM ASS.ROUTINE * 840119/CJ REFRESH OF FORMAT FWSINS * 830526/CJ REL.NUMBER TO FWSINS FROM WSMDDV VIA RELNUM * 830425/CJ REL.DATE STORED IN PASSWORD * * *************************************************************** DDUM WSMDDV PDIV ENTRY FSINIT EXPROC USINIT ***UNPACK F. SECTION INITIALS EXPROC READIN,PKTAB,PKTAB,PKTAB,PLIT ***READ IN ONE FIELD EXPROC WSMERR,PKTAB,PLIT ***(ERROR-)MESSAGE ROUTINE EXT ICLEAR ---ASSRUT:CLEAR ITEM EXT SETB ---ASSRUT:SET BIT EXT WXDIV ---ASSRUT:DIVISION EJECT INCLUDE WSMKEY,LIST EJECT INCLUDE KEYT11,LIST INCLUDE KEYT22,LIST INCLUDE KEYT33,LIST INCLUDE KEYT5,LIST EJECT FSINIT PROC FSI000 MOVE GBIN2,W0 CLEAR RETUR-CODE ATTFMT FWFSIN ATTACH FORMAT-SECTION FORMAT ERASE 6,W1,W0 ERASE OLD CONTENTS TBF LBOOL8,FSI030 JUMP IF NEW FORMAT SECTION PERF USINIT ***UNPACK SECTION INITIAL PART B FSI040 FSI030 PERF FSIDEF ***FORMAT SECTION DEFAULTS FSI040 DISPLAY 0,W1,W0 DISPLAY ENTIRE FORMAT TBT LBOOL8,FSI050 JMP IF UPDATE MOVE LBIN4,W0 FIELD-INDEX:=0 B FSI405 FSI050 MOVE LBIN4,W4 FIELD-INDEX:=4 B FSI405 FSI100 GETABX LBIN4 GET CURRENT INDEX FSI150 PERF READIN,KEYT11,KEYT22,KEYT33,=W'0' ***READIN ONE FIELD IB LBIN2,FSI500,FSI200,FSI300,FSI400 B FSI100 EJECT * * CANCEL-KEY * FSI200 ERASE 4,W1,W0 ERASE OLD CONTENTS TBF LBOOL8,FSI210 JUMP IF NEW FORMAT SECTION PERF USINIT ***UNPACK FORMAT SECTION INIT B FSI220 FSI210 PERF FSIDEF ***FORMAT SECTION DEFAULTS FSI220 DISPLAY 1,W1,W0 DISPLAY JUST FIELD CONTENTS B FSI050 * * RETUR-KEY * FSI300 MOVE GBIN2,W1 INDICATE RETUR-KEY B FSI999 EJECT * * POWER OFF * FSI400 DISPLAY 0,W1,W0 DISPLAY ENTIRE FORMAT FSI402 GETABX LBIN4 GET CURRENT FIELD FSI405 GETFLD 0,LBIN4,LBIN3 SEARCH CURR POS BNOK FSI410 SETCUR B FSI150 FSI410 MOVE LBIN4,LBIN3 CHANGE INDEX B FSI405 EJECT * * END OF FORMAT FOUND * FSI500 BZ FSI505 JMP IF ENT AND NOT E-O-F MOVE LBIN1,W0 NO CLEAR MOVE LBIN4,W7 MESSAGE NO 7 PERF WSMERR,KEYT5,=W'0' ***(ERROR-)MESSAGE ROUTINE IB LBIN2,FSI402,FSI200, CLR,CAN C FSI300,FSI505 RET,ENT B FSI400 POWER OFF FSI505 MOVE GBIN3,W1 1ST BUFFERPOOL MOVE GBIN4,GBIN3 CURRENT BUFFERPOOL=1ST MOVE GBIN5,W6 BUFFER POINTER:=6 XCOPY GBIN6,W0,W1,GBIN4,W1 SAVE START BUFFERINDEX XCOPY GBIN6,W1,W1,GBIN5,W1 SAVE STARTPOINTER IN BUFF CALL ICLEAR,BPOOL(GBIN4) ---CLEAR BUFFER XCOPY BPOOL(GBIN4),GBIN5,W6,GSTR6A,W0 F.SECTION NAME ADD GBIN5,W6 ADJUST BUFFERPOINTER:=12 XCOPY BPOOL(GBIN4),GBIN5,W6,PASDAT,W0 REL.DATE IN PASSWORD ADD GBIN5,W7 ADJUST BUFFERPOINTER:=19 XCOPY BPOOL(GBIN4),GBIN5,W1,W1,W1 OBJECT VERSION NO:=1 ADD GBIN5,W3 ADJUST BUFFERPOINTER:=22 MOVE LBIN1,GBCD3I(W5) CONVERT VERSION NO. TO BINARY ADD LBIN1,W1 VERSION NO:=VERSION NO + 1 MOVE GBCD3I(W5),LBIN1 RESTORE VERSION NO XCOPY BPOOL(GBIN4),GBIN5,W1,LBIN1,W1 VERSION NO ADD GBIN5,W1 ADJUST BUFFERPOINTER:=23 MOVE LBIN1,W0 CBNE GSTR1I(W1),YES,FSI510 JUMP IF AUTO ENT. NO OR EMPTY CALL SETB,LBIN1,W8 ---SET BIT NO:8 FSI510 MOVE LBIN2,GBCD3I(W2) LOAD SECTION TYPE BINARY CBL LBIN2,W3,FSI520 1 AND 2 NO ADJUSTMENT ADD LBIN2,W1 ADJUST FOR >2 CBL LBIN2,W7,FSI520 4,5 AND 6 => NO ADJUSTMENT ADD LBIN2,W1 ADJUST FOR >7 FSI520 ADD LBIN1,LBIN2 XCOPY BPOOL(GBIN4),GBIN5,W1,LBIN1,W1 AUTO ENT AND SEC.TYPE ADD GBIN5,W1 ADJUST BUFFERPOINTER:=24 MOVE LBIN1,GBCD3I(W3) LOAD SEC.SIZE ROWS BINARY XCOPY BPOOL(GBIN4),GBIN5,W1,LBIN1,W1 SEC.SIZE ROWS ADD GBIN5,W1 ADJUST BUFFERPOINTER:=25 MOVE LBIN1,GBCD3I(W4) LOAD SEC.SIZE COLS BINARY XCOPY BPOOL(GBIN4),GBIN5,W1,LBIN1,W1 SEC.SIZE COLS BINARY ADD GBIN5,W11 BUFFERPOINTER:=36 XCOPY BPOOL(GBIN4),GBIN5,W1,GSTR1I(W23),W0 STORE DECIMAL-CHAR EJECT ADD GBIN5,W4 BUFFERPOINTER:=40 * * DECORATION DEFAULTS * 012 4 8 MOVE LSTR81,=C'NBRRUUUUH' PERF DECORD,W2,W3 ***SCREEN BACKGROUND DECOR MOVE GBIN10,LBIN1 SAVE BACKGROUND DEFAULT PERF DECORD,W4,W7 ***STATIC FIELD DECORATION MOVE GBIN11,LBIN1 SAVE STATIC DEFAULT PERF DECORD,W8,W11 ***DYNAMIC FIELD DECOR. MOVE GBIN12,LBIN1 SAVE DYNAMIC DEFAULT ADD GBIN5,W3 3 BYTES UNUSED MOVE LSTR4A,=C'S:M:' LOAD DEF GUID.MESS.-TYPES MOVE LBIN1,GBINIA(W1) WORKITEM:=MESSAGE LENGTH MOVE LBIN3,W0 WORKITEM:=0 MATCH LSTR4A,LBIN3,W4,GST80I(W1),W0,W2 WHAT TYPE? BOK FSI530 ADD GBIN5,W1 NO DEFAULT MESSAGE B FSI540 FSI530 CBE LBIN3,W2,FSI535 JUMP IF LINE MESSAGE ADD LBIN1,W1 ADJUST LENGTH WHEN SECTION FSI535 XCOPY BPOOL(GBIN4),GBIN5,W1,LBIN1,W1 DEF.GUID.MESS.-TYPE + LEN ADD GBIN5,W1 ADJUST BUFFER POINTER CBE LBIN3,W2,FSI538 JUMP IF LINE MESSGAE XCOPY BPOOL(GBIN4),GBIN5,W1,W0,W0 LOAD MSG TYPE=SECTION X'00' ADD GBIN5,W1 ADJUST BUFFER POINTER FSI538 XCOPY BPOOL(GBIN4),GBIN5,GBINIA(W1),GST80I(W1),W2 ADD GBIN5,GBINIA(W1) ADJUST POINTER FSI540 * * RELATIVE ADRESS OF STATIC FIELD-CODE * - BYTES 24-25 (+6) POOL-UNIT-NO + DISPLACEMENT * MOVE LBIN1,W24 LOAD BUFFERPOINTER:=24 ADD LBIN1,W6 GIVING 30 XCOPY BPOOL(GBIN4),LBIN1,W1,GBIN4,W1 REL. ADR.ST. FC. POOL NO ADD LBIN1,W1 GIVING BUFFERPOINTER=31 ADD GBIN5,W1 ADJUST BUFFERPOINTER CALL WXDIV,GBIN5,W2,GBIN5 POINTER MUST BE ... ADD GBIN5,GBIN5 ...EVEN MOVE GBIN7,GBIN5 SAVE START ADRESS OF ST FIELD XCOPY GBIN7,W0,W1,GBIN4,W1 SAVE START ADRESS OF ST FIELD MOVE LBIN2,GBIN5 LOAD POINTER VALUE SUB LBIN2,W6 ADJUST FOR OV HEAD XCOPY BPOOL(GBIN4),LBIN1,W1,LBIN2,W1 REL. ADR.ST. FC. DISPL. EJECT * * EXIT * FSI999 RET PEND EJECT * * FORMAT SECTION DEFAULT VALUES * FSIDEF PROC MOVE GBCD3I(W2),W1 SECTION TYPE MOVE GBCD3I(W3),ROWS SECTION SIZE ROWS MOVE GBCD3I(W4),COLS SECTION SIZE COLS MOVE GBCD3I(W5),W0 VERSION NO:=0 MOVE GBCD3I(W15),W1 EFFEKTIV SIZE ROWS MOVE GBCD3I(W16),W1 EFFEKTIV SIZE COLS MOVE GBINIA(W8),W1 OBJ VERSION NO:=1 MOVE GSTR1I(W1),NO AUTO ENTERING MOVE GSTR1I(W23),=C'.' DECIMAL=POINT MOVE GSTR1I(W8),=C'H' DYNAMIC DECOR 1 RET PEND EJECT ************************************************************************ * * DECORATION DEFAULTS * INPUT PARMETERS * LSTR81 = NBRRUUUUH * 012 4 8 GIVING CORRESPONDING BIT * LINDEX = LOWEST INDEX OF 'GSTR1I' * HINDEX = HIGHEST INDEX OF 'GSTR1I' * OUTPUT BPOOL = UPDATED WITH A BYTE OF DECORATIONBITS * GBIN5 = PONTER ADJUSTED * ************************************************************************ DECORD PROC LINDEX,HINDEX PBIN LINDEX PBIN HINDEX MOVE LBIN1,W0 WORKITEM:=0 MOVE LBIN3,LINDEX SAVE START INDEX DEC100 MOVE LBIN2,W0 WORKITEM:=0 MATCH LSTR81,LBIN2,W9,GSTR1I(LBIN3),W0,W1 BNOK DEC200 EMPTY ADD LBIN1,LBIN2 SET CORRESPONDING BIT DEC200 ADD LBIN3,W1 NEXT INDEX CBNG LBIN3,HINDEX,DEC100 NOT GREATER HIGHEST INDEX XCOPY BPOOL(GBIN4),GBIN5,W1,LBIN1,W1 DECORATION DEFAULT ADD GBIN5,W1 ADJUST PONTER RET PEND INCLUDE FWSINS,LIST END
0x0000…0032 (0, 0, 400) Head {h00=0x002e, h01=0x0050, text=» IDENT FSINIT REL=2.3,851010,870155940230 «, t00=0x0000, t01=0x0004}
0x0032…003a Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0036}
0x003a…0082 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0000, t01=0x003e}
0x0082…008c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0086}
0x008c…0096 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0090}
0x0096…00c4 Head {h00=0x002a, h01=0x0050, text=»* LATEST UPDATE 841010 MADE BY CJ«, t00=0x0000, t01=0x009a}
0x00c4…00ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00c8}
0x00ce…00d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00d2}
0x00d8…00f0 Head {h00=0x0014, h01=0x0050, text=»* HISTORY= «, t00=0x0000, t01=0x00dc}
0x00f0…0134 Head {h00=0x0040, h01=0x0050, text=»* 851010/CJ "-" NOT EOI IN SEC. GUIDING MESS «, t00=0x0000, t01=0x00f4}
0x0134…0174 Head {h00=0x003c, h01=0x0050, text=»* 841120/CJ MUL&DIV NOW FROM ASS.ROUTINE «, t00=0x0000, t01=0x0138}
0x0174…01b0 Head {h00=0x0038, h01=0x0050, text=»* 840119/CJ REFRESH OF FORMAT FWSINS «, t00=0x0000, t01=0x0178}
0x01b0…01fe Head {h00=0x004a, h01=0x0050, text=»* 830526/CJ REL.NUMBER TO FWSINS FROM WSMDDV VIA RELNUM«, t00=0x0001, t01=0x0024}
0x01fe…023c Head {h00=0x003a, h01=0x0050, text=»* 830425/CJ REL.DATE STORED IN PASSWORD«, t00=0x0001, t01=0x0072}
0x023c…0246 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00b0}
0x0246…0250 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ba}
0x0250…0298 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0001, t01=0x00c4}
0x0298…02a0 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x010c}
0x02a0…02b4 Head {h00=0x0010, h01=0x0050, text=» DDUM WSMDDV«, t00=0x0001, t01=0x0114}
0x02b4…02c2 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0001, t01=0x0128}
0x02c2…02d8 Head {h00=0x0012, h01=0x0050, text=» ENTRY FSINIT «, t00=0x0001, t01=0x0136}
0x02d8…030c Head {h00=0x0030, h01=0x0050, text=» EXPROC USINIT ***UNPACK F. SECTION INITIALS«, t00=0x0001, t01=0x014c}
0x030c…034e Head {h00=0x003e, h01=0x0050, text=» EXPROC READIN,PKTAB,PKTAB,PKTAB,PLIT ***READ IN ONE FIELD«, t00=0x0001, t01=0x0180}
0x034e…038a Head {h00=0x0038, h01=0x0050, text=» EXPROC WSMERR,PKTAB,PLIT ***(ERROR-)MESSAGE ROUTINE«, t00=0x0002, t01=0x0032}
0x038a…03b2 Head {h00=0x0024, h01=0x0050, text=» EXT ICLEAR ---ASSRUT:CLEAR ITEM«, t00=0x0002, t01=0x006e}
0x03b2…03d6 Head {h00=0x0020, h01=0x0050, text=» EXT SETB ---ASSRUT:SET BIT «, t00=0x0002, t01=0x0096}
0x03d6…03fc Head {h00=0x0022, h01=0x0050, text=» EXT WXDIV ---ASSRUT:DIVISION «, t00=0x0002, t01=0x00ba}
0x03fc…040a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x00e0}
0x040a…0426 Head {h00=0x0018, h01=0x0050, text=» INCLUDE WSMKEY,LIST«, t00=0x0002, t01=0x00ee}
0x0426…0434 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x010a}
0x0434…0450 Head {h00=0x0018, h01=0x0050, text=» INCLUDE KEYT11,LIST«, t00=0x0002, t01=0x0118}
0x0450…046c Head {h00=0x0018, h01=0x0050, text=» INCLUDE KEYT22,LIST«, t00=0x0002, t01=0x0134}
0x046c…0488 Head {h00=0x0018, h01=0x0050, text=» INCLUDE KEYT33,LIST«, t00=0x0002, t01=0x0150}
0x0488…04a4 Head {h00=0x0018, h01=0x0050, text=» INCLUDE KEYT5,LIST «, t00=0x0002, t01=0x016c}
0x04a4…04b2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0188}
0x04b2…04c6 Head {h00=0x0010, h01=0x0050, text=»FSINIT PROC «, t00=0x0003, t01=0x0008}
0x04c6…04d4 Head {h00=0x000a, h01=0x0050, text=»FSI000«, t00=0x0003, t01=0x001c}
0x04d4…04fc Head {h00=0x0024, h01=0x0050, text=» MOVE GBIN2,W0 CLEAR RETUR-CODE «, t00=0x0003, t01=0x002a}
0x04fc…0530 Head {h00=0x0030, h01=0x0050, text=» ATTFMT FWFSIN ATTACH FORMAT-SECTION FORMAT «, t00=0x0003, t01=0x0052}
0x0530…055a Head {h00=0x0026, h01=0x0050, text=» ERASE 6,W1,W0 ERASE OLD CONTENTS «, t00=0x0003, t01=0x0086}
0x055a…0590 Head {h00=0x0032, h01=0x0050, text=» TBF LBOOL8,FSI030 JUMP IF NEW FORMAT SECTION «, t00=0x0003, t01=0x00b0}
0x0590…05c4 Head {h00=0x0030, h01=0x0050, text=» PERF USINIT ***UNPACK SECTION INITIAL PART «, t00=0x0003, t01=0x00e6}
0x05c4…05d6 Head {h00=0x000e, h01=0x0050, text=» B FSI040 «, t00=0x0003, t01=0x011a}
0x05d6…05e4 Head {h00=0x000a, h01=0x0050, text=»FSI030«, t00=0x0003, t01=0x012c}
0x05e4…0614 Head {h00=0x002c, h01=0x0050, text=» PERF FSIDEF ***FORMAT SECTION DEFAULTS «, t00=0x0003, t01=0x013a}
0x0614…0622 Head {h00=0x000a, h01=0x0050, text=»FSI040«, t00=0x0003, t01=0x016a}
0x0622…0650 Head {h00=0x002a, h01=0x0050, text=» DISPLAY 0,W1,W0 DISPLAY ENTIRE FORMAT«, t00=0x0003, t01=0x0178}
0x0650…0678 Head {h00=0x0024, h01=0x0050, text=» TBT LBOOL8,FSI050 JMP IF UPDATE«, t00=0x0004, t01=0x0016}
0x0678…069e Head {h00=0x0022, h01=0x0050, text=» MOVE LBIN4,W0 FIELD-INDEX:=0 «, t00=0x0004, t01=0x003e}
0x069e…06b0 Head {h00=0x000e, h01=0x0050, text=» B FSI405 «, t00=0x0004, t01=0x0064}
0x06b0…06be Head {h00=0x000a, h01=0x0050, text=»FSI050«, t00=0x0004, t01=0x0076}
0x06be…06e4 Head {h00=0x0022, h01=0x0050, text=» MOVE LBIN4,W4 FIELD-INDEX:=4 «, t00=0x0004, t01=0x0084}
0x06e4…06f6 Head {h00=0x000e, h01=0x0050, text=» B FSI405 «, t00=0x0004, t01=0x00aa}
0x06f6…0704 Head {h00=0x000a, h01=0x0050, text=»FSI100«, t00=0x0004, t01=0x00bc}
0x0704…072c Head {h00=0x0024, h01=0x0050, text=» GETABX LBIN4 GET CURRENT INDEX «, t00=0x0004, t01=0x00ca}
0x072c…073a Head {h00=0x000a, h01=0x0050, text=»FSI150«, t00=0x0004, t01=0x00f2}
0x073a…077e Head {h00=0x0040, h01=0x0050, text=» PERF READIN,KEYT11,KEYT22,KEYT33,=W'0' ***READIN ONE FIELD «, t00=0x0004, t01=0x0100}
0x077e…07ac Head {h00=0x002a, h01=0x0050, text=» IB LBIN2,FSI500,FSI200,FSI300,FSI400 «, t00=0x0004, t01=0x0144}
0x07ac…07be Head {h00=0x000e, h01=0x0050, text=» B FSI100 «, t00=0x0004, t01=0x0172}
0x07be…07cc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0184}
0x07cc…07d6 (5, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0004}
0x07d6…07ee Head {h00=0x0014, h01=0x0050, text=»* CANCEL-KEY «, t00=0x0005, t01=0x000e}
0x07ee…07f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0026}
0x07f8…0806 Head {h00=0x000a, h01=0x0050, text=»FSI200«, t00=0x0005, t01=0x0030}
0x0806…0830 Head {h00=0x0026, h01=0x0050, text=» ERASE 4,W1,W0 ERASE OLD CONTENTS «, t00=0x0005, t01=0x003e}
0x0830…0866 Head {h00=0x0032, h01=0x0050, text=» TBF LBOOL8,FSI210 JUMP IF NEW FORMAT SECTION «, t00=0x0005, t01=0x0068}
0x0866…0898 Head {h00=0x002e, h01=0x0050, text=» PERF USINIT ***UNPACK FORMAT SECTION INIT«, t00=0x0005, t01=0x009e}
0x0898…08aa Head {h00=0x000e, h01=0x0050, text=» B FSI220 «, t00=0x0005, t01=0x00d0}
0x08aa…08b8 Head {h00=0x000a, h01=0x0050, text=»FSI210«, t00=0x0005, t01=0x00e2}
0x08b8…08e8 Head {h00=0x002c, h01=0x0050, text=» PERF FSIDEF ***FORMAT SECTION DEFAULTS «, t00=0x0005, t01=0x00f0}
0x08e8…08f6 Head {h00=0x000a, h01=0x0050, text=»FSI220«, t00=0x0005, t01=0x0120}
0x08f6…092a Head {h00=0x0030, h01=0x0050, text=» DISPLAY 1,W1,W0 DISPLAY JUST FIELD CONTENTS«, t00=0x0005, t01=0x012e}
0x092a…093c Head {h00=0x000e, h01=0x0050, text=» B FSI050 «, t00=0x0005, t01=0x0162}
0x093c…0946 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0174}
0x0946…095c Head {h00=0x0012, h01=0x0050, text=»* RETUR-KEY«, t00=0x0005, t01=0x017e}
0x095c…0966 (6, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0004}
0x0966…0974 Head {h00=0x000a, h01=0x0050, text=»FSI300«, t00=0x0006, t01=0x000e}
0x0974…099e Head {h00=0x0026, h01=0x0050, text=» MOVE GBIN2,W1 INDICATE RETUR-KEY «, t00=0x0006, t01=0x001c}
0x099e…09b0 Head {h00=0x000e, h01=0x0050, text=» B FSI999 «, t00=0x0006, t01=0x0046}
0x09b0…09be Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0058}
0x09be…09c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0066}
0x09c8…09de Head {h00=0x0012, h01=0x0050, text=»* POWER OFF«, t00=0x0006, t01=0x0070}
0x09de…09e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0086}
0x09e8…09f6 Head {h00=0x000a, h01=0x0050, text=»FSI400«, t00=0x0006, t01=0x0090}
0x09f6…0a24 Head {h00=0x002a, h01=0x0050, text=» DISPLAY 0,W1,W0 DISPLAY ENTIRE FORMAT«, t00=0x0006, t01=0x009e}
0x0a24…0a32 Head {h00=0x000a, h01=0x0050, text=»FSI402«, t00=0x0006, t01=0x00cc}
0x0a32…0a5a Head {h00=0x0024, h01=0x0050, text=» GETABX LBIN4 GET CURRENT FIELD «, t00=0x0006, t01=0x00da}
0x0a5a…0a68 Head {h00=0x000a, h01=0x0050, text=»FSI405«, t00=0x0006, t01=0x0102}
0x0a68…0a96 Head {h00=0x002a, h01=0x0050, text=» GETFLD 0,LBIN4,LBIN3 SEARCH CURR POS «, t00=0x0006, t01=0x0110}
0x0a96…0aaa Head {h00=0x0010, h01=0x0050, text=» BNOK FSI410«, t00=0x0006, t01=0x013e}
0x0aaa…0aba Head {h00=0x000c, h01=0x0050, text=» SETCUR «, t00=0x0006, t01=0x0152}
0x0aba…0acc Head {h00=0x000e, h01=0x0050, text=» B FSI150 «, t00=0x0006, t01=0x0162}
0x0acc…0ada Head {h00=0x000a, h01=0x0050, text=»FSI410«, t00=0x0006, t01=0x0174}
0x0ada…0b00 Head {h00=0x0022, h01=0x0050, text=» MOVE LBIN4,LBIN3 CHANGE INDEX«, t00=0x0006, t01=0x0182}
0x0b00…0b12 Head {h00=0x000e, h01=0x0050, text=» B FSI405 «, t00=0x0007, t01=0x0018}
0x0b12…0b20 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x002a}
0x0b20…0b2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0038}
0x0b2a…0b4a Head {h00=0x001c, h01=0x0050, text=»* END OF FORMAT FOUND«, t00=0x0007, t01=0x0042}
0x0b4a…0b54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0062}
0x0b54…0b62 Head {h00=0x000a, h01=0x0050, text=»FSI500«, t00=0x0007, t01=0x006c}
0x0b62…0b8e Head {h00=0x0028, h01=0x0050, text=» BZ FSI505 JMP IF ENT AND NOT E-O-F «, t00=0x0007, t01=0x007a}
0x0b8e…0bae Head {h00=0x001c, h01=0x0050, text=» MOVE LBIN1,W0 NO CLEAR «, t00=0x0007, t01=0x00a6}
0x0bae…0bd2 Head {h00=0x0020, h01=0x0050, text=» MOVE LBIN4,W7 MESSAGE NO 7«, t00=0x0007, t01=0x00c6}
0x0bd2…0c0e Head {h00=0x0038, h01=0x0050, text=» PERF WSMERR,KEYT5,=W'0' ***(ERROR-)MESSAGE ROUTINE «, t00=0x0007, t01=0x00ea}
0x0c0e…0c38 Head {h00=0x0026, h01=0x0050, text=» IB LBIN2,FSI402,FSI200, CLR,CAN C«, t00=0x0007, t01=0x0126}
0x0c38…0c58 Head {h00=0x001c, h01=0x0050, text=» FSI300,FSI505 RET,ENT «, t00=0x0007, t01=0x0150}
0x0c58…0c74 Head {h00=0x0018, h01=0x0050, text=» B FSI400 POWER OFF «, t00=0x0007, t01=0x0170}
0x0c74…0c82 Head {h00=0x000a, h01=0x0050, text=»FSI505«, t00=0x0007, t01=0x018c}
0x0c82…0ca8 Head {h00=0x0022, h01=0x0050, text=» MOVE GBIN3,W1 1ST BUFFERPOOL «, t00=0x0008, t01=0x000a}
0x0ca8…0cd8 Head {h00=0x002c, h01=0x0050, text=» MOVE GBIN4,GBIN3 CURRENT BUFFERPOOL=1ST«, t00=0x0008, t01=0x0030}
0x0cd8…0d00 Head {h00=0x0024, h01=0x0050, text=» MOVE GBIN5,W6 BUFFER POINTER:=6«, t00=0x0008, t01=0x0060}
0x0d00…0d3a Head {h00=0x0036, h01=0x0050, text=» XCOPY GBIN6,W0,W1,GBIN4,W1 SAVE START BUFFERINDEX«, t00=0x0008, t01=0x0088}
0x0d3a…0d78 Head {h00=0x003a, h01=0x0050, text=» XCOPY GBIN6,W1,W1,GBIN5,W1 SAVE STARTPOINTER IN BUFF «, t00=0x0008, t01=0x00c2}
0x0d78…0daa Head {h00=0x002e, h01=0x0050, text=» CALL ICLEAR,BPOOL(GBIN4) ---CLEAR BUFFER «, t00=0x0008, t01=0x0100}
0x0daa…0de8 Head {h00=0x003a, h01=0x0050, text=» XCOPY BPOOL(GBIN4),GBIN5,W6,GSTR6A,W0 F.SECTION NAME «, t00=0x0008, t01=0x0132}
0x0de8…0e16 Head {h00=0x002a, h01=0x0050, text=» ADD GBIN5,W6 ADJUST BUFFERPOINTER:=12«, t00=0x0008, t01=0x0170}
0x0e16…0e5a Head {h00=0x0040, h01=0x0050, text=» XCOPY BPOOL(GBIN4),GBIN5,W6,PASDAT,W0 REL.DATE IN PASSWORD «, t00=0x0009, t01=0x000e}
0x0e5a…0e88 Head {h00=0x002a, h01=0x0050, text=» ADD GBIN5,W7 ADJUST BUFFERPOINTER:=19«, t00=0x0009, t01=0x0052}
0x0e88…0ec8 Head {h00=0x003c, h01=0x0050, text=» XCOPY BPOOL(GBIN4),GBIN5,W1,W1,W1 OBJECT VERSION NO:=1 «, t00=0x0009, t01=0x0080}
0x0ec8…0ef6 Head {h00=0x002a, h01=0x0050, text=» ADD GBIN5,W3 ADJUST BUFFERPOINTER:=22«, t00=0x0009, t01=0x00c0}
0x0ef6…0f32 Head {h00=0x0038, h01=0x0050, text=» MOVE LBIN1,GBCD3I(W5) CONVERT VERSION NO. TO BINARY«, t00=0x0009, t01=0x00ee}
0x0f32…0f62 Head {h00=0x002c, h01=0x0050, text=» ADD LBIN1,W1 VERSION NO:=VERSION NO + 1«, t00=0x0009, t01=0x012a}
0x0f62…0f94 Head {h00=0x002e, h01=0x0050, text=» MOVE GBCD3I(W5),LBIN1 RESTORE VERSION NO «, t00=0x0009, t01=0x015a}
0x0f94…0fcc Head {h00=0x0034, h01=0x0050, text=» XCOPY BPOOL(GBIN4),GBIN5,W1,LBIN1,W1 VERSION NO«, t00=0x0009, t01=0x018c}
0x0fcc…0ffa Head {h00=0x002a, h01=0x0050, text=» ADD GBIN5,W1 ADJUST BUFFERPOINTER:=23«, t00=0x000a, t01=0x0034}
0x0ffa…1010 Head {h00=0x0012, h01=0x0050, text=» MOVE LBIN1,W0«, t00=0x000a, t01=0x0062}
0x1010…1052 Head {h00=0x003e, h01=0x0050, text=» CBNE GSTR1I(W1),YES,FSI510 JUMP IF AUTO ENT. NO OR EMPTY «, t00=0x000a, t01=0x0078}
0x1052…107e Head {h00=0x0028, h01=0x0050, text=» CALL SETB,LBIN1,W8 ---SET BIT NO:8 «, t00=0x000a, t01=0x00ba}
0x107e…108c Head {h00=0x000a, h01=0x0050, text=»FSI510«, t00=0x000a, t01=0x00e6}
0x108c…10c4 Head {h00=0x0034, h01=0x0050, text=» MOVE LBIN2,GBCD3I(W2) LOAD SECTION TYPE BINARY «, t00=0x000a, t01=0x00f4}
0x10c4…10f6 Head {h00=0x002e, h01=0x0050, text=» CBL LBIN2,W3,FSI520 1 AND 2 NO ADJUSTMENT«, t00=0x000a, t01=0x012c}
0x10f6…111a Head {h00=0x0020, h01=0x0050, text=» ADD LBIN2,W1 ADJUST FOR >2 «, t00=0x000a, t01=0x015e}
0x111a…1152 Head {h00=0x0034, h01=0x0050, text=» CBL LBIN2,W7,FSI520 4,5 AND 6 => NO ADJUSTMENT «, t00=0x000a, t01=0x0182}
0x1152…1176 Head {h00=0x0020, h01=0x0050, text=» ADD LBIN2,W1 ADJUST FOR >7 «, t00=0x000b, t01=0x002a}
0x1176…1184 Head {h00=0x000a, h01=0x0050, text=»FSI520«, t00=0x000b, t01=0x004e}
0x1184…119c Head {h00=0x0014, h01=0x0050, text=» ADD LBIN1,LBIN2«, t00=0x000b, t01=0x005c}
0x119c…11e0 Head {h00=0x0040, h01=0x0050, text=» XCOPY BPOOL(GBIN4),GBIN5,W1,LBIN1,W1 AUTO ENT AND SEC.TYPE «, t00=0x000b, t01=0x0074}
0x11e0…120e Head {h00=0x002a, h01=0x0050, text=» ADD GBIN5,W1 ADJUST BUFFERPOINTER:=24«, t00=0x000b, t01=0x00b8}
0x120e…1246 Head {h00=0x0034, h01=0x0050, text=» MOVE LBIN1,GBCD3I(W3) LOAD SEC.SIZE ROWS BINARY«, t00=0x000b, t01=0x00e6}
0x1246…1282 Head {h00=0x0038, h01=0x0050, text=» XCOPY BPOOL(GBIN4),GBIN5,W1,LBIN1,W1 SEC.SIZE ROWS «, t00=0x000b, t01=0x011e}
0x1282…12b0 Head {h00=0x002a, h01=0x0050, text=» ADD GBIN5,W1 ADJUST BUFFERPOINTER:=25«, t00=0x000b, t01=0x015a}
0x12b0…12e8 Head {h00=0x0034, h01=0x0050, text=» MOVE LBIN1,GBCD3I(W4) LOAD SEC.SIZE COLS BINARY«, t00=0x000b, t01=0x0188}
0x12e8…132a Head {h00=0x003e, h01=0x0050, text=» XCOPY BPOOL(GBIN4),GBIN5,W1,LBIN1,W1 SEC.SIZE COLS BINARY«, t00=0x000c, t01=0x0030}
0x132a…1352 Head {h00=0x0024, h01=0x0050, text=» ADD GBIN5,W11 BUFFERPOINTER:=36«, t00=0x000c, t01=0x0072}
0x1352…1398 Head {h00=0x0042, h01=0x0050, text=» XCOPY BPOOL(GBIN4),GBIN5,W1,GSTR1I(W23),W0 STORE DECIMAL-CHAR«, t00=0x000c, t01=0x009a}
0x1398…13a6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x00e0}
0x13a6…13ce Head {h00=0x0024, h01=0x0050, text=» ADD GBIN5,W4 BUFFERPOINTER:=40 «, t00=0x000c, t01=0x00ee}
0x13ce…13d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0116}
0x13d8…13f8 Head {h00=0x001c, h01=0x0050, text=»* DECORATION DEFAULTS«, t00=0x000c, t01=0x0120}
0x13f8…1424 Head {h00=0x0028, h01=0x0050, text=»* 012 4 8«, t00=0x000c, t01=0x0140}
0x1424…1446 Head {h00=0x001e, h01=0x0050, text=» MOVE LSTR81,=C'NBRRUUUUH'«, t00=0x000c, t01=0x016c}
0x1446…147c Head {h00=0x0032, h01=0x0050, text=» PERF DECORD,W2,W3 ***SCREEN BACKGROUND DECOR «, t00=0x000c, t01=0x018e}
0x147c…14ae Head {h00=0x002e, h01=0x0050, text=» MOVE GBIN10,LBIN1 SAVE BACKGROUND DEFAULT«, t00=0x000d, t01=0x0034}
0x14ae…14e4 Head {h00=0x0032, h01=0x0050, text=» PERF DECORD,W4,W7 ***STATIC FIELD DECORATION «, t00=0x000d, t01=0x0066}
0x14e4…1512 Head {h00=0x002a, h01=0x0050, text=» MOVE GBIN11,LBIN1 SAVE STATIC DEFAULT«, t00=0x000d, t01=0x009c}
0x1512…1546 Head {h00=0x0030, h01=0x0050, text=» PERF DECORD,W8,W11 ***DYNAMIC FIELD DECOR. «, t00=0x000d, t01=0x00ca}
0x1546…1576 Head {h00=0x002c, h01=0x0050, text=» MOVE GBIN12,LBIN1 SAVE DYNAMIC DEFAULT «, t00=0x000d, t01=0x00fe}
0x1576…159a Head {h00=0x0020, h01=0x0050, text=» ADD GBIN5,W3 3 BYTES UNUSED«, t00=0x000d, t01=0x012e}
0x159a…15d2 Head {h00=0x0034, h01=0x0050, text=» MOVE LSTR4A,=C'S:M:' LOAD DEF GUID.MESS.-TYPES «, t00=0x000d, t01=0x0152}
0x15d2…160a Head {h00=0x0034, h01=0x0050, text=» MOVE LBIN1,GBINIA(W1) WORKITEM:=MESSAGE LENGTH «, t00=0x000d, t01=0x018a}
0x160a…162c Head {h00=0x001e, h01=0x0050, text=» MOVE LBIN3,W0 WORKITEM:=0«, t00=0x000e, t01=0x0032}
0x162c…1666 Head {h00=0x0036, h01=0x0050, text=» MATCH LSTR4A,LBIN3,W4,GST80I(W1),W0,W2 WHAT TYPE?«, t00=0x000e, t01=0x0054}
0x1666…167a Head {h00=0x0010, h01=0x0050, text=» BOK FSI530 «, t00=0x000e, t01=0x008e}
0x167a…16a2 Head {h00=0x0024, h01=0x0050, text=» ADD GBIN5,W1 NO DEFAULT MESSAGE«, t00=0x000e, t01=0x00a2}
0x16a2…16b4 Head {h00=0x000e, h01=0x0050, text=» B FSI540 «, t00=0x000e, t01=0x00ca}
0x16b4…16c2 Head {h00=0x000a, h01=0x0050, text=»FSI530«, t00=0x000e, t01=0x00dc}
0x16c2…16f4 Head {h00=0x002e, h01=0x0050, text=» CBE LBIN3,W2,FSI535 JUMP IF LINE MESSAGE «, t00=0x000e, t01=0x00ea}
0x16f4…1724 Head {h00=0x002c, h01=0x0050, text=» ADD LBIN1,W1 ADJUST LENGTH WHEN SECTION«, t00=0x000e, t01=0x011c}
0x1724…1732 Head {h00=0x000a, h01=0x0050, text=»FSI535«, t00=0x000e, t01=0x014c}
0x1732…177a Head {h00=0x0044, h01=0x0050, text=» XCOPY BPOOL(GBIN4),GBIN5,W1,LBIN1,W1 DEF.GUID.MESS.-TYPE + LEN «, t00=0x000e, t01=0x015a}
0x177a…17a6 Head {h00=0x0028, h01=0x0050, text=» ADD GBIN5,W1 ADJUST BUFFER POINTER «, t00=0x000f, t01=0x0012}
0x17a6…17d8 Head {h00=0x002e, h01=0x0050, text=» CBE LBIN3,W2,FSI538 JUMP IF LINE MESSGAE «, t00=0x000f, t01=0x003e}
0x17d8…181e Head {h00=0x0042, h01=0x0050, text=» XCOPY BPOOL(GBIN4),GBIN5,W1,W0,W0 LOAD MSG TYPE=SECTION X'00'«, t00=0x000f, t01=0x0070}
0x181e…184a Head {h00=0x0028, h01=0x0050, text=» ADD GBIN5,W1 ADJUST BUFFER POINTER «, t00=0x000f, t01=0x00b6}
0x184a…1858 Head {h00=0x000a, h01=0x0050, text=»FSI538«, t00=0x000f, t01=0x00e2}
0x1858…1892 Head {h00=0x0036, h01=0x0050, text=» XCOPY BPOOL(GBIN4),GBIN5,GBINIA(W1),GST80I(W1),W2«, t00=0x000f, t01=0x00f0}
0x1892…18be Head {h00=0x0028, h01=0x0050, text=» ADD GBIN5,GBINIA(W1) ADJUST POINTER«, t00=0x000f, t01=0x012a}
0x18be…18cc Head {h00=0x000a, h01=0x0050, text=»FSI540«, t00=0x000f, t01=0x0156}
0x18cc…18d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0164}
0x18d6…1908 Head {h00=0x002e, h01=0x0050, text=»* RELATIVE ADRESS OF STATIC FIELD-CODE «, t00=0x000f, t01=0x016e}
0x1908…1946 Head {h00=0x003a, h01=0x0050, text=»* - BYTES 24-25 (+6) POOL-UNIT-NO + DISPLACEMENT«, t00=0x0010, t01=0x0010}
0x1946…1950 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x004e}
0x1950…197e Head {h00=0x002a, h01=0x0050, text=» MOVE LBIN1,W24 LOAD BUFFERPOINTER:=24«, t00=0x0010, t01=0x0058}
0x197e…199e Head {h00=0x001c, h01=0x0050, text=» ADD LBIN1,W6 GIVING 30 «, t00=0x0010, t01=0x0086}
0x199e…19e4 Head {h00=0x0042, h01=0x0050, text=» XCOPY BPOOL(GBIN4),LBIN1,W1,GBIN4,W1 REL. ADR.ST. FC. POOL NO«, t00=0x0010, t01=0x00a6}
0x19e4…1a12 Head {h00=0x002a, h01=0x0050, text=» ADD LBIN1,W1 GIVING BUFFERPOINTER=31 «, t00=0x0010, t01=0x00ec}
0x1a12…1a3c Head {h00=0x0026, h01=0x0050, text=» ADD GBIN5,W1 ADJUST BUFFERPOINTER«, t00=0x0010, t01=0x011a}
0x1a3c…1a72 Head {h00=0x0032, h01=0x0050, text=» CALL WXDIV,GBIN5,W2,GBIN5 POINTER MUST BE ...«, t00=0x0010, t01=0x0144}
0x1a72…1a92 Head {h00=0x001c, h01=0x0050, text=» ADD GBIN5,GBIN5 ...EVEN«, t00=0x0010, t01=0x017a}
0x1a92…1aca Head {h00=0x0034, h01=0x0050, text=» MOVE GBIN7,GBIN5 SAVE START ADRESS OF ST FIELD «, t00=0x0011, t01=0x000a}
0x1aca…1b0c Head {h00=0x003e, h01=0x0050, text=» XCOPY GBIN7,W0,W1,GBIN4,W1 SAVE START ADRESS OF ST FIELD «, t00=0x0011, t01=0x0042}
0x1b0c…1b38 Head {h00=0x0028, h01=0x0050, text=» MOVE LBIN2,GBIN5 LOAD POINTER VALUE«, t00=0x0011, t01=0x0084}
0x1b38…1b60 Head {h00=0x0024, h01=0x0050, text=» SUB LBIN2,W6 ADJUST FOR OV HEAD«, t00=0x0011, t01=0x00b0}
0x1b60…1ba6 Head {h00=0x0042, h01=0x0050, text=» XCOPY BPOOL(GBIN4),LBIN1,W1,LBIN2,W1 REL. ADR.ST. FC. DISPL. «, t00=0x0011, t01=0x00d8}
0x1ba6…1bb4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x011e}
0x1bb4…1bbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x012c}
0x1bbe…1bce Head {h00=0x000c, h01=0x0050, text=»* EXIT«, t00=0x0011, t01=0x0136}
0x1bce…1bd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0146}
0x1bd8…1be6 Head {h00=0x000a, h01=0x0050, text=»FSI999«, t00=0x0011, t01=0x0150}
0x1be6…1bf2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0011, t01=0x015e}
0x1bf2…1c00 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0011, t01=0x016a}
0x1c00…1c0e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x0178}
0x1c0e…1c18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0186}
0x1c18…1c42 Head {h00=0x0026, h01=0x0050, text=»* FORMAT SECTION DEFAULT VALUES«, t00=0x0011, t01=0x0190}
0x1c42…1c4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x002a}
0x1c4c…1c60 Head {h00=0x0010, h01=0x0050, text=»FSIDEF PROC «, t00=0x0012, t01=0x0034}
0x1c60…1c88 Head {h00=0x0024, h01=0x0050, text=» MOVE GBCD3I(W2),W1 SECTION TYPE«, t00=0x0012, t01=0x0048}
0x1c88…1cb8 Head {h00=0x002c, h01=0x0050, text=» MOVE GBCD3I(W3),ROWS SECTION SIZE ROWS «, t00=0x0012, t01=0x0070}
0x1cb8…1ce8 Head {h00=0x002c, h01=0x0050, text=» MOVE GBCD3I(W4),COLS SECTION SIZE COLS «, t00=0x0012, t01=0x00a0}
0x1ce8…1d12 Head {h00=0x0026, h01=0x0050, text=» MOVE GBCD3I(W5),W0 VERSION NO:=0 «, t00=0x0012, t01=0x00d0}
0x1d12…1d42 Head {h00=0x002c, h01=0x0050, text=» MOVE GBCD3I(W15),W1 EFFEKTIV SIZE ROWS «, t00=0x0012, t01=0x00fa}
0x1d42…1d72 Head {h00=0x002c, h01=0x0050, text=» MOVE GBCD3I(W16),W1 EFFEKTIV SIZE COLS «, t00=0x0012, t01=0x012a}
0x1d72…1da0 Head {h00=0x002a, h01=0x0050, text=» MOVE GBINIA(W8),W1 OBJ VERSION NO:=1 «, t00=0x0012, t01=0x015a}
0x1da0…1dca Head {h00=0x0026, h01=0x0050, text=» MOVE GSTR1I(W1),NO AUTO ENTERING «, t00=0x0012, t01=0x0188}
0x1dca…1df8 Head {h00=0x002a, h01=0x0050, text=» MOVE GSTR1I(W23),=C'.' DECIMAL=POINT «, t00=0x0013, t01=0x0022}
0x1df8…1e26 Head {h00=0x002a, h01=0x0050, text=» MOVE GSTR1I(W8),=C'H' DYNAMIC DECOR 1«, t00=0x0013, t01=0x0050}
0x1e26…1e32 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0013, t01=0x007e}
0x1e32…1e40 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0013, t01=0x008a}
0x1e40…1e4e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x0098}
0x1e4e…1e9e Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0013, t01=0x00a6}
0x1e9e…1ea8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00f6}
0x1ea8…1ec8 Head {h00=0x001c, h01=0x0050, text=»* DECORATION DEFAULTS«, t00=0x0013, t01=0x0100}
0x1ec8…1ee6 Head {h00=0x001a, h01=0x0050, text=»* INPUT PARMETERS«, t00=0x0013, t01=0x0120}
0x1ee6…1f1a Head {h00=0x0030, h01=0x0050, text=»* LSTR81 = NBRRUUUUH «, t00=0x0013, t01=0x013e}
0x1f1a…1f6a Head {h00=0x004c, h01=0x0050, text=»* 012 4 8 GIVING CORRESPONDING BIT «, t00=0x0013, t01=0x0172}
0x1f6a…1fac Head {h00=0x003e, h01=0x0050, text=»* LINDEX = LOWEST INDEX OF 'GSTR1I'«, t00=0x0014, t01=0x0032}
0x1fac…1ff0 Head {h00=0x0040, h01=0x0050, text=»* HINDEX = HIGHEST INDEX OF 'GSTR1I' «, t00=0x0014, t01=0x0074}
0x1ff0…2040 Head {h00=0x004c, h01=0x0050, text=»* OUTPUT BPOOL = UPDATED WITH A BYTE OF DECORATIONBITS «, t00=0x0014, t01=0x00b8}
0x2040…207a Head {h00=0x0036, h01=0x0050, text=»* GBIN5 = PONTER ADJUSTED «, t00=0x0014, t01=0x0108}
0x207a…2084 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0142}
0x2084…20d4 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0014, t01=0x014c}
0x20d4…20f6 Head {h00=0x001e, h01=0x0050, text=»DECORD PROC LINDEX,HINDEX «, t00=0x0015, t01=0x000c}
0x20f6…210a Head {h00=0x0010, h01=0x0050, text=» PBIN LINDEX«, t00=0x0015, t01=0x002e}
0x210a…211e Head {h00=0x0010, h01=0x0050, text=» PBIN HINDEX«, t00=0x0015, t01=0x0042}
0x211e…2140 Head {h00=0x001e, h01=0x0050, text=» MOVE LBIN1,W0 WORKITEM:=0«, t00=0x0015, t01=0x0056}
0x2140…216c Head {h00=0x0028, h01=0x0050, text=» MOVE LBIN3,LINDEX SAVE START INDEX «, t00=0x0015, t01=0x0078}
0x216c…217a Head {h00=0x000a, h01=0x0050, text=»DEC100«, t00=0x0015, t01=0x00a4}
0x217a…219c Head {h00=0x001e, h01=0x0050, text=» MOVE LBIN2,W0 WORKITEM:=0«, t00=0x0015, t01=0x00b2}
0x219c…21ce Head {h00=0x002e, h01=0x0050, text=» MATCH LSTR81,LBIN2,W9,GSTR1I(LBIN3),W0,W1«, t00=0x0015, t01=0x00d4}
0x21ce…21e8 Head {h00=0x0016, h01=0x0050, text=» BNOK DEC200 EMPTY«, t00=0x0015, t01=0x0106}
0x21e8…2216 Head {h00=0x002a, h01=0x0050, text=» ADD LBIN1,LBIN2 SET CORRESPONDING BIT«, t00=0x0015, t01=0x0120}
0x2216…2224 Head {h00=0x000a, h01=0x0050, text=»DEC200«, t00=0x0015, t01=0x014e}
0x2224…2244 Head {h00=0x001c, h01=0x0050, text=» ADD LBIN3,W1 NEXT INDEX«, t00=0x0015, t01=0x015c}
0x2244…2280 Head {h00=0x0038, h01=0x0050, text=» CBNG LBIN3,HINDEX,DEC100 NOT GREATER HIGHEST INDEX «, t00=0x0015, t01=0x017c}
0x2280…22c0 Head {h00=0x003c, h01=0x0050, text=» XCOPY BPOOL(GBIN4),GBIN5,W1,LBIN1,W1 DECORATION DEFAULT«, t00=0x0016, t01=0x0028}
0x22c0…22e4 Head {h00=0x0020, h01=0x0050, text=» ADD GBIN5,W1 ADJUST PONTER «, t00=0x0016, t01=0x0068}
0x22e4…22f0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0016, t01=0x008c}
0x22f0…22fe Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0016, t01=0x0098}
0x22fe…231a Head {h00=0x0018, h01=0x0050, text=» INCLUDE FWSINS,LIST«, t00=0x0016, t01=0x00a6}
0x231a…2326 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0016, t01=0x00c2}
0x2326…232a Head {h00=0x4004, h01=0x0000}
0x232a…232e 00 16 00 ce ┆ ┆
0x232e…2336 (23, 1, 8) 20 04 00 00 00 17 00 04 ┆ ┆
0x2336…2386 (24, 0, 400) 49 54 49 4f 4e 2b 2b 4e 4f 57 20 50 52 49 4e 54 49 4e 47 20 41 4c 52 45 41 44 59 20 44 45 46 49 4e 45 44 46 4f 52 4d 41 54 20 53 45 43 54 49 4f 4e 3a 45 58 54 45 4e 44 45 44 20 50 52 4f 4d 50 54 20 3a 47 55 49 44 49 4e 47 20 4d 45 53 53 41 ┆ITION++NOW PRINTING ALREADY DEFINEDFORMAT SECTION:EXTENDED PROMPT :GUIDING MESSA┆
0x2386…23d6 47 45 20 3a 46 4f 52 4d 41 54 20 44 45 46 49 4e 49 54 49 4f 4e 3a 58 5a 54 54 39 54 54 54 5a 5a 39 59 59 59 59 5a 5a 5a 45 2f 04 8f 91 99 10 04 8f 91 99 80 05 8f 91 99 80 98 06 8f 91 99 80 8c 8b 07 8f 91 99 80 0f 0e 98 07 8f 91 99 80 98 0e ┆GE :FORMAT DEFINITION:XZTT9TTTZZ9YYYYZZZE/ ┆
0x23d6…2426 90 07 ee ee ee 48 55 52 42 0b 8f 91 99 80 0f 0e 10 09 88 82 98 0e 08 8f ee 8c 91 99 8c 2d 8b ee 98 90 10 80 0e 08 8f ee 8c 91 99 8c ee 8b ee 98 90 10 80 0f 08 8f ee 8c 91 99 8c 2d 8b ee 98 90 10 80 8d 0f 08 8f ee 8c 91 99 8c ee 8b ee 98 90 ┆ HURB - - ┆
0x2426…2476 10 80 8d 0f 08 ee 8f 8c 91 99 8c 2d 8b ee 98 90 09 80 8d 0f 08 ee 8f 8c 91 99 8c ee 8b ee 98 90 09 80 8d 12 10 09 0f 0e ee 8f 05 8c 91 99 8c 2d 8b ee 98 ee ee 80 12 10 09 0f 0e ee 8f 05 8c 91 99 8c ee 8b ee 98 ee ee 80 15 10 09 88 82 0f 0e ┆ - - ┆
0x2476…24c6 8f 8c 91 99 80 08 92 81 03 93 98 0d 94 20 8b 15 10 09 88 82 0f 0e 8f 8c 91 99 80 08 92 81 03 93 98 0d 94 ee 8b e0 81 07 c3 02 20 31 c3 06 56 41 4c 42 55 46 c3 06 46 49 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ 1 VALBUF FI ┆
0x24c6…2516 (25, 0, 400) 44 54 41 42 c3 06 50 49 43 54 55 52 c3 06 42 50 4f 4f 4c 20 c3 06 41 54 54 41 42 20 e0 c1 4b c0 6f c4 17 c1 4a e0 c1 4e c0 6f c4 1a c1 4a e0 c1 4b c0 6f c4 18 c1 47 e0 c1 4e c0 6f c4 1b c1 47 82 20 c4 0c c1 4c c0 5a 16 e8 82 20 c4 0c c1 4d ┆DTAB PICTUR BPOOL ATTAB K o J N o J K o G N o G L Z M┆
0x2516…2566 c0 5a 15 e8 e0 c3 09 49 2f 4f 2d 45 52 52 4f 52 e0 c3 0d 49 4c 4c 45 47 41 4c 20 54 59 50 45 20 e0 c3 10 50 52 49 4e 54 45 52 20 4f 43 43 55 50 49 45 44 82 20 c4 0c c1 45 c3 05 56 41 4c 55 45 c4 1c 81 3a c0 4f e8 e0 c3 12 46 49 45 4c 44 2d ┆ Z I/O-ERROR ILLEGAL TYPE PRINTER OCCUPIED E VALUE : O FIELD-┆
0x2566…25b6 49 44 20 4e 4f 54 20 46 4f 55 4e 44 e0 c3 0d 53 59 4e 54 41 58 20 45 52 52 4f 52 3a c2 02 5a 5a 6a df 1e c3 12 4d 55 53 54 20 42 45 20 28 2e 29 20 4f 52 20 28 2c 29 df 1e c3 14 4d 55 53 54 20 42 45 20 28 4d 3a 29 20 4f 52 20 28 53 3a 29 e0 ┆ID NOT FOUND SYNTAX ERROR: ZZj MUST BE (.) OR (,) MUST BE (M:) OR (S:) ┆
0x25b6…2606 c3 15 4d 55 53 54 20 42 45 20 28 59 45 53 29 20 4f 52 20 28 4e 4f 29 e0 c3 17 59 4f 55 20 41 52 45 20 41 4c 52 45 41 44 59 20 54 48 45 52 45 21 21 e0 c3 07 56 4f 4c 55 4d 45 3a c0 6f c4 0f c3 0a 4e 4f 54 20 4c 4f 41 44 45 44 e0 c3 17 49 4c ┆ MUST BE (YES) OR (NO) YOU ARE ALREADY THERE!! VOLUME: o NOT LOADED IL┆
0x2606…2656 4c 45 47 41 4c 20 45 4e 44 2d 4f 46 2d 49 54 45 4d 20 4b 45 59 e0 c3 18 53 45 43 54 49 4f 4e 20 54 59 50 45 20 4d 55 53 54 20 42 45 20 31 2d 36 e0 c3 18 50 52 45 53 53 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆LEGAL END-OF-ITEM KEY SECTION TYPE MUST BE 1-6 PRESS ┆
0x2656…26a6 (26, 0, 400) 20 3c 45 4e 54 45 52 3e 20 54 4f 20 43 4f 4e 46 49 52 4d e0 c3 18 54 4f 4f 20 46 45 57 20 49 4e 50 55 54 20 43 48 41 52 41 43 54 45 52 53 e0 c3 19 50 52 49 4e 54 2d 44 45 56 49 43 45 20 4e 4f 54 20 4f 50 45 52 41 42 4c 45 e0 c3 19 4d 55 53 ┆ <ENTER> TO CONFIRM TOO FEW INPUT CHARACTERS PRINT-DEVICE NOT OPERABLE MUS┆
0x26a6…26f6 54 20 42 45 20 28 4c 45 46 54 29 20 4f 52 20 28 52 49 47 48 54 29 e0 c3 1a 46 49 45 4c 44 20 4e 41 4d 45 20 41 4c 52 45 41 44 59 20 44 45 46 49 4e 45 44 e0 c3 0d 57 4f 52 4b 49 4e 47 20 41 52 45 41 20 df 48 64 c3 09 20 45 58 43 45 45 44 45 ┆T BE (LEFT) OR (RIGHT) FIELD NAME ALREADY DEFINED WORKING AREA Hd EXCEEDE┆
0x26f6…2746 44 e0 c3 1c 43 4f 4d 50 55 4c 53 4f 52 59 20 46 49 45 4c 44 20 4e 4f 54 20 45 4e 54 45 52 45 44 e0 c3 1d 53 50 41 43 45 20 4e 4f 54 20 41 4c 4c 4f 57 45 44 20 49 4e 20 46 49 45 4c 44 20 49 44 82 20 c4 0c db b6 10 c3 0a 56 41 4c 49 44 41 54 ┆D COMPULSORY FIELD NOT ENTERED SPACE NOT ALLOWED IN FIELD ID VALIDAT┆
0x2746…2796 49 4f 4e c4 1c 81 3a c4 1d 15 bb b5 c4 22 c0 bf b5 e8 e0 c3 1f 53 45 43 54 49 4f 4e 20 54 4f 4f 20 42 49 47 20 46 4f 52 20 54 48 45 20 44 49 53 50 4c 41 59 e0 c3 1f 4d 55 53 54 20 4e 4f 54 20 43 4f 4e 54 41 49 4e 20 44 59 4e 41 4d 49 43 20 ┆ION : " SECTION TOO BIG FOR THE DISPLAY MUST NOT CONTAIN DYNAMIC ┆
0x2796…27e6 46 49 45 4c 44 53 e0 c3 21 50 52 49 4e 54 2d 44 45 56 49 43 45 53 20 41 52 45 20 3c 47 50 3e 20 4f 52 20 3c 4c 50 3e 20 21 21 e0 c3 1d 4d 55 53 54 20 4e 4f 54 20 45 58 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆FIELDS !PRINT-DEVICES ARE <GP> OR <LP> !! MUST NOT EX ┆
0x27e6…2836 (27, 0, 400) 43 45 45 44 20 4d 41 58 20 52 4f 57 20 53 49 5a 45 3a c2 02 5a 5a 6a e0 db 69 08 c3 04 44 49 53 4b d8 06 c3 04 50 4f 4f 4c c3 0f 2d 45 52 52 4f 52 2e 20 53 54 41 54 55 53 3a c0 7d e0 c3 23 42 41 53 49 43 2d 56 45 52 42 20 4f 52 20 2d 46 55 ┆CEED MAX ROW SIZE: ZZj i DISK POOL -ERROR. STATUS: } #BASIC-VERB OR -FU┆
0x2836…2886 4e 43 54 49 4f 4e 20 4e 4f 54 20 41 4c 4c 4f 57 45 44 e0 c3 05 46 49 4c 45 3a c0 6f c4 0f c3 18 4e 4f 54 20 46 4f 55 4e 44 20 4f 4e 20 54 48 49 53 20 56 4f 4c 55 4d 45 e0 c3 0f 4d 55 53 54 20 42 45 20 57 49 54 48 49 4e 20 c2 03 5a 5a 39 5c ┆NCTION NOT ALLOWED FILE: o NOT FOUND ON THIS VOLUME MUST BE WITHIN ZZ9 ┆
0x2886…28d6 b5 c3 05 20 41 4e 44 20 c2 03 5a 5a 39 6a e0 c3 24 49 4c 4c 45 47 41 4c 20 44 49 52 45 43 54 49 4f 4e 20 54 4f 20 57 41 4e 54 45 44 20 46 49 45 4c 44 2d 49 44 e0 c3 1d 53 59 4e 54 41 58 20 45 52 52 4f 52 20 46 4f 55 4e 44 20 49 4e 20 4c 49 ┆ AND ZZ9j $ILLEGAL DIRECTION TO WANTED FIELD-ID SYNTAX ERROR FOUND IN LI┆
0x28d6…2926 4e 45 20 3a 20 c2 04 39 39 39 39 bb 19 e0 c3 25 31 53 54 20 43 48 41 52 41 43 54 45 52 20 4d 55 53 54 20 42 45 20 41 4c 50 48 42 45 54 49 43 20 28 41 2d 5a 29 e0 c3 26 4d 55 53 54 20 42 45 20 28 53 4b 49 50 29 2c 28 44 55 50 4c 29 2c 28 42 ┆NE : 9999 %1ST CHARACTER MUST BE ALPHBETIC (A-Z) &MUST BE (SKIP),(DUPL),(B┆
0x2926…2976 59 50 41 53 53 29 20 4f 52 20 28 4e 4f 29 e0 c3 2a 57 53 4d 20 57 4f 52 4b 20 49 54 45 4d 20 28 57 53 2e 2e 2f 57 41 2e 2e 2f 57 4e 2e 2e 29 20 4e 4f 54 20 41 4c 4c 4f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆YPASS) OR (NO) *WSM WORK ITEM (WS../WA../WN..) NOT ALLO ┆
0x2976…29c6 (28, 0, 400) 57 45 44 e0 c3 23 50 52 49 4e 54 4f 55 54 20 50 4f 53 49 54 49 4f 4e 53 20 4d 55 53 54 20 42 45 20 4f 55 54 53 49 44 45 20 c2 03 5a 5a 39 5c 1d 81 2a c2 03 5a 5a 39 5c 1e e0 c3 33 4d 55 53 54 20 42 45 20 41 20 46 49 45 4c 44 20 4e 41 4d 45 ┆WED #PRINTOUT POSITIONS MUST BE OUTSIDE ZZ9 * ZZ9 3MUST BE A FIELD NAME┆
0x29c6…2a16 2c 20 57 53 4d 20 57 4f 52 4b 20 49 54 45 4d 20 4f 52 20 41 20 44 41 54 41 20 54 41 42 4c 45 e0 c3 36 50 52 45 53 53 20 3c 45 4e 54 45 52 3e 20 54 4f 20 43 4f 4e 46 49 52 4d 20 4f 52 20 3c 50 52 49 4e 54 3e 20 54 4f 20 43 4f 4e 46 49 52 4d ┆, WSM WORK ITEM OR A DATA TABLE 6PRESS <ENTER> TO CONFIRM OR <PRINT> TO CONFIRM┆
0x2a16…2a66 20 26 20 50 52 49 4e 54 e0 c3 2b 50 52 45 53 53 20 3c 45 4e 54 45 52 3e 20 3d 20 55 50 44 41 54 45 2c 20 3c 50 52 49 4e 54 3e 20 3d 20 50 52 49 4e 54 4f 55 54 2c c3 25 20 3c 44 45 4c 3e 20 3d 20 44 45 4c 45 54 49 4f 4e 2c 20 3c 44 55 50 3e ┆ & PRINT +PRESS <ENTER> = UPDATE, <PRINT> = PRINTOUT, % <DEL> = DELETION, <DUP>┆
0x2a66…2ab6 20 3d 20 44 55 50 4c 49 43 41 54 45 2e 82 20 14 5c 16 81 2f 12 5c 1b c4 0c c0 52 c4 13 10 5c 17 c4 17 c0 5e 24 c4 1c c0 5e 1c c4 20 c0 5e 1d c4 25 c0 5e 1e c4 2a c0 5e 22 c4 30 c0 5e 23 c4 35 c0 5e 28 c4 37 c0 54 c4 41 c0 5e 20 c4 46 c0 5e ┆ = DUPLICATE. / R ^$ ^ ^ % ^ * ^" 0 ^# 5 ^( 7 T A ^ F ^┆
0x2ab6…2b06 21 c4 49 16 5c 18 13 5c 19 c4 53 c0 5e 25 c4 54 c0 7d e8 c3 02 20 2b c1 41 c1 44 81 3a c0 53 82 20 c1 42 81 3a c0 55 82 20 c3 05 46 49 4c 45 3a c0 59 82 20 c3 0b 56 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 ┆! I S ^% T } + A D : S B : U FILE: Y VE ┆