|
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: 17246 (0x435e)
Notes: pts_type(SC)
Names: »SCREEN.SC«
└─⟦b6546aa17⟧ Bits:30009689 Philips computer tape "600325"
└─⟦this⟧ »REMIT2/SCREEN.SC«
IDENT SCREEN 03.01.XXX.1 1.1,78-04-20,870138040310 * * A STANDARD PROGRAM PACKAGE HANDLING * A COMPLETE PICTURE ON A DISPLAY SCREEN * * RUNNING UNDER: CREDIT REL 3.1 * TOSS REL 8.1 * DDUM KMD08 PDIV * ENTRY SPCLRA CLEAR ALL VARIABLE FIELDS ENTRY SPCLRS CLEAR SOME VARIABLE FIELDS ENTRY SPCLRN CLEAR NO VARIABLE FIELDS ENTRY SPERR DISPLAY ERROR PRINTOUT AND CONTINUE HANDLING ENTRY SPLIN8 MESSAGE ON LINE 8 ENTRY SPCA AS SPCLRA-- ENTRY SPCN AS SPCLRN-- SPCA AND SPCN ARE ONLY ACTIVE BETWEEN LINES SPLINTOP AND SPLINLOW ENTRY SCREEN ENTRY SPINF1 INFORMATION ON LINE 1 ENTRY SPINF8 INFORMATION ON LINE 8 ENTRY BELL * EXT SPCHK1 STANDARD CHECK ROUTINE NO. 1 EXT SPCHK2 STANDARD CHECK ROUTINE NO. 2 EXT SPCHK3 STANDARD CHECK ROUTINE NO. 3 EXT SPCHK4 STANDARD CHECK ROUTINE NO. 4 EXT SPCHK5 STANDARD CHECK ROUTINE NO.5 EXT SPCHK6 STANDARD CHECK ROUTINE NO. 6 EXT SPCHK7 STANDARD CHECK ROUTINE NO. 7 EXT SPAPPL USER ROUTINE TO HANDLE APPL VALUES EXT SPTCHK USER ROUTINE TO EVALUATE CONDITIONAL TABULATION * EXT EMPTYT ASSEMBLY SUBROUTINE EMPTYT - TEST IF DATA ITEM IS EMPTY EXT CLEAR8 * INCLUDE KEY461,LIST * FIRST INCLUDE KEY VALUES, * THEN INCLUDE SPECIAL SCREEN FORMATS INCLUDE SL461,LIST SPCLRA PROC * * SPCLRA - CLEAR ALL VARABLE FIELDS BEFORE HANDLING THE PICTURE * MOVE SPERASE,=W'0' MOVE SPLINTOP,=W'1' WHOLE SCREEN MOVE SPLINLOW,=W'0' PERF SCREEN,=W'1' RET PEND SPCLRS PROC * * SPCLRS - CLEAR SOME VARIABLE FIELDS BEFORE HANDLING THE PICTURE * MOVE SPERASE,=W'0' MOVE SPLINTOP,=W'1' WHOLE SCREEN MOVE SPLINLOW,=W'0' PERF SCREEN,=W'2' RET PEND SPCLRN PROC * * SPCLRN - CLEAR NO VARIABLE FIELDS BEFORE HANDLING THE PICTURE * MOVE SPERASE,=W'0' MOVE SPLINTOP,=W'1' WHOLE SCREEN MOVE SPLINLOW,=W'0' PERF SCREEN,=W'3' RET PEND SPERR PROC * * HANDLE ERRORS DETECTED OUTSIDE THE PACKAGE * PERF SCREEN,=W'0' RET PEND SPCA PROC * * SPCA - AS SPCLRA, BUT ONLY BETWEEN LINES SPLINTOPAND SPLINLOW * MOVE SPERASE,=W'4' PERF SCREEN,=W'1' RET PEND SPCN PROC * * SPCN - AS SPCLRN, BUT ONLY BETWEEN LINES SPLINTOP AND SPLINLOW * MOVE SPERASE,=W'4' PERF SCREEN,=W'3' RET PEND SCREEN PROC $OPT * * SCREEN SCREEN HANDLING MODULE * * CALL: PERF SCREEN,<$OPT> * PLIT $OPT OPTIO SELECTOR CLEAR SPWARNFL CLEAR WARNING FLAG MOVE SPBINW2,$OPT MOVE TO VARIABLE TO ALLOW INSTR.S CMP AND IB CMP SPBINW2,='0' "SPERR" ENTRY ? BE ERRPRINT YES ! TBT SPPROMPT,ENTIRE JUMP IF ENTIRE FORMAT SHOULD BE DISPLAYED * * ONLY VARIABLE FIELDS * IB SPBINW2,CLEARA,CLEARS,CONT JUMP ON ROUTINE INDEX * CLEARA ERASE 10,SPLINTOP,SPLINLOW ERASE ALL FROM 1 AND UP THOME B CONT * CLEARS ERASE 5,SPLINTOP,SPLINLOW ERASE SOME FROM 1 AND UP B CONT * * DISPLAY ENTIRE FORMAT * ENTIRE IB SPBINW2,ECLRA,ECLRS,ECLRN JUMP ON ROUTINE INDEX * * CLEAR ALL VARIABLES * ECLRA ERASE 11,SPLINTOP,SPLINLOW CLEAR ALL IN MEMORY B ECLRN * * CLEAR SOME VARIABLES * ECLRS ERASE 6,SPLINTOP,SPLINLOW CLEAR SOME FIELDS FROM 1 AND UP IN MEMORY * * CLEAR NO VARIABLES IN MEMORY * ECLRN IB SPERASE,ECLRN1,ECLRN2,ECLRN3,ECLRN4 DISPLAY 0,SPLINTOP,SPLINLOW B CONT ECLRN1 DISPLAY 1,SPLINTOP,SPLINLOW B CONT ECLRN2 DISPLAY 2,SPLINTOP,SPLINLOW B CONT ECLRN3 DISPLAY 3,SPLINTOP,SPLINLOW B CONT ECLRN4 DISPLAY 4,SPLINTOP,SPLINLOW B CONT CONT GETABX SPBINW4 GET CURRENT INDEX BL KTHOME JUMP IF NO CURRENT FIELD CONT5 GETFLD 0,SPBINW4,SPBINW3 SEARCH CURRENT POSITION BZ SETCREAD JUMP IF FOUND BL KTHOME POSITION NOT FOUND * * COMPULSORY FIELD FOUND * MOVE SPBINW4,SPBINW3 CHANGE INDEX B CONT5 SEARCH AGAIN * * * SET CURSOR AND READ KEYBOARD * SETCREAD SETCUR SET CURSOR ON CURRENT FIELD * * READ TO CURRENT FIELD ON DISPLAY * READIN * SET FLAG IF AUTODUP * USES VERIF-FIELD MOVE SPBINW2,=W'3' MOVE SPBINW1,=W'1' TSTCTL 6 BOK DYKIN SET GTADUPFL B DYK20 * DYKIN IB SPKEY,DYK05,DYK10,DYK15 DYK05 DYKI SPINPUT,SPKTAB1,SPKTAB2,SPBINW1, C SPBINW2,SPBINW4 B DYKOUT DYK10 DYKI SPINPUT,SPKTAB12,SPKTAB22,SPBINW1, C SPBINW2,SPBINW4 B DYKOUT DYK15 DYKI SPINPUT,SPKTAB13,SPKTAB23,SPBINW1, C SPBINW2,SPBINW4 DYKOUT BL ERRPRT ERROR CLEAR SPDUPL CBNG SPBINW2,='0',RETUR JUMP IF POWER OFF OR * DYK20 * * KEY SWITCHES IB SPBINW2,UPD300,CLEA20 JUMP ON C UPDATE,CANC,CANC, C UPDATE,UPDATE,UPDATE,UPDATE CONVERTED C UPDATE,UPDATE,UPDATE,UPDATE END-OF-ITEM-KEY C UPDATE,KDUPL,KEDIT * * HANDLE THE RESPECTIVE KEY AS EOI-KEY FIRST * UPDATE CBE SPBINW1,='0',UPD350 JUMP IF LENGTH = 0 GETCTL 3,SPBINW4 GET SCHK-NUMBER CBE SPBINW4,='0',UPD050 JUMP IF NOT STANDARD CHECK PERFI SPBINW4,SPCHK1,SPCHK2,SPCHK3 C SPCHK4,SPCHK5,SPCHK6,SPCHK7 IB SPBINW3,UPD050,UPD070,ERRPRINT * * CONDITIONAL DISPLAYING * UPD050 TBT SPDUPL,UPD100 MOVE SPBINW4,='1' INDICATE COND. DISPL B UPD200 UPD070 GETCTL 0,SPBINW3 GET APPL-VALUE CBNE SPBINW3,='0',UPD210 JUMP IF APPL VALUE B SETCREAD * * UNCONDITIONAL DISPLAYING * UPD100 MOVE SPBINW4,='2' INDICATE UNCONDITIONAL DISPLAY UPD200 GETCTL 0,SPBINW3 GET APPL-VALUE CBE SPBINW3,='0',UPD400 JUMP IF NO APPL VALUE * * APPL-VALUE DIFFERENT FROM ZERO * UPD210 PERF SPAPPL IB SPBINW3,UPD400,SETCREAD,ERRPRINT B UPD400 * * OK AFTER APPL CONTROL * UNCONDITIONAL DISPLAYING * UPD260 UPDFLD 1,SPINPUT UPDATE FIELD WITH DISPLAYING UPD300 CBE SPBINW1,='0',UPD350 SKIP NEXT IF LENGTH = 0 SET SPCHANGE INDICATE CHANGED ITEM UPD350 * TAKE CARE OF WARNING TBF SPWARNFL,UPD360 MOVE SPBINW1,SPBINW2 STORE KEY VALUE MOVE SPBINW4,=W'26' SET MESSAGE PERF SPERR CBNE SPBINW2,CBIN2,UPD360 KOR-KEY ? MOVE SPBINW2,SPBINW1 RESET OLD KEYVALUE UPD360 * JUMP ON FUNCTION KEY INDEX IB SPBINW2,READIN,DUMMY, C KEOI,DUMMY,DUMMY,KTFWD, C KTBWD,KTHOME,KTLDOWN,KTLEFT,KTRIGHT, C KTDOWN,KTUP,KCOPY,DUMMY,DUMMY,KENTER SUB SPBINW2,=W'14' ADJUST EOI-KEY INDEX DUMMY RETUR RET * UPD400 CBE SPBINW4,='2',UPD260 JUMP IF UNCONDITIONAL DISPL UPDFLD 0,SPINPUT UPDATE FIELD DISPL. COND. B UPD300 * KEOI COMMON END-OF-ITEM KEY KTFWD TAB. FORWARD 1 STEP TFWD B TSTTAB * KTBWD TABULATION 1 STEP BACKW. TBWD B TSTTAB * KTHOME TAB. TO HOME POSITION THOME B TSTTAB * KTLDOWN TAB. TO FIRST ON NEXT LINE TLDOWN B TSTTAB * KTLEFT TAB. TO LEFTMOST TLEFT B TSTTAB * KTRIGHT TAB. TO RIGHTMOST TRIGHT B TSTTAB * KTDOWN TAB 1 DOWN TDOWN B TSTTAB * KTUP TAB 1 UP TUP TSTTAB TEST TAB OUTPUT BE READIN OK BL READIN NOT FOUND BOFL SETCREAD EMPTY COMPULSORY FIELD * * * CONDITIONAL TABULATION * PERF SPTCHK CMP SPBINW3,='0' BE SETCREAD IB SPBINW2,DUMMY,DUMMY, C KTFWD,DUMMY,DUMMY,KTFWD, C KTBWD,KTFWD,KTFWD,KTFWD, C KTBWD,KTFWD,KTBWD * BRANCH LIST EXHAUSTED - SPBINW2 CLOBBERED BY SPTCHK B SETCREAD KCOPY HARD COPY MOVE SPBINW3,='1' TBT GTGTPFLG,KCOPY05 TBT GTLPFLG,KCOPY08 B KCOPY10 KCOPY05 EDWRT DSHCGP,FFEED PRINT DSHCGP,SPBINW3,='0' GTP B KCOPY10 KCOPY08 EDWRT DSHCLP,FFEED PRINT DSHCLP,SPBINW3,='0' LP B KCOPY10 KCOPY10 B SETCREAD SET CURSOR AND READ * KDUPL DUPLICATION MOVE SPBINW2,='3' INDICATE COMMON EOI-KEY DUPL SPINPUT DUPLICATION BNZ KDUPL2 COPY GSWSTR1,CBIN0,CBIN1,SPINPUT,CBIN1 GET BYTE 1 CBE GSWSTR1,=X'00',KDUPL2 MOVE SPBINW1,='10' SET LENGTH IN DUPFIELD SET SPDUPL B UPDATE DUPL ALLOWED KDUPL2 MOVE SPBINW4,='4' INDICATE ILLEGAL EOI-KEY B ERRPRINT DUPL NOT ALLOWED * * EDIT FIELD * KEDIT GETCTL 1,SPBINW3 GET MAXL CBNE SPBINW3,='0',KED100 PERF BELL B SETCREAD KED100 EDFLD SPINPUT,SPKTAB3,SPBINW1, C SPBINW2,SPBINW4 B DYKOUT CONTINUE AS FOR DYKI * * ENTER KEY * KENTER TBT SPCHANGE,KENT00 NO TESTS ON ME TBF SPME,KENT05 FIELDS ? KENT00 MOVE SPBINW4,='5' INDICATE COMP.FIELD FOUND MOVE SPBINW1,='0' INDICATE NO CLEARING MOVE SPBINW2,='0' SET INDEX TO SEARCHED FIELD GETFLD 0,SPBINW2,SPBINW3 SEARCH FOR EMPTY COMP. FIELDS BOFL KENT10 EMPTY COMP. FIELD FOUND TSTCTL 2 LOOK IF COMPULSORY FIELD BZ KENT05 NO! CALL EMPTYT,:FMTITEM LOOK IF EMPTY FIELD BP KENT10 YES! KENT05 MOVE SPBINW2,='3' INDICATE ENTER KEY DEPRESSED RET * * EMPTY COMPULSORY FIELD FOUND * KENT10 GETFLD 0,SPBINW3,SPBINW2 GET THE COMPULSORY FIELD ERRPRT CBE SPBINW2,='16',KEDIT JUMP IF EDIT CBE SPBINW2,='4',CANC JUMP IF CANCEL1 CBE SPBINW2,='5',CANC JUMP IF CANCEL2 * * ERROR HANDLING * ERRPRINT * MOVE SPBINW2,=X'40' XSTAT KEYB,SPBINW3 CBNE SPBINW2,SPBINW3,ERRPRT20 TIMEOUT EDWRT SCREEN,ERAFMT ERASE SCREEN B ERRC20 ERRPRT20 CBE SPBINW4,='0',ERRC20 PERF BELL MOVE SPBINW3,=X'0801' ROW 24 COL. 1 DSC1 SCREEN,6,SPBINW3 SET CURSOR ON LAST ROW MOVE GSWBCD4,SPBINW4 ERRORCODE * EDWRT SCREEN,SPFTBERR(SPBINW4) TBF SPKEYFLG,SPERRRET * * READ AFTER ERROR * ERREAD SETCUR SET CURSOR AT THE BEGINNING OF THE CURRENT FIELD ERR100 MOVE SPBINW3,=W'14' REQUESTED LENGTH IB SPKEY,ERR105,ERR110,ERR115 ERR105 NKI .NE,KEYB,SPINPUT,SPKTAB1,SPBINW3,SPBINW2 B ERR120 ERR110 NKI .NE,KEYB,SPINPUT,SPKTAB12,SPBINW3,SPBINW2 B ERR120 ERR115 NKI .NE,KEYB,SPINPUT,SPKTAB13,SPBINW3,SPBINW2 ERR120 BNZ ERR100 JUMP IF NOT OK CMP SPBINW2,='0' JUMP IF POWER OFF BE RETUR IB SPBINW2,ERR100,ERRCONT C ERRCONT,ERR100,ERRCONT,ERRCONT B ERR100 CONTINUE * * CLEAR ERROR PRINTOUT * ERRCONT PERF CLEAR8 ERASE LAST LINE CBNL SPBINW4,=W'26',CANC IF WARNING SUB SPBINW2,='1' ADJUST KEY INDEX CANC CBE SPBINW1,='0',ERRC10 JUMP IF LENGTH = 0 MOVE SPINPUT,:FMTITEM SAVE CURRENT CONTENTS MOVE :FMTITEM,=C'1' PUT SOMETHING IN THE FIELD GETABX SPBINW4 GET CURRENT INDEX ERASE 10,SPBINW4,SPBINW4 CLEAR FIELD ERRC10 IB SPBINW2,CLEAR1,CLEAR2,DUMMY SUB SPBINW2,='3' ADJUST FOR CANCEL1,CANCEL2 RET CLEAR1 CBE SPBINW1,='0',ERRC20 JUMP IF LENGTH = 0 SET SPCHANGE INDICATE CHANGED FIELD ERRC20 MOVE SPBINW5,$OPT CHECHK IF SPERR CBE SPBINW5,=W'0',SPERRRET B SETCREAD CONTINUE * CLEAR2 MOVE :FMTITEM,SPINPUT RESTORE CURRENT CONTENTS CLEA20 GETABX SPBINW4 GET CURRENT TAB INDEX DISPLAY 1,SPBINW4,SPBINW4 DISPLAY FIELD MOVE SPBINW5,$OPT CHECK IF SPERR CBE SPBINW5,=W'0',SPERRRET B SETCREAD CONTINUE * SPERRRET RET * PEND * BELL PROC * ACUSTIC ALARM EDWRT SCREEN,BELLFMT RET * BELLFMT FRMT FSL FILLR X'07',1 FMEND PEND * ERAFMT FRMT FILLR '1',2 FMEND * FFEED FRMT FILLR '1',2 FMEND * * SPLIN8 PROC WRTMES,WRTTYP ******************** * * SPLIN8 - WRITE ON LINE 8 * * MESSAGE DEFINED AS FORMAT NUMBER WRTMES * IN FORMAT TABLE SPFTBMES * * WRTTYP: =0 NO WAIT * =1 WAIT * =2 RETURN * ******************* MOVE SPBINW1,=X'0801' DSC1 SCREEN,6,SPBINW1 SET CURSOR ON LAST ROW MOVE SPBINW1,CBIN0 CBE WRTMES,CBIN0,LIN800 EDWRT SCREEN,SPFTBMES(WRTMES) LIN800 CBE WRTTYP,=W'0',LIN8NW CBE WRTTYP,=W'2',LINRET * READ LIN8IN MOVE SPBINW1,=W'3' REQUESTED LENGTH IB SPKEY,LIN805,LIN810,LIN815 LIN805 NKI KEYB,SPINPUT,SPKTAB1,SPBINW1,SPBINW2 B LIN820 LIN810 NKI KEYB,SPINPUT,SPKTAB12,SPBINW1,SPBINW2 B LIN820 LIN815 NKI KEYB,SPINPUT,SPKTAB13,SPBINW1,SPBINW2 LIN820 BNOK LIN8IN JUMP IF NOT OK IB SPBINW2,LIN8IN,LIN8CT,LIN8IN B LIN8IN * CLEAR LINE LIN8CT PERF CLEAR8 ERASE LAST LINE RET * READ WITH NO WAIT LIN8NW MOVE SPBINW1,=W'3' REQUESTED LENGTH IB SPKEY,LIN855,LIN860,LIN865 LIN855 NKI .NW,KEYB,SPINPUT,SPKTAB1,SPBINW1,SPBINW2 B LIN870 LIN860 NKI .NW,KEYB,SPINPUT,SPKTAB12,SPBINW1,SPBINW2 B LIN870 LIN865 NKI .NW,KEYB,SPINPUT,SPKTAB13,SPBINW1,SPBINW2 LIN870 LINRET RET PEND SPINF1 PROC ******************** * * SPINF1 - WRITE INF ON FIRST LINE * ******************** MOVE SPBINW1,=X'0117' DSC1 SCREEN,6,SPBINW1 SET CURSOR ON FIRST LINE MOVE SPBINW1,CBIN0 EDWRT SCREEN,SPFTBMES(CBIN7) WRITE MESSAGE 7 RET PEND * * * SPINF8 PROC ******************** * * SPINF8 - WRITE INF ON LAST LINE * ******************** PERF SPLIN8,CBIN4,CBIN2 RET PEND * * * END
0x0000…0022 (0, 0, 400) Head {h00=0x001e, h01=0x0050, text=» IDENT SCREEN 03.01.XXX.1«, t00=0x0000, t01=0x0004}
0x0022…0046 Head {h00=0x0020, h01=0x0050, text=» 1.1,78-04-20,870138040310«, t00=0x0000, t01=0x0026}
0x0046…0050 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x004a}
0x0050…0080 Head {h00=0x002c, h01=0x0050, text=»* A STANDARD PROGRAM PACKAGE HANDLING«, t00=0x0000, t01=0x0054}
0x0080…00b4 Head {h00=0x0030, h01=0x0050, text=»* A COMPLETE PICTURE ON A DISPLAY SCREEN «, t00=0x0000, t01=0x0084}
0x00b4…00be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00b8}
0x00be…00ea Head {h00=0x0028, h01=0x0050, text=»* RUNNING UNDER: CREDIT REL 3.1 «, t00=0x0000, t01=0x00c2}
0x00ea…0116 Head {h00=0x0028, h01=0x0050, text=»* TOSS REL 8.1 «, t00=0x0000, t01=0x00ee}
0x0116…0120 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x011a}
0x0120…0134 Head {h00=0x0010, h01=0x0050, text=» DDUM KMD08 «, t00=0x0000, t01=0x0124}
0x0134…0142 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0138}
0x0142…014c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0146}
0x014c…017c Head {h00=0x002c, h01=0x0050, text=» ENTRY SPCLRA CLEAR ALL VARIABLE FIELDS «, t00=0x0000, t01=0x0150}
0x017c…01ac Head {h00=0x002c, h01=0x0050, text=» ENTRY SPCLRS CLEAR SOME VARIABLE FIELDS«, t00=0x0000, t01=0x0180}
0x01ac…01da Head {h00=0x002a, h01=0x0050, text=» ENTRY SPCLRN CLEAR NO VARIABLE FIELDS«, t00=0x0001, t01=0x0020}
0x01da…0206 Head {h00=0x0028, h01=0x0050, text=» ENTRY SPERR DISPLAY ERROR PRINTOUT «, t00=0x0001, t01=0x004e}
0x0206…0226 Head {h00=0x001c, h01=0x0050, text=» AND CONTINUE HANDLING«, t00=0x0001, t01=0x007a}
0x0226…024e Head {h00=0x0024, h01=0x0050, text=» ENTRY SPLIN8 MESSAGE ON LINE 8 «, t00=0x0001, t01=0x009a}
0x024e…026e Head {h00=0x001c, h01=0x0050, text=» ENTRY SPCA AS SPCLRA-- «, t00=0x0001, t01=0x00c2}
0x026e…028e Head {h00=0x001c, h01=0x0050, text=» ENTRY SPCN AS SPCLRN-- «, t00=0x0001, t01=0x00e2}
0x028e…02b6 Head {h00=0x0024, h01=0x0050, text=» SPCA AND SPCN ARE ONLY ACTIVE«, t00=0x0001, t01=0x0102}
0x02b6…02ce Head {h00=0x0014, h01=0x0050, text=» BETWEEN LINES«, t00=0x0001, t01=0x012a}
0x02ce…02ee Head {h00=0x001c, h01=0x0050, text=» SPLINTOP AND SPLINLOW«, t00=0x0001, t01=0x0142}
0x02ee…0304 Head {h00=0x0012, h01=0x0050, text=» ENTRY SCREEN «, t00=0x0001, t01=0x0162}
0x0304…0330 Head {h00=0x0028, h01=0x0050, text=» ENTRY SPINF1 INFORMATION ON LINE 1 «, t00=0x0001, t01=0x0178}
0x0330…035c Head {h00=0x0028, h01=0x0050, text=» ENTRY SPINF8 INFORMATION ON LINE 8 «, t00=0x0002, t01=0x0014}
0x035c…0370 Head {h00=0x0010, h01=0x0050, text=» ENTRY BELL «, t00=0x0002, t01=0x0040}
0x0370…037a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0054}
0x037a…03aa Head {h00=0x002c, h01=0x0050, text=» EXT SPCHK1 STANDARD CHECK ROUTINE NO. 1«, t00=0x0002, t01=0x005e}
0x03aa…03da Head {h00=0x002c, h01=0x0050, text=» EXT SPCHK2 STANDARD CHECK ROUTINE NO. 2«, t00=0x0002, t01=0x008e}
0x03da…040a Head {h00=0x002c, h01=0x0050, text=» EXT SPCHK3 STANDARD CHECK ROUTINE NO. 3«, t00=0x0002, t01=0x00be}
0x040a…043a Head {h00=0x002c, h01=0x0050, text=» EXT SPCHK4 STANDARD CHECK ROUTINE NO. 4«, t00=0x0002, t01=0x00ee}
0x043a…046a Head {h00=0x002c, h01=0x0050, text=» EXT SPCHK5 STANDARD CHECK ROUTINE NO.5 «, t00=0x0002, t01=0x011e}
0x046a…049a Head {h00=0x002c, h01=0x0050, text=» EXT SPCHK6 STANDARD CHECK ROUTINE NO. 6«, t00=0x0002, t01=0x014e}
0x049a…04ca Head {h00=0x002c, h01=0x0050, text=» EXT SPCHK7 STANDARD CHECK ROUTINE NO. 7«, t00=0x0002, t01=0x017e}
0x04ca…04f4 Head {h00=0x0026, h01=0x0050, text=» EXT SPAPPL USER ROUTINE TO HANDLE«, t00=0x0003, t01=0x001e}
0x04f4…050a Head {h00=0x0012, h01=0x0050, text=» APPL VALUES«, t00=0x0003, t01=0x0048}
0x050a…0536 Head {h00=0x0028, h01=0x0050, text=» EXT SPTCHK USER ROUTINE TO EVALUATE«, t00=0x0003, t01=0x005e}
0x0536…0558 Head {h00=0x001e, h01=0x0050, text=» CONDITIONAL TABULATION «, t00=0x0003, t01=0x008a}
0x0558…0562 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00ac}
0x0562…0594 Head {h00=0x002e, h01=0x0050, text=» EXT EMPTYT ASSEMBLY SUBROUTINE EMPTYT - «, t00=0x0003, t01=0x00b6}
0x0594…05ba Head {h00=0x0022, h01=0x0050, text=» TEST IF DATA ITEM IS EMPTY «, t00=0x0003, t01=0x00e8}
0x05ba…05ce Head {h00=0x0010, h01=0x0050, text=» EXT CLEAR8 «, t00=0x0003, t01=0x010e}
0x05ce…05d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0122}
0x05d8…05f4 Head {h00=0x0018, h01=0x0050, text=» INCLUDE KEY461,LIST«, t00=0x0003, t01=0x012c}
0x05f4…061c Head {h00=0x0024, h01=0x0050, text=»* FIRST INCLUDE KEY VALUES, «, t00=0x0003, t01=0x0148}
0x061c…064e Head {h00=0x002e, h01=0x0050, text=»* THEN INCLUDE SPECIAL SCREEN FORMATS «, t00=0x0003, t01=0x0170}
0x064e…066a Head {h00=0x0018, h01=0x0050, text=» INCLUDE SL461,LIST «, t00=0x0004, t01=0x0012}
0x066a…0672 Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x002e}
0x0672…0686 Head {h00=0x0010, h01=0x0050, text=»SPCLRA PROC «, t00=0x0004, t01=0x0036}
0x0686…0690 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x004a}
0x0690…06d8 Head {h00=0x0044, h01=0x0050, text=»* SPCLRA - CLEAR ALL VARABLE FIELDS BEFORE HANDLING THE PICTURE «, t00=0x0004, t01=0x0054}
0x06d8…06e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x009c}
0x06e2…06fe Head {h00=0x0018, h01=0x0050, text=» MOVE SPERASE,=W'0' «, t00=0x0004, t01=0x00a6}
0x06fe…0728 Head {h00=0x0026, h01=0x0050, text=» MOVE SPLINTOP,=W'1' WHOLE SCREEN «, t00=0x0004, t01=0x00c2}
0x0728…0744 Head {h00=0x0018, h01=0x0050, text=» MOVE SPLINLOW,=W'0'«, t00=0x0004, t01=0x00ec}
0x0744…075e Head {h00=0x0016, h01=0x0050, text=» PERF SCREEN,=W'1'«, t00=0x0004, t01=0x0108}
0x075e…076a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0004, t01=0x0122}
0x076a…0778 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0004, t01=0x012e}
0x0778…078c Head {h00=0x0010, h01=0x0050, text=»SPCLRS PROC «, t00=0x0004, t01=0x013c}
0x078c…0796 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0150}
0x0796…07e0 Head {h00=0x0046, h01=0x0050, text=»* SPCLRS - CLEAR SOME VARIABLE FIELDS BEFORE HANDLING THE PICTURE «, t00=0x0004, t01=0x015a}
0x07e0…07ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0014}
0x07ea…0806 Head {h00=0x0018, h01=0x0050, text=» MOVE SPERASE,=W'0' «, t00=0x0005, t01=0x001e}
0x0806…0830 Head {h00=0x0026, h01=0x0050, text=» MOVE SPLINTOP,=W'1' WHOLE SCREEN «, t00=0x0005, t01=0x003a}
0x0830…084c Head {h00=0x0018, h01=0x0050, text=» MOVE SPLINLOW,=W'0'«, t00=0x0005, t01=0x0064}
0x084c…0866 Head {h00=0x0016, h01=0x0050, text=» PERF SCREEN,=W'2'«, t00=0x0005, t01=0x0080}
0x0866…0872 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0005, t01=0x009a}
0x0872…0880 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0005, t01=0x00a6}
0x0880…0894 Head {h00=0x0010, h01=0x0050, text=»SPCLRN PROC «, t00=0x0005, t01=0x00b4}
0x0894…089e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00c8}
0x089e…08e6 Head {h00=0x0044, h01=0x0050, text=»* SPCLRN - CLEAR NO VARIABLE FIELDS BEFORE HANDLING THE PICTURE «, t00=0x0005, t01=0x00d2}
0x08e6…08f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x011a}
0x08f0…090c Head {h00=0x0018, h01=0x0050, text=» MOVE SPERASE,=W'0' «, t00=0x0005, t01=0x0124}
0x090c…0936 Head {h00=0x0026, h01=0x0050, text=» MOVE SPLINTOP,=W'1' WHOLE SCREEN «, t00=0x0005, t01=0x0140}
0x0936…0952 Head {h00=0x0018, h01=0x0050, text=» MOVE SPLINLOW,=W'0'«, t00=0x0005, t01=0x016a}
0x0952…096c Head {h00=0x0016, h01=0x0050, text=» PERF SCREEN,=W'3'«, t00=0x0005, t01=0x0186}
0x096c…0978 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0006, t01=0x0010}
0x0978…0986 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0006, t01=0x001c}
0x0986…0998 Head {h00=0x000e, h01=0x0050, text=»SPERR PROC«, t00=0x0006, t01=0x002a}
0x0998…09a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x003c}
0x09a2…09d6 Head {h00=0x0030, h01=0x0050, text=»* HANDLE ERRORS DETECTED OUTSIDE THE PACKAGE«, t00=0x0006, t01=0x0046}
0x09d6…09e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x007a}
0x09e0…09fa Head {h00=0x0016, h01=0x0050, text=» PERF SCREEN,=W'0'«, t00=0x0006, t01=0x0084}
0x09fa…0a06 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0006, t01=0x009e}
0x0a06…0a14 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0006, t01=0x00aa}
0x0a14…0a26 Head {h00=0x000e, h01=0x0050, text=»SPCA PROC «, t00=0x0006, t01=0x00b8}
0x0a26…0a30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00ca}
0x0a30…0a78 Head {h00=0x0044, h01=0x0050, text=»* SPCA - AS SPCLRA, BUT ONLY BETWEEN LINES SPLINTOPAND SPLINLOW «, t00=0x0006, t01=0x00d4}
0x0a78…0a82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x011c}
0x0a82…0a9e Head {h00=0x0018, h01=0x0050, text=» MOVE SPERASE,=W'4' «, t00=0x0006, t01=0x0126}
0x0a9e…0ab8 Head {h00=0x0016, h01=0x0050, text=» PERF SCREEN,=W'1'«, t00=0x0006, t01=0x0142}
0x0ab8…0ac4 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0006, t01=0x015c}
0x0ac4…0ad2 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0006, t01=0x0168}
0x0ad2…0ae4 Head {h00=0x000e, h01=0x0050, text=»SPCN PROC «, t00=0x0006, t01=0x0176}
0x0ae4…0aee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0188}
0x0aee…0b36 (7, 0, 400) Head {h00=0x0044, h01=0x0050, text=»* SPCN - AS SPCLRN, BUT ONLY BETWEEN LINES SPLINTOP AND SPLINLOW«, t00=0x0007, t01=0x0004}
0x0b36…0b40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x004c}
0x0b40…0b5c Head {h00=0x0018, h01=0x0050, text=» MOVE SPERASE,=W'4' «, t00=0x0007, t01=0x0056}
0x0b5c…0b76 Head {h00=0x0016, h01=0x0050, text=» PERF SCREEN,=W'3'«, t00=0x0007, t01=0x0072}
0x0b76…0b82 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x008c}
0x0b82…0b90 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0007, t01=0x0098}
0x0b90…0b98 Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x00a6}
0x0b98…0bb0 Head {h00=0x0014, h01=0x0050, text=»SCREEN PROC $OPT«, t00=0x0007, t01=0x00ae}
0x0bb0…0bba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00c6}
0x0bba…0be2 Head {h00=0x0024, h01=0x0050, text=»* SCREEN SCREEN HANDLING MODULE «, t00=0x0007, t01=0x00d0}
0x0be2…0bec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00f8}
0x0bec…0c0e Head {h00=0x001e, h01=0x0050, text=»* CALL: PERF SCREEN,<$OPT>«, t00=0x0007, t01=0x0102}
0x0c0e…0c18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0124}
0x0c18…0c3a Head {h00=0x001e, h01=0x0050, text=» PLIT $OPT OPTIO SELECTOR «, t00=0x0007, t01=0x012e}
0x0c3a…0c42 Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x0150}
0x0c42…0c6c Head {h00=0x0026, h01=0x0050, text=» CLEAR SPWARNFL CLEAR WARNING FLAG«, t00=0x0007, t01=0x0158}
0x0c6c…0c98 Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW2,$OPT MOVE TO VARIABLE «, t00=0x0007, t01=0x0182}
0x0c98…0cbe Head {h00=0x0022, h01=0x0050, text=» TO ALLOW INSTR.S CMP AND IB«, t00=0x0008, t01=0x001e}
0x0cbe…0ce8 Head {h00=0x0026, h01=0x0050, text=» CMP SPBINW2,='0' "SPERR" ENTRY ? «, t00=0x0008, t01=0x0044}
0x0ce8…0d02 Head {h00=0x0016, h01=0x0050, text=» BE ERRPRINT YES !«, t00=0x0008, t01=0x006e}
0x0d02…0d0a Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x0088}
0x0d0a…0d3c Head {h00=0x002e, h01=0x0050, text=» TBT SPPROMPT,ENTIRE JUMP IF ENTIRE FORMAT«, t00=0x0008, t01=0x0090}
0x0d3c…0d5a Head {h00=0x001a, h01=0x0050, text=» SHOULD BE DISPLAYED«, t00=0x0008, t01=0x00c2}
0x0d5a…0d64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00e0}
0x0d64…0d86 Head {h00=0x001e, h01=0x0050, text=»* ONLY VARIABLE FIELDS «, t00=0x0008, t01=0x00ea}
0x0d86…0d90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x010c}
0x0d90…0dcc Head {h00=0x0038, h01=0x0050, text=» IB SPBINW2,CLEARA,CLEARS,CONT JUMP ON ROUTINE INDEX«, t00=0x0008, t01=0x0116}
0x0dcc…0dd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0152}
0x0dd6…0de4 Head {h00=0x000a, h01=0x0050, text=»CLEARA«, t00=0x0008, t01=0x015c}
0x0de4…0e20 Head {h00=0x0038, h01=0x0050, text=» ERASE 10,SPLINTOP,SPLINLOW ERASE ALL FROM 1 AND UP «, t00=0x0008, t01=0x016a}
0x0e20…0e2e Head {h00=0x000a, h01=0x0050, text=» THOME«, t00=0x0009, t01=0x0016}
0x0e2e…0e3e Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x0009, t01=0x0024}
0x0e3e…0e48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0034}
0x0e48…0e56 Head {h00=0x000a, h01=0x0050, text=»CLEARS«, t00=0x0009, t01=0x003e}
0x0e56…0e92 Head {h00=0x0038, h01=0x0050, text=» ERASE 5,SPLINTOP,SPLINLOW ERASE SOME FROM 1 AND UP «, t00=0x0009, t01=0x004c}
0x0e92…0ea2 Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x0009, t01=0x0088}
0x0ea2…0eaa Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x0098}
0x0eaa…0eb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00a0}
0x0eb4…0ed6 Head {h00=0x001e, h01=0x0050, text=»* DISPLAY ENTIRE FORMAT«, t00=0x0009, t01=0x00aa}
0x0ed6…0ee0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00cc}
0x0ee0…0eee Head {h00=0x000a, h01=0x0050, text=»ENTIRE«, t00=0x0009, t01=0x00d6}
0x0eee…0f2a Head {h00=0x0038, h01=0x0050, text=» IB SPBINW2,ECLRA,ECLRS,ECLRN JUMP ON ROUTINE INDEX «, t00=0x0009, t01=0x00e4}
0x0f2a…0f34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0120}
0x0f34…0f54 Head {h00=0x001c, h01=0x0050, text=»* CLEAR ALL VARIABLES«, t00=0x0009, t01=0x012a}
0x0f54…0f5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x014a}
0x0f5e…0f6c Head {h00=0x000a, h01=0x0050, text=»ECLRA «, t00=0x0009, t01=0x0154}
0x0f6c…0f9a Head {h00=0x002a, h01=0x0050, text=» ERASE 11,SPLINTOP,SPLINLOW CLEAR ALL «, t00=0x0009, t01=0x0162}
0x0f9a…0fae Head {h00=0x0010, h01=0x0050, text=» IN MEMORY«, t00=0x0009, t01=0x0190}
0x0fae…0fbe Head {h00=0x000c, h01=0x0050, text=» B ECLRN«, t00=0x000a, t01=0x0014}
0x0fbe…0fc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0024}
0x0fc8…0fea Head {h00=0x001e, h01=0x0050, text=»* CLEAR SOME VARIABLES «, t00=0x000a, t01=0x002e}
0x0fea…0ff4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0050}
0x0ff4…1002 Head {h00=0x000a, h01=0x0050, text=»ECLRS «, t00=0x000a, t01=0x005a}
0x1002…103c Head {h00=0x0036, h01=0x0050, text=» ERASE 6,SPLINTOP,SPLINLOW CLEAR SOME FIELDS FROM «, t00=0x000a, t01=0x0068}
0x103c…105a Head {h00=0x001a, h01=0x0050, text=» 1 AND UP IN MEMORY «, t00=0x000a, t01=0x00a2}
0x105a…1064 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00c0}
0x1064…108e Head {h00=0x0026, h01=0x0050, text=»* CLEAR NO VARIABLES IN MEMORY «, t00=0x000a, t01=0x00ca}
0x108e…1098 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00f4}
0x1098…10a6 Head {h00=0x000a, h01=0x0050, text=»ECLRN «, t00=0x000a, t01=0x00fe}
0x10a6…10d6 Head {h00=0x002c, h01=0x0050, text=» IB SPERASE,ECLRN1,ECLRN2,ECLRN3,ECLRN4 «, t00=0x000a, t01=0x010c}
0x10d6…10fa Head {h00=0x0020, h01=0x0050, text=» DISPLAY 0,SPLINTOP,SPLINLOW«, t00=0x000a, t01=0x013c}
0x10fa…110a Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x000a, t01=0x0160}
0x110a…1118 Head {h00=0x000a, h01=0x0050, text=»ECLRN1«, t00=0x000a, t01=0x0170}
0x1118…113c Head {h00=0x0020, h01=0x0050, text=» DISPLAY 1,SPLINTOP,SPLINLOW«, t00=0x000a, t01=0x017e}
0x113c…114c Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x000b, t01=0x0012}
0x114c…115a Head {h00=0x000a, h01=0x0050, text=»ECLRN2«, t00=0x000b, t01=0x0022}
0x115a…117e Head {h00=0x0020, h01=0x0050, text=» DISPLAY 2,SPLINTOP,SPLINLOW«, t00=0x000b, t01=0x0030}
0x117e…118e Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x000b, t01=0x0054}
0x118e…119c Head {h00=0x000a, h01=0x0050, text=»ECLRN3«, t00=0x000b, t01=0x0064}
0x119c…11c0 Head {h00=0x0020, h01=0x0050, text=» DISPLAY 3,SPLINTOP,SPLINLOW«, t00=0x000b, t01=0x0072}
0x11c0…11d0 Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x000b, t01=0x0096}
0x11d0…11de Head {h00=0x000a, h01=0x0050, text=»ECLRN4«, t00=0x000b, t01=0x00a6}
0x11de…1202 Head {h00=0x0020, h01=0x0050, text=» DISPLAY 4,SPLINTOP,SPLINLOW«, t00=0x000b, t01=0x00b4}
0x1202…1212 Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x000b, t01=0x00d8}
0x1212…121c Head {h00=0x0006, h01=0x0050, text=» «, t00=0x000b, t01=0x00e8}
0x121c…1228 Head {h00=0x0008, h01=0x0050, text=»CONT«, t00=0x000b, t01=0x00f2}
0x1228…1252 Head {h00=0x0026, h01=0x0050, text=» GETABX SPBINW4 GET CURRENT INDEX «, t00=0x000b, t01=0x00fe}
0x1252…127e Head {h00=0x0028, h01=0x0050, text=» BL KTHOME JUMP IF NO CURRENT FIELD «, t00=0x000b, t01=0x0128}
0x127e…128c Head {h00=0x000a, h01=0x0050, text=»CONT5 «, t00=0x000b, t01=0x0154}
0x128c…12c6 Head {h00=0x0036, h01=0x0050, text=» GETFLD 0,SPBINW4,SPBINW3 SEARCH CURRENT POSITION «, t00=0x000b, t01=0x0162}
0x12c6…12e8 Head {h00=0x001e, h01=0x0050, text=» BZ SETCREAD JUMP IF FOUND«, t00=0x000c, t01=0x000c}
0x12e8…130e Head {h00=0x0022, h01=0x0050, text=» BL KTHOME POSITION NOT FOUND «, t00=0x000c, t01=0x002e}
0x130e…1318 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0054}
0x1318…133c Head {h00=0x0020, h01=0x0050, text=»* COMPULSORY FIELD FOUND «, t00=0x000c, t01=0x005e}
0x133c…1346 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0082}
0x1346…1370 Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW4,SPBINW3 CHANGE INDEX«, t00=0x000c, t01=0x008c}
0x1370…138e Head {h00=0x001a, h01=0x0050, text=» B CONT5 SEARCH AGAIN «, t00=0x000c, t01=0x00b6}
0x138e…1398 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00d4}
0x1398…13a0 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x00de}
0x13a0…13aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00e6}
0x13aa…13d4 Head {h00=0x0026, h01=0x0050, text=»* SET CURSOR AND READ KEYBOARD «, t00=0x000c, t01=0x00f0}
0x13d4…13de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x011a}
0x13de…13ee Head {h00=0x000c, h01=0x0050, text=»SETCREAD«, t00=0x000c, t01=0x0124}
0x13ee…141a Head {h00=0x0028, h01=0x0050, text=» SETCUR SET CURSOR ON CURRENT FIELD«, t00=0x000c, t01=0x0134}
0x141a…1422 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0160}
0x1422…142c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0168}
0x142c…145a Head {h00=0x002a, h01=0x0050, text=»* READ TO CURRENT FIELD ON DISPLAY «, t00=0x000c, t01=0x0172}
0x145a…1464 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0010}
0x1464…1472 Head {h00=0x000a, h01=0x0050, text=»READIN«, t00=0x000d, t01=0x001a}
0x1472…1494 Head {h00=0x001e, h01=0x0050, text=»* SET FLAG IF AUTODUP «, t00=0x000d, t01=0x0028}
0x1494…14b2 Head {h00=0x001a, h01=0x0050, text=»* USES VERIF-FIELD«, t00=0x000d, t01=0x004a}
0x14b2…14ce Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW2,=W'3' «, t00=0x000d, t01=0x0068}
0x14ce…14ea Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW1,=W'1' «, t00=0x000d, t01=0x0084}
0x14ea…14fc Head {h00=0x000e, h01=0x0050, text=» TSTCTL 6 «, t00=0x000d, t01=0x00a0}
0x14fc…150e Head {h00=0x000e, h01=0x0050, text=» BOK DYKIN«, t00=0x000d, t01=0x00b2}
0x150e…1524 Head {h00=0x0012, h01=0x0050, text=» SET GTADUPFL «, t00=0x000d, t01=0x00c4}
0x1524…1534 Head {h00=0x000c, h01=0x0050, text=» B DYK20«, t00=0x000d, t01=0x00da}
0x1534…153e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00ea}
0x153e…154c Head {h00=0x000a, h01=0x0050, text=»DYKIN «, t00=0x000d, t01=0x00f4}
0x154c…1570 Head {h00=0x0020, h01=0x0050, text=» IB SPKEY,DYK05,DYK10,DYK15 «, t00=0x000d, t01=0x0102}
0x1570…157e Head {h00=0x000a, h01=0x0050, text=»DYK05 «, t00=0x000d, t01=0x0126}
0x157e…15b0 Head {h00=0x002e, h01=0x0050, text=» DYKI SPINPUT,SPKTAB1,SPKTAB2,SPBINW1, C «, t00=0x000d, t01=0x0134}
0x15b0…15ca Head {h00=0x0016, h01=0x0050, text=» SPBINW2,SPBINW4 «, t00=0x000d, t01=0x0166}
0x15ca…15dc Head {h00=0x000e, h01=0x0050, text=» B DYKOUT «, t00=0x000d, t01=0x0180}
0x15dc…15ea (14, 0, 400) Head {h00=0x000a, h01=0x0050, text=»DYK10 «, t00=0x000e, t01=0x0004}
0x15ea…161e Head {h00=0x0030, h01=0x0050, text=» DYKI SPINPUT,SPKTAB12,SPKTAB22,SPBINW1, C «, t00=0x000e, t01=0x0012}
0x161e…1638 Head {h00=0x0016, h01=0x0050, text=» SPBINW2,SPBINW4 «, t00=0x000e, t01=0x0046}
0x1638…164a Head {h00=0x000e, h01=0x0050, text=» B DYKOUT «, t00=0x000e, t01=0x0060}
0x164a…1658 Head {h00=0x000a, h01=0x0050, text=»DYK15 «, t00=0x000e, t01=0x0072}
0x1658…168c Head {h00=0x0030, h01=0x0050, text=» DYKI SPINPUT,SPKTAB13,SPKTAB23,SPBINW1, C «, t00=0x000e, t01=0x0080}
0x168c…16a6 Head {h00=0x0016, h01=0x0050, text=» SPBINW2,SPBINW4 «, t00=0x000e, t01=0x00b4}
0x16a6…16b4 Head {h00=0x000a, h01=0x0050, text=»DYKOUT«, t00=0x000e, t01=0x00ce}
0x16b4…16cc Head {h00=0x0014, h01=0x0050, text=» BL ERRPRT ERROR«, t00=0x000e, t01=0x00dc}
0x16cc…16e2 Head {h00=0x0012, h01=0x0050, text=» CLEAR SPDUPL «, t00=0x000e, t01=0x00f4}
0x16e2…1718 Head {h00=0x0032, h01=0x0050, text=» CBNG SPBINW2,='0',RETUR JUMP IF POWER OFF OR «, t00=0x000e, t01=0x010a}
0x1718…1722 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0140}
0x1722…1730 Head {h00=0x000a, h01=0x0050, text=»DYK20 «, t00=0x000e, t01=0x014a}
0x1730…173a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0158}
0x173a…1744 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0162}
0x1744…175c Head {h00=0x0014, h01=0x0050, text=» KEY SWITCHES «, t00=0x000e, t01=0x016c}
0x175c…1788 Head {h00=0x0028, h01=0x0050, text=» IB SPBINW2,UPD300,CLEA20 JUMP ON C «, t00=0x000e, t01=0x0184}
0x1788…17a6 Head {h00=0x001a, h01=0x0050, text=» UPDATE,CANC,CANC, C«, t00=0x000f, t01=0x0020}
0x17a6…17d8 Head {h00=0x002e, h01=0x0050, text=» UPDATE,UPDATE,UPDATE,UPDATE CONVERTED C «, t00=0x000f, t01=0x003e}
0x17d8…1810 Head {h00=0x0034, h01=0x0050, text=» UPDATE,UPDATE,UPDATE,UPDATE END-OF-ITEM-KEY C «, t00=0x000f, t01=0x0070}
0x1810…182c Head {h00=0x0018, h01=0x0050, text=» UPDATE,KDUPL,KEDIT«, t00=0x000f, t01=0x00a8}
0x182c…1836 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x000f, t01=0x00c4}
0x1836…1840 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00ce}
0x1840…1878 Head {h00=0x0034, h01=0x0050, text=»* HANDLE THE RESPECTIVE KEY AS EOI-KEY FIRST «, t00=0x000f, t01=0x00d8}
0x1878…1882 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0110}
0x1882…1890 Head {h00=0x000a, h01=0x0050, text=»UPDATE«, t00=0x000f, t01=0x011a}
0x1890…18c4 Head {h00=0x0030, h01=0x0050, text=» CBE SPBINW1,='0',UPD350 JUMP IF LENGTH = 0 «, t00=0x000f, t01=0x0128}
0x18c4…18ee Head {h00=0x0026, h01=0x0050, text=» GETCTL 3,SPBINW4 GET SCHK-NUMBER «, t00=0x000f, t01=0x015c}
0x18ee…192a Head {h00=0x0038, h01=0x0050, text=» CBE SPBINW4,='0',UPD050 JUMP IF NOT STANDARD CHECK «, t00=0x000f, t01=0x0186}
0x192a…1958 Head {h00=0x002a, h01=0x0050, text=» PERFI SPBINW4,SPCHK1,SPCHK2,SPCHK3 C«, t00=0x0010, t01=0x0032}
0x1958…197e Head {h00=0x0022, h01=0x0050, text=» SPCHK4,SPCHK5,SPCHK6,SPCHK7 «, t00=0x0010, t01=0x0060}
0x197e…19a8 Head {h00=0x0026, h01=0x0050, text=» IB SPBINW3,UPD050,UPD070,ERRPRINT«, t00=0x0010, t01=0x0086}
0x19a8…19b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00b0}
0x19b2…19d6 Head {h00=0x0020, h01=0x0050, text=»* CONDITIONAL DISPLAYING «, t00=0x0010, t01=0x00ba}
0x19d6…19e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00de}
0x19e0…19ee Head {h00=0x000a, h01=0x0050, text=»UPD050«, t00=0x0010, t01=0x00e8}
0x19ee…1a08 Head {h00=0x0016, h01=0x0050, text=» TBT SPDUPL,UPD100«, t00=0x0010, t01=0x00f6}
0x1a08…1a38 Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW4,='1' INDICATE COND. DISPL «, t00=0x0010, t01=0x0110}
0x1a38…1a4a Head {h00=0x000e, h01=0x0050, text=» B UPD200 «, t00=0x0010, t01=0x0140}
0x1a4a…1a58 Head {h00=0x000a, h01=0x0050, text=»UPD070«, t00=0x0010, t01=0x0152}
0x1a58…1a80 Head {h00=0x0024, h01=0x0050, text=» GETCTL 0,SPBINW3 GET APPL-VALUE«, t00=0x0010, t01=0x0160}
0x1a80…1ab4 Head {h00=0x0030, h01=0x0050, text=» CBNE SPBINW3,='0',UPD210 JUMP IF APPL VALUE«, t00=0x0010, t01=0x0188}
0x1ab4…1ac8 Head {h00=0x0010, h01=0x0050, text=» B SETCREAD «, t00=0x0011, t01=0x002c}
0x1ac8…1ad2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0040}
0x1ad2…1af8 Head {h00=0x0022, h01=0x0050, text=»* UNCONDITIONAL DISPLAYING «, t00=0x0011, t01=0x004a}
0x1af8…1b02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0070}
0x1b02…1b10 Head {h00=0x000a, h01=0x0050, text=»UPD100«, t00=0x0011, t01=0x007a}
0x1b10…1b4a Head {h00=0x0036, h01=0x0050, text=» MOVE SPBINW4,='2' INDICATE UNCONDITIONAL DISPLAY «, t00=0x0011, t01=0x0088}
0x1b4a…1b58 Head {h00=0x000a, h01=0x0050, text=»UPD200«, t00=0x0011, t01=0x00c2}
0x1b58…1b80 Head {h00=0x0024, h01=0x0050, text=» GETCTL 0,SPBINW3 GET APPL-VALUE«, t00=0x0011, t01=0x00d0}
0x1b80…1bb6 Head {h00=0x0032, h01=0x0050, text=» CBE SPBINW3,='0',UPD400 JUMP IF NO APPL VALUE«, t00=0x0011, t01=0x00f8}
0x1bb6…1bc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x012e}
0x1bc0…1bec Head {h00=0x0028, h01=0x0050, text=»* APPL-VALUE DIFFERENT FROM ZERO «, t00=0x0011, t01=0x0138}
0x1bec…1bf6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0164}
0x1bf6…1c04 Head {h00=0x000a, h01=0x0050, text=»UPD210«, t00=0x0011, t01=0x016e}
0x1c04…1c18 Head {h00=0x0010, h01=0x0050, text=» PERF SPAPPL«, t00=0x0011, t01=0x017c}
0x1c18…1c44 Head {h00=0x0028, h01=0x0050, text=» IB SPBINW3,UPD400,SETCREAD,ERRPRINT«, t00=0x0011, t01=0x0190}
0x1c44…1c56 Head {h00=0x000e, h01=0x0050, text=» B UPD400 «, t00=0x0012, t01=0x002c}
0x1c56…1c60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x003e}
0x1c60…1c82 Head {h00=0x001e, h01=0x0050, text=»* OK AFTER APPL CONTROL«, t00=0x0012, t01=0x0048}
0x1c82…1ca8 Head {h00=0x0022, h01=0x0050, text=»* UNCONDITIONAL DISPLAYING «, t00=0x0012, t01=0x006a}
0x1ca8…1cb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0090}
0x1cb2…1cc0 Head {h00=0x000a, h01=0x0050, text=»UPD260«, t00=0x0012, t01=0x009a}
0x1cc0…1cf6 Head {h00=0x0032, h01=0x0050, text=» UPDFLD 1,SPINPUT UPDATE FIELD WITH DISPLAYING«, t00=0x0012, t01=0x00a8}
0x1cf6…1d04 Head {h00=0x000a, h01=0x0050, text=»UPD300«, t00=0x0012, t01=0x00de}
0x1d04…1d3c Head {h00=0x0034, h01=0x0050, text=» CBE SPBINW1,='0',UPD350 SKIP NEXT IF LENGTH = 0«, t00=0x0012, t01=0x00ec}
0x1d3c…1d68 Head {h00=0x0028, h01=0x0050, text=» SET SPCHANGE INDICATE CHANGED ITEM «, t00=0x0012, t01=0x0124}
0x1d68…1d76 Head {h00=0x000a, h01=0x0050, text=»UPD350«, t00=0x0012, t01=0x0150}
0x1d76…1d98 Head {h00=0x001e, h01=0x0050, text=»* TAKE CARE OF WARNING«, t00=0x0012, t01=0x015e}
0x1d98…1db4 Head {h00=0x0018, h01=0x0050, text=» TBF SPWARNFL,UPD360«, t00=0x0012, t01=0x0180}
0x1db4…1de2 Head {h00=0x002a, h01=0x0050, text=» MOVE SPBINW1,SPBINW2 STORE KEY VALUE «, t00=0x0013, t01=0x000c}
0x1de2…1e0a Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,=W'26' SET MESSAGE«, t00=0x0013, t01=0x003a}
0x1e0a…1e1e Head {h00=0x0010, h01=0x0050, text=» PERF SPERR «, t00=0x0013, t01=0x0062}
0x1e1e…1e4a Head {h00=0x0028, h01=0x0050, text=» CBNE SPBINW2,CBIN2,UPD360 KOR-KEY ?«, t00=0x0013, t01=0x0076}
0x1e4a…1e7a Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW2,SPBINW1 RESET OLD KEYVALUE«, t00=0x0013, t01=0x00a2}
0x1e7a…1e88 Head {h00=0x000a, h01=0x0050, text=»UPD360«, t00=0x0013, t01=0x00d2}
0x1e88…1eb0 Head {h00=0x0024, h01=0x0050, text=»* JUMP ON FUNCTION KEY INDEX «, t00=0x0013, t01=0x00e0}
0x1eb0…1ed4 Head {h00=0x0020, h01=0x0050, text=» IB SPBINW2,READIN,DUMMY, C«, t00=0x0013, t01=0x0108}
0x1ed4…1ef8 Head {h00=0x0020, h01=0x0050, text=» KEOI,DUMMY,DUMMY,KTFWD, C«, t00=0x0013, t01=0x012c}
0x1ef8…1f2a Head {h00=0x002e, h01=0x0050, text=» KTBWD,KTHOME,KTLDOWN,KTLEFT,KTRIGHT, C «, t00=0x0013, t01=0x0150}
0x1f2a…1f58 Head {h00=0x002a, h01=0x0050, text=» KTDOWN,KTUP,KCOPY,DUMMY,DUMMY,KENTER«, t00=0x0013, t01=0x0182}
0x1f58…1f88 Head {h00=0x002c, h01=0x0050, text=» SUB SPBINW2,=W'14' ADJUST EOI-KEY INDEX«, t00=0x0014, t01=0x0020}
0x1f88…1f96 Head {h00=0x000a, h01=0x0050, text=»DUMMY «, t00=0x0014, t01=0x0050}
0x1f96…1fa4 Head {h00=0x000a, h01=0x0050, text=»RETUR «, t00=0x0014, t01=0x005e}
0x1fa4…1fb0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0014, t01=0x006c}
0x1fb0…1fba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0078}
0x1fba…1fc8 Head {h00=0x000a, h01=0x0050, text=»UPD400«, t00=0x0014, t01=0x0082}
0x1fc8…2004 Head {h00=0x0038, h01=0x0050, text=» CBE SPBINW4,='2',UPD260 JUMP IF UNCONDITIONAL DISPL«, t00=0x0014, t01=0x0090}
0x2004…2038 Head {h00=0x0030, h01=0x0050, text=» UPDFLD 0,SPINPUT UPDATE FIELD DISPL. COND. «, t00=0x0014, t01=0x00cc}
0x2038…204a Head {h00=0x000e, h01=0x0050, text=» B UPD300 «, t00=0x0014, t01=0x0100}
0x204a…2054 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0112}
0x2054…205c Head {h00=0x0004, h01=0x0050, t00=0x0014, t01=0x011c}
0x205c…2082 Head {h00=0x0022, h01=0x0050, text=»KEOI COMMON END-OF-ITEM KEY «, t00=0x0014, t01=0x0124}
0x2082…20a6 Head {h00=0x0020, h01=0x0050, text=»KTFWD TAB. FORWARD 1 STEP «, t00=0x0014, t01=0x014a}
0x20a6…20b4 Head {h00=0x000a, h01=0x0050, text=» TFWD «, t00=0x0014, t01=0x016e}
0x20b4…20c6 Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x0014, t01=0x017c}
0x20c6…20d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x018e}
0x20d0…20f8 Head {h00=0x0024, h01=0x0050, text=»KTBWD TABULATION 1 STEP BACKW.«, t00=0x0015, t01=0x0008}
0x20f8…2106 Head {h00=0x000a, h01=0x0050, text=» TBWD «, t00=0x0015, t01=0x0030}
0x2106…2118 Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x0015, t01=0x003e}
0x2118…2122 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0050}
0x2122…2148 Head {h00=0x0022, h01=0x0050, text=»KTHOME TAB. TO HOME POSITION«, t00=0x0015, t01=0x005a}
0x2148…2156 Head {h00=0x000a, h01=0x0050, text=» THOME«, t00=0x0015, t01=0x0080}
0x2156…2168 Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x0015, t01=0x008e}
0x2168…2172 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00a0}
0x2172…219e Head {h00=0x0028, h01=0x0050, text=»KTLDOWN TAB. TO FIRST ON NEXT LINE«, t00=0x0015, t01=0x00aa}
0x219e…21ae Head {h00=0x000c, h01=0x0050, text=» TLDOWN «, t00=0x0015, t01=0x00d6}
0x21ae…21c0 Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x0015, t01=0x00e6}
0x21c0…21ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00f8}
0x21ca…21ec Head {h00=0x001e, h01=0x0050, text=»KTLEFT TAB. TO LEFTMOST «, t00=0x0015, t01=0x0102}
0x21ec…21fa Head {h00=0x000a, h01=0x0050, text=» TLEFT«, t00=0x0015, t01=0x0124}
0x21fa…220c Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x0015, t01=0x0132}
0x220c…2216 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0144}
0x2216…223a Head {h00=0x0020, h01=0x0050, text=»KTRIGHT TAB. TO RIGHTMOST «, t00=0x0015, t01=0x014e}
0x223a…224a Head {h00=0x000c, h01=0x0050, text=» TRIGHT «, t00=0x0015, t01=0x0172}
0x224a…225c Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x0015, t01=0x0182}
0x225c…2266 (22, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0004}
0x2266…2282 Head {h00=0x0018, h01=0x0050, text=»KTDOWN TAB 1 DOWN «, t00=0x0016, t01=0x000e}
0x2282…2290 Head {h00=0x000a, h01=0x0050, text=» TDOWN«, t00=0x0016, t01=0x002a}
0x2290…22a2 Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x0016, t01=0x0038}
0x22a2…22ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x004a}
0x22ac…22c4 Head {h00=0x0014, h01=0x0050, text=»KTUP TAB 1 UP «, t00=0x0016, t01=0x0054}
0x22c4…22d0 Head {h00=0x0008, h01=0x0050, text=» TUP«, t00=0x0016, t01=0x006c}
0x22d0…22d8 Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x0078}
0x22d8…22f8 Head {h00=0x001c, h01=0x0050, text=»TSTTAB TEST TAB OUTPUT«, t00=0x0016, t01=0x0080}
0x22f8…230e Head {h00=0x0012, h01=0x0050, text=» BE READIN OK «, t00=0x0016, t01=0x00a0}
0x230e…232a Head {h00=0x0018, h01=0x0050, text=» BL READIN NOT FOUND«, t00=0x0016, t01=0x00b6}
0x232a…2358 Head {h00=0x002a, h01=0x0050, text=» BOFL SETCREAD EMPTY COMPULSORY FIELD «, t00=0x0016, t01=0x00d2}
0x2358…2362 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0100}
0x2362…236c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x010a}
0x236c…2390 Head {h00=0x0020, h01=0x0050, text=»* CONDITIONAL TABULATION «, t00=0x0016, t01=0x0114}
0x2390…239a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0138}
0x239a…23ae Head {h00=0x0010, h01=0x0050, text=» PERF SPTCHK«, t00=0x0016, t01=0x0142}
0x23ae…23c8 Head {h00=0x0016, h01=0x0050, text=» CMP SPBINW3,='0' «, t00=0x0016, t01=0x0156}
0x23c8…23dc Head {h00=0x0010, h01=0x0050, text=» BE SETCREAD«, t00=0x0016, t01=0x0170}
0x23dc…2400 Head {h00=0x0020, h01=0x0050, text=» IB SPBINW2,DUMMY,DUMMY, C «, t00=0x0016, t01=0x0184}
0x2400…2426 Head {h00=0x0022, h01=0x0050, text=» KTFWD,DUMMY,DUMMY,KTFWD, C «, t00=0x0017, t01=0x0018}
0x2426…244c Head {h00=0x0022, h01=0x0050, text=» KTBWD,KTFWD,KTFWD,KTFWD, C «, t00=0x0017, t01=0x003e}
0x244c…2468 Head {h00=0x0018, h01=0x0050, text=» KTBWD,KTFWD,KTBWD «, t00=0x0017, t01=0x0064}
0x2468…24a8 Head {h00=0x003c, h01=0x0050, text=»* BRANCH LIST EXHAUSTED - SPBINW2 CLOBBERED BY SPTCHK«, t00=0x0017, t01=0x0080}
0x24a8…24b0 Head {h00=0x0004, h01=0x0050, t00=0x0017, t01=0x00c0}
0x24b0…24c4 Head {h00=0x0010, h01=0x0050, text=» B SETCREAD «, t00=0x0017, t01=0x00c8}
0x24c4…24ce Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0017, t01=0x00dc}
0x24ce…24e8 Head {h00=0x0016, h01=0x0050, text=»KCOPY HARD COPY «, t00=0x0017, t01=0x00e6}
0x24e8…2502 Head {h00=0x0016, h01=0x0050, text=» MOVE SPBINW3,='1'«, t00=0x0017, t01=0x0100}
0x2502…2520 Head {h00=0x001a, h01=0x0050, text=» TBT GTGTPFLG,KCOPY05 «, t00=0x0017, t01=0x011a}
0x2520…253c Head {h00=0x0018, h01=0x0050, text=» TBT GTLPFLG,KCOPY08«, t00=0x0017, t01=0x0138}
0x253c…254e Head {h00=0x000e, h01=0x0050, text=» B KCOPY10«, t00=0x0017, t01=0x0154}
0x254e…255e Head {h00=0x000c, h01=0x0050, text=»KCOPY05 «, t00=0x0017, t01=0x0166}
0x255e…257a Head {h00=0x0018, h01=0x0050, text=» EDWRT DSHCGP,FFEED «, t00=0x0017, t01=0x0176}
0x257a…25a0 (24, 0, 400) Head {h00=0x0022, h01=0x0050, text=» PRINT DSHCGP,SPBINW3,='0' GTP«, t00=0x0018, t01=0x0004}
0x25a0…25b2 Head {h00=0x000e, h01=0x0050, text=» B KCOPY10«, t00=0x0018, t01=0x002a}
0x25b2…25c2 Head {h00=0x000c, h01=0x0050, text=»KCOPY08 «, t00=0x0018, t01=0x003c}
0x25c2…25de Head {h00=0x0018, h01=0x0050, text=» EDWRT DSHCLP,FFEED «, t00=0x0018, t01=0x004c}
0x25de…2604 Head {h00=0x0022, h01=0x0050, text=» PRINT DSHCLP,SPBINW3,='0' LP «, t00=0x0018, t01=0x0068}
0x2604…2616 Head {h00=0x000e, h01=0x0050, text=» B KCOPY10«, t00=0x0018, t01=0x008e}
0x2616…2626 Head {h00=0x000c, h01=0x0050, text=»KCOPY10 «, t00=0x0018, t01=0x00a0}
0x2626…264e Head {h00=0x0024, h01=0x0050, text=» B SETCREAD SET CURSOR AND READ «, t00=0x0018, t01=0x00b0}
0x264e…2658 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00d8}
0x2658…2674 Head {h00=0x0018, h01=0x0050, text=»KDUPL DUPLICATION «, t00=0x0018, t01=0x00e2}
0x2674…26a6 Head {h00=0x002e, h01=0x0050, text=» MOVE SPBINW2,='3' INDICATE COMMON EOI-KEY«, t00=0x0018, t01=0x00fe}
0x26a6…26c8 Head {h00=0x001e, h01=0x0050, text=» DUPL SPINPUT DUPLICATION «, t00=0x0018, t01=0x0130}
0x26c8…26dc Head {h00=0x0010, h01=0x0050, text=» BNZ KDUPL2 «, t00=0x0018, t01=0x0152}
0x26dc…2716 Head {h00=0x0036, h01=0x0050, text=» COPY GSWSTR1,CBIN0,CBIN1,SPINPUT,CBIN1 GET BYTE 1«, t00=0x0018, t01=0x0166}
0x2716…2738 Head {h00=0x001e, h01=0x0050, text=» CBE GSWSTR1,=X'00',KDUPL2«, t00=0x0019, t01=0x0010}
0x2738…276a Head {h00=0x002e, h01=0x0050, text=» MOVE SPBINW1,='10' SET LENGTH IN DUPFIELD«, t00=0x0019, t01=0x0032}
0x276a…277e Head {h00=0x0010, h01=0x0050, text=» SET SPDUPL «, t00=0x0019, t01=0x0064}
0x277e…279c Head {h00=0x001a, h01=0x0050, text=» B UPDATE DUPL ALLOWED«, t00=0x0019, t01=0x0078}
0x279c…27aa Head {h00=0x000a, h01=0x0050, text=»KDUPL2«, t00=0x0019, t01=0x0096}
0x27aa…27de Head {h00=0x0030, h01=0x0050, text=» MOVE SPBINW4,='4' INDICATE ILLEGAL EOI-KEY «, t00=0x0019, t01=0x00a4}
0x27de…2802 Head {h00=0x0020, h01=0x0050, text=» B ERRPRINT DUPL NOT ALLOWED«, t00=0x0019, t01=0x00d8}
0x2802…280a Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x00fc}
0x280a…2814 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0104}
0x2814…282c Head {h00=0x0014, h01=0x0050, text=»* EDIT FIELD «, t00=0x0019, t01=0x010e}
0x282c…2836 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0126}
0x2836…2844 Head {h00=0x000a, h01=0x0050, text=»KEDIT «, t00=0x0019, t01=0x0130}
0x2844…2866 Head {h00=0x001e, h01=0x0050, text=» GETCTL 1,SPBINW3 GET MAXL«, t00=0x0019, t01=0x013e}
0x2866…2888 Head {h00=0x001e, h01=0x0050, text=» CBNE SPBINW3,='0',KED100 «, t00=0x0019, t01=0x0160}
0x2888…289a Head {h00=0x000e, h01=0x0050, text=» PERF BELL«, t00=0x0019, t01=0x0182}
0x289a…28ae (26, 0, 400) Head {h00=0x0010, h01=0x0050, text=» B SETCREAD «, t00=0x001a, t01=0x0004}
0x28ae…28bc Head {h00=0x000a, h01=0x0050, text=»KED100«, t00=0x001a, t01=0x0018}
0x28bc…28e6 Head {h00=0x0026, h01=0x0050, text=» EDFLD SPINPUT,SPKTAB3,SPBINW1, C«, t00=0x001a, t01=0x0026}
0x28e6…2900 Head {h00=0x0016, h01=0x0050, text=» SPBINW2,SPBINW4 «, t00=0x001a, t01=0x0050}
0x2900…2926 Head {h00=0x0022, h01=0x0050, text=» B DYKOUT CONTINUE AS FOR DYKI«, t00=0x001a, t01=0x006a}
0x2926…2930 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0090}
0x2930…2946 Head {h00=0x0012, h01=0x0050, text=»* ENTER KEY«, t00=0x001a, t01=0x009a}
0x2946…2950 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00b0}
0x2950…295e Head {h00=0x000a, h01=0x0050, text=»KENTER«, t00=0x001a, t01=0x00ba}
0x295e…298a Head {h00=0x0028, h01=0x0050, text=» TBT SPCHANGE,KENT00 NO TESTS ON ME «, t00=0x001a, t01=0x00c8}
0x298a…29ac Head {h00=0x001e, h01=0x0050, text=» TBF SPME,KENT05 FIELDS ? «, t00=0x001a, t01=0x00f4}
0x29ac…29ba Head {h00=0x000a, h01=0x0050, text=»KENT00«, t00=0x001a, t01=0x0116}
0x29ba…29ee Head {h00=0x0030, h01=0x0050, text=» MOVE SPBINW4,='5' INDICATE COMP.FIELD FOUND«, t00=0x001a, t01=0x0124}
0x29ee…2a1e Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW1,='0' INDICATE NO CLEARING «, t00=0x001a, t01=0x0158}
0x2a1e…2a54 Head {h00=0x0032, h01=0x0050, text=» MOVE SPBINW2,='0' SET INDEX TO SEARCHED FIELD«, t00=0x001a, t01=0x0188}
0x2a54…2a94 Head {h00=0x003c, h01=0x0050, text=» GETFLD 0,SPBINW2,SPBINW3 SEARCH FOR EMPTY COMP. FIELDS «, t00=0x001b, t01=0x002e}
0x2a94…2ac0 Head {h00=0x0028, h01=0x0050, text=» BOFL KENT10 EMPTY COMP. FIELD FOUND«, t00=0x001b, t01=0x006e}
0x2ac0…2aea Head {h00=0x0026, h01=0x0050, text=» TSTCTL 2 LOOK IF COMPULSORY FIELD«, t00=0x001b, t01=0x009a}
0x2aea…2b00 Head {h00=0x0012, h01=0x0050, text=» BZ KENT05 NO!«, t00=0x001b, t01=0x00c4}
0x2b00…2b32 Head {h00=0x002e, h01=0x0050, text=» CALL EMPTYT,:FMTITEM LOOK IF EMPTY FIELD «, t00=0x001b, t01=0x00da}
0x2b32…2b4a Head {h00=0x0014, h01=0x0050, text=» BP KENT10 YES! «, t00=0x001b, t01=0x010c}
0x2b4a…2b58 Head {h00=0x000a, h01=0x0050, text=»KENT05«, t00=0x001b, t01=0x0124}
0x2b58…2b90 Head {h00=0x0034, h01=0x0050, text=» MOVE SPBINW2,='3' INDICATE ENTER KEY DEPRESSED «, t00=0x001b, t01=0x0132}
0x2b90…2b9c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001b, t01=0x016a}
0x2b9c…2ba6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0176}
0x2ba6…2bd0 Head {h00=0x0026, h01=0x0050, text=»* EMPTY COMPULSORY FIELD FOUND «, t00=0x001b, t01=0x0180}
0x2bd0…2bda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x001a}
0x2bda…2be8 Head {h00=0x000a, h01=0x0050, text=»KENT10«, t00=0x001c, t01=0x0024}
0x2be8…2c22 Head {h00=0x0036, h01=0x0050, text=» GETFLD 0,SPBINW3,SPBINW2 GET THE COMPULSORY FIELD«, t00=0x001c, t01=0x0032}
0x2c22…2c2a Head {h00=0x0004, h01=0x0050, t00=0x001c, t01=0x006c}
0x2c2a…2c38 Head {h00=0x000a, h01=0x0050, text=»ERRPRT«, t00=0x001c, t01=0x0074}
0x2c38…2c66 Head {h00=0x002a, h01=0x0050, text=» CBE SPBINW2,='16',KEDIT JUMP IF EDIT «, t00=0x001c, t01=0x0082}
0x2c66…2c94 Head {h00=0x002a, h01=0x0050, text=» CBE SPBINW2,='4',CANC JUMP IF CANCEL1«, t00=0x001c, t01=0x00b0}
0x2c94…2cc2 Head {h00=0x002a, h01=0x0050, text=» CBE SPBINW2,='5',CANC JUMP IF CANCEL2«, t00=0x001c, t01=0x00de}
0x2cc2…2ccc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x010c}
0x2ccc…2ce8 Head {h00=0x0018, h01=0x0050, text=»* ERROR HANDLING «, t00=0x001c, t01=0x0116}
0x2ce8…2cf2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0132}
0x2cf2…2d02 Head {h00=0x000c, h01=0x0050, text=»ERRPRINT«, t00=0x001c, t01=0x013c}
0x2d02…2d0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x014c}
0x2d0c…2d28 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW2,=X'40'«, t00=0x001c, t01=0x0156}
0x2d28…2d44 Head {h00=0x0018, h01=0x0050, text=» XSTAT KEYB,SPBINW3 «, t00=0x001c, t01=0x0172}
0x2d44…2d6a Head {h00=0x0022, h01=0x0050, text=» CBNE SPBINW2,SPBINW3,ERRPRT20«, t00=0x001c, t01=0x018e}
0x2d6a…2d7c Head {h00=0x000e, h01=0x0050, text=» TIMEOUT«, t00=0x001d, t01=0x0024}
0x2d7c…2da6 Head {h00=0x0026, h01=0x0050, text=» EDWRT SCREEN,ERAFMT ERASE SCREEN «, t00=0x001d, t01=0x0036}
0x2da6…2db8 Head {h00=0x000e, h01=0x0050, text=» B ERRC20 «, t00=0x001d, t01=0x0060}
0x2db8…2dc8 Head {h00=0x000c, h01=0x0050, text=»ERRPRT20«, t00=0x001d, t01=0x0072}
0x2dc8…2de8 Head {h00=0x001c, h01=0x0050, text=» CBE SPBINW4,='0',ERRC20«, t00=0x001d, t01=0x0082}
0x2de8…2dfa Head {h00=0x000e, h01=0x0050, text=» PERF BELL«, t00=0x001d, t01=0x00a2}
0x2dfa…2e26 Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW3,=X'0801' ROW 24 COL. 1«, t00=0x001d, t01=0x00b4}
0x2e26…2e5c Head {h00=0x0032, h01=0x0050, text=» DSC1 SCREEN,6,SPBINW3 SET CURSOR ON LAST ROW «, t00=0x001d, t01=0x00e0}
0x2e5c…2e84 Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD4,SPBINW4 ERRORCODE «, t00=0x001d, t01=0x0116}
0x2e84…2e8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x013e}
0x2e8e…2eb6 Head {h00=0x0024, h01=0x0050, text=» EDWRT SCREEN,SPFTBERR(SPBINW4) «, t00=0x001d, t01=0x0148}
0x2eb6…2ed4 Head {h00=0x001a, h01=0x0050, text=» TBF SPKEYFLG,SPERRRET«, t00=0x001d, t01=0x0170}
0x2ed4…2ede Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x018e}
0x2ede…2efc Head {h00=0x001a, h01=0x0050, text=»* READ AFTER ERROR «, t00=0x001e, t01=0x0008}
0x2efc…2f06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0026}
0x2f06…2f14 Head {h00=0x000a, h01=0x0050, text=»ERREAD«, t00=0x001e, t01=0x0030}
0x2f14…2f40 Head {h00=0x0028, h01=0x0050, text=» SETCUR SET CURSOR AT THE BEGINNING«, t00=0x001e, t01=0x003e}
0x2f40…2f60 Head {h00=0x001c, h01=0x0050, text=» OF THE CURRENT FIELD «, t00=0x001e, t01=0x006a}
0x2f60…2f6e Head {h00=0x000a, h01=0x0050, text=»ERR100«, t00=0x001e, t01=0x008a}
0x2f6e…2f9c Head {h00=0x002a, h01=0x0050, text=» MOVE SPBINW3,=W'14' REQUESTED LENGTH «, t00=0x001e, t01=0x0098}
0x2f9c…2fc2 Head {h00=0x0022, h01=0x0050, text=» IB SPKEY,ERR105,ERR110,ERR115«, t00=0x001e, t01=0x00c6}
0x2fc2…2fd0 Head {h00=0x000a, h01=0x0050, text=»ERR105«, t00=0x001e, t01=0x00ec}
0x2fd0…3006 Head {h00=0x0032, h01=0x0050, text=» NKI .NE,KEYB,SPINPUT,SPKTAB1,SPBINW3,SPBINW2 «, t00=0x001e, t01=0x00fa}
0x3006…3018 Head {h00=0x000e, h01=0x0050, text=» B ERR120 «, t00=0x001e, t01=0x0130}
0x3018…3026 Head {h00=0x000a, h01=0x0050, text=»ERR110«, t00=0x001e, t01=0x0142}
0x3026…305c Head {h00=0x0032, h01=0x0050, text=» NKI .NE,KEYB,SPINPUT,SPKTAB12,SPBINW3,SPBINW2«, t00=0x001e, t01=0x0150}
0x305c…306e Head {h00=0x000e, h01=0x0050, text=» B ERR120 «, t00=0x001e, t01=0x0186}
0x306e…307c Head {h00=0x000a, h01=0x0050, text=»ERR115«, t00=0x001f, t01=0x0008}
0x307c…30b2 Head {h00=0x0032, h01=0x0050, text=» NKI .NE,KEYB,SPINPUT,SPKTAB13,SPBINW3,SPBINW2«, t00=0x001f, t01=0x0016}
0x30b2…30c0 Head {h00=0x000a, h01=0x0050, text=»ERR120«, t00=0x001f, t01=0x004c}
0x30c0…30e2 Head {h00=0x001e, h01=0x0050, text=» BNZ ERR100 JUMP IF NOT OK«, t00=0x001f, t01=0x005a}
0x30e2…310e Head {h00=0x0028, h01=0x0050, text=» CMP SPBINW2,='0' JUMP IF POWER OFF «, t00=0x001f, t01=0x007c}
0x310e…3120 Head {h00=0x000e, h01=0x0050, text=» BE RETUR «, t00=0x001f, t01=0x00a8}
0x3120…3146 Head {h00=0x0022, h01=0x0050, text=» IB SPBINW2,ERR100,ERRCONT C «, t00=0x001f, t01=0x00ba}
0x3146…316e Head {h00=0x0024, h01=0x0050, text=» ERRCONT,ERR100,ERRCONT,ERRCONT«, t00=0x001f, t01=0x00e0}
0x316e…3188 Head {h00=0x0016, h01=0x0050, text=» B ERR100 CONTINUE«, t00=0x001f, t01=0x0108}
0x3188…3192 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0122}
0x3192…31b4 Head {h00=0x001e, h01=0x0050, text=»* CLEAR ERROR PRINTOUT «, t00=0x001f, t01=0x012c}
0x31b4…31be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x014e}
0x31be…31ce Head {h00=0x000c, h01=0x0050, text=»ERRCONT «, t00=0x001f, t01=0x0158}
0x31ce…31f2 Head {h00=0x0020, h01=0x0050, text=» PERF CLEAR8 ERASE LAST LINE«, t00=0x001f, t01=0x0168}
0x31f2…321e Head {h00=0x0028, h01=0x0050, text=» CBNL SPBINW4,=W'26',CANC IF WARNING«, t00=0x001f, t01=0x018c}
0x321e…3248 Head {h00=0x0026, h01=0x0050, text=» SUB SPBINW2,='1' ADJUST KEY INDEX«, t00=0x0020, t01=0x0028}
0x3248…3254 Head {h00=0x0008, h01=0x0050, text=»CANC«, t00=0x0020, t01=0x0052}
0x3254…3288 Head {h00=0x0030, h01=0x0050, text=» CBE SPBINW1,='0',ERRC10 JUMP IF LENGTH = 0 «, t00=0x0020, t01=0x005e}
0x3288…32bc Head {h00=0x0030, h01=0x0050, text=» MOVE SPINPUT,:FMTITEM SAVE CURRENT CONTENTS«, t00=0x0020, t01=0x0092}
0x32bc…32f4 Head {h00=0x0034, h01=0x0050, text=» MOVE :FMTITEM,=C'1' PUT SOMETHING IN THE FIELD «, t00=0x0020, t01=0x00c6}
0x32f4…331e Head {h00=0x0026, h01=0x0050, text=» GETABX SPBINW4 GET CURRENT INDEX «, t00=0x0020, t01=0x00fe}
0x331e…334c Head {h00=0x002a, h01=0x0050, text=» ERASE 10,SPBINW4,SPBINW4 CLEAR FIELD «, t00=0x0020, t01=0x0128}
0x334c…335a Head {h00=0x000a, h01=0x0050, text=»ERRC10«, t00=0x0020, t01=0x0156}
0x335a…3382 Head {h00=0x0024, h01=0x0050, text=» IB SPBINW2,CLEAR1,CLEAR2,DUMMY «, t00=0x0020, t01=0x0164}
0x3382…33b6 Head {h00=0x0030, h01=0x0050, text=» SUB SPBINW2,='3' ADJUST FOR CANCEL1,CANCEL2«, t00=0x0020, t01=0x018c}
0x33b6…33c2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0021, t01=0x0030}
0x33c2…33d0 Head {h00=0x000a, h01=0x0050, text=»CLEAR1«, t00=0x0021, t01=0x003c}
0x33d0…3404 Head {h00=0x0030, h01=0x0050, text=» CBE SPBINW1,='0',ERRC20 JUMP IF LENGTH = 0 «, t00=0x0021, t01=0x004a}
0x3404…3430 Head {h00=0x0028, h01=0x0050, text=» SET SPCHANGE INDICATE CHANGED FIELD«, t00=0x0021, t01=0x007e}
0x3430…343e Head {h00=0x000a, h01=0x0050, text=»ERRC20«, t00=0x0021, t01=0x00aa}
0x343e…3468 Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW5,$OPT CHECHK IF SPERR«, t00=0x0021, t01=0x00b8}
0x3468…348c Head {h00=0x0020, h01=0x0050, text=» CBE SPBINW5,=W'0',SPERRRET «, t00=0x0021, t01=0x00e2}
0x348c…34a8 Head {h00=0x0018, h01=0x0050, text=» B SETCREAD CONTINUE«, t00=0x0021, t01=0x0106}
0x34a8…34b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0122}
0x34b2…34c0 Head {h00=0x000a, h01=0x0050, text=»CLEAR2«, t00=0x0021, t01=0x012c}
0x34c0…34f8 Head {h00=0x0034, h01=0x0050, text=» MOVE :FMTITEM,SPINPUT RESTORE CURRENT CONTENTS «, t00=0x0021, t01=0x013a}
0x34f8…3506 Head {h00=0x000a, h01=0x0050, text=»CLEA20«, t00=0x0021, t01=0x0172}
0x3506…3534 Head {h00=0x002a, h01=0x0050, text=» GETABX SPBINW4 GET CURRENT TAB INDEX «, t00=0x0021, t01=0x0180}
0x3534…3564 Head {h00=0x002c, h01=0x0050, text=» DISPLAY 1,SPBINW4,SPBINW4 DISPLAY FIELD«, t00=0x0022, t01=0x001e}
0x3564…358e Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW5,$OPT CHECK IF SPERR «, t00=0x0022, t01=0x004e}
0x358e…35b2 Head {h00=0x0020, h01=0x0050, text=» CBE SPBINW5,=W'0',SPERRRET «, t00=0x0022, t01=0x0078}
0x35b2…35ce Head {h00=0x0018, h01=0x0050, text=» B SETCREAD CONTINUE«, t00=0x0022, t01=0x009c}
0x35ce…35d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00b8}
0x35d8…35e8 Head {h00=0x000c, h01=0x0050, text=»SPERRRET«, t00=0x0022, t01=0x00c2}
0x35e8…35f4 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0022, t01=0x00d2}
0x35f4…35fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00de}
0x35fe…360c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0022, t01=0x00e8}
0x360c…3616 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00f6}
0x3616…3628 Head {h00=0x000e, h01=0x0050, text=»BELL PROC «, t00=0x0022, t01=0x0100}
0x3628…3648 Head {h00=0x001c, h01=0x0050, text=»* ACUSTIC ALARM«, t00=0x0022, t01=0x0112}
0x3648…3666 Head {h00=0x001a, h01=0x0050, text=» EDWRT SCREEN,BELLFMT «, t00=0x0022, t01=0x0132}
0x3666…3672 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0022, t01=0x0150}
0x3672…367c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x015c}
0x367c…3690 Head {h00=0x0010, h01=0x0050, text=»BELLFMT FRMT«, t00=0x0022, t01=0x0166}
0x3690…369c Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0022, t01=0x017a}
0x369c…36b2 Head {h00=0x0012, h01=0x0050, text=» FILLR X'07',1«, t00=0x0022, t01=0x0186}
0x36b2…36c0 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0023, t01=0x000c}
0x36c0…36c8 Head {h00=0x0004, h01=0x0050, t00=0x0023, t01=0x001a}
0x36c8…36d6 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0023, t01=0x0022}
0x36d6…36e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0030}
0x36e0…36f4 Head {h00=0x0010, h01=0x0050, text=»ERAFMT FRMT «, t00=0x0023, t01=0x003a}
0x36f4…3708 Head {h00=0x0010, h01=0x0050, text=» FILLR '1',2«, t00=0x0023, t01=0x004e}
0x3708…3716 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0023, t01=0x0062}
0x3716…3720 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0070}
0x3720…3732 Head {h00=0x000e, h01=0x0050, text=»FFEED FRMT«, t00=0x0023, t01=0x007a}
0x3732…3746 Head {h00=0x0010, h01=0x0050, text=» FILLR '1',2«, t00=0x0023, t01=0x008c}
0x3746…3754 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0023, t01=0x00a0}
0x3754…375e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00ae}
0x375e…3768 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00b8}
0x3768…3772 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0023, t01=0x00c2}
0x3772…3794 Head {h00=0x001e, h01=0x0050, text=»SPLIN8 PROC WRTMES,WRTTYP «, t00=0x0023, t01=0x00cc}
0x3794…37b0 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0023, t01=0x00ee}
0x37b0…37ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x010a}
0x37ba…37e6 Head {h00=0x0028, h01=0x0050, text=»* SPLIN8 - WRITE ON LINE 8 «, t00=0x0023, t01=0x0114}
0x37e6…37f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0140}
0x37f0…382a Head {h00=0x0036, h01=0x0050, text=»* MESSAGE DEFINED AS FORMAT NUMBER WRTMES«, t00=0x0023, t01=0x014a}
0x382a…3856 Head {h00=0x0028, h01=0x0050, text=»* IN FORMAT TABLE SPFTBMES «, t00=0x0023, t01=0x0184}
0x3856…3860 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0020}
0x3860…3888 Head {h00=0x0024, h01=0x0050, text=»* WRTTYP: =0 NO WAIT«, t00=0x0024, t01=0x002a}
0x3888…38ae Head {h00=0x0022, h01=0x0050, text=»* =1 WAIT «, t00=0x0024, t01=0x0052}
0x38ae…38d6 Head {h00=0x0024, h01=0x0050, text=»* =2 RETURN «, t00=0x0024, t01=0x0078}
0x38d6…38e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00a0}
0x38e0…38fc Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0024, t01=0x00aa}
0x38fc…391a Head {h00=0x001a, h01=0x0050, text=» MOVE SPBINW1,=X'0801'«, t00=0x0024, t01=0x00c6}
0x391a…3950 Head {h00=0x0032, h01=0x0050, text=» DSC1 SCREEN,6,SPBINW1 SET CURSOR ON LAST ROW «, t00=0x0024, t01=0x00e4}
0x3950…396c Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW1,CBIN0 «, t00=0x0024, t01=0x011a}
0x396c…398c Head {h00=0x001c, h01=0x0050, text=» CBE WRTMES,CBIN0,LIN800«, t00=0x0024, t01=0x0136}
0x398c…39b2 Head {h00=0x0022, h01=0x0050, text=» EDWRT SCREEN,SPFTBMES(WRTMES)«, t00=0x0024, t01=0x0156}
0x39b2…39c0 Head {h00=0x000a, h01=0x0050, text=»LIN800«, t00=0x0024, t01=0x017c}
0x39c0…39e0 Head {h00=0x001c, h01=0x0050, text=» CBE WRTTYP,=W'0',LIN8NW«, t00=0x0024, t01=0x018a}
0x39e0…3a00 Head {h00=0x001c, h01=0x0050, text=» CBE WRTTYP,=W'2',LINRET«, t00=0x0025, t01=0x001a}
0x3a00…3a0e Head {h00=0x000a, h01=0x0050, text=»* READ«, t00=0x0025, t01=0x003a}
0x3a0e…3a1c Head {h00=0x000a, h01=0x0050, text=»LIN8IN«, t00=0x0025, t01=0x0048}
0x3a1c…3a48 Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW1,=W'3' REQUESTED LENGTH«, t00=0x0025, t01=0x0056}
0x3a48…3a6e Head {h00=0x0022, h01=0x0050, text=» IB SPKEY,LIN805,LIN810,LIN815«, t00=0x0025, t01=0x0082}
0x3a6e…3a7c Head {h00=0x000a, h01=0x0050, text=»LIN805«, t00=0x0025, t01=0x00a8}
0x3a7c…3aae Head {h00=0x002e, h01=0x0050, text=» NKI KEYB,SPINPUT,SPKTAB1,SPBINW1,SPBINW2 «, t00=0x0025, t01=0x00b6}
0x3aae…3ac0 Head {h00=0x000e, h01=0x0050, text=» B LIN820 «, t00=0x0025, t01=0x00e8}
0x3ac0…3ace Head {h00=0x000a, h01=0x0050, text=»LIN810«, t00=0x0025, t01=0x00fa}
0x3ace…3b00 Head {h00=0x002e, h01=0x0050, text=» NKI KEYB,SPINPUT,SPKTAB12,SPBINW1,SPBINW2«, t00=0x0025, t01=0x0108}
0x3b00…3b12 Head {h00=0x000e, h01=0x0050, text=» B LIN820 «, t00=0x0025, t01=0x013a}
0x3b12…3b20 Head {h00=0x000a, h01=0x0050, text=»LIN815«, t00=0x0025, t01=0x014c}
0x3b20…3b52 Head {h00=0x002e, h01=0x0050, text=» NKI KEYB,SPINPUT,SPKTAB13,SPBINW1,SPBINW2«, t00=0x0025, t01=0x015a}
0x3b52…3b60 Head {h00=0x000a, h01=0x0050, text=»LIN820«, t00=0x0025, t01=0x018c}
0x3b60…3b84 Head {h00=0x0020, h01=0x0050, text=» BNOK LIN8IN JUMP IF NOT OK «, t00=0x0026, t01=0x000a}
0x3b84…3bac Head {h00=0x0024, h01=0x0050, text=» IB SPBINW2,LIN8IN,LIN8CT,LIN8IN«, t00=0x0026, t01=0x002e}
0x3bac…3bbe Head {h00=0x000e, h01=0x0050, text=» B LIN8IN «, t00=0x0026, t01=0x0056}
0x3bbe…3bd2 Head {h00=0x0010, h01=0x0050, text=»* CLEAR LINE«, t00=0x0026, t01=0x0068}
0x3bd2…3be0 Head {h00=0x000a, h01=0x0050, text=»LIN8CT«, t00=0x0026, t01=0x007c}
0x3be0…3c04 Head {h00=0x0020, h01=0x0050, text=» PERF CLEAR8 ERASE LAST LINE«, t00=0x0026, t01=0x008a}
0x3c04…3c10 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0026, t01=0x00ae}
0x3c10…3c2c Head {h00=0x0018, h01=0x0050, text=»* READ WITH NO WAIT «, t00=0x0026, t01=0x00ba}
0x3c2c…3c3a Head {h00=0x000a, h01=0x0050, text=»LIN8NW«, t00=0x0026, t01=0x00d6}
0x3c3a…3c66 Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW1,=W'3' REQUESTED LENGTH«, t00=0x0026, t01=0x00e4}
0x3c66…3c8c Head {h00=0x0022, h01=0x0050, text=» IB SPKEY,LIN855,LIN860,LIN865«, t00=0x0026, t01=0x0110}
0x3c8c…3c9a Head {h00=0x000a, h01=0x0050, text=»LIN855«, t00=0x0026, t01=0x0136}
0x3c9a…3cd0 Head {h00=0x0032, h01=0x0050, text=» NKI .NW,KEYB,SPINPUT,SPKTAB1,SPBINW1,SPBINW2 «, t00=0x0026, t01=0x0144}
0x3cd0…3ce2 Head {h00=0x000e, h01=0x0050, text=» B LIN870 «, t00=0x0026, t01=0x017a}
0x3ce2…3cf0 Head {h00=0x000a, h01=0x0050, text=»LIN860«, t00=0x0026, t01=0x018c}
0x3cf0…3d26 Head {h00=0x0032, h01=0x0050, text=» NKI .NW,KEYB,SPINPUT,SPKTAB12,SPBINW1,SPBINW2«, t00=0x0027, t01=0x000a}
0x3d26…3d38 Head {h00=0x000e, h01=0x0050, text=» B LIN870 «, t00=0x0027, t01=0x0040}
0x3d38…3d46 Head {h00=0x000a, h01=0x0050, text=»LIN865«, t00=0x0027, t01=0x0052}
0x3d46…3d7c Head {h00=0x0032, h01=0x0050, text=» NKI .NW,KEYB,SPINPUT,SPKTAB13,SPBINW1,SPBINW2«, t00=0x0027, t01=0x0060}
0x3d7c…3d8a Head {h00=0x000a, h01=0x0050, text=»LIN870«, t00=0x0027, t01=0x0096}
0x3d8a…3d98 Head {h00=0x000a, h01=0x0050, text=»LINRET«, t00=0x0027, t01=0x00a4}
0x3d98…3da4 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0027, t01=0x00b2}
0x3da4…3db2 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0027, t01=0x00be}
0x3db2…3dbc Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0027, t01=0x00cc}
0x3dbc…3dd0 Head {h00=0x0010, h01=0x0050, text=»SPINF1 PROC «, t00=0x0027, t01=0x00d6}
0x3dd0…3dec Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0027, t01=0x00ea}
0x3dec…3df6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0106}
0x3df6…3e2a Head {h00=0x0030, h01=0x0050, text=»* SPINF1 - WRITE INF ON FIRST LINE «, t00=0x0027, t01=0x0110}
0x3e2a…3e34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0144}
0x3e34…3e50 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0027, t01=0x014e}
0x3e50…3e6e Head {h00=0x001a, h01=0x0050, text=» MOVE SPBINW1,=X'0117'«, t00=0x0027, t01=0x016a}
0x3e6e…3ea6 Head {h00=0x0034, h01=0x0050, text=» DSC1 SCREEN,6,SPBINW1 SET CURSOR ON FIRST LINE «, t00=0x0027, t01=0x0188}
0x3ea6…3ec2 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW1,CBIN0 «, t00=0x0028, t01=0x0030}
0x3ec2…3ef8 Head {h00=0x0032, h01=0x0050, text=» EDWRT SCREEN,SPFTBMES(CBIN7) WRITE MESSAGE 7 «, t00=0x0028, t01=0x004c}
0x3ef8…3f04 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0028, t01=0x0082}
0x3f04…3f12 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0028, t01=0x008e}
0x3f12…3f1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x009c}
0x3f1c…3f26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00a6}
0x3f26…3f30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00b0}
0x3f30…3f44 Head {h00=0x0010, h01=0x0050, text=»SPINF8 PROC «, t00=0x0028, t01=0x00ba}
0x3f44…3f60 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0028, t01=0x00ce}
0x3f60…3f6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00ea}
0x3f6a…3f9c Head {h00=0x002e, h01=0x0050, text=»* SPINF8 - WRITE INF ON LAST LINE«, t00=0x0028, t01=0x00f4}
0x3f9c…3fa6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0126}
0x3fa6…3fc2 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0028, t01=0x0130}
0x3fc2…3fe2 Head {h00=0x001c, h01=0x0050, text=» PERF SPLIN8,CBIN4,CBIN2«, t00=0x0028, t01=0x014c}
0x3fe2…3fee Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0028, t01=0x016c}
0x3fee…3ffc Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0028, t01=0x0178}
0x3ffc…4006 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0186}
0x4006…4010 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0190}
0x4010…401a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x000a}
0x401a…4022 Head {h00=0x0004, h01=0x0050, t00=0x0029, t01=0x0014}
0x4022…402e Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0029, t01=0x001c}
0x402e…4032 Head {h00=0x4004, h01=0x0000}
0x4032…4036 00 29 00 28 ┆ ) (┆
0x4036…403e (42, 1, 8) 20 04 00 00 00 2a 00 04 ┆ * ┆
0x403e…408e (43, 0, 400) 00 2a 01 68 00 1c 00 17 20 42 20 49 47 45 54 31 31 30 20 4c 4f 4f 4b 20 41 54 20 4e 45 58 54 20 00 2b 00 08 00 14 00 50 49 47 45 54 32 30 30 20 5c 5c 5c 46 4f 55 4e 44 00 2b 00 28 00 20 00 1c 20 4d 4f 56 45 20 49 4e 44 58 2c 47 53 57 42 49 ┆ * h B IGET110 LOOK AT NEXT + PIGET200 FOUND + ( MOVE INDX,GSWBI┆
0x408e…40de 4e 34 20 53 45 54 20 49 4e 44 45 58 00 2b 00 40 00 18 00 50 20 4d 4f 56 45 20 47 53 57 42 49 4e 31 2c 43 42 49 4e 35 20 00 2b 00 64 00 2e 00 50 20 58 43 4f 50 59 20 47 53 57 42 49 4e 35 2c 43 42 49 4e 30 2c 43 42 49 4e 32 2c 43 49 58 42 55 ┆N4 SET INDEX + @ P MOVE GSWBIN1,CBIN5 + d . P XCOPY GSWBIN5,CBIN0,CBIN2,CIXBU┆
0x40de…412e 46 2c 47 53 57 42 49 4e 31 20 00 2b 00 80 00 26 00 50 20 4d 4f 56 45 20 4c 45 56 44 45 58 2c 47 53 57 42 49 4e 35 20 53 45 54 20 4c 45 56 20 49 4e 44 58 20 00 2b 00 b2 00 22 00 50 20 43 4c 45 41 52 20 43 49 44 58 46 4c 47 20 52 45 4c 45 41 ┆F,GSWBIN1 + & P MOVE LEVDEX,GSWBIN5 SET LEV INDX + " P CLEAR CIDXFLG RELEA┆
0x412e…417e 53 45 20 42 55 46 46 45 52 20 00 2b 00 dc 00 1e 00 1a 20 43 4d 50 20 43 42 49 4e 30 2c 43 42 49 4e 30 20 52 45 54 55 52 4e 20 4f 4b 00 2b 01 02 00 08 00 04 20 52 45 54 00 2b 01 24 00 04 00 00 00 2b 01 30 00 0c 00 08 49 47 45 54 4e 4f 4b 31 ┆SE BUFFER + CMP CBIN0,CBIN0 RETURN OK + RET + $ + 0 IGETNOK1┆
0x417e…41ce 00 2b 01 38 00 16 00 12 20 4d 4f 56 45 20 4c 45 56 44 45 58 2c 43 42 49 4e 30 00 2b 01 48 00 26 00 22 20 4d 4f 56 45 20 49 4e 44 58 2c 47 53 57 42 49 4e 34 20 50 4c 41 43 45 20 54 4f 20 49 4e 53 45 52 54 00 2b 01 62 00 22 00 50 20 43 4c 45 ┆ + 8 MOVE LEVDEX,CBIN0 + H & " MOVE INDX,GSWBIN4 PLACE TO INSERT + b " P CLE┆
0x41ce…421e (44, 0, 400) 41 52 20 43 49 44 58 46 4c 47 20 52 45 4c 45 41 53 45 20 42 55 46 46 45 52 20 00 2b 01 8c 00 18 00 14 20 43 4d 50 20 43 42 49 4e 31 2c 43 42 49 4e 30 20 4e 4f 4b 00 2c 00 22 00 08 00 04 20 52 45 54 00 2c 00 3e 00 1c 00 50 49 47 45 54 33 30 ┆AR CIDXFLG RELEASE BUFFER + CMP CBIN1,CBIN0 NOK , " RET , > PIGET30┆
0x421e…426e 30 5c 5c 5c 53 45 54 20 43 4f 4e 44 20 3d 20 45 52 52 00 2c 00 4a 00 16 00 12 20 4d 4f 56 45 20 4c 45 56 44 45 58 2c 43 42 49 4e 30 00 2c 00 6a 00 14 00 10 20 4d 4f 56 45 20 49 4e 44 58 2c 43 42 49 4e 30 00 2c 00 84 00 22 00 50 20 43 4c 45 ┆0 SET COND = ERR , J MOVE LEVDEX,CBIN0 , j MOVE INDX,CBIN0 , " P CLE┆
0x426e…42be 41 52 20 43 49 44 58 46 4c 47 20 52 45 4c 45 41 53 45 20 42 55 46 46 45 52 20 00 2c 00 9c 00 14 00 10 20 43 4d 50 20 43 42 49 4e 30 2c 43 42 49 4e 31 00 2c 00 c2 00 08 00 04 20 52 45 54 00 2c 00 da 00 0a 00 05 20 50 45 4e 44 20 00 2c 00 e6 ┆AR CIDXFLG RELEASE BUFFER , CMP CBIN0,CBIN1 , RET , PEND , ┆
0x42be…430e 00 04 00 00 00 2c 00 f4 00 0a 00 50 20 45 4a 45 43 54 00 2c 00 fc 00 10 00 50 49 44 58 49 4e 53 20 50 52 4f 43 20 00 2c 01 0a 00 0e 00 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 2c 01 1e 00 06 00 01 2a 20 00 2c 01 30 00 26 00 21 2a 20 20 20 20 20 ┆ , P EJECT , PIDXINS PROC , ********** , * , 0 & !* ┆
0x430e…435e 49 4e 53 45 52 54 20 47 54 4c 45 56 4e 52 20 49 4e 20 49 4e 44 45 58 46 49 4c 45 20 00 2c 01 3a 00 06 00 01 2a 20 00 2c 01 64 00 0e 00 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 2c 01 6e 00 28 00 24 20 50 45 52 46 20 49 44 58 47 45 54 2c 47 54 4c ┆INSERT GTLEVNR IN INDEXFILE , : * , d ********** , n ( $ PERF IDXGET,GTL┆