|
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: 17382 (0x43e6)
Notes: pts_type(SC)
Names: »SCREEN.SC«
└─⟦d2cdd233a⟧ Bits:30009674 Philips computer tape "600204"
└─⟦this⟧ »OD-KOM/SCREEN.SC«
IDENT SCREEN 831005 EV 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 ENTRY DKTEST * 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 EJECT 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 * TBT TBCTASK,SPERR90 PERF SCREEN,=W'0' SPERR90 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 EJECT 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 EJECT * * 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 EJECT 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 * EJECT * * 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 * * PERF DKTEST BNOK SETCREAD * 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 EJECT * * 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 * EJECT 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 EJECT KCOPY HARD COPY MOVE SPBINW3,='1' PRINT KVOUCH,SPBINW3,='0' 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 EJECT * * 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 EJECT ERRPRT * PERF DKTEST BNOK SETCREAD * 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 * PERF DKTEST BNOK SETCREAD * 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 * EJECT 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 * =3 WRITE .NW AND RETURN * ******************* CBNG WRTMES,CBIN0,LIN800 MOVE SPBINW1,=X'0801' DSC1 SCREEN,6,SPBINW1 SET CURSOR ON LAST ROW MOVE SPBINW1,CBIN0 CBL WRTTYP,CBIN3,LIN801 EDWRT .NW,SCREEN,SPFTBMES(WRTMES) B LINRET LIN801 EDWRT SCREEN,SPFTBMES(WRTMES) LIN800 TBT TBCTASK,LINRET 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 PERF DKTEST 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 PERF DKTEST LINRET RET PEND EJECT 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 * * EJECT ************************************ * * DKTEST TEST IF DISK IS READY * ************************************* * DKTEST PROC * TEST IF DISK IS SWITCHED OFF TBF CDKOFF,DKTRET TBT GTMASTFL,DKTRET TBF CDUOVL,DKTRET NO KI IF DISKOVL ON DU MOVE SPBINW5,=X'0801' DSC1 SCREEN,6,SPBINW5 EDWRT .NW,SCREEN,SPFTBMES(CBIN11) DKT10 DELAY CBIN10 TBT CDKOFF,DKT10 PERF CLEAR8 CMP CBIN1,CBIN0 NOK RET DKTRET CMP CBIN0,CBIN0 OK RET PEND * * END
0x0000…0020 (0, 0, 400) Head {h00=0x001c, h01=0x0050, text=» IDENT SCREEN 831005 EV «, t00=0x0000, t01=0x0004}
0x0020…0044 Head {h00=0x0020, h01=0x0050, text=» 1.1,78-04-20,870138040310«, t00=0x0000, t01=0x0024}
0x0044…004e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0048}
0x004e…007e Head {h00=0x002c, h01=0x0050, text=»* A STANDARD PROGRAM PACKAGE HANDLING«, t00=0x0000, t01=0x0052}
0x007e…00b2 Head {h00=0x0030, h01=0x0050, text=»* A COMPLETE PICTURE ON A DISPLAY SCREEN «, t00=0x0000, t01=0x0082}
0x00b2…00bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00b6}
0x00bc…00e8 Head {h00=0x0028, h01=0x0050, text=»* RUNNING UNDER: CREDIT REL 3.1 «, t00=0x0000, t01=0x00c0}
0x00e8…0114 Head {h00=0x0028, h01=0x0050, text=»* TOSS REL 8.1 «, t00=0x0000, t01=0x00ec}
0x0114…011e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0118}
0x011e…0132 Head {h00=0x0010, h01=0x0050, text=» DDUM KMD08 «, t00=0x0000, t01=0x0122}
0x0132…0140 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0136}
0x0140…014a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0144}
0x014a…017a Head {h00=0x002c, h01=0x0050, text=» ENTRY SPCLRA CLEAR ALL VARIABLE FIELDS «, t00=0x0000, t01=0x014e}
0x017a…01aa Head {h00=0x002c, h01=0x0050, text=» ENTRY SPCLRS CLEAR SOME VARIABLE FIELDS«, t00=0x0000, t01=0x017e}
0x01aa…01d8 Head {h00=0x002a, h01=0x0050, text=» ENTRY SPCLRN CLEAR NO VARIABLE FIELDS«, t00=0x0001, t01=0x001e}
0x01d8…0204 Head {h00=0x0028, h01=0x0050, text=» ENTRY SPERR DISPLAY ERROR PRINTOUT «, t00=0x0001, t01=0x004c}
0x0204…0224 Head {h00=0x001c, h01=0x0050, text=» AND CONTINUE HANDLING«, t00=0x0001, t01=0x0078}
0x0224…024c Head {h00=0x0024, h01=0x0050, text=» ENTRY SPLIN8 MESSAGE ON LINE 8 «, t00=0x0001, t01=0x0098}
0x024c…026c Head {h00=0x001c, h01=0x0050, text=» ENTRY SPCA AS SPCLRA-- «, t00=0x0001, t01=0x00c0}
0x026c…028c Head {h00=0x001c, h01=0x0050, text=» ENTRY SPCN AS SPCLRN-- «, t00=0x0001, t01=0x00e0}
0x028c…02b4 Head {h00=0x0024, h01=0x0050, text=» SPCA AND SPCN ARE ONLY ACTIVE«, t00=0x0001, t01=0x0100}
0x02b4…02cc Head {h00=0x0014, h01=0x0050, text=» BETWEEN LINES«, t00=0x0001, t01=0x0128}
0x02cc…02ec Head {h00=0x001c, h01=0x0050, text=» SPLINTOP AND SPLINLOW«, t00=0x0001, t01=0x0140}
0x02ec…0302 Head {h00=0x0012, h01=0x0050, text=» ENTRY SCREEN «, t00=0x0001, t01=0x0160}
0x0302…032e Head {h00=0x0028, h01=0x0050, text=» ENTRY SPINF1 INFORMATION ON LINE 1 «, t00=0x0001, t01=0x0176}
0x032e…035a Head {h00=0x0028, h01=0x0050, text=» ENTRY SPINF8 INFORMATION ON LINE 8 «, t00=0x0002, t01=0x0012}
0x035a…036e Head {h00=0x0010, h01=0x0050, text=» ENTRY BELL «, t00=0x0002, t01=0x003e}
0x036e…0384 Head {h00=0x0012, h01=0x0050, text=» ENTRY DKTEST «, t00=0x0002, t01=0x0052}
0x0384…038e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0068}
0x038e…03be Head {h00=0x002c, h01=0x0050, text=» EXT SPCHK1 STANDARD CHECK ROUTINE NO. 1«, t00=0x0002, t01=0x0072}
0x03be…03ee Head {h00=0x002c, h01=0x0050, text=» EXT SPCHK2 STANDARD CHECK ROUTINE NO. 2«, t00=0x0002, t01=0x00a2}
0x03ee…041e Head {h00=0x002c, h01=0x0050, text=» EXT SPCHK3 STANDARD CHECK ROUTINE NO. 3«, t00=0x0002, t01=0x00d2}
0x041e…044e Head {h00=0x002c, h01=0x0050, text=» EXT SPCHK4 STANDARD CHECK ROUTINE NO. 4«, t00=0x0002, t01=0x0102}
0x044e…047e Head {h00=0x002c, h01=0x0050, text=» EXT SPCHK5 STANDARD CHECK ROUTINE NO.5 «, t00=0x0002, t01=0x0132}
0x047e…04ae Head {h00=0x002c, h01=0x0050, text=» EXT SPCHK6 STANDARD CHECK ROUTINE NO. 6«, t00=0x0002, t01=0x0162}
0x04ae…04de (3, 0, 400) Head {h00=0x002c, h01=0x0050, text=» EXT SPCHK7 STANDARD CHECK ROUTINE NO. 7«, t00=0x0003, t01=0x0004}
0x04de…0508 Head {h00=0x0026, h01=0x0050, text=» EXT SPAPPL USER ROUTINE TO HANDLE«, t00=0x0003, t01=0x0034}
0x0508…051e Head {h00=0x0012, h01=0x0050, text=» APPL VALUES«, t00=0x0003, t01=0x005e}
0x051e…054a Head {h00=0x0028, h01=0x0050, text=» EXT SPTCHK USER ROUTINE TO EVALUATE«, t00=0x0003, t01=0x0074}
0x054a…056c Head {h00=0x001e, h01=0x0050, text=» CONDITIONAL TABULATION «, t00=0x0003, t01=0x00a0}
0x056c…0576 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00c2}
0x0576…05a8 Head {h00=0x002e, h01=0x0050, text=» EXT EMPTYT ASSEMBLY SUBROUTINE EMPTYT - «, t00=0x0003, t01=0x00cc}
0x05a8…05ce Head {h00=0x0022, h01=0x0050, text=» TEST IF DATA ITEM IS EMPTY «, t00=0x0003, t01=0x00fe}
0x05ce…05e2 Head {h00=0x0010, h01=0x0050, text=» EXT CLEAR8 «, t00=0x0003, t01=0x0124}
0x05e2…05ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0138}
0x05ec…0608 Head {h00=0x0018, h01=0x0050, text=» INCLUDE KEY461,LIST«, t00=0x0003, t01=0x0142}
0x0608…0630 Head {h00=0x0024, h01=0x0050, text=»* FIRST INCLUDE KEY VALUES, «, t00=0x0003, t01=0x015e}
0x0630…0662 Head {h00=0x002e, h01=0x0050, text=»* THEN INCLUDE SPECIAL SCREEN FORMATS «, t00=0x0003, t01=0x0186}
0x0662…067e Head {h00=0x0018, h01=0x0050, text=» INCLUDE SL461,LIST «, t00=0x0004, t01=0x0028}
0x067e…068c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0044}
0x068c…06a0 Head {h00=0x0010, h01=0x0050, text=»SPCLRA PROC «, t00=0x0004, t01=0x0052}
0x06a0…06aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0066}
0x06aa…06f2 Head {h00=0x0044, h01=0x0050, text=»* SPCLRA - CLEAR ALL VARABLE FIELDS BEFORE HANDLING THE PICTURE «, t00=0x0004, t01=0x0070}
0x06f2…06fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00b8}
0x06fc…0718 Head {h00=0x0018, h01=0x0050, text=» MOVE SPERASE,=W'0' «, t00=0x0004, t01=0x00c2}
0x0718…0742 Head {h00=0x0026, h01=0x0050, text=» MOVE SPLINTOP,=W'1' WHOLE SCREEN «, t00=0x0004, t01=0x00de}
0x0742…075e Head {h00=0x0018, h01=0x0050, text=» MOVE SPLINLOW,=W'0'«, t00=0x0004, t01=0x0108}
0x075e…0778 Head {h00=0x0016, h01=0x0050, text=» PERF SCREEN,=W'1'«, t00=0x0004, t01=0x0124}
0x0778…0784 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0004, t01=0x013e}
0x0784…0792 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0004, t01=0x014a}
0x0792…07a6 Head {h00=0x0010, h01=0x0050, text=»SPCLRS PROC «, t00=0x0004, t01=0x0158}
0x07a6…07b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x016c}
0x07b0…07fa Head {h00=0x0046, h01=0x0050, text=»* SPCLRS - CLEAR SOME VARIABLE FIELDS BEFORE HANDLING THE PICTURE «, t00=0x0004, t01=0x0176}
0x07fa…0804 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0030}
0x0804…0820 Head {h00=0x0018, h01=0x0050, text=» MOVE SPERASE,=W'0' «, t00=0x0005, t01=0x003a}
0x0820…084a Head {h00=0x0026, h01=0x0050, text=» MOVE SPLINTOP,=W'1' WHOLE SCREEN «, t00=0x0005, t01=0x0056}
0x084a…0866 Head {h00=0x0018, h01=0x0050, text=» MOVE SPLINLOW,=W'0'«, t00=0x0005, t01=0x0080}
0x0866…0880 Head {h00=0x0016, h01=0x0050, text=» PERF SCREEN,=W'2'«, t00=0x0005, t01=0x009c}
0x0880…088c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0005, t01=0x00b6}
0x088c…089a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0005, t01=0x00c2}
0x089a…08ae Head {h00=0x0010, h01=0x0050, text=»SPCLRN PROC «, t00=0x0005, t01=0x00d0}
0x08ae…08b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00e4}
0x08b8…0900 Head {h00=0x0044, h01=0x0050, text=»* SPCLRN - CLEAR NO VARIABLE FIELDS BEFORE HANDLING THE PICTURE «, t00=0x0005, t01=0x00ee}
0x0900…090a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0136}
0x090a…0926 Head {h00=0x0018, h01=0x0050, text=» MOVE SPERASE,=W'0' «, t00=0x0005, t01=0x0140}
0x0926…0950 Head {h00=0x0026, h01=0x0050, text=» MOVE SPLINTOP,=W'1' WHOLE SCREEN «, t00=0x0005, t01=0x015c}
0x0950…096c Head {h00=0x0018, h01=0x0050, text=» MOVE SPLINLOW,=W'0'«, t00=0x0005, t01=0x0186}
0x096c…0986 Head {h00=0x0016, h01=0x0050, text=» PERF SCREEN,=W'3'«, t00=0x0006, t01=0x0012}
0x0986…0992 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0006, t01=0x002c}
0x0992…09a0 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0006, t01=0x0038}
0x09a0…09b2 Head {h00=0x000e, h01=0x0050, text=»SPERR PROC«, t00=0x0006, t01=0x0046}
0x09b2…09bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0058}
0x09bc…09f0 Head {h00=0x0030, h01=0x0050, text=»* HANDLE ERRORS DETECTED OUTSIDE THE PACKAGE«, t00=0x0006, t01=0x0062}
0x09f0…09fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0096}
0x09fa…0a16 Head {h00=0x0018, h01=0x0050, text=» TBT TBCTASK,SPERR90«, t00=0x0006, t01=0x00a0}
0x0a16…0a30 Head {h00=0x0016, h01=0x0050, text=» PERF SCREEN,=W'0'«, t00=0x0006, t01=0x00bc}
0x0a30…0a40 Head {h00=0x000c, h01=0x0050, text=»SPERR90 «, t00=0x0006, t01=0x00d6}
0x0a40…0a4c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0006, t01=0x00e6}
0x0a4c…0a5a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0006, t01=0x00f2}
0x0a5a…0a6c Head {h00=0x000e, h01=0x0050, text=»SPCA PROC «, t00=0x0006, t01=0x0100}
0x0a6c…0a76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0112}
0x0a76…0abe Head {h00=0x0044, h01=0x0050, text=»* SPCA - AS SPCLRA, BUT ONLY BETWEEN LINES SPLINTOPAND SPLINLOW «, t00=0x0006, t01=0x011c}
0x0abe…0ac8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0164}
0x0ac8…0ae4 Head {h00=0x0018, h01=0x0050, text=» MOVE SPERASE,=W'4' «, t00=0x0006, t01=0x016e}
0x0ae4…0afe Head {h00=0x0016, h01=0x0050, text=» PERF SCREEN,=W'1'«, t00=0x0006, t01=0x018a}
0x0afe…0b0a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x0014}
0x0b0a…0b18 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0007, t01=0x0020}
0x0b18…0b2a Head {h00=0x000e, h01=0x0050, text=»SPCN PROC «, t00=0x0007, t01=0x002e}
0x0b2a…0b34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0040}
0x0b34…0b7c Head {h00=0x0044, h01=0x0050, text=»* SPCN - AS SPCLRN, BUT ONLY BETWEEN LINES SPLINTOP AND SPLINLOW«, t00=0x0007, t01=0x004a}
0x0b7c…0b86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0092}
0x0b86…0ba2 Head {h00=0x0018, h01=0x0050, text=» MOVE SPERASE,=W'4' «, t00=0x0007, t01=0x009c}
0x0ba2…0bbc Head {h00=0x0016, h01=0x0050, text=» PERF SCREEN,=W'3'«, t00=0x0007, t01=0x00b8}
0x0bbc…0bc8 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x00d2}
0x0bc8…0bd6 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0007, t01=0x00de}
0x0bd6…0be4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x00ec}
0x0be4…0bfc Head {h00=0x0014, h01=0x0050, text=»SCREEN PROC $OPT«, t00=0x0007, t01=0x00fa}
0x0bfc…0c06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0112}
0x0c06…0c2e Head {h00=0x0024, h01=0x0050, text=»* SCREEN SCREEN HANDLING MODULE «, t00=0x0007, t01=0x011c}
0x0c2e…0c38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0144}
0x0c38…0c5a Head {h00=0x001e, h01=0x0050, text=»* CALL: PERF SCREEN,<$OPT>«, t00=0x0007, t01=0x014e}
0x0c5a…0c64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0170}
0x0c64…0c86 Head {h00=0x001e, h01=0x0050, text=» PLIT $OPT OPTIO SELECTOR «, t00=0x0007, t01=0x017a}
0x0c86…0c8e Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x000c}
0x0c8e…0cb8 Head {h00=0x0026, h01=0x0050, text=» CLEAR SPWARNFL CLEAR WARNING FLAG«, t00=0x0008, t01=0x0014}
0x0cb8…0ce4 Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW2,$OPT MOVE TO VARIABLE «, t00=0x0008, t01=0x003e}
0x0ce4…0d0a Head {h00=0x0022, h01=0x0050, text=» TO ALLOW INSTR.S CMP AND IB«, t00=0x0008, t01=0x006a}
0x0d0a…0d34 Head {h00=0x0026, h01=0x0050, text=» CMP SPBINW2,='0' "SPERR" ENTRY ? «, t00=0x0008, t01=0x0090}
0x0d34…0d4e Head {h00=0x0016, h01=0x0050, text=» BE ERRPRINT YES !«, t00=0x0008, t01=0x00ba}
0x0d4e…0d56 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x00d4}
0x0d56…0d88 Head {h00=0x002e, h01=0x0050, text=» TBT SPPROMPT,ENTIRE JUMP IF ENTIRE FORMAT«, t00=0x0008, t01=0x00dc}
0x0d88…0da6 Head {h00=0x001a, h01=0x0050, text=» SHOULD BE DISPLAYED«, t00=0x0008, t01=0x010e}
0x0da6…0db0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x012c}
0x0db0…0dd2 Head {h00=0x001e, h01=0x0050, text=»* ONLY VARIABLE FIELDS «, t00=0x0008, t01=0x0136}
0x0dd2…0ddc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0158}
0x0ddc…0e18 Head {h00=0x0038, h01=0x0050, text=» IB SPBINW2,CLEARA,CLEARS,CONT JUMP ON ROUTINE INDEX«, t00=0x0008, t01=0x0162}
0x0e18…0e22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x000e}
0x0e22…0e30 Head {h00=0x000a, h01=0x0050, text=»CLEARA«, t00=0x0009, t01=0x0018}
0x0e30…0e6c Head {h00=0x0038, h01=0x0050, text=» ERASE 10,SPLINTOP,SPLINLOW ERASE ALL FROM 1 AND UP «, t00=0x0009, t01=0x0026}
0x0e6c…0e7a Head {h00=0x000a, h01=0x0050, text=» THOME«, t00=0x0009, t01=0x0062}
0x0e7a…0e8a Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x0009, t01=0x0070}
0x0e8a…0e94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0080}
0x0e94…0ea2 Head {h00=0x000a, h01=0x0050, text=»CLEARS«, t00=0x0009, t01=0x008a}
0x0ea2…0ede Head {h00=0x0038, h01=0x0050, text=» ERASE 5,SPLINTOP,SPLINLOW ERASE SOME FROM 1 AND UP «, t00=0x0009, t01=0x0098}
0x0ede…0eee Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x0009, t01=0x00d4}
0x0eee…0efc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x00e4}
0x0efc…0f06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00f2}
0x0f06…0f28 Head {h00=0x001e, h01=0x0050, text=»* DISPLAY ENTIRE FORMAT«, t00=0x0009, t01=0x00fc}
0x0f28…0f32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x011e}
0x0f32…0f40 Head {h00=0x000a, h01=0x0050, text=»ENTIRE«, t00=0x0009, t01=0x0128}
0x0f40…0f7c Head {h00=0x0038, h01=0x0050, text=» IB SPBINW2,ECLRA,ECLRS,ECLRN JUMP ON ROUTINE INDEX «, t00=0x0009, t01=0x0136}
0x0f7c…0f86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0172}
0x0f86…0fa6 Head {h00=0x001c, h01=0x0050, text=»* CLEAR ALL VARIABLES«, t00=0x0009, t01=0x017c}
0x0fa6…0fb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x000c}
0x0fb0…0fbe Head {h00=0x000a, h01=0x0050, text=»ECLRA «, t00=0x000a, t01=0x0016}
0x0fbe…0fec Head {h00=0x002a, h01=0x0050, text=» ERASE 11,SPLINTOP,SPLINLOW CLEAR ALL «, t00=0x000a, t01=0x0024}
0x0fec…1000 Head {h00=0x0010, h01=0x0050, text=» IN MEMORY«, t00=0x000a, t01=0x0052}
0x1000…1010 Head {h00=0x000c, h01=0x0050, text=» B ECLRN«, t00=0x000a, t01=0x0066}
0x1010…101a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0076}
0x101a…103c Head {h00=0x001e, h01=0x0050, text=»* CLEAR SOME VARIABLES «, t00=0x000a, t01=0x0080}
0x103c…1046 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00a2}
0x1046…1054 Head {h00=0x000a, h01=0x0050, text=»ECLRS «, t00=0x000a, t01=0x00ac}
0x1054…108e Head {h00=0x0036, h01=0x0050, text=» ERASE 6,SPLINTOP,SPLINLOW CLEAR SOME FIELDS FROM «, t00=0x000a, t01=0x00ba}
0x108e…10ac Head {h00=0x001a, h01=0x0050, text=» 1 AND UP IN MEMORY «, t00=0x000a, t01=0x00f4}
0x10ac…10b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0112}
0x10b6…10e0 Head {h00=0x0026, h01=0x0050, text=»* CLEAR NO VARIABLES IN MEMORY «, t00=0x000a, t01=0x011c}
0x10e0…10ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0146}
0x10ea…10f8 Head {h00=0x000a, h01=0x0050, text=»ECLRN «, t00=0x000a, t01=0x0150}
0x10f8…1128 Head {h00=0x002c, h01=0x0050, text=» IB SPERASE,ECLRN1,ECLRN2,ECLRN3,ECLRN4 «, t00=0x000a, t01=0x015e}
0x1128…114c Head {h00=0x0020, h01=0x0050, text=» DISPLAY 0,SPLINTOP,SPLINLOW«, t00=0x000a, t01=0x018e}
0x114c…115c Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x000b, t01=0x0022}
0x115c…116a Head {h00=0x000a, h01=0x0050, text=»ECLRN1«, t00=0x000b, t01=0x0032}
0x116a…118e Head {h00=0x0020, h01=0x0050, text=» DISPLAY 1,SPLINTOP,SPLINLOW«, t00=0x000b, t01=0x0040}
0x118e…119e Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x000b, t01=0x0064}
0x119e…11ac Head {h00=0x000a, h01=0x0050, text=»ECLRN2«, t00=0x000b, t01=0x0074}
0x11ac…11d0 Head {h00=0x0020, h01=0x0050, text=» DISPLAY 2,SPLINTOP,SPLINLOW«, t00=0x000b, t01=0x0082}
0x11d0…11e0 Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x000b, t01=0x00a6}
0x11e0…11ee Head {h00=0x000a, h01=0x0050, text=»ECLRN3«, t00=0x000b, t01=0x00b6}
0x11ee…1212 Head {h00=0x0020, h01=0x0050, text=» DISPLAY 3,SPLINTOP,SPLINLOW«, t00=0x000b, t01=0x00c4}
0x1212…1222 Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x000b, t01=0x00e8}
0x1222…1230 Head {h00=0x000a, h01=0x0050, text=»ECLRN4«, t00=0x000b, t01=0x00f8}
0x1230…1254 Head {h00=0x0020, h01=0x0050, text=» DISPLAY 4,SPLINTOP,SPLINLOW«, t00=0x000b, t01=0x0106}
0x1254…1264 Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x000b, t01=0x012a}
0x1264…1272 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x013a}
0x1272…127e Head {h00=0x0008, h01=0x0050, text=»CONT«, t00=0x000b, t01=0x0148}
0x127e…12a8 Head {h00=0x0026, h01=0x0050, text=» GETABX SPBINW4 GET CURRENT INDEX «, t00=0x000b, t01=0x0154}
0x12a8…12d4 Head {h00=0x0028, h01=0x0050, text=» BL KTHOME JUMP IF NO CURRENT FIELD «, t00=0x000b, t01=0x017e}
0x12d4…12e2 Head {h00=0x000a, h01=0x0050, text=»CONT5 «, t00=0x000c, t01=0x001a}
0x12e2…131c Head {h00=0x0036, h01=0x0050, text=» GETFLD 0,SPBINW4,SPBINW3 SEARCH CURRENT POSITION «, t00=0x000c, t01=0x0028}
0x131c…133e Head {h00=0x001e, h01=0x0050, text=» BZ SETCREAD JUMP IF FOUND«, t00=0x000c, t01=0x0062}
0x133e…1364 Head {h00=0x0022, h01=0x0050, text=» BL KTHOME POSITION NOT FOUND «, t00=0x000c, t01=0x0084}
0x1364…136e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00aa}
0x136e…1392 Head {h00=0x0020, h01=0x0050, text=»* COMPULSORY FIELD FOUND «, t00=0x000c, t01=0x00b4}
0x1392…139c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00d8}
0x139c…13c6 Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW4,SPBINW3 CHANGE INDEX«, t00=0x000c, t01=0x00e2}
0x13c6…13e4 Head {h00=0x001a, h01=0x0050, text=» B CONT5 SEARCH AGAIN «, t00=0x000c, t01=0x010c}
0x13e4…13ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x012a}
0x13ee…13fc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0134}
0x13fc…1406 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0142}
0x1406…1430 Head {h00=0x0026, h01=0x0050, text=»* SET CURSOR AND READ KEYBOARD «, t00=0x000c, t01=0x014c}
0x1430…143a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0176}
0x143a…144a Head {h00=0x000c, h01=0x0050, text=»SETCREAD«, t00=0x000c, t01=0x0180}
0x144a…1476 Head {h00=0x0028, h01=0x0050, text=» SETCUR SET CURSOR ON CURRENT FIELD«, t00=0x000c, t01=0x0190}
0x1476…147e Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x002c}
0x147e…1488 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0034}
0x1488…14b6 Head {h00=0x002a, h01=0x0050, text=»* READ TO CURRENT FIELD ON DISPLAY «, t00=0x000d, t01=0x003e}
0x14b6…14c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x006c}
0x14c0…14ce Head {h00=0x000a, h01=0x0050, text=»READIN«, t00=0x000d, t01=0x0076}
0x14ce…14f0 Head {h00=0x001e, h01=0x0050, text=»* SET FLAG IF AUTODUP «, t00=0x000d, t01=0x0084}
0x14f0…150e Head {h00=0x001a, h01=0x0050, text=»* USES VERIF-FIELD«, t00=0x000d, t01=0x00a6}
0x150e…152a Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW2,=W'3' «, t00=0x000d, t01=0x00c4}
0x152a…1546 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW1,=W'1' «, t00=0x000d, t01=0x00e0}
0x1546…1558 Head {h00=0x000e, h01=0x0050, text=» TSTCTL 6 «, t00=0x000d, t01=0x00fc}
0x1558…156a Head {h00=0x000e, h01=0x0050, text=» BOK DYKIN«, t00=0x000d, t01=0x010e}
0x156a…1580 Head {h00=0x0012, h01=0x0050, text=» SET GTADUPFL «, t00=0x000d, t01=0x0120}
0x1580…1590 Head {h00=0x000c, h01=0x0050, text=» B DYK20«, t00=0x000d, t01=0x0136}
0x1590…159a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0146}
0x159a…15a8 Head {h00=0x000a, h01=0x0050, text=»DYKIN «, t00=0x000d, t01=0x0150}
0x15a8…15cc Head {h00=0x0020, h01=0x0050, text=» IB SPKEY,DYK05,DYK10,DYK15 «, t00=0x000d, t01=0x015e}
0x15cc…15da Head {h00=0x000a, h01=0x0050, text=»DYK05 «, t00=0x000d, t01=0x0182}
0x15da…160c Head {h00=0x002e, h01=0x0050, text=» DYKI SPINPUT,SPKTAB1,SPKTAB2,SPBINW1, C «, t00=0x000d, t01=0x0190}
0x160c…1626 Head {h00=0x0016, h01=0x0050, text=» SPBINW2,SPBINW4 «, t00=0x000e, t01=0x0032}
0x1626…1638 Head {h00=0x000e, h01=0x0050, text=» B DYKOUT «, t00=0x000e, t01=0x004c}
0x1638…1646 Head {h00=0x000a, h01=0x0050, text=»DYK10 «, t00=0x000e, t01=0x005e}
0x1646…167a Head {h00=0x0030, h01=0x0050, text=» DYKI SPINPUT,SPKTAB12,SPKTAB22,SPBINW1, C «, t00=0x000e, t01=0x006c}
0x167a…1694 Head {h00=0x0016, h01=0x0050, text=» SPBINW2,SPBINW4 «, t00=0x000e, t01=0x00a0}
0x1694…16a6 Head {h00=0x000e, h01=0x0050, text=» B DYKOUT «, t00=0x000e, t01=0x00ba}
0x16a6…16b4 Head {h00=0x000a, h01=0x0050, text=»DYK15 «, t00=0x000e, t01=0x00cc}
0x16b4…16e8 Head {h00=0x0030, h01=0x0050, text=» DYKI SPINPUT,SPKTAB13,SPKTAB23,SPBINW1, C «, t00=0x000e, t01=0x00da}
0x16e8…1702 Head {h00=0x0016, h01=0x0050, text=» SPBINW2,SPBINW4 «, t00=0x000e, t01=0x010e}
0x1702…1710 Head {h00=0x000a, h01=0x0050, text=»DYKOUT«, t00=0x000e, t01=0x0128}
0x1710…1728 Head {h00=0x0014, h01=0x0050, text=» BL ERRPRT ERROR«, t00=0x000e, t01=0x0136}
0x1728…173e Head {h00=0x0012, h01=0x0050, text=» CLEAR SPDUPL «, t00=0x000e, t01=0x014e}
0x173e…1774 Head {h00=0x0032, h01=0x0050, text=» CBNG SPBINW2,='0',RETUR JUMP IF POWER OFF OR «, t00=0x000e, t01=0x0164}
0x1774…177e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x000a}
0x177e…178c Head {h00=0x000a, h01=0x0050, text=»DYK20 «, t00=0x000f, t01=0x0014}
0x178c…1796 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0022}
0x1796…17a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x002c}
0x17a0…17b4 Head {h00=0x0010, h01=0x0050, text=» PERF DKTEST«, t00=0x000f, t01=0x0036}
0x17b4…17ca Head {h00=0x0012, h01=0x0050, text=» BNOK SETCREAD«, t00=0x000f, t01=0x004a}
0x17ca…17d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0060}
0x17d4…17ec Head {h00=0x0014, h01=0x0050, text=» KEY SWITCHES «, t00=0x000f, t01=0x006a}
0x17ec…1818 Head {h00=0x0028, h01=0x0050, text=» IB SPBINW2,UPD300,CLEA20 JUMP ON C «, t00=0x000f, t01=0x0082}
0x1818…1836 Head {h00=0x001a, h01=0x0050, text=» UPDATE,CANC,CANC, C«, t00=0x000f, t01=0x00ae}
0x1836…1868 Head {h00=0x002e, h01=0x0050, text=» UPDATE,UPDATE,UPDATE,UPDATE CONVERTED C «, t00=0x000f, t01=0x00cc}
0x1868…18a0 Head {h00=0x0034, h01=0x0050, text=» UPDATE,UPDATE,UPDATE,UPDATE END-OF-ITEM-KEY C «, t00=0x000f, t01=0x00fe}
0x18a0…18bc Head {h00=0x0018, h01=0x0050, text=» UPDATE,KDUPL,KEDIT«, t00=0x000f, t01=0x0136}
0x18bc…18ca Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x0152}
0x18ca…18d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0160}
0x18d4…190c Head {h00=0x0034, h01=0x0050, text=»* HANDLE THE RESPECTIVE KEY AS EOI-KEY FIRST «, t00=0x000f, t01=0x016a}
0x190c…1916 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0012}
0x1916…1924 Head {h00=0x000a, h01=0x0050, text=»UPDATE«, t00=0x0010, t01=0x001c}
0x1924…1958 Head {h00=0x0030, h01=0x0050, text=» CBE SPBINW1,='0',UPD350 JUMP IF LENGTH = 0 «, t00=0x0010, t01=0x002a}
0x1958…1982 Head {h00=0x0026, h01=0x0050, text=» GETCTL 3,SPBINW4 GET SCHK-NUMBER «, t00=0x0010, t01=0x005e}
0x1982…19be Head {h00=0x0038, h01=0x0050, text=» CBE SPBINW4,='0',UPD050 JUMP IF NOT STANDARD CHECK «, t00=0x0010, t01=0x0088}
0x19be…19ec Head {h00=0x002a, h01=0x0050, text=» PERFI SPBINW4,SPCHK1,SPCHK2,SPCHK3 C«, t00=0x0010, t01=0x00c4}
0x19ec…1a12 Head {h00=0x0022, h01=0x0050, text=» SPCHK4,SPCHK5,SPCHK6,SPCHK7 «, t00=0x0010, t01=0x00f2}
0x1a12…1a3c Head {h00=0x0026, h01=0x0050, text=» IB SPBINW3,UPD050,UPD070,ERRPRINT«, t00=0x0010, t01=0x0118}
0x1a3c…1a46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0142}
0x1a46…1a6a Head {h00=0x0020, h01=0x0050, text=»* CONDITIONAL DISPLAYING «, t00=0x0010, t01=0x014c}
0x1a6a…1a74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0170}
0x1a74…1a82 Head {h00=0x000a, h01=0x0050, text=»UPD050«, t00=0x0010, t01=0x017a}
0x1a82…1a9c Head {h00=0x0016, h01=0x0050, text=» TBT SPDUPL,UPD100«, t00=0x0010, t01=0x0188}
0x1a9c…1acc Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW4,='1' INDICATE COND. DISPL «, t00=0x0011, t01=0x0012}
0x1acc…1ade Head {h00=0x000e, h01=0x0050, text=» B UPD200 «, t00=0x0011, t01=0x0042}
0x1ade…1aec Head {h00=0x000a, h01=0x0050, text=»UPD070«, t00=0x0011, t01=0x0054}
0x1aec…1b14 Head {h00=0x0024, h01=0x0050, text=» GETCTL 0,SPBINW3 GET APPL-VALUE«, t00=0x0011, t01=0x0062}
0x1b14…1b48 Head {h00=0x0030, h01=0x0050, text=» CBNE SPBINW3,='0',UPD210 JUMP IF APPL VALUE«, t00=0x0011, t01=0x008a}
0x1b48…1b5c Head {h00=0x0010, h01=0x0050, text=» B SETCREAD «, t00=0x0011, t01=0x00be}
0x1b5c…1b66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00d2}
0x1b66…1b8c Head {h00=0x0022, h01=0x0050, text=»* UNCONDITIONAL DISPLAYING «, t00=0x0011, t01=0x00dc}
0x1b8c…1b96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0102}
0x1b96…1ba4 Head {h00=0x000a, h01=0x0050, text=»UPD100«, t00=0x0011, t01=0x010c}
0x1ba4…1bde Head {h00=0x0036, h01=0x0050, text=» MOVE SPBINW4,='2' INDICATE UNCONDITIONAL DISPLAY «, t00=0x0011, t01=0x011a}
0x1bde…1bec Head {h00=0x000a, h01=0x0050, text=»UPD200«, t00=0x0011, t01=0x0154}
0x1bec…1c14 Head {h00=0x0024, h01=0x0050, text=» GETCTL 0,SPBINW3 GET APPL-VALUE«, t00=0x0011, t01=0x0162}
0x1c14…1c4a Head {h00=0x0032, h01=0x0050, text=» CBE SPBINW3,='0',UPD400 JUMP IF NO APPL VALUE«, t00=0x0011, t01=0x018a}
0x1c4a…1c54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0030}
0x1c54…1c80 Head {h00=0x0028, h01=0x0050, text=»* APPL-VALUE DIFFERENT FROM ZERO «, t00=0x0012, t01=0x003a}
0x1c80…1c8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0066}
0x1c8a…1c98 Head {h00=0x000a, h01=0x0050, text=»UPD210«, t00=0x0012, t01=0x0070}
0x1c98…1cac Head {h00=0x0010, h01=0x0050, text=» PERF SPAPPL«, t00=0x0012, t01=0x007e}
0x1cac…1cd8 Head {h00=0x0028, h01=0x0050, text=» IB SPBINW3,UPD400,SETCREAD,ERRPRINT«, t00=0x0012, t01=0x0092}
0x1cd8…1cea Head {h00=0x000e, h01=0x0050, text=» B UPD400 «, t00=0x0012, t01=0x00be}
0x1cea…1cf4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00d0}
0x1cf4…1d16 Head {h00=0x001e, h01=0x0050, text=»* OK AFTER APPL CONTROL«, t00=0x0012, t01=0x00da}
0x1d16…1d3c Head {h00=0x0022, h01=0x0050, text=»* UNCONDITIONAL DISPLAYING «, t00=0x0012, t01=0x00fc}
0x1d3c…1d46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0122}
0x1d46…1d54 Head {h00=0x000a, h01=0x0050, text=»UPD260«, t00=0x0012, t01=0x012c}
0x1d54…1d8a Head {h00=0x0032, h01=0x0050, text=» UPDFLD 1,SPINPUT UPDATE FIELD WITH DISPLAYING«, t00=0x0012, t01=0x013a}
0x1d8a…1d98 Head {h00=0x000a, h01=0x0050, text=»UPD300«, t00=0x0012, t01=0x0170}
0x1d98…1dd0 Head {h00=0x0034, h01=0x0050, text=» CBE SPBINW1,='0',UPD350 SKIP NEXT IF LENGTH = 0«, t00=0x0012, t01=0x017e}
0x1dd0…1dfc Head {h00=0x0028, h01=0x0050, text=» SET SPCHANGE INDICATE CHANGED ITEM «, t00=0x0013, t01=0x0026}
0x1dfc…1e0a Head {h00=0x000a, h01=0x0050, text=»UPD350«, t00=0x0013, t01=0x0052}
0x1e0a…1e2c Head {h00=0x001e, h01=0x0050, text=»* TAKE CARE OF WARNING«, t00=0x0013, t01=0x0060}
0x1e2c…1e48 Head {h00=0x0018, h01=0x0050, text=» TBF SPWARNFL,UPD360«, t00=0x0013, t01=0x0082}
0x1e48…1e76 Head {h00=0x002a, h01=0x0050, text=» MOVE SPBINW1,SPBINW2 STORE KEY VALUE «, t00=0x0013, t01=0x009e}
0x1e76…1e9e Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,=W'26' SET MESSAGE«, t00=0x0013, t01=0x00cc}
0x1e9e…1eb2 Head {h00=0x0010, h01=0x0050, text=» PERF SPERR «, t00=0x0013, t01=0x00f4}
0x1eb2…1ede Head {h00=0x0028, h01=0x0050, text=» CBNE SPBINW2,CBIN2,UPD360 KOR-KEY ?«, t00=0x0013, t01=0x0108}
0x1ede…1f0e Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW2,SPBINW1 RESET OLD KEYVALUE«, t00=0x0013, t01=0x0134}
0x1f0e…1f1c Head {h00=0x000a, h01=0x0050, text=»UPD360«, t00=0x0013, t01=0x0164}
0x1f1c…1f44 Head {h00=0x0024, h01=0x0050, text=»* JUMP ON FUNCTION KEY INDEX «, t00=0x0013, t01=0x0172}
0x1f44…1f68 Head {h00=0x0020, h01=0x0050, text=» IB SPBINW2,READIN,DUMMY, C«, t00=0x0014, t01=0x000a}
0x1f68…1f8c Head {h00=0x0020, h01=0x0050, text=» KEOI,DUMMY,DUMMY,KTFWD, C«, t00=0x0014, t01=0x002e}
0x1f8c…1fbe Head {h00=0x002e, h01=0x0050, text=» KTBWD,KTHOME,KTLDOWN,KTLEFT,KTRIGHT, C «, t00=0x0014, t01=0x0052}
0x1fbe…1fec Head {h00=0x002a, h01=0x0050, text=» KTDOWN,KTUP,KCOPY,DUMMY,DUMMY,KENTER«, t00=0x0014, t01=0x0084}
0x1fec…201c Head {h00=0x002c, h01=0x0050, text=» SUB SPBINW2,=W'14' ADJUST EOI-KEY INDEX«, t00=0x0014, t01=0x00b2}
0x201c…202a Head {h00=0x000a, h01=0x0050, text=»DUMMY «, t00=0x0014, t01=0x00e2}
0x202a…2038 Head {h00=0x000a, h01=0x0050, text=»RETUR «, t00=0x0014, t01=0x00f0}
0x2038…2044 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0014, t01=0x00fe}
0x2044…204e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x010a}
0x204e…205c Head {h00=0x000a, h01=0x0050, text=»UPD400«, t00=0x0014, t01=0x0114}
0x205c…2098 Head {h00=0x0038, h01=0x0050, text=» CBE SPBINW4,='2',UPD260 JUMP IF UNCONDITIONAL DISPL«, t00=0x0014, t01=0x0122}
0x2098…20cc Head {h00=0x0030, h01=0x0050, text=» UPDFLD 0,SPINPUT UPDATE FIELD DISPL. COND. «, t00=0x0014, t01=0x015e}
0x20cc…20de (21, 0, 398) Head {h00=0x000e, h01=0x0050, text=» B UPD300 «, t00=0x0015, t01=0x0004}
0x20de…20e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0016}
0x20e8…20f6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x0020}
0x20f6…211c Head {h00=0x0022, h01=0x0050, text=»KEOI COMMON END-OF-ITEM KEY «, t00=0x0015, t01=0x002e}
0x211c…2140 Head {h00=0x0020, h01=0x0050, text=»KTFWD TAB. FORWARD 1 STEP «, t00=0x0015, t01=0x0054}
0x2140…214e Head {h00=0x000a, h01=0x0050, text=» TFWD «, t00=0x0015, t01=0x0078}
0x214e…2160 Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x0015, t01=0x0086}
0x2160…216a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0098}
0x216a…2192 Head {h00=0x0024, h01=0x0050, text=»KTBWD TABULATION 1 STEP BACKW.«, t00=0x0015, t01=0x00a2}
0x2192…21a0 Head {h00=0x000a, h01=0x0050, text=» TBWD «, t00=0x0015, t01=0x00ca}
0x21a0…21b2 Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x0015, t01=0x00d8}
0x21b2…21bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00ea}
0x21bc…21e2 Head {h00=0x0022, h01=0x0050, text=»KTHOME TAB. TO HOME POSITION«, t00=0x0015, t01=0x00f4}
0x21e2…21f0 Head {h00=0x000a, h01=0x0050, text=» THOME«, t00=0x0015, t01=0x011a}
0x21f0…2202 Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x0015, t01=0x0128}
0x2202…220c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x013a}
0x220c…2238 Head {h00=0x0028, h01=0x0050, text=»KTLDOWN TAB. TO FIRST ON NEXT LINE«, t00=0x0015, t01=0x0144}
0x2238…2248 Head {h00=0x000c, h01=0x0050, text=» TLDOWN «, t00=0x0015, t01=0x0170}
0x2248…225a Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x0015, t01=0x0180}
0x225a…2264 (22, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0004}
0x2264…2286 Head {h00=0x001e, h01=0x0050, text=»KTLEFT TAB. TO LEFTMOST «, t00=0x0016, t01=0x000e}
0x2286…2294 Head {h00=0x000a, h01=0x0050, text=» TLEFT«, t00=0x0016, t01=0x0030}
0x2294…22a6 Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x0016, t01=0x003e}
0x22a6…22b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0050}
0x22b0…22d4 Head {h00=0x0020, h01=0x0050, text=»KTRIGHT TAB. TO RIGHTMOST «, t00=0x0016, t01=0x005a}
0x22d4…22e4 Head {h00=0x000c, h01=0x0050, text=» TRIGHT «, t00=0x0016, t01=0x007e}
0x22e4…22f6 Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x0016, t01=0x008e}
0x22f6…2300 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00a0}
0x2300…231c Head {h00=0x0018, h01=0x0050, text=»KTDOWN TAB 1 DOWN «, t00=0x0016, t01=0x00aa}
0x231c…232a Head {h00=0x000a, h01=0x0050, text=» TDOWN«, t00=0x0016, t01=0x00c6}
0x232a…233c Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x0016, t01=0x00d4}
0x233c…2346 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00e6}
0x2346…235e Head {h00=0x0014, h01=0x0050, text=»KTUP TAB 1 UP «, t00=0x0016, t01=0x00f0}
0x235e…236a Head {h00=0x0008, h01=0x0050, text=» TUP«, t00=0x0016, t01=0x0108}
0x236a…2372 Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x0114}
0x2372…2392 Head {h00=0x001c, h01=0x0050, text=»TSTTAB TEST TAB OUTPUT«, t00=0x0016, t01=0x011c}
0x2392…23a8 Head {h00=0x0012, h01=0x0050, text=» BE READIN OK «, t00=0x0016, t01=0x013c}
0x23a8…23c4 Head {h00=0x0018, h01=0x0050, text=» BL READIN NOT FOUND«, t00=0x0016, t01=0x0152}
0x23c4…23f2 Head {h00=0x002a, h01=0x0050, text=» BOFL SETCREAD EMPTY COMPULSORY FIELD «, t00=0x0016, t01=0x016e}
0x23f2…23fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x000c}
0x23fc…2406 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0016}
0x2406…242a Head {h00=0x0020, h01=0x0050, text=»* CONDITIONAL TABULATION «, t00=0x0017, t01=0x0020}
0x242a…2434 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0044}
0x2434…2448 Head {h00=0x0010, h01=0x0050, text=» PERF SPTCHK«, t00=0x0017, t01=0x004e}
0x2448…2462 Head {h00=0x0016, h01=0x0050, text=» CMP SPBINW3,='0' «, t00=0x0017, t01=0x0062}
0x2462…2476 Head {h00=0x0010, h01=0x0050, text=» BE SETCREAD«, t00=0x0017, t01=0x007c}
0x2476…249a Head {h00=0x0020, h01=0x0050, text=» IB SPBINW2,DUMMY,DUMMY, C «, t00=0x0017, t01=0x0090}
0x249a…24c0 Head {h00=0x0022, h01=0x0050, text=» KTFWD,DUMMY,DUMMY,KTFWD, C «, t00=0x0017, t01=0x00b4}
0x24c0…24e6 Head {h00=0x0022, h01=0x0050, text=» KTBWD,KTFWD,KTFWD,KTFWD, C «, t00=0x0017, t01=0x00da}
0x24e6…2502 Head {h00=0x0018, h01=0x0050, text=» KTBWD,KTFWD,KTBWD «, t00=0x0017, t01=0x0100}
0x2502…2542 Head {h00=0x003c, h01=0x0050, text=»* BRANCH LIST EXHAUSTED - SPBINW2 CLOBBERED BY SPTCHK«, t00=0x0017, t01=0x011c}
0x2542…254a Head {h00=0x0004, h01=0x0050, t00=0x0017, t01=0x015c}
0x254a…255e Head {h00=0x0010, h01=0x0050, text=» B SETCREAD «, t00=0x0017, t01=0x0164}
0x255e…256c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x0178}
0x256c…2586 Head {h00=0x0016, h01=0x0050, text=»KCOPY HARD COPY «, t00=0x0017, t01=0x0186}
0x2586…25a0 Head {h00=0x0016, h01=0x0050, text=» MOVE SPBINW3,='1'«, t00=0x0018, t01=0x0010}
0x25a0…25c2 Head {h00=0x001e, h01=0x0050, text=» PRINT KVOUCH,SPBINW3,='0'«, t00=0x0018, t01=0x002a}
0x25c2…25ea Head {h00=0x0024, h01=0x0050, text=» B SETCREAD SET CURSOR AND READ «, t00=0x0018, t01=0x004c}
0x25ea…25f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0074}
0x25f4…2610 Head {h00=0x0018, h01=0x0050, text=»KDUPL DUPLICATION «, t00=0x0018, t01=0x007e}
0x2610…2642 Head {h00=0x002e, h01=0x0050, text=» MOVE SPBINW2,='3' INDICATE COMMON EOI-KEY«, t00=0x0018, t01=0x009a}
0x2642…2664 Head {h00=0x001e, h01=0x0050, text=» DUPL SPINPUT DUPLICATION «, t00=0x0018, t01=0x00cc}
0x2664…2678 Head {h00=0x0010, h01=0x0050, text=» BNZ KDUPL2 «, t00=0x0018, t01=0x00ee}
0x2678…26b2 Head {h00=0x0036, h01=0x0050, text=» COPY GSWSTR1,CBIN0,CBIN1,SPINPUT,CBIN1 GET BYTE 1«, t00=0x0018, t01=0x0102}
0x26b2…26d4 Head {h00=0x001e, h01=0x0050, text=» CBE GSWSTR1,=X'00',KDUPL2«, t00=0x0018, t01=0x013c}
0x26d4…2706 Head {h00=0x002e, h01=0x0050, text=» MOVE SPBINW1,='10' SET LENGTH IN DUPFIELD«, t00=0x0018, t01=0x015e}
0x2706…271a Head {h00=0x0010, h01=0x0050, text=» SET SPDUPL «, t00=0x0018, t01=0x0190}
0x271a…2738 Head {h00=0x001a, h01=0x0050, text=» B UPDATE DUPL ALLOWED«, t00=0x0019, t01=0x0014}
0x2738…2746 Head {h00=0x000a, h01=0x0050, text=»KDUPL2«, t00=0x0019, t01=0x0032}
0x2746…277a Head {h00=0x0030, h01=0x0050, text=» MOVE SPBINW4,='4' INDICATE ILLEGAL EOI-KEY «, t00=0x0019, t01=0x0040}
0x277a…279e Head {h00=0x0020, h01=0x0050, text=» B ERRPRINT DUPL NOT ALLOWED«, t00=0x0019, t01=0x0074}
0x279e…27ac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x0098}
0x27ac…27b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00a6}
0x27b6…27ce Head {h00=0x0014, h01=0x0050, text=»* EDIT FIELD «, t00=0x0019, t01=0x00b0}
0x27ce…27d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00c8}
0x27d8…27e6 Head {h00=0x000a, h01=0x0050, text=»KEDIT «, t00=0x0019, t01=0x00d2}
0x27e6…2808 Head {h00=0x001e, h01=0x0050, text=» GETCTL 1,SPBINW3 GET MAXL«, t00=0x0019, t01=0x00e0}
0x2808…282a Head {h00=0x001e, h01=0x0050, text=» CBNE SPBINW3,='0',KED100 «, t00=0x0019, t01=0x0102}
0x282a…283c Head {h00=0x000e, h01=0x0050, text=» PERF BELL«, t00=0x0019, t01=0x0124}
0x283c…2850 Head {h00=0x0010, h01=0x0050, text=» B SETCREAD «, t00=0x0019, t01=0x0136}
0x2850…285e Head {h00=0x000a, h01=0x0050, text=»KED100«, t00=0x0019, t01=0x014a}
0x285e…2888 Head {h00=0x0026, h01=0x0050, text=» EDFLD SPINPUT,SPKTAB3,SPBINW1, C«, t00=0x0019, t01=0x0158}
0x2888…28a2 Head {h00=0x0016, h01=0x0050, text=» SPBINW2,SPBINW4 «, t00=0x0019, t01=0x0182}
0x28a2…28c8 Head {h00=0x0022, h01=0x0050, text=» B DYKOUT CONTINUE AS FOR DYKI«, t00=0x001a, t01=0x000c}
0x28c8…28d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0032}
0x28d2…28e8 Head {h00=0x0012, h01=0x0050, text=»* ENTER KEY«, t00=0x001a, t01=0x003c}
0x28e8…28f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0052}
0x28f2…2900 Head {h00=0x000a, h01=0x0050, text=»KENTER«, t00=0x001a, t01=0x005c}
0x2900…292c Head {h00=0x0028, h01=0x0050, text=» TBT SPCHANGE,KENT00 NO TESTS ON ME «, t00=0x001a, t01=0x006a}
0x292c…294e Head {h00=0x001e, h01=0x0050, text=» TBF SPME,KENT05 FIELDS ? «, t00=0x001a, t01=0x0096}
0x294e…295c Head {h00=0x000a, h01=0x0050, text=»KENT00«, t00=0x001a, t01=0x00b8}
0x295c…2990 Head {h00=0x0030, h01=0x0050, text=» MOVE SPBINW4,='5' INDICATE COMP.FIELD FOUND«, t00=0x001a, t01=0x00c6}
0x2990…29c0 Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW1,='0' INDICATE NO CLEARING «, t00=0x001a, t01=0x00fa}
0x29c0…29f6 Head {h00=0x0032, h01=0x0050, text=» MOVE SPBINW2,='0' SET INDEX TO SEARCHED FIELD«, t00=0x001a, t01=0x012a}
0x29f6…2a36 Head {h00=0x003c, h01=0x0050, text=» GETFLD 0,SPBINW2,SPBINW3 SEARCH FOR EMPTY COMP. FIELDS «, t00=0x001a, t01=0x0160}
0x2a36…2a62 Head {h00=0x0028, h01=0x0050, text=» BOFL KENT10 EMPTY COMP. FIELD FOUND«, t00=0x001b, t01=0x0010}
0x2a62…2a8c Head {h00=0x0026, h01=0x0050, text=» TSTCTL 2 LOOK IF COMPULSORY FIELD«, t00=0x001b, t01=0x003c}
0x2a8c…2aa2 Head {h00=0x0012, h01=0x0050, text=» BZ KENT05 NO!«, t00=0x001b, t01=0x0066}
0x2aa2…2ad4 Head {h00=0x002e, h01=0x0050, text=» CALL EMPTYT,:FMTITEM LOOK IF EMPTY FIELD «, t00=0x001b, t01=0x007c}
0x2ad4…2aec Head {h00=0x0014, h01=0x0050, text=» BP KENT10 YES! «, t00=0x001b, t01=0x00ae}
0x2aec…2afa Head {h00=0x000a, h01=0x0050, text=»KENT05«, t00=0x001b, t01=0x00c6}
0x2afa…2b32 Head {h00=0x0034, h01=0x0050, text=» MOVE SPBINW2,='3' INDICATE ENTER KEY DEPRESSED «, t00=0x001b, t01=0x00d4}
0x2b32…2b3e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001b, t01=0x010c}
0x2b3e…2b48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0118}
0x2b48…2b72 Head {h00=0x0026, h01=0x0050, text=»* EMPTY COMPULSORY FIELD FOUND «, t00=0x001b, t01=0x0122}
0x2b72…2b7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x014c}
0x2b7c…2b8a Head {h00=0x000a, h01=0x0050, text=»KENT10«, t00=0x001b, t01=0x0156}
0x2b8a…2bc4 Head {h00=0x0036, h01=0x0050, text=» GETFLD 0,SPBINW3,SPBINW2 GET THE COMPULSORY FIELD«, t00=0x001b, t01=0x0164}
0x2bc4…2bd2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x000e}
0x2bd2…2be0 Head {h00=0x000a, h01=0x0050, text=»ERRPRT«, t00=0x001c, t01=0x001c}
0x2be0…2bea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x002a}
0x2bea…2bfe Head {h00=0x0010, h01=0x0050, text=» PERF DKTEST«, t00=0x001c, t01=0x0034}
0x2bfe…2c14 Head {h00=0x0012, h01=0x0050, text=» BNOK SETCREAD«, t00=0x001c, t01=0x0048}
0x2c14…2c1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x005e}
0x2c1e…2c4c Head {h00=0x002a, h01=0x0050, text=» CBE SPBINW2,='16',KEDIT JUMP IF EDIT «, t00=0x001c, t01=0x0068}
0x2c4c…2c7a Head {h00=0x002a, h01=0x0050, text=» CBE SPBINW2,='4',CANC JUMP IF CANCEL1«, t00=0x001c, t01=0x0096}
0x2c7a…2ca8 Head {h00=0x002a, h01=0x0050, text=» CBE SPBINW2,='5',CANC JUMP IF CANCEL2«, t00=0x001c, t01=0x00c4}
0x2ca8…2cb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00f2}
0x2cb2…2cce Head {h00=0x0018, h01=0x0050, text=»* ERROR HANDLING «, t00=0x001c, t01=0x00fc}
0x2cce…2cd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0118}
0x2cd8…2ce8 Head {h00=0x000c, h01=0x0050, text=»ERRPRINT«, t00=0x001c, t01=0x0122}
0x2ce8…2cf2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0132}
0x2cf2…2d0e Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW2,=X'40'«, t00=0x001c, t01=0x013c}
0x2d0e…2d2a Head {h00=0x0018, h01=0x0050, text=» XSTAT KEYB,SPBINW3 «, t00=0x001c, t01=0x0158}
0x2d2a…2d50 Head {h00=0x0022, h01=0x0050, text=» CBNE SPBINW2,SPBINW3,ERRPRT20«, t00=0x001c, t01=0x0174}
0x2d50…2d62 Head {h00=0x000e, h01=0x0050, text=» TIMEOUT«, t00=0x001d, t01=0x000a}
0x2d62…2d8c Head {h00=0x0026, h01=0x0050, text=» EDWRT SCREEN,ERAFMT ERASE SCREEN «, t00=0x001d, t01=0x001c}
0x2d8c…2d9e Head {h00=0x000e, h01=0x0050, text=» B ERRC20 «, t00=0x001d, t01=0x0046}
0x2d9e…2dae Head {h00=0x000c, h01=0x0050, text=»ERRPRT20«, t00=0x001d, t01=0x0058}
0x2dae…2dce Head {h00=0x001c, h01=0x0050, text=» CBE SPBINW4,='0',ERRC20«, t00=0x001d, t01=0x0068}
0x2dce…2de0 Head {h00=0x000e, h01=0x0050, text=» PERF BELL«, t00=0x001d, t01=0x0088}
0x2de0…2e0c Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW3,=X'0801' ROW 24 COL. 1«, t00=0x001d, t01=0x009a}
0x2e0c…2e42 Head {h00=0x0032, h01=0x0050, text=» DSC1 SCREEN,6,SPBINW3 SET CURSOR ON LAST ROW «, t00=0x001d, t01=0x00c6}
0x2e42…2e6a Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD4,SPBINW4 ERRORCODE «, t00=0x001d, t01=0x00fc}
0x2e6a…2e74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0124}
0x2e74…2e9c Head {h00=0x0024, h01=0x0050, text=» EDWRT SCREEN,SPFTBERR(SPBINW4) «, t00=0x001d, t01=0x012e}
0x2e9c…2eba Head {h00=0x001a, h01=0x0050, text=» TBF SPKEYFLG,SPERRRET«, t00=0x001d, t01=0x0156}
0x2eba…2ec4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0174}
0x2ec4…2ee2 Head {h00=0x001a, h01=0x0050, text=»* READ AFTER ERROR «, t00=0x001d, t01=0x017e}
0x2ee2…2eec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x000c}
0x2eec…2efa Head {h00=0x000a, h01=0x0050, text=»ERREAD«, t00=0x001e, t01=0x0016}
0x2efa…2f26 Head {h00=0x0028, h01=0x0050, text=» SETCUR SET CURSOR AT THE BEGINNING«, t00=0x001e, t01=0x0024}
0x2f26…2f46 Head {h00=0x001c, h01=0x0050, text=» OF THE CURRENT FIELD «, t00=0x001e, t01=0x0050}
0x2f46…2f54 Head {h00=0x000a, h01=0x0050, text=»ERR100«, t00=0x001e, t01=0x0070}
0x2f54…2f82 Head {h00=0x002a, h01=0x0050, text=» MOVE SPBINW3,=W'14' REQUESTED LENGTH «, t00=0x001e, t01=0x007e}
0x2f82…2fa8 Head {h00=0x0022, h01=0x0050, text=» IB SPKEY,ERR105,ERR110,ERR115«, t00=0x001e, t01=0x00ac}
0x2fa8…2fb6 Head {h00=0x000a, h01=0x0050, text=»ERR105«, t00=0x001e, t01=0x00d2}
0x2fb6…2fec Head {h00=0x0032, h01=0x0050, text=» NKI .NE,KEYB,SPINPUT,SPKTAB1,SPBINW3,SPBINW2 «, t00=0x001e, t01=0x00e0}
0x2fec…2ffe Head {h00=0x000e, h01=0x0050, text=» B ERR120 «, t00=0x001e, t01=0x0116}
0x2ffe…300c Head {h00=0x000a, h01=0x0050, text=»ERR110«, t00=0x001e, t01=0x0128}
0x300c…3042 Head {h00=0x0032, h01=0x0050, text=» NKI .NE,KEYB,SPINPUT,SPKTAB12,SPBINW3,SPBINW2«, t00=0x001e, t01=0x0136}
0x3042…3054 Head {h00=0x000e, h01=0x0050, text=» B ERR120 «, t00=0x001e, t01=0x016c}
0x3054…3062 Head {h00=0x000a, h01=0x0050, text=»ERR115«, t00=0x001e, t01=0x017e}
0x3062…3098 Head {h00=0x0032, h01=0x0050, text=» NKI .NE,KEYB,SPINPUT,SPKTAB13,SPBINW3,SPBINW2«, t00=0x001e, t01=0x018c}
0x3098…30a6 Head {h00=0x000a, h01=0x0050, text=»ERR120«, t00=0x001f, t01=0x0032}
0x30a6…30c8 Head {h00=0x001e, h01=0x0050, text=» BNZ ERR100 JUMP IF NOT OK«, t00=0x001f, t01=0x0040}
0x30c8…30d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0062}
0x30d2…30e6 Head {h00=0x0010, h01=0x0050, text=» PERF DKTEST«, t00=0x001f, t01=0x006c}
0x30e6…30fc Head {h00=0x0012, h01=0x0050, text=» BNOK SETCREAD«, t00=0x001f, t01=0x0080}
0x30fc…3106 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0096}
0x3106…3132 Head {h00=0x0028, h01=0x0050, text=» CMP SPBINW2,='0' JUMP IF POWER OFF «, t00=0x001f, t01=0x00a0}
0x3132…3144 Head {h00=0x000e, h01=0x0050, text=» BE RETUR «, t00=0x001f, t01=0x00cc}
0x3144…316a Head {h00=0x0022, h01=0x0050, text=» IB SPBINW2,ERR100,ERRCONT C «, t00=0x001f, t01=0x00de}
0x316a…3192 Head {h00=0x0024, h01=0x0050, text=» ERRCONT,ERR100,ERRCONT,ERRCONT«, t00=0x001f, t01=0x0104}
0x3192…31ac Head {h00=0x0016, h01=0x0050, text=» B ERR100 CONTINUE«, t00=0x001f, t01=0x012c}
0x31ac…31b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0146}
0x31b6…31d8 Head {h00=0x001e, h01=0x0050, text=»* CLEAR ERROR PRINTOUT «, t00=0x001f, t01=0x0150}
0x31d8…31e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0172}
0x31e2…31f2 Head {h00=0x000c, h01=0x0050, text=»ERRCONT «, t00=0x001f, t01=0x017c}
0x31f2…3216 Head {h00=0x0020, h01=0x0050, text=» PERF CLEAR8 ERASE LAST LINE«, t00=0x001f, t01=0x018c}
0x3216…3242 Head {h00=0x0028, h01=0x0050, text=» CBNL SPBINW4,=W'26',CANC IF WARNING«, t00=0x0020, t01=0x0020}
0x3242…326c Head {h00=0x0026, h01=0x0050, text=» SUB SPBINW2,='1' ADJUST KEY INDEX«, t00=0x0020, t01=0x004c}
0x326c…3278 Head {h00=0x0008, h01=0x0050, text=»CANC«, t00=0x0020, t01=0x0076}
0x3278…32ac Head {h00=0x0030, h01=0x0050, text=» CBE SPBINW1,='0',ERRC10 JUMP IF LENGTH = 0 «, t00=0x0020, t01=0x0082}
0x32ac…32e0 Head {h00=0x0030, h01=0x0050, text=» MOVE SPINPUT,:FMTITEM SAVE CURRENT CONTENTS«, t00=0x0020, t01=0x00b6}
0x32e0…3318 Head {h00=0x0034, h01=0x0050, text=» MOVE :FMTITEM,=C'1' PUT SOMETHING IN THE FIELD «, t00=0x0020, t01=0x00ea}
0x3318…3342 Head {h00=0x0026, h01=0x0050, text=» GETABX SPBINW4 GET CURRENT INDEX «, t00=0x0020, t01=0x0122}
0x3342…3370 Head {h00=0x002a, h01=0x0050, text=» ERASE 10,SPBINW4,SPBINW4 CLEAR FIELD «, t00=0x0020, t01=0x014c}
0x3370…337e Head {h00=0x000a, h01=0x0050, text=»ERRC10«, t00=0x0020, t01=0x017a}
0x337e…33a6 Head {h00=0x0024, h01=0x0050, text=» IB SPBINW2,CLEAR1,CLEAR2,DUMMY «, t00=0x0020, t01=0x0188}
0x33a6…33da Head {h00=0x0030, h01=0x0050, text=» SUB SPBINW2,='3' ADJUST FOR CANCEL1,CANCEL2«, t00=0x0021, t01=0x0020}
0x33da…33e6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0021, t01=0x0054}
0x33e6…33f4 Head {h00=0x000a, h01=0x0050, text=»CLEAR1«, t00=0x0021, t01=0x0060}
0x33f4…3428 Head {h00=0x0030, h01=0x0050, text=» CBE SPBINW1,='0',ERRC20 JUMP IF LENGTH = 0 «, t00=0x0021, t01=0x006e}
0x3428…3454 Head {h00=0x0028, h01=0x0050, text=» SET SPCHANGE INDICATE CHANGED FIELD«, t00=0x0021, t01=0x00a2}
0x3454…3462 Head {h00=0x000a, h01=0x0050, text=»ERRC20«, t00=0x0021, t01=0x00ce}
0x3462…348c Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW5,$OPT CHECHK IF SPERR«, t00=0x0021, t01=0x00dc}
0x348c…34b0 Head {h00=0x0020, h01=0x0050, text=» CBE SPBINW5,=W'0',SPERRRET «, t00=0x0021, t01=0x0106}
0x34b0…34cc Head {h00=0x0018, h01=0x0050, text=» B SETCREAD CONTINUE«, t00=0x0021, t01=0x012a}
0x34cc…34d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0146}
0x34d6…34e4 Head {h00=0x000a, h01=0x0050, text=»CLEAR2«, t00=0x0021, t01=0x0150}
0x34e4…351c Head {h00=0x0034, h01=0x0050, text=» MOVE :FMTITEM,SPINPUT RESTORE CURRENT CONTENTS «, t00=0x0021, t01=0x015e}
0x351c…352a Head {h00=0x000a, h01=0x0050, text=»CLEA20«, t00=0x0022, t01=0x0008}
0x352a…3558 Head {h00=0x002a, h01=0x0050, text=» GETABX SPBINW4 GET CURRENT TAB INDEX «, t00=0x0022, t01=0x0016}
0x3558…3588 Head {h00=0x002c, h01=0x0050, text=» DISPLAY 1,SPBINW4,SPBINW4 DISPLAY FIELD«, t00=0x0022, t01=0x0044}
0x3588…35b2 Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW5,$OPT CHECK IF SPERR «, t00=0x0022, t01=0x0074}
0x35b2…35d6 Head {h00=0x0020, h01=0x0050, text=» CBE SPBINW5,=W'0',SPERRRET «, t00=0x0022, t01=0x009e}
0x35d6…35f2 Head {h00=0x0018, h01=0x0050, text=» B SETCREAD CONTINUE«, t00=0x0022, t01=0x00c2}
0x35f2…35fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00de}
0x35fc…360c Head {h00=0x000c, h01=0x0050, text=»SPERRRET«, t00=0x0022, t01=0x00e8}
0x360c…3618 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0022, t01=0x00f8}
0x3618…3622 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0104}
0x3622…3630 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0022, t01=0x010e}
0x3630…363a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x011c}
0x363a…364c Head {h00=0x000e, h01=0x0050, text=»BELL PROC «, t00=0x0022, t01=0x0126}
0x364c…366c Head {h00=0x001c, h01=0x0050, text=»* ACUSTIC ALARM«, t00=0x0022, t01=0x0138}
0x366c…368a Head {h00=0x001a, h01=0x0050, text=» EDWRT SCREEN,BELLFMT «, t00=0x0022, t01=0x0158}
0x368a…3696 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0022, t01=0x0176}
0x3696…36a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0182}
0x36a0…36b4 Head {h00=0x0010, h01=0x0050, text=»BELLFMT FRMT«, t00=0x0022, t01=0x018c}
0x36b4…36c0 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0023, t01=0x0010}
0x36c0…36d6 Head {h00=0x0012, h01=0x0050, text=» FILLR X'07',1«, t00=0x0023, t01=0x001c}
0x36d6…36e4 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0023, t01=0x0032}
0x36e4…36ec Head {h00=0x0004, h01=0x0050, t00=0x0023, t01=0x0040}
0x36ec…36fa Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0023, t01=0x0048}
0x36fa…3704 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0056}
0x3704…3718 Head {h00=0x0010, h01=0x0050, text=»ERAFMT FRMT «, t00=0x0023, t01=0x0060}
0x3718…372c Head {h00=0x0010, h01=0x0050, text=» FILLR '1',2«, t00=0x0023, t01=0x0074}
0x372c…373a Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0023, t01=0x0088}
0x373a…3744 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0096}
0x3744…3752 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x00a0}
0x3752…3774 Head {h00=0x001e, h01=0x0050, text=»SPLIN8 PROC WRTMES,WRTTYP «, t00=0x0023, t01=0x00ae}
0x3774…3790 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0023, t01=0x00d0}
0x3790…379a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00ec}
0x379a…37c6 Head {h00=0x0028, h01=0x0050, text=»* SPLIN8 - WRITE ON LINE 8 «, t00=0x0023, t01=0x00f6}
0x37c6…37d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0122}
0x37d0…380a Head {h00=0x0036, h01=0x0050, text=»* MESSAGE DEFINED AS FORMAT NUMBER WRTMES«, t00=0x0023, t01=0x012c}
0x380a…3836 Head {h00=0x0028, h01=0x0050, text=»* IN FORMAT TABLE SPFTBMES «, t00=0x0023, t01=0x0166}
0x3836…3840 (36, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0004}
0x3840…3868 Head {h00=0x0024, h01=0x0050, text=»* WRTTYP: =0 NO WAIT«, t00=0x0024, t01=0x000e}
0x3868…388e Head {h00=0x0022, h01=0x0050, text=»* =1 WAIT «, t00=0x0024, t01=0x0036}
0x388e…38b6 Head {h00=0x0024, h01=0x0050, text=»* =2 RETURN «, t00=0x0024, t01=0x005c}
0x38b6…38ec Head {h00=0x0032, h01=0x0050, text=»* =3 WRITE .NW AND RETURN «, t00=0x0024, t01=0x0084}
0x38ec…38f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00ba}
0x38f6…3912 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0024, t01=0x00c4}
0x3912…3934 Head {h00=0x001e, h01=0x0050, text=» CBNG WRTMES,CBIN0,LIN800 «, t00=0x0024, t01=0x00e0}
0x3934…3952 Head {h00=0x001a, h01=0x0050, text=» MOVE SPBINW1,=X'0801'«, t00=0x0024, t01=0x0102}
0x3952…3988 Head {h00=0x0032, h01=0x0050, text=» DSC1 SCREEN,6,SPBINW1 SET CURSOR ON LAST ROW «, t00=0x0024, t01=0x0120}
0x3988…39a4 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW1,CBIN0 «, t00=0x0024, t01=0x0156}
0x39a4…39c4 Head {h00=0x001c, h01=0x0050, text=» CBL WRTTYP,CBIN3,LIN801«, t00=0x0024, t01=0x0172}
0x39c4…39ee (37, 0, 400) Head {h00=0x0026, h01=0x0050, text=» EDWRT .NW,SCREEN,SPFTBMES(WRTMES)«, t00=0x0025, t01=0x0004}
0x39ee…3a00 Head {h00=0x000e, h01=0x0050, text=» B LINRET «, t00=0x0025, t01=0x002e}
0x3a00…3a0e Head {h00=0x000a, h01=0x0050, text=»LIN801«, t00=0x0025, t01=0x0040}
0x3a0e…3a34 Head {h00=0x0022, h01=0x0050, text=» EDWRT SCREEN,SPFTBMES(WRTMES)«, t00=0x0025, t01=0x004e}
0x3a34…3a42 Head {h00=0x000a, h01=0x0050, text=»LIN800«, t00=0x0025, t01=0x0074}
0x3a42…3a5e Head {h00=0x0018, h01=0x0050, text=» TBT TBCTASK,LINRET «, t00=0x0025, t01=0x0082}
0x3a5e…3a7e Head {h00=0x001c, h01=0x0050, text=» CBE WRTTYP,=W'0',LIN8NW«, t00=0x0025, t01=0x009e}
0x3a7e…3a9e Head {h00=0x001c, h01=0x0050, text=» CBE WRTTYP,=W'2',LINRET«, t00=0x0025, t01=0x00be}
0x3a9e…3aac Head {h00=0x000a, h01=0x0050, text=»* READ«, t00=0x0025, t01=0x00de}
0x3aac…3aba Head {h00=0x000a, h01=0x0050, text=»LIN8IN«, t00=0x0025, t01=0x00ec}
0x3aba…3ae6 Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW1,=W'3' REQUESTED LENGTH«, t00=0x0025, t01=0x00fa}
0x3ae6…3b0c Head {h00=0x0022, h01=0x0050, text=» IB SPKEY,LIN805,LIN810,LIN815«, t00=0x0025, t01=0x0126}
0x3b0c…3b1a Head {h00=0x000a, h01=0x0050, text=»LIN805«, t00=0x0025, t01=0x014c}
0x3b1a…3b4c Head {h00=0x002e, h01=0x0050, text=» NKI KEYB,SPINPUT,SPKTAB1,SPBINW1,SPBINW2 «, t00=0x0025, t01=0x015a}
0x3b4c…3b5e Head {h00=0x000e, h01=0x0050, text=» B LIN820 «, t00=0x0025, t01=0x018c}
0x3b5e…3b6c Head {h00=0x000a, h01=0x0050, text=»LIN810«, t00=0x0026, t01=0x000e}
0x3b6c…3b9e Head {h00=0x002e, h01=0x0050, text=» NKI KEYB,SPINPUT,SPKTAB12,SPBINW1,SPBINW2«, t00=0x0026, t01=0x001c}
0x3b9e…3bb0 Head {h00=0x000e, h01=0x0050, text=» B LIN820 «, t00=0x0026, t01=0x004e}
0x3bb0…3bbe Head {h00=0x000a, h01=0x0050, text=»LIN815«, t00=0x0026, t01=0x0060}
0x3bbe…3bf0 Head {h00=0x002e, h01=0x0050, text=» NKI KEYB,SPINPUT,SPKTAB13,SPBINW1,SPBINW2«, t00=0x0026, t01=0x006e}
0x3bf0…3bfe Head {h00=0x000a, h01=0x0050, text=»LIN820«, t00=0x0026, t01=0x00a0}
0x3bfe…3c22 Head {h00=0x0020, h01=0x0050, text=» BNOK LIN8IN JUMP IF NOT OK «, t00=0x0026, t01=0x00ae}
0x3c22…3c2a Head {h00=0x0004, h01=0x0050, t00=0x0026, t01=0x00d2}
0x3c2a…3c3e Head {h00=0x0010, h01=0x0050, text=» PERF DKTEST«, t00=0x0026, t01=0x00da}
0x3c3e…3c46 Head {h00=0x0004, h01=0x0050, t00=0x0026, t01=0x00ee}
0x3c46…3c6e Head {h00=0x0024, h01=0x0050, text=» IB SPBINW2,LIN8IN,LIN8CT,LIN8IN«, t00=0x0026, t01=0x00f6}
0x3c6e…3c80 Head {h00=0x000e, h01=0x0050, text=» B LIN8IN «, t00=0x0026, t01=0x011e}
0x3c80…3c94 Head {h00=0x0010, h01=0x0050, text=»* CLEAR LINE«, t00=0x0026, t01=0x0130}
0x3c94…3ca2 Head {h00=0x000a, h01=0x0050, text=»LIN8CT«, t00=0x0026, t01=0x0144}
0x3ca2…3cc6 Head {h00=0x0020, h01=0x0050, text=» PERF CLEAR8 ERASE LAST LINE«, t00=0x0026, t01=0x0152}
0x3cc6…3cd2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0026, t01=0x0176}
0x3cd2…3cee Head {h00=0x0018, h01=0x0050, text=»* READ WITH NO WAIT «, t00=0x0026, t01=0x0182}
0x3cee…3cfc Head {h00=0x000a, h01=0x0050, text=»LIN8NW«, t00=0x0027, t01=0x000e}
0x3cfc…3d28 Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW1,=W'3' REQUESTED LENGTH«, t00=0x0027, t01=0x001c}
0x3d28…3d4e Head {h00=0x0022, h01=0x0050, text=» IB SPKEY,LIN855,LIN860,LIN865«, t00=0x0027, t01=0x0048}
0x3d4e…3d5c Head {h00=0x000a, h01=0x0050, text=»LIN855«, t00=0x0027, t01=0x006e}
0x3d5c…3d92 Head {h00=0x0032, h01=0x0050, text=» NKI .NW,KEYB,SPINPUT,SPKTAB1,SPBINW1,SPBINW2 «, t00=0x0027, t01=0x007c}
0x3d92…3da4 Head {h00=0x000e, h01=0x0050, text=» B LIN870 «, t00=0x0027, t01=0x00b2}
0x3da4…3db2 Head {h00=0x000a, h01=0x0050, text=»LIN860«, t00=0x0027, t01=0x00c4}
0x3db2…3de8 Head {h00=0x0032, h01=0x0050, text=» NKI .NW,KEYB,SPINPUT,SPKTAB12,SPBINW1,SPBINW2«, t00=0x0027, t01=0x00d2}
0x3de8…3dfa Head {h00=0x000e, h01=0x0050, text=» B LIN870 «, t00=0x0027, t01=0x0108}
0x3dfa…3e08 Head {h00=0x000a, h01=0x0050, text=»LIN865«, t00=0x0027, t01=0x011a}
0x3e08…3e3e Head {h00=0x0032, h01=0x0050, text=» NKI .NW,KEYB,SPINPUT,SPKTAB13,SPBINW1,SPBINW2«, t00=0x0027, t01=0x0128}
0x3e3e…3e4c Head {h00=0x000a, h01=0x0050, text=»LIN870«, t00=0x0027, t01=0x015e}
0x3e4c…3e54 Head {h00=0x0004, h01=0x0050, t00=0x0027, t01=0x016c}
0x3e54…3e68 Head {h00=0x0010, h01=0x0050, text=» PERF DKTEST«, t00=0x0027, t01=0x0174}
0x3e68…3e70 Head {h00=0x0004, h01=0x0050, t00=0x0027, t01=0x0188}
0x3e70…3e7e Head {h00=0x000a, h01=0x0050, text=»LINRET«, t00=0x0027, t01=0x0190}
0x3e7e…3e8a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0028, t01=0x000e}
0x3e8a…3e98 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0028, t01=0x001a}
0x3e98…3ea6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x0028}
0x3ea6…3eba Head {h00=0x0010, h01=0x0050, text=»SPINF1 PROC «, t00=0x0028, t01=0x0036}
0x3eba…3ed6 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0028, t01=0x004a}
0x3ed6…3ee0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0066}
0x3ee0…3f14 Head {h00=0x0030, h01=0x0050, text=»* SPINF1 - WRITE INF ON FIRST LINE «, t00=0x0028, t01=0x0070}
0x3f14…3f1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00a4}
0x3f1e…3f3a Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0028, t01=0x00ae}
0x3f3a…3f58 Head {h00=0x001a, h01=0x0050, text=» MOVE SPBINW1,=X'0117'«, t00=0x0028, t01=0x00ca}
0x3f58…3f90 Head {h00=0x0034, h01=0x0050, text=» DSC1 SCREEN,6,SPBINW1 SET CURSOR ON FIRST LINE «, t00=0x0028, t01=0x00e8}
0x3f90…3fac Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW1,CBIN0 «, t00=0x0028, t01=0x0120}
0x3fac…3fe2 Head {h00=0x0032, h01=0x0050, text=» EDWRT SCREEN,SPFTBMES(CBIN7) WRITE MESSAGE 7 «, t00=0x0028, t01=0x013c}
0x3fe2…3fee Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0028, t01=0x0172}
0x3fee…3ffc Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0028, t01=0x017e}
0x3ffc…4006 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x018c}
0x4006…4010 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0008}
0x4010…401a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0012}
0x401a…402e Head {h00=0x0010, h01=0x0050, text=»SPINF8 PROC «, t00=0x0029, t01=0x001c}
0x402e…404a Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0029, t01=0x0030}
0x404a…4054 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x004c}
0x4054…4086 Head {h00=0x002e, h01=0x0050, text=»* SPINF8 - WRITE INF ON LAST LINE«, t00=0x0029, t01=0x0056}
0x4086…4090 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0088}
0x4090…40ac Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0029, t01=0x0092}
0x40ac…40cc Head {h00=0x001c, h01=0x0050, text=» PERF SPLIN8,CBIN4,CBIN2«, t00=0x0029, t01=0x00ae}
0x40cc…40d8 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0029, t01=0x00ce}
0x40d8…40e6 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0029, t01=0x00da}
0x40e6…40f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00e8}
0x40f0…40fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00f2}
0x40fa…4108 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x00fc}
0x4108…4134 Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x0029, t01=0x010a}
0x4134…413e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0136}
0x413e…416e Head {h00=0x002c, h01=0x0050, text=»* DKTEST TEST IF DISK IS READY «, t00=0x0029, t01=0x0140}
0x416e…4178 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0170}
0x4178…41a6 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0029, t01=0x017a}
0x41a6…41b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0018}
0x41b0…41b8 Head {h00=0x0004, h01=0x0050, t00=0x002a, t01=0x0022}
0x41b8…41cc Head {h00=0x0010, h01=0x0050, text=»DKTEST PROC «, t00=0x002a, t01=0x002a}
0x41cc…41d4 Head {h00=0x0004, h01=0x0050, t00=0x002a, t01=0x003e}
0x41d4…41fa Head {h00=0x0022, h01=0x0050, text=»* TEST IF DISK IS SWITCHED OFF«, t00=0x002a, t01=0x0046}
0x41fa…4202 Head {h00=0x0004, h01=0x0050, t00=0x002a, t01=0x006c}
0x4202…421c Head {h00=0x0016, h01=0x0050, text=» TBF CDKOFF,DKTRET«, t00=0x002a, t01=0x0074}
0x421c…4238 Head {h00=0x0018, h01=0x0050, text=» TBT GTMASTFL,DKTRET«, t00=0x002a, t01=0x008e}
0x4238…426a Head {h00=0x002e, h01=0x0050, text=» TBF CDUOVL,DKTRET NO KI IF DISKOVL ON DU «, t00=0x002a, t01=0x00aa}
0x426a…4272 Head {h00=0x0004, h01=0x0050, t00=0x002a, t01=0x00dc}
0x4272…4290 Head {h00=0x001a, h01=0x0050, text=» MOVE SPBINW5,=X'0801'«, t00=0x002a, t01=0x00e4}
0x4290…42ae Head {h00=0x001a, h01=0x0050, text=» DSC1 SCREEN,6,SPBINW5«, t00=0x002a, t01=0x0102}
0x42ae…42d8 Head {h00=0x0026, h01=0x0050, text=» EDWRT .NW,SCREEN,SPFTBMES(CBIN11)«, t00=0x002a, t01=0x0120}
0x42d8…42e0 Head {h00=0x0004, h01=0x0050, t00=0x002a, t01=0x014a}
0x42e0…42ee Head {h00=0x000a, h01=0x0050, text=»DKT10 «, t00=0x002a, t01=0x0152}
0x42ee…4304 Head {h00=0x0012, h01=0x0050, text=» DELAY CBIN10 «, t00=0x002a, t01=0x0160}
0x4304…431e Head {h00=0x0016, h01=0x0050, text=» TBT CDKOFF,DKT10 «, t00=0x002a, t01=0x0176}
0x431e…4332 Head {h00=0x0010, h01=0x0050, text=» PERF CLEAR8«, t00=0x002a, t01=0x0190}
0x4332…434e Head {h00=0x0018, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK«, t00=0x002b, t01=0x0014}
0x434e…435a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002b, t01=0x0030}
0x435a…4362 Head {h00=0x0004, h01=0x0050, t00=0x002b, t01=0x003c}
0x4362…4370 Head {h00=0x000a, h01=0x0050, text=»DKTRET«, t00=0x002b, t01=0x0044}
0x4370…438c Head {h00=0x0018, h01=0x0050, text=» CMP CBIN0,CBIN0 OK «, t00=0x002b, t01=0x0052}
0x438c…4398 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002b, t01=0x006e}
0x4398…43a0 Head {h00=0x0004, h01=0x0050, t00=0x002b, t01=0x007a}
0x43a0…43ae Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x002b, t01=0x0082}
0x43ae…43b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0090}
0x43b8…43c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x009a}
0x43c2…43ca Head {h00=0x0004, h01=0x0050, t00=0x002b, t01=0x00a4}
0x43ca…43d6 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x002b, t01=0x00ac}
0x43d6…43da Head {h00=0x4004, h01=0x0000}
0x43da…43de 00 2b 00 b8 ┆ + ┆
0x43de…43e6 (44, 1, 8) 20 04 00 00 00 2c 00 04 ┆ , ┆