|
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: 30228 (0x7614)
Notes: pts_type(SC)
Names: »WSMAPP.SC«
└─⟦f45ea3bc3⟧ Bits:30009713 Philips computer tape "WSM"
└─⟦this⟧ »WSM:CREA/WSMAPP.SC«
IDENT WSMAPP REL=2.3,851025,870155940230 ******************************************************************* * * LATEST UPDATE=851025 BY CJ * * HISTORY= * 851025/CJ SECTION NAME CHECK CORRECTED - APP26 * 850508/JE FIELD-ID INPUT NO CHCK OF FUNCTION WHEN # 3 NO=18 * 850313/JE INDICATE 'NO INPUT' WHEN EQUAL FID ENTERED NO=18 * 841120/CJ MUL&DIV NOW FROM ASS.ROUTINE * 841101/CJ APP NO28 IMPLEMENTED - USED BY "GO DIRECT" * 840924/CJ ILLEGAL NAMESETTING NEAR BASICVERB APP185 * ******************************************************************* DDUM WSMDDV PDIV ENTRY WSMAPP EXPROC SYNVAL ***SYNTAX-CONTROL VALIDATION EXPROC BSVSEA,PBIN,PBIN ***BASIC VERB SEARCH EXT GETIND ---ASSRUT:GET ITEM LENGTH EXT CHANFC ---ASSRUT:CHANGE FILE CODE EXT GETVOL ---ASSRUT:GET VOLUME NAME EXT EMPTYT ---ASSRUT:CECK IF EMPTY EXT ICLEAR ---ASSRUT:CLEAR ITEM EXT TESTB ---ASSRUT:TEST BIT POSITION EXT CLEARB ---ASSRUT:CLEAR BIT POSITION EXT POPEN ---ASSRUT:OPEN DISC FILE EXT PCLOSE ---ASSRUT:CLOSE DISC FILE EXT PSEARC ---ASSRUT:SEARCH SECTION NAME EXT WXDIV ---ASSRUT:DIVISION EJECT ************************************************************************ * * APPLICATION HANDLING MODULE * PERFORMS CORRESPONDING APPLICATION- * ROUTINE DEPENDING ON ROUTINE-NUMBER * * INPUT: LBIN1 = NUMBER OF INPUT CHARACTERS * LBIN2 = EOI-KEY INDEX * LBIN3 = APPLICATION ROUTINE NUMBER * * OUTPUT:LBIN1 = CURSOR-POSITION AT 'NOT OK' (4) * LBIN2 = EOI-KEY INDEX * LBIN3 = 0 = OK 'REWRITE' DISPLAY * = 1 = OK UNCONDITIONAL DISPLAY * = 2 = OK NO DISPLAY * = 3 = NOT OK => ERROR MESSAGE * = 4 = NOT OK => EDIT MODE 'LBIN1' CONTAIN CURSOR-POS * * LBIN4 = 0 'BELL'-MESSAGE AT ERROR * > 0 ERROR MESSAGE-NUMBER AT ERROR * ************************************************************************ EJECT WSMAPP PROC IB LBIN3,APP010,APP020, 1-2 C APP030,APP040,APP050, 3-5 C APP060,APP070,APP080, 6-8 C APP090,APP100,APP110, 9-11 C APP120,APP130,APP140, 12-14 C APP150,APP160,APP170, 15-17 C APP180,APP190,APP200, 18-20 C APP210,APP220,APP230, 21-23 C APP240,APP250,APP260, 24-26 C APP270,APP280 27-28 APPOK0 MOVE LBIN3,W0 OK RET APPOK1 MOVE LBIN3,W1 OK UNCOND DISPLAY RET APPOK2 MOVE LBIN3,W2 OK NO DISPLAY RET APNOK3 MOVE LBIN3,W3 NOT OK ERROR MESSAGE RET APNOK4 MOVE LBIN3,W4 NOT OK EDIT-MODE RET EJECT ************************************************************************ * * APPLICATION-ROUTINE NO=1 * WSMENU FUNCTION VALUE * ************************************************************************ APP010 PERF RANGE,W1,W4 ***RANGE 1-4 BOK APPOK0 OK MOVE LBIN4,W6 B APNOK3 NOT OK EJECT ************************************************************************ * * APPLICATION-ROUTINE NO=2 * SECTION NAME CONTROL * -ALREADY DEFINED? * -NOT FOUND? * -1ST POSITION ALPHABETIC * ************************************************************************ APP020 MOVE LSTR1,LSTR81 MOVE LBIN3,W6 FIELD LENGTH:=6 CBL LSTR1,=C'A',APP029 CBG LSTR1,=C'Z',APP029 PERF SPCPAD ***SPACE PADDING CALL ICLEAR,LSTR16 ---ASSRUT:CLEAR ITEM MOVE LSTR6A,=C' DSDS' TYPE = D(EFINITION) TYPE = S(ECTION) INSRT LSTR81,W0,W6,LSTR16,W0 NAME=> POS 6-11 XCOPY LSTR81,W5,W1,LSTR6A,GBIN1 STORE TYPE OF DATA = S MOVE LBIN1,W24 WORKPOINTER:=24 ADD LBIN1,W2 GIVING 26 XCOPY LSTR81,LBIN1,W8,GSTR8A,W0 STORE FILENAME ADD LBIN1,W8 ADJUST POINTER XCOPY LSTR81,LBIN1,W6,GSTR6C,W0 STORE VOLUME ID CLEAR LBOOLA FALSE=DISC-ERROR (IF ANY) CALL PSEARC,LSTR81,BPOOL(W1) ---SEARCH SECTION ON DISC BOK APP028 BL APP022 JMP IF CR=2 (DISC-ERROR) SET LBOOLA TRUE=POOL-ERROR APP022 CALL PCLOSE,LSTR81,BPOOL(W1) ---CLOSE DISC FILE CBL GBIN1,W3,APP027 JMP IF NEW TBT LBOOL4,APP027 JMP IF DUPLICATION TBT LBOOL8,APP027 JMP DUPL CH. SECT.NAME EJECT * * ERROR AT SEARCH * XCOPY LBIN3,W0,W2,LSTR81,W20 UNPACK RETCODE BIN CBE LBIN3,W1,APP02B JMP IF NOT FOUND MOVE LBIN4,W0 BIT-INDEX:=0 MOVE LSTR1,=X'31' LOAD '1' MOVE LSTR16,=X'30' LOAD WITH '0':S APP025 CALL TESTB,LBIN3,LBIN4 ---TEST BIT (INDEX) BOK APP026 JMP IF FALSE = 0 XCOPY LSTR16,LBIN4,W1,LSTR1,W0 LOAD '1' WHEN TRUE = 1 APP026 ADD LBIN4,W1 NEXT BITINDEX CBNG LBIN4,W15,APP025 GO ON UNTIL > 15 MOVE LBIN4,W8 ERRORMESSAGE NO:8 B APNOK3 APP027 DLETE LSTR81,W0,W6 DELETE PREVIOUS INSERTION B APPOK0 OK APP028 CALL PCLOSE,LSTR81,BPOOL(W1) ---CLOSE DISC FILE TBT LBOOL4,APP02A JMP IF DUPLICATION MOVE LBIN3,W6 POINTER:=6 MATCH LSTR81,LBIN3,W6,GSTR6A,W0,W6 MATCH IF SAME NAME BOK APP027 JMP IF SAME NAME TBT LBOOL8,APP02A JMP IF OLD CBG GBIN1,W2,APP027 OK IF UPDATE APP02A MOVE LBIN3,=W'28' '.......ALREADY DEFINED' B APP02C APP02B MOVE LBIN3,=W'26' '......NOT FOUND' APP02C DLETE LSTR81,W0,W6 DELETE PREFIX DLETE LSTR81,W20,W14 DELETE OVERFLOW INFO MOVE LBIN4,GBIN1 LOAD FUNCTION NUMBER CBL LBIN4,W3,APP02D SUB LBIN4,W2 CALC FOR DEF. OR SECTION APP02D ADD LBIN4,LBIN3 CALC PROPER ERROR-NUMBER B APNOK3 APP029 MOVE LBIN4,W9 ERROR MESSAGE NO=9 B APNOK3 NOT OK EJECT ************************************************************************ * * APPLICATION-ROUTINE NO=3 * SECTION TYPE CONTROL * ************************************************************************ APP030 PERF RANGE,W1,W6 ***RANGE 1-6 BOK APPOK0 MOVE LBIN4,W10 ERROR-MESSAGE NO=10 B APNOK3 NOT OK EJECT ************************************************************************ * * APPLICATION-ROUTINE NO=4 * SECTION SIZE ROWS 1-23 * ************************************************************************ APP040 MOVE VBIN5,W15 INDEX:=15 MOVE LBIN4,GBCD3I(VBIN5) LOAD EFFEKTIV ROW SIZE PERF RANGE,LBIN4,ROWS ***RANGE X-23 BOK APPOK0 OK MOVE LBIN4,W11 ERROR MESSAGE NO=11 MOVE LBCD3A,ROWS LOAD HIGH LIMITFOR ERR-TEXT B APNOK3 EJECT ************************************************************************ * * APPLICATION-ROUTINE NO=5 * SECTION SIZE COLUMNS 1-80 * ************************************************************************ APP050 MOVE VBIN5,W16 INDEX:=16 MOVE LBIN4,GBCD3I(VBIN5) LOAD EFFEKTIV COLUMN SIZE PERF RANGE,LBIN4,COLS ***RANGE X-80 BOK APPOK0 MOVE LBIN4,W11 ERROR MESSAGE NO=11 MOVE LBCD3A,COLS LOAD HIGH LIMIT FOR ERR-TEXT B APNOK3 EJECT ************************************************************************ * * APPLICATION-ROUTINE NO=6 * YES OR NO * ************************************************************************ APP060 PERF YESVNO ***YES AND NO CHECK BOK APPOK0 OK Y OR N MOVE LBIN4,W12 ERROR MESSAGE NO=12 B APNOK3 EJECT ************************************************************************ * * APPLICATION-ROUTINE NO=7 * SCREEN BACKGROUND DECORATION * -N. NORMAL VIDEO -R. REVERSED IMAGE * -L. LOW INTENSITY * -H. HIGH INTENSITY * ************************************************************************ APP070 MOVE LSTR4A,=C'RH' DECORATION CODES MOVE LBIN3,W0 POINTER:=0 MATCH LSTR4A,LBIN3,W4,LSTR81,W0,W1 BNOK APP079 ILLEGAL DEC. CODE * * FURTHER CONTROLS TO BE SOLVED * B APPOK0 OK APP079 MOVE LBIN4,W6 ERROR-MESSAGE NO-6 B APNOK3 NOT OK EJECT ************************************************************************ * * APPLICATION-ROUTINE NO=8 * STATIC FIELD DECORATION DEFAULT * -N. NORMAL VIDEO -R. REVERSED IMAGE * -L. LOW INTENSITY * -H. HIGH INTENSITY * -U. UNDERLINE * -B. BLINKING * ************************************************************************ APP080 MOVE LSTR6A,=C'RHUB' DECORATION CODES MOVE LBIN3,W0 POINTER:=0 MATCH LSTR6A,LBIN3,W6,LSTR81,W0,W1 BNOK APP089 ILLEGAL DEC. CODE * * FURTHER CONTROLS TO BE SOLVED * B APPOK0 OK APP089 MOVE LBIN4,W6 ERROR-MESSAGE NO-6 B APNOK3 NOT OK EJECT ************************************************************************ * * APPLICATION-ROUTINE NO=9 * NUMBER OF HEADLINES * MUST NOT EXCEED MAX ROW NO * ************************************************************************ APP090 PERF RANGE,W0,LBIN8 ***RANGE 0-MAX ROW NO BOK APP092 OK MOVE LBIN4,W20 ERROR-MESSAGE NO-20 MOVE LBCD3A,LBIN8 LOAD MAX ROW NO B APNOK3 NOT OK APP092 MOVE LBIN1,W0 ATTAB-POINTER:=0 APP094 XCOPY LBIN4,W1,W1,ATTAB,LBIN1 STORE ROW NO CBE LBIN4,W0,APP099 END-OF-TABLE OK CBG LBIN4,LBIN3,APP099 JMP IF GR NO OF HLINES ADD LBIN1,W2 ADJUST POINTER XCOPY LBIN4,W1,W1,ATTAB,LBIN1 STORE SEQ NO CBNE LBIN4,=X'00FF',APP098 JMP IF ERR NOT STATIC ADD LBIN1,W2 ADJUST POINTER B APP094 GO ON APP098 MOVE LBIN4,W21 ERROR MESSAGE NO:21 B APNOK3 APP099 B APPOK0 OK EJECT ************************************************************************ * * APPLICATION-ROUTINE NO=10 * CONTROL OF DEFAULT GUIDING MESSAGE * POS 1-2 MUST BE 'S:' FOR A SECTION MESSAGE * POS 1-2 MUST BE 'M:' FOR A LINE MESSAGE * NUMBER OF INPUT CHARACTERS MUST BE 1- 6 FOR A SECTION * NUMBER OF INPUT CHARACTERS MUST BE 1-78 FOR A LINE MESSAGE * POS 1 OF SECTION NAME MUST BE ALPHABETIC A-Z * ************************************************************************ APP100 MOVE LBIN4,W1 LOAD INDEX NUMB-OF-CHARS-TAB APP101 SUB LBIN1,W2 LENGTH ADJUSTMENT MOVE GBINIA(LBIN4),LBIN1 SAVE NUMB OF CHARACTERS MOVE LSTR4A,=C'S:M:' LOAD MESSAGE TYPES MOVE LBIN1,W0 WORKITEM:=0 MATCH LSTR4A,LBIN1,W4,LSTR81,W0,W2 WHAT TYPE? BNOK APP109 ERROR CBL GBINIA(LBIN4),W1,APP108 INCORRECT LENGTH CBE LBIN1,W2,APP105 JUMP IF LINE MESSAGE CBG GBINIA(LBIN4),W6,APP108 INCORRECT LENGTH XCOPY LSTR1,W0,W1,LSTR81,W2 COPY 1ST CHARACTER TO CHECK MOVE LBIN1,GBINIA(LBIN4) RELOAD NUMB OF INP CHARS ADD LBIN1,W2 ADJUST MOVE GBINIA(LBIN4),W6 SECTION NAME:=6 CHARACTERS MOVE LBIN3,W8 FIELD LENGTH:=8 B APP188 OK CHECK 1ST CHARACTER APP105 CBG GBINIA(LBIN4),=W'78',APP108 INCORRECT LENGTH B APPOK0 OK APP108 MOVE LBIN4,W6 ERROR-MESSAGE NO 6 B APNOK3 NOT OK APP109 MOVE LBIN4,W14 ERROR-MESSAGE NO 14 B APNOK3 NOT OK EJECT ************************************************************************ * * APPLICATION-ROUTINE NO=11 * ORIGIN-MEDIA TYPE CONTROL * 0=NO INPUT MEDIA * 1=KEYBOARD INPUT * >1=OTHER MEDIA * ************************************************************************ APP110 PERF RANGE,W0,W9 ***RANGE 0-9 BOK APPOK0 MOVE LBIN4,W6 ERROR-MESSAGE NO=6 B APNOK3 NOT OK EJECT ************************************************************************ * * APPLICATION-ROUTINE NO=12 * DUPLICATION REFERENCES * * FIELD NAME MUST BE DEFINED * -WS99 0<99<10 * -WA99 0<99<100 * -WN99 0<99<100 * ************************************************************************ APP120 MOVE LSTR6A,=C'WSWAWN' LOAD WSM WORK ITEM PREFIX MOVE LBIN4,W0 WORKPOINTER:=0 MATCH LSTR6A,LBIN4,W6,LSTR81,W0,W2 SEARCH WSMWORK BOK APP122 JMP IF WSM WORK ITEM CBG LBIN1,W4,APP129 NUMB OF CHARS > 4 MOVE LBIN3,W4 FIELD LENGTH:=4 PERF SPCPAD ***SPACE PADDING MOVE LBIN4,W0 WORKPOINTER:=0 MATCH FIDTAB,LBIN4,LFBIN,LSTR81,W0,W4 SERCH FIELD NAME BOK APPOK0 FIELD NAME FOUND OK B APP129 BRANCH ON ERROR * * CHECK UP DATA TABLE T99:99 * APP122 CBE LBIN1,W4,APP123 JMP IF 4 INP CHARS MOVE LBIN4,W1 ERROR MESSAGE NO:=1 B APNOK3 APP123 DLETE LSTR81,W0,W2 DELETE WSM WORK ITEM PREFIX MOVE LBIN1,W9 HIGH-LIMIT FOR WS09 CBL LBIN4,W2,APP124 JMP IF WS MOVE LBIN1,=W'99' HIGH-LIMIT FOR WA99 WN99 APP124 PERF RANGE,W0,LBIN1 ***RANGE 0-9/99 BNOK APP128 JMP IF ERROR COPY LSTR1,W0,W1,LSTR81,W0 1ST DIGIT-POS CBG LSTR1,=C'9',APP137 JMP IF NOT DIGIT CBL LSTR1,=C'0',APP137 JMP. IF NOT DIGIT INSRT LSTR81,W0,W2,LSTR6A,LBIN4 INSERT WSMWORKITEM PREFIX B APPOK0 APP128 INSRT LSTR81,W0,W2,LSTR6A,LBIN4 INSERT WSMWORKITEM PREFIX APP129 MOVE LBIN4,W17 ERRORMESSAGE NO=17 B APNOK3 NOT OK EJECT ************************************************************************ * * APPLICATION-ROUTINE NO=13 * AUTO SKIP/DUP OR BYPASS * ************************************************************************ APP130 MOVE LSTR1,LSTR81 CBE LSTR1,DUPL,APP132 JMP IF 'D' OK CBE LSTR1,BYPASS,APP138 JMP IF B' OK CBE LSTR1,SKIP,APP138 JMP IF 'S' OK CBE LSTR1,NO,APP138 JMP IF 'N' OK B APP139 APP132 CALL EMPTYT,GSTR1I(W24) ---CHECK IF EMPTY BNOK APP137 JMP IF EMPTY = N(O) DUPL CBE GSTR1I(W24),YES,APP138 JMP IF Y(ES) DUPL OK APP137 MOVE LBIN4,W6 ERROR-MESSAGE NO=6 B APNOK3 NOT OK APP138 B APPOK0 APP139 MOVE LBIN4,W18 ERROR-MESSAGE NO-18 B APNOK3 NOT OK EJECT ************************************************************************ * * APPLICATION-ROUTINE NO=14 * L(EFT) OR R(IGHT) ADJUSTED ? * ************************************************************************ APP140 MOVE LSTR1,LSTR81 CBE LSTR1,LEFT,APP145 CBE LSTR1,RIGHT,APP145 MOVE LBIN4,W19 ERROR MESSAGE NO=19 B APNOK3 NOT OK APP145 OK B APPOK0 OK EJECT ************************************************************************ * * APPLICATION-ROUTINE NO=15 * PRINTOUT POSITION CONTROL * ************************************************************************ APP150 MOVE LBIN4,=W'127' HIGHLIMIT=127 PERF RANGE,W1,LBIN4 ***RANGE 1-127 BNOK APP169 NOK XCOPY LBIN4,W1,W1,GBINIA(W7),W0 ROW NO CBL LBIN3,LBIN4,APP159 B APPOK0 OK APP159 MOVE LBIN4,=W'25' ERROR-MESSAGENO=25 B APNOK3 NOT OK EJECT ************************************************************************ * * APPLICATION-ROUTINE NO=16 * PRINTOUT POSITION CONTROL * ************************************************************************ APP160 MOVE LBIN4,=W'127' HIGHLIMIT=127 PERF RANGE,W1,LBIN4 ***RANGE 1-127 BNOK APP169 NOK MOVE LBIN4,GBCD3I(W8) ROW NO XCOPY LBIN3,W0,W1,LBIN4,W1 ROW NO CBNG LBIN3,GBINIA(W7),APP159 B APPOK0 APP169 MOVE VBIN5,W12 INDEX:=12 MOVE GBCD3I(VBIN5),W1 LOAD EFFEKTIV ROW SIZE MOVE LBCD3A,LBIN4 MOVE LBIN4,W11 ERROR-MESSAGE NO=11 B APNOK3 NOT OK EJECT ************************************************************************ * * APPLICATION-ROUTINE NO=17 * DEFAULT VALUE * ************************************************************************ APP170 MOVE GBINIA(W2),LBIN1 SAVE NUMB OF CHARS B APPOK0 OK EJECT ************************************************************************ * * APPLICATION-ROUTINE NO=18 * FIELD NAME CONTROL * ************************************************************************ APP180 MOVE LSTR9A,=C' ' SPACE MOVE LBIN20,W0 CLEAR POINTER MATCH LSTR81,LBIN20,LBIN1,LSTR9A,W0,W1 SPACE IN FIELD ID ? BNE APP180A NOT FOUND ADD LBIN20,W1 ADJUST FOUND SPACE POSITION CBNL LBIN20,LBIN1,APP180A JMP IF NOT LESS MOVE LBIN3,LBIN1 LOAD NUMB OF INPUT CHARACTERS SUB LBIN3,LBIN20 CALC REST TO INVESTIGATE MATCH LSTR81,LBIN20,LBIN3,LSTR9A,W0,LBIN3 MATCH IF REST = SPACE BOK APP180A OK IF REST = SPACES MOVE LBIN4,=W'32' ERROR MESSAGE:=32 B APNOK3 APP180A CALL GETIND,STMTS,VBIN8,LBIN3 ---GET ITEM LENGTH MOVE LBIN4,W0 INPUT BUFFER POINTER:=0 PERF BSVSEA,LBIN1,VBIN5 ***BASIC VERB SEARCH BNOK APP185 NO BASIC VERB GO ON APP183 MOVE LBIN4,=W'31' ERROR-MESSAGE:=31 B APNOK3 APP185 CBNE LBIN1,W3,APP186 JMP IF INPUTLENGTH /= 3 CALL GETIND,OPRTS,VBIN8,LBIN3 ---GET ITEM LENGTH MOVE LBIN3,=W'29' POINTER:=29 SUB VBIN8,LBIN3 CALC LENGTH TO MATCH MATCH OPRTS,LBIN3,VBIN8,LSTR81,W0,W3 MATCH FUNCTION BNOK APP187 NO FUNCTION OK XCOPY LBIN4,W1,W1,OPRVAL,LBIN3 GET OPERATION CODE CBNE LBIN4,=X'00FF',APP183 JMP IF OPERATION CODE=FUNCTION APP187 MOVE LBIN3,W20 POINTER:=20 MATCH OPRTS,LBIN3,W3,LSTR81,W0,W3 BOK APP183 NOT OK IF STR FUNCTION APP186 MOVE LBIN3,W4 FIELD LENGTH:=4 PERF SPCPAD ***SPACE PADDING MOVE LBIN4,W0 WORKPOINTER:=0 MATCH FIDTAB,LBIN4,LFBIN,LSTR81,W0,W4 SERCH FIELD NAME BNOK APP182 FIELD NAME NOT FOUND OK ADD LBIN4,W4 ADJUST POINTER TO REACH SEQ.NO XCOPY LBIN3,W1,W1,FIDTAB,LBIN4 GET SEQ NO CBE LBIN3,W0,APP181 NEW FIELD NOT OK WITH SAME ID CBE LBIN3,LBIN12,APP18B SAME SEQ.NO & F-ID => OK APP181 SUB LBIN4,W4 ADJUST CALL WXDIV,LBIN4,W5,LBIN4 CALC SEQ NO ADD LBIN4,W1 ....WHEN NEW FIELD CBE LBIN4,LBIN12,APP18B JMP IF SAME SEQ NO MOVE LBIN4,W15 ERROR MESSAGE NO=15 B APNOK3 NOT OK APP18B MOVE LBIN1,W0 =NO INPUT CALL ICLEAR,LSTR81 ---CLEAR ITEM B APPOK0 APP182 MOVE LSTR6A,=C'WSWAWN' LOAD WSM WORK ITEM PREFIX MOVE LBIN4,W0 WORKPOINTER:=0 MATCH LSTR6A,LBIN4,W6,LSTR81,W0,W2 SEARCH WSMWORK BNOK APP184 WSM WORK ITEM NOT FOUND OK MOVE LBIN4,W16 ERROR MESSAGE NO=16 B APNOK3 NOT OK APP184 MOVE LSTR1,LSTR81 MOVE LBIN3,W4 FIELD LENGTH:=4 APP188 CBL LSTR1,=C'A',APP189 CBG LSTR1,=C'Z',APP189 PERF SPCPAD ***SPACE PADDING B APPOK0 1ST CHARACTER OK APP189 MOVE LBIN4,W9 ERROR MESSAGE NO=9 B APNOK3 NOT OK EJECT ************************************************************************ * * APPLICATION-ROUTINE NO=19 * VOLUME NAME CONTROL * ************************************************************************ APP190 MOVE LBIN3,W6 FIELD LENGTH:=6 PERF SPCPAD ***SPACE PADDING MOVE LBIN3,W0 WORKITE=0 APP192 XCOPY LBIN4,W1,W1,DUNIT,LBIN3 GET FILE CODE CALL CHANFC,DISC,LBIN4 ---CHANGE FILE CODE CALL GETVOL,DISC,BPOOL(W1),LSTR6A,LBIN4 ---GET VOLUME NAME CALL CLEARB,LBIN4,W4 ---CLEAR BIT NO:=4 1MB-BIT CMP LBIN4,W0 CHECKRETURN CODE BNOK APP194 JUMP IF ERROR MATCH LSTR6A,LBIN4,W6,LSTR81,W0,W6 VOLUME NAME EQUAL ? BOK APPOK0 FOUND OK APP194 ADD LBIN3,W1 NEXT FILE CODE CBL LBIN3,W17,APP192 GO ON IF LESS 17 MOVE LBIN4,W23 ERROR-MESSAGE /NOT LOADED' B APNOK3 NOT OK EJECT ************************************************************************ * * APPLICATION-ROUTINE NO=20 * FILENAME CONTROL * ************************************************************************ APP200 MOVE LBIN3,W8 FIELD LENGTH :=8 PERF SPCPAD ***SPACE PADDING CALL ICLEAR,LSTR16 ---ASSRUT:CLEAR ITEM MOVE LSTR6A,=C' DSDS' TYPE = D(EFINITION) TYPE = S(ECTION) INSRT LSTR81,W0,W16,LSTR16,W0 FILENAME=> POS 16-23 INSRT LSTR81,W16,W10,LSTR16,W0 FILENAME=> POS 26-33 XCOPY LSTR81,W5,W1,LSTR6A,GBIN1 STORE TYPE OF DATA = S MOVE LBIN1,W24 WORKPOINTER:=24 ADD LBIN1,W10 GIVING 34 XCOPY LSTR81,LBIN1,W6,GSTR6C,W0 STORE VOLUME ID CALL POPEN,LSTR81,BPOOL(W1) ---OPEN DISC FILE BNOK APP208 JMP IF NOT FOUND CALL PCLOSE,LSTR81,BPOOL(W1) ---CLOSE DISC-FILE SUB LBIN1,W8 ADJUST NUMBER TO DELETE DLETE LSTR81,W0,LBIN1 DELETE OVERFLOW INFO B APPOK0 JMP OK APP208 CALL PCLOSE,LSTR81,BPOOL(W1) ---CLOSE DISC-FILE SUB LBIN1,W8 ADJUST NUMBER TO DELETE DLETE LSTR81,W0,LBIN1 DELETE OVERFLOW INFO DLETE LSTR81,W8,W6 DELETE OVERFLOW INFO MOVE LBIN4,W24 ERROR MESSAGENO:=24 B APNOK3 NOT OK EJECT ************************************************************************ * * APPLICATION-ROUTINE NO=21 * (.) OR (,) ? * ************************************************************************ APP210 MOVE LSTR1,LSTR81 CBE LSTR1,=C'.',APP215 CBE LSTR1,=C',',APP215 MOVE LBIN4,W13 ERROR-MESSAGE NO 13 B APNOK3 NOT OK APP215 OK B APPOK0 OK EJECT ************************************************************************ * * APPLICATION-ROUTINE NO=22 * GUIDING MESSAGE * ************************************************************************ APP220 MOVE LBIN4,W3 LOAD INDEX NUMB-OF-CHARS-TAB B APP101 CHECK MESSAGE TYPE EJECT ************************************************************************ * * APPLICATION-ROUTINE NO=23 * APPLICATION MESSAGE * ************************************************************************ APP230 MOVE GBINIA(W4),LBIN1 LOAD NUMB OF CHARS B APPOK0 EJECT ************************************************************************ * * APPLICATION-ROUTINE NO=24 * VALIDATION CONTROL * ************************************************************************ APP240 PERF SYNVAL ***SYNTAX-CONTROL VALIDATION BNOK APP248 JMP IF NOT OK MOVE GBINIA(VBIN1),LBIN1 SAVE NUMB CHARS OF BASIC LINE B APPOK0 APP248 MOVE LBCD3A,LBIN4 SYNTAX ERROR NUMBER MOVE LBIN4,=W'26' ERROR-MESSAGE NO=26 B APNOK3 NOT OK EJECT ************************************************************************ * * APPLICATION-ROUTINE NO=25 * DUPLICATION * ************************************************************************ APP250 PERF YESVNO ***YES AND NO CHECK BNOK APP259 JMP IF NOT OK CBE LSTR1,YES,APP254 JMP IF Y OK CBE GSTR1I(W16),DUPL,APP258 JMP IF SKP.DUP.BYP =D APP254 OK B APPOK0 APP258 GETABX LBIN4 GET CURRENT FIELD NUMBER ADD LBIN4,W2 FIELDNUMBER:=FIELDNUMBER+2 GETFLD 0,LBIN4,LBIN3 MAKE FIELD CURRENT MOVE LBIN4,W6 ERROR-MESSAGE=& B APNOK3 APP259 MOVE LBIN4,W12 ERRORMESSAGE=12 B APNOK3 EJECT ************************************************************************ * * APPLICATION-ROUTINE NO=26 * SECTION NAME * ************************************************************************ APP260 MOVE LSTR1,LSTR81 MOVE LBIN3,W6 LENGTH=6 B APP188 ************************************************************************ * * APPLICATION-ROUTINE NO=27 * PRINT-DEVICE * ************************************************************************ APP270 MOVE LSTR2,LSTR81 CBE LSTR2,='LP',OKDEV CBE LSTR2,='GP',OKDEV MOVE LBIN4,=W'35' B APNOK3 OKDEV B APPOK1 EJECT ********************************************************************* * * APPLICATION-ROUTINE NO=28 * OVER-RIDE * ********************************************************************* APP280 MOVE LBIN3,W4 PERF SPCPAD ***SPACE PADDING MOVE LBIN4,W0 WORKPOINTER:=0 MATCH FIDTAB,LBIN4,LFBIN,LSTR81,W0,W4 SEARCH FIELD NAME BNOK APP282 MOVE LBIN3,W0 WORKPOINTER:=0 MATCH FIDTAB,LBIN3,LFBIN,GSTR4A,W0,W4 SEE IF BACKWARD CBL LBIN4,LBIN3,APP286 JMP IF BACKWARD MOVE LBIN4,W0 WORKPOINTER:=0 MATCH GSTR4A,LBIN4,W4,LSTR81,W0,W4 SEE IF SAME FIELD BOK APP284 B APPOK0 FIELD NAME FOUND EJECT APP282 MOVE LBIN4,=W'38' "FIELD NAME NOT FOUND" B APNOK3 APP284 MOVE LBIN4,=W'39' "YOU ARE ALREADY THERE!!" B APNOK3 APP286 MOVE LBIN4,=W'40' "ILLEGAL DIRECTION TO WANTED FIELD-NAME" B APNOK3 PEND EJECT ************************************************************************ * * RANGE CONTENT OF 'LBIN3' * INPUT FORMAL PARAMETERS * -LLIMIT = LOWLIMIT * -HLIMIT = HIGHLIMIT * ************************************************************************ RANGE PROC LLIMIT,HLIMIT PBIN LLIMIT PBIN HLIMIT PERF STRBIN ***CONVERT TO BINARY CBL LBIN3,LLIMIT,RANGE9 LESS LOWLIMIT CBG LBIN3,HLIMIT,RANGE9 GREATER HIGHLIMIT CMP W0,W0 CLEAR COND.REG. RET RANGE9 CMP W0,W1 SET COND.REG. RET PEND EJECT ************************************************************************ * * CONVERT NUMERIC STRING VALUE INTO BINARY * ************************************************************************ STRBIN PROC MOVE LBCD3A,LSTR81 LOAD INPUT DECIMAL MOVE LBIN3,LBCD3A LOAD DECIMAL TO BINARY RET PEND ************************************************************************ * * CONTROL IF INPUT IS Y(ES) OR N(O) * ************************************************************************ YESVNO PROC MOVE LSTR1,LSTR81 CBE LSTR1,NO,YESOK0 CBE LSTR1,YES,YESOK0 CMP W0,W1 SET COND-REG=1 RET YESOK0 CMP W0,W0 CLEAR COND-REG=0 RET PEND EJECT ************************************************************************ * * PAD REST OF INPUT BUFFER (LSTR81) ,UP TO ACTUAL FIELD LENGTH * WITH X'20':S * * INPUT LBIN1 = NUMBER OF INPUT CHARACTERS OF INPUT BU * LBIN3 = ACTUAL FIELD LENGTH * LSTR81 = INPUT BUFFER * * OUTPUT LBIN1 = ACTUAL FIELD LENGTH (MAX-LENGTH) * LSTR81 = INPUT BUFFER PADDED WITH X'20':S * ************************************************************************ SPCPAD PROC MOVE LSTR9A,=X'20' LOAD SPACE-STRING SUB LBIN3,LBIN1 CALC NUMBER OF EMPTY POSITIONS BZ SPC999 JUMP IF NO EMPTY POS XCOPY LSTR81,LBIN1,LBIN3,LSTR9A,W0 COPY X'20':S ADD LBIN1,LBIN3 :=MEX FIELD LENGTH SPC999 RET PEND END
0x0000…0032 (0, 0, 400) Head {h00=0x002e, h01=0x0050, text=» IDENT WSMAPP REL=2.3,851025,870155940230 «, t00=0x0000, t01=0x0004}
0x0032…003a Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0036}
0x003a…0086 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0000, t01=0x003e}
0x0086…0090 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x008a}
0x0090…00b6 Head {h00=0x0022, h01=0x0050, text=»* LATEST UPDATE=851025 BY CJ«, t00=0x0000, t01=0x0094}
0x00b6…00c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ba}
0x00c0…00d4 Head {h00=0x0010, h01=0x0050, text=»* HISTORY=«, t00=0x0000, t01=0x00c4}
0x00d4…0118 Head {h00=0x0040, h01=0x0050, text=»* 851025/CJ SECTION NAME CHECK CORRECTED - APP26«, t00=0x0000, t01=0x00d8}
0x0118…016a Head {h00=0x004e, h01=0x0050, text=»* 850508/JE FIELD-ID INPUT NO CHCK OF FUNCTION WHEN # 3 NO=18 «, t00=0x0000, t01=0x011c}
0x016a…01ba Head {h00=0x004c, h01=0x0050, text=»* 850313/JE INDICATE 'NO INPUT' WHEN EQUAL FID ENTERED NO=18«, t00=0x0000, t01=0x016e}
0x01ba…01f6 Head {h00=0x0038, h01=0x0050, text=»* 841120/CJ MUL&DIV NOW FROM ASS.ROUTINE«, t00=0x0001, t01=0x002e}
0x01f6…0240 Head {h00=0x0046, h01=0x0050, text=»* 841101/CJ APP NO28 IMPLEMENTED - USED BY "GO DIRECT"«, t00=0x0001, t01=0x006a}
0x0240…028a Head {h00=0x0046, h01=0x0050, text=»* 840924/CJ ILLEGAL NAMESETTING NEAR BASICVERB APP185 «, t00=0x0001, t01=0x00b4}
0x028a…0294 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00fe}
0x0294…02e0 Head {h00=0x0048, h01=0x0050, text=»******************************************************************* «, t00=0x0001, t01=0x0108}
0x02e0…02f4 Head {h00=0x0010, h01=0x0050, text=» DDUM WSMDDV«, t00=0x0001, t01=0x0154}
0x02f4…0302 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0001, t01=0x0168}
0x0302…0318 Head {h00=0x0012, h01=0x0050, text=» ENTRY WSMAPP «, t00=0x0001, t01=0x0176}
0x0318…034c Head {h00=0x0030, h01=0x0050, text=» EXPROC SYNVAL ***SYNTAX-CONTROL VALIDATION «, t00=0x0001, t01=0x018c}
0x034c…0382 Head {h00=0x0032, h01=0x0050, text=» EXPROC BSVSEA,PBIN,PBIN ***BASIC VERB SEARCH «, t00=0x0002, t01=0x0030}
0x0382…03b0 Head {h00=0x002a, h01=0x0050, text=» EXT GETIND ---ASSRUT:GET ITEM LENGTH «, t00=0x0002, t01=0x0066}
0x03b0…03de Head {h00=0x002a, h01=0x0050, text=» EXT CHANFC ---ASSRUT:CHANGE FILE CODE«, t00=0x0002, t01=0x0094}
0x03de…040c Head {h00=0x002a, h01=0x0050, text=» EXT GETVOL ---ASSRUT:GET VOLUME NAME «, t00=0x0002, t01=0x00c2}
0x040c…0438 Head {h00=0x0028, h01=0x0050, text=» EXT EMPTYT ---ASSRUT:CECK IF EMPTY «, t00=0x0002, t01=0x00f0}
0x0438…0460 Head {h00=0x0024, h01=0x0050, text=» EXT ICLEAR ---ASSRUT:CLEAR ITEM«, t00=0x0002, t01=0x011c}
0x0460…048e Head {h00=0x002a, h01=0x0050, text=» EXT TESTB ---ASSRUT:TEST BIT POSITION«, t00=0x0002, t01=0x0144}
0x048e…04be Head {h00=0x002c, h01=0x0050, text=» EXT CLEARB ---ASSRUT:CLEAR BIT POSITION«, t00=0x0002, t01=0x0172}
0x04be…04ea Head {h00=0x0028, h01=0x0050, text=» EXT POPEN ---ASSRUT:OPEN DISC FILE «, t00=0x0003, t01=0x0012}
0x04ea…0518 Head {h00=0x002a, h01=0x0050, text=» EXT PCLOSE ---ASSRUT:CLOSE DISC FILE «, t00=0x0003, t01=0x003e}
0x0518…054a Head {h00=0x002e, h01=0x0050, text=» EXT PSEARC ---ASSRUT:SEARCH SECTION NAME «, t00=0x0003, t01=0x006c}
0x054a…0570 Head {h00=0x0022, h01=0x0050, text=» EXT WXDIV ---ASSRUT:DIVISION «, t00=0x0003, t01=0x009e}
0x0570…057e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x00c4}
0x057e…05ce Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0003, t01=0x00d2}
0x05ce…05d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0122}
0x05d8…0600 Head {h00=0x0024, h01=0x0050, text=»* APPLICATION HANDLING MODULE«, t00=0x0003, t01=0x012c}
0x0600…0632 Head {h00=0x002e, h01=0x0050, text=»* PERFORMS CORRESPONDING APPLICATION- «, t00=0x0003, t01=0x0154}
0x0632…0664 Head {h00=0x002e, h01=0x0050, text=»* ROUTINE DEPENDING ON ROUTINE-NUMBER «, t00=0x0003, t01=0x0186}
0x0664…066e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0028}
0x066e…06a6 Head {h00=0x0034, h01=0x0050, text=»* INPUT: LBIN1 = NUMBER OF INPUT CHARACTERS «, t00=0x0004, t01=0x0032}
0x06a6…06d0 Head {h00=0x0026, h01=0x0050, text=»* LBIN2 = EOI-KEY INDEX«, t00=0x0004, t01=0x006a}
0x06d0…0708 Head {h00=0x0034, h01=0x0050, text=»* LBIN3 = APPLICATION ROUTINE NUMBER «, t00=0x0004, t01=0x0094}
0x0708…0712 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00cc}
0x0712…0750 Head {h00=0x003a, h01=0x0050, text=»* OUTPUT:LBIN1 = CURSOR-POSITION AT 'NOT OK' (4) «, t00=0x0004, t01=0x00d6}
0x0750…077a Head {h00=0x0026, h01=0x0050, text=»* LBIN2 = EOI-KEY INDEX«, t00=0x0004, t01=0x0114}
0x077a…07b0 Head {h00=0x0032, h01=0x0050, text=»* LBIN3 = 0 = OK 'REWRITE' DISPLAY «, t00=0x0004, t01=0x013e}
0x07b0…07ea Head {h00=0x0036, h01=0x0050, text=»* = 1 = OK UNCONDITIONAL DISPLAY «, t00=0x0004, t01=0x0174}
0x07ea…0818 Head {h00=0x002a, h01=0x0050, text=»* = 2 = OK NO DISPLAY«, t00=0x0005, t01=0x001e}
0x0818…0850 Head {h00=0x0034, h01=0x0050, text=»* = 3 = NOT OK => ERROR MESSAGE«, t00=0x0005, t01=0x004c}
0x0850…08a0 Head {h00=0x004c, h01=0x0050, text=»* = 4 = NOT OK => EDIT MODE 'LBIN1' CONTAIN CURSOR-POS «, t00=0x0005, t01=0x0084}
0x08a0…08aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00d4}
0x08aa…08e0 Head {h00=0x0032, h01=0x0050, text=»* LBIN4 = 0 'BELL'-MESSAGE AT ERROR«, t00=0x0005, t01=0x00de}
0x08e0…091c Head {h00=0x0038, h01=0x0050, text=»* > 0 ERROR MESSAGE-NUMBER AT ERROR«, t00=0x0005, t01=0x0114}
0x091c…0926 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0150}
0x0926…0976 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0005, t01=0x015a}
0x0976…0984 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x001a}
0x0984…0998 Head {h00=0x0010, h01=0x0050, text=»WSMAPP PROC «, t00=0x0006, t01=0x0028}
0x0998…09be Head {h00=0x0022, h01=0x0050, text=» IB LBIN3,APP010,APP020, 1-2 C«, t00=0x0006, t01=0x003c}
0x09be…09e4 Head {h00=0x0022, h01=0x0050, text=» APP030,APP040,APP050, 3-5 C «, t00=0x0006, t01=0x0062}
0x09e4…0a0a Head {h00=0x0022, h01=0x0050, text=» APP060,APP070,APP080, 6-8 C «, t00=0x0006, t01=0x0088}
0x0a0a…0a30 Head {h00=0x0022, h01=0x0050, text=» APP090,APP100,APP110, 9-11 C«, t00=0x0006, t01=0x00ae}
0x0a30…0a58 Head {h00=0x0024, h01=0x0050, text=» APP120,APP130,APP140, 12-14 C «, t00=0x0006, t01=0x00d4}
0x0a58…0a80 Head {h00=0x0024, h01=0x0050, text=» APP150,APP160,APP170, 15-17 C «, t00=0x0006, t01=0x00fc}
0x0a80…0aa8 Head {h00=0x0024, h01=0x0050, text=» APP180,APP190,APP200, 18-20 C «, t00=0x0006, t01=0x0124}
0x0aa8…0ad0 Head {h00=0x0024, h01=0x0050, text=» APP210,APP220,APP230, 21-23 C «, t00=0x0006, t01=0x014c}
0x0ad0…0af8 Head {h00=0x0024, h01=0x0050, text=» APP240,APP250,APP260, 24-26 C «, t00=0x0006, t01=0x0174}
0x0af8…0b16 Head {h00=0x001a, h01=0x0050, text=» APP270,APP280 27-28 «, t00=0x0007, t01=0x000c}
0x0b16…0b24 Head {h00=0x000a, h01=0x0050, text=»APPOK0«, t00=0x0007, t01=0x002a}
0x0b24…0b3e Head {h00=0x0016, h01=0x0050, text=» MOVE LBIN3,W0 OK «, t00=0x0007, t01=0x0038}
0x0b3e…0b4a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x0052}
0x0b4a…0b58 Head {h00=0x000a, h01=0x0050, text=»APPOK1«, t00=0x0007, t01=0x005e}
0x0b58…0b80 Head {h00=0x0024, h01=0x0050, text=» MOVE LBIN3,W1 OK UNCOND DISPLAY«, t00=0x0007, t01=0x006c}
0x0b80…0b8c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x0094}
0x0b8c…0b9a Head {h00=0x000a, h01=0x0050, text=»APPOK2«, t00=0x0007, t01=0x00a0}
0x0b9a…0bbe Head {h00=0x0020, h01=0x0050, text=» MOVE LBIN3,W2 OK NO DISPLAY«, t00=0x0007, t01=0x00ae}
0x0bbe…0bca Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x00d2}
0x0bca…0bd8 Head {h00=0x000a, h01=0x0050, text=»APNOK3«, t00=0x0007, t01=0x00de}
0x0bd8…0c04 Head {h00=0x0028, h01=0x0050, text=» MOVE LBIN3,W3 NOT OK ERROR MESSAGE «, t00=0x0007, t01=0x00ec}
0x0c04…0c10 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x0118}
0x0c10…0c1e Head {h00=0x000a, h01=0x0050, text=»APNOK4«, t00=0x0007, t01=0x0124}
0x0c1e…0c46 Head {h00=0x0024, h01=0x0050, text=» MOVE LBIN3,W4 NOT OK EDIT-MODE «, t00=0x0007, t01=0x0132}
0x0c46…0c52 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x015a}
0x0c52…0c60 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x0166}
0x0c60…0cb0 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0007, t01=0x0174}
0x0cb0…0cba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0034}
0x0cba…0ce0 Head {h00=0x0022, h01=0x0050, text=»* APPLICATION-ROUTINE NO=1 «, t00=0x0008, t01=0x003e}
0x0ce0…0d04 Head {h00=0x0020, h01=0x0050, text=»* WSMENU FUNCTION VALUE «, t00=0x0008, t01=0x0064}
0x0d04…0d0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0088}
0x0d0e…0d5e Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0008, t01=0x0092}
0x0d5e…0d6c Head {h00=0x000a, h01=0x0050, text=»APP010«, t00=0x0008, t01=0x00e2}
0x0d6c…0d92 Head {h00=0x0022, h01=0x0050, text=» PERF RANGE,W1,W4 ***RANGE 1-4«, t00=0x0008, t01=0x00f0}
0x0d92…0da8 Head {h00=0x0012, h01=0x0050, text=» BOK APPOK0 OK«, t00=0x0008, t01=0x0116}
0x0da8…0dbe Head {h00=0x0012, h01=0x0050, text=» MOVE LBIN4,W6«, t00=0x0008, t01=0x012c}
0x0dbe…0dd6 Head {h00=0x0014, h01=0x0050, text=» B APNOK3 NOT OK«, t00=0x0008, t01=0x0142}
0x0dd6…0de4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x015a}
0x0de4…0e34 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0008, t01=0x0168}
0x0e34…0e3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0028}
0x0e3e…0e64 Head {h00=0x0022, h01=0x0050, text=»* APPLICATION-ROUTINE NO=2 «, t00=0x0009, t01=0x0032}
0x0e64…0e86 Head {h00=0x001e, h01=0x0050, text=»* SECTION NAME CONTROL«, t00=0x0009, t01=0x0058}
0x0e86…0ea6 Head {h00=0x001c, h01=0x0050, text=»* -ALREADY DEFINED? «, t00=0x0009, t01=0x007a}
0x0ea6…0ec0 Head {h00=0x0016, h01=0x0050, text=»* -NOT FOUND? «, t00=0x0009, t01=0x009a}
0x0ec0…0ee6 Head {h00=0x0022, h01=0x0050, text=»* -1ST POSITION ALPHABETIC«, t00=0x0009, t01=0x00b4}
0x0ee6…0ef0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00da}
0x0ef0…0f40 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0009, t01=0x00e4}
0x0f40…0f4e Head {h00=0x000a, h01=0x0050, text=»APP020«, t00=0x0009, t01=0x0134}
0x0f4e…0f68 Head {h00=0x0016, h01=0x0050, text=» MOVE LSTR1,LSTR81«, t00=0x0009, t01=0x0142}
0x0f68…0f8e Head {h00=0x0022, h01=0x0050, text=» MOVE LBIN3,W6 FIELD LENGTH:=6«, t00=0x0009, t01=0x015c}
0x0f8e…0fae Head {h00=0x001c, h01=0x0050, text=» CBL LSTR1,=C'A',APP029 «, t00=0x0009, t01=0x0182}
0x0fae…0fce Head {h00=0x001c, h01=0x0050, text=» CBG LSTR1,=C'Z',APP029 «, t00=0x000a, t01=0x0012}
0x0fce…0ff4 Head {h00=0x0022, h01=0x0050, text=» PERF SPCPAD ***SPACE PADDING «, t00=0x000a, t01=0x0032}
0x0ff4…1024 Head {h00=0x002c, h01=0x0050, text=» CALL ICLEAR,LSTR16 ---ASSRUT:CLEAR ITEM«, t00=0x000a, t01=0x0058}
0x1024…1056 Head {h00=0x002e, h01=0x0050, text=» MOVE LSTR6A,=C' DSDS' TYPE = D(EFINITION)«, t00=0x000a, t01=0x0088}
0x1056…1072 Head {h00=0x0018, h01=0x0050, text=» TYPE = S(ECTION) «, t00=0x000a, t01=0x00ba}
0x1072…10a8 Head {h00=0x0032, h01=0x0050, text=» INSRT LSTR81,W0,W6,LSTR16,W0 NAME=> POS 6-11«, t00=0x000a, t01=0x00d6}
0x10a8…10e8 Head {h00=0x003c, h01=0x0050, text=» XCOPY LSTR81,W5,W1,LSTR6A,GBIN1 STORE TYPE OF DATA = S «, t00=0x000a, t01=0x010c}
0x10e8…1110 Head {h00=0x0024, h01=0x0050, text=» MOVE LBIN1,W24 WORKPOINTER:=24 «, t00=0x000a, t01=0x014c}
0x1110…1130 Head {h00=0x001c, h01=0x0050, text=» ADD LBIN1,W2 GIVING 26 «, t00=0x000a, t01=0x0174}
0x1130…1168 (11, 0, 400) Head {h00=0x0034, h01=0x0050, text=» XCOPY LSTR81,LBIN1,W8,GSTR8A,W0 STORE FILENAME «, t00=0x000b, t01=0x0004}
0x1168…118c Head {h00=0x0020, h01=0x0050, text=» ADD LBIN1,W8 ADJUST POINTER«, t00=0x000b, t01=0x003c}
0x118c…11c4 Head {h00=0x0034, h01=0x0050, text=» XCOPY LSTR81,LBIN1,W6,GSTR6C,W0 STORE VOLUME ID«, t00=0x000b, t01=0x0060}
0x11c4…11f4 Head {h00=0x002c, h01=0x0050, text=» CLEAR LBOOLA FALSE=DISC-ERROR (IF ANY) «, t00=0x000b, t01=0x0098}
0x11f4…1234 Head {h00=0x003c, h01=0x0050, text=» CALL PSEARC,LSTR81,BPOOL(W1) ---SEARCH SECTION ON DISC «, t00=0x000b, t01=0x00c8}
0x1234…1248 Head {h00=0x0010, h01=0x0050, text=» BOK APP028 «, t00=0x000b, t01=0x0108}
0x1248…1274 Head {h00=0x0028, h01=0x0050, text=» BL APP022 JMP IF CR=2 (DISC-ERROR) «, t00=0x000b, t01=0x011c}
0x1274…1298 Head {h00=0x0020, h01=0x0050, text=» SET LBOOLA TRUE=POOL-ERROR «, t00=0x000b, t01=0x0148}
0x1298…12a6 Head {h00=0x000a, h01=0x0050, text=»APP022«, t00=0x000b, t01=0x016c}
0x12a6…12de Head {h00=0x0034, h01=0x0050, text=» CALL PCLOSE,LSTR81,BPOOL(W1) ---CLOSE DISC FILE«, t00=0x000b, t01=0x017a}
0x12de…1306 Head {h00=0x0024, h01=0x0050, text=» CBL GBIN1,W3,APP027 JMP IF NEW «, t00=0x000c, t01=0x0022}
0x1306…1334 Head {h00=0x002a, h01=0x0050, text=» TBT LBOOL4,APP027 JMP IF DUPLICATION «, t00=0x000c, t01=0x004a}
0x1334…1366 Head {h00=0x002e, h01=0x0050, text=» TBT LBOOL8,APP027 JMP DUPL CH. SECT.NAME «, t00=0x000c, t01=0x0078}
0x1366…1374 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x00aa}
0x1374…137e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00b8}
0x137e…139c Head {h00=0x001a, h01=0x0050, text=»* ERROR AT SEARCH «, t00=0x000c, t01=0x00c2}
0x139c…13a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00e0}
0x13a6…13de Head {h00=0x0034, h01=0x0050, text=» XCOPY LBIN3,W0,W2,LSTR81,W20 UNPACK RETCODE BIN«, t00=0x000c, t01=0x00ea}
0x13de…140c Head {h00=0x002a, h01=0x0050, text=» CBE LBIN3,W1,APP02B JMP IF NOT FOUND «, t00=0x000c, t01=0x0122}
0x140c…1430 Head {h00=0x0020, h01=0x0050, text=» MOVE LBIN4,W0 BIT-INDEX:=0 «, t00=0x000c, t01=0x0150}
0x1430…1454 Head {h00=0x0020, h01=0x0050, text=» MOVE LSTR1,=X'31' LOAD '1' «, t00=0x000c, t01=0x0174}
0x1454…1480 Head {h00=0x0028, h01=0x0050, text=» MOVE LSTR16,=X'30' LOAD WITH '0':S «, t00=0x000d, t01=0x0008}
0x1480…148e Head {h00=0x000a, h01=0x0050, text=»APP025«, t00=0x000d, t01=0x0034}
0x148e…14c2 Head {h00=0x0030, h01=0x0050, text=» CALL TESTB,LBIN3,LBIN4 ---TEST BIT (INDEX) «, t00=0x000d, t01=0x0042}
0x14c2…14e6 Head {h00=0x0020, h01=0x0050, text=» BOK APP026 JMP IF FALSE = 0«, t00=0x000d, t01=0x0076}
0x14e6…1524 Head {h00=0x003a, h01=0x0050, text=» XCOPY LSTR16,LBIN4,W1,LSTR1,W0 LOAD '1' WHEN TRUE = 1«, t00=0x000d, t01=0x009a}
0x1524…1532 Head {h00=0x000a, h01=0x0050, text=»APP026«, t00=0x000d, t01=0x00d8}
0x1532…1556 Head {h00=0x0020, h01=0x0050, text=» ADD LBIN4,W1 NEXT BITINDEX «, t00=0x000d, t01=0x00e6}
0x1556…1586 Head {h00=0x002c, h01=0x0050, text=» CBNG LBIN4,W15,APP025 GO ON UNTIL > 15 «, t00=0x000d, t01=0x010a}
0x1586…15ae Head {h00=0x0024, h01=0x0050, text=» MOVE LBIN4,W8 ERRORMESSAGE NO:8«, t00=0x000d, t01=0x013a}
0x15ae…15c0 Head {h00=0x000e, h01=0x0050, text=» B APNOK3 «, t00=0x000d, t01=0x0162}
0x15c0…15ce Head {h00=0x000a, h01=0x0050, text=»APP027«, t00=0x000d, t01=0x0174}
0x15ce…1604 Head {h00=0x0032, h01=0x0050, text=» DLETE LSTR81,W0,W6 DELETE PREVIOUS INSERTION «, t00=0x000d, t01=0x0182}
0x1604…1618 Head {h00=0x0010, h01=0x0050, text=» B APPOK0 OK«, t00=0x000e, t01=0x0028}
0x1618…1626 Head {h00=0x000a, h01=0x0050, text=»APP028«, t00=0x000e, t01=0x003c}
0x1626…165e Head {h00=0x0034, h01=0x0050, text=» CALL PCLOSE,LSTR81,BPOOL(W1) ---CLOSE DISC FILE«, t00=0x000e, t01=0x004a}
0x165e…168c Head {h00=0x002a, h01=0x0050, text=» TBT LBOOL4,APP02A JMP IF DUPLICATION «, t00=0x000e, t01=0x0082}
0x168c…16ae Head {h00=0x001e, h01=0x0050, text=» MOVE LBIN3,W6 POINTER:=6 «, t00=0x000e, t01=0x00b0}
0x16ae…16ec Head {h00=0x003a, h01=0x0050, text=» MATCH LSTR81,LBIN3,W6,GSTR6A,W0,W6 MATCH IF SAME NAME«, t00=0x000e, t01=0x00d2}
0x16ec…1710 Head {h00=0x0020, h01=0x0050, text=» BOK APP027 JMP IF SAME NAME«, t00=0x000e, t01=0x0110}
0x1710…1736 Head {h00=0x0022, h01=0x0050, text=» TBT LBOOL8,APP02A JMP IF OLD «, t00=0x000e, t01=0x0134}
0x1736…1760 Head {h00=0x0026, h01=0x0050, text=» CBG GBIN1,W2,APP027 OK IF UPDATE «, t00=0x000e, t01=0x015a}
0x1760…176e Head {h00=0x000a, h01=0x0050, text=»APP02A«, t00=0x000e, t01=0x0184}
0x176e…17a2 (15, 0, 400) Head {h00=0x0030, h01=0x0050, text=» MOVE LBIN3,=W'28' '.......ALREADY DEFINED' «, t00=0x000f, t01=0x0004}
0x17a2…17b4 Head {h00=0x000e, h01=0x0050, text=» B APP02C «, t00=0x000f, t01=0x0038}
0x17b4…17c2 Head {h00=0x000a, h01=0x0050, text=»APP02B«, t00=0x000f, t01=0x004a}
0x17c2…17ee Head {h00=0x0028, h01=0x0050, text=» MOVE LBIN3,=W'26' '......NOT FOUND'«, t00=0x000f, t01=0x0058}
0x17ee…17fc Head {h00=0x000a, h01=0x0050, text=»APP02C«, t00=0x000f, t01=0x0084}
0x17fc…1826 Head {h00=0x0026, h01=0x0050, text=» DLETE LSTR81,W0,W6 DELETE PREFIX «, t00=0x000f, t01=0x0092}
0x1826…1858 Head {h00=0x002e, h01=0x0050, text=» DLETE LSTR81,W20,W14 DELETE OVERFLOW INFO«, t00=0x000f, t01=0x00bc}
0x1858…1886 Head {h00=0x002a, h01=0x0050, text=» MOVE LBIN4,GBIN1 LOAD FUNCTION NUMBER«, t00=0x000f, t01=0x00ee}
0x1886…18a2 Head {h00=0x0018, h01=0x0050, text=» CBL LBIN4,W3,APP02D«, t00=0x000f, t01=0x011c}
0x18a2…18d0 Head {h00=0x002a, h01=0x0050, text=» SUB LBIN4,W2 CALC FOR DEF. OR SECTION«, t00=0x000f, t01=0x0138}
0x18d0…18de Head {h00=0x000a, h01=0x0050, text=»APP02D«, t00=0x000f, t01=0x0166}
0x18de…1910 Head {h00=0x002e, h01=0x0050, text=» ADD LBIN4,LBIN3 CALC PROPER ERROR-NUMBER «, t00=0x000f, t01=0x0174}
0x1910…1922 Head {h00=0x000e, h01=0x0050, text=» B APNOK3 «, t00=0x0010, t01=0x0016}
0x1922…1930 Head {h00=0x000a, h01=0x0050, text=»APP029«, t00=0x0010, t01=0x0028}
0x1930…195a Head {h00=0x0026, h01=0x0050, text=» MOVE LBIN4,W9 ERROR MESSAGE NO=9 «, t00=0x0010, t01=0x0036}
0x195a…1972 Head {h00=0x0014, h01=0x0050, text=» B APNOK3 NOT OK«, t00=0x0010, t01=0x0060}
0x1972…1980 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0078}
0x1980…19d0 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0010, t01=0x0086}
0x19d0…19da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00d6}
0x19da…1a00 Head {h00=0x0022, h01=0x0050, text=»* APPLICATION-ROUTINE NO=3 «, t00=0x0010, t01=0x00e0}
0x1a00…1a22 Head {h00=0x001e, h01=0x0050, text=»* SECTION TYPE CONTROL «, t00=0x0010, t01=0x0106}
0x1a22…1a2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0128}
0x1a2c…1a7c Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0010, t01=0x0132}
0x1a7c…1a8a Head {h00=0x000a, h01=0x0050, text=»APP030«, t00=0x0010, t01=0x0182}
0x1a8a…1ab0 Head {h00=0x0022, h01=0x0050, text=» PERF RANGE,W1,W6 ***RANGE 1-6«, t00=0x0010, t01=0x0190}
0x1ab0…1ac4 Head {h00=0x0010, h01=0x0050, text=» BOK APPOK0 «, t00=0x0011, t01=0x0026}
0x1ac4…1af0 Head {h00=0x0028, h01=0x0050, text=» MOVE LBIN4,W10 ERROR-MESSAGE NO=10 «, t00=0x0011, t01=0x003a}
0x1af0…1b08 Head {h00=0x0014, h01=0x0050, text=» B APNOK3 NOT OK«, t00=0x0011, t01=0x0066}
0x1b08…1b16 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x007e}
0x1b16…1b66 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0011, t01=0x008c}
0x1b66…1b70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00dc}
0x1b70…1b96 Head {h00=0x0022, h01=0x0050, text=»* APPLICATION-ROUTINE NO=4 «, t00=0x0011, t01=0x00e6}
0x1b96…1bba Head {h00=0x0020, h01=0x0050, text=»* SECTION SIZE ROWS 1-23 «, t00=0x0011, t01=0x010c}
0x1bba…1bc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0130}
0x1bc4…1c14 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0011, t01=0x013a}
0x1c14…1c22 Head {h00=0x000a, h01=0x0050, text=»APP040«, t00=0x0011, t01=0x018a}
0x1c22…1c44 Head {h00=0x001e, h01=0x0050, text=» MOVE VBIN5,W15 INDEX:=15 «, t00=0x0012, t01=0x0008}
0x1c44…1c7c Head {h00=0x0034, h01=0x0050, text=» MOVE LBIN4,GBCD3I(VBIN5) LOAD EFFEKTIV ROW SIZE«, t00=0x0012, t01=0x002a}
0x1c7c…1ca8 Head {h00=0x0028, h01=0x0050, text=» PERF RANGE,LBIN4,ROWS ***RANGE X-23«, t00=0x0012, t01=0x0062}
0x1ca8…1cbe Head {h00=0x0012, h01=0x0050, text=» BOK APPOK0 OK«, t00=0x0012, t01=0x008e}
0x1cbe…1cea Head {h00=0x0028, h01=0x0050, text=» MOVE LBIN4,W11 ERROR MESSAGE NO=11 «, t00=0x0012, t01=0x00a4}
0x1cea…1d20 Head {h00=0x0032, h01=0x0050, text=» MOVE LBCD3A,ROWS LOAD HIGH LIMITFOR ERR-TEXT «, t00=0x0012, t01=0x00d0}
0x1d20…1d32 Head {h00=0x000e, h01=0x0050, text=» B APNOK3 «, t00=0x0012, t01=0x0106}
0x1d32…1d40 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x0118}
0x1d40…1d90 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0012, t01=0x0126}
0x1d90…1d9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0176}
0x1d9a…1dc0 Head {h00=0x0022, h01=0x0050, text=»* APPLICATION-ROUTINE NO=5 «, t00=0x0012, t01=0x0180}
0x1dc0…1de6 Head {h00=0x0022, h01=0x0050, text=»* SECTION SIZE COLUMNS 1-80«, t00=0x0013, t01=0x0016}
0x1de6…1df0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x003c}
0x1df0…1e40 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0013, t01=0x0046}
0x1e40…1e4e Head {h00=0x000a, h01=0x0050, text=»APP050«, t00=0x0013, t01=0x0096}
0x1e4e…1e70 Head {h00=0x001e, h01=0x0050, text=» MOVE VBIN5,W16 INDEX:=16 «, t00=0x0013, t01=0x00a4}
0x1e70…1eac Head {h00=0x0038, h01=0x0050, text=» MOVE LBIN4,GBCD3I(VBIN5) LOAD EFFEKTIV COLUMN SIZE «, t00=0x0013, t01=0x00c6}
0x1eac…1ed8 Head {h00=0x0028, h01=0x0050, text=» PERF RANGE,LBIN4,COLS ***RANGE X-80«, t00=0x0013, t01=0x0102}
0x1ed8…1eec Head {h00=0x0010, h01=0x0050, text=» BOK APPOK0 «, t00=0x0013, t01=0x012e}
0x1eec…1f18 Head {h00=0x0028, h01=0x0050, text=» MOVE LBIN4,W11 ERROR MESSAGE NO=11 «, t00=0x0013, t01=0x0142}
0x1f18…1f4e Head {h00=0x0032, h01=0x0050, text=» MOVE LBCD3A,COLS LOAD HIGH LIMIT FOR ERR-TEXT«, t00=0x0013, t01=0x016e}
0x1f4e…1f60 Head {h00=0x000e, h01=0x0050, text=» B APNOK3 «, t00=0x0014, t01=0x0014}
0x1f60…1f6e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x0026}
0x1f6e…1fbe Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0014, t01=0x0034}
0x1fbe…1fc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0084}
0x1fc8…1fee Head {h00=0x0022, h01=0x0050, text=»* APPLICATION-ROUTINE NO=6 «, t00=0x0014, t01=0x008e}
0x1fee…2006 Head {h00=0x0014, h01=0x0050, text=»* YES OR NO «, t00=0x0014, t01=0x00b4}
0x2006…2010 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00cc}
0x2010…2060 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0014, t01=0x00d6}
0x2060…206e Head {h00=0x000a, h01=0x0050, text=»APP060«, t00=0x0014, t01=0x0126}
0x206e…2096 Head {h00=0x0024, h01=0x0050, text=» PERF YESVNO ***YES AND NO CHECK«, t00=0x0014, t01=0x0134}
0x2096…20b4 Head {h00=0x001a, h01=0x0050, text=» BOK APPOK0 OK Y OR N «, t00=0x0014, t01=0x015c}
0x20b4…20e0 Head {h00=0x0028, h01=0x0050, text=» MOVE LBIN4,W12 ERROR MESSAGE NO=12 «, t00=0x0014, t01=0x017a}
0x20e0…20f2 Head {h00=0x000e, h01=0x0050, text=» B APNOK3 «, t00=0x0015, t01=0x0016}
0x20f2…2100 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x0028}
0x2100…2150 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0015, t01=0x0036}
0x2150…215a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0086}
0x215a…2180 Head {h00=0x0022, h01=0x0050, text=»* APPLICATION-ROUTINE NO=7 «, t00=0x0015, t01=0x0090}
0x2180…21aa Head {h00=0x0026, h01=0x0050, text=»* SCREEN BACKGROUND DECORATION «, t00=0x0015, t01=0x00b6}
0x21aa…21e0 Head {h00=0x0032, h01=0x0050, text=»* -N. NORMAL VIDEO -R. REVERSED IMAGE «, t00=0x0015, t01=0x00e0}
0x21e0…221a Head {h00=0x0036, h01=0x0050, text=»* -L. LOW INTENSITY «, t00=0x0015, t01=0x0116}
0x221a…2254 Head {h00=0x0036, h01=0x0050, text=»* -H. HIGH INTENSITY«, t00=0x0015, t01=0x0150}
0x2254…225e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x018a}
0x225e…22ae (22, 0, 400) Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0016, t01=0x0004}
0x22ae…22bc Head {h00=0x000a, h01=0x0050, text=»APP070«, t00=0x0016, t01=0x0054}
0x22bc…22e8 Head {h00=0x0028, h01=0x0050, text=» MOVE LSTR4A,=C'RH' DECORATION CODES«, t00=0x0016, t01=0x0062}
0x22e8…230a Head {h00=0x001e, h01=0x0050, text=» MOVE LBIN3,W0 POINTER:=0 «, t00=0x0016, t01=0x008e}
0x230a…2336 Head {h00=0x0028, h01=0x0050, text=» MATCH LSTR4A,LBIN3,W4,LSTR81,W0,W1 «, t00=0x0016, t01=0x00b0}
0x2336…235c Head {h00=0x0022, h01=0x0050, text=» BNOK APP079 ILLEGAL DEC. CODE«, t00=0x0016, t01=0x00dc}
0x235c…2366 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0102}
0x2366…2390 Head {h00=0x0026, h01=0x0050, text=»* FURTHER CONTROLS TO BE SOLVED«, t00=0x0016, t01=0x010c}
0x2390…239a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0136}
0x239a…23ae Head {h00=0x0010, h01=0x0050, text=» B APPOK0 OK«, t00=0x0016, t01=0x0140}
0x23ae…23bc Head {h00=0x000a, h01=0x0050, text=»APP079«, t00=0x0016, t01=0x0154}
0x23bc…23e6 Head {h00=0x0026, h01=0x0050, text=» MOVE LBIN4,W6 ERROR-MESSAGE NO-6 «, t00=0x0016, t01=0x0162}
0x23e6…23fe Head {h00=0x0014, h01=0x0050, text=» B APNOK3 NOT OK«, t00=0x0016, t01=0x018c}
0x23fe…240c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x0014}
0x240c…245c Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0017, t01=0x0022}
0x245c…2466 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0072}
0x2466…248c Head {h00=0x0022, h01=0x0050, text=»* APPLICATION-ROUTINE NO=8 «, t00=0x0017, t01=0x007c}
0x248c…24b8 Head {h00=0x0028, h01=0x0050, text=»* STATIC FIELD DECORATION DEFAULT«, t00=0x0017, t01=0x00a2}
0x24b8…24ee Head {h00=0x0032, h01=0x0050, text=»* -N. NORMAL VIDEO -R. REVERSED IMAGE «, t00=0x0017, t01=0x00ce}
0x24ee…2512 Head {h00=0x0020, h01=0x0050, text=»* -L. LOW INTENSITY«, t00=0x0017, t01=0x0104}
0x2512…2538 Head {h00=0x0022, h01=0x0050, text=»* -H. HIGH INTENSITY «, t00=0x0017, t01=0x0128}
0x2538…2562 Head {h00=0x0026, h01=0x0050, text=»* -U. UNDERLINE«, t00=0x0017, t01=0x014e}
0x2562…258c Head {h00=0x0026, h01=0x0050, text=»* -B. BLINKING «, t00=0x0017, t01=0x0178}
0x258c…2596 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0012}
0x2596…25e6 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0018, t01=0x001c}
0x25e6…25f4 Head {h00=0x000a, h01=0x0050, text=»APP080«, t00=0x0018, t01=0x006c}
0x25f4…2622 Head {h00=0x002a, h01=0x0050, text=» MOVE LSTR6A,=C'RHUB' DECORATION CODES«, t00=0x0018, t01=0x007a}
0x2622…2644 Head {h00=0x001e, h01=0x0050, text=» MOVE LBIN3,W0 POINTER:=0 «, t00=0x0018, t01=0x00a8}
0x2644…2670 Head {h00=0x0028, h01=0x0050, text=» MATCH LSTR6A,LBIN3,W6,LSTR81,W0,W1 «, t00=0x0018, t01=0x00ca}
0x2670…2696 Head {h00=0x0022, h01=0x0050, text=» BNOK APP089 ILLEGAL DEC. CODE«, t00=0x0018, t01=0x00f6}
0x2696…26a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x011c}
0x26a0…26ca Head {h00=0x0026, h01=0x0050, text=»* FURTHER CONTROLS TO BE SOLVED«, t00=0x0018, t01=0x0126}
0x26ca…26d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0150}
0x26d4…26e8 Head {h00=0x0010, h01=0x0050, text=» B APPOK0 OK«, t00=0x0018, t01=0x015a}
0x26e8…26f6 Head {h00=0x000a, h01=0x0050, text=»APP089«, t00=0x0018, t01=0x016e}
0x26f6…2720 Head {h00=0x0026, h01=0x0050, text=» MOVE LBIN4,W6 ERROR-MESSAGE NO-6 «, t00=0x0018, t01=0x017c}
0x2720…2738 Head {h00=0x0014, h01=0x0050, text=» B APNOK3 NOT OK«, t00=0x0019, t01=0x0016}
0x2738…2746 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x002e}
0x2746…2796 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0019, t01=0x003c}
0x2796…27a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x008c}
0x27a0…27c6 Head {h00=0x0022, h01=0x0050, text=»* APPLICATION-ROUTINE NO=9 «, t00=0x0019, t01=0x0096}
0x27c6…27e6 Head {h00=0x001c, h01=0x0050, text=»* NUMBER OF HEADLINES«, t00=0x0019, t01=0x00bc}
0x27e6…2810 Head {h00=0x0026, h01=0x0050, text=»* MUST NOT EXCEED MAX ROW NO«, t00=0x0019, t01=0x00dc}
0x2810…281a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0106}
0x281a…286a Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0019, t01=0x0110}
0x286a…2878 Head {h00=0x000a, h01=0x0050, text=»APP090«, t00=0x0019, t01=0x0160}
0x2878…28aa Head {h00=0x002e, h01=0x0050, text=» PERF RANGE,W0,LBIN8 ***RANGE 0-MAX ROW NO«, t00=0x0019, t01=0x016e}
0x28aa…28c0 Head {h00=0x0012, h01=0x0050, text=» BOK APP092 OK«, t00=0x001a, t01=0x0010}
0x28c0…28ec Head {h00=0x0028, h01=0x0050, text=» MOVE LBIN4,W20 ERROR-MESSAGE NO-20 «, t00=0x001a, t01=0x0026}
0x28ec…2916 Head {h00=0x0026, h01=0x0050, text=» MOVE LBCD3A,LBIN8 LOAD MAX ROW NO«, t00=0x001a, t01=0x0052}
0x2916…292e Head {h00=0x0014, h01=0x0050, text=» B APNOK3 NOT OK«, t00=0x001a, t01=0x007c}
0x292e…293c Head {h00=0x000a, h01=0x0050, text=»APP092«, t00=0x001a, t01=0x0094}
0x293c…2964 Head {h00=0x0024, h01=0x0050, text=» MOVE LBIN1,W0 ATTAB-POINTER:=0 «, t00=0x001a, t01=0x00a2}
0x2964…2972 Head {h00=0x000a, h01=0x0050, text=»APP094«, t00=0x001a, t01=0x00ca}
0x2972…29a6 Head {h00=0x0030, h01=0x0050, text=» XCOPY LBIN4,W1,W1,ATTAB,LBIN1 STORE ROW NO «, t00=0x001a, t01=0x00d8}
0x29a6…29d2 Head {h00=0x0028, h01=0x0050, text=» CBE LBIN4,W0,APP099 END-OF-TABLE OK«, t00=0x001a, t01=0x010c}
0x29d2…2a08 Head {h00=0x0032, h01=0x0050, text=» CBG LBIN4,LBIN3,APP099 JMP IF GR NO OF HLINES«, t00=0x001a, t01=0x0138}
0x2a08…2a2c Head {h00=0x0020, h01=0x0050, text=» ADD LBIN1,W2 ADJUST POINTER«, t00=0x001a, t01=0x016e}
0x2a2c…2a60 (27, 0, 400) Head {h00=0x0030, h01=0x0050, text=» XCOPY LBIN4,W1,W1,ATTAB,LBIN1 STORE SEQ NO «, t00=0x001b, t01=0x0004}
0x2a60…2a9a Head {h00=0x0036, h01=0x0050, text=» CBNE LBIN4,=X'00FF',APP098 JMP IF ERR NOT STATIC «, t00=0x001b, t01=0x0038}
0x2a9a…2abe Head {h00=0x0020, h01=0x0050, text=» ADD LBIN1,W2 ADJUST POINTER«, t00=0x001b, t01=0x0072}
0x2abe…2ad6 Head {h00=0x0014, h01=0x0050, text=» B APP094 GO ON «, t00=0x001b, t01=0x0096}
0x2ad6…2ae4 Head {h00=0x000a, h01=0x0050, text=»APP098«, t00=0x001b, t01=0x00ae}
0x2ae4…2b10 Head {h00=0x0028, h01=0x0050, text=» MOVE LBIN4,W21 ERROR MESSAGE NO:21 «, t00=0x001b, t01=0x00bc}
0x2b10…2b22 Head {h00=0x000e, h01=0x0050, text=» B APNOK3 «, t00=0x001b, t01=0x00e8}
0x2b22…2b30 Head {h00=0x000a, h01=0x0050, text=»APP099«, t00=0x001b, t01=0x00fa}
0x2b30…2b44 Head {h00=0x0010, h01=0x0050, text=» B APPOK0 OK«, t00=0x001b, t01=0x0108}
0x2b44…2b52 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x011c}
0x2b52…2ba2 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x001b, t01=0x012a}
0x2ba2…2bac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x017a}
0x2bac…2bd2 Head {h00=0x0022, h01=0x0050, text=»* APPLICATION-ROUTINE NO=10«, t00=0x001b, t01=0x0184}
0x2bd2…2c02 Head {h00=0x002c, h01=0x0050, text=»* CONTROL OF DEFAULT GUIDING MESSAGE «, t00=0x001c, t01=0x001a}
0x2c02…2c3a Head {h00=0x0034, h01=0x0050, text=»* POS 1-2 MUST BE 'S:' FOR A SECTION MESSAGE«, t00=0x001c, t01=0x004a}
0x2c3a…2c70 Head {h00=0x0032, h01=0x0050, text=»* POS 1-2 MUST BE 'M:' FOR A LINE MESSAGE «, t00=0x001c, t01=0x0082}
0x2c70…2cb4 Head {h00=0x0040, h01=0x0050, text=»* NUMBER OF INPUT CHARACTERS MUST BE 1- 6 FOR A SECTION «, t00=0x001c, t01=0x00b8}
0x2cb4…2cfc Head {h00=0x0044, h01=0x0050, text=»* NUMBER OF INPUT CHARACTERS MUST BE 1-78 FOR A LINE MESSAGE«, t00=0x001c, t01=0x00fc}
0x2cfc…2d36 Head {h00=0x0036, h01=0x0050, text=»* POS 1 OF SECTION NAME MUST BE ALPHABETIC A-Z«, t00=0x001c, t01=0x0144}
0x2d36…2d40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x017e}
0x2d40…2d90 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x001c, t01=0x0188}
0x2d90…2d9e Head {h00=0x000a, h01=0x0050, text=»APP100«, t00=0x001d, t01=0x0048}
0x2d9e…2dd2 Head {h00=0x0030, h01=0x0050, text=» MOVE LBIN4,W1 LOAD INDEX NUMB-OF-CHARS-TAB «, t00=0x001d, t01=0x0056}
0x2dd2…2de0 Head {h00=0x000a, h01=0x0050, text=»APP101«, t00=0x001d, t01=0x008a}
0x2de0…2e08 Head {h00=0x0024, h01=0x0050, text=» SUB LBIN1,W2 LENGTH ADJUSTMENT «, t00=0x001d, t01=0x0098}
0x2e08…2e42 Head {h00=0x0036, h01=0x0050, text=» MOVE GBINIA(LBIN4),LBIN1 SAVE NUMB OF CHARACTERS «, t00=0x001d, t01=0x00c0}
0x2e42…2e72 Head {h00=0x002c, h01=0x0050, text=» MOVE LSTR4A,=C'S:M:' LOAD MESSAGE TYPES«, t00=0x001d, t01=0x00fa}
0x2e72…2e94 Head {h00=0x001e, h01=0x0050, text=» MOVE LBIN1,W0 WORKITEM:=0«, t00=0x001d, t01=0x012a}
0x2e94…2eca Head {h00=0x0032, h01=0x0050, text=» MATCH LSTR4A,LBIN1,W4,LSTR81,W0,W2 WHAT TYPE?«, t00=0x001d, t01=0x014c}
0x2eca…2ee4 Head {h00=0x0016, h01=0x0050, text=» BNOK APP109 ERROR«, t00=0x001d, t01=0x0182}
0x2ee4…2f1a Head {h00=0x0032, h01=0x0050, text=» CBL GBINIA(LBIN4),W1,APP108 INCORRECT LENGTH «, t00=0x001e, t01=0x000c}
0x2f1a…2f4c Head {h00=0x002e, h01=0x0050, text=» CBE LBIN1,W2,APP105 JUMP IF LINE MESSAGE «, t00=0x001e, t01=0x0042}
0x2f4c…2f82 Head {h00=0x0032, h01=0x0050, text=» CBG GBINIA(LBIN4),W6,APP108 INCORRECT LENGTH «, t00=0x001e, t01=0x0074}
0x2f82…2fc2 Head {h00=0x003c, h01=0x0050, text=» XCOPY LSTR1,W0,W1,LSTR81,W2 COPY 1ST CHARACTER TO CHECK«, t00=0x001e, t01=0x00aa}
0x2fc2…2ffc Head {h00=0x0036, h01=0x0050, text=» MOVE LBIN1,GBINIA(LBIN4) RELOAD NUMB OF INP CHARS«, t00=0x001e, t01=0x00ea}
0x2ffc…3018 Head {h00=0x0018, h01=0x0050, text=» ADD LBIN1,W2 ADJUST«, t00=0x001e, t01=0x0124}
0x3018…3052 Head {h00=0x0036, h01=0x0050, text=» MOVE GBINIA(LBIN4),W6 SECTION NAME:=6 CHARACTERS «, t00=0x001e, t01=0x0140}
0x3052…3078 Head {h00=0x0022, h01=0x0050, text=» MOVE LBIN3,W8 FIELD LENGTH:=8«, t00=0x001e, t01=0x017a}
0x3078…30a0 Head {h00=0x0024, h01=0x0050, text=» B APP188 OK CHECK 1ST CHARACTER«, t00=0x001f, t01=0x0010}
0x30a0…30ae Head {h00=0x000a, h01=0x0050, text=»APP105«, t00=0x001f, t01=0x0038}
0x30ae…30e8 Head {h00=0x0036, h01=0x0050, text=» CBG GBINIA(LBIN4),=W'78',APP108 INCORRECT LENGTH «, t00=0x001f, t01=0x0046}
0x30e8…30fc Head {h00=0x0010, h01=0x0050, text=» B APPOK0 OK«, t00=0x001f, t01=0x0080}
0x30fc…310a Head {h00=0x000a, h01=0x0050, text=»APP108«, t00=0x001f, t01=0x0094}
0x310a…3134 Head {h00=0x0026, h01=0x0050, text=» MOVE LBIN4,W6 ERROR-MESSAGE NO 6 «, t00=0x001f, t01=0x00a2}
0x3134…314c Head {h00=0x0014, h01=0x0050, text=» B APNOK3 NOT OK«, t00=0x001f, t01=0x00cc}
0x314c…315a Head {h00=0x000a, h01=0x0050, text=»APP109«, t00=0x001f, t01=0x00e4}
0x315a…3186 Head {h00=0x0028, h01=0x0050, text=» MOVE LBIN4,W14 ERROR-MESSAGE NO 14 «, t00=0x001f, t01=0x00f2}
0x3186…319e Head {h00=0x0014, h01=0x0050, text=» B APNOK3 NOT OK«, t00=0x001f, t01=0x011e}
0x319e…31ac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x0136}
0x31ac…31fc Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x001f, t01=0x0144}
0x31fc…3206 (32, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0004}
0x3206…322c Head {h00=0x0022, h01=0x0050, text=»* APPLICATION-ROUTINE NO=11«, t00=0x0020, t01=0x000e}
0x322c…3252 Head {h00=0x0022, h01=0x0050, text=»* ORIGIN-MEDIA TYPE CONTROL«, t00=0x0020, t01=0x0034}
0x3252…3270 Head {h00=0x001a, h01=0x0050, text=»* 0=NO INPUT MEDIA«, t00=0x0020, t01=0x005a}
0x3270…328e Head {h00=0x001a, h01=0x0050, text=»* 1=KEYBOARD INPUT«, t00=0x0020, t01=0x0078}
0x328e…32aa Head {h00=0x0018, h01=0x0050, text=»* >1=OTHER MEDIA «, t00=0x0020, t01=0x0096}
0x32aa…32b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00b2}
0x32b4…3304 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0020, t01=0x00bc}
0x3304…3312 Head {h00=0x000a, h01=0x0050, text=»APP110«, t00=0x0020, t01=0x010c}
0x3312…3338 Head {h00=0x0022, h01=0x0050, text=» PERF RANGE,W0,W9 ***RANGE 0-9«, t00=0x0020, t01=0x011a}
0x3338…334c Head {h00=0x0010, h01=0x0050, text=» BOK APPOK0 «, t00=0x0020, t01=0x0140}
0x334c…3376 Head {h00=0x0026, h01=0x0050, text=» MOVE LBIN4,W6 ERROR-MESSAGE NO=6 «, t00=0x0020, t01=0x0154}
0x3376…338e Head {h00=0x0014, h01=0x0050, text=» B APNOK3 NOT OK«, t00=0x0020, t01=0x017e}
0x338e…339c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x0008}
0x339c…33ec Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0021, t01=0x0016}
0x33ec…33f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0066}
0x33f6…341c Head {h00=0x0022, h01=0x0050, text=»* APPLICATION-ROUTINE NO=12«, t00=0x0021, t01=0x0070}
0x341c…3440 Head {h00=0x0020, h01=0x0050, text=»* DUPLICATION REFERENCES «, t00=0x0021, t01=0x0096}
0x3440…344a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00ba}
0x344a…3476 Head {h00=0x0028, h01=0x0050, text=»* FIELD NAME MUST BE DEFINED «, t00=0x0021, t01=0x00c4}
0x3476…3496 Head {h00=0x001c, h01=0x0050, text=»* -WS99 0<99<10 «, t00=0x0021, t01=0x00f0}
0x3496…34b6 Head {h00=0x001c, h01=0x0050, text=»* -WA99 0<99<100«, t00=0x0021, t01=0x0110}
0x34b6…34d6 Head {h00=0x001c, h01=0x0050, text=»* -WN99 0<99<100«, t00=0x0021, t01=0x0130}
0x34d6…34e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0150}
0x34e0…3530 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0021, t01=0x015a}
0x3530…353e Head {h00=0x000a, h01=0x0050, text=»APP120«, t00=0x0022, t01=0x001a}
0x353e…3578 Head {h00=0x0036, h01=0x0050, text=» MOVE LSTR6A,=C'WSWAWN' LOAD WSM WORK ITEM PREFIX «, t00=0x0022, t01=0x0028}
0x3578…359e Head {h00=0x0022, h01=0x0050, text=» MOVE LBIN4,W0 WORKPOINTER:=0 «, t00=0x0022, t01=0x0062}
0x359e…35d8 Head {h00=0x0036, h01=0x0050, text=» MATCH LSTR6A,LBIN4,W6,LSTR81,W0,W2 SEARCH WSMWORK«, t00=0x0022, t01=0x0088}
0x35d8…3600 Head {h00=0x0024, h01=0x0050, text=» BOK APP122 JMP IF WSM WORK ITEM«, t00=0x0022, t01=0x00c2}
0x3600…362e Head {h00=0x002a, h01=0x0050, text=» CBG LBIN1,W4,APP129 NUMB OF CHARS > 4«, t00=0x0022, t01=0x00ea}
0x362e…3654 Head {h00=0x0022, h01=0x0050, text=» MOVE LBIN3,W4 FIELD LENGTH:=4«, t00=0x0022, t01=0x0118}
0x3654…367a Head {h00=0x0022, h01=0x0050, text=» PERF SPCPAD ***SPACE PADDING «, t00=0x0022, t01=0x013e}
0x367a…36a0 Head {h00=0x0022, h01=0x0050, text=» MOVE LBIN4,W0 WORKPOINTER:=0 «, t00=0x0022, t01=0x0164}
0x36a0…36e0 Head {h00=0x003c, h01=0x0050, text=» MATCH FIDTAB,LBIN4,LFBIN,LSTR81,W0,W4 SERCH FIELD NAME «, t00=0x0022, t01=0x018a}
0x36e0…3708 Head {h00=0x0024, h01=0x0050, text=» BOK APPOK0 FIELD NAME FOUND OK «, t00=0x0023, t01=0x003a}
0x3708…372a Head {h00=0x001e, h01=0x0050, text=» B APP129 BRANCH ON ERROR «, t00=0x0023, t01=0x0062}
0x372a…3734 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0084}
0x3734…375c Head {h00=0x0024, h01=0x0050, text=»* CHECK UP DATA TABLE T99:99 «, t00=0x0023, t01=0x008e}
0x375c…3766 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00b6}
0x3766…3774 Head {h00=0x000a, h01=0x0050, text=»APP122«, t00=0x0023, t01=0x00c0}
0x3774…37a4 Head {h00=0x002c, h01=0x0050, text=» CBE LBIN1,W4,APP123 JMP IF 4 INP CHARS «, t00=0x0023, t01=0x00ce}
0x37a4…37ce Head {h00=0x0026, h01=0x0050, text=» MOVE LBIN4,W1 ERROR MESSAGE NO:=1«, t00=0x0023, t01=0x00fe}
0x37ce…37e0 Head {h00=0x000e, h01=0x0050, text=» B APNOK3 «, t00=0x0023, t01=0x0128}
0x37e0…37ee Head {h00=0x000a, h01=0x0050, text=»APP123«, t00=0x0023, t01=0x013a}
0x37ee…3826 Head {h00=0x0034, h01=0x0050, text=» DLETE LSTR81,W0,W2 DELETE WSM WORK ITEM PREFIX «, t00=0x0023, t01=0x0148}
0x3826…3850 Head {h00=0x0026, h01=0x0050, text=» MOVE LBIN1,W9 HIGH-LIMIT FOR WS09«, t00=0x0023, t01=0x0180}
0x3850…3876 Head {h00=0x0022, h01=0x0050, text=» CBL LBIN4,W2,APP124 JMP IF WS«, t00=0x0024, t01=0x001a}
0x3876…38aa Head {h00=0x0030, h01=0x0050, text=» MOVE LBIN1,=W'99' HIGH-LIMIT FOR WA99 WN99 «, t00=0x0024, t01=0x0040}
0x38aa…38b8 Head {h00=0x000a, h01=0x0050, text=»APP124«, t00=0x0024, t01=0x0074}
0x38b8…38e4 Head {h00=0x0028, h01=0x0050, text=» PERF RANGE,W0,LBIN1 ***RANGE 0-9/99«, t00=0x0024, t01=0x0082}
0x38e4…3906 Head {h00=0x001e, h01=0x0050, text=» BNOK APP128 JMP IF ERROR «, t00=0x0024, t01=0x00ae}
0x3906…3938 Head {h00=0x002e, h01=0x0050, text=» COPY LSTR1,W0,W1,LSTR81,W0 1ST DIGIT-POS «, t00=0x0024, t01=0x00d0}
0x3938…3968 Head {h00=0x002c, h01=0x0050, text=» CBG LSTR1,=C'9',APP137 JMP IF NOT DIGIT«, t00=0x0024, t01=0x0102}
0x3968…399a Head {h00=0x002e, h01=0x0050, text=» CBL LSTR1,=C'0',APP137 JMP. IF NOT DIGIT «, t00=0x0024, t01=0x0132}
0x399a…39dc Head {h00=0x003e, h01=0x0050, text=» INSRT LSTR81,W0,W2,LSTR6A,LBIN4 INSERT WSMWORKITEM PREFIX«, t00=0x0024, t01=0x0164}
0x39dc…39ee Head {h00=0x000e, h01=0x0050, text=» B APPOK0 «, t00=0x0025, t01=0x0016}
0x39ee…39fc Head {h00=0x000a, h01=0x0050, text=»APP128«, t00=0x0025, t01=0x0028}
0x39fc…3a3e Head {h00=0x003e, h01=0x0050, text=» INSRT LSTR81,W0,W2,LSTR6A,LBIN4 INSERT WSMWORKITEM PREFIX«, t00=0x0025, t01=0x0036}
0x3a3e…3a4c Head {h00=0x000a, h01=0x0050, text=»APP129«, t00=0x0025, t01=0x0078}
0x3a4c…3a76 Head {h00=0x0026, h01=0x0050, text=» MOVE LBIN4,W17 ERRORMESSAGE NO=17«, t00=0x0025, t01=0x0086}
0x3a76…3a8e Head {h00=0x0014, h01=0x0050, text=» B APNOK3 NOT OK«, t00=0x0025, t01=0x00b0}
0x3a8e…3a9c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x00c8}
0x3a9c…3aec Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0025, t01=0x00d6}
0x3aec…3af6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0126}
0x3af6…3b1c Head {h00=0x0022, h01=0x0050, text=»* APPLICATION-ROUTINE NO=13«, t00=0x0025, t01=0x0130}
0x3b1c…3b40 Head {h00=0x0020, h01=0x0050, text=»* AUTO SKIP/DUP OR BYPASS«, t00=0x0025, t01=0x0156}
0x3b40…3b4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x017a}
0x3b4a…3b9a Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0025, t01=0x0184}
0x3b9a…3ba8 Head {h00=0x000a, h01=0x0050, text=»APP130«, t00=0x0026, t01=0x0044}
0x3ba8…3bc2 Head {h00=0x0016, h01=0x0050, text=» MOVE LSTR1,LSTR81«, t00=0x0026, t01=0x0052}
0x3bc2…3bee Head {h00=0x0028, h01=0x0050, text=» CBE LSTR1,DUPL,APP132 JMP IF 'D' OK«, t00=0x0026, t01=0x006c}
0x3bee…3c1c Head {h00=0x002a, h01=0x0050, text=» CBE LSTR1,BYPASS,APP138 JMP IF B' OK «, t00=0x0026, t01=0x0098}
0x3c1c…3c48 Head {h00=0x0028, h01=0x0050, text=» CBE LSTR1,SKIP,APP138 JMP IF 'S' OK«, t00=0x0026, t01=0x00c6}
0x3c48…3c72 Head {h00=0x0026, h01=0x0050, text=» CBE LSTR1,NO,APP138 JMP IF 'N' OK«, t00=0x0026, t01=0x00f2}
0x3c72…3c84 Head {h00=0x000e, h01=0x0050, text=» B APP139 «, t00=0x0026, t01=0x011c}
0x3c84…3c92 Head {h00=0x000a, h01=0x0050, text=»APP132«, t00=0x0026, t01=0x012e}
0x3c92…3cc4 Head {h00=0x002e, h01=0x0050, text=» CALL EMPTYT,GSTR1I(W24) ---CHECK IF EMPTY«, t00=0x0026, t01=0x013c}
0x3cc4…3cf2 Head {h00=0x002a, h01=0x0050, text=» BNOK APP137 JMP IF EMPTY = N(O) DUPL «, t00=0x0026, t01=0x016e}
0x3cf2…3d2a Head {h00=0x0034, h01=0x0050, text=» CBE GSTR1I(W24),YES,APP138 JMP IF Y(ES) DUPL OK«, t00=0x0027, t01=0x000c}
0x3d2a…3d38 Head {h00=0x000a, h01=0x0050, text=»APP137«, t00=0x0027, t01=0x0044}
0x3d38…3d62 Head {h00=0x0026, h01=0x0050, text=» MOVE LBIN4,W6 ERROR-MESSAGE NO=6 «, t00=0x0027, t01=0x0052}
0x3d62…3d7a Head {h00=0x0014, h01=0x0050, text=» B APNOK3 NOT OK«, t00=0x0027, t01=0x007c}
0x3d7a…3d88 Head {h00=0x000a, h01=0x0050, text=»APP138«, t00=0x0027, t01=0x0094}
0x3d88…3d9a Head {h00=0x000e, h01=0x0050, text=» B APPOK0 «, t00=0x0027, t01=0x00a2}
0x3d9a…3da8 Head {h00=0x000a, h01=0x0050, text=»APP139«, t00=0x0027, t01=0x00b4}
0x3da8…3dd4 Head {h00=0x0028, h01=0x0050, text=» MOVE LBIN4,W18 ERROR-MESSAGE NO-18 «, t00=0x0027, t01=0x00c2}
0x3dd4…3dec Head {h00=0x0014, h01=0x0050, text=» B APNOK3 NOT OK«, t00=0x0027, t01=0x00ee}
0x3dec…3dfa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x0106}
0x3dfa…3e4a Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0027, t01=0x0114}
0x3e4a…3e54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0164}
0x3e54…3e7a Head {h00=0x0022, h01=0x0050, text=»* APPLICATION-ROUTINE NO=14«, t00=0x0027, t01=0x016e}
0x3e7a…3ea4 (40, 0, 400) Head {h00=0x0026, h01=0x0050, text=»* L(EFT) OR R(IGHT) ADJUSTED ? «, t00=0x0028, t01=0x0004}
0x3ea4…3eae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x002e}
0x3eae…3efe Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0028, t01=0x0038}
0x3efe…3f0c Head {h00=0x000a, h01=0x0050, text=»APP140«, t00=0x0028, t01=0x0088}
0x3f0c…3f26 Head {h00=0x0016, h01=0x0050, text=» MOVE LSTR1,LSTR81«, t00=0x0028, t01=0x0096}
0x3f26…3f44 Head {h00=0x001a, h01=0x0050, text=» CBE LSTR1,LEFT,APP145«, t00=0x0028, t01=0x00b0}
0x3f44…3f64 Head {h00=0x001c, h01=0x0050, text=» CBE LSTR1,RIGHT,APP145 «, t00=0x0028, t01=0x00ce}
0x3f64…3f90 Head {h00=0x0028, h01=0x0050, text=» MOVE LBIN4,W19 ERROR MESSAGE NO=19 «, t00=0x0028, t01=0x00ee}
0x3f90…3fa8 Head {h00=0x0014, h01=0x0050, text=» B APNOK3 NOT OK«, t00=0x0028, t01=0x011a}
0x3fa8…3fbc Head {h00=0x0010, h01=0x0050, text=»APP145 OK «, t00=0x0028, t01=0x0132}
0x3fbc…3fd0 Head {h00=0x0010, h01=0x0050, text=» B APPOK0 OK«, t00=0x0028, t01=0x0146}
0x3fd0…3fde Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x015a}
0x3fde…402e Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0028, t01=0x0168}
0x402e…4038 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0028}
0x4038…405e Head {h00=0x0022, h01=0x0050, text=»* APPLICATION-ROUTINE NO=15«, t00=0x0029, t01=0x0032}
0x405e…4084 Head {h00=0x0022, h01=0x0050, text=»* PRINTOUT POSITION CONTROL«, t00=0x0029, t01=0x0058}
0x4084…408e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x007e}
0x408e…40de Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0029, t01=0x0088}
0x40de…40ec Head {h00=0x000a, h01=0x0050, text=»APP150«, t00=0x0029, t01=0x00d8}
0x40ec…4116 Head {h00=0x0026, h01=0x0050, text=» MOVE LBIN4,=W'127' HIGHLIMIT=127 «, t00=0x0029, t01=0x00e6}
0x4116…4142 Head {h00=0x0028, h01=0x0050, text=» PERF RANGE,W1,LBIN4 ***RANGE 1-127 «, t00=0x0029, t01=0x0110}
0x4142…415a Head {h00=0x0014, h01=0x0050, text=» BNOK APP169 NOK«, t00=0x0029, t01=0x013c}
0x415a…418a Head {h00=0x002c, h01=0x0050, text=» XCOPY LBIN4,W1,W1,GBINIA(W7),W0 ROW NO «, t00=0x0029, t01=0x0154}
0x418a…41aa Head {h00=0x001c, h01=0x0050, text=» CBL LBIN3,LBIN4,APP159 «, t00=0x0029, t01=0x0184}
0x41aa…41be Head {h00=0x0010, h01=0x0050, text=» B APPOK0 OK«, t00=0x002a, t01=0x0014}
0x41be…41cc Head {h00=0x000a, h01=0x0050, text=»APP159«, t00=0x002a, t01=0x0028}
0x41cc…41fa Head {h00=0x002a, h01=0x0050, text=» MOVE LBIN4,=W'25' ERROR-MESSAGENO=25 «, t00=0x002a, t01=0x0036}
0x41fa…4212 Head {h00=0x0014, h01=0x0050, text=» B APNOK3 NOT OK«, t00=0x002a, t01=0x0064}
0x4212…4220 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x007c}
0x4220…4270 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x002a, t01=0x008a}
0x4270…427a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00da}
0x427a…42a0 Head {h00=0x0022, h01=0x0050, text=»* APPLICATION-ROUTINE NO=16«, t00=0x002a, t01=0x00e4}
0x42a0…42c8 Head {h00=0x0024, h01=0x0050, text=»* PRINTOUT POSITION CONTROL «, t00=0x002a, t01=0x010a}
0x42c8…42d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0132}
0x42d2…4322 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x002a, t01=0x013c}
0x4322…4330 Head {h00=0x000a, h01=0x0050, text=»APP160«, t00=0x002a, t01=0x018c}
0x4330…435a Head {h00=0x0026, h01=0x0050, text=» MOVE LBIN4,=W'127' HIGHLIMIT=127 «, t00=0x002b, t01=0x000a}
0x435a…4386 Head {h00=0x0028, h01=0x0050, text=» PERF RANGE,W1,LBIN4 ***RANGE 1-127 «, t00=0x002b, t01=0x0034}
0x4386…439e Head {h00=0x0014, h01=0x0050, text=» BNOK APP169 NOK«, t00=0x002b, t01=0x0060}
0x439e…43c4 Head {h00=0x0022, h01=0x0050, text=» MOVE LBIN4,GBCD3I(W8) ROW NO «, t00=0x002b, t01=0x0078}
0x43c4…43ee Head {h00=0x0026, h01=0x0050, text=» XCOPY LBIN3,W0,W1,LBIN4,W1 ROW NO«, t00=0x002b, t01=0x009e}
0x43ee…4414 Head {h00=0x0022, h01=0x0050, text=» CBNG LBIN3,GBINIA(W7),APP159 «, t00=0x002b, t01=0x00c8}
0x4414…4426 Head {h00=0x000e, h01=0x0050, text=» B APPOK0 «, t00=0x002b, t01=0x00ee}
0x4426…4434 Head {h00=0x000a, h01=0x0050, text=»APP169«, t00=0x002b, t01=0x0100}
0x4434…4456 Head {h00=0x001e, h01=0x0050, text=» MOVE VBIN5,W12 INDEX:=12 «, t00=0x002b, t01=0x010e}
0x4456…448c Head {h00=0x0032, h01=0x0050, text=» MOVE GBCD3I(VBIN5),W1 LOAD EFFEKTIV ROW SIZE «, t00=0x002b, t01=0x0130}
0x448c…44a6 Head {h00=0x0016, h01=0x0050, text=» MOVE LBCD3A,LBIN4«, t00=0x002b, t01=0x0166}
0x44a6…44d2 Head {h00=0x0028, h01=0x0050, text=» MOVE LBIN4,W11 ERROR-MESSAGE NO=11 «, t00=0x002b, t01=0x0180}
0x44d2…44ea Head {h00=0x0014, h01=0x0050, text=» B APNOK3 NOT OK«, t00=0x002c, t01=0x001c}
0x44ea…44f8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x0034}
0x44f8…4548 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x002c, t01=0x0042}
0x4548…4552 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0092}
0x4552…4578 Head {h00=0x0022, h01=0x0050, text=»* APPLICATION-ROUTINE NO=17«, t00=0x002c, t01=0x009c}
0x4578…4596 Head {h00=0x001a, h01=0x0050, text=»* DEFAULT VALUE «, t00=0x002c, t01=0x00c2}
0x4596…45a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00e0}
0x45a0…45f0 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x002c, t01=0x00ea}
0x45f0…45fe Head {h00=0x000a, h01=0x0050, text=»APP170«, t00=0x002c, t01=0x013a}
0x45fe…4630 Head {h00=0x002e, h01=0x0050, text=» MOVE GBINIA(W2),LBIN1 SAVE NUMB OF CHARS «, t00=0x002c, t01=0x0148}
0x4630…4644 Head {h00=0x0010, h01=0x0050, text=» B APPOK0 OK«, t00=0x002c, t01=0x017a}
0x4644…4652 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x018e}
0x4652…46a2 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x002d, t01=0x000c}
0x46a2…46ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x005c}
0x46ac…46d2 Head {h00=0x0022, h01=0x0050, text=»* APPLICATION-ROUTINE NO=18«, t00=0x002d, t01=0x0066}
0x46d2…46f2 Head {h00=0x001c, h01=0x0050, text=»* FIELD NAME CONTROL «, t00=0x002d, t01=0x008c}
0x46f2…46fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00ac}
0x46fc…474c Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x002d, t01=0x00b6}
0x474c…475a Head {h00=0x000a, h01=0x0050, text=»APP180«, t00=0x002d, t01=0x0106}
0x475a…477a Head {h00=0x001c, h01=0x0050, text=» MOVE LSTR9A,=C' ' SPACE«, t00=0x002d, t01=0x0114}
0x477a…47a0 Head {h00=0x0022, h01=0x0050, text=» MOVE LBIN20,W0 CLEAR POINTER «, t00=0x002d, t01=0x0134}
0x47a0…47e4 Head {h00=0x0040, h01=0x0050, text=» MATCH LSTR81,LBIN20,LBIN1,LSTR9A,W0,W1 SPACE IN FIELD ID ? «, t00=0x002d, t01=0x015a}
0x47e4…4802 Head {h00=0x001a, h01=0x0050, text=» BNE APP180A NOT FOUND«, t00=0x002e, t01=0x000e}
0x4802…4834 Head {h00=0x002e, h01=0x0050, text=» ADD LBIN20,W1 ADJUST FOUND SPACE POSITION«, t00=0x002e, t01=0x002c}
0x4834…4866 Head {h00=0x002e, h01=0x0050, text=» CBNL LBIN20,LBIN1,APP180A JMP IF NOT LESS«, t00=0x002e, t01=0x005e}
0x4866…489e Head {h00=0x0034, h01=0x0050, text=» MOVE LBIN3,LBIN1 LOAD NUMB OF INPUT CHARACTERS «, t00=0x002e, t01=0x0090}
0x489e…48d0 Head {h00=0x002e, h01=0x0050, text=» SUB LBIN3,LBIN20 CALC REST TO INVESTIGATE«, t00=0x002e, t01=0x00c8}
0x48d0…4918 Head {h00=0x0044, h01=0x0050, text=» MATCH LSTR81,LBIN20,LBIN3,LSTR9A,W0,LBIN3 MATCH IF REST = SPACE«, t00=0x002e, t01=0x00fa}
0x4918…4940 Head {h00=0x0024, h01=0x0050, text=» BOK APP180A OK IF REST = SPACES«, t00=0x002e, t01=0x0142}
0x4940…496c Head {h00=0x0028, h01=0x0050, text=» MOVE LBIN4,=W'32' ERROR MESSAGE:=32«, t00=0x002e, t01=0x016a}
0x496c…497e Head {h00=0x000e, h01=0x0050, text=» B APNOK3 «, t00=0x002f, t01=0x0008}
0x497e…498e Head {h00=0x000c, h01=0x0050, text=»APP180A «, t00=0x002f, t01=0x001a}
0x498e…49c8 Head {h00=0x0036, h01=0x0050, text=» CALL GETIND,STMTS,VBIN8,LBIN3 ---GET ITEM LENGTH «, t00=0x002f, t01=0x002a}
0x49c8…49f6 Head {h00=0x002a, h01=0x0050, text=» MOVE LBIN4,W0 INPUT BUFFER POINTER:=0«, t00=0x002f, t01=0x0064}
0x49f6…4a2c Head {h00=0x0032, h01=0x0050, text=» PERF BSVSEA,LBIN1,VBIN5 ***BASIC VERB SEARCH «, t00=0x002f, t01=0x0092}
0x4a2c…4a54 Head {h00=0x0024, h01=0x0050, text=» BNOK APP185 NO BASIC VERB GO ON«, t00=0x002f, t01=0x00c8}
0x4a54…4a62 Head {h00=0x000a, h01=0x0050, text=»APP183«, t00=0x002f, t01=0x00f0}
0x4a62…4a8e Head {h00=0x0028, h01=0x0050, text=» MOVE LBIN4,=W'31' ERROR-MESSAGE:=31«, t00=0x002f, t01=0x00fe}
0x4a8e…4aa0 Head {h00=0x000e, h01=0x0050, text=» B APNOK3 «, t00=0x002f, t01=0x012a}
0x4aa0…4aae Head {h00=0x000a, h01=0x0050, text=»APP185«, t00=0x002f, t01=0x013c}
0x4aae…4ae4 Head {h00=0x0032, h01=0x0050, text=» CBNE LBIN1,W3,APP186 JMP IF INPUTLENGTH /= 3 «, t00=0x002f, t01=0x014a}
0x4ae4…4b1e Head {h00=0x0036, h01=0x0050, text=» CALL GETIND,OPRTS,VBIN8,LBIN3 ---GET ITEM LENGTH «, t00=0x002f, t01=0x0180}
0x4b1e…4b44 Head {h00=0x0022, h01=0x0050, text=» MOVE LBIN3,=W'29' POINTER:=29«, t00=0x0030, t01=0x002a}
0x4b44…4b72 Head {h00=0x002a, h01=0x0050, text=» SUB VBIN8,LBIN3 CALC LENGTH TO MATCH «, t00=0x0030, t01=0x0050}
0x4b72…4bae Head {h00=0x0038, h01=0x0050, text=» MATCH OPRTS,LBIN3,VBIN8,LSTR81,W0,W3 MATCH FUNCTION«, t00=0x0030, t01=0x007e}
0x4bae…4bd2 Head {h00=0x0020, h01=0x0050, text=» BNOK APP187 NO FUNCTION OK «, t00=0x0030, t01=0x00ba}
0x4bd2…4c0c Head {h00=0x0036, h01=0x0050, text=» XCOPY LBIN4,W1,W1,OPRVAL,LBIN3 GET OPERATION CODE«, t00=0x0030, t01=0x00de}
0x4c0c…4c4e Head {h00=0x003e, h01=0x0050, text=» CBNE LBIN4,=X'00FF',APP183 JMP IF OPERATION CODE=FUNCTION«, t00=0x0030, t01=0x0118}
0x4c4e…4c5c Head {h00=0x000a, h01=0x0050, text=»APP187«, t00=0x0030, t01=0x015a}
0x4c5c…4c80 Head {h00=0x0020, h01=0x0050, text=» MOVE LBIN3,W20 POINTER:=20 «, t00=0x0030, t01=0x0168}
0x4c80…4caa Head {h00=0x0026, h01=0x0050, text=» MATCH OPRTS,LBIN3,W3,LSTR81,W0,W3«, t00=0x0030, t01=0x018c}
0x4caa…4cd4 Head {h00=0x0026, h01=0x0050, text=» BOK APP183 NOT OK IF STR FUNCTION«, t00=0x0031, t01=0x0026}
0x4cd4…4ce2 Head {h00=0x000a, h01=0x0050, text=»APP186«, t00=0x0031, t01=0x0050}
0x4ce2…4d08 Head {h00=0x0022, h01=0x0050, text=» MOVE LBIN3,W4 FIELD LENGTH:=4«, t00=0x0031, t01=0x005e}
0x4d08…4d2e Head {h00=0x0022, h01=0x0050, text=» PERF SPCPAD ***SPACE PADDING «, t00=0x0031, t01=0x0084}
0x4d2e…4d54 Head {h00=0x0022, h01=0x0050, text=» MOVE LBIN4,W0 WORKPOINTER:=0 «, t00=0x0031, t01=0x00aa}
0x4d54…4d94 Head {h00=0x003c, h01=0x0050, text=» MATCH FIDTAB,LBIN4,LFBIN,LSTR81,W0,W4 SERCH FIELD NAME «, t00=0x0031, t01=0x00d0}
0x4d94…4dc0 Head {h00=0x0028, h01=0x0050, text=» BNOK APP182 FIELD NAME NOT FOUND OK«, t00=0x0031, t01=0x0110}
0x4dc0…4df4 Head {h00=0x0030, h01=0x0050, text=» ADD LBIN4,W4 ADJUST POINTER TO REACH SEQ.NO«, t00=0x0031, t01=0x013c}
0x4df4…4e26 Head {h00=0x002e, h01=0x0050, text=» XCOPY LBIN3,W1,W1,FIDTAB,LBIN4 GET SEQ NO«, t00=0x0031, t01=0x0170}
0x4e26…4e60 Head {h00=0x0036, h01=0x0050, text=» CBE LBIN3,W0,APP181 NEW FIELD NOT OK WITH SAME ID«, t00=0x0032, t01=0x0012}
0x4e60…4e9a Head {h00=0x0036, h01=0x0050, text=» CBE LBIN3,LBIN12,APP18B SAME SEQ.NO & F-ID => OK «, t00=0x0032, t01=0x004c}
0x4e9a…4ea8 Head {h00=0x000a, h01=0x0050, text=»APP181«, t00=0x0032, t01=0x0086}
0x4ea8…4ec4 Head {h00=0x0018, h01=0x0050, text=» SUB LBIN4,W4 ADJUST«, t00=0x0032, t01=0x0094}
0x4ec4…4ef2 Head {h00=0x002a, h01=0x0050, text=» CALL WXDIV,LBIN4,W5,LBIN4 CALC SEQ NO«, t00=0x0032, t01=0x00b0}
0x4ef2…4f1a Head {h00=0x0024, h01=0x0050, text=» ADD LBIN4,W1 ....WHEN NEW FIELD«, t00=0x0032, t01=0x00de}
0x4f1a…4f4e Head {h00=0x0030, h01=0x0050, text=» CBE LBIN4,LBIN12,APP18B JMP IF SAME SEQ NO «, t00=0x0032, t01=0x0106}
0x4f4e…4f7a Head {h00=0x0028, h01=0x0050, text=» MOVE LBIN4,W15 ERROR MESSAGE NO=15 «, t00=0x0032, t01=0x013a}
0x4f7a…4f92 Head {h00=0x0014, h01=0x0050, text=» B APNOK3 NOT OK«, t00=0x0032, t01=0x0166}
0x4f92…4fa0 Head {h00=0x000a, h01=0x0050, text=»APP18B«, t00=0x0032, t01=0x017e}
0x4fa0…4fc0 Head {h00=0x001c, h01=0x0050, text=» MOVE LBIN1,W0 =NO INPUT«, t00=0x0032, t01=0x018c}
0x4fc0…4fea Head {h00=0x0026, h01=0x0050, text=» CALL ICLEAR,LSTR81 ---CLEAR ITEM «, t00=0x0033, t01=0x001c}
0x4fea…4ffc Head {h00=0x000e, h01=0x0050, text=» B APPOK0 «, t00=0x0033, t01=0x0046}
0x4ffc…500a Head {h00=0x000a, h01=0x0050, text=»APP182«, t00=0x0033, t01=0x0058}
0x500a…5044 Head {h00=0x0036, h01=0x0050, text=» MOVE LSTR6A,=C'WSWAWN' LOAD WSM WORK ITEM PREFIX «, t00=0x0033, t01=0x0066}
0x5044…506a Head {h00=0x0022, h01=0x0050, text=» MOVE LBIN4,W0 WORKPOINTER:=0 «, t00=0x0033, t01=0x00a0}
0x506a…50a4 Head {h00=0x0036, h01=0x0050, text=» MATCH LSTR6A,LBIN4,W6,LSTR81,W0,W2 SEARCH WSMWORK«, t00=0x0033, t01=0x00c6}
0x50a4…50d4 Head {h00=0x002c, h01=0x0050, text=» BNOK APP184 WSM WORK ITEM NOT FOUND OK «, t00=0x0033, t01=0x0100}
0x50d4…5100 Head {h00=0x0028, h01=0x0050, text=» MOVE LBIN4,W16 ERROR MESSAGE NO=16 «, t00=0x0033, t01=0x0130}
0x5100…5118 Head {h00=0x0014, h01=0x0050, text=» B APNOK3 NOT OK«, t00=0x0033, t01=0x015c}
0x5118…5126 Head {h00=0x000a, h01=0x0050, text=»APP184«, t00=0x0033, t01=0x0174}
0x5126…5140 Head {h00=0x0016, h01=0x0050, text=» MOVE LSTR1,LSTR81«, t00=0x0033, t01=0x0182}
0x5140…5166 Head {h00=0x0022, h01=0x0050, text=» MOVE LBIN3,W4 FIELD LENGTH:=4«, t00=0x0034, t01=0x000c}
0x5166…5174 Head {h00=0x000a, h01=0x0050, text=»APP188«, t00=0x0034, t01=0x0032}
0x5174…5194 Head {h00=0x001c, h01=0x0050, text=» CBL LSTR1,=C'A',APP189 «, t00=0x0034, t01=0x0040}
0x5194…51b4 Head {h00=0x001c, h01=0x0050, text=» CBG LSTR1,=C'Z',APP189 «, t00=0x0034, t01=0x0060}
0x51b4…51da Head {h00=0x0022, h01=0x0050, text=» PERF SPCPAD ***SPACE PADDING «, t00=0x0034, t01=0x0080}
0x51da…51fe Head {h00=0x0020, h01=0x0050, text=» B APPOK0 1ST CHARACTER OK «, t00=0x0034, t01=0x00a6}
0x51fe…520c Head {h00=0x000a, h01=0x0050, text=»APP189«, t00=0x0034, t01=0x00ca}
0x520c…5236 Head {h00=0x0026, h01=0x0050, text=» MOVE LBIN4,W9 ERROR MESSAGE NO=9 «, t00=0x0034, t01=0x00d8}
0x5236…524e Head {h00=0x0014, h01=0x0050, text=» B APNOK3 NOT OK«, t00=0x0034, t01=0x0102}
0x524e…525c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0034, t01=0x011a}
0x525c…52ac Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0034, t01=0x0128}
0x52ac…52b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0178}
0x52b6…52dc Head {h00=0x0022, h01=0x0050, text=»* APPLICATION-ROUTINE NO=19«, t00=0x0034, t01=0x0182}
0x52dc…52fc Head {h00=0x001c, h01=0x0050, text=»* VOLUME NAME CONTROL«, t00=0x0035, t01=0x0018}
0x52fc…5306 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0038}
0x5306…5356 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0035, t01=0x0042}
0x5356…5364 Head {h00=0x000a, h01=0x0050, text=»APP190«, t00=0x0035, t01=0x0092}
0x5364…538a Head {h00=0x0022, h01=0x0050, text=» MOVE LBIN3,W6 FIELD LENGTH:=6«, t00=0x0035, t01=0x00a0}
0x538a…53b0 Head {h00=0x0022, h01=0x0050, text=» PERF SPCPAD ***SPACE PADDING «, t00=0x0035, t01=0x00c6}
0x53b0…53d0 Head {h00=0x001c, h01=0x0050, text=» MOVE LBIN3,W0 WORKITE=0«, t00=0x0035, t01=0x00ec}
0x53d0…53de Head {h00=0x000a, h01=0x0050, text=»APP192«, t00=0x0035, t01=0x010c}
0x53de…5412 Head {h00=0x0030, h01=0x0050, text=» XCOPY LBIN4,W1,W1,DUNIT,LBIN3 GET FILE CODE«, t00=0x0035, t01=0x011a}
0x5412…5446 Head {h00=0x0030, h01=0x0050, text=» CALL CHANFC,DISC,LBIN4 ---CHANGE FILE CODE «, t00=0x0035, t01=0x014e}
0x5446…548a Head {h00=0x0040, h01=0x0050, text=» CALL GETVOL,DISC,BPOOL(W1),LSTR6A,LBIN4 ---GET VOLUME NAME «, t00=0x0035, t01=0x0182}
0x548a…54c2 Head {h00=0x0034, h01=0x0050, text=» CALL CLEARB,LBIN4,W4 ---CLEAR BIT NO:=4 1MB-BIT«, t00=0x0036, t01=0x0036}
0x54c2…54e8 Head {h00=0x0022, h01=0x0050, text=» CMP LBIN4,W0 CHECKRETURN CODE«, t00=0x0036, t01=0x006e}
0x54e8…550a Head {h00=0x001e, h01=0x0050, text=» BNOK APP194 JUMP IF ERROR«, t00=0x0036, t01=0x0094}
0x550a…554a Head {h00=0x003c, h01=0x0050, text=» MATCH LSTR6A,LBIN4,W6,LSTR81,W0,W6 VOLUME NAME EQUAL ? «, t00=0x0036, t01=0x00b6}
0x554a…5566 Head {h00=0x0018, h01=0x0050, text=» BOK APPOK0 FOUND OK«, t00=0x0036, t01=0x00f6}
0x5566…5574 Head {h00=0x000a, h01=0x0050, text=»APP194«, t00=0x0036, t01=0x0112}
0x5574…5598 Head {h00=0x0020, h01=0x0050, text=» ADD LBIN3,W1 NEXT FILE CODE«, t00=0x0036, t01=0x0120}
0x5598…55c6 Head {h00=0x002a, h01=0x0050, text=» CBL LBIN3,W17,APP192 GO ON IF LESS 17«, t00=0x0036, t01=0x0144}
0x55c6…55f8 Head {h00=0x002e, h01=0x0050, text=» MOVE LBIN4,W23 ERROR-MESSAGE /NOT LOADED'«, t00=0x0036, t01=0x0172}
0x55f8…5610 Head {h00=0x0014, h01=0x0050, text=» B APNOK3 NOT OK«, t00=0x0037, t01=0x0014}
0x5610…561e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0037, t01=0x002c}
0x561e…566e Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0037, t01=0x003a}
0x566e…5678 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x008a}
0x5678…569e Head {h00=0x0022, h01=0x0050, text=»* APPLICATION-ROUTINE NO=20«, t00=0x0037, t01=0x0094}
0x569e…56bc Head {h00=0x001a, h01=0x0050, text=»* FILENAME CONTROL «, t00=0x0037, t01=0x00ba}
0x56bc…56c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00d8}
0x56c6…5716 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0037, t01=0x00e2}
0x5716…5724 Head {h00=0x000a, h01=0x0050, text=»APP200«, t00=0x0037, t01=0x0132}
0x5724…574c Head {h00=0x0024, h01=0x0050, text=» MOVE LBIN3,W8 FIELD LENGTH :=8 «, t00=0x0037, t01=0x0140}
0x574c…5772 Head {h00=0x0022, h01=0x0050, text=» PERF SPCPAD ***SPACE PADDING «, t00=0x0037, t01=0x0168}
0x5772…57a2 Head {h00=0x002c, h01=0x0050, text=» CALL ICLEAR,LSTR16 ---ASSRUT:CLEAR ITEM«, t00=0x0037, t01=0x018e}
0x57a2…57d4 Head {h00=0x002e, h01=0x0050, text=» MOVE LSTR6A,=C' DSDS' TYPE = D(EFINITION)«, t00=0x0038, t01=0x002e}
0x57d4…57f0 Head {h00=0x0018, h01=0x0050, text=» TYPE = S(ECTION) «, t00=0x0038, t01=0x0060}
0x57f0…582c Head {h00=0x0038, h01=0x0050, text=» INSRT LSTR81,W0,W16,LSTR16,W0 FILENAME=> POS 16-23«, t00=0x0038, t01=0x007c}
0x582c…586a Head {h00=0x003a, h01=0x0050, text=» INSRT LSTR81,W16,W10,LSTR16,W0 FILENAME=> POS 26-33 «, t00=0x0038, t01=0x00b8}
0x586a…58aa Head {h00=0x003c, h01=0x0050, text=» XCOPY LSTR81,W5,W1,LSTR6A,GBIN1 STORE TYPE OF DATA = S «, t00=0x0038, t01=0x00f6}
0x58aa…58d2 Head {h00=0x0024, h01=0x0050, text=» MOVE LBIN1,W24 WORKPOINTER:=24 «, t00=0x0038, t01=0x0136}
0x58d2…58f2 Head {h00=0x001c, h01=0x0050, text=» ADD LBIN1,W10 GIVING 34«, t00=0x0038, t01=0x015e}
0x58f2…592a Head {h00=0x0034, h01=0x0050, text=» XCOPY LSTR81,LBIN1,W6,GSTR6C,W0 STORE VOLUME ID«, t00=0x0038, t01=0x017e}
0x592a…5960 Head {h00=0x0032, h01=0x0050, text=» CALL POPEN,LSTR81,BPOOL(W1) ---OPEN DISC FILE«, t00=0x0039, t01=0x0026}
0x5960…5986 Head {h00=0x0022, h01=0x0050, text=» BNOK APP208 JMP IF NOT FOUND «, t00=0x0039, t01=0x005c}
0x5986…59be Head {h00=0x0034, h01=0x0050, text=» CALL PCLOSE,LSTR81,BPOOL(W1) ---CLOSE DISC-FILE«, t00=0x0039, t01=0x0082}
0x59be…59ec Head {h00=0x002a, h01=0x0050, text=» SUB LBIN1,W8 ADJUST NUMBER TO DELETE «, t00=0x0039, t01=0x00ba}
0x59ec…5a20 Head {h00=0x0030, h01=0x0050, text=» DLETE LSTR81,W0,LBIN1 DELETE OVERFLOW INFO «, t00=0x0039, t01=0x00e8}
0x5a20…5a38 Head {h00=0x0014, h01=0x0050, text=» B APPOK0 JMP OK«, t00=0x0039, t01=0x011c}
0x5a38…5a46 Head {h00=0x000a, h01=0x0050, text=»APP208«, t00=0x0039, t01=0x0134}
0x5a46…5a7e Head {h00=0x0034, h01=0x0050, text=» CALL PCLOSE,LSTR81,BPOOL(W1) ---CLOSE DISC-FILE«, t00=0x0039, t01=0x0142}
0x5a7e…5aac Head {h00=0x002a, h01=0x0050, text=» SUB LBIN1,W8 ADJUST NUMBER TO DELETE «, t00=0x0039, t01=0x017a}
0x5aac…5ae0 Head {h00=0x0030, h01=0x0050, text=» DLETE LSTR81,W0,LBIN1 DELETE OVERFLOW INFO «, t00=0x003a, t01=0x0018}
0x5ae0…5b10 Head {h00=0x002c, h01=0x0050, text=» DLETE LSTR81,W8,W6 DELETE OVERFLOW INFO«, t00=0x003a, t01=0x004c}
0x5b10…5b3c Head {h00=0x0028, h01=0x0050, text=» MOVE LBIN4,W24 ERROR MESSAGENO:=24 «, t00=0x003a, t01=0x007c}
0x5b3c…5b54 Head {h00=0x0014, h01=0x0050, text=» B APNOK3 NOT OK«, t00=0x003a, t01=0x00a8}
0x5b54…5b62 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003a, t01=0x00c0}
0x5b62…5bb2 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x003a, t01=0x00ce}
0x5bb2…5bbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x011e}
0x5bbc…5be2 Head {h00=0x0022, h01=0x0050, text=»* APPLICATION-ROUTINE NO=21«, t00=0x003a, t01=0x0128}
0x5be2…5bfc Head {h00=0x0016, h01=0x0050, text=»* (.) OR (,) ? «, t00=0x003a, t01=0x014e}
0x5bfc…5c06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0168}
0x5c06…5c56 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x003a, t01=0x0172}
0x5c56…5c64 Head {h00=0x000a, h01=0x0050, text=»APP210«, t00=0x003b, t01=0x0032}
0x5c64…5c7e Head {h00=0x0016, h01=0x0050, text=» MOVE LSTR1,LSTR81«, t00=0x003b, t01=0x0040}
0x5c7e…5c9e Head {h00=0x001c, h01=0x0050, text=» CBE LSTR1,=C'.',APP215 «, t00=0x003b, t01=0x005a}
0x5c9e…5cbe Head {h00=0x001c, h01=0x0050, text=» CBE LSTR1,=C',',APP215 «, t00=0x003b, t01=0x007a}
0x5cbe…5cea Head {h00=0x0028, h01=0x0050, text=» MOVE LBIN4,W13 ERROR-MESSAGE NO 13 «, t00=0x003b, t01=0x009a}
0x5cea…5d02 Head {h00=0x0014, h01=0x0050, text=» B APNOK3 NOT OK«, t00=0x003b, t01=0x00c6}
0x5d02…5d16 Head {h00=0x0010, h01=0x0050, text=»APP215 OK «, t00=0x003b, t01=0x00de}
0x5d16…5d2a Head {h00=0x0010, h01=0x0050, text=» B APPOK0 OK«, t00=0x003b, t01=0x00f2}
0x5d2a…5d38 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003b, t01=0x0106}
0x5d38…5d88 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x003b, t01=0x0114}
0x5d88…5d92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0164}
0x5d92…5db8 Head {h00=0x0022, h01=0x0050, text=»* APPLICATION-ROUTINE NO=22«, t00=0x003b, t01=0x016e}
0x5db8…5dd4 (60, 0, 400) Head {h00=0x0018, h01=0x0050, text=»* GUIDING MESSAGE«, t00=0x003c, t01=0x0004}
0x5dd4…5dde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0020}
0x5dde…5e2e Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x003c, t01=0x002a}
0x5e2e…5e3c Head {h00=0x000a, h01=0x0050, text=»APP220«, t00=0x003c, t01=0x007a}
0x5e3c…5e70 Head {h00=0x0030, h01=0x0050, text=» MOVE LBIN4,W3 LOAD INDEX NUMB-OF-CHARS-TAB «, t00=0x003c, t01=0x0088}
0x5e70…5e94 Head {h00=0x0020, h01=0x0050, text=» B APP101 CHECK MESSAGE TYPE«, t00=0x003c, t01=0x00bc}
0x5e94…5ea2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003c, t01=0x00e0}
0x5ea2…5ef2 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x003c, t01=0x00ee}
0x5ef2…5efc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x013e}
0x5efc…5f22 Head {h00=0x0022, h01=0x0050, text=»* APPLICATION-ROUTINE NO=23«, t00=0x003c, t01=0x0148}
0x5f22…5f42 Head {h00=0x001c, h01=0x0050, text=»* APPLICATION MESSAGE«, t00=0x003c, t01=0x016e}
0x5f42…5f4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x018e}
0x5f4c…5f9c Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x003d, t01=0x0008}
0x5f9c…5faa Head {h00=0x000a, h01=0x0050, text=»APP230«, t00=0x003d, t01=0x0058}
0x5faa…5fdc Head {h00=0x002e, h01=0x0050, text=» MOVE GBINIA(W4),LBIN1 LOAD NUMB OF CHARS «, t00=0x003d, t01=0x0066}
0x5fdc…5fee Head {h00=0x000e, h01=0x0050, text=» B APPOK0 «, t00=0x003d, t01=0x0098}
0x5fee…5ffc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003d, t01=0x00aa}
0x5ffc…604c Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x003d, t01=0x00b8}
0x604c…6056 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0108}
0x6056…607c Head {h00=0x0022, h01=0x0050, text=»* APPLICATION-ROUTINE NO=24«, t00=0x003d, t01=0x0112}
0x607c…609c Head {h00=0x001c, h01=0x0050, text=»* VALIDATION CONTROL «, t00=0x003d, t01=0x0138}
0x609c…60a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0158}
0x60a6…60f6 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x003d, t01=0x0162}
0x60f6…6104 Head {h00=0x000a, h01=0x0050, text=»APP240«, t00=0x003e, t01=0x0022}
0x6104…6136 Head {h00=0x002e, h01=0x0050, text=» PERF SYNVAL ***SYNTAX-CONTROL VALIDATION «, t00=0x003e, t01=0x0030}
0x6136…6158 Head {h00=0x001e, h01=0x0050, text=» BNOK APP248 JMP IF NOT OK«, t00=0x003e, t01=0x0062}
0x6158…6198 Head {h00=0x003c, h01=0x0050, text=» MOVE GBINIA(VBIN1),LBIN1 SAVE NUMB CHARS OF BASIC LINE «, t00=0x003e, t01=0x0084}
0x6198…61aa Head {h00=0x000e, h01=0x0050, text=» B APPOK0 «, t00=0x003e, t01=0x00c4}
0x61aa…61b8 Head {h00=0x000a, h01=0x0050, text=»APP248«, t00=0x003e, t01=0x00d6}
0x61b8…61e6 Head {h00=0x002a, h01=0x0050, text=» MOVE LBCD3A,LBIN4 SYNTAX ERROR NUMBER«, t00=0x003e, t01=0x00e4}
0x61e6…6214 Head {h00=0x002a, h01=0x0050, text=» MOVE LBIN4,=W'26' ERROR-MESSAGE NO=26«, t00=0x003e, t01=0x0112}
0x6214…622c Head {h00=0x0014, h01=0x0050, text=» B APNOK3 NOT OK«, t00=0x003e, t01=0x0140}
0x622c…623a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003e, t01=0x0158}
0x623a…628a Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x003e, t01=0x0166}
0x628a…6294 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0026}
0x6294…62ba Head {h00=0x0022, h01=0x0050, text=»* APPLICATION-ROUTINE NO=25«, t00=0x003f, t01=0x0030}
0x62ba…62d2 Head {h00=0x0014, h01=0x0050, text=»* DUPLICATION«, t00=0x003f, t01=0x0056}
0x62d2…62dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x006e}
0x62dc…632c Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x003f, t01=0x0078}
0x632c…633a Head {h00=0x000a, h01=0x0050, text=»APP250«, t00=0x003f, t01=0x00c8}
0x633a…6362 Head {h00=0x0024, h01=0x0050, text=» PERF YESVNO ***YES AND NO CHECK«, t00=0x003f, t01=0x00d6}
0x6362…6384 Head {h00=0x001e, h01=0x0050, text=» BNOK APP259 JMP IF NOT OK«, t00=0x003f, t01=0x00fe}
0x6384…63ae Head {h00=0x0026, h01=0x0050, text=» CBE LSTR1,YES,APP254 JMP IF Y OK «, t00=0x003f, t01=0x0120}
0x63ae…63ea Head {h00=0x0038, h01=0x0050, text=» CBE GSTR1I(W16),DUPL,APP258 JMP IF SKP.DUP.BYP =D «, t00=0x003f, t01=0x014a}
0x63ea…63fe Head {h00=0x0010, h01=0x0050, text=»APP254 OK «, t00=0x003f, t01=0x0186}
0x63fe…6410 Head {h00=0x000e, h01=0x0050, text=» B APPOK0 «, t00=0x0040, t01=0x000a}
0x6410…641e Head {h00=0x000a, h01=0x0050, text=»APP258«, t00=0x0040, t01=0x001c}
0x641e…644c Head {h00=0x002a, h01=0x0050, text=» GETABX LBIN4 GET CURRENT FIELD NUMBER«, t00=0x0040, t01=0x002a}
0x644c…647c Head {h00=0x002c, h01=0x0050, text=» ADD LBIN4,W2 FIELDNUMBER:=FIELDNUMBER+2«, t00=0x0040, t01=0x0058}
0x647c…64ac Head {h00=0x002c, h01=0x0050, text=» GETFLD 0,LBIN4,LBIN3 MAKE FIELD CURRENT«, t00=0x0040, t01=0x0088}
0x64ac…64d2 Head {h00=0x0022, h01=0x0050, text=» MOVE LBIN4,W6 ERROR-MESSAGE=&«, t00=0x0040, t01=0x00b8}
0x64d2…64e4 Head {h00=0x000e, h01=0x0050, text=» B APNOK3 «, t00=0x0040, t01=0x00de}
0x64e4…64f2 Head {h00=0x000a, h01=0x0050, text=»APP259«, t00=0x0040, t01=0x00f0}
0x64f2…651a Head {h00=0x0024, h01=0x0050, text=» MOVE LBIN4,W12 ERRORMESSAGE=12 «, t00=0x0040, t01=0x00fe}
0x651a…652c Head {h00=0x000e, h01=0x0050, text=» B APNOK3 «, t00=0x0040, t01=0x0126}
0x652c…653a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0040, t01=0x0138}
0x653a…658a Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0040, t01=0x0146}
0x658a…6594 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0008}
0x6594…65ba Head {h00=0x0022, h01=0x0050, text=»* APPLICATION-ROUTINE NO=26«, t00=0x0041, t01=0x0012}
0x65ba…65d4 Head {h00=0x0016, h01=0x0050, text=»* SECTION NAME «, t00=0x0041, t01=0x0038}
0x65d4…65de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0052}
0x65de…662e Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0041, t01=0x005c}
0x662e…663c Head {h00=0x000a, h01=0x0050, text=»APP260«, t00=0x0041, t01=0x00ac}
0x663c…6656 Head {h00=0x0016, h01=0x0050, text=» MOVE LSTR1,LSTR81«, t00=0x0041, t01=0x00ba}
0x6656…6676 Head {h00=0x001c, h01=0x0050, text=» MOVE LBIN3,W6 LENGTH=6 «, t00=0x0041, t01=0x00d4}
0x6676…6688 Head {h00=0x000e, h01=0x0050, text=» B APP188 «, t00=0x0041, t01=0x00f4}
0x6688…66d8 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0041, t01=0x0106}
0x66d8…66e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0156}
0x66e2…6708 Head {h00=0x0022, h01=0x0050, text=»* APPLICATION-ROUTINE NO=27«, t00=0x0041, t01=0x0160}
0x6708…6722 Head {h00=0x0016, h01=0x0050, text=»* PRINT-DEVICE «, t00=0x0041, t01=0x0186}
0x6722…672c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0010}
0x672c…677c Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0042, t01=0x001a}
0x677c…678a Head {h00=0x000a, h01=0x0050, text=»APP270«, t00=0x0042, t01=0x006a}
0x678a…67a4 Head {h00=0x0016, h01=0x0050, text=» MOVE LSTR2,LSTR81«, t00=0x0042, t01=0x0078}
0x67a4…67c2 Head {h00=0x001a, h01=0x0050, text=» CBE LSTR2,='LP',OKDEV«, t00=0x0042, t01=0x0092}
0x67c2…67e0 Head {h00=0x001a, h01=0x0050, text=» CBE LSTR2,='GP',OKDEV«, t00=0x0042, t01=0x00b0}
0x67e0…67fa Head {h00=0x0016, h01=0x0050, text=» MOVE LBIN4,=W'35'«, t00=0x0042, t01=0x00ce}
0x67fa…680c Head {h00=0x000e, h01=0x0050, text=» B APNOK3 «, t00=0x0042, t01=0x00e8}
0x680c…6822 Head {h00=0x0012, h01=0x0050, text=»OKDEV B APPOK1«, t00=0x0042, t01=0x00fa}
0x6822…6830 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0042, t01=0x0110}
0x6830…6838 Head {h00=0x0004, h01=0x0050, t00=0x0042, t01=0x011e}
0x6838…6886 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0042, t01=0x0126}
0x6886…6890 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0174}
0x6890…68ba Head {h00=0x0026, h01=0x0050, text=»* APPLICATION-ROUTINE NO=28«, t00=0x0042, t01=0x017e}
0x68ba…68d4 Head {h00=0x0016, h01=0x0050, text=»* OVER-RIDE«, t00=0x0043, t01=0x0018}
0x68d4…68de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0032}
0x68de…692c Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0043, t01=0x003c}
0x692c…6934 Head {h00=0x0004, h01=0x0050, t00=0x0043, t01=0x008a}
0x6934…6942 Head {h00=0x000a, h01=0x0050, text=»APP280«, t00=0x0043, t01=0x0092}
0x6942…6958 Head {h00=0x0012, h01=0x0050, text=» MOVE LBIN3,W4«, t00=0x0043, t01=0x00a0}
0x6958…697e Head {h00=0x0022, h01=0x0050, text=» PERF SPCPAD ***SPACE PADDING «, t00=0x0043, t01=0x00b6}
0x697e…69a4 Head {h00=0x0022, h01=0x0050, text=» MOVE LBIN4,W0 WORKPOINTER:=0 «, t00=0x0043, t01=0x00dc}
0x69a4…69e4 Head {h00=0x003c, h01=0x0050, text=» MATCH FIDTAB,LBIN4,LFBIN,LSTR81,W0,W4 SEARCH FIELD NAME«, t00=0x0043, t01=0x0102}
0x69e4…69f8 Head {h00=0x0010, h01=0x0050, text=» BNOK APP282«, t00=0x0043, t01=0x0142}
0x69f8…6a1e Head {h00=0x0022, h01=0x0050, text=» MOVE LBIN3,W0 WORKPOINTER:=0 «, t00=0x0043, t01=0x0156}
0x6a1e…6a5c Head {h00=0x003a, h01=0x0050, text=» MATCH FIDTAB,LBIN3,LFBIN,GSTR4A,W0,W4 SEE IF BACKWARD«, t00=0x0043, t01=0x017c}
0x6a5c…6a8c Head {h00=0x002c, h01=0x0050, text=» CBL LBIN4,LBIN3,APP286 JMP IF BACKWARD «, t00=0x0044, t01=0x002a}
0x6a8c…6ab2 Head {h00=0x0022, h01=0x0050, text=» MOVE LBIN4,W0 WORKPOINTER:=0 «, t00=0x0044, t01=0x005a}
0x6ab2…6af0 Head {h00=0x003a, h01=0x0050, text=» MATCH GSTR4A,LBIN4,W4,LSTR81,W0,W4 SEE IF SAME FIELD «, t00=0x0044, t01=0x0080}
0x6af0…6b04 Head {h00=0x0010, h01=0x0050, text=» BOK APP284 «, t00=0x0044, t01=0x00be}
0x6b04…6b26 Head {h00=0x001e, h01=0x0050, text=» B APPOK0 FIELD NAME FOUND«, t00=0x0044, t01=0x00d2}
0x6b26…6b34 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0044, t01=0x00f4}
0x6b34…6b42 Head {h00=0x000a, h01=0x0050, text=»APP282«, t00=0x0044, t01=0x0102}
0x6b42…6b74 Head {h00=0x002e, h01=0x0050, text=» MOVE LBIN4,=W'38' "FIELD NAME NOT FOUND" «, t00=0x0044, t01=0x0110}
0x6b74…6b86 Head {h00=0x000e, h01=0x0050, text=» B APNOK3 «, t00=0x0044, t01=0x0142}
0x6b86…6b94 Head {h00=0x000a, h01=0x0050, text=»APP284«, t00=0x0044, t01=0x0154}
0x6b94…6bc8 Head {h00=0x0030, h01=0x0050, text=» MOVE LBIN4,=W'39' "YOU ARE ALREADY THERE!!"«, t00=0x0044, t01=0x0162}
0x6bc8…6bda Head {h00=0x000e, h01=0x0050, text=» B APNOK3 «, t00=0x0045, t01=0x0008}
0x6bda…6be8 Head {h00=0x000a, h01=0x0050, text=»APP286«, t00=0x0045, t01=0x001a}
0x6be8…6c2c Head {h00=0x0040, h01=0x0050, text=» MOVE LBIN4,=W'40' "ILLEGAL DIRECTION TO WANTED FIELD-NAME" «, t00=0x0045, t01=0x0028}
0x6c2c…6c3e Head {h00=0x000e, h01=0x0050, text=» B APNOK3 «, t00=0x0045, t01=0x006c}
0x6c3e…6c4c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0045, t01=0x007e}
0x6c4c…6c5a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0045, t01=0x008c}
0x6c5a…6caa Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0045, t01=0x009a}
0x6caa…6cb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00ea}
0x6cb4…6cda Head {h00=0x0022, h01=0x0050, text=»* RANGE CONTENT OF 'LBIN3' «, t00=0x0045, t01=0x00f4}
0x6cda…6d00 Head {h00=0x0022, h01=0x0050, text=»* INPUT FORMAL PARAMETERS «, t00=0x0045, t01=0x011a}
0x6d00…6d26 Head {h00=0x0022, h01=0x0050, text=»* -LLIMIT = LOWLIMIT «, t00=0x0045, t01=0x0140}
0x6d26…6d4c Head {h00=0x0022, h01=0x0050, text=»* -HLIMIT = HIGHLIMIT«, t00=0x0045, t01=0x0166}
0x6d4c…6d56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x018c}
0x6d56…6da6 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0046, t01=0x0008}
0x6da6…6dc6 Head {h00=0x001c, h01=0x0050, text=»RANGE PROC LLIMIT,HLIMIT«, t00=0x0046, t01=0x0058}
0x6dc6…6dda Head {h00=0x0010, h01=0x0050, text=» PBIN LLIMIT«, t00=0x0046, t01=0x0078}
0x6dda…6dee Head {h00=0x0010, h01=0x0050, text=» PBIN HLIMIT«, t00=0x0046, t01=0x008c}
0x6dee…6e18 Head {h00=0x0026, h01=0x0050, text=» PERF STRBIN ***CONVERT TO BINARY «, t00=0x0046, t01=0x00a0}
0x6e18…6e46 Head {h00=0x002a, h01=0x0050, text=» CBL LBIN3,LLIMIT,RANGE9 LESS LOWLIMIT«, t00=0x0046, t01=0x00ca}
0x6e46…6e78 Head {h00=0x002e, h01=0x0050, text=» CBG LBIN3,HLIMIT,RANGE9 GREATER HIGHLIMIT«, t00=0x0046, t01=0x00f8}
0x6e78…6e9a Head {h00=0x001e, h01=0x0050, text=» CMP W0,W0 CLEAR COND.REG.«, t00=0x0046, t01=0x012a}
0x6e9a…6ea6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0046, t01=0x014c}
0x6ea6…6eb4 Head {h00=0x000a, h01=0x0050, text=»RANGE9«, t00=0x0046, t01=0x0158}
0x6eb4…6ed4 Head {h00=0x001c, h01=0x0050, text=» CMP W0,W1 SET COND.REG.«, t00=0x0046, t01=0x0166}
0x6ed4…6ee0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0046, t01=0x0186}
0x6ee0…6eee (71, 0, 400) Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0047, t01=0x0004}
0x6eee…6efc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0047, t01=0x0012}
0x6efc…6f4c Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0047, t01=0x0020}
0x6f4c…6f56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0070}
0x6f56…6f8c Head {h00=0x0032, h01=0x0050, text=»* CONVERT NUMERIC STRING VALUE INTO BINARY«, t00=0x0047, t01=0x007a}
0x6f8c…6f96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x00b0}
0x6f96…6fe6 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0047, t01=0x00ba}
0x6fe6…6ffa Head {h00=0x0010, h01=0x0050, text=»STRBIN PROC «, t00=0x0047, t01=0x010a}
0x6ffa…7028 Head {h00=0x002a, h01=0x0050, text=» MOVE LBCD3A,LSTR81 LOAD INPUT DECIMAL«, t00=0x0047, t01=0x011e}
0x7028…705a Head {h00=0x002e, h01=0x0050, text=» MOVE LBIN3,LBCD3A LOAD DECIMAL TO BINARY «, t00=0x0047, t01=0x014c}
0x705a…7066 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0047, t01=0x017e}
0x7066…7074 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0047, t01=0x018a}
0x7074…70c4 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0048, t01=0x0008}
0x70c4…70ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0058}
0x70ce…70fc Head {h00=0x002a, h01=0x0050, text=»* CONTROL IF INPUT IS Y(ES) OR N(O)«, t00=0x0048, t01=0x0062}
0x70fc…7106 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0090}
0x7106…7156 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0048, t01=0x009a}
0x7156…716a Head {h00=0x0010, h01=0x0050, text=»YESVNO PROC «, t00=0x0048, t01=0x00ea}
0x716a…7184 Head {h00=0x0016, h01=0x0050, text=» MOVE LSTR1,LSTR81«, t00=0x0048, t01=0x00fe}
0x7184…71a0 Head {h00=0x0018, h01=0x0050, text=» CBE LSTR1,NO,YESOK0«, t00=0x0048, t01=0x0118}
0x71a0…71be Head {h00=0x001a, h01=0x0050, text=» CBE LSTR1,YES,YESOK0 «, t00=0x0048, t01=0x0134}
0x71be…71e0 Head {h00=0x001e, h01=0x0050, text=» CMP W0,W1 SET COND-REG=1 «, t00=0x0048, t01=0x0152}
0x71e0…71ec Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0048, t01=0x0174}
0x71ec…71fa Head {h00=0x000a, h01=0x0050, text=»YESOK0«, t00=0x0048, t01=0x0180}
0x71fa…721e Head {h00=0x0020, h01=0x0050, text=» CMP W0,W0 CLEAR COND-REG=0 «, t00=0x0048, t01=0x018e}
0x721e…722a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0049, t01=0x0022}
0x722a…7238 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0049, t01=0x002e}
0x7238…7246 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0049, t01=0x003c}
0x7246…7296 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0049, t01=0x004a}
0x7296…72a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x009a}
0x72a0…72ea Head {h00=0x0046, h01=0x0050, text=»* PAD REST OF INPUT BUFFER (LSTR81) ,UP TO ACTUAL FIELD LENGTH«, t00=0x0049, t01=0x00a4}
0x72ea…7304 Head {h00=0x0016, h01=0x0050, text=»* WITH X'20':S«, t00=0x0049, t01=0x00ee}
0x7304…730e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0108}
0x730e…735e Head {h00=0x004c, h01=0x0050, text=»* INPUT LBIN1 = NUMBER OF INPUT CHARACTERS OF INPUT BU«, t00=0x0049, t01=0x0112}
0x735e…739c Head {h00=0x003a, h01=0x0050, text=»* LBIN3 = ACTUAL FIELD LENGTH «, t00=0x0049, t01=0x0162}
0x739c…73d2 Head {h00=0x0032, h01=0x0050, text=»* LSTR81 = INPUT BUFFER«, t00=0x004a, t01=0x0010}
0x73d2…73dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0046}
0x73dc…7426 Head {h00=0x0046, h01=0x0050, text=»* OUTPUT LBIN1 = ACTUAL FIELD LENGTH (MAX-LENGTH)«, t00=0x004a, t01=0x0050}
0x7426…7470 Head {h00=0x0046, h01=0x0050, text=»* LSTR81 = INPUT BUFFER PADDED WITH X'20':S«, t00=0x004a, t01=0x009a}
0x7470…747a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x00e4}
0x747a…74ca Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x004a, t01=0x00ee}
0x74ca…74de Head {h00=0x0010, h01=0x0050, text=»SPCPAD PROC «, t00=0x004a, t01=0x013e}
0x74de…750c Head {h00=0x002a, h01=0x0050, text=» MOVE LSTR9A,=X'20' LOAD SPACE-STRING «, t00=0x004a, t01=0x0152}
0x750c…7544 Head {h00=0x0034, h01=0x0050, text=» SUB LBIN3,LBIN1 CALC NUMBER OF EMPTY POSITIONS «, t00=0x004a, t01=0x0180}
0x7544…756c Head {h00=0x0024, h01=0x0050, text=» BZ SPC999 JUMP IF NO EMPTY POS «, t00=0x004b, t01=0x0028}
0x756c…75a4 Head {h00=0x0034, h01=0x0050, text=» XCOPY LSTR81,LBIN1,LBIN3,LSTR9A,W0 COPY X'20':S«, t00=0x004b, t01=0x0050}
0x75a4…75d0 Head {h00=0x0028, h01=0x0050, text=» ADD LBIN1,LBIN3 :=MEX FIELD LENGTH «, t00=0x004b, t01=0x0088}
0x75d0…75de Head {h00=0x000a, h01=0x0050, text=»SPC999«, t00=0x004b, t01=0x00b4}
0x75de…75ea Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x004b, t01=0x00c2}
0x75ea…75f8 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x004b, t01=0x00ce}
0x75f8…7604 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x004b, t01=0x00dc}
0x7604…7608 Head {h00=0x4004, h01=0x0000}
0x7608…760c 00 4b 00 e8 ┆ K ┆
0x760c…7614 (76, 1, 8) 20 04 00 00 00 4c 00 04 ┆ L ┆