|
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: 16874 (0x41ea)
Notes: pts_type(SC)
Names: »FSNAME.SC«
└─⟦f45ea3bc3⟧ Bits:30009713 Philips computer tape "WSM"
└─⟦this⟧ »WSM:CREA/FSNAME.SC«
IDENT FSNAME REL=2.3,850606,870155940230 *********************************************************************** * * LATEST UPDATE 850606 MADE BY JE * * HISTORY= * 850606/JE CHECK OVFL-ENTRIES IN ATTAB 'SEATAB' * 850419/CJ MUL&DIV DONE BY ASSRUT * 850313/JE PERFORMANCE INDICATE IF DYN FIELD WAS CHANGED * 841120/CJ MUL&DIV DONE BY ASSRUT * 840925/CJ ADJUSTMENT FOR CANCEL-KEY IN NAMESET * 831208/CJ ADAPTION TO "NEW" POLICE * 831114/CJ NOT OK IF <CAN> ON EMPTY SCREEN - SOLVED * 830923/CJ STPBLK ON MAIN SCREEN IMPL. * 830718/CJ NEW ATTRIBUTES IN FNAMES * 830426/CJ ADAPTION OF SYS.LINE FOR VD81 * ********************************************************************** DDUM WSMDDV PDIV ENTRY FSNAME EXPROC READIN,PKTAB,PKTAB,PKTAB,PLIT ***READ IN ONE FIELD EXPROC WSMERR,PKTAB,PLIT ***(ERROR-)MESSAGE ROUTINE EXPROC POLICE,PBIN,PBOOL,PBOOL,PSTRG ***POOL-LIMIT-CONTROLLER EXPROC DISPLY,PBIN ***DISPLAY FORMAT SECTION EXPROC CURSET,PBIN,PBIN,PDSET ***CURSOR SETTING EXPROC STPBLK ***STOP BLOCKING EXPROC STABLK ***START BLOCKING EXT ICLEAR ---ASSRUT:CLEAR ITEM EXT EMPTYT ---EMPTY ITEM EXT CHANFC ---CHANGE FILE CODE EXT WXDIV ---DIVISION EXT WXMUL ---MULTIPLICATION * CED EQU X'B7' CHANGE ECHO-DEVICE BRW EQU X'85' BASIC WRITE ERS EQU X'B1' ERASE EJECT INCLUDE WSMKEY,LIST EJECT INCLUDE KEYT5,LIST INCLUDE KEYT9,LIST INCLUDE KEYT10,LIST INCLUDE KEYT11,LIST INCLUDE KEYT3,LIST EJECT FSNAME PROC PERF STPBLK ***STOP BLOCKING ON MAIN SCREEN BG FSN982 JUMP IF MEMORY OVERFLOW ATTFMT FHOME THOME MOVE LBIN11,W0 ATTRIBUTE-TABLE-POINTER:=0 CLEAR LBOOL3 FALSE = FORWARD SEARCH CLEAR LBOOLA FALSE=EOI KEY CBNE GBIN2,W1,FSN032 JMP IF NOT RETURN TBT VD82,FSN020 ERASE 0,W1,W0 FSN020 XCOPY GBIN4,W1,W1,GBIN8,W0 RESTORE RETURN-ADRESS BUFFIND XCOPY GBIN5,W1,W1,GBIN8,W1 RESTORE RETURN-ADRESS POINTER MOVE LBIN10,GBIN8 RESTORE STATIC FIELD DISPL. MOVE LBIN16,W1 MOVE LBIN4,=X'0101' MOVE LBIN14,W0 PERF CURSET,LBIN4,LBIN1,SCRN ***CURSOR SETTING TBF VD82,FSN025 JMP IF NOT VD82 MOVE LBIN2,W3 BUFFERLENGTH:=3 MOVE LSTR9A,=X'9B324A00' CONTROL-CODE ERASE DISPLAY DSC SCRN,BRW,LBIN1,LSTR9A,LBIN2 ERASE DISPLAY FSN025 MOVE LBIN1,W0 PERF DISPLY,LBIN8 ***DISPLAY FORMAT SECTION FSN032 TBT LBOOL8,FSN040 JUMP IF UPD OLD CBE GBIN2,W1,FSN040 JMP IF RETURN-KEY FSN030 PERF SEATAB ***SEARCH NEXT DYN.FIELD POS TBT LBOOL4,FSN038 JUMP IF END OF TABLE FOUND ADD LBIN11,W2 ADJUST TO REACH SEQ. NO XCOPY ATTAB,LBIN11,W1,W0,W0 CLEAR SEQ NO ADD LBIN11,W2 ADJUST POINTER B FSN030 FSN038 MOVE LBIN11,W0 ATTRIBUTE-TABLE POINTER:=0 FSN040 DSC KEYB,CED,SYSLFC CHANGE ECHO-DEVICE CALL CHANFC,SCRN,SYSLFC CHANGE FILE CODE ATTFMT FNAMES MOVE LBIN18,=X'0101' CURSOR POS:=0101 TBT VD82,FSN041 JMP IF VD82/83 MOVE LBIN18,=X'1801' CURSOR POS:=2401 FSN041 PERF CURSET,LBIN18,LBIN2,SYSL ***CURSOR SET DSC SYSL,2,COLS ERASE SYSTEMLINE MOVE LBIN18,W1 LOAD FOR DISP. LAST LINE TBT VD82,FSN050 JMP IF VD82/83 MOVE LBIN18,W24 LOAD FOR DISP SYSLINE VD47/81 EJECT * * INITIAL VALUES * FSN050 MOVE LBIN13,W0 FIELD-ID-TABLE-POINTER:=0 TBT LBOOL8,FSN060 JUMP IF UPD OLD CBE GBIN2,W1,FSN065 JUMP IF RETURN-KEY CALL ICLEAR,FIDTAB ---CLEAR FIELD-ID-TABLE B FSN065 FSN060 MOVE LBIN13,GBIN15 LOAD FIRST FREE POS OF FID-TAB FSN065 MOVE GBIN2,W0 CLEAR RETUR-CODE PERF SEATAB ***SEARCH NEXT DYN.FIELD POS TBF LBOOL4,FSN095 JUMP IF END OF TABLE FOUND B FSN260 FSN095 CALL CHANFC,SCRN,SYSLFC CHANGE FILE CODE DISPLAY 4,LBIN18,LBIN18 DISPLAY FORMAT ON LAST ROW FSN098 CALL CHANFC,SCRN,SYSLFC CHANGE FILE CODE ERASE 2,W1,W1 ERASE/CLEAR FIELD-ID CBE LBIN12,W0,FSN099 JUMP IF NEW DYN FIELD MOVE LBIN6,LBIN12 LOAD SEQ.NO CALL WXMUL,LBIN6,W5,LBIN6 SUB LBIN6,W5 CALC ELEMENT ADRESS XCOPY LSTR4A,W0,W4,FIDTAB,LBIN6 STORE OLD CONTENTS DISPLAY 1,W1,W1 DISPLAY OLD FIELD-ID FSN099 CALL CHANFC,SCRN,SCRNFC CHANGE FILE CODE DSC1 SCRN,6,LBIN7 SET CURSOR FSN100 MOVE LBIN3,W1 EXPECTED LENGTH KI .NE,KEYB,LSTR81,KEYT9,LBIN3,LBIN2 BL FSN150 ERROR OR MAX SIZE REACHED CBE LBIN2,W0,FSN110 JUMP IF POWER OFF IB LBIN2,FSN100,FSN100, CLR,CAN C FSN300,FSN260,FSN120, RET,ENT,PLS C FSN130 BTB EJECT * * POWER OFF * FSN110 CALL CHANFC,SCRN,SCRNFC CHANGE FILE CODE 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 CALL CHANFC,SCRN,SYSLFC CHANGE FILE CODE B FSN095 EJECT * * FORWARD TABULATION * FSN120 ADD LBIN11,W4 NEXT DYN FIELD CLEAR LBOOL3 FALSE = FORWARD SEARCH PERF SEATAB ***SEARCH NEXT DYN.FIELD POS TBT LBOOL4,FSN260 JUMP IF END OF TABLE FOUND B FSN098 GO ON EJECT * * BACKWARD TABULATION * FSN130 CBE LBIN11,W0,FSN135 JUMP IF BEGINOFTAB SUB LBIN11,W4 PREVIOUS DYN FIELD FSN135 SET LBOOL3 TRUE = BACKWARD SEARCH PERF SEATAB ***SEARCH NEXT DYN.FIELD POS TBT LBOOL4,FSN260 JUMP IF END OF TABLE FOUND B FSN098 GO ON EJECT * * CHANGE MODE * FSN150 MOVE LSTR2,='++' XCOPY LSTR1,W0,W1,LSTR81,W0 COPY 1ST CHAR. CBL LSTR1,=C'A',FSN100 JMP IF NOT ALPHABETIC CBG LSTR1,=C'Z',FSN100 JMP IF NOT ALPHABETIC CALL CHANFC,SCRN,SYSLFC CHANGE FILE CODE MOVE LBIN3,=X'181E' CURSOR POSITION TBF VD82,FSN160 MOVE LBIN3,=X'011E' SYSTEM LINE FSN160 PERF CURSET,LBIN3,LBIN2,SYSL CALL ICLEAR,LSTR4A ---CLEAR ITEM HEX-00 MOVE LBIN2,W3 INSRT LSTR81,W0,W2,LSTR2,W0 PUT IN "++" WRITE SYSL,LSTR81,LBIN2 DLETE LSTR81,W0,W2 DELETE "++" CBE LBIN12,W0,FSN200 JMP IF NEW FIELD-ID XCOPY LSTR4A,W0,W4,FIDTAB,LBIN6 STORE OLD CONTENTS MOVE LSTR9A,=X'2000' LOAD WORKITEM SPACE & EMPTY MOVE LBIN4,W0 POINTER:=0 MATCH LSTR4A,LBIN4,W4,LSTR9A,W0,W1 SEARCH 1ST SPACE BNOK FSN200 JMP IF NO SPACES MOVE LBIN3,W4 LOAD LENGTH OF ITEM SUB LBIN3,LBIN4 CALC NUMB OF H-00 TO PAD SUB LBIN3,W1 ADJUST XCOPY LSTR4A,LBIN4,LBIN3,LSTR9A,W1 LOAD EMPTY POSITIONS EJECT FSN200 THOME GETABX LBIN4 PERF READIN,KEYT10,KEYT11,KEYT3,=W'37' ***READ IN ONE FIELD IB LBIN2,FSN220,FSN215, ENT OR EOI,CAN C FSN300,FSN110 RET,POF EJECT * * CANCEL - KEY * FSN215 SUB LBIN11,W4 ADJUST FOR CANCEL-KEY * * END-OF-ITEM-KEY * FSN220 BNZ FSN221 EOI-KEY SET LBOOLA ENTER-KEY MOVE LBIN2,W4 4=ENTER KEY-INDEX EJECT FSN221 ADD LBIN11,W2 ADJUST TO REACH SEQNO-POS CBE LBIN1,W0,FSN228 JMP IF SAME FID ENTERED (NO INPUT) CBNE LBIN12,W0,FSN222 JUMP IF OLD ENTRY MOVE LBIN6,LBIN13 STORE 1ST FREE ENTRY ADRESS FSN222 CMP LBIN6,LFBIN JUMP IF BE FSN984 MEMORY OVERFLOW XCOPY FIDTAB,LBIN6,W4,LSTR4A,W0 STORE FIELD-ID CBNE LBIN12,W0,FSN225 JUMP IF OLD ENTRY ADD LBIN6,W5 CALL WXDIV,LBIN6,W5,LBIN6 CALC SEQ.NO OF FIDTAB XCOPY ATTAB,LBIN11,W1,LBIN6,W1 STORE SEQ.NO OF FIDTAB ADD LBIN13,W5 ADJUST 1ST FREE ENTRY ADRESS FSN225 CBE LBIN12,W0,FSN228 JMP IF NEW FID WAS INSERTED SET CMBOOL T=DYN FIELD-ID WAS CHANGED FSN228 TBT LBOOLA,FSN260 JUMP IF ENTER-KEY ADD LBIN11,W2 NEXT DYN FIELD CLEAR LBOOL3 FALSE = FORWARD SEARCH PERF SEATAB ***SEARCH NEXT DYN.FIELD POS TBT LBOOL4,FSN260 B FSN098 GO ON IF E-O-TABLE NOT FOUND EJECT * * CHECK IF ANY EMPTY FIELD-ID * FSN260 CLEAR LBOOL3 FALSE = FORWARD SEARCH MOVE LBIN11,W0 ATTRIBUTE-TABLE-POINTER:=0 FSN265 PERF SEATAB ***SEARCH NEXT DYN.FIELD POS TBT LBOOL4,FSN400 JUMP IF END OF TABLE FOUND CBE LBIN12,W0,FSN275 JUMP IF EMPTY FID FOUND MOVE LBIN6,LBIN12 LOAD SEQ.NO CALL WXMUL,LBIN6,W5,LBIN6 SUB LBIN6,W5 CALC ELEMENT ADRESS XCOPY LSTR4A,W0,W4,FIDTAB,LBIN6 STORE OLD CONTENTS CALL EMPTYT,LSTR4A EMPTY ? BNOK FSN275 JUMP IF EMPTY ADD LBIN11,W4 NEXT DYN FIELD B FSN265 GO ON FSN275 CLEAR LBOOLA CLEAR ENT ERR.FLAG MOVE LBIN1,W0 NO CLEAR MOVE LBIN4,W5 MESSAGE NO 5 PERF WSMERR,KEYT5,=W'37' ***(ERROR-)MESSAGE ROUTINE CBE LBIN2,W0,FSN270 JUMP IF POWER OFF IB LBIN2,FSN098,FSN098, CLR,CAN C FSN300 RET,ENT B FSN098 FSN270 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 B FSN275 FSN280 CBE LBIN11,W0,FSN285 JMP IF ATTAB=0000 0000 ... SUB LBIN11,W4 ADJUST POINTER FSN285 SET LBOOL3 TRUE = BACKWARD SEARCH PERF SEATAB ***SEARCH NEXT DYN.FIELD POS TBT LBOOL4,FSN400 JUMP IF END OF TABLE FOUND B FSN098 EJECT * * RETUR-KEY * FSN300 MOVE GBIN15,LBIN13 LOAD NEW ADRESS MOVE GBIN2,W1 INDICATE RETUR KEY B FSN999 * * NORMAL END * FSN400 CBE LBIN2,W4,FSN420 JMP IF ENTER AND NOT E-O-F MOVE LBIN1,W0 NO CLEAR MOVE LBIN4,W7 MESSAGE NO 7 PERF WSMERR,KEYT5,=W'37' ***(ERROR-)MESSAGE ROUTINE CBE LBIN2,W0,FSN410 JUMP IF POWER OFF IB LBIN2,FSN280,FSN280, CLR,CAN C FSN300,FSN420 RET,ENT POWER OFF FSN410 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 B FSN400 EJECT * * FIELD-NAME TABLE STORAGE * FSN420 MOVE LBIN11,W0 ATTRIBUTE-TABLE-POINTER:=0 MOVE LBIN3,W0 NUMB OF DYN. FIELDS:=0 MOVE LBIN2,W8 NUMB OF CHAR TO CONTROL MOVE LSTR6A,=X'00FBFCFDFEFF' STATIC FIELD OBJECT CODES CLEAR LBOOL3 FALSE = NO SPLITT OF OBJECT CLEAR VBOOL8 FALSE = NO COMP POOL-DELIMITER FSN430 PERF SEATAB ***SEARCH NEXT DYNAMIC FIELD TBT LBOOL4,FSN440 JMP IF E-O-TABLE CALL WXMUL,LBIN12,W5,LBIN12 SUB LBIN12,W5 CALC ATTR ELEMENT ADRESS PERF POLICE,LBIN2,LBOOL3,VBOOL8,LSTR81 ***POOL-LIMIT-CONTROLER BG FSN982 JUMP IF MEMORY OVERFLOW XCOPY BPOOL(GBIN4),GBIN5,W4,FIDTAB,LBIN12 STORE FID ADD GBIN5,W8 ADJUST POOL-POINTER LEAVING 4 BYTES EMPTY ADD LBIN11,W4 ADJUST TABLE POINTER ADD LBIN3,W1 INCREMENT NUMB OF DYN FIELDS B FSN430 GO ON FSN440 * * STORE NUMBER OF DYNAMIC FIELDS * MOVE LBIN1,=W'37' POINTER TO BBUFFERPOOL XCOPY BPOOL(W1),LBIN1,W1,LBIN3,W1 STORE NUMB OF D.FIELDS MOVE LSTR6A,=X'0000' LOAD EMPTY-VALUE MOVE GBIN15,W0 MATCH-POINTER:=0 MATCH FIDTAB,GBIN15,LFBIN,LSTR6A,W0,W5 MATCH 1ST FREE POSITION ADD GBIN15,W1 ADJUST CALL WXDIV,GBIN15,W5,GBIN15 CALL WXMUL,GBIN15,W5,GBIN15 CALC EVEN 5-MULTIPEL-POS XCOPY GBIN9,W0,W1,GBIN4,W1 STORE RETURN-ADRESS BUFFINDEX XCOPY GBIN9,W1,W1,GBIN5,W1 STORE RETURN-ADRESS POINTER B FSN999 EJECT * * WORKING AREA <DATA-ITEM> EXCEEDED * FSN982 MOVE LBIN5,W2 BPOOL DIMENSION OVERFLOW B FSN988 * FSN984 MOVE LBIN5,W4 FIDTAB OVERFLOW FSN988 MOVE LBIN1,W0 NO CLEAR MOVE LBIN4,W2 ERRORMESSAGE NO:=2 PERF WSMERR,KEYT5,=W'37' ***(ERROR-)MESSAGE ROUTINE B FSN300 * * EXIT * FSN999 DSC KEYB,CED,SCRNFC CHANGE ECHO DEVICE CALL CHANFC,SCRN,SCRNFC CHANGE FILE CODE PERF STABLK RET PEND EJECT * * SEARCH ATTRIBUTE-TABLE TO FIND ITS ATTRIBUTE -POSITION * * INPUT : LBIN11 = CURRENT DYNAMIC FIELD POSITION * LBOOL3 = FALSE => FORWARD SEARCH * TRUE => BACKWARD SEARCH * OUTPUT : LBIN11 = POINTER ADRESS TO NEXT OR PREVIOUS * DYNAMIC FIELD POSITON * LBOOL4 = FALSE = DYNAMIC FIELD ENTRY WAS FOUND * = TRUE = E-O-TABLE WAS FOUND * LBIN12 = SEQ. NO OF DYNAMIC FIELD (=0 NEW DYN FI * LBIN7 = CURSOR-POSITION OF FOUND DYNAMIC FIELD * ************************************************************************ SEATAB PROC MOVE LBIN12,W0 WORKITEM:=0 CLEAR LBOOL4 FALSE = DYN FIELD ENTRY FOUND TBT LBOOL3,SEA300 JUMP IF BACKWARD SEARCHING * * FORWARD SEARCHING * SEA100 CBE LBIN11,LABIN,SEA200 JUMP IF END OF TABLE XCOPY LBIN1,W0,W2,ATTAB,LBIN11 FETCH ATTRIBUTE-POS. CBE LBIN1,W0,SEA200 JUMP IF END-OF-TABLE ADD LBIN11,W2 NEXT SEQ. NO-POS XCOPY LBIN12,W1,W1,ATTAB,LBIN11 FETCH SEQ. NO-POS. ADD LBIN11,W2 ADJUST FOR NEXT ELEMENT-POS CBE LBIN12,=X'00FF',SEA100 GO ON IF STATIC FIELD MOVE LBIN7,LBIN1 LOAD CURSERPOS FOR DYN-FIELD XCOPY LBIN1,W0,W1,W0,W0 DELETE ROW NO CBG LBIN1,LBIN9,SEA100 GO ON IF OVFL ENTRY SUB LBIN11,W4 ADJUST FOR THIS ELEMENT-POS B SEA999 EXIT SEA200 SET LBOOL4 TRUE E-O-T/B-O-T/NO ROW ENTRY B SEA999 * * BACKWARD SEARCHING * SEA300 CBE LBIN11,W0,SEA100 BEGIN OF TABLE REACHED ADD LBIN11,W2 NEXT SEQ. NO-POS XCOPY LBIN12,W1,W1,ATTAB,LBIN11 FETCH SEQ. NO-POS. SUB LBIN11,W6 NEXT ATTRPOS CBE LBIN12,=X'00FF',SEA300 GO ON IF STATIC FIELD ADD LBIN11,W4 ADJUST FOR THIS ELEMENT-POS XCOPY LBIN1,W0,W2,ATTAB,LBIN11 LOAD CURSORPOS DYN FIELD-POS. MOVE LBIN7,LBIN1 LOAD CURSERPOS FOR DYN-FIELD XCOPY LBIN1,W0,W1,W0,W0 DELETE ROW NO CBNG LBIN1,LBIN9,SEA999 EXIT IF NOT OVFL ENTRY <= SUB LBIN11,W4 ADJUST WHEN OVFL ENTRY B SEA300 EXIT SEA999 RET PEND EJECT INCLUDE FNAMES,LIST * * FORMAT HOME CONTROLLED CURSER * FHOME FRMT FSL FKI 1 FCOPY LSTR1 FMEND END
0x0000…0032 (0, 0, 400) Head {h00=0x002e, h01=0x0050, text=» IDENT FSNAME REL=2.3,850606,870155940230 «, t00=0x0000, t01=0x0004}
0x0032…003a Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0036}
0x003a…008a Head {h00=0x004c, h01=0x0050, text=»*********************************************************************** «, t00=0x0000, t01=0x003e}
0x008a…0094 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x008e}
0x0094…00c2 Head {h00=0x002a, h01=0x0050, text=»* LATEST UPDATE 850606 MADE BY JE «, t00=0x0000, t01=0x0098}
0x00c2…00cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00c6}
0x00cc…00e2 Head {h00=0x0012, h01=0x0050, text=»* HISTORY=«, t00=0x0000, t01=0x00d0}
0x00e2…0128 Head {h00=0x0042, h01=0x0050, text=»* 850606/JE CHECK OVFL-ENTRIES IN ATTAB 'SEATAB' «, t00=0x0000, t01=0x00e6}
0x0128…0160 Head {h00=0x0034, h01=0x0050, text=»* 850419/CJ MUL&DIV DONE BY ASSRUT «, t00=0x0000, t01=0x012c}
0x0160…01ae Head {h00=0x004a, h01=0x0050, text=»* 850313/JE PERFORMANCE INDICATE IF DYN FIELD WAS CHANGED«, t00=0x0000, t01=0x0164}
0x01ae…01e6 Head {h00=0x0034, h01=0x0050, text=»* 841120/CJ MUL&DIV DONE BY ASSRUT «, t00=0x0001, t01=0x0022}
0x01e6…022c Head {h00=0x0042, h01=0x0050, text=»* 840925/CJ ADJUSTMENT FOR CANCEL-KEY IN NAMESET «, t00=0x0001, t01=0x005a}
0x022c…0266 Head {h00=0x0036, h01=0x0050, text=»* 831208/CJ ADAPTION TO "NEW" POLICE «, t00=0x0001, t01=0x00a0}
0x0266…02b0 Head {h00=0x0046, h01=0x0050, text=»* 831114/CJ NOT OK IF <CAN> ON EMPTY SCREEN - SOLVED «, t00=0x0001, t01=0x00da}
0x02b0…02ec Head {h00=0x0038, h01=0x0050, text=»* 830923/CJ STPBLK ON MAIN SCREEN IMPL.«, t00=0x0001, t01=0x0124}
0x02ec…0326 Head {h00=0x0036, h01=0x0050, text=»* 830718/CJ NEW ATTRIBUTES IN FNAMES «, t00=0x0001, t01=0x0160}
0x0326…0364 Head {h00=0x003a, h01=0x0050, text=»* 830426/CJ ADAPTION OF SYS.LINE FOR VD81«, t00=0x0002, t01=0x000a}
0x0364…036e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0048}
0x036e…03bc Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0002, t01=0x0052}
0x03bc…03d0 Head {h00=0x0010, h01=0x0050, text=» DDUM WSMDDV«, t00=0x0002, t01=0x00a0}
0x03d0…03de Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0002, t01=0x00b4}
0x03de…03f4 Head {h00=0x0012, h01=0x0050, text=» ENTRY FSNAME «, t00=0x0002, t01=0x00c2}
0x03f4…0436 Head {h00=0x003e, h01=0x0050, text=» EXPROC READIN,PKTAB,PKTAB,PKTAB,PLIT ***READ IN ONE FIELD«, t00=0x0002, t01=0x00d8}
0x0436…0472 Head {h00=0x0038, h01=0x0050, text=» EXPROC WSMERR,PKTAB,PLIT ***(ERROR-)MESSAGE ROUTINE«, t00=0x0002, t01=0x011a}
0x0472…04b8 Head {h00=0x0042, h01=0x0050, text=» EXPROC POLICE,PBIN,PBOOL,PBOOL,PSTRG ***POOL-LIMIT-CONTROLLER«, t00=0x0002, t01=0x0156}
0x04b8…04ee Head {h00=0x0032, h01=0x0050, text=» EXPROC DISPLY,PBIN ***DISPLAY FORMAT SECTION «, t00=0x0003, t01=0x000c}
0x04ee…0526 Head {h00=0x0034, h01=0x0050, text=» EXPROC CURSET,PBIN,PBIN,PDSET ***CURSOR SETTING«, t00=0x0003, t01=0x0042}
0x0526…054e Head {h00=0x0024, h01=0x0050, text=» EXPROC STPBLK ***STOP BLOCKING «, t00=0x0003, t01=0x007a}
0x054e…0576 Head {h00=0x0024, h01=0x0050, text=» EXPROC STABLK ***START BLOCKING«, t00=0x0003, t01=0x00a2}
0x0576…059e Head {h00=0x0024, h01=0x0050, text=» EXT ICLEAR ---ASSRUT:CLEAR ITEM«, t00=0x0003, t01=0x00ca}
0x059e…05c0 Head {h00=0x001e, h01=0x0050, text=» EXT EMPTYT ---EMPTY ITEM «, t00=0x0003, t01=0x00f2}
0x05c0…05e8 Head {h00=0x0024, h01=0x0050, text=» EXT CHANFC ---CHANGE FILE CODE «, t00=0x0003, t01=0x0114}
0x05e8…0606 Head {h00=0x001a, h01=0x0050, text=» EXT WXDIV ---DIVISION«, t00=0x0003, t01=0x013c}
0x0606…062a Head {h00=0x0020, h01=0x0050, text=» EXT WXMUL ---MULTIPLICATION«, t00=0x0003, t01=0x015a}
0x062a…0634 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x017e}
0x0634…065c Head {h00=0x0024, h01=0x0050, text=»CED EQU X'B7' CHANGE ECHO-DEVICE«, t00=0x0003, t01=0x0188}
0x065c…067e Head {h00=0x001e, h01=0x0050, text=»BRW EQU X'85' BASIC WRITE «, t00=0x0004, t01=0x0020}
0x067e…069a Head {h00=0x0018, h01=0x0050, text=»ERS EQU X'B1' ERASE «, t00=0x0004, t01=0x0042}
0x069a…06a8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x005e}
0x06a8…06c4 Head {h00=0x0018, h01=0x0050, text=» INCLUDE WSMKEY,LIST«, t00=0x0004, t01=0x006c}
0x06c4…06d2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0088}
0x06d2…06ee Head {h00=0x0018, h01=0x0050, text=» INCLUDE KEYT5,LIST «, t00=0x0004, t01=0x0096}
0x06ee…070a Head {h00=0x0018, h01=0x0050, text=» INCLUDE KEYT9,LIST «, t00=0x0004, t01=0x00b2}
0x070a…0726 Head {h00=0x0018, h01=0x0050, text=» INCLUDE KEYT10,LIST«, t00=0x0004, t01=0x00ce}
0x0726…0742 Head {h00=0x0018, h01=0x0050, text=» INCLUDE KEYT11,LIST«, t00=0x0004, t01=0x00ea}
0x0742…075e Head {h00=0x0018, h01=0x0050, text=» INCLUDE KEYT3,LIST «, t00=0x0004, t01=0x0106}
0x075e…076c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0122}
0x076c…0780 Head {h00=0x0010, h01=0x0050, text=»FSNAME PROC «, t00=0x0004, t01=0x0130}
0x0780…07b4 Head {h00=0x0030, h01=0x0050, text=» PERF STPBLK ***STOP BLOCKING ON MAIN SCREEN«, t00=0x0004, t01=0x0144}
0x07b4…07de Head {h00=0x0026, h01=0x0050, text=» BG FSN982 JUMP IF MEMORY OVERFLOW«, t00=0x0004, t01=0x0178}
0x07de…07f4 Head {h00=0x0012, h01=0x0050, text=» ATTFMT FHOME «, t00=0x0005, t01=0x0012}
0x07f4…0802 Head {h00=0x000a, h01=0x0050, text=» THOME«, t00=0x0005, t01=0x0028}
0x0802…0834 Head {h00=0x002e, h01=0x0050, text=» MOVE LBIN11,W0 ATTRIBUTE-TABLE-POINTER:=0«, t00=0x0005, t01=0x0036}
0x0834…0860 Head {h00=0x0028, h01=0x0050, text=» CLEAR LBOOL3 FALSE = FORWARD SEARCH«, t00=0x0005, t01=0x0068}
0x0860…0884 Head {h00=0x0020, h01=0x0050, text=» CLEAR LBOOLA FALSE=EOI KEY «, t00=0x0005, t01=0x0094}
0x0884…08b4 Head {h00=0x002c, h01=0x0050, text=» CBNE GBIN2,W1,FSN032 JMP IF NOT RETURN «, t00=0x0005, t01=0x00b8}
0x08b4…08cc Head {h00=0x0014, h01=0x0050, text=» TBT VD82,FSN020«, t00=0x0005, t01=0x00e8}
0x08cc…08e2 Head {h00=0x0012, h01=0x0050, text=» ERASE 0,W1,W0«, t00=0x0005, t01=0x0100}
0x08e2…08f0 Head {h00=0x000a, h01=0x0050, text=»FSN020«, t00=0x0005, t01=0x0116}
0x08f0…0932 Head {h00=0x003e, h01=0x0050, text=» XCOPY GBIN4,W1,W1,GBIN8,W0 RESTORE RETURN-ADRESS BUFFIND «, t00=0x0005, t01=0x0124}
0x0932…0974 Head {h00=0x003e, h01=0x0050, text=» XCOPY GBIN5,W1,W1,GBIN8,W1 RESTORE RETURN-ADRESS POINTER «, t00=0x0005, t01=0x0166}
0x0974…09aa Head {h00=0x0032, h01=0x0050, text=» MOVE LBIN10,GBIN8 RESTORE STATIC FIELD DISPL.«, t00=0x0006, t01=0x0018}
0x09aa…09c2 Head {h00=0x0014, h01=0x0050, text=» MOVE LBIN16,W1 «, t00=0x0006, t01=0x004e}
0x09c2…09de Head {h00=0x0018, h01=0x0050, text=» MOVE LBIN4,=X'0101'«, t00=0x0006, t01=0x0066}
0x09de…09f6 Head {h00=0x0014, h01=0x0050, text=» MOVE LBIN14,W0 «, t00=0x0006, t01=0x0082}
0x09f6…0a2e Head {h00=0x0034, h01=0x0050, text=» PERF CURSET,LBIN4,LBIN1,SCRN ***CURSOR SETTING «, t00=0x0006, t01=0x009a}
0x0a2e…0a56 Head {h00=0x0024, h01=0x0050, text=» TBF VD82,FSN025 JMP IF NOT VD82«, t00=0x0006, t01=0x00d2}
0x0a56…0a7c Head {h00=0x0022, h01=0x0050, text=» MOVE LBIN2,W3 BUFFERLENGTH:=3«, t00=0x0006, t01=0x00fa}
0x0a7c…0ab8 Head {h00=0x0038, h01=0x0050, text=» MOVE LSTR9A,=X'9B324A00' CONTROL-CODE ERASE DISPLAY«, t00=0x0006, t01=0x0120}
0x0ab8…0aee Head {h00=0x0032, h01=0x0050, text=» DSC SCRN,BRW,LBIN1,LSTR9A,LBIN2 ERASE DISPLAY«, t00=0x0006, t01=0x015c}
0x0aee…0afc (7, 0, 400) Head {h00=0x000a, h01=0x0050, text=»FSN025«, t00=0x0007, t01=0x0004}
0x0afc…0b12 Head {h00=0x0012, h01=0x0050, text=» MOVE LBIN1,W0«, t00=0x0007, t01=0x0012}
0x0b12…0b46 Head {h00=0x0030, h01=0x0050, text=» PERF DISPLY,LBIN8 ***DISPLAY FORMAT SECTION«, t00=0x0007, t01=0x0028}
0x0b46…0b54 Head {h00=0x000a, h01=0x0050, text=»FSN032«, t00=0x0007, t01=0x005c}
0x0b54…0b7e Head {h00=0x0026, h01=0x0050, text=» TBT LBOOL8,FSN040 JUMP IF UPD OLD«, t00=0x0007, t01=0x006a}
0x0b7e…0bae Head {h00=0x002c, h01=0x0050, text=» CBE GBIN2,W1,FSN040 JMP IF RETURN-KEY «, t00=0x0007, t01=0x0094}
0x0bae…0bbc Head {h00=0x000a, h01=0x0050, text=»FSN030«, t00=0x0007, t01=0x00c4}
0x0bbc…0bee Head {h00=0x002e, h01=0x0050, text=» PERF SEATAB ***SEARCH NEXT DYN.FIELD POS «, t00=0x0007, t01=0x00d2}
0x0bee…0c24 Head {h00=0x0032, h01=0x0050, text=» TBT LBOOL4,FSN038 JUMP IF END OF TABLE FOUND «, t00=0x0007, t01=0x0104}
0x0c24…0c52 Head {h00=0x002a, h01=0x0050, text=» ADD LBIN11,W2 ADJUST TO REACH SEQ. NO«, t00=0x0007, t01=0x013a}
0x0c52…0c84 Head {h00=0x002e, h01=0x0050, text=» XCOPY ATTAB,LBIN11,W1,W0,W0 CLEAR SEQ NO «, t00=0x0007, t01=0x0168}
0x0c84…0caa Head {h00=0x0022, h01=0x0050, text=» ADD LBIN11,W2 ADJUST POINTER «, t00=0x0008, t01=0x000a}
0x0caa…0cbc Head {h00=0x000e, h01=0x0050, text=» B FSN030 «, t00=0x0008, t01=0x0030}
0x0cbc…0cca Head {h00=0x000a, h01=0x0050, text=»FSN038«, t00=0x0008, t01=0x0042}
0x0cca…0cfc Head {h00=0x002e, h01=0x0050, text=» MOVE LBIN11,W0 ATTRIBUTE-TABLE POINTER:=0«, t00=0x0008, t01=0x0050}
0x0cfc…0d0a Head {h00=0x000a, h01=0x0050, text=»FSN040«, t00=0x0008, t01=0x0082}
0x0d0a…0d3a Head {h00=0x002c, h01=0x0050, text=» DSC KEYB,CED,SYSLFC CHANGE ECHO-DEVICE «, t00=0x0008, t01=0x0090}
0x0d3a…0d6c Head {h00=0x002e, h01=0x0050, text=» CALL CHANFC,SCRN,SYSLFC CHANGE FILE CODE «, t00=0x0008, t01=0x00c0}
0x0d6c…0d82 Head {h00=0x0012, h01=0x0050, text=» ATTFMT FNAMES«, t00=0x0008, t01=0x00f2}
0x0d82…0db0 Head {h00=0x002a, h01=0x0050, text=» MOVE LBIN18,=X'0101' CURSOR POS:=0101«, t00=0x0008, t01=0x0108}
0x0db0…0dd8 Head {h00=0x0024, h01=0x0050, text=» TBT VD82,FSN041 JMP IF VD82/83«, t00=0x0008, t01=0x0136}
0x0dd8…0e06 Head {h00=0x002a, h01=0x0050, text=» MOVE LBIN18,=X'1801' CURSOR POS:=2401«, t00=0x0008, t01=0x015e}
0x0e06…0e14 Head {h00=0x000a, h01=0x0050, text=»FSN041«, t00=0x0008, t01=0x018c}
0x0e14…0e48 Head {h00=0x0030, h01=0x0050, text=» PERF CURSET,LBIN18,LBIN2,SYSL ***CURSOR SET«, t00=0x0009, t01=0x000a}
0x0e48…0e72 Head {h00=0x0026, h01=0x0050, text=» DSC SYSL,2,COLS ERASE SYSTEMLINE «, t00=0x0009, t01=0x003e}
0x0e72…0ea2 Head {h00=0x002c, h01=0x0050, text=» MOVE LBIN18,W1 LOAD FOR DISP. LAST LINE«, t00=0x0009, t01=0x0068}
0x0ea2…0eca Head {h00=0x0024, h01=0x0050, text=» TBT VD82,FSN050 JMP IF VD82/83 «, t00=0x0009, t01=0x0098}
0x0eca…0f00 Head {h00=0x0032, h01=0x0050, text=» MOVE LBIN18,W24 LOAD FOR DISP SYSLINE VD47/81«, t00=0x0009, t01=0x00c0}
0x0f00…0f0e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x00f6}
0x0f0e…0f18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0104}
0x0f18…0f32 Head {h00=0x0016, h01=0x0050, text=»* INITIAL VALUES«, t00=0x0009, t01=0x010e}
0x0f32…0f3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0128}
0x0f3c…0f4a Head {h00=0x000a, h01=0x0050, text=»FSN050«, t00=0x0009, t01=0x0132}
0x0f4a…0f7c Head {h00=0x002e, h01=0x0050, text=» MOVE LBIN13,W0 FIELD-ID-TABLE-POINTER:=0 «, t00=0x0009, t01=0x0140}
0x0f7c…0fa6 Head {h00=0x0026, h01=0x0050, text=» TBT LBOOL8,FSN060 JUMP IF UPD OLD«, t00=0x0009, t01=0x0172}
0x0fa6…0fd6 Head {h00=0x002c, h01=0x0050, text=» CBE GBIN2,W1,FSN065 JUMP IF RETURN-KEY «, t00=0x000a, t01=0x000c}
0x0fd6…100a Head {h00=0x0030, h01=0x0050, text=» CALL ICLEAR,FIDTAB ---CLEAR FIELD-ID-TABLE «, t00=0x000a, t01=0x003c}
0x100a…101c Head {h00=0x000e, h01=0x0050, text=» B FSN065 «, t00=0x000a, t01=0x0070}
0x101c…102a Head {h00=0x000a, h01=0x0050, text=»FSN060«, t00=0x000a, t01=0x0082}
0x102a…1064 Head {h00=0x0036, h01=0x0050, text=» MOVE LBIN13,GBIN15 LOAD FIRST FREE POS OF FID-TAB«, t00=0x000a, t01=0x0090}
0x1064…1072 Head {h00=0x000a, h01=0x0050, text=»FSN065«, t00=0x000a, t01=0x00ca}
0x1072…109a Head {h00=0x0024, h01=0x0050, text=» MOVE GBIN2,W0 CLEAR RETUR-CODE «, t00=0x000a, t01=0x00d8}
0x109a…10cc Head {h00=0x002e, h01=0x0050, text=» PERF SEATAB ***SEARCH NEXT DYN.FIELD POS «, t00=0x000a, t01=0x0100}
0x10cc…1102 Head {h00=0x0032, h01=0x0050, text=» TBF LBOOL4,FSN095 JUMP IF END OF TABLE FOUND «, t00=0x000a, t01=0x0132}
0x1102…1114 Head {h00=0x000e, h01=0x0050, text=» B FSN260 «, t00=0x000a, t01=0x0168}
0x1114…1122 Head {h00=0x000a, h01=0x0050, text=»FSN095«, t00=0x000a, t01=0x017a}
0x1122…1154 Head {h00=0x002e, h01=0x0050, text=» CALL CHANFC,SCRN,SYSLFC CHANGE FILE CODE «, t00=0x000a, t01=0x0188}
0x1154…1190 Head {h00=0x0038, h01=0x0050, text=» DISPLAY 4,LBIN18,LBIN18 DISPLAY FORMAT ON LAST ROW «, t00=0x000b, t01=0x002a}
0x1190…119e Head {h00=0x000a, h01=0x0050, text=»FSN098«, t00=0x000b, t01=0x0066}
0x119e…11d0 Head {h00=0x002e, h01=0x0050, text=» CALL CHANFC,SCRN,SYSLFC CHANGE FILE CODE «, t00=0x000b, t01=0x0074}
0x11d0…11fc Head {h00=0x0028, h01=0x0050, text=» ERASE 2,W1,W1 ERASE/CLEAR FIELD-ID «, t00=0x000b, t01=0x00a6}
0x11fc…1230 Head {h00=0x0030, h01=0x0050, text=» CBE LBIN12,W0,FSN099 JUMP IF NEW DYN FIELD «, t00=0x000b, t01=0x00d2}
0x1230…1256 Head {h00=0x0022, h01=0x0050, text=» MOVE LBIN6,LBIN12 LOAD SEQ.NO«, t00=0x000b, t01=0x0106}
0x1256…1278 Head {h00=0x001e, h01=0x0050, text=» CALL WXMUL,LBIN6,W5,LBIN6«, t00=0x000b, t01=0x012c}
0x1278…12a2 Head {h00=0x0026, h01=0x0050, text=» SUB LBIN6,W5 CALC ELEMENT ADRESS «, t00=0x000b, t01=0x014e}
0x12a2…12de Head {h00=0x0038, h01=0x0050, text=» XCOPY LSTR4A,W0,W4,FIDTAB,LBIN6 STORE OLD CONTENTS «, t00=0x000b, t01=0x0178}
0x12de…130c Head {h00=0x002a, h01=0x0050, text=» DISPLAY 1,W1,W1 DISPLAY OLD FIELD-ID «, t00=0x000c, t01=0x0024}
0x130c…131a Head {h00=0x000a, h01=0x0050, text=»FSN099«, t00=0x000c, t01=0x0052}
0x131a…134c Head {h00=0x002e, h01=0x0050, text=» CALL CHANFC,SCRN,SCRNFC CHANGE FILE CODE «, t00=0x000c, t01=0x0060}
0x134c…1372 Head {h00=0x0022, h01=0x0050, text=» DSC1 SCRN,6,LBIN7 SET CURSOR «, t00=0x000c, t01=0x0092}
0x1372…1380 Head {h00=0x000a, h01=0x0050, text=»FSN100«, t00=0x000c, t01=0x00b8}
0x1380…13a6 Head {h00=0x0022, h01=0x0050, text=» MOVE LBIN3,W1 EXPECTED LENGTH«, t00=0x000c, t01=0x00c6}
0x13a6…13d4 Head {h00=0x002a, h01=0x0050, text=» KI .NE,KEYB,LSTR81,KEYT9,LBIN3,LBIN2 «, t00=0x000c, t01=0x00ec}
0x13d4…1400 Head {h00=0x0028, h01=0x0050, text=» BL FSN150 ERROR OR MAX SIZE REACHED«, t00=0x000c, t01=0x011a}
0x1400…142e Head {h00=0x002a, h01=0x0050, text=» CBE LBIN2,W0,FSN110 JUMP IF POWER OFF«, t00=0x000c, t01=0x0146}
0x142e…1458 Head {h00=0x0026, h01=0x0050, text=» IB LBIN2,FSN100,FSN100, CLR,CAN C«, t00=0x000c, t01=0x0174}
0x1458…1486 Head {h00=0x002a, h01=0x0050, text=» FSN300,FSN260,FSN120, RET,ENT,PLS C «, t00=0x000d, t01=0x000e}
0x1486…149a Head {h00=0x0010, h01=0x0050, text=» FSN130 BTB«, t00=0x000d, t01=0x003c}
0x149a…14a8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0050}
0x14a8…14b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x005e}
0x14b2…14c8 Head {h00=0x0012, h01=0x0050, text=»* POWER OFF«, t00=0x000d, t01=0x0068}
0x14c8…14d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x007e}
0x14d2…14e0 Head {h00=0x000a, h01=0x0050, text=»FSN110«, t00=0x000d, t01=0x0088}
0x14e0…1512 Head {h00=0x002e, h01=0x0050, text=» CALL CHANFC,SCRN,SCRNFC CHANGE FILE CODE «, t00=0x000d, t01=0x0096}
0x1512…1532 Head {h00=0x001c, h01=0x0050, text=» MOVE LBIN16,W1 1ST ROW «, t00=0x000d, t01=0x00c8}
0x1532…155c Head {h00=0x0026, h01=0x0050, text=» MOVE LBIN4,=X'0101' ROW:=1 COL:=1«, t00=0x000d, t01=0x00e8}
0x155c…1588 Head {h00=0x0028, h01=0x0050, text=» MOVE LBIN14,W0 ATTR.TAB POINTER:=0 «, t00=0x000d, t01=0x0112}
0x1588…159e Head {h00=0x0012, h01=0x0050, text=» MOVE LBIN1,W0«, t00=0x000d, t01=0x013e}
0x159e…15d4 Head {h00=0x0032, h01=0x0050, text=» PERF DISPLY,LBIN8 ***EDIT AND WRITE TO E-O-S «, t00=0x000d, t01=0x0154}
0x15d4…1606 Head {h00=0x002e, h01=0x0050, text=» CALL CHANFC,SCRN,SYSLFC CHANGE FILE CODE «, t00=0x000d, t01=0x018a}
0x1606…1618 Head {h00=0x000e, h01=0x0050, text=» B FSN095 «, t00=0x000e, t01=0x002c}
0x1618…1626 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x003e}
0x1626…1630 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x004c}
0x1630…164e Head {h00=0x001a, h01=0x0050, text=»* FORWARD TABULATION«, t00=0x000e, t01=0x0056}
0x164e…1658 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0074}
0x1658…1666 Head {h00=0x000a, h01=0x0050, text=»FSN120«, t00=0x000e, t01=0x007e}
0x1666…168c Head {h00=0x0022, h01=0x0050, text=» ADD LBIN11,W4 NEXT DYN FIELD «, t00=0x000e, t01=0x008c}
0x168c…16b8 Head {h00=0x0028, h01=0x0050, text=» CLEAR LBOOL3 FALSE = FORWARD SEARCH«, t00=0x000e, t01=0x00b2}
0x16b8…16ea Head {h00=0x002e, h01=0x0050, text=» PERF SEATAB ***SEARCH NEXT DYN.FIELD POS «, t00=0x000e, t01=0x00de}
0x16ea…1720 Head {h00=0x0032, h01=0x0050, text=» TBT LBOOL4,FSN260 JUMP IF END OF TABLE FOUND «, t00=0x000e, t01=0x0110}
0x1720…1738 Head {h00=0x0014, h01=0x0050, text=» B FSN098 GO ON «, t00=0x000e, t01=0x0146}
0x1738…1746 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x015e}
0x1746…1750 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x016c}
0x1750…1770 Head {h00=0x001c, h01=0x0050, text=»* BACKWARD TABULATION «, t00=0x000e, t01=0x0176}
0x1770…177a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0008}
0x177a…1788 Head {h00=0x000a, h01=0x0050, text=»FSN130«, t00=0x000f, t01=0x0012}
0x1788…17b8 Head {h00=0x002c, h01=0x0050, text=» CBE LBIN11,W0,FSN135 JUMP IF BEGINOFTAB«, t00=0x000f, t01=0x0020}
0x17b8…17e2 Head {h00=0x0026, h01=0x0050, text=» SUB LBIN11,W4 PREVIOUS DYN FIELD «, t00=0x000f, t01=0x0050}
0x17e2…17f0 Head {h00=0x000a, h01=0x0050, text=»FSN135«, t00=0x000f, t01=0x007a}
0x17f0…181a Head {h00=0x0026, h01=0x0050, text=» SET LBOOL3 TRUE = BACKWARD SEARCH«, t00=0x000f, t01=0x0088}
0x181a…184c Head {h00=0x002e, h01=0x0050, text=» PERF SEATAB ***SEARCH NEXT DYN.FIELD POS «, t00=0x000f, t01=0x00b2}
0x184c…1882 Head {h00=0x0032, h01=0x0050, text=» TBT LBOOL4,FSN260 JUMP IF END OF TABLE FOUND «, t00=0x000f, t01=0x00e4}
0x1882…189a Head {h00=0x0014, h01=0x0050, text=» B FSN098 GO ON «, t00=0x000f, t01=0x011a}
0x189a…18a8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x0132}
0x18a8…18b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0140}
0x18b2…18ca Head {h00=0x0014, h01=0x0050, text=»* CHANGE MODE «, t00=0x000f, t01=0x014a}
0x18ca…18d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0162}
0x18d4…18e2 Head {h00=0x000a, h01=0x0050, text=»FSN150«, t00=0x000f, t01=0x016c}
0x18e2…18fc Head {h00=0x0016, h01=0x0050, text=» MOVE LSTR2,='++' «, t00=0x000f, t01=0x017a}
0x18fc…1930 (16, 0, 400) Head {h00=0x0030, h01=0x0050, text=» XCOPY LSTR1,W0,W1,LSTR81,W0 COPY 1ST CHAR. «, t00=0x0010, t01=0x0004}
0x1930…1966 Head {h00=0x0032, h01=0x0050, text=» CBL LSTR1,=C'A',FSN100 JMP IF NOT ALPHABETIC «, t00=0x0010, t01=0x0038}
0x1966…199c Head {h00=0x0032, h01=0x0050, text=» CBG LSTR1,=C'Z',FSN100 JMP IF NOT ALPHABETIC «, t00=0x0010, t01=0x006e}
0x199c…19ce Head {h00=0x002e, h01=0x0050, text=» CALL CHANFC,SCRN,SYSLFC CHANGE FILE CODE «, t00=0x0010, t01=0x00a4}
0x19ce…19fa Head {h00=0x0028, h01=0x0050, text=» MOVE LBIN3,=X'181E' CURSOR POSITION«, t00=0x0010, t01=0x00d6}
0x19fa…1a12 Head {h00=0x0014, h01=0x0050, text=» TBF VD82,FSN160«, t00=0x0010, t01=0x0102}
0x1a12…1a3a Head {h00=0x0024, h01=0x0050, text=» MOVE LBIN3,=X'011E' SYSTEM LINE«, t00=0x0010, t01=0x011a}
0x1a3a…1a66 Head {h00=0x0028, h01=0x0050, text=»FSN160 PERF CURSET,LBIN3,LBIN2,SYSL «, t00=0x0010, t01=0x0142}
0x1a66…1a96 Head {h00=0x002c, h01=0x0050, text=» CALL ICLEAR,LSTR4A ---CLEAR ITEM HEX-00«, t00=0x0010, t01=0x016e}
0x1a96…1aac Head {h00=0x0012, h01=0x0050, text=» MOVE LBIN2,W3«, t00=0x0011, t01=0x000e}
0x1aac…1adc Head {h00=0x002c, h01=0x0050, text=» INSRT LSTR81,W0,W2,LSTR2,W0 PUT IN "++"«, t00=0x0011, t01=0x0024}
0x1adc…1afc Head {h00=0x001c, h01=0x0050, text=» WRITE SYSL,LSTR81,LBIN2«, t00=0x0011, t01=0x0054}
0x1afc…1b24 Head {h00=0x0024, h01=0x0050, text=» DLETE LSTR81,W0,W2 DELETE "++" «, t00=0x0011, t01=0x0074}
0x1b24…1b56 Head {h00=0x002e, h01=0x0050, text=» CBE LBIN12,W0,FSN200 JMP IF NEW FIELD-ID «, t00=0x0011, t01=0x009c}
0x1b56…1b92 Head {h00=0x0038, h01=0x0050, text=» XCOPY LSTR4A,W0,W4,FIDTAB,LBIN6 STORE OLD CONTENTS «, t00=0x0011, t01=0x00ce}
0x1b92…1bcc Head {h00=0x0036, h01=0x0050, text=» MOVE LSTR9A,=X'2000' LOAD WORKITEM SPACE & EMPTY «, t00=0x0011, t01=0x010a}
0x1bcc…1bee Head {h00=0x001e, h01=0x0050, text=» MOVE LBIN4,W0 POINTER:=0 «, t00=0x0011, t01=0x0144}
0x1bee…1c2a Head {h00=0x0038, h01=0x0050, text=» MATCH LSTR4A,LBIN4,W4,LSTR9A,W0,W1 SEARCH 1ST SPACE«, t00=0x0011, t01=0x0166}
0x1c2a…1c50 Head {h00=0x0022, h01=0x0050, text=» BNOK FSN200 JMP IF NO SPACES «, t00=0x0012, t01=0x0012}
0x1c50…1c7a Head {h00=0x0026, h01=0x0050, text=» MOVE LBIN3,W4 LOAD LENGTH OF ITEM«, t00=0x0012, t01=0x0038}
0x1c7a…1cac Head {h00=0x002e, h01=0x0050, text=» SUB LBIN3,LBIN4 CALC NUMB OF H-00 TO PAD «, t00=0x0012, t01=0x0062}
0x1cac…1cc8 Head {h00=0x0018, h01=0x0050, text=» SUB LBIN3,W1 ADJUST«, t00=0x0012, t01=0x0094}
0x1cc8…1d08 Head {h00=0x003c, h01=0x0050, text=» XCOPY LSTR4A,LBIN4,LBIN3,LSTR9A,W1 LOAD EMPTY POSITIONS«, t00=0x0012, t01=0x00b0}
0x1d08…1d16 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x00f0}
0x1d16…1d24 Head {h00=0x000a, h01=0x0050, text=»FSN200«, t00=0x0012, t01=0x00fe}
0x1d24…1d32 Head {h00=0x000a, h01=0x0050, text=» THOME«, t00=0x0012, t01=0x010c}
0x1d32…1d48 Head {h00=0x0012, h01=0x0050, text=» GETABX LBIN4 «, t00=0x0012, t01=0x011a}
0x1d48…1d8c Head {h00=0x0040, h01=0x0050, text=» PERF READIN,KEYT10,KEYT11,KEYT3,=W'37' ***READ IN ONE FIELD«, t00=0x0012, t01=0x0130}
0x1d8c…1dbe Head {h00=0x002e, h01=0x0050, text=» IB LBIN2,FSN220,FSN215, ENT OR EOI,CAN C «, t00=0x0012, t01=0x0174}
0x1dbe…1dde Head {h00=0x001c, h01=0x0050, text=» FSN300,FSN110 RET,POF «, t00=0x0013, t01=0x0016}
0x1dde…1dec Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x0036}
0x1dec…1df6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0044}
0x1df6…1e10 Head {h00=0x0016, h01=0x0050, text=»* CANCEL - KEY «, t00=0x0013, t01=0x004e}
0x1e10…1e1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0068}
0x1e1a…1e28 Head {h00=0x000a, h01=0x0050, text=»FSN215«, t00=0x0013, t01=0x0072}
0x1e28…1e54 Head {h00=0x0028, h01=0x0050, text=» SUB LBIN11,W4 ADJUST FOR CANCEL-KEY«, t00=0x0013, t01=0x0080}
0x1e54…1e5c Head {h00=0x0004, h01=0x0050, t00=0x0013, t01=0x00ac}
0x1e5c…1e66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00b4}
0x1e66…1e82 Head {h00=0x0018, h01=0x0050, text=»* END-OF-ITEM-KEY «, t00=0x0013, t01=0x00be}
0x1e82…1e8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00da}
0x1e8c…1e9a Head {h00=0x000a, h01=0x0050, text=»FSN220«, t00=0x0013, t01=0x00e4}
0x1e9a…1eb6 Head {h00=0x0018, h01=0x0050, text=» BNZ FSN221 EOI-KEY «, t00=0x0013, t01=0x00f2}
0x1eb6…1ed4 Head {h00=0x001a, h01=0x0050, text=» SET LBOOLA ENTER-KEY «, t00=0x0013, t01=0x010e}
0x1ed4…1efc Head {h00=0x0024, h01=0x0050, text=» MOVE LBIN2,W4 4=ENTER KEY-INDEX«, t00=0x0013, t01=0x012c}
0x1efc…1f0a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x0154}
0x1f0a…1f18 Head {h00=0x000a, h01=0x0050, text=»FSN221«, t00=0x0013, t01=0x0162}
0x1f18…1f48 Head {h00=0x002c, h01=0x0050, text=» ADD LBIN11,W2 ADJUST TO REACH SEQNO-POS«, t00=0x0013, t01=0x0170}
0x1f48…1f88 Head {h00=0x003c, h01=0x0050, text=» CBE LBIN1,W0,FSN228 JMP IF SAME FID ENTERED (NO INPUT) «, t00=0x0014, t01=0x0010}
0x1f88…1fb8 Head {h00=0x002c, h01=0x0050, text=» CBNE LBIN12,W0,FSN222 JUMP IF OLD ENTRY«, t00=0x0014, t01=0x0050}
0x1fb8…1fee Head {h00=0x0032, h01=0x0050, text=» MOVE LBIN6,LBIN13 STORE 1ST FREE ENTRY ADRESS«, t00=0x0014, t01=0x0080}
0x1fee…1ffc Head {h00=0x000a, h01=0x0050, text=»FSN222«, t00=0x0014, t01=0x00b6}
0x1ffc…201c Head {h00=0x001c, h01=0x0050, text=» CMP LBIN6,LFBIN JUMP IF«, t00=0x0014, t01=0x00c4}
0x201c…203e Head {h00=0x001e, h01=0x0050, text=» BE FSN984 MEMORY OVERFLOW«, t00=0x0014, t01=0x00e4}
0x203e…2076 Head {h00=0x0034, h01=0x0050, text=» XCOPY FIDTAB,LBIN6,W4,LSTR4A,W0 STORE FIELD-ID «, t00=0x0014, t01=0x0106}
0x2076…20a6 Head {h00=0x002c, h01=0x0050, text=» CBNE LBIN12,W0,FSN225 JUMP IF OLD ENTRY«, t00=0x0014, t01=0x013e}
0x20a6…20bc Head {h00=0x0012, h01=0x0050, text=» ADD LBIN6,W5 «, t00=0x0014, t01=0x016e}
0x20bc…20f4 Head {h00=0x0034, h01=0x0050, text=» CALL WXDIV,LBIN6,W5,LBIN6 CALC SEQ.NO OF FIDTAB«, t00=0x0014, t01=0x0184}
0x20f4…2132 Head {h00=0x003a, h01=0x0050, text=» XCOPY ATTAB,LBIN11,W1,LBIN6,W1 STORE SEQ.NO OF FIDTAB«, t00=0x0015, t01=0x002c}
0x2132…2166 Head {h00=0x0030, h01=0x0050, text=» ADD LBIN13,W5 ADJUST 1ST FREE ENTRY ADRESS «, t00=0x0015, t01=0x006a}
0x2166…2174 Head {h00=0x000a, h01=0x0050, text=»FSN225«, t00=0x0015, t01=0x009e}
0x2174…21ae Head {h00=0x0036, h01=0x0050, text=» CBE LBIN12,W0,FSN228 JMP IF NEW FID WAS INSERTED «, t00=0x0015, t01=0x00ac}
0x21ae…21dc Head {h00=0x002a, h01=0x0050, text=» SET CMBOOL T=DYN FIELD-ID WAS CHANGED«, t00=0x0015, t01=0x00e6}
0x21dc…21ea Head {h00=0x000a, h01=0x0050, text=»FSN228«, t00=0x0015, t01=0x0114}
0x21ea…2216 Head {h00=0x0028, h01=0x0050, text=» TBT LBOOLA,FSN260 JUMP IF ENTER-KEY«, t00=0x0015, t01=0x0122}
0x2216…223c Head {h00=0x0022, h01=0x0050, text=» ADD LBIN11,W2 NEXT DYN FIELD «, t00=0x0015, t01=0x014e}
0x223c…2268 Head {h00=0x0028, h01=0x0050, text=» CLEAR LBOOL3 FALSE = FORWARD SEARCH«, t00=0x0015, t01=0x0174}
0x2268…229a Head {h00=0x002e, h01=0x0050, text=» PERF SEATAB ***SEARCH NEXT DYN.FIELD POS «, t00=0x0016, t01=0x0010}
0x229a…22b6 Head {h00=0x0018, h01=0x0050, text=» TBT LBOOL4,FSN260 «, t00=0x0016, t01=0x0042}
0x22b6…22e4 Head {h00=0x002a, h01=0x0050, text=» B FSN098 GO ON IF E-O-TABLE NOT FOUND«, t00=0x0016, t01=0x005e}
0x22e4…22f2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x008c}
0x22f2…22fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x009a}
0x22fc…2324 Head {h00=0x0024, h01=0x0050, text=»* CHECK IF ANY EMPTY FIELD-ID«, t00=0x0016, t01=0x00a4}
0x2324…232e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00cc}
0x232e…233c Head {h00=0x000a, h01=0x0050, text=»FSN260«, t00=0x0016, t01=0x00d6}
0x233c…2368 Head {h00=0x0028, h01=0x0050, text=» CLEAR LBOOL3 FALSE = FORWARD SEARCH«, t00=0x0016, t01=0x00e4}
0x2368…239a Head {h00=0x002e, h01=0x0050, text=» MOVE LBIN11,W0 ATTRIBUTE-TABLE-POINTER:=0«, t00=0x0016, t01=0x0110}
0x239a…23a8 Head {h00=0x000a, h01=0x0050, text=»FSN265«, t00=0x0016, t01=0x0142}
0x23a8…23da Head {h00=0x002e, h01=0x0050, text=» PERF SEATAB ***SEARCH NEXT DYN.FIELD POS «, t00=0x0016, t01=0x0150}
0x23da…2410 Head {h00=0x0032, h01=0x0050, text=» TBT LBOOL4,FSN400 JUMP IF END OF TABLE FOUND «, t00=0x0016, t01=0x0182}
0x2410…2446 Head {h00=0x0032, h01=0x0050, text=» CBE LBIN12,W0,FSN275 JUMP IF EMPTY FID FOUND «, t00=0x0017, t01=0x0028}
0x2446…246c Head {h00=0x0022, h01=0x0050, text=» MOVE LBIN6,LBIN12 LOAD SEQ.NO«, t00=0x0017, t01=0x005e}
0x246c…248e Head {h00=0x001e, h01=0x0050, text=» CALL WXMUL,LBIN6,W5,LBIN6«, t00=0x0017, t01=0x0084}
0x248e…24b8 Head {h00=0x0026, h01=0x0050, text=» SUB LBIN6,W5 CALC ELEMENT ADRESS «, t00=0x0017, t01=0x00a6}
0x24b8…24f4 Head {h00=0x0038, h01=0x0050, text=» XCOPY LSTR4A,W0,W4,FIDTAB,LBIN6 STORE OLD CONTENTS «, t00=0x0017, t01=0x00d0}
0x24f4…2518 Head {h00=0x0020, h01=0x0050, text=» CALL EMPTYT,LSTR4A EMPTY ? «, t00=0x0017, t01=0x010c}
0x2518…253a Head {h00=0x001e, h01=0x0050, text=» BNOK FSN275 JUMP IF EMPTY«, t00=0x0017, t01=0x0130}
0x253a…2560 Head {h00=0x0022, h01=0x0050, text=» ADD LBIN11,W4 NEXT DYN FIELD «, t00=0x0017, t01=0x0152}
0x2560…2578 Head {h00=0x0014, h01=0x0050, text=» B FSN265 GO ON «, t00=0x0017, t01=0x0178}
0x2578…2586 Head {h00=0x000a, h01=0x0050, text=»FSN275«, t00=0x0017, t01=0x0190}
0x2586…25ae Head {h00=0x0024, h01=0x0050, text=» CLEAR LBOOLA CLEAR ENT ERR.FLAG«, t00=0x0018, t01=0x000e}
0x25ae…25ce Head {h00=0x001c, h01=0x0050, text=» MOVE LBIN1,W0 NO CLEAR «, t00=0x0018, t01=0x0036}
0x25ce…25f2 Head {h00=0x0020, h01=0x0050, text=» MOVE LBIN4,W5 MESSAGE NO 5«, t00=0x0018, t01=0x0056}
0x25f2…262e Head {h00=0x0038, h01=0x0050, text=» PERF WSMERR,KEYT5,=W'37' ***(ERROR-)MESSAGE ROUTINE«, t00=0x0018, t01=0x007a}
0x262e…265c Head {h00=0x002a, h01=0x0050, text=» CBE LBIN2,W0,FSN270 JUMP IF POWER OFF«, t00=0x0018, t01=0x00b6}
0x265c…2686 Head {h00=0x0026, h01=0x0050, text=» IB LBIN2,FSN098,FSN098, CLR,CAN C«, t00=0x0018, t01=0x00e4}
0x2686…269e Head {h00=0x0014, h01=0x0050, text=» FSN300 RET,ENT«, t00=0x0018, t01=0x010e}
0x269e…26b0 Head {h00=0x000e, h01=0x0050, text=» B FSN098 «, t00=0x0018, t01=0x0126}
0x26b0…26be Head {h00=0x000a, h01=0x0050, text=»FSN270«, t00=0x0018, t01=0x0138}
0x26be…26de Head {h00=0x001c, h01=0x0050, text=» MOVE LBIN16,W1 1ST ROW «, t00=0x0018, t01=0x0146}
0x26de…2708 Head {h00=0x0026, h01=0x0050, text=» MOVE LBIN4,=X'0101' ROW:=1 COL:=1«, t00=0x0018, t01=0x0166}
0x2708…2734 Head {h00=0x0028, h01=0x0050, text=» MOVE LBIN14,W0 ATTR.TAB POINTER:=0 «, t00=0x0018, t01=0x0190}
0x2734…274a Head {h00=0x0012, h01=0x0050, text=» MOVE LBIN1,W0«, t00=0x0019, t01=0x002c}
0x274a…2780 Head {h00=0x0032, h01=0x0050, text=» PERF DISPLY,LBIN8 ***EDIT AND WRITE TO E-O-S «, t00=0x0019, t01=0x0042}
0x2780…2792 Head {h00=0x000e, h01=0x0050, text=» B FSN275 «, t00=0x0019, t01=0x0078}
0x2792…27a0 Head {h00=0x000a, h01=0x0050, text=»FSN280«, t00=0x0019, t01=0x008a}
0x27a0…27d8 Head {h00=0x0034, h01=0x0050, text=» CBE LBIN11,W0,FSN285 JMP IF ATTAB=0000 0000 ...«, t00=0x0019, t01=0x0098}
0x27d8…27fe Head {h00=0x0022, h01=0x0050, text=» SUB LBIN11,W4 ADJUST POINTER «, t00=0x0019, t01=0x00d0}
0x27fe…280c Head {h00=0x000a, h01=0x0050, text=»FSN285«, t00=0x0019, t01=0x00f6}
0x280c…2836 Head {h00=0x0026, h01=0x0050, text=» SET LBOOL3 TRUE = BACKWARD SEARCH«, t00=0x0019, t01=0x0104}
0x2836…2868 Head {h00=0x002e, h01=0x0050, text=» PERF SEATAB ***SEARCH NEXT DYN.FIELD POS «, t00=0x0019, t01=0x012e}
0x2868…289e Head {h00=0x0032, h01=0x0050, text=» TBT LBOOL4,FSN400 JUMP IF END OF TABLE FOUND «, t00=0x0019, t01=0x0160}
0x289e…28b0 Head {h00=0x000e, h01=0x0050, text=» B FSN098 «, t00=0x001a, t01=0x0008}
0x28b0…28be Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x001a}
0x28be…28c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0028}
0x28c8…28de Head {h00=0x0012, h01=0x0050, text=»* RETUR-KEY «, t00=0x001a, t01=0x0032}
0x28de…28e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0048}
0x28e8…28f6 Head {h00=0x000a, h01=0x0050, text=»FSN300«, t00=0x001a, t01=0x0052}
0x28f6…2922 Head {h00=0x0028, h01=0x0050, text=» MOVE GBIN15,LBIN13 LOAD NEW ADRESS «, t00=0x001a, t01=0x0060}
0x2922…294c Head {h00=0x0026, h01=0x0050, text=» MOVE GBIN2,W1 INDICATE RETUR KEY «, t00=0x001a, t01=0x008c}
0x294c…295e Head {h00=0x000e, h01=0x0050, text=» B FSN999 «, t00=0x001a, t01=0x00b6}
0x295e…2968 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00c8}
0x2968…297e Head {h00=0x0012, h01=0x0050, text=»* NORMAL END«, t00=0x001a, t01=0x00d2}
0x297e…2988 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00e8}
0x2988…2996 Head {h00=0x000a, h01=0x0050, text=»FSN400«, t00=0x001a, t01=0x00f2}
0x2996…29ce Head {h00=0x0034, h01=0x0050, text=» CBE LBIN2,W4,FSN420 JMP IF ENTER AND NOT E-O-F «, t00=0x001a, t01=0x0100}
0x29ce…29ee Head {h00=0x001c, h01=0x0050, text=» MOVE LBIN1,W0 NO CLEAR «, t00=0x001a, t01=0x0138}
0x29ee…2a12 Head {h00=0x0020, h01=0x0050, text=» MOVE LBIN4,W7 MESSAGE NO 7«, t00=0x001a, t01=0x0158}
0x2a12…2a4e Head {h00=0x0038, h01=0x0050, text=» PERF WSMERR,KEYT5,=W'37' ***(ERROR-)MESSAGE ROUTINE«, t00=0x001a, t01=0x017c}
0x2a4e…2a7c Head {h00=0x002a, h01=0x0050, text=» CBE LBIN2,W0,FSN410 JUMP IF POWER OFF«, t00=0x001b, t01=0x0028}
0x2a7c…2aa6 Head {h00=0x0026, h01=0x0050, text=» IB LBIN2,FSN280,FSN280, CLR,CAN C«, t00=0x001b, t01=0x0056}
0x2aa6…2ac6 Head {h00=0x001c, h01=0x0050, text=» FSN300,FSN420 RET,ENT «, t00=0x001b, t01=0x0080}
0x2ac6…2ada Head {h00=0x0010, h01=0x0050, text=» POWER OFF«, t00=0x001b, t01=0x00a0}
0x2ada…2ae8 Head {h00=0x000a, h01=0x0050, text=»FSN410«, t00=0x001b, t01=0x00b4}
0x2ae8…2b08 Head {h00=0x001c, h01=0x0050, text=» MOVE LBIN16,W1 1ST ROW «, t00=0x001b, t01=0x00c2}
0x2b08…2b32 Head {h00=0x0026, h01=0x0050, text=» MOVE LBIN4,=X'0101' ROW:=1 COL:=1«, t00=0x001b, t01=0x00e2}
0x2b32…2b5e Head {h00=0x0028, h01=0x0050, text=» MOVE LBIN14,W0 ATTR.TAB POINTER:=0 «, t00=0x001b, t01=0x010c}
0x2b5e…2b74 Head {h00=0x0012, h01=0x0050, text=» MOVE LBIN1,W0«, t00=0x001b, t01=0x0138}
0x2b74…2baa Head {h00=0x0032, h01=0x0050, text=» PERF DISPLY,LBIN8 ***EDIT AND WRITE TO E-O-S «, t00=0x001b, t01=0x014e}
0x2baa…2bbc Head {h00=0x000e, h01=0x0050, text=» B FSN400 «, t00=0x001b, t01=0x0184}
0x2bbc…2bca Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x0008}
0x2bca…2bd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0016}
0x2bd4…2bf8 Head {h00=0x0020, h01=0x0050, text=»* FIELD-NAME TABLE STORAGE«, t00=0x001c, t01=0x0020}
0x2bf8…2c02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0044}
0x2c02…2c10 Head {h00=0x000a, h01=0x0050, text=»FSN420«, t00=0x001c, t01=0x004e}
0x2c10…2c42 Head {h00=0x002e, h01=0x0050, text=» MOVE LBIN11,W0 ATTRIBUTE-TABLE-POINTER:=0«, t00=0x001c, t01=0x005c}
0x2c42…2c70 Head {h00=0x002a, h01=0x0050, text=» MOVE LBIN3,W0 NUMB OF DYN. FIELDS:=0 «, t00=0x001c, t01=0x008e}
0x2c70…2c9e Head {h00=0x002a, h01=0x0050, text=» MOVE LBIN2,W8 NUMB OF CHAR TO CONTROL«, t00=0x001c, t01=0x00bc}
0x2c9e…2cde Head {h00=0x003c, h01=0x0050, text=» MOVE LSTR6A,=X'00FBFCFDFEFF' STATIC FIELD OBJECT CODES «, t00=0x001c, t01=0x00ea}
0x2cde…2d10 Head {h00=0x002e, h01=0x0050, text=» CLEAR LBOOL3 FALSE = NO SPLITT OF OBJECT «, t00=0x001c, t01=0x012a}
0x2d10…2d44 Head {h00=0x0030, h01=0x0050, text=» CLEAR VBOOL8 FALSE = NO COMP POOL-DELIMITER«, t00=0x001c, t01=0x015c}
0x2d44…2d52 Head {h00=0x000a, h01=0x0050, text=»FSN430«, t00=0x001c, t01=0x0190}
0x2d52…2d84 Head {h00=0x002e, h01=0x0050, text=» PERF SEATAB ***SEARCH NEXT DYNAMIC FIELD «, t00=0x001d, t01=0x000e}
0x2d84…2db0 Head {h00=0x0028, h01=0x0050, text=» TBT LBOOL4,FSN440 JMP IF E-O-TABLE «, t00=0x001d, t01=0x0040}
0x2db0…2dd4 Head {h00=0x0020, h01=0x0050, text=» CALL WXMUL,LBIN12,W5,LBIN12«, t00=0x001d, t01=0x006c}
0x2dd4…2e04 Head {h00=0x002c, h01=0x0050, text=» SUB LBIN12,W5 CALC ATTR ELEMENT ADRESS «, t00=0x001d, t01=0x0090}
0x2e04…2e4c Head {h00=0x0044, h01=0x0050, text=» PERF POLICE,LBIN2,LBOOL3,VBOOL8,LSTR81 ***POOL-LIMIT-CONTROLER «, t00=0x001d, t01=0x00c0}
0x2e4c…2e76 Head {h00=0x0026, h01=0x0050, text=» BG FSN982 JUMP IF MEMORY OVERFLOW«, t00=0x001d, t01=0x0108}
0x2e76…2eb2 Head {h00=0x0038, h01=0x0050, text=» XCOPY BPOOL(GBIN4),GBIN5,W4,FIDTAB,LBIN12 STORE FID«, t00=0x001d, t01=0x0132}
0x2eb2…2edc Head {h00=0x0026, h01=0x0050, text=» ADD GBIN5,W8 ADJUST POOL-POINTER «, t00=0x001d, t01=0x016e}
0x2edc…2efc Head {h00=0x001c, h01=0x0050, text=» LEAVING 4 BYTES EMPTY«, t00=0x001e, t01=0x0008}
0x2efc…2f28 Head {h00=0x0028, h01=0x0050, text=» ADD LBIN11,W4 ADJUST TABLE POINTER «, t00=0x001e, t01=0x0028}
0x2f28…2f5a Head {h00=0x002e, h01=0x0050, text=» ADD LBIN3,W1 INCREMENT NUMB OF DYN FIELDS«, t00=0x001e, t01=0x0054}
0x2f5a…2f72 Head {h00=0x0014, h01=0x0050, text=» B FSN430 GO ON «, t00=0x001e, t01=0x0086}
0x2f72…2f80 Head {h00=0x000a, h01=0x0050, text=»FSN440«, t00=0x001e, t01=0x009e}
0x2f80…2f8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00ac}
0x2f8a…2fb6 Head {h00=0x0028, h01=0x0050, text=»* STORE NUMBER OF DYNAMIC FIELDS «, t00=0x001e, t01=0x00b6}
0x2fb6…2fc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00e2}
0x2fc0…2ff2 Head {h00=0x002e, h01=0x0050, text=» MOVE LBIN1,=W'37' POINTER TO BBUFFERPOOL «, t00=0x001e, t01=0x00ec}
0x2ff2…3034 Head {h00=0x003e, h01=0x0050, text=» XCOPY BPOOL(W1),LBIN1,W1,LBIN3,W1 STORE NUMB OF D.FIELDS «, t00=0x001e, t01=0x011e}
0x3034…3062 Head {h00=0x002a, h01=0x0050, text=» MOVE LSTR6A,=X'0000' LOAD EMPTY-VALUE«, t00=0x001e, t01=0x0160}
0x3062…308a Head {h00=0x0024, h01=0x0050, text=» MOVE GBIN15,W0 MATCH-POINTER:=0«, t00=0x001e, t01=0x018e}
0x308a…30d2 Head {h00=0x0044, h01=0x0050, text=» MATCH FIDTAB,GBIN15,LFBIN,LSTR6A,W0,W5 MATCH 1ST FREE POSITION «, t00=0x001f, t01=0x0026}
0x30d2…30f0 Head {h00=0x001a, h01=0x0050, text=» ADD GBIN15,W1 ADJUST «, t00=0x001f, t01=0x006e}
0x30f0…3114 Head {h00=0x0020, h01=0x0050, text=» CALL WXDIV,GBIN15,W5,GBIN15«, t00=0x001f, t01=0x008c}
0x3114…3152 Head {h00=0x003a, h01=0x0050, text=» CALL WXMUL,GBIN15,W5,GBIN15 CALC EVEN 5-MULTIPEL-POS «, t00=0x001f, t01=0x00b0}
0x3152…3194 Head {h00=0x003e, h01=0x0050, text=» XCOPY GBIN9,W0,W1,GBIN4,W1 STORE RETURN-ADRESS BUFFINDEX «, t00=0x001f, t01=0x00ee}
0x3194…31d4 Head {h00=0x003c, h01=0x0050, text=» XCOPY GBIN9,W1,W1,GBIN5,W1 STORE RETURN-ADRESS POINTER «, t00=0x001f, t01=0x0130}
0x31d4…31e6 Head {h00=0x000e, h01=0x0050, text=» B FSN999 «, t00=0x001f, t01=0x0170}
0x31e6…31f4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x0182}
0x31f4…31fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0190}
0x31fe…322c Head {h00=0x002a, h01=0x0050, text=»* WORKING AREA <DATA-ITEM> EXCEEDED «, t00=0x0020, t01=0x000a}
0x322c…3236 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0038}
0x3236…3244 Head {h00=0x000a, h01=0x0050, text=»FSN982«, t00=0x0020, t01=0x0042}
0x3244…3274 Head {h00=0x002c, h01=0x0050, text=» MOVE LBIN5,W2 BPOOL DIMENSION OVERFLOW «, t00=0x0020, t01=0x0050}
0x3274…3286 Head {h00=0x000e, h01=0x0050, text=» B FSN988 «, t00=0x0020, t01=0x0080}
0x3286…3290 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0092}
0x3290…329e Head {h00=0x000a, h01=0x0050, text=»FSN984«, t00=0x0020, t01=0x009c}
0x329e…32c4 Head {h00=0x0022, h01=0x0050, text=» MOVE LBIN5,W4 FIDTAB OVERFLOW«, t00=0x0020, t01=0x00aa}
0x32c4…32d2 Head {h00=0x000a, h01=0x0050, text=»FSN988«, t00=0x0020, t01=0x00d0}
0x32d2…32f2 Head {h00=0x001c, h01=0x0050, text=» MOVE LBIN1,W0 NO CLEAR «, t00=0x0020, t01=0x00de}
0x32f2…331c Head {h00=0x0026, h01=0x0050, text=» MOVE LBIN4,W2 ERRORMESSAGE NO:=2 «, t00=0x0020, t01=0x00fe}
0x331c…3358 Head {h00=0x0038, h01=0x0050, text=» PERF WSMERR,KEYT5,=W'37' ***(ERROR-)MESSAGE ROUTINE«, t00=0x0020, t01=0x0128}
0x3358…336a Head {h00=0x000e, h01=0x0050, text=» B FSN300 «, t00=0x0020, t01=0x0164}
0x336a…3374 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0176}
0x3374…3384 Head {h00=0x000c, h01=0x0050, text=»* EXIT«, t00=0x0020, t01=0x0180}
0x3384…338e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0190}
0x338e…339c Head {h00=0x000a, h01=0x0050, text=»FSN999«, t00=0x0021, t01=0x000a}
0x339c…33cc Head {h00=0x002c, h01=0x0050, text=» DSC KEYB,CED,SCRNFC CHANGE ECHO DEVICE «, t00=0x0021, t01=0x0018}
0x33cc…33fe Head {h00=0x002e, h01=0x0050, text=» CALL CHANFC,SCRN,SCRNFC CHANGE FILE CODE «, t00=0x0021, t01=0x0048}
0x33fe…3412 Head {h00=0x0010, h01=0x0050, text=» PERF STABLK«, t00=0x0021, t01=0x007a}
0x3412…341e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0021, t01=0x008e}
0x341e…342c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0021, t01=0x009a}
0x342c…343a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x00a8}
0x343a…3444 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00b6}
0x3444…3486 Head {h00=0x003e, h01=0x0050, text=»* SEARCH ATTRIBUTE-TABLE TO FIND ITS ATTRIBUTE -POSITION«, t00=0x0021, t01=0x00c0}
0x3486…3490 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0102}
0x3490…34d8 Head {h00=0x0044, h01=0x0050, text=»* INPUT : LBIN11 = CURRENT DYNAMIC FIELD POSITION «, t00=0x0021, t01=0x010c}
0x34d8…3518 Head {h00=0x003c, h01=0x0050, text=»* LBOOL3 = FALSE => FORWARD SEARCH«, t00=0x0021, t01=0x0154}
0x3518…355a (34, 0, 400) Head {h00=0x003e, h01=0x0050, text=»* TRUE => BACKWARD SEARCH «, t00=0x0022, t01=0x0004}
0x355a…35a6 Head {h00=0x0048, h01=0x0050, text=»* OUTPUT : LBIN11 = POINTER ADRESS TO NEXT OR PREVIOUS «, t00=0x0022, t01=0x0046}
0x35a6…35e4 Head {h00=0x003a, h01=0x0050, text=»* DYNAMIC FIELD POSITON«, t00=0x0022, t01=0x0092}
0x35e4…3632 Head {h00=0x004a, h01=0x0050, text=»* LBOOL4 = FALSE = DYNAMIC FIELD ENTRY WAS FOUND«, t00=0x0022, t01=0x00d0}
0x3632…3676 Head {h00=0x0040, h01=0x0050, text=»* = TRUE = E-O-TABLE WAS FOUND «, t00=0x0022, t01=0x011e}
0x3676…36c6 Head {h00=0x004c, h01=0x0050, text=»* LBIN12 = SEQ. NO OF DYNAMIC FIELD (=0 NEW DYN FI«, t00=0x0022, t01=0x0162}
0x36c6…3716 Head {h00=0x004c, h01=0x0050, text=»* LBIN7 = CURSOR-POSITION OF FOUND DYNAMIC FIELD «, t00=0x0023, t01=0x0022}
0x3716…3720 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0072}
0x3720…3770 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0023, t01=0x007c}
0x3770…3784 Head {h00=0x0010, h01=0x0050, text=»SEATAB PROC «, t00=0x0023, t01=0x00cc}
0x3784…37a8 Head {h00=0x0020, h01=0x0050, text=» MOVE LBIN12,W0 WORKITEM:=0 «, t00=0x0023, t01=0x00e0}
0x37a8…37dc Head {h00=0x0030, h01=0x0050, text=» CLEAR LBOOL4 FALSE = DYN FIELD ENTRY FOUND «, t00=0x0023, t01=0x0104}
0x37dc…3812 Head {h00=0x0032, h01=0x0050, text=» TBT LBOOL3,SEA300 JUMP IF BACKWARD SEARCHING «, t00=0x0023, t01=0x0138}
0x3812…381c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x016e}
0x381c…383a Head {h00=0x001a, h01=0x0050, text=»* FORWARD SEARCHING «, t00=0x0023, t01=0x0178}
0x383a…3844 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0008}
0x3844…3852 Head {h00=0x000a, h01=0x0050, text=»SEA100«, t00=0x0024, t01=0x0012}
0x3852…3888 Head {h00=0x0032, h01=0x0050, text=» CBE LBIN11,LABIN,SEA200 JUMP IF END OF TABLE «, t00=0x0024, t01=0x0020}
0x3888…38c4 Head {h00=0x0038, h01=0x0050, text=» XCOPY LBIN1,W0,W2,ATTAB,LBIN11 FETCH ATTRIBUTE-POS.«, t00=0x0024, t01=0x0056}
0x38c4…38f6 Head {h00=0x002e, h01=0x0050, text=» CBE LBIN1,W0,SEA200 JUMP IF END-OF-TABLE «, t00=0x0024, t01=0x0092}
0x38f6…391e Head {h00=0x0024, h01=0x0050, text=» ADD LBIN11,W2 NEXT SEQ. NO-POS «, t00=0x0024, t01=0x00c4}
0x391e…395a Head {h00=0x0038, h01=0x0050, text=» XCOPY LBIN12,W1,W1,ATTAB,LBIN11 FETCH SEQ. NO-POS. «, t00=0x0024, t01=0x00ec}
0x395a…398c Head {h00=0x002e, h01=0x0050, text=» ADD LBIN11,W2 ADJUST FOR NEXT ELEMENT-POS«, t00=0x0024, t01=0x0128}
0x398c…39c6 Head {h00=0x0036, h01=0x0050, text=» CBE LBIN12,=X'00FF',SEA100 GO ON IF STATIC FIELD «, t00=0x0024, t01=0x015a}
0x39c6…39fc (37, 0, 400) Head {h00=0x0032, h01=0x0050, text=» MOVE LBIN7,LBIN1 LOAD CURSERPOS FOR DYN-FIELD«, t00=0x0025, t01=0x0004}
0x39fc…3a2a Head {h00=0x002a, h01=0x0050, text=» XCOPY LBIN1,W0,W1,W0,W0 DELETE ROW NO«, t00=0x0025, t01=0x003a}
0x3a2a…3a5e Head {h00=0x0030, h01=0x0050, text=» CBG LBIN1,LBIN9,SEA100 GO ON IF OVFL ENTRY «, t00=0x0025, t01=0x0068}
0x3a5e…3a90 Head {h00=0x002e, h01=0x0050, text=» SUB LBIN11,W4 ADJUST FOR THIS ELEMENT-POS«, t00=0x0025, t01=0x009c}
0x3a90…3aa6 Head {h00=0x0012, h01=0x0050, text=» B SEA999 EXIT«, t00=0x0025, t01=0x00ce}
0x3aa6…3ab4 Head {h00=0x000a, h01=0x0050, text=»SEA200«, t00=0x0025, t01=0x00e4}
0x3ab4…3ae6 Head {h00=0x002e, h01=0x0050, text=» SET LBOOL4 TRUE E-O-T/B-O-T/NO ROW ENTRY «, t00=0x0025, t01=0x00f2}
0x3ae6…3af8 Head {h00=0x000e, h01=0x0050, text=» B SEA999 «, t00=0x0025, t01=0x0124}
0x3af8…3b02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0136}
0x3b02…3b22 Head {h00=0x001c, h01=0x0050, text=»* BACKWARD SEARCHING «, t00=0x0025, t01=0x0140}
0x3b22…3b2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0160}
0x3b2c…3b3a Head {h00=0x000a, h01=0x0050, text=»SEA300«, t00=0x0025, t01=0x016a}
0x3b3a…3b6e Head {h00=0x0030, h01=0x0050, text=» CBE LBIN11,W0,SEA100 BEGIN OF TABLE REACHED«, t00=0x0025, t01=0x0178}
0x3b6e…3b96 Head {h00=0x0024, h01=0x0050, text=» ADD LBIN11,W2 NEXT SEQ. NO-POS «, t00=0x0026, t01=0x001c}
0x3b96…3bd2 Head {h00=0x0038, h01=0x0050, text=» XCOPY LBIN12,W1,W1,ATTAB,LBIN11 FETCH SEQ. NO-POS. «, t00=0x0026, t01=0x0044}
0x3bd2…3bf6 Head {h00=0x0020, h01=0x0050, text=» SUB LBIN11,W6 NEXT ATTRPOS «, t00=0x0026, t01=0x0080}
0x3bf6…3c30 Head {h00=0x0036, h01=0x0050, text=» CBE LBIN12,=X'00FF',SEA300 GO ON IF STATIC FIELD «, t00=0x0026, t01=0x00a4}
0x3c30…3c62 Head {h00=0x002e, h01=0x0050, text=» ADD LBIN11,W4 ADJUST FOR THIS ELEMENT-POS«, t00=0x0026, t01=0x00de}
0x3c62…3ca8 Head {h00=0x0042, h01=0x0050, text=» XCOPY LBIN1,W0,W2,ATTAB,LBIN11 LOAD CURSORPOS DYN FIELD-POS. «, t00=0x0026, t01=0x0110}
0x3ca8…3cde Head {h00=0x0032, h01=0x0050, text=» MOVE LBIN7,LBIN1 LOAD CURSERPOS FOR DYN-FIELD«, t00=0x0026, t01=0x0156}
0x3cde…3d0c Head {h00=0x002a, h01=0x0050, text=» XCOPY LBIN1,W0,W1,W0,W0 DELETE ROW NO«, t00=0x0026, t01=0x018c}
0x3d0c…3d46 Head {h00=0x0036, h01=0x0050, text=» CBNG LBIN1,LBIN9,SEA999 EXIT IF NOT OVFL ENTRY <=«, t00=0x0027, t01=0x002a}
0x3d46…3d74 Head {h00=0x002a, h01=0x0050, text=» SUB LBIN11,W4 ADJUST WHEN OVFL ENTRY «, t00=0x0027, t01=0x0064}
0x3d74…3d8a Head {h00=0x0012, h01=0x0050, text=» B SEA300 EXIT«, t00=0x0027, t01=0x0092}
0x3d8a…3d98 Head {h00=0x000a, h01=0x0050, text=»SEA999«, t00=0x0027, t01=0x00a8}
0x3d98…3da4 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0027, t01=0x00b6}
0x3da4…3db2 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0027, t01=0x00c2}
0x3db2…3dc0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x00d0}
0x3dc0…3ddc Head {h00=0x0018, h01=0x0050, text=» INCLUDE FNAMES,LIST«, t00=0x0027, t01=0x00de}
0x3ddc…3de6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00fa}
0x3de6…3e12 Head {h00=0x0028, h01=0x0050, text=»* FORMAT HOME CONTROLLED CURSER «, t00=0x0027, t01=0x0104}
0x3e12…3e1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0130}
0x3e1c…3e2e Head {h00=0x000e, h01=0x0050, text=»FHOME FRMT«, t00=0x0027, t01=0x013a}
0x3e2e…3e3a Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0027, t01=0x014c}
0x3e3a…3e48 Head {h00=0x000a, h01=0x0050, text=» FKI 1«, t00=0x0027, t01=0x0158}
0x3e48…3e5c Head {h00=0x0010, h01=0x0050, text=» FCOPY LSTR1«, t00=0x0027, t01=0x0166}
0x3e5c…3e6a Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0027, t01=0x017a}
0x3e6a…3e76 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0027, t01=0x0188}
0x3e76…3e7a (40, 2, 8) Head {h00=0x4004, h01=0x0000}
0x3e7a…3e7e 00 28 00 04 ┆ ( ┆
0x3e7e…3e86 (41, 1, 8) 20 04 00 00 00 29 00 04 ┆ ) ┆
0x3e86…3ecc (42, 2, 70) 04 13 00 00 00 07 50 0e 00 15 57 04 00 41 50 c6 00 53 50 ac 00 5d 54 06 00 6f 54 06 00 79 50 2a 00 ab 55 0a 01 15 50 0c 00 01 01 90 00 0e 00 0a 07 04 00 00 00 00 01 2e 00 00 00 02 00 30 40 04 00 00 00 02 00 42 ┆ P W AP SP ]T oT yP* U P . 0@ B┆
0x3ecc…3f1c (43, 0, 398) 00 30 00 48 20 49 44 45 4e 54 20 57 3a 50 46 49 46 20 57 2c 52 45 4c 3d 33 2e 30 2c 38 35 30 36 30 31 2c 38 37 30 31 35 35 39 34 30 33 30 30 20 00 00 00 04 00 46 00 42 01 20 c4 57 3a 50 4e 58 54 00 c4 57 3a 50 52 45 4c 00 c4 57 3a 50 52 4c ┆ 0 H IDENT W:PFIF W,REL=3.0,850601,870155940300 F B W:PNXT W:PREL W:PRL┆
0x3f1c…3f6c 54 00 c4 57 3a 50 52 53 4c 00 c4 57 3a 50 52 45 53 00 c4 57 3a 50 57 52 54 00 c4 57 3a 50 44 4c 54 00 c4 57 3a 50 44 41 4c 00 00 00 00 38 00 34 00 30 01 17 c4 57 3a 50 52 44 44 00 c4 57 3a 50 52 44 46 00 c4 57 3a 50 52 44 4e 00 c4 57 3a 50 ┆T W:PRSL W:PRES W:PWRT W:PDLT W:PDAL 8 4 0 W:PRDD W:PRDF W:PRDN W:P┆
0x3f6c…3fbc 52 44 53 00 a4 57 3a 50 49 58 c4 57 3a 4c 50 4f 4c 00 00 00 00 82 00 10 00 0c 05 05 dc 57 3a 4c 50 4f 4c 00 00 00 00 00 00 ba 00 10 00 0c 05 05 dc 57 3a 50 4e 58 54 00 00 1c 00 00 00 ce 00 2c 00 28 03 13 00 00 00 01 00 00 86 16 85 56 00 02 ┆RDS W:PIX W:LPOL W:LPOL W:PNXT , ( V ┆
0x3fbc…400c a0 57 00 02 07 4c f6 87 85 57 00 02 85 5a ff fe 85 5b 00 02 f0 3a 87 20 01 02 00 00 00 e2 00 10 00 0c 05 05 dc 57 3a 50 52 4c 54 00 00 2a 00 00 01 12 00 10 00 0c 05 05 dc 57 3a 50 52 45 4c 00 00 2e 00 00 01 26 00 10 00 0c 05 05 dc 57 3a 50 ┆ W L W Z [ : W:PRLT * W:PREL . & W:P┆
0x400c…405a 52 53 4c 00 00 36 00 00 01 3a 00 10 00 0c 05 05 dc 57 3a 50 52 45 53 00 00 3c 00 00 01 4e 00 2c 00 28 03 13 00 00 00 21 00 00 86 57 00 44 ba db ff f8 57 00 e7 57 00 49 07 20 a0 57 00 46 57 00 81 a0 00 10 57 00 99 86 80 d7 00 00 01 62 ┆RSL 6 : W:PRES < N , ( ! W D W W I W FW W b┆
0x405a…40aa (44, 0, 400) 00 10 00 0c 05 05 dc 57 3a 50 57 52 54 00 00 4e 00 01 00 04 00 10 00 0c 05 05 dc 57 3a 50 44 4c 54 00 00 52 00 01 00 18 00 10 00 0c 05 05 dc 57 3a 50 44 41 4c 00 00 5c 00 01 00 2c 00 2c 00 28 03 13 00 00 00 41 00 00 00 44 a0 57 00 46 80 9c ┆ W:PWRT N W:PDLT R W:PDAL , , ( A D W F ┆
0x40aa…40fa 07 02 97 06 57 00 07 05 57 00 87 57 00 46 80 9c 07 40 57 00 87 20 08 40 00 01 00 40 00 0e 00 0a 05 04 bc 57 3a 50 49 58 00 68 00 01 00 70 00 10 00 0c 05 05 dc 57 3a 50 52 44 44 00 00 7c 00 01 00 82 00 2c 00 28 03 13 00 00 00 61 00 00 86 16 ┆ W W W F @W @ @ W:PIX h p W:PRDD | , ( a ┆
0x40fa…414a 96 20 00 bc 57 00 27 ff 87 57 00 44 1f 01 50 00 87 20 04 02 80 a0 00 53 57 00 80 a0 00 44 00 01 00 96 00 10 00 0c 05 05 dc 57 3a 50 52 44 4e 00 00 82 00 01 00 c6 00 10 00 0c 05 05 dc 57 3a 50 52 44 46 00 00 8c 00 01 00 da 00 10 00 0c 05 05 ┆ W ' W D P SW D W:PRDN W:PRDF ┆
0x414a…419a dc 57 3a 50 52 44 53 00 00 92 00 01 00 ee 00 2c 00 28 03 13 00 00 00 81 00 00 57 00 80 a0 00 53 87 20 10 01 57 00 80 a0 00 46 57 00 80 a0 00 53 07 01 e0 d7 00 49 ba db ff f8 00 01 01 02 00 0e 00 0a 02 04 c2 57 3a 50 4f 4f 4c 00 00 01 01 32 ┆ W:PRDS , ( W S W FW S I W:POOL 2┆
0x419a…41ea 00 2c 00 28 03 13 00 00 00 a1 00 40 b9 b8 b9 d7 00 4a 80 96 90 a0 00 44 9e a0 00 0a f6 a1 00 00 00 02 86 5a ff fe 96 a0 00 0a 86 5b 00 01 01 44 00 18 00 14 03 09 00 00 00 bf 00 00 00 02 ba da ff f8 86 56 00 44 f0 3a 00 01 01 74 00 38 00 34 ┆ , ( @ J D Z [ D V D : t 8 4┆