|
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: 13680 (0x3570)
Notes: pts_type(SC)
Names: »DEPRFG.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DE/DEPRFG.SC«
└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
└─⟦this⟧ »DEN10/DEPRFG.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »S:DE/DEPRFG.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »DEN10/DEPRFG.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DE/DEPRFG.SC«
IDENT DEPRFG REL 10.0 80-04-11 80-03-21/JAER * * THIS ROUTINE TAKES CARE OF PRINTOUT OF THE GENERAL USER * FORMAT DEFINITION AND OF THE BALANCE FORMAT DEFINITION. * * -USED VARIABLES : PINDCB = FORMAT BUFFER INDEX * CURSEC = FORMAT BUFFER POINTER * BIN10 = FIELDNR * BIN16 = POINTER STR64A-ITEM * DEBIN5 = LINE-COUNTER * W6 = DETAILLINE STARTLINE NUMBER * DEBINW2= 0 OK * = 1 CLEAR-KEY * = 2 CLEAR-KEY * = 3 RETURN-KEY * ************************************************************************ DDUM DEDDIV PDIV * ENTRY PRFGUF PRINT USERFORMAT DEFINITION * EXT DEUNPF UNPACK NEXT FIELD * EXT NOPOOL NUMBER OF USED POOLS * EXT EMPTYT CHECK IF EMPTY ITEM EXT DERROR ERROR-MESSAGES EJECT * * KEYTABLE * CLR EQU X'8F' CLEAR CAN EQU X'91' CANCEL RET EQU X'92' RETURN * DEKTAB6 KTAB CLR,CAN,RET EJECT * * PRINT USER FORMAT DEFINITION * PRFGUF PROC PR00 EDWRT DEDSPRT,FORMF FORMFEED BOK PR03 JUMP IF OK MOVE DEBINW4,W32 ADD DEBINW4,W3 LINE-PRINTER NOT OPERABLE PERF DERROR,DEKTAB6 ERRORMESSAGE:35 B PR50 CLR-,CAN- OR RET-KEY PR03 MOVE DEBINW3,W1 PRINT DEDSPRT,DEBINW3,W0 BNOK PR00 JUMP IF NOT OK MOVE PINDCB,FLIND(W1) LOAD BUFFERINDEX MOVE CURSEC,W0 LOAD BUFFERPOINTER MOVE BIN10,W1 LOAD FIELDNR MOVE FDVBCD(W2),W0 LINENO:=0 MOVE FDVBCD(W1),W1 PAGENO:=0 MOVE PINDND,W0 NUMB OF DESC:=0 MOVE PRECPR,W0 NUMB OF POOLS:=0 XCOPY PRECPR,W1,W1,RPOOL(PINDFR),W17 FETCH NUMB OF POOLS XCOPY PINDND,W1,W1,RPOOL(PINDFR),W18 FETCH NUMB OF DESC-POOLS SUB PRECPR,PINDND GIVING NUMB OF FORMATPOOLS PERF NOPOOL SET NUMBER OF POOLS MOVE DEBIN5,W128 LINE-COUNTER:=HIGH-VALUE PR04 ADD FDVBCD(W2),=D'1' INCREMENT 'LINNO' CLEAR BOOL5 PR05 PERF DEUNPF,CURSEC,W2 UNPACK NEXT FIELD CBE DEBINW2,W1,PR48 END-OF-FORMAT FOUND TBT BOOL5,PR04 JUMP IF END OF LINE ADD BIN10,W1 NEXT FIELDNR CLEAR BOOL8 WHOLE LINE PRINT MOVE BIN16,W0 POINTER STR64A:=0 MOVE STR64A,=' ' 'SPACES' EJECT CALL EMPTYT,STATSH CHECK IF EMPTY BNOK PR10 JUMP IF EMPTY MOVE STR6A,='#L:' PROMPT-TEXT XCOPY STR64A,BIN16,W3,STR6A,W0 COPY PROMPT-TEXT ADD BIN16,W3 ADJUST POINTER FOR TEXT MOVE FMTWK(W13),BIN12 LOAD NUMB OG PICCHARS MOVE DEBIN3,W0 POINTER 'STATSH':=0 PERF EDLINE,STATSH,FMTWK,W13 EDIT STR64A CBNE DEBINW2,W0,PR50 JUMP IF NOT OK PR10 CALL EMPTYT,JOBSPC CHECK IF EMPTY BNOK PR40 JUMP IF EMPTY MOVE DEBIN3,W0 POINTER JOBSPC :=0 MOVE FBIN2,W0 MOVE FMTWK(W12),FMTWK(W1) ADD FMTWK(W12),FMTWK(W2) ADD FMTWK(W12),FMTWK(W3) PR20 MOVE STRG10A,='#V:#G:#A:' MOVE FBIN1,W0 FUNCINDEX POINTER:=0 MATCH STRG10A,FBIN1,W9,JOBSPC,DEBIN3,W3 BNOK PR40 NO MORE FUNCTIONS ADD FBIN1,W3 DIV FBIN1,W3 COMPUTE FUNC-INDEX CBE FMTWK(FBIN1),W0,PR20 JUMP IF NO GENERATION ADD FBIN2,FMTWK(FBIN1) SAVE STARTADRESS PERF EDLINE,JOBSPC,FMTWK,FBIN1 EDIT STR64A CBNE DEBINW2,W0,PR50 JUMP IF NOT OK CBE FMTWK(W12),FBIN2,PR40 MOVE DEBIN3,FBIN2 RESTORE START ADRESS B PR20 GO ON NEXT FUNCTION PR40 TBT BOOL6,PR45 JUMP IF BALANCE FORMAT PERF PRINT,W1,W2,DEBIN5,=W'44',W6,W5 CBNE DEBINW2,W0,PR50 JUMP IF NOT OK B PR05 NEXT FIELD PR45 PERF PRINT,W3,W4,DEBIN5,=W'44',W6,W5 CBE DEBINW2,W0,PR05 NEXT FIELD B PR50 JUMP IF NOT OK PR48 EDWRT DEDSPRT,FORMF MOVE DEBINW2,W0 PR50 RET PEND EJECT * * THIS ROUTINE EDITS STR64A-ITEM WITH THE VALIDATION-, GENERATION * AND ACCUMULATIO-STRINGS. IF THERE IS NOT ENOUGH SPACE TO * EDIT ONE OF THE ABOVE MENTIONED, IT WILL BE CUT AND * CONTINUED ON THE NEXT LINE * * -INPUT FORMAL PARAMETERS:WSTRG = LDES,VSTRG,GSTRG OR ASTRG * NUMB = NUMBER OF CHARACTERS IN WSTRG * WIND = INDEX ITEM CONTAINING NUMB OF C * * -INPUT VARIABLE : STR6A = PROMPT-TEXT TO CORRESPONDING S * DEBIN3 = POINTER OF WSTRG (IF OVERFLOW * * -USED VARIABLES : BIN16 = POINTER OF STR64A-ITEM * BIN15 = WORK (TO CHECK IF OVERFLOW) * * -OUTPUT VARIABLES : BIN16 = POINTER OF STR64A-ITEM (ADJUST * BOOL8 = T JUST STR64A-PART OF LINE TO * PRINTED * ************************************************************************ EDLINE PROC WSTRG,NUMB(),WIND ED05 MOVE BIN15,BIN16 LOAD POINTER POS ADD BIN15,NUMB(WIND) ADD NUMB OF CHARS CBL BIN15,W64,ED10 JUMP IF ENOUGH SPACE SUB BIN15,W64 NUMBER OF OVERFLOW CHARS SUB NUMB(WIND),BIN15 NUMB OF CHARS TO COPY XCOPY STR64A,BIN16,NUMB(WIND),WSTRG,DEBIN3 TBT BOOL6,ED07 JUMP IF BALANCEFORMAT PERF PRINT,W1,W2,DEBIN5,=W'44',W6,W5 B ED08 ED07 PERF PRINT,W3,W4,DEBIN5,=W'44',W6,W5 ED08 CBNE DEBINW2,W0,EDRET JUMP IF NOT OK ADD DEBIN3,NUMB(WIND) LOAD NUMB OF COPIED CHARS MOVE NUMB(WIND),BIN15 NUMB OF OVERFLOW CHARS MOVE BIN16,W0 POINTER STR64A:=0 MOVE STR64A,=' ' 'SPACES' SET BOOL8 INDICATE PARTIAL PRINT B ED05 ED10 XCOPY STR64A,BIN16,NUMB(WIND),WSTRG,DEBIN3 ADD BIN16,NUMB(WIND) ADD BIN16,W3 LEAVE 3 SPACES CBNG BIN16,W64,EDRET JUMP IF OK TBT BOOL6,ED20 JUMP IF BALANCE FORMAT PERF PRINT,W1,W2,DEBIN5,=W'44',W6,W5 B ED30 ED20 PERF PRINT,W3,W4,DEBIN5,=W'44',W6,W5 ED30 MOVE BIN16,W0 POINTER STR64A:=0 MOVE STR64A,=' ' 'SPACES' SET BOOL8 INDICATE PARTIAL PRINT EDRET RET PEND EJECT * * THIS ROUTINE PRINT ONE LINE ON THE LINE PRINTER. * THE FORMAT OF THE LINE IS DECIDED OF THE * PARAMETER 'LINE'. IF PAGE OVERFLOW OCCURS, * THE HEADER FORMAT WILL BE PRINTED OUT. HEADER * FORMAT IS DECIDED OF THE PARAMETER * 'HEADER'. * * INPUT PARAMETERS: HEADER = HEADER FORMAT NUMBER * LINE = LINE FORMAT NUMBER * LINNO = ACTUAL LINE NUMBER * LINMAX= MAXIMUM NUMBER OF LINES IN ONE P * LINEST = LINE START VALUE * * HLINES = NUMBER OF LINES IN HEADER * OUTPUT VARIABLE : DEBINW2= 0 OK * (= 1 CLEAR-KEY, TRY AGAIN) * = 2 CANCEL-KEY * = 3 RET-KEY * PRINT PROC HEADER,LINE,LINNO,LINMAX,LINEST,HLINES PLIT LINMAX MOVE DEBINW2,W0 CLEAR ERROR-SIGNAL EJECT CBNG LINNO,LINMAX,P30 JUMP IF LINMAX NOT REACHED P10 EDWRT DEDSPRT,FRMTAB(HEADER) PRINT HEADER BOK P20 JUMP IF OK B P35 JUMP IF CANC OR RET-KEY P20 ADD FDVBCD(W1),=D'1' INCREMENT PAGENR MOVE LINNO,LINEST REINSTATE LINENUMBER ADD LINNO,HLINES ADJUST FOR HEADLINES P30 EDWRT DEDSPRT,FRMTAB(LINE) PRINT DETAIL-LINE BOK P40 JUMP IF OK P35 MOVE DEBINW4,W32 PRINTER NOT OPERABLE ADD DEBINW4,W3 PERF DERROR,DEKTAB6 B P99 JUMP IF CANC OR RET-KEY P40 ADD LINNO,W1 INCREMENT LINE-NUMBER MOVE DEBINW2,W0 OK P99 RET PEND EJECT FRMTAB FTABLE F21HL,F21DL,F22HL,F22DL * * PRINT FORMAT , FORMAT DEFINITION * F21HL FRMT HEADER FORMAT FTEXT ' 1' FCOPY ='FORMAT' FILLR ':',1 FCOPY FORMAT FTAB 48 FTEXT 'NUMBER OF POOL-UNITS:' FMEL 'XE+XX',FDVBCD(W3) FTAB 100 FCOPY ='PAGE' FILLR ':',1 FMEL 'ZZ9',FDVBCD(W1) FEOR 1ST HEADLINE FILLR ' ',2 FEOR 2ND HEADLINE FILLR ' ',2 FCOPY ='LINE ' FCOPY ='FIELD' FILLR '-',1 FTEXT ' MAX/MIN ' FTEXT 'K M A V I DUPLIC. SPEC. ' FTEXT '#L:<' FCOPY ='FIELD' FTEXT 'LAYOUT> #V:' FCOPY ='VALIDATION ' FTEXT ' #G:' FCOPY ='GENERATION ' FTEXT ' #A:' FCOPY ='ACCUMULATION ' FEOR 3RD HEADLINE FILLR ' ',2 FTEXT ' NO NO/POS -' FCOPY ='LENGTH' FTEXT ' I E T E C -ITEM HANDL.' FEOR 4TH HEADLINE FILLR ' ',2 FEOR 5TH HEADLINE FMEND EJECT * * PRINT FORMAT, FORMAT GENERATION * F21DL FRMT DETAIL LINE FORMAT FILLR ' ',2 FBT BOOL8,F21DA FTAB 4 FMEL 'Z9',FDVBCD(W2) LINE-NR FILLR ' ',1 FMEL 'XXX',FDVBCD(W4) FIELDNR FILLR ' ',2 FMEL 'Z9',FDVBCD(W5) FIELDSTART FILLR ' ',2 FMEL 'Z9',FDVBCD(W6) MAXLENGTH FILLR ' ',2 FMEL 'Z9',FDVBCD(W7) MINLENGTH FILLR ' ',1 FCOPY FDVSTR(W1) KEYED INPUT FILLR ' ',1 FCOPY FDVSTR(W2) MUST ENTER FILLR ' ',1 FCOPY FDVSTR(W3) AUTO.TAB FILLR ' ',1 FCOPY FDVSTR(W4) VERIFY FILLR ' ',1 FCOPY FDVSTR(W5) INIT CLEAR FILLR ' ',1 FCOPY DUPL DUPL ITEM FTAB 41 FMEL 'ZZVZZZ',SPEC SPECIAL HANDLING F21DA FTAB 48 FCOPY STR64A FEOR DETAIL-LINE FMEND EJECT * * PRINT FORMAT , BALANCE FORMAT DEFINITION * F22HL FRMT HEADER FORMAT FTEXT ' 1' FCOPY ='FORMAT' FILLR ':',1 FCOPY FORMAT FTAB 40 FTEXT 'NUMBER OF POOL-UNITS:' FMEL 'XE+XX',FDVBCD(W3) FTAB 100 FCOPY ='PAGE' FILLR ':',1 FMEL 'ZZ9',FDVBCD(W1) FEOR 1ST HEADLINE FILLR ' ',2 FEOR 2ND HEADLINE FILLR ' ',2 FCOPY ='LINE ' FTEXT 'ACCUMULATOR ' FTEXT 'POSITION ' FCOPY ='LENGTH' FTAB 40 FTEXT 'SPECIAL ' FTEXT '#L:<' FCOPY ='FIELD' FTEXT 'LAYOUT> #V:' FCOPY ='VALIDATION ' FTEXT ' #G:' FCOPY ='GENERATION ' FEOR 3RD HEADLINE FILLR ' ',2 FCOPY =' NO' FTAB 11 FCOPY =' NO' FTAB 39 FTEXT 'HANDLING' FEOR 4TH HEADLINE FILLR ' ',2 FEOR 5TH HEADLINE FMEND EJECT * * PRINT FORMAT , BALANCE FORMAT DEFINITION * F22DL FRMT DETAIL-LINEFORMAT FILLR ' ',2 FBT BOOL8,F22DA FTAB 4 FMEL 'Z9',FDVBCD(W2) LINE NR FTAB 12 FMEL 'XX',FDVBCD(W8) ACCUMULATOR NO FTAB 23 FMEL 'Z9',FDVBCD(W5) POSITION FTAB 31 FMEL 'Z9',FDVBCD(W6) LENGHT FTAB 41 FMEL 'ZZVZZ9',SPEC SPECIAL HANDLING F22DA FTAB 48 FCOPY STR64A FEOR DETAIL-LINE FMEND EJECT FORMF FRMT FTEXT ' 1' FMEND END
0x0000…0028 (0, 0, 400) Head {h00=0x0024, h01=0x0050, text=» IDENT DEPRFG REL 10.0 80-04-11 «, t00=0x0000, t01=0x0004}
0x0028…0040 Head {h00=0x0014, h01=0x0050, text=» 80-03-21/JAER«, t00=0x0000, t01=0x002c}
0x0040…004a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x0044}
0x004a…0092 Head {h00=0x0044, h01=0x0050, text=»* THIS ROUTINE TAKES CARE OF PRINTOUT OF THE GENERAL USER «, t00=0x0000, t01=0x004e}
0x0092…00da Head {h00=0x0044, h01=0x003f, text=»* FORMAT DEFINITION AND OF THE BALANCE FORMAT DEFINITION. «, t00=0x0000, t01=0x0096}
0x00da…00e4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x00de}
0x00e4…0128 Head {h00=0x0040, h01=0x0050, text=»* -USED VARIABLES : PINDCB = FORMAT BUFFER INDEX«, t00=0x0000, t01=0x00e8}
0x0128…016e Head {h00=0x0042, h01=0x0050, text=»* CURSEC = FORMAT BUFFER POINTER«, t00=0x0000, t01=0x012c}
0x016e…01a4 Head {h00=0x0032, h01=0x002e, text=»* BIN10 = FIELDNR«, t00=0x0000, t01=0x0172}
0x01a4…01e6 Head {h00=0x003e, h01=0x0050, text=»* BIN16 = POINTER STR64A-ITEM«, t00=0x0001, t01=0x0018}
0x01e6…0222 Head {h00=0x0038, h01=0x0050, text=»* DEBIN5 = LINE-COUNTER «, t00=0x0001, t01=0x005a}
0x0222…026c Head {h00=0x0046, h01=0x0050, text=»* W6 = DETAILLINE STARTLINE NUMBER«, t00=0x0001, t01=0x0096}
0x026c…02a0 Head {h00=0x0030, h01=0x002b, text=»* DEBINW2= 0 OK «, t00=0x0001, t01=0x00e0}
0x02a0…02da Head {h00=0x0036, h01=0x0050, text=»* = 1 CLEAR-KEY«, t00=0x0001, t01=0x0114}
0x02da…0314 Head {h00=0x0036, h01=0x0032, text=»* = 2 CLEAR-KEY«, t00=0x0001, t01=0x014e}
0x0314…0350 Head {h00=0x0038, h01=0x0033, text=»* = 3 RETURN-KEY «, t00=0x0001, t01=0x0188}
0x0350…035a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x0034}
0x035a…03aa Head {h00=0x004c, h01=0x004b, text=»************************************************************************«, t00=0x0002, t01=0x003e}
0x03aa…03be Head {h00=0x0010, h01=0x000c, text=» DDUM DEDDIV«, t00=0x0002, t01=0x008e}
0x03be…03cc Head {h00=0x000a, h01=0x0005, text=» PDIV «, t00=0x0002, t01=0x00a2}
0x03cc…03d6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x00b0}
0x03d6…0408 Head {h00=0x002e, h01=0x0029, text=» ENTRY PRFGUF PRINT USERFORMAT DEFINITION «, t00=0x0002, t01=0x00ba}
0x0408…0412 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x00ec}
0x0412…0438 Head {h00=0x0022, h01=0x001d, text=» EXT DEUNPF UNPACK NEXT FIELD «, t00=0x0002, t01=0x00f6}
0x0438…0442 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x011c}
0x0442…046a Head {h00=0x0024, h01=0x0050, text=» EXT NOPOOL NUMBER OF USED POOLS«, t00=0x0002, t01=0x0126}
0x046a…0474 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x014e}
0x0474…049c Head {h00=0x0024, h01=0x001f, text=» EXT EMPTYT CHECK IF EMPTY ITEM «, t00=0x0002, t01=0x0158}
0x049c…04be Head {h00=0x001e, h01=0x0050, text=» EXT DERROR ERROR-MESSAGES«, t00=0x0002, t01=0x0180}
0x04be…04cc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x0012}
0x04cc…04d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0020}
0x04d6…04ee Head {h00=0x0014, h01=0x0050, text=»* KEYTABLE«, t00=0x0003, t01=0x002a}
0x04ee…04f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0042}
0x04f8…0514 Head {h00=0x0018, h01=0x0013, text=»CLR EQU X'8F' CLEAR «, t00=0x0003, t01=0x004c}
0x0514…0530 Head {h00=0x0018, h01=0x0014, text=»CAN EQU X'91' CANCEL«, t00=0x0003, t01=0x0068}
0x0530…054c Head {h00=0x0018, h01=0x0050, text=»RET EQU X'92' RETURN«, t00=0x0003, t01=0x0084}
0x054c…0556 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00a0}
0x0556…0576 Head {h00=0x001c, h01=0x0050, text=»DEKTAB6 KTAB CLR,CAN,RET«, t00=0x0003, t01=0x00aa}
0x0576…0584 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0003, t01=0x00ca}
0x0584…058e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x00d8}
0x058e…05bc Head {h00=0x002a, h01=0x0025, text=»* PRINT USER FORMAT DEFINITION «, t00=0x0003, t01=0x00e2}
0x05bc…05c6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x0110}
0x05c6…05da Head {h00=0x0010, h01=0x000b, text=»PRFGUF PROC «, t00=0x0003, t01=0x011a}
0x05da…05e6 Head {h00=0x0008, h01=0x0050, text=»PR00«, t00=0x0003, t01=0x012e}
0x05e6…060c Head {h00=0x0022, h01=0x0050, text=» EDWRT DEDSPRT,FORMF FORMFEED «, t00=0x0003, t01=0x013a}
0x060c…0628 Head {h00=0x0018, h01=0x0050, text=» BOK PR03 JUMP IF OK«, t00=0x0003, t01=0x0160}
0x0628…0642 Head {h00=0x0016, h01=0x0050, text=» MOVE DEBINW4,W32 «, t00=0x0003, t01=0x017c}
0x0642…0674 Head {h00=0x002e, h01=0x0050, text=» ADD DEBINW4,W3 LINE-PRINTER NOT OPERABLE «, t00=0x0004, t01=0x0008}
0x0674…06a0 Head {h00=0x0028, h01=0x0050, text=» PERF DERROR,DEKTAB6 ERRORMESSAGE:35«, t00=0x0004, t01=0x003a}
0x06a0…06c4 Head {h00=0x0020, h01=0x0050, text=» B PR50 CLR-,CAN- OR RET-KEY«, t00=0x0004, t01=0x0066}
0x06c4…06d0 Head {h00=0x0008, h01=0x0050, text=»PR03«, t00=0x0004, t01=0x008a}
0x06d0…06e8 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW3,W1«, t00=0x0004, t01=0x0096}
0x06e8…070a Head {h00=0x001e, h01=0x0050, text=» PRINT DEDSPRT,DEBINW3,W0 «, t00=0x0004, t01=0x00ae}
0x070a…072c Head {h00=0x001e, h01=0x0050, text=» BNOK PR00 JUMP IF NOT OK «, t00=0x0004, t01=0x00d0}
0x072c…075c Head {h00=0x002c, h01=0x0050, text=» MOVE PINDCB,FLIND(W1) LOAD BUFFERINDEX «, t00=0x0004, t01=0x00f2}
0x075c…0786 Head {h00=0x0026, h01=0x0050, text=» MOVE CURSEC,W0 LOAD BUFFERPOINTER«, t00=0x0004, t01=0x0122}
0x0786…07aa Head {h00=0x0020, h01=0x0050, text=» MOVE BIN10,W1 LOAD FIELDNR «, t00=0x0004, t01=0x014c}
0x07aa…07d0 Head {h00=0x0022, h01=0x0050, text=» MOVE FDVBCD(W2),W0 LINENO:=0 «, t00=0x0004, t01=0x0170}
0x07d0…07f6 Head {h00=0x0022, h01=0x0050, text=» MOVE FDVBCD(W1),W1 PAGENO:=0 «, t00=0x0005, t01=0x0008}
0x07f6…081e Head {h00=0x0024, h01=0x0050, text=» MOVE PINDND,W0 NUMB OF DESC:=0 «, t00=0x0005, t01=0x002e}
0x081e…0846 Head {h00=0x0024, h01=0x0050, text=» MOVE PRECPR,W0 NUMB OF POOLS:=0«, t00=0x0005, t01=0x0056}
0x0846…0888 Head {h00=0x003e, h01=0x0050, text=» XCOPY PRECPR,W1,W1,RPOOL(PINDFR),W17 FETCH NUMB OF POOLS «, t00=0x0005, t01=0x007e}
0x0888…08ce Head {h00=0x0042, h01=0x0050, text=» XCOPY PINDND,W1,W1,RPOOL(PINDFR),W18 FETCH NUMB OF DESC-POOLS«, t00=0x0005, t01=0x00c0}
0x08ce…0904 Head {h00=0x0032, h01=0x0050, text=» SUB PRECPR,PINDND GIVING NUMB OF FORMATPOOLS «, t00=0x0005, t01=0x0106}
0x0904…092c Head {h00=0x0024, h01=0x0050, text=» PERF NOPOOL SET NUMBER OF POOLS«, t00=0x0005, t01=0x013c}
0x092c…095e Head {h00=0x002e, h01=0x0050, text=» MOVE DEBIN5,W128 LINE-COUNTER:=HIGH-VALUE«, t00=0x0005, t01=0x0164}
0x095e…096a Head {h00=0x0008, h01=0x0050, text=»PR04«, t00=0x0006, t01=0x0008}
0x096a…099a Head {h00=0x002c, h01=0x0027, text=» ADD FDVBCD(W2),=D'1' INCREMENT 'LINNO' «, t00=0x0006, t01=0x0014}
0x099a…09ae Head {h00=0x0010, h01=0x0050, text=» CLEAR BOOL5«, t00=0x0006, t01=0x0044}
0x09ae…09ba Head {h00=0x0008, h01=0x0004, text=»PR05«, t00=0x0006, t01=0x0058}
0x09ba…09ea Head {h00=0x002c, h01=0x0050, text=» PERF DEUNPF,CURSEC,W2 UNPACK NEXT FIELD«, t00=0x0006, t01=0x0064}
0x09ea…0a1a Head {h00=0x002c, h01=0x0050, text=» CBE DEBINW2,W1,PR48 END-OF-FORMAT FOUND«, t00=0x0006, t01=0x0094}
0x0a1a…0a46 Head {h00=0x0028, h01=0x0050, text=» TBT BOOL5,PR04 JUMP IF END OF LINE «, t00=0x0006, t01=0x00c4}
0x0a46…0a68 Head {h00=0x001e, h01=0x0050, text=» ADD BIN10,W1 NEXT FIELDNR«, t00=0x0006, t01=0x00f0}
0x0a68…0a8e Head {h00=0x0022, h01=0x001d, text=» CLEAR BOOL8 WHOLE LINE PRINT «, t00=0x0006, t01=0x0112}
0x0a8e…0ab6 Head {h00=0x0024, h01=0x0050, text=» MOVE BIN16,W0 POINTER STR64A:=0«, t00=0x0006, t01=0x0138}
0x0ab6…0ad8 Head {h00=0x001e, h01=0x0050, text=» MOVE STR64A,=' ' 'SPACES'«, t00=0x0006, t01=0x0160}
0x0ad8…0ae6 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0006, t01=0x0182}
0x0ae6…0b10 Head {h00=0x0026, h01=0x0050, text=» CALL EMPTYT,STATSH CHECK IF EMPTY«, t00=0x0006, t01=0x0190}
0x0b10…0b30 Head {h00=0x001c, h01=0x0018, text=» BNOK PR10 JUMP IF EMPTY«, t00=0x0007, t01=0x002a}
0x0b30…0b56 Head {h00=0x0022, h01=0x0050, text=» MOVE STR6A,='#L:' PROMPT-TEXT«, t00=0x0007, t01=0x004a}
0x0b56…0b8e Head {h00=0x0034, h01=0x0050, text=» XCOPY STR64A,BIN16,W3,STR6A,W0 COPY PROMPT-TEXT«, t00=0x0007, t01=0x0070}
0x0b8e…0bbc Head {h00=0x002a, h01=0x0050, text=» ADD BIN16,W3 ADJUST POINTER FOR TEXT «, t00=0x0007, t01=0x00a8}
0x0bbc…0bf0 Head {h00=0x0030, h01=0x0050, text=» MOVE FMTWK(W13),BIN12 LOAD NUMB OG PICCHARS«, t00=0x0007, t01=0x00d6}
0x0bf0…0c1c Head {h00=0x0028, h01=0x0050, text=» MOVE DEBIN3,W0 POINTER 'STATSH':=0 «, t00=0x0007, t01=0x010a}
0x0c1c…0c4e Head {h00=0x002e, h01=0x0050, text=» PERF EDLINE,STATSH,FMTWK,W13 EDIT STR64A «, t00=0x0007, t01=0x0136}
0x0c4e…0c7a Head {h00=0x0028, h01=0x0024, text=» CBNE DEBINW2,W0,PR50 JUMP IF NOT OK«, t00=0x0007, t01=0x0168}
0x0c7a…0c86 (8, 0, 400) Head {h00=0x0008, h01=0x0004, text=»PR10«, t00=0x0008, t01=0x0004}
0x0c86…0cb0 Head {h00=0x0026, h01=0x0050, text=» CALL EMPTYT,JOBSPC CHECK IF EMPTY«, t00=0x0008, t01=0x0010}
0x0cb0…0cd0 Head {h00=0x001c, h01=0x0050, text=» BNOK PR40 JUMP IF EMPTY«, t00=0x0008, t01=0x003a}
0x0cd0…0cfa Head {h00=0x0026, h01=0x0050, text=» MOVE DEBIN3,W0 POINTER JOBSPC :=0«, t00=0x0008, t01=0x005a}
0x0cfa…0d10 Head {h00=0x0012, h01=0x0050, text=» MOVE FBIN2,W0«, t00=0x0008, t01=0x0084}
0x0d10…0d32 Head {h00=0x001e, h01=0x0050, text=» MOVE FMTWK(W12),FMTWK(W1)«, t00=0x0008, t01=0x009a}
0x0d32…0d54 Head {h00=0x001e, h01=0x0050, text=» ADD FMTWK(W12),FMTWK(W2) «, t00=0x0008, t01=0x00bc}
0x0d54…0d76 Head {h00=0x001e, h01=0x0050, text=» ADD FMTWK(W12),FMTWK(W3) «, t00=0x0008, t01=0x00de}
0x0d76…0d82 Head {h00=0x0008, h01=0x0004, text=»PR20«, t00=0x0008, t01=0x0100}
0x0d82…0da4 Head {h00=0x001e, h01=0x0050, text=» MOVE STRG10A,='#V:#G:#A:'«, t00=0x0008, t01=0x010c}
0x0da4…0dd0 Head {h00=0x0028, h01=0x0050, text=» MOVE FBIN1,W0 FUNCINDEX POINTER:=0 «, t00=0x0008, t01=0x012e}
0x0dd0…0e00 Head {h00=0x002c, h01=0x0050, text=» MATCH STRG10A,FBIN1,W9,JOBSPC,DEBIN3,W3«, t00=0x0008, t01=0x015a}
0x0e00…0e24 Head {h00=0x0020, h01=0x0050, text=» BNOK PR40 NO MORE FUNCTIONS«, t00=0x0008, t01=0x018a}
0x0e24…0e3a Head {h00=0x0012, h01=0x0050, text=» ADD FBIN1,W3 «, t00=0x0009, t01=0x001e}
0x0e3a…0e62 Head {h00=0x0024, h01=0x0050, text=» DIV FBIN1,W3 COMPUTE FUNC-INDEX«, t00=0x0009, t01=0x0034}
0x0e62…0e9a Head {h00=0x0034, h01=0x0050, text=» CBE FMTWK(FBIN1),W0,PR20 JUMP IF NO GENERATION «, t00=0x0009, t01=0x005c}
0x0e9a…0eca Head {h00=0x002c, h01=0x0050, text=» ADD FBIN2,FMTWK(FBIN1) SAVE STARTADRESS«, t00=0x0009, t01=0x0094}
0x0eca…0efe Head {h00=0x0030, h01=0x0050, text=» PERF EDLINE,JOBSPC,FMTWK,FBIN1 EDIT STR64A «, t00=0x0009, t01=0x00c4}
0x0efe…0f2a Head {h00=0x0028, h01=0x0024, text=» CBNE DEBINW2,W0,PR50 JUMP IF NOT OK«, t00=0x0009, t01=0x00f8}
0x0f2a…0f4c Head {h00=0x001e, h01=0x0050, text=» CBE FMTWK(W12),FBIN2,PR40«, t00=0x0009, t01=0x0124}
0x0f4c…0f7c Head {h00=0x002c, h01=0x0050, text=» MOVE DEBIN3,FBIN2 RESTORE START ADRESS «, t00=0x0009, t01=0x0146}
0x0f7c…0fa0 Head {h00=0x0020, h01=0x0050, text=» B PR20 GO ON NEXT FUNCTION «, t00=0x0009, t01=0x0176}
0x0fa0…0fac Head {h00=0x0008, h01=0x0004, text=»PR40«, t00=0x000a, t01=0x000a}
0x0fac…0fda Head {h00=0x002a, h01=0x0050, text=» TBT BOOL6,PR45 JUMP IF BALANCE FORMAT«, t00=0x000a, t01=0x0016}
0x0fda…1008 Head {h00=0x002a, h01=0x0050, text=» PERF PRINT,W1,W2,DEBIN5,=W'44',W6,W5 «, t00=0x000a, t01=0x0044}
0x1008…1034 Head {h00=0x0028, h01=0x0024, text=» CBNE DEBINW2,W0,PR50 JUMP IF NOT OK«, t00=0x000a, t01=0x0072}
0x1034…104e Head {h00=0x0016, h01=0x0050, text=» B PR05 NEXT FIELD«, t00=0x000a, t01=0x009e}
0x104e…105a Head {h00=0x0008, h01=0x0050, text=»PR45«, t00=0x000a, t01=0x00b8}
0x105a…1088 Head {h00=0x002a, h01=0x0050, text=» PERF PRINT,W3,W4,DEBIN5,=W'44',W6,W5 «, t00=0x000a, t01=0x00c4}
0x1088…10b0 Head {h00=0x0024, h01=0x0050, text=» CBE DEBINW2,W0,PR05 NEXT FIELD «, t00=0x000a, t01=0x00f2}
0x10b0…10ce Head {h00=0x001a, h01=0x0050, text=» B PR50 JUMP IF NOT OK«, t00=0x000a, t01=0x011a}
0x10ce…10da Head {h00=0x0008, h01=0x0050, text=»PR48«, t00=0x000a, t01=0x0138}
0x10da…10f6 Head {h00=0x0018, h01=0x0050, text=» EDWRT DEDSPRT,FORMF«, t00=0x000a, t01=0x0144}
0x10f6…110e Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW2,W0«, t00=0x000a, t01=0x0160}
0x110e…111a Head {h00=0x0008, h01=0x0050, text=»PR50«, t00=0x000a, t01=0x0178}
0x111a…1126 Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x000a, t01=0x0184}
0x1126…1134 Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x000a, t01=0x0190}
0x1134…1142 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x000b, t01=0x000e}
0x1142…114c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000b, t01=0x001c}
0x114c…119c Head {h00=0x004c, h01=0x0050, text=»* THIS ROUTINE EDITS STR64A-ITEM WITH THE VALIDATION-, GENERATION«, t00=0x000b, t01=0x0026}
0x119c…11e6 Head {h00=0x0046, h01=0x0041, text=»* AND ACCUMULATIO-STRINGS. IF THERE IS NOT ENOUGH SPACE TO «, t00=0x000b, t01=0x0076}
0x11e6…122a Head {h00=0x0040, h01=0x003c, text=»* EDIT ONE OF THE ABOVE MENTIONED, IT WILL BE CUT AND«, t00=0x000b, t01=0x00c0}
0x122a…1256 Head {h00=0x0028, h01=0x0050, text=»* CONTINUED ON THE NEXT LINE «, t00=0x000b, t01=0x0104}
0x1256…1260 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000b, t01=0x0130}
0x1260…12ac Head {h00=0x0048, h01=0x0043, text=»* -INPUT FORMAL PARAMETERS:WSTRG = LDES,VSTRG,GSTRG OR ASTRG «, t00=0x000b, t01=0x013a}
0x12ac…12fc Head {h00=0x004c, h01=0x0047, text=»* NUMB = NUMBER OF CHARACTERS IN WSTRG «, t00=0x000b, t01=0x0186}
0x12fc…134c Head {h00=0x004c, h01=0x0050, text=»* WIND = INDEX ITEM CONTAINING NUMB OF C«, t00=0x000c, t01=0x0046}
0x134c…1356 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000c, t01=0x0096}
0x1356…13a6 Head {h00=0x004c, h01=0x004b, text=»* -INPUT VARIABLE : STR6A = PROMPT-TEXT TO CORRESPONDING S«, t00=0x000c, t01=0x00a0}
0x13a6…13f6 Head {h00=0x004c, h01=0x0050, text=»* DEBIN3 = POINTER OF WSTRG (IF OVERFLOW«, t00=0x000c, t01=0x00f0}
0x13f6…1400 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000c, t01=0x0140}
0x1400…1448 Head {h00=0x0044, h01=0x0050, text=»* -USED VARIABLES : BIN16 = POINTER OF STR64A-ITEM«, t00=0x000c, t01=0x014a}
0x1448…1496 (13, 0, 398) Head {h00=0x004a, h01=0x0045, text=»* BIN15 = WORK (TO CHECK IF OVERFLOW) «, t00=0x000d, t01=0x0004}
0x1496…14a0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000d, t01=0x0052}
0x14a0…14f0 Head {h00=0x004c, h01=0x0050, text=»* -OUTPUT VARIABLES : BIN16 = POINTER OF STR64A-ITEM (ADJUST«, t00=0x000d, t01=0x005c}
0x14f0…1540 Head {h00=0x004c, h01=0x0050, text=»* BOOL8 = T JUST STR64A-PART OF LINE TO «, t00=0x000d, t01=0x00ac}
0x1540…157c Head {h00=0x0038, h01=0x0033, text=»* PRINTED «, t00=0x000d, t01=0x00fc}
0x157c…1586 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000d, t01=0x0138}
0x1586…15d6 Head {h00=0x004c, h01=0x004c, text=»************************************************************************«, t00=0x000d, t01=0x0142}
0x15d6…15fc (14, 0, 400) Head {h00=0x0022, h01=0x0050, text=»EDLINE PROC WSTRG,NUMB(),WIND «, t00=0x000e, t01=0x0004}
0x15fc…1608 Head {h00=0x0008, h01=0x0004, text=»ED05«, t00=0x000e, t01=0x002a}
0x1608…1632 Head {h00=0x0026, h01=0x0022, text=» MOVE BIN15,BIN16 LOAD POINTER POS«, t00=0x000e, t01=0x0036}
0x1632…1662 Head {h00=0x002c, h01=0x0050, text=» ADD BIN15,NUMB(WIND) ADD NUMB OF CHARS «, t00=0x000e, t01=0x0060}
0x1662…1692 Head {h00=0x002c, h01=0x0028, text=» CBL BIN15,W64,ED10 JUMP IF ENOUGH SPACE«, t00=0x000e, t01=0x0090}
0x1692…16c2 Head {h00=0x002c, h01=0x0027, text=» SUB BIN15,W64 NUMBER OF OVERFLOW CHARS «, t00=0x000e, t01=0x00c0}
0x16c2…16f6 Head {h00=0x0030, h01=0x0050, text=» SUB NUMB(WIND),BIN15 NUMB OF CHARS TO COPY «, t00=0x000e, t01=0x00f0}
0x16f6…172a Head {h00=0x0030, h01=0x0050, text=» XCOPY STR64A,BIN16,NUMB(WIND),WSTRG,DEBIN3 «, t00=0x000e, t01=0x0124}
0x172a…1758 Head {h00=0x002a, h01=0x0050, text=» TBT BOOL6,ED07 JUMP IF BALANCEFORMAT «, t00=0x000e, t01=0x0158}
0x1758…1786 Head {h00=0x002a, h01=0x0050, text=» PERF PRINT,W1,W2,DEBIN5,=W'44',W6,W5 «, t00=0x000e, t01=0x0186}
0x1786…1796 Head {h00=0x000c, h01=0x0050, text=» B ED08 «, t00=0x000f, t01=0x0024}
0x1796…17a2 Head {h00=0x0008, h01=0x0050, text=»ED07«, t00=0x000f, t01=0x0034}
0x17a2…17d0 Head {h00=0x002a, h01=0x0050, text=» PERF PRINT,W3,W4,DEBIN5,=W'44',W6,W5 «, t00=0x000f, t01=0x0040}
0x17d0…17dc Head {h00=0x0008, h01=0x0050, text=»ED08«, t00=0x000f, t01=0x006e}
0x17dc…180a Head {h00=0x002a, h01=0x0025, text=» CBNE DEBINW2,W0,EDRET JUMP IF NOT OK «, t00=0x000f, t01=0x007a}
0x180a…1842 Head {h00=0x0034, h01=0x0050, text=» ADD DEBIN3,NUMB(WIND) LOAD NUMB OF COPIED CHARS«, t00=0x000f, t01=0x00a8}
0x1842…1878 Head {h00=0x0032, h01=0x0050, text=» MOVE NUMB(WIND),BIN15 NUMB OF OVERFLOW CHARS «, t00=0x000f, t01=0x00e0}
0x1878…18a0 Head {h00=0x0024, h01=0x0050, text=» MOVE BIN16,W0 POINTER STR64A:=0«, t00=0x000f, t01=0x0116}
0x18a0…18c2 Head {h00=0x001e, h01=0x0050, text=» MOVE STR64A,=' ' 'SPACES'«, t00=0x000f, t01=0x013e}
0x18c2…18ec Head {h00=0x0026, h01=0x0021, text=» SET BOOL8 INDICATE PARTIAL PRINT «, t00=0x000f, t01=0x0160}
0x18ec…18fc Head {h00=0x000c, h01=0x0007, text=» B ED05 «, t00=0x000f, t01=0x018a}
0x18fc…1908 Head {h00=0x0008, h01=0x0004, text=»ED10«, t00=0x0010, t01=0x000a}
0x1908…193c Head {h00=0x0030, h01=0x0050, text=» XCOPY STR64A,BIN16,NUMB(WIND),WSTRG,DEBIN3 «, t00=0x0010, t01=0x0016}
0x193c…195a Head {h00=0x001a, h01=0x0050, text=» ADD BIN16,NUMB(WIND) «, t00=0x0010, t01=0x004a}
0x195a…197e Head {h00=0x0020, h01=0x0050, text=» ADD BIN16,W3 LEAVE 3 SPACES«, t00=0x0010, t01=0x0068}
0x197e…19a6 Head {h00=0x0024, h01=0x0050, text=» CBNG BIN16,W64,EDRET JUMP IF OK«, t00=0x0010, t01=0x008c}
0x19a6…19d4 Head {h00=0x002a, h01=0x0050, text=» TBT BOOL6,ED20 JUMP IF BALANCE FORMAT«, t00=0x0010, t01=0x00b4}
0x19d4…1a02 Head {h00=0x002a, h01=0x0050, text=» PERF PRINT,W1,W2,DEBIN5,=W'44',W6,W5 «, t00=0x0010, t01=0x00e2}
0x1a02…1a12 Head {h00=0x000c, h01=0x0050, text=» B ED30 «, t00=0x0010, t01=0x0110}
0x1a12…1a1e Head {h00=0x0008, h01=0x0050, text=»ED20«, t00=0x0010, t01=0x0120}
0x1a1e…1a4c Head {h00=0x002a, h01=0x0050, text=» PERF PRINT,W3,W4,DEBIN5,=W'44',W6,W5 «, t00=0x0010, t01=0x012c}
0x1a4c…1a58 Head {h00=0x0008, h01=0x0050, text=»ED30«, t00=0x0010, t01=0x015a}
0x1a58…1a80 Head {h00=0x0024, h01=0x0050, text=» MOVE BIN16,W0 POINTER STR64A:=0«, t00=0x0010, t01=0x0166}
0x1a80…1aa2 Head {h00=0x001e, h01=0x0050, text=» MOVE STR64A,=' ' 'SPACES'«, t00=0x0010, t01=0x018e}
0x1aa2…1acc Head {h00=0x0026, h01=0x0021, text=» SET BOOL8 INDICATE PARTIAL PRINT «, t00=0x0011, t01=0x0020}
0x1acc…1ada Head {h00=0x000a, h01=0x0005, text=»EDRET «, t00=0x0011, t01=0x004a}
0x1ada…1ae6 Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0011, t01=0x0058}
0x1ae6…1af4 Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0011, t01=0x0064}
0x1af4…1b02 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x0072}
0x1b02…1b0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0080}
0x1b0c…1b4c Head {h00=0x003c, h01=0x0050, text=»* THIS ROUTINE PRINT ONE LINE ON THE LINE PRINTER.«, t00=0x0011, t01=0x008a}
0x1b4c…1b84 Head {h00=0x0034, h01=0x0050, text=»* THE FORMAT OF THE LINE IS DECIDED OF THE«, t00=0x0011, t01=0x00ca}
0x1b84…1bbe Head {h00=0x0036, h01=0x0050, text=»* PARAMETER 'LINE'. IF PAGE OVERFLOW OCCURS,«, t00=0x0011, t01=0x0102}
0x1bbe…1bfc Head {h00=0x003a, h01=0x0050, text=»* THE HEADER FORMAT WILL BE PRINTED OUT. HEADER «, t00=0x0011, t01=0x013c}
0x1bfc…1c2e Head {h00=0x002e, h01=0x0050, text=»* FORMAT IS DECIDED OF THE PARAMETER«, t00=0x0011, t01=0x017a}
0x1c2e…1c48 Head {h00=0x0016, h01=0x0050, text=»* 'HEADER'. «, t00=0x0012, t01=0x001c}
0x1c48…1c52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0036}
0x1c52…1c98 Head {h00=0x0042, h01=0x0050, text=»* INPUT PARAMETERS: HEADER = HEADER FORMAT NUMBER «, t00=0x0012, t01=0x0040}
0x1c98…1cda Head {h00=0x003e, h01=0x0050, text=»* LINE = LINE FORMAT NUMBER «, t00=0x0012, t01=0x0086}
0x1cda…1d1c Head {h00=0x003e, h01=0x0050, text=»* LINNO = ACTUAL LINE NUMBER«, t00=0x0012, t01=0x00c8}
0x1d1c…1d6c Head {h00=0x004c, h01=0x0050, text=»* LINMAX= MAXIMUM NUMBER OF LINES IN ONE P «, t00=0x0012, t01=0x010a}
0x1d6c…1dac Head {h00=0x003c, h01=0x0050, text=»* LINEST = LINE START VALUE«, t00=0x0012, t01=0x015a}
0x1dac…1db6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x000a}
0x1db6…1e00 Head {h00=0x0046, h01=0x0050, text=»* HLINES = NUMBER OF LINES IN HEADER «, t00=0x0013, t01=0x0014}
0x1e00…1e36 Head {h00=0x0032, h01=0x0050, text=»* OUTPUT VARIABLE : DEBINW2= 0 OK«, t00=0x0013, t01=0x005e}
0x1e36…1e80 Head {h00=0x0046, h01=0x0050, text=»* (= 1 CLEAR-KEY, TRY AGAIN) «, t00=0x0013, t01=0x0094}
0x1e80…1ebe Head {h00=0x003a, h01=0x0050, text=»* = 2 CANCEL-KEY«, t00=0x0013, t01=0x00de}
0x1ebe…1efa Head {h00=0x0038, h01=0x0050, text=»* = 3 RET-KEY «, t00=0x0013, t01=0x011c}
0x1efa…1f04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0158}
0x1f04…1f3e Head {h00=0x0036, h01=0x0050, text=»PRINT PROC HEADER,LINE,LINNO,LINMAX,LINEST,HLINES «, t00=0x0013, t01=0x0162}
0x1f3e…1f52 Head {h00=0x0010, h01=0x0050, text=» PLIT LINMAX«, t00=0x0014, t01=0x000c}
0x1f52…1f7e Head {h00=0x0028, h01=0x0050, text=» MOVE DEBINW2,W0 CLEAR ERROR-SIGNAL «, t00=0x0014, t01=0x0020}
0x1f7e…1f8c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x004c}
0x1f8c…1fc6 Head {h00=0x0036, h01=0x0050, text=» CBNG LINNO,LINMAX,P30 JUMP IF LINMAX NOT REACHED «, t00=0x0014, t01=0x005a}
0x1fc6…1fd2 Head {h00=0x0008, h01=0x0050, text=»P10 «, t00=0x0014, t01=0x0094}
0x1fd2…2004 Head {h00=0x002e, h01=0x0050, text=» EDWRT DEDSPRT,FRMTAB(HEADER) PRINT HEADER«, t00=0x0014, t01=0x00a0}
0x2004…2020 Head {h00=0x0018, h01=0x0050, text=» BOK P20 JUMP IF OK «, t00=0x0014, t01=0x00d2}
0x2020…2046 Head {h00=0x0022, h01=0x0050, text=» B P35 JUMP IF CANC OR RET-KEY«, t00=0x0014, t01=0x00ee}
0x2046…2052 Head {h00=0x0008, h01=0x0050, text=»P20 «, t00=0x0014, t01=0x0114}
0x2052…2080 Head {h00=0x002a, h01=0x0050, text=» ADD FDVBCD(W1),=D'1' INCREMENT PAGENR«, t00=0x0014, t01=0x0120}
0x2080…20b0 Head {h00=0x002c, h01=0x0050, text=» MOVE LINNO,LINEST REINSTATE LINENUMBER «, t00=0x0014, t01=0x014e}
0x20b0…20de Head {h00=0x002a, h01=0x0050, text=» ADD LINNO,HLINES ADJUST FOR HEADLINES«, t00=0x0014, t01=0x017e}
0x20de…20ea Head {h00=0x0008, h01=0x0050, text=»P30 «, t00=0x0015, t01=0x001c}
0x20ea…2120 Head {h00=0x0032, h01=0x0050, text=» EDWRT DEDSPRT,FRMTAB(LINE) PRINT DETAIL-LINE «, t00=0x0015, t01=0x0028}
0x2120…213c Head {h00=0x0018, h01=0x0050, text=» BOK P40 JUMP IF OK «, t00=0x0015, t01=0x005e}
0x213c…2148 Head {h00=0x0008, h01=0x0050, text=»P35 «, t00=0x0015, t01=0x007a}
0x2148…2176 Head {h00=0x002a, h01=0x0050, text=» MOVE DEBINW4,W32 PRINTER NOT OPERABLE«, t00=0x0015, t01=0x0086}
0x2176…218e Head {h00=0x0014, h01=0x0050, text=» ADD DEBINW4,W3 «, t00=0x0015, t01=0x00b4}
0x218e…21aa Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTAB6«, t00=0x0015, t01=0x00cc}
0x21aa…21d0 Head {h00=0x0022, h01=0x0050, text=» B P99 JUMP IF CANC OR RET-KEY«, t00=0x0015, t01=0x00e8}
0x21d0…21dc Head {h00=0x0008, h01=0x0050, text=»P40 «, t00=0x0015, t01=0x010e}
0x21dc…2208 Head {h00=0x0028, h01=0x0050, text=» ADD LINNO,W1 INCREMENT LINE-NUMBER «, t00=0x0015, t01=0x011a}
0x2208…2224 Head {h00=0x0018, h01=0x0050, text=» MOVE DEBINW2,W0 OK «, t00=0x0015, t01=0x0146}
0x2224…2230 Head {h00=0x0008, h01=0x0050, text=»P99 «, t00=0x0015, t01=0x0162}
0x2230…223c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0015, t01=0x016e}
0x223c…224a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0015, t01=0x017a}
0x224a…2258 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x0188}
0x2258…2286 Head {h00=0x002a, h01=0x0050, text=»FRMTAB FTABLE F21HL,F21DL,F22HL,F22DL «, t00=0x0016, t01=0x0008}
0x2286…2290 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0036}
0x2290…22c0 Head {h00=0x002c, h01=0x0050, text=»* PRINT FORMAT , FORMAT DEFINITION«, t00=0x0016, t01=0x0040}
0x22c0…22ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0070}
0x22ca…22ec Head {h00=0x001e, h01=0x0050, text=»F21HL FRMT HEADER FORMAT «, t00=0x0016, t01=0x007a}
0x22ec…2300 Head {h00=0x0010, h01=0x0050, text=» FTEXT ' 1' «, t00=0x0016, t01=0x009c}
0x2300…2318 Head {h00=0x0014, h01=0x0050, text=» FCOPY ='FORMAT'«, t00=0x0016, t01=0x00b0}
0x2318…232c Head {h00=0x0010, h01=0x0050, text=» FILLR ':',1«, t00=0x0016, t01=0x00c8}
0x232c…2342 Head {h00=0x0012, h01=0x0050, text=» FCOPY FORMAT «, t00=0x0016, t01=0x00dc}
0x2342…2352 Head {h00=0x000c, h01=0x0050, text=» FTAB 48«, t00=0x0016, t01=0x00f2}
0x2352…2378 Head {h00=0x0022, h01=0x0050, text=» FTEXT 'NUMBER OF POOL-UNITS:'«, t00=0x0016, t01=0x0102}
0x2378…2398 Head {h00=0x001c, h01=0x0050, text=» FMEL 'XE+XX',FDVBCD(W3)«, t00=0x0016, t01=0x0128}
0x2398…23aa Head {h00=0x000e, h01=0x0050, text=» FTAB 100 «, t00=0x0016, t01=0x0148}
0x23aa…23c0 Head {h00=0x0012, h01=0x0050, text=» FCOPY ='PAGE'«, t00=0x0016, t01=0x015a}
0x23c0…23d4 Head {h00=0x0010, h01=0x0050, text=» FILLR ':',1«, t00=0x0016, t01=0x0170}
0x23d4…23f2 Head {h00=0x001a, h01=0x0050, text=» FMEL 'ZZ9',FDVBCD(W1)«, t00=0x0016, t01=0x0184}
0x23f2…240e Head {h00=0x0018, h01=0x0050, text=» FEOR 1ST HEADLINE «, t00=0x0017, t01=0x0012}
0x240e…2422 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0017, t01=0x002e}
0x2422…243e Head {h00=0x0018, h01=0x0050, text=» FEOR 2ND HEADLINE «, t00=0x0017, t01=0x0042}
0x243e…2452 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0017, t01=0x005e}
0x2452…246a Head {h00=0x0014, h01=0x0050, text=» FCOPY ='LINE ' «, t00=0x0017, t01=0x0072}
0x246a…2482 Head {h00=0x0014, h01=0x0050, text=» FCOPY ='FIELD' «, t00=0x0017, t01=0x008a}
0x2482…2496 Head {h00=0x0010, h01=0x0050, text=» FILLR '-',1«, t00=0x0017, t01=0x00a2}
0x2496…24b0 Head {h00=0x0016, h01=0x0050, text=» FTEXT ' MAX/MIN '«, t00=0x0017, t01=0x00b6}
0x24b0…24da Head {h00=0x0026, h01=0x0050, text=» FTEXT 'K M A V I DUPLIC. SPEC. '«, t00=0x0017, t01=0x00d0}
0x24da…24f0 Head {h00=0x0012, h01=0x0050, text=» FTEXT '#L:<' «, t00=0x0017, t01=0x00fa}
0x24f0…2508 Head {h00=0x0014, h01=0x0050, text=» FCOPY ='FIELD' «, t00=0x0017, t01=0x0110}
0x2508…2524 Head {h00=0x0018, h01=0x0050, text=» FTEXT 'LAYOUT> #V:'«, t00=0x0017, t01=0x0128}
0x2524…2542 Head {h00=0x001a, h01=0x0050, text=» FCOPY ='VALIDATION ' «, t00=0x0017, t01=0x0144}
0x2542…2558 Head {h00=0x0012, h01=0x0050, text=» FTEXT ' #G:' «, t00=0x0017, t01=0x0162}
0x2558…2576 Head {h00=0x001a, h01=0x0050, text=» FCOPY ='GENERATION ' «, t00=0x0017, t01=0x0178}
0x2576…258c Head {h00=0x0012, h01=0x0050, text=» FTEXT ' #A:' «, t00=0x0018, t01=0x0008}
0x258c…25ac Head {h00=0x001c, h01=0x0050, text=» FCOPY ='ACCUMULATION ' «, t00=0x0018, t01=0x001e}
0x25ac…25c8 Head {h00=0x0018, h01=0x0050, text=» FEOR 3RD HEADLINE «, t00=0x0018, t01=0x003e}
0x25c8…25dc Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0018, t01=0x005a}
0x25dc…25fa Head {h00=0x001a, h01=0x0050, text=» FTEXT ' NO NO/POS -'«, t00=0x0018, t01=0x006e}
0x25fa…2612 Head {h00=0x0014, h01=0x0050, text=» FCOPY ='LENGTH'«, t00=0x0018, t01=0x008c}
0x2612…263c Head {h00=0x0026, h01=0x0050, text=» FTEXT ' I E T E C -ITEM HANDL.'«, t00=0x0018, t01=0x00a4}
0x263c…2658 Head {h00=0x0018, h01=0x0050, text=» FEOR 4TH HEADLINE «, t00=0x0018, t01=0x00ce}
0x2658…266c Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0018, t01=0x00ea}
0x266c…2688 Head {h00=0x0018, h01=0x0050, text=» FEOR 5TH HEADLINE «, t00=0x0018, t01=0x00fe}
0x2688…2696 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0018, t01=0x011a}
0x2696…26a4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x0128}
0x26a4…26ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0136}
0x26ae…26de Head {h00=0x002c, h01=0x0050, text=»* PRINT FORMAT, FORMAT GENERATION «, t00=0x0018, t01=0x0140}
0x26de…26e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0170}
0x26e8…270e Head {h00=0x0022, h01=0x0050, text=»F21DL FRMT DETAIL LINE FORMAT«, t00=0x0018, t01=0x017a}
0x270e…2722 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0019, t01=0x0010}
0x2722…273a Head {h00=0x0014, h01=0x0050, text=» FBT BOOL8,F21DA«, t00=0x0019, t01=0x0024}
0x273a…274a Head {h00=0x000c, h01=0x0050, text=» FTAB 4 «, t00=0x0019, t01=0x003c}
0x274a…2770 Head {h00=0x0022, h01=0x0050, text=» FMEL 'Z9',FDVBCD(W2) LINE-NR «, t00=0x0019, t01=0x004c}
0x2770…2784 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x0019, t01=0x0072}
0x2784…27aa Head {h00=0x0022, h01=0x0050, text=» FMEL 'XXX',FDVBCD(W4) FIELDNR«, t00=0x0019, t01=0x0086}
0x27aa…27be Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0019, t01=0x00ac}
0x27be…27e6 Head {h00=0x0024, h01=0x0050, text=» FMEL 'Z9',FDVBCD(W5) FIELDSTART«, t00=0x0019, t01=0x00c0}
0x27e6…27fa Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0019, t01=0x00e8}
0x27fa…2822 Head {h00=0x0024, h01=0x0050, text=» FMEL 'Z9',FDVBCD(W6) MAXLENGTH «, t00=0x0019, t01=0x00fc}
0x2822…2836 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0019, t01=0x0124}
0x2836…285e Head {h00=0x0024, h01=0x0050, text=» FMEL 'Z9',FDVBCD(W7) MINLENGTH «, t00=0x0019, t01=0x0138}
0x285e…2872 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x0019, t01=0x0160}
0x2872…2898 Head {h00=0x0022, h01=0x0050, text=» FCOPY FDVSTR(W1) KEYED INPUT «, t00=0x0019, t01=0x0174}
0x2898…28ac Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x001a, t01=0x000a}
0x28ac…28d0 Head {h00=0x0020, h01=0x0050, text=» FCOPY FDVSTR(W2) MUST ENTER«, t00=0x001a, t01=0x001e}
0x28d0…28e4 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x001a, t01=0x0042}
0x28e4…2906 Head {h00=0x001e, h01=0x0050, text=» FCOPY FDVSTR(W3) AUTO.TAB«, t00=0x001a, t01=0x0056}
0x2906…291a Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x001a, t01=0x0078}
0x291a…293a Head {h00=0x001c, h01=0x0050, text=» FCOPY FDVSTR(W4) VERIFY«, t00=0x001a, t01=0x008c}
0x293a…294e Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x001a, t01=0x00ac}
0x294e…2972 Head {h00=0x0020, h01=0x0050, text=» FCOPY FDVSTR(W5) INIT CLEAR«, t00=0x001a, t01=0x00c0}
0x2972…2986 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',1«, t00=0x001a, t01=0x00e4}
0x2986…29a4 Head {h00=0x001a, h01=0x0050, text=» FCOPY DUPL DUPL ITEM «, t00=0x001a, t01=0x00f8}
0x29a4…29b4 Head {h00=0x000c, h01=0x0050, text=» FTAB 41«, t00=0x001a, t01=0x0116}
0x29b4…29e0 Head {h00=0x0028, h01=0x0050, text=» FMEL 'ZZVZZZ',SPEC SPECIAL HANDLING«, t00=0x001a, t01=0x0126}
0x29e0…29ee Head {h00=0x000a, h01=0x0050, text=»F21DA «, t00=0x001a, t01=0x0152}
0x29ee…29fe Head {h00=0x000c, h01=0x0050, text=» FTAB 48«, t00=0x001a, t01=0x0160}
0x29fe…2a14 Head {h00=0x0012, h01=0x0050, text=» FCOPY STR64A «, t00=0x001a, t01=0x0170}
0x2a14…2a2e Head {h00=0x0016, h01=0x0050, text=» FEOR DETAIL-LINE«, t00=0x001a, t01=0x0186}
0x2a2e…2a3c Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x001b, t01=0x0010}
0x2a3c…2a4a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x001e}
0x2a4a…2a54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x002c}
0x2a54…2a8c Head {h00=0x0034, h01=0x0050, text=»* PRINT FORMAT , BALANCE FORMAT DEFINITION«, t00=0x001b, t01=0x0036}
0x2a8c…2a96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x006e}
0x2a96…2ab8 Head {h00=0x001e, h01=0x0050, text=»F22HL FRMT HEADER FORMAT «, t00=0x001b, t01=0x0078}
0x2ab8…2acc Head {h00=0x0010, h01=0x0050, text=» FTEXT ' 1' «, t00=0x001b, t01=0x009a}
0x2acc…2ae4 Head {h00=0x0014, h01=0x0050, text=» FCOPY ='FORMAT'«, t00=0x001b, t01=0x00ae}
0x2ae4…2af8 Head {h00=0x0010, h01=0x0050, text=» FILLR ':',1«, t00=0x001b, t01=0x00c6}
0x2af8…2b0e Head {h00=0x0012, h01=0x0050, text=» FCOPY FORMAT «, t00=0x001b, t01=0x00da}
0x2b0e…2b1e Head {h00=0x000c, h01=0x0050, text=» FTAB 40«, t00=0x001b, t01=0x00f0}
0x2b1e…2b44 Head {h00=0x0022, h01=0x0050, text=» FTEXT 'NUMBER OF POOL-UNITS:'«, t00=0x001b, t01=0x0100}
0x2b44…2b64 Head {h00=0x001c, h01=0x0050, text=» FMEL 'XE+XX',FDVBCD(W3)«, t00=0x001b, t01=0x0126}
0x2b64…2b76 Head {h00=0x000e, h01=0x0050, text=» FTAB 100 «, t00=0x001b, t01=0x0146}
0x2b76…2b8c Head {h00=0x0012, h01=0x0050, text=» FCOPY ='PAGE'«, t00=0x001b, t01=0x0158}
0x2b8c…2ba0 Head {h00=0x0010, h01=0x0050, text=» FILLR ':',1«, t00=0x001b, t01=0x016e}
0x2ba0…2bbe Head {h00=0x001a, h01=0x0050, text=» FMEL 'ZZ9',FDVBCD(W1)«, t00=0x001b, t01=0x0182}
0x2bbe…2bda Head {h00=0x0018, h01=0x0050, text=» FEOR 1ST HEADLINE «, t00=0x001c, t01=0x0010}
0x2bda…2bee Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x001c, t01=0x002c}
0x2bee…2c0a Head {h00=0x0018, h01=0x0050, text=» FEOR 2ND HEADLINE «, t00=0x001c, t01=0x0040}
0x2c0a…2c1e Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x001c, t01=0x005c}
0x2c1e…2c36 Head {h00=0x0014, h01=0x0050, text=» FCOPY ='LINE ' «, t00=0x001c, t01=0x0070}
0x2c36…2c54 Head {h00=0x001a, h01=0x0050, text=» FTEXT 'ACCUMULATOR ' «, t00=0x001c, t01=0x0088}
0x2c54…2c6e Head {h00=0x0016, h01=0x0050, text=» FTEXT 'POSITION '«, t00=0x001c, t01=0x00a6}
0x2c6e…2c86 Head {h00=0x0014, h01=0x0050, text=» FCOPY ='LENGTH'«, t00=0x001c, t01=0x00c0}
0x2c86…2c96 Head {h00=0x000c, h01=0x0050, text=» FTAB 40«, t00=0x001c, t01=0x00d8}
0x2c96…2cb0 Head {h00=0x0016, h01=0x0050, text=» FTEXT 'SPECIAL ' «, t00=0x001c, t01=0x00e8}
0x2cb0…2cc6 Head {h00=0x0012, h01=0x0050, text=» FTEXT '#L:<' «, t00=0x001c, t01=0x0102}
0x2cc6…2cde Head {h00=0x0014, h01=0x0050, text=» FCOPY ='FIELD' «, t00=0x001c, t01=0x0118}
0x2cde…2cfa Head {h00=0x0018, h01=0x0050, text=» FTEXT 'LAYOUT> #V:'«, t00=0x001c, t01=0x0130}
0x2cfa…2d18 Head {h00=0x001a, h01=0x0050, text=» FCOPY ='VALIDATION ' «, t00=0x001c, t01=0x014c}
0x2d18…2d2e Head {h00=0x0012, h01=0x0050, text=» FTEXT ' #G:' «, t00=0x001c, t01=0x016a}
0x2d2e…2d4c Head {h00=0x001a, h01=0x0050, text=» FCOPY ='GENERATION ' «, t00=0x001c, t01=0x0180}
0x2d4c…2d68 Head {h00=0x0018, h01=0x0050, text=» FEOR 3RD HEADLINE «, t00=0x001d, t01=0x000e}
0x2d68…2d7c Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x001d, t01=0x002a}
0x2d7c…2d92 Head {h00=0x0012, h01=0x0050, text=» FCOPY =' NO' «, t00=0x001d, t01=0x003e}
0x2d92…2da2 Head {h00=0x000c, h01=0x0050, text=» FTAB 11«, t00=0x001d, t01=0x0054}
0x2da2…2db8 Head {h00=0x0012, h01=0x0050, text=» FCOPY =' NO' «, t00=0x001d, t01=0x0064}
0x2db8…2dc8 Head {h00=0x000c, h01=0x0050, text=» FTAB 39«, t00=0x001d, t01=0x007a}
0x2dc8…2de2 Head {h00=0x0016, h01=0x0050, text=» FTEXT 'HANDLING' «, t00=0x001d, t01=0x008a}
0x2de2…2dfe Head {h00=0x0018, h01=0x0050, text=» FEOR 4TH HEADLINE «, t00=0x001d, t01=0x00a4}
0x2dfe…2e12 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x001d, t01=0x00c0}
0x2e12…2e2e Head {h00=0x0018, h01=0x0050, text=» FEOR 5TH HEADLINE «, t00=0x001d, t01=0x00d4}
0x2e2e…2e3c Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x001d, t01=0x00f0}
0x2e3c…2e4a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x00fe}
0x2e4a…2e54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x010c}
0x2e54…2e8c Head {h00=0x0034, h01=0x0050, text=»* PRINT FORMAT , BALANCE FORMAT DEFINITION«, t00=0x001d, t01=0x0116}
0x2e8c…2e96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x014e}
0x2e96…2ebc Head {h00=0x0022, h01=0x0050, text=»F22DL FRMT DETAIL-LINEFORMAT «, t00=0x001d, t01=0x0158}
0x2ebc…2ed0 Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x001d, t01=0x017e}
0x2ed0…2ee8 (30, 0, 400) Head {h00=0x0014, h01=0x0050, text=» FBT BOOL8,F22DA«, t00=0x001e, t01=0x0004}
0x2ee8…2ef8 Head {h00=0x000c, h01=0x0050, text=» FTAB 4 «, t00=0x001e, t01=0x001c}
0x2ef8…2f1e Head {h00=0x0022, h01=0x0050, text=» FMEL 'Z9',FDVBCD(W2) LINE NR «, t00=0x001e, t01=0x002c}
0x2f1e…2f2e Head {h00=0x000c, h01=0x0050, text=» FTAB 12«, t00=0x001e, t01=0x0052}
0x2f2e…2f5a Head {h00=0x0028, h01=0x0050, text=» FMEL 'XX',FDVBCD(W8) ACCUMULATOR NO«, t00=0x001e, t01=0x0062}
0x2f5a…2f6a Head {h00=0x000c, h01=0x0050, text=» FTAB 23«, t00=0x001e, t01=0x008e}
0x2f6a…2f90 Head {h00=0x0022, h01=0x0050, text=» FMEL 'Z9',FDVBCD(W5) POSITION«, t00=0x001e, t01=0x009e}
0x2f90…2fa0 Head {h00=0x000c, h01=0x0050, text=» FTAB 31«, t00=0x001e, t01=0x00c4}
0x2fa0…2fc4 Head {h00=0x0020, h01=0x0050, text=» FMEL 'Z9',FDVBCD(W6) LENGHT«, t00=0x001e, t01=0x00d4}
0x2fc4…2fd4 Head {h00=0x000c, h01=0x0050, text=» FTAB 41«, t00=0x001e, t01=0x00f8}
0x2fd4…3000 Head {h00=0x0028, h01=0x0050, text=» FMEL 'ZZVZZ9',SPEC SPECIAL HANDLING«, t00=0x001e, t01=0x0108}
0x3000…300e Head {h00=0x000a, h01=0x0050, text=»F22DA «, t00=0x001e, t01=0x0134}
0x300e…301e Head {h00=0x000c, h01=0x0050, text=» FTAB 48«, t00=0x001e, t01=0x0142}
0x301e…3034 Head {h00=0x0012, h01=0x0050, text=» FCOPY STR64A «, t00=0x001e, t01=0x0152}
0x3034…304e Head {h00=0x0016, h01=0x0050, text=» FEOR DETAIL-LINE«, t00=0x001e, t01=0x0168}
0x304e…305c Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x001e, t01=0x0182}
0x305c…306a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x0190}
0x306a…307c Head {h00=0x000e, h01=0x0050, text=»FORMF FRMT«, t00=0x001f, t01=0x000e}
0x307c…3090 Head {h00=0x0010, h01=0x0050, text=» FTEXT ' 1' «, t00=0x001f, t01=0x0020}
0x3090…309e Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x001f, t01=0x0034}
0x309e…30aa Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x001f, t01=0x0042}
0x30aa…30ae Head {h00=0x4004, h01=0x0000}
0x30ae…30b2 00 1f 00 4e ┆ N┆
0x30b2…30ba (32, 1, 8) 20 04 00 00 00 20 00 04 ┆ ┆
0x30ba…30c2 (33, 1, 8) 20 04 00 00 00 01 00 04 ┆ ┆
0x30c2…3112 (34, 0, 400) 4e 32 2c 42 49 4e 31 20 53 41 56 45 20 4b 45 59 45 44 20 49 4e 50 55 54 00 09 01 88 00 10 00 50 20 44 49 56 20 42 49 4e 31 2c 57 38 00 0a 00 20 00 2e 00 50 20 58 43 4f 50 59 20 44 45 42 49 4e 57 34 2c 57 30 2c 57 32 2c 50 52 4f 47 4e 52 2c ┆N2,BIN1 SAVE KEYED INPUT P DIV BIN1,W8 . P XCOPY DEBINW4,W0,W2,PROGNR,┆
0x3112…3162 42 49 4e 31 20 50 52 4f 47 52 41 4d 4e 52 00 0a 00 34 00 10 00 50 20 4d 55 4c 20 42 49 4e 31 2c 57 38 00 0a 00 66 00 12 00 50 20 53 55 42 20 42 49 4e 32 2c 42 49 4e 31 00 0a 00 7a 00 2e 00 50 20 43 41 4c 4c 20 54 45 53 54 42 2c 44 45 42 49 ┆BIN1 PROGRAMNR 4 P MUL BIN1,W8 f P SUB BIN2,BIN1 z . P CALL TESTB,DEBI┆
0x3162…31b2 4e 57 34 2c 42 49 4e 32 20 4c 4f 4f 4b 20 49 46 20 45 58 49 53 54 49 4e 47 20 00 0a 00 90 00 1c 00 50 20 42 5a 20 44 45 41 50 52 45 52 52 20 4a 55 4d 50 20 49 46 20 4e 4f 54 00 0a 00 c2 00 12 00 50 20 4d 4f 56 45 20 42 49 4e 31 2c 57 30 20 ┆NW4,BIN2 LOOK IF EXISTING P BZ DEAPRERR JUMP IF NOT P MOVE BIN1,W0 ┆
0x31b2…3202 00 0a 00 e2 00 26 00 50 20 43 41 4c 4c 20 55 50 44 42 4f 4c 2c 42 49 4e 31 20 43 4c 45 41 52 20 41 4c 4c 20 42 4f 4f 4c 53 20 00 0a 00 f8 00 16 00 50 20 4d 4f 56 45 20 42 43 44 32 41 2c 42 43 44 31 33 41 00 0a 01 22 00 14 00 50 20 4d 4f 56 ┆ & P CALL UPDBOL,BIN1 CLEAR ALL BOOLS P MOVE BCD2A,BCD13A " P MOV┆
0x3202…3252 45 20 42 49 4e 32 2c 42 43 44 32 41 00 0a 01 3c 00 14 00 50 20 4d 4f 56 45 20 42 43 44 33 41 2c 57 31 30 20 00 0a 01 54 00 16 00 50 20 44 49 56 20 42 43 44 31 33 41 2c 42 43 44 33 41 20 00 0a 01 6c 00 16 00 50 20 4d 4f 56 45 20 42 49 4e 31 ┆E BIN2,BCD2A < P MOVE BCD3A,W10 T P DIV BCD13A,BCD3A l P MOVE BIN1┆
0x3252…32a2 (35, 0, 400) 2c 42 43 44 31 33 41 20 00 0a 01 86 00 10 00 50 20 50 45 52 46 20 44 45 50 4d 53 4b 00 0b 00 10 00 0c 00 50 44 45 41 45 4e 4b 45 59 00 0b 00 24 00 14 00 50 20 4d 4f 56 45 20 44 45 42 49 4e 57 33 2c 57 30 00 0b 00 34 00 16 00 50 20 4d 4f 56 ┆,BCD13A P PERF DEPMSK PDEAENKEY $ P MOVE DEBINW3,W0 4 P MOV┆
0x32a2…32f2 45 20 44 45 42 49 4e 57 32 2c 57 31 37 20 00 0b 00 4c 00 0e 00 50 20 42 20 44 45 41 4f 4b 30 20 00 0b 00 66 00 0c 00 50 44 45 41 50 52 45 52 52 00 0b 00 78 00 14 00 50 20 4d 4f 56 45 20 44 45 42 49 4e 57 34 2c 57 37 00 0b 00 88 00 0e 00 50 ┆E DEBINW2,W17 L P B DEAOK0 f PDEAPRERR x P MOVE DEBINW4,W7 P┆
0x32f2…3342 20 42 20 44 45 41 4e 4f 4b 20 00 0b 00 a0 00 06 00 50 2a 20 00 0b 00 b2 00 06 00 50 2a 20 00 0b 00 bc 00 24 00 50 5c 41 54 54 46 4d 54 5c 46 4f 52 4d 4e 5c 44 55 4d 4d 59 20 49 4e 53 54 52 55 43 54 49 4f 4e 20 00 0b 00 c6 00 1c 00 50 5c 41 ┆ B DEANOK P* P* $ P ATTFMT FORMN DUMMY INSTRUCTION P A┆
0x3342…3392 54 54 46 4d 54 5c 46 4f 52 4d 41 5c 20 20 20 20 2d 20 22 20 2d 20 00 0b 00 ee 00 10 00 50 20 41 54 54 46 4d 54 20 56 53 45 54 00 0b 01 0e 00 0a 00 50 20 45 4a 45 43 54 00 0b 01 22 00 0c 00 50 44 45 55 4e 45 4e 54 20 00 0b 01 30 00 16 00 50 ┆TTFMT FORMA - " - P ATTFMT VSET P EJECT " PDEUNENT 0 P┆
0x3392…33e2 5c 4d 4f 56 45 5c 44 45 42 49 4e 57 32 2c 57 31 37 20 00 0b 01 40 00 0c 00 50 44 45 41 55 4e 49 54 20 00 0b 01 5a 00 2a 00 50 20 4d 4f 56 45 20 42 43 44 32 41 2c 44 45 49 4e 50 55 54 20 43 48 45 43 4b 20 49 46 20 53 50 45 43 49 46 49 45 44 ┆ MOVE DEBINW2,W17 @ PDEAUNIT Z * P MOVE BCD2A,DEINPUT CHECK IF SPECIFIED┆
0x33e2…3432 (36, 0, 398) 00 0b 01 6a 00 26 00 50 20 4d 4f 56 45 20 44 45 42 49 4e 57 34 2c 42 43 44 32 41 20 55 4e 49 54 20 4e 55 4d 42 45 52 20 49 53 00 0c 00 08 00 1a 00 50 20 43 42 47 20 44 45 42 49 4e 57 34 2c 57 38 2c 44 45 41 55 4e 32 00 0c 00 32 00 1a 00 50 ┆ j & P MOVE DEBINW4,BCD2A UNIT NUMBER IS P CBG DEBINW4,W8,DEAUN2 2 P┆
0x3432…3482 20 43 42 45 20 44 45 42 49 4e 57 34 2c 57 30 2c 44 45 41 55 4e 32 00 0c 00 50 00 1a 00 50 20 4d 4f 56 45 20 46 49 4c 49 4e 44 55 53 2c 44 45 42 49 4e 57 34 00 0c 00 6e 00 14 00 50 20 41 44 44 20 46 49 4c 49 4e 44 55 53 2c 57 31 00 0c 00 8c ┆ CBE DEBINW4,W0,DEAUN2 P P MOVE FILINDUS,DEBINW4 n P ADD FILINDUS,W1 ┆
0x3482…34d2 00 18 00 50 20 41 44 44 20 44 45 42 49 4e 57 34 2c 3d 58 27 44 30 27 20 00 0c 00 a4 00 32 00 50 20 4d 4f 56 45 20 46 49 4c 45 43 4f 44 45 28 46 49 4c 49 4e 44 55 53 29 2c 44 45 42 49 4e 57 34 20 53 41 56 45 20 46 49 4c 45 43 4f 44 45 00 0c ┆ P ADD DEBINW4,=X'D0' 2 P MOVE FILECODE(FILINDUS),DEBINW4 SAVE FILECODE ┆
0x34d2…3522 00 c0 00 1e 00 50 20 43 42 47 20 44 45 42 49 4e 57 34 2c 3d 58 27 44 34 27 2c 44 45 41 55 4e 31 00 0c 00 f6 00 2c 00 50 20 41 44 44 20 44 45 42 49 4e 57 34 2c 3d 58 27 31 46 27 20 41 44 4a 55 53 54 20 46 4f 52 20 46 49 58 20 44 49 53 43 20 ┆ P CBG DEBINW4,=X'D4',DEAUN1 , P ADD DEBINW4,=X'1F' ADJUST FOR FIX DISC ┆
0x3522…3570 00 0c 01 18 00 0e 00 50 20 42 20 44 45 41 55 4e 33 20 00 0c 01 48 00 0a 00 50 44 45 41 55 4e 31 00 0c 01 5a 00 2a 00 50 20 41 44 44 20 44 45 42 49 4e 57 34 2c 3d 58 27 32 33 27 20 41 44 4a 55 53 54 20 46 4f 52 20 46 4c 4f 50 50 59 20 ┆ P B DEAUN3 H PDEAUN1 Z * P ADD DEBINW4,=X'23' ADJUST FOR FLOPPY ┆