|
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: 20764 (0x511c)
Notes: pts_type(SC)
Names: »GLSCR.SC«, »SCREEN.SC«
└─⟦26dca8ec8⟧ Bits:30009711 Philips computer tape "RÅKON-DIVFMT"
└─⟦this⟧ »REMIT2/GLSCR.SC«
└─⟦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-- ENTRY SCREEN ENTRY SPINF1 INFORMATION ON LINE 1 ENTRY SPINF8 INFORMATION ON LINE 8 ENTRY BELL ENTRY CLEAR8 ENTRY DKTEST TEST IF DISK READY ENTRY KBTEST TEST KB FOR MAK-KEY * 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 ABORT EXT EMPTYT ASSEMBLY SUBROUTINE EMPTYT - TEST IF DATA ITEM IS EMPTY * 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,CBIN0 PERF SCREEN,=W'1' RET PEND SPCLRS PROC * * SPCLRS - CLEAR SOME VARIABLE FIELDS BEFORE HANDLING THE PICTURE * MOVE SPERASE,CBIN0 PERF SCREEN,=W'2' RET PEND SPCLRN PROC * * SPCLRN - CLEAR NO VARIABLE FIELDS BEFORE HANDLING THE PICTURE * MOVE SPERASE,CBIN0 PERF SCREEN,=W'3' RET PEND SPERR PROC * * HANDLE ERRORS DETECTED OUTSIDE THE PACKAGE * PERF SCREEN,=W'0' RET PEND SPCA PROC * * MOVE SPERASE,CBIN4 PERF SCREEN,=W'1' RET PEND SPCN PROC * * MOVE SPERASE,CBIN4 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,CBIN0 "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,CBIN1,CBIN0 ERASE ALL FROM 1 AND UP THOME B CONT * CLEARS ERASE 5,CBIN1,CBIN0 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,CBIN1,CBIN0 CLEAR ALL IN MEMORY B ECLRN * * CLEAR SOME VARIABLES * ECLRS ERASE 6,CBIN1,CBIN0 CLEAR SOME FIELDS FROM 1 AND UP IN MEMORY * * CLEAR NO VARIABLES IN MEMORY * ECLRN IB SPERASE,ECLRN1,ECLRN2,ECLRN3,ECLRN4 DISPLAY 0,CBIN1,CBIN0 B CONT ECLRN1 DISPLAY 1,CBIN1,CBIN0 B CONT ECLRN2 DISPLAY 2,CBIN1,CBIN0 B CONT ECLRN3 DISPLAY 3,CBIN1,CBIN0 B CONT ECLRN4 DISPLAY 4,CBIN1,CBIN0 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,CBIN3 MOVE SPBINW1,CBIN1 TSTCTL 6 BOK DYKIN GETCTL 0,SPBINW3 MOVE SPBINW1,CFLTDEX(SPBINW3) CMP GSSWITCH(SPBINW1),CBIN0 BE DYKIN MOVE SPBINW1,CBIN1 BL DYK20 MOVE SPBINW2,CBIN15 B DYK20 * DYKIN IB SPKEY,DYK05,DYK10,DYK15,DYK16 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 B DYKOUT DYK16 DYKI SPINPUT,SPKTAB14,SPKTAB24,SPBINW1, C SPBINW2,SPBINW4 DYKOUT BL ERRPRT ERROR CLEAR SPDUPL CBG SPBINW2,CBIN0,DYK20 NORMAL BE RETUR POWER OFF ADD SPBINW2,CBIN9 KEYSWITCH TURNED IB SPBINW2,SET1,SET2,SET3,SET4,CLR1,CLR2,CLR3,CLR4 SET1 SET TTKEY1 B DYKIN SET2 SET TTKEY2 B DYKIN SET3 SET TTKEY3 B DYKIN SET4 SET TTKEY4 B DYKIN CLR1 CLEAR TTKEY1 B DYKIN CLR2 CLEAR TTKEY2 B DYKIN CLR3 CLEAR TTKEY3 B DYKIN CLR4 CLEAR TTKEY4 B DYKIN * DYK20 * PERF DKTEST BNOK SETCREAD * TBF TTKEYFLG,DYK80 * KEY SWITCHES TBF TTKEY1,DYKRET KEYBOARD OFF IB SPKEY,DYK30,DYK40,DYK50,DYK40 DYK30 TBF TTKEY2,DYK80 EQUAL TO KEYPOS 1 ON 6234 B DYKRET DYK40 TBT TTKEY2,DYK80 EQUAL TO KEYPOS 2 ON 6234 DYKRET PERF BELL B SETCREAD DYK50 DYK80 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,CBIN0,UPD350 JUMP IF LENGTH = 0 GETCTL 3,SPBINW4 GET SCHK-NUMBER CBE SPBINW4,CBIN0,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,CBIN1 INDICATE COND. DISPL B UPD200 UPD070 GETCTL 0,SPBINW3 GET APPL-VALUE CBNE SPBINW3,CBIN0,UPD210 JUMP IF APPL VALUE B SETCREAD * * UNCONDITIONAL DISPLAYING * UPD100 MOVE SPBINW4,CBIN2 INDICATE UNCONDITIONAL DISPLAY UPD200 GETCTL 0,SPBINW3 GET APPL-VALUE CBE SPBINW3,CBIN0,UPD400 JUMP IF NO APPL VALUE * * APPL-VALUE DIFFERENT FROM ZERO * UPD210 PERF SPAPPL UPD212 IB SPBINW3,UPD400,SETCREAD,ERRPRINT B UPD400 * * OK AFTER APPL CONTROL * UNCONDITIONAL DISPLAYING * UPD260 UPDFLD 1,SPINPUT UPDATE FIELD WITH DISPLAYING UPD300 CBE SPBINW1,CBIN0,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,CBIN14 ADJUST EOI/KEY INDEX DUMMY RETUR RET * UPD400 CBE SPBINW4,CBIN2,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,CBIN0 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,CBIN1 TBT GTGTPFLG,KCOPY05 TBT GTLPFLG,KCOPY08 B SETCREAD KCOPY05 EDWRT DSHCGP,ERAFMT PRINT DSHCGP,SPBINW3,='0' GTP B SETCREAD KCOPY08 EDWRT DSHCLP,ERAFMT PRINT DSHCLP,SPBINW3,='0' LP B SETCREAD SET CURSOR AND READ * KDUPL DUPLICATION MOVE SPBINW2,CBIN3 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,CBIN10 SET LENGTH IN DUPFIELD SET SPDUPL B UPDATE DUPL ALLOWED KDUPL2 MOVE SPBINW4,CBIN4 INDICATE ILLEGAL EOI-KEY B ERRPRINT DUPL NOT ALLOWED * * EDIT FIELD * KEDIT GETCTL 1,SPBINW3 GET MAXL CBNE SPBINW3,CBIN0,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,CBIN5 INDICATE COMP.FIELD FOUND MOVE SPBINW1,CBIN0 INDICATE NO CLEARING MOVE SPBINW2,CBIN0 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,CBIN3 INDICATE ENTER KEY DEPRESSED RET * * EMPTY COMPULSORY FIELD FOUND * KENT10 GETFLD 0,SPBINW3,SPBINW2 GET THE COMPULSORY FIELD ERRPRT PERF DKTEST BNOK SETCREAD CBE SPBINW2,CBIN16,KEDIT JUMP IF EDIT CBE SPBINW2,CBIN4,CANC JUMP IF CANCEL1 CBE SPBINW2,CBIN5,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,CBIN0,ERRC20 PERF BELL MOVE SPBINW3,=X'1801' ROW 24 COL. 1 DSC1 SCREEN,6,SPBINW3 SET CURSOR ON LAST ROW * TBT GTRKONV,ERRPRT30 MOVE GSWBCD4,SPBINW4 ERRORCODE ERRPRT30 EDWRT SCREEN,SPFTBERR(SPBINW4) TBF SPKEYFLG,SPERRRET * * READ AFTER ERROR * ERREAD SETCUR SET CURSOR AT THE BEGINNING OF THE CURRENT FIELD ERR100 MOVE SPBINW3,CBIN14 REQUESTED LENGTH IB SPKEY,ERR105,ERR110,ERR115,ERR116 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 B ERR120 ERR116 NKI .NE,KEYB,SPINPUT,SPKTAB14,SPBINW3,SPBINW2 ERR120 BNZ ERR100 JUMP IF NOT OK PERF DKTEST BNOK ERREAD CMP SPBINW2,CBIN0 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,CBIN1 ADJUST KEY INDEX CANC CBE SPBINW1,CBIN0,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,CBIN3 ADJUST FOR CANCEL1,CANCEL2 RET CLEAR1 CBE SPBINW1,CBIN0,ERRC20 JUMP IF LENGTH = 0 SET SPCHANGE INDICATE CHANGED FIELD ERRC20 MOVE SPBINW5,$OPT CHECHK IF SPERR CBE SPBINW5,CBIN0,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,CBIN0,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 KBTEST PROC * THE PROCEDURE SENSES THE KEYBOARD. * IF THE MAK-KEY HAS BEEN DEPRESSED, THE COND.REG * WILL BE SET TO ZERO, IN ORDER TO ENABLE THE CALLING * MODULE TO STOP THE LISTING (OR FOR ANY OTHER PURPOSE) PERF SPLIN8,CBIN0,CBIN0 TESTIO KEYB BOK KBT10 CALL ABORT,KEYB B KBT20 KBT10 WAIT KEYB CBNE SPBINW2,CBIN6,KBT20 CMP CBIN0,CBIN0 B KBT99 KBT20 CMP CBIN0,CBIN1 KBT99 RET PEND EJECT SPLIN8 PROC WRTMES,WRTTYP ******************** * * SPLIN8 - WRITE ON LINE 24 * * MESSAGE DEFINED AS FORMAT NUMBER WRTMES * IN FORMAT TABLE SPFTBMES * * WRTTYP: =0 NO WAIT * =1 WAIT * =2 RETURN * =3 WRITE WITH NO WAIT, RETURN * ******************* MOVE SPBINW1,=X'1801' DSC1 SCREEN,6,SPBINW1 SET CURSOR ON LAST ROW MOVE SPBINW1,CBIN0 CBE WRTMES,CBIN0,LIN800 CBL WRTTYP,CBIN3,LIN801 EDWRT .NW,SCREEN,SPFTBMES(WRTMES) B LINRET LIN801 EDWRT SCREEN,SPFTBMES(WRTMES) LIN800 CBE WRTTYP,CBIN0,LIN8NW CBE WRTTYP,CBIN2,LINRET * READ LIN8IN MOVE SPBINW1,CBIN3 REQUESTED LENGTH IB SPKEY,LIN805,LIN810,LIN815,LIN816 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 B LIN820 LIN816 NKI KEYB,SPINPUT,SPKTAB14,SPBINW1,SPBINW2 LIN820 BNOK LIN8IN JUMP IF NOT OK PERF DKTEST CBE SPBINW2,CBIN2,LIN8CT B LIN8IN * CLEAR LINE LIN8CT PERF CLEAR8 ERASE LAST LINE RET * READ WITH NO WAIT LIN8NW MOVE SPBINW1,CBIN3 REQUESTED LENGTH IB SPKEY,LIN855,LIN860,LIN865,LIN866 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 B LIN870 LIN866 NKI .NW,KEYB,SPINPUT,SPKTAB14,SPBINW1,SPBINW2 LIN870 PERF DKTEST 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 * * CLEAR8 PROC * DELETE FIRST 14 CHARACTERS * OF LINE 24 MOVE GSWBIN2,=X'1801' INDICATE LAST LINE DSC1 SCREEN,06,GSWBIN2 MOVE GSWBIN2,CBIN14 DSC1 SCREEN,02,GSWBIN2 ERASE 14 CHARS RET PEND * * DKTEST PROC * TEST IF DISK IS SWITCHED OFF, * TBF CDKOFF,DKTRET TBT GTMASTFL,DKTRET TBF CDUOVL,DKTRET NO KI IF DISKOVERLAY ON DU * WRITE MESSAGE, AND WAIT FOR FLAG CLEARED MOVE SPBINW5,=X'1801' POSITION DSC1 SCREEN,6,SPBINW5 CURSOR EDWRT .NW,SCREEN,SPFTBMES(CBIN14) DKT10 DELAY CBIN10 TBT CDKOFF,DKT10 PERF CLEAR8 CMP CBIN1,CBIN0 NOK RET DKTRET CMP CBIN0,CBIN0 OK 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…02a4 Head {h00=0x0012, h01=0x0050, text=» ENTRY SCREEN «, t00=0x0001, t01=0x0102}
0x02a4…02d0 Head {h00=0x0028, h01=0x0050, text=» ENTRY SPINF1 INFORMATION ON LINE 1 «, t00=0x0001, t01=0x0118}
0x02d0…02fc Head {h00=0x0028, h01=0x0050, text=» ENTRY SPINF8 INFORMATION ON LINE 8 «, t00=0x0001, t01=0x0144}
0x02fc…0310 Head {h00=0x0010, h01=0x0050, text=» ENTRY BELL «, t00=0x0001, t01=0x0170}
0x0310…0326 Head {h00=0x0012, h01=0x0050, text=» ENTRY CLEAR8 «, t00=0x0001, t01=0x0184}
0x0326…034e Head {h00=0x0024, h01=0x0050, text=» ENTRY DKTEST TEST IF DISK READY«, t00=0x0002, t01=0x000a}
0x034e…0378 Head {h00=0x0026, h01=0x0050, text=» ENTRY KBTEST TEST KB FOR MAK-KEY «, t00=0x0002, t01=0x0032}
0x0378…0382 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x005c}
0x0382…03b2 Head {h00=0x002c, h01=0x0050, text=» EXT SPCHK1 STANDARD CHECK ROUTINE NO. 1«, t00=0x0002, t01=0x0066}
0x03b2…03e2 Head {h00=0x002c, h01=0x0050, text=» EXT SPCHK2 STANDARD CHECK ROUTINE NO. 2«, t00=0x0002, t01=0x0096}
0x03e2…0412 Head {h00=0x002c, h01=0x0050, text=» EXT SPCHK3 STANDARD CHECK ROUTINE NO. 3«, t00=0x0002, t01=0x00c6}
0x0412…0442 Head {h00=0x002c, h01=0x0050, text=» EXT SPCHK4 STANDARD CHECK ROUTINE NO. 4«, t00=0x0002, t01=0x00f6}
0x0442…0472 Head {h00=0x002c, h01=0x0050, text=» EXT SPCHK5 STANDARD CHECK ROUTINE NO.5 «, t00=0x0002, t01=0x0126}
0x0472…04a2 Head {h00=0x002c, h01=0x0050, text=» EXT SPCHK6 STANDARD CHECK ROUTINE NO. 6«, t00=0x0002, t01=0x0156}
0x04a2…04d2 Head {h00=0x002c, h01=0x0050, text=» EXT SPCHK7 STANDARD CHECK ROUTINE NO. 7«, t00=0x0002, t01=0x0186}
0x04d2…04fc Head {h00=0x0026, h01=0x0050, text=» EXT SPAPPL USER ROUTINE TO HANDLE«, t00=0x0003, t01=0x0026}
0x04fc…0512 Head {h00=0x0012, h01=0x0050, text=» APPL VALUES«, t00=0x0003, t01=0x0050}
0x0512…053e Head {h00=0x0028, h01=0x0050, text=» EXT SPTCHK USER ROUTINE TO EVALUATE«, t00=0x0003, t01=0x0066}
0x053e…0560 Head {h00=0x001e, h01=0x0050, text=» CONDITIONAL TABULATION «, t00=0x0003, t01=0x0092}
0x0560…0572 Head {h00=0x000e, h01=0x0050, text=» EXT ABORT«, t00=0x0003, t01=0x00b4}
0x0572…05a4 Head {h00=0x002e, h01=0x0050, text=» EXT EMPTYT ASSEMBLY SUBROUTINE EMPTYT - «, t00=0x0003, t01=0x00c6}
0x05a4…05ca Head {h00=0x0022, h01=0x0050, text=» TEST IF DATA ITEM IS EMPTY «, t00=0x0003, t01=0x00f8}
0x05ca…05d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x011e}
0x05d4…05f0 Head {h00=0x0018, h01=0x0050, text=» INCLUDE KEY461,LIST«, t00=0x0003, t01=0x0128}
0x05f0…0618 Head {h00=0x0024, h01=0x0050, text=»* FIRST INCLUDE KEY VALUES, «, t00=0x0003, t01=0x0144}
0x0618…064a Head {h00=0x002e, h01=0x0050, text=»* THEN INCLUDE SPECIAL SCREEN FORMATS «, t00=0x0003, t01=0x016c}
0x064a…0666 Head {h00=0x0018, h01=0x0050, text=» INCLUDE SL461,LIST «, t00=0x0004, t01=0x000e}
0x0666…066e Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x002a}
0x066e…0682 Head {h00=0x0010, h01=0x0050, text=»SPCLRA PROC «, t00=0x0004, t01=0x0032}
0x0682…068c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0046}
0x068c…06d4 Head {h00=0x0044, h01=0x0050, text=»* SPCLRA - CLEAR ALL VARABLE FIELDS BEFORE HANDLING THE PICTURE «, t00=0x0004, t01=0x0050}
0x06d4…06de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0098}
0x06de…06fa Head {h00=0x0018, h01=0x0050, text=» MOVE SPERASE,CBIN0 «, t00=0x0004, t01=0x00a2}
0x06fa…0714 Head {h00=0x0016, h01=0x0050, text=» PERF SCREEN,=W'1'«, t00=0x0004, t01=0x00be}
0x0714…0720 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0004, t01=0x00d8}
0x0720…072e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0004, t01=0x00e4}
0x072e…0742 Head {h00=0x0010, h01=0x0050, text=»SPCLRS PROC «, t00=0x0004, t01=0x00f2}
0x0742…074c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0106}
0x074c…0796 Head {h00=0x0046, h01=0x0050, text=»* SPCLRS - CLEAR SOME VARIABLE FIELDS BEFORE HANDLING THE PICTURE «, t00=0x0004, t01=0x0110}
0x0796…07a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x015a}
0x07a0…07bc Head {h00=0x0018, h01=0x0050, text=» MOVE SPERASE,CBIN0 «, t00=0x0004, t01=0x0164}
0x07bc…07d6 Head {h00=0x0016, h01=0x0050, text=» PERF SCREEN,=W'2'«, t00=0x0004, t01=0x0180}
0x07d6…07e2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0005, t01=0x000a}
0x07e2…07f0 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0005, t01=0x0016}
0x07f0…0804 Head {h00=0x0010, h01=0x0050, text=»SPCLRN PROC «, t00=0x0005, t01=0x0024}
0x0804…080e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0038}
0x080e…0856 Head {h00=0x0044, h01=0x0050, text=»* SPCLRN - CLEAR NO VARIABLE FIELDS BEFORE HANDLING THE PICTURE «, t00=0x0005, t01=0x0042}
0x0856…0860 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x008a}
0x0860…087c Head {h00=0x0018, h01=0x0050, text=» MOVE SPERASE,CBIN0 «, t00=0x0005, t01=0x0094}
0x087c…0896 Head {h00=0x0016, h01=0x0050, text=» PERF SCREEN,=W'3'«, t00=0x0005, t01=0x00b0}
0x0896…08a2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0005, t01=0x00ca}
0x08a2…08b0 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0005, t01=0x00d6}
0x08b0…08c2 Head {h00=0x000e, h01=0x0050, text=»SPERR PROC«, t00=0x0005, t01=0x00e4}
0x08c2…08cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00f6}
0x08cc…0900 Head {h00=0x0030, h01=0x0050, text=»* HANDLE ERRORS DETECTED OUTSIDE THE PACKAGE«, t00=0x0005, t01=0x0100}
0x0900…090a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0134}
0x090a…0924 Head {h00=0x0016, h01=0x0050, text=» PERF SCREEN,=W'0'«, t00=0x0005, t01=0x013e}
0x0924…0930 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0005, t01=0x0158}
0x0930…093e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0005, t01=0x0164}
0x093e…0950 Head {h00=0x000e, h01=0x0050, text=»SPCA PROC «, t00=0x0005, t01=0x0172}
0x0950…095a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0184}
0x095a…0964 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x018e}
0x0964…0980 Head {h00=0x0018, h01=0x0050, text=» MOVE SPERASE,CBIN4 «, t00=0x0006, t01=0x0008}
0x0980…099a Head {h00=0x0016, h01=0x0050, text=» PERF SCREEN,=W'1'«, t00=0x0006, t01=0x0024}
0x099a…09a6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0006, t01=0x003e}
0x09a6…09b4 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0006, t01=0x004a}
0x09b4…09c6 Head {h00=0x000e, h01=0x0050, text=»SPCN PROC «, t00=0x0006, t01=0x0058}
0x09c6…09d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x006a}
0x09d0…09da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0074}
0x09da…09f6 Head {h00=0x0018, h01=0x0050, text=» MOVE SPERASE,CBIN4 «, t00=0x0006, t01=0x007e}
0x09f6…0a10 Head {h00=0x0016, h01=0x0050, text=» PERF SCREEN,=W'3'«, t00=0x0006, t01=0x009a}
0x0a10…0a1c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0006, t01=0x00b4}
0x0a1c…0a2a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0006, t01=0x00c0}
0x0a2a…0a32 Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x00ce}
0x0a32…0a4a Head {h00=0x0014, h01=0x0050, text=»SCREEN PROC $OPT«, t00=0x0006, t01=0x00d6}
0x0a4a…0a54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00ee}
0x0a54…0a7c Head {h00=0x0024, h01=0x0050, text=»* SCREEN SCREEN HANDLING MODULE «, t00=0x0006, t01=0x00f8}
0x0a7c…0a86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0120}
0x0a86…0aa8 Head {h00=0x001e, h01=0x0050, text=»* CALL: PERF SCREEN,<$OPT>«, t00=0x0006, t01=0x012a}
0x0aa8…0ab2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x014c}
0x0ab2…0ad4 Head {h00=0x001e, h01=0x0050, text=» PLIT $OPT OPTIO SELECTOR «, t00=0x0006, t01=0x0156}
0x0ad4…0adc Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x0178}
0x0adc…0b06 Head {h00=0x0026, h01=0x0050, text=» CLEAR SPWARNFL CLEAR WARNING FLAG«, t00=0x0006, t01=0x0180}
0x0b06…0b32 Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW2,$OPT MOVE TO VARIABLE «, t00=0x0007, t01=0x001a}
0x0b32…0b58 Head {h00=0x0022, h01=0x0050, text=» TO ALLOW INSTR.S CMP AND IB«, t00=0x0007, t01=0x0046}
0x0b58…0b82 Head {h00=0x0026, h01=0x0050, text=» CMP SPBINW2,CBIN0 "SPERR" ENTRY ?«, t00=0x0007, t01=0x006c}
0x0b82…0b9c Head {h00=0x0016, h01=0x0050, text=» BE ERRPRINT YES !«, t00=0x0007, t01=0x0096}
0x0b9c…0ba4 Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x00b0}
0x0ba4…0bd6 Head {h00=0x002e, h01=0x0050, text=» TBT SPPROMPT,ENTIRE JUMP IF ENTIRE FORMAT«, t00=0x0007, t01=0x00b8}
0x0bd6…0bf4 Head {h00=0x001a, h01=0x0050, text=» SHOULD BE DISPLAYED«, t00=0x0007, t01=0x00ea}
0x0bf4…0bfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0108}
0x0bfe…0c20 Head {h00=0x001e, h01=0x0050, text=»* ONLY VARIABLE FIELDS «, t00=0x0007, t01=0x0112}
0x0c20…0c2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0134}
0x0c2a…0c66 Head {h00=0x0038, h01=0x0050, text=» IB SPBINW2,CLEARA,CLEARS,CONT JUMP ON ROUTINE INDEX«, t00=0x0007, t01=0x013e}
0x0c66…0c70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x017a}
0x0c70…0c7e Head {h00=0x000a, h01=0x0050, text=»CLEARA«, t00=0x0007, t01=0x0184}
0x0c7e…0cb4 (8, 0, 400) Head {h00=0x0032, h01=0x0050, text=» ERASE 10,CBIN1,CBIN0 ERASE ALL FROM 1 AND UP «, t00=0x0008, t01=0x0004}
0x0cb4…0cc2 Head {h00=0x000a, h01=0x0050, text=» THOME«, t00=0x0008, t01=0x003a}
0x0cc2…0cd2 Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x0008, t01=0x0048}
0x0cd2…0cdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0058}
0x0cdc…0cea Head {h00=0x000a, h01=0x0050, text=»CLEARS«, t00=0x0008, t01=0x0062}
0x0cea…0d20 Head {h00=0x0032, h01=0x0050, text=» ERASE 5,CBIN1,CBIN0 ERASE SOME FROM 1 AND UP «, t00=0x0008, t01=0x0070}
0x0d20…0d30 Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x0008, t01=0x00a6}
0x0d30…0d38 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x00b6}
0x0d38…0d42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00be}
0x0d42…0d64 Head {h00=0x001e, h01=0x0050, text=»* DISPLAY ENTIRE FORMAT«, t00=0x0008, t01=0x00c8}
0x0d64…0d6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00ea}
0x0d6e…0d7c Head {h00=0x000a, h01=0x0050, text=»ENTIRE«, t00=0x0008, t01=0x00f4}
0x0d7c…0db8 Head {h00=0x0038, h01=0x0050, text=» IB SPBINW2,ECLRA,ECLRS,ECLRN JUMP ON ROUTINE INDEX «, t00=0x0008, t01=0x0102}
0x0db8…0dc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x013e}
0x0dc2…0de2 Head {h00=0x001c, h01=0x0050, text=»* CLEAR ALL VARIABLES«, t00=0x0008, t01=0x0148}
0x0de2…0dec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0168}
0x0dec…0dfa Head {h00=0x000a, h01=0x0050, text=»ECLRA «, t00=0x0008, t01=0x0172}
0x0dfa…0e22 Head {h00=0x0024, h01=0x0050, text=» ERASE 11,CBIN1,CBIN0 CLEAR ALL «, t00=0x0008, t01=0x0180}
0x0e22…0e36 Head {h00=0x0010, h01=0x0050, text=» IN MEMORY«, t00=0x0009, t01=0x0018}
0x0e36…0e46 Head {h00=0x000c, h01=0x0050, text=» B ECLRN«, t00=0x0009, t01=0x002c}
0x0e46…0e50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x003c}
0x0e50…0e72 Head {h00=0x001e, h01=0x0050, text=»* CLEAR SOME VARIABLES «, t00=0x0009, t01=0x0046}
0x0e72…0e7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0068}
0x0e7c…0e8a Head {h00=0x000a, h01=0x0050, text=»ECLRS «, t00=0x0009, t01=0x0072}
0x0e8a…0ebe Head {h00=0x0030, h01=0x0050, text=» ERASE 6,CBIN1,CBIN0 CLEAR SOME FIELDS FROM «, t00=0x0009, t01=0x0080}
0x0ebe…0edc Head {h00=0x001a, h01=0x0050, text=» 1 AND UP IN MEMORY «, t00=0x0009, t01=0x00b4}
0x0edc…0ee6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00d2}
0x0ee6…0f10 Head {h00=0x0026, h01=0x0050, text=»* CLEAR NO VARIABLES IN MEMORY «, t00=0x0009, t01=0x00dc}
0x0f10…0f1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0106}
0x0f1a…0f28 Head {h00=0x000a, h01=0x0050, text=»ECLRN «, t00=0x0009, t01=0x0110}
0x0f28…0f58 Head {h00=0x002c, h01=0x0050, text=» IB SPERASE,ECLRN1,ECLRN2,ECLRN3,ECLRN4 «, t00=0x0009, t01=0x011e}
0x0f58…0f76 Head {h00=0x001a, h01=0x0050, text=» DISPLAY 0,CBIN1,CBIN0«, t00=0x0009, t01=0x014e}
0x0f76…0f86 Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x0009, t01=0x016c}
0x0f86…0f94 Head {h00=0x000a, h01=0x0050, text=»ECLRN1«, t00=0x0009, t01=0x017c}
0x0f94…0fb2 Head {h00=0x001a, h01=0x0050, text=» DISPLAY 1,CBIN1,CBIN0«, t00=0x0009, t01=0x018a}
0x0fb2…0fc2 Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x000a, t01=0x0018}
0x0fc2…0fd0 Head {h00=0x000a, h01=0x0050, text=»ECLRN2«, t00=0x000a, t01=0x0028}
0x0fd0…0fee Head {h00=0x001a, h01=0x0050, text=» DISPLAY 2,CBIN1,CBIN0«, t00=0x000a, t01=0x0036}
0x0fee…0ffe Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x000a, t01=0x0054}
0x0ffe…100c Head {h00=0x000a, h01=0x0050, text=»ECLRN3«, t00=0x000a, t01=0x0064}
0x100c…102a Head {h00=0x001a, h01=0x0050, text=» DISPLAY 3,CBIN1,CBIN0«, t00=0x000a, t01=0x0072}
0x102a…103a Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x000a, t01=0x0090}
0x103a…1048 Head {h00=0x000a, h01=0x0050, text=»ECLRN4«, t00=0x000a, t01=0x00a0}
0x1048…1066 Head {h00=0x001a, h01=0x0050, text=» DISPLAY 4,CBIN1,CBIN0«, t00=0x000a, t01=0x00ae}
0x1066…1076 Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x000a, t01=0x00cc}
0x1076…1080 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x000a, t01=0x00dc}
0x1080…108c Head {h00=0x0008, h01=0x0050, text=»CONT«, t00=0x000a, t01=0x00e6}
0x108c…10b6 Head {h00=0x0026, h01=0x0050, text=» GETABX SPBINW4 GET CURRENT INDEX «, t00=0x000a, t01=0x00f2}
0x10b6…10e2 Head {h00=0x0028, h01=0x0050, text=» BL KTHOME JUMP IF NO CURRENT FIELD «, t00=0x000a, t01=0x011c}
0x10e2…10f0 Head {h00=0x000a, h01=0x0050, text=»CONT5 «, t00=0x000a, t01=0x0148}
0x10f0…112a Head {h00=0x0036, h01=0x0050, text=» GETFLD 0,SPBINW4,SPBINW3 SEARCH CURRENT POSITION «, t00=0x000a, t01=0x0156}
0x112a…114c Head {h00=0x001e, h01=0x0050, text=» BZ SETCREAD JUMP IF FOUND«, t00=0x000a, t01=0x0190}
0x114c…1172 Head {h00=0x0022, h01=0x0050, text=» BL KTHOME POSITION NOT FOUND «, t00=0x000b, t01=0x0022}
0x1172…117c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0048}
0x117c…11a0 Head {h00=0x0020, h01=0x0050, text=»* COMPULSORY FIELD FOUND «, t00=0x000b, t01=0x0052}
0x11a0…11aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0076}
0x11aa…11d4 Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW4,SPBINW3 CHANGE INDEX«, t00=0x000b, t01=0x0080}
0x11d4…11f2 Head {h00=0x001a, h01=0x0050, text=» B CONT5 SEARCH AGAIN «, t00=0x000b, t01=0x00aa}
0x11f2…11fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00c8}
0x11fc…1204 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x00d2}
0x1204…120e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00da}
0x120e…1238 Head {h00=0x0026, h01=0x0050, text=»* SET CURSOR AND READ KEYBOARD «, t00=0x000b, t01=0x00e4}
0x1238…1242 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x010e}
0x1242…1252 Head {h00=0x000c, h01=0x0050, text=»SETCREAD«, t00=0x000b, t01=0x0118}
0x1252…127e Head {h00=0x0028, h01=0x0050, text=» SETCUR SET CURSOR ON CURRENT FIELD«, t00=0x000b, t01=0x0128}
0x127e…1286 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0154}
0x1286…1290 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x015c}
0x1290…12be Head {h00=0x002a, h01=0x0050, text=»* READ TO CURRENT FIELD ON DISPLAY «, t00=0x000b, t01=0x0166}
0x12be…12c8 (12, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0004}
0x12c8…12d6 Head {h00=0x000a, h01=0x0050, text=»READIN«, t00=0x000c, t01=0x000e}
0x12d6…12f8 Head {h00=0x001e, h01=0x0050, text=»* SET FLAG IF AUTODUP «, t00=0x000c, t01=0x001c}
0x12f8…1316 Head {h00=0x001a, h01=0x0050, text=»* USES VERIF-FIELD«, t00=0x000c, t01=0x003e}
0x1316…1332 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW2,CBIN3 «, t00=0x000c, t01=0x005c}
0x1332…134e Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW1,CBIN1 «, t00=0x000c, t01=0x0078}
0x134e…1360 Head {h00=0x000e, h01=0x0050, text=» TSTCTL 6 «, t00=0x000c, t01=0x0094}
0x1360…1372 Head {h00=0x000e, h01=0x0050, text=» BOK DYKIN«, t00=0x000c, t01=0x00a6}
0x1372…138c Head {h00=0x0016, h01=0x0050, text=» GETCTL 0,SPBINW3 «, t00=0x000c, t01=0x00b8}
0x138c…13b2 Head {h00=0x0022, h01=0x0050, text=» MOVE SPBINW1,CFLTDEX(SPBINW3)«, t00=0x000c, t01=0x00d2}
0x13b2…13d6 Head {h00=0x0020, h01=0x0050, text=» CMP GSSWITCH(SPBINW1),CBIN0«, t00=0x000c, t01=0x00f8}
0x13d6…13e8 Head {h00=0x000e, h01=0x0050, text=» BE DYKIN «, t00=0x000c, t01=0x011c}
0x13e8…1404 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW1,CBIN1 «, t00=0x000c, t01=0x012e}
0x1404…1416 Head {h00=0x000e, h01=0x0050, text=» BL DYK20 «, t00=0x000c, t01=0x014a}
0x1416…1432 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW2,CBIN15«, t00=0x000c, t01=0x015c}
0x1432…1442 Head {h00=0x000c, h01=0x0050, text=» B DYK20«, t00=0x000c, t01=0x0178}
0x1442…144c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0188}
0x144c…145a (13, 0, 398) Head {h00=0x000a, h01=0x0050, text=»DYKIN «, t00=0x000d, t01=0x0004}
0x145a…1484 Head {h00=0x0026, h01=0x0050, text=» IB SPKEY,DYK05,DYK10,DYK15,DYK16 «, t00=0x000d, t01=0x0012}
0x1484…1492 Head {h00=0x000a, h01=0x0050, text=»DYK05 «, t00=0x000d, t01=0x003c}
0x1492…14c4 Head {h00=0x002e, h01=0x0050, text=» DYKI SPINPUT,SPKTAB1,SPKTAB2,SPBINW1, C «, t00=0x000d, t01=0x004a}
0x14c4…14de Head {h00=0x0016, h01=0x0050, text=» SPBINW2,SPBINW4 «, t00=0x000d, t01=0x007c}
0x14de…14f0 Head {h00=0x000e, h01=0x0050, text=» B DYKOUT «, t00=0x000d, t01=0x0096}
0x14f0…14fe Head {h00=0x000a, h01=0x0050, text=»DYK10 «, t00=0x000d, t01=0x00a8}
0x14fe…1532 Head {h00=0x0030, h01=0x0050, text=» DYKI SPINPUT,SPKTAB12,SPKTAB22,SPBINW1, C «, t00=0x000d, t01=0x00b6}
0x1532…154c Head {h00=0x0016, h01=0x0050, text=» SPBINW2,SPBINW4 «, t00=0x000d, t01=0x00ea}
0x154c…155e Head {h00=0x000e, h01=0x0050, text=» B DYKOUT «, t00=0x000d, t01=0x0104}
0x155e…156c Head {h00=0x000a, h01=0x0050, text=»DYK15 «, t00=0x000d, t01=0x0116}
0x156c…15a0 Head {h00=0x0030, h01=0x0050, text=» DYKI SPINPUT,SPKTAB13,SPKTAB23,SPBINW1, C «, t00=0x000d, t01=0x0124}
0x15a0…15ba Head {h00=0x0016, h01=0x0050, text=» SPBINW2,SPBINW4 «, t00=0x000d, t01=0x0158}
0x15ba…15cc Head {h00=0x000e, h01=0x0050, text=» B DYKOUT «, t00=0x000d, t01=0x0172}
0x15cc…15da Head {h00=0x000a, h01=0x0050, text=»DYK16 «, t00=0x000d, t01=0x0184}
0x15da…160e (14, 0, 400) Head {h00=0x0030, h01=0x0050, text=» DYKI SPINPUT,SPKTAB14,SPKTAB24,SPBINW1, C «, t00=0x000e, t01=0x0004}
0x160e…1628 Head {h00=0x0016, h01=0x0050, text=» SPBINW2,SPBINW4 «, t00=0x000e, t01=0x0038}
0x1628…1636 Head {h00=0x000a, h01=0x0050, text=»DYKOUT«, t00=0x000e, t01=0x0052}
0x1636…164e Head {h00=0x0014, h01=0x0050, text=» BL ERRPRT ERROR«, t00=0x000e, t01=0x0060}
0x164e…1664 Head {h00=0x0012, h01=0x0050, text=» CLEAR SPDUPL «, t00=0x000e, t01=0x0078}
0x1664…168c Head {h00=0x0024, h01=0x0050, text=» CBG SPBINW2,CBIN0,DYK20 NORMAL «, t00=0x000e, t01=0x008e}
0x168c…16a8 Head {h00=0x0018, h01=0x0050, text=» BE RETUR POWER OFF «, t00=0x000e, t01=0x00b6}
0x16a8…16d4 Head {h00=0x0028, h01=0x0050, text=» ADD SPBINW2,CBIN9 KEYSWITCH TURNED «, t00=0x000e, t01=0x00d2}
0x16d4…1710 Head {h00=0x0038, h01=0x0050, text=» IB SPBINW2,SET1,SET2,SET3,SET4,CLR1,CLR2,CLR3,CLR4 «, t00=0x000e, t01=0x00fe}
0x1710…171c Head {h00=0x0008, h01=0x0050, text=»SET1«, t00=0x000e, t01=0x013a}
0x171c…1730 Head {h00=0x0010, h01=0x0050, text=» SET TTKEY1 «, t00=0x000e, t01=0x0146}
0x1730…1740 Head {h00=0x000c, h01=0x0050, text=» B DYKIN«, t00=0x000e, t01=0x015a}
0x1740…174c Head {h00=0x0008, h01=0x0050, text=»SET2«, t00=0x000e, t01=0x016a}
0x174c…1760 Head {h00=0x0010, h01=0x0050, text=» SET TTKEY2 «, t00=0x000e, t01=0x0176}
0x1760…1770 Head {h00=0x000c, h01=0x0050, text=» B DYKIN«, t00=0x000e, t01=0x018a}
0x1770…177c Head {h00=0x0008, h01=0x0050, text=»SET3«, t00=0x000f, t01=0x000a}
0x177c…1790 Head {h00=0x0010, h01=0x0050, text=» SET TTKEY3 «, t00=0x000f, t01=0x0016}
0x1790…17a0 Head {h00=0x000c, h01=0x0050, text=» B DYKIN«, t00=0x000f, t01=0x002a}
0x17a0…17ac Head {h00=0x0008, h01=0x0050, text=»SET4«, t00=0x000f, t01=0x003a}
0x17ac…17c0 Head {h00=0x0010, h01=0x0050, text=» SET TTKEY4 «, t00=0x000f, t01=0x0046}
0x17c0…17d0 Head {h00=0x000c, h01=0x0050, text=» B DYKIN«, t00=0x000f, t01=0x005a}
0x17d0…17dc Head {h00=0x0008, h01=0x0050, text=»CLR1«, t00=0x000f, t01=0x006a}
0x17dc…17f2 Head {h00=0x0012, h01=0x0050, text=» CLEAR TTKEY1 «, t00=0x000f, t01=0x0076}
0x17f2…1802 Head {h00=0x000c, h01=0x0050, text=» B DYKIN«, t00=0x000f, t01=0x008c}
0x1802…180e Head {h00=0x0008, h01=0x0050, text=»CLR2«, t00=0x000f, t01=0x009c}
0x180e…1824 Head {h00=0x0012, h01=0x0050, text=» CLEAR TTKEY2 «, t00=0x000f, t01=0x00a8}
0x1824…1834 Head {h00=0x000c, h01=0x0050, text=» B DYKIN«, t00=0x000f, t01=0x00be}
0x1834…1840 Head {h00=0x0008, h01=0x0050, text=»CLR3«, t00=0x000f, t01=0x00ce}
0x1840…1856 Head {h00=0x0012, h01=0x0050, text=» CLEAR TTKEY3 «, t00=0x000f, t01=0x00da}
0x1856…1866 Head {h00=0x000c, h01=0x0050, text=» B DYKIN«, t00=0x000f, t01=0x00f0}
0x1866…1872 Head {h00=0x0008, h01=0x0050, text=»CLR4«, t00=0x000f, t01=0x0100}
0x1872…1888 Head {h00=0x0012, h01=0x0050, text=» CLEAR TTKEY4 «, t00=0x000f, t01=0x010c}
0x1888…1898 Head {h00=0x000c, h01=0x0050, text=» B DYKIN«, t00=0x000f, t01=0x0122}
0x1898…18a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0132}
0x18a2…18b0 Head {h00=0x000a, h01=0x0050, text=»DYK20 «, t00=0x000f, t01=0x013c}
0x18b0…18ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x014a}
0x18ba…18ce Head {h00=0x0010, h01=0x0050, text=» PERF DKTEST«, t00=0x000f, t01=0x0154}
0x18ce…18e4 Head {h00=0x0012, h01=0x0050, text=» BNOK SETCREAD«, t00=0x000f, t01=0x0168}
0x18e4…18ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x017e}
0x18ee…190a Head {h00=0x0018, h01=0x0050, text=» TBF TTKEYFLG,DYK80 «, t00=0x000f, t01=0x0188}
0x190a…1914 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0014}
0x1914…192c Head {h00=0x0014, h01=0x0050, text=» KEY SWITCHES «, t00=0x0010, t01=0x001e}
0x192c…1954 Head {h00=0x0024, h01=0x0050, text=» TBF TTKEY1,DYKRET KEYBOARD OFF «, t00=0x0010, t01=0x0036}
0x1954…197e Head {h00=0x0026, h01=0x0050, text=» IB SPKEY,DYK30,DYK40,DYK50,DYK40 «, t00=0x0010, t01=0x005e}
0x197e…198c Head {h00=0x000a, h01=0x0050, text=»DYK30 «, t00=0x0010, t01=0x0088}
0x198c…19c0 Head {h00=0x0030, h01=0x0050, text=» TBF TTKEY2,DYK80 EQUAL TO KEYPOS 1 ON 6234 «, t00=0x0010, t01=0x0096}
0x19c0…19d2 Head {h00=0x000e, h01=0x0050, text=» B DYKRET «, t00=0x0010, t01=0x00ca}
0x19d2…19e0 Head {h00=0x000a, h01=0x0050, text=»DYK40 «, t00=0x0010, t01=0x00dc}
0x19e0…1a14 Head {h00=0x0030, h01=0x0050, text=» TBT TTKEY2,DYK80 EQUAL TO KEYPOS 2 ON 6234 «, t00=0x0010, t01=0x00ea}
0x1a14…1a22 Head {h00=0x000a, h01=0x0050, text=»DYKRET«, t00=0x0010, t01=0x011e}
0x1a22…1a34 Head {h00=0x000e, h01=0x0050, text=» PERF BELL«, t00=0x0010, t01=0x012c}
0x1a34…1a48 Head {h00=0x0010, h01=0x0050, text=» B SETCREAD «, t00=0x0010, t01=0x013e}
0x1a48…1a56 Head {h00=0x000a, h01=0x0050, text=»DYK50 «, t00=0x0010, t01=0x0152}
0x1a56…1a64 Head {h00=0x000a, h01=0x0050, text=»DYK80 «, t00=0x0010, t01=0x0160}
0x1a64…1a90 Head {h00=0x0028, h01=0x0050, text=» IB SPBINW2,UPD300,CLEA20 JUMP ON C «, t00=0x0010, t01=0x016e}
0x1a90…1aae Head {h00=0x001a, h01=0x0050, text=» UPDATE,CANC,CANC, C«, t00=0x0011, t01=0x000a}
0x1aae…1ae0 Head {h00=0x002e, h01=0x0050, text=» UPDATE,UPDATE,UPDATE,UPDATE CONVERTED C «, t00=0x0011, t01=0x0028}
0x1ae0…1b18 Head {h00=0x0034, h01=0x0050, text=» UPDATE,UPDATE,UPDATE,UPDATE END-OF-ITEM-KEY C «, t00=0x0011, t01=0x005a}
0x1b18…1b34 Head {h00=0x0018, h01=0x0050, text=» UPDATE,KDUPL,KEDIT«, t00=0x0011, t01=0x0092}
0x1b34…1b3e Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0011, t01=0x00ae}
0x1b3e…1b48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00b8}
0x1b48…1b80 Head {h00=0x0034, h01=0x0050, text=»* HANDLE THE RESPECTIVE KEY AS EOI-KEY FIRST «, t00=0x0011, t01=0x00c2}
0x1b80…1b8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00fa}
0x1b8a…1b98 Head {h00=0x000a, h01=0x0050, text=»UPDATE«, t00=0x0011, t01=0x0104}
0x1b98…1bcc Head {h00=0x0030, h01=0x0050, text=» CBE SPBINW1,CBIN0,UPD350 JUMP IF LENGTH = 0«, t00=0x0011, t01=0x0112}
0x1bcc…1bf6 Head {h00=0x0026, h01=0x0050, text=» GETCTL 3,SPBINW4 GET SCHK-NUMBER «, t00=0x0011, t01=0x0146}
0x1bf6…1c32 Head {h00=0x0038, h01=0x0050, text=» CBE SPBINW4,CBIN0,UPD050 JUMP IF NOT STANDARD CHECK«, t00=0x0011, t01=0x0170}
0x1c32…1c60 Head {h00=0x002a, h01=0x0050, text=» PERFI SPBINW4,SPCHK1,SPCHK2,SPCHK3 C«, t00=0x0012, t01=0x001c}
0x1c60…1c86 Head {h00=0x0022, h01=0x0050, text=» SPCHK4,SPCHK5,SPCHK6,SPCHK7 «, t00=0x0012, t01=0x004a}
0x1c86…1cb0 Head {h00=0x0026, h01=0x0050, text=» IB SPBINW3,UPD050,UPD070,ERRPRINT«, t00=0x0012, t01=0x0070}
0x1cb0…1cba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x009a}
0x1cba…1cde Head {h00=0x0020, h01=0x0050, text=»* CONDITIONAL DISPLAYING «, t00=0x0012, t01=0x00a4}
0x1cde…1ce8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00c8}
0x1ce8…1cf6 Head {h00=0x000a, h01=0x0050, text=»UPD050«, t00=0x0012, t01=0x00d2}
0x1cf6…1d10 Head {h00=0x0016, h01=0x0050, text=» TBT SPDUPL,UPD100«, t00=0x0012, t01=0x00e0}
0x1d10…1d40 Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW4,CBIN1 INDICATE COND. DISPL«, t00=0x0012, t01=0x00fa}
0x1d40…1d52 Head {h00=0x000e, h01=0x0050, text=» B UPD200 «, t00=0x0012, t01=0x012a}
0x1d52…1d60 Head {h00=0x000a, h01=0x0050, text=»UPD070«, t00=0x0012, t01=0x013c}
0x1d60…1d88 Head {h00=0x0024, h01=0x0050, text=» GETCTL 0,SPBINW3 GET APPL-VALUE«, t00=0x0012, t01=0x014a}
0x1d88…1dbe Head {h00=0x0032, h01=0x0050, text=» CBNE SPBINW3,CBIN0,UPD210 JUMP IF APPL VALUE «, t00=0x0012, t01=0x0172}
0x1dbe…1dd2 Head {h00=0x0010, h01=0x0050, text=» B SETCREAD «, t00=0x0013, t01=0x0018}
0x1dd2…1ddc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x002c}
0x1ddc…1e02 Head {h00=0x0022, h01=0x0050, text=»* UNCONDITIONAL DISPLAYING «, t00=0x0013, t01=0x0036}
0x1e02…1e0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x005c}
0x1e0c…1e1a Head {h00=0x000a, h01=0x0050, text=»UPD100«, t00=0x0013, t01=0x0066}
0x1e1a…1e54 Head {h00=0x0036, h01=0x0050, text=» MOVE SPBINW4,CBIN2 INDICATE UNCONDITIONAL DISPLAY«, t00=0x0013, t01=0x0074}
0x1e54…1e62 Head {h00=0x000a, h01=0x0050, text=»UPD200«, t00=0x0013, t01=0x00ae}
0x1e62…1e8a Head {h00=0x0024, h01=0x0050, text=» GETCTL 0,SPBINW3 GET APPL-VALUE«, t00=0x0013, t01=0x00bc}
0x1e8a…1ec2 Head {h00=0x0034, h01=0x0050, text=» CBE SPBINW3,CBIN0,UPD400 JUMP IF NO APPL VALUE «, t00=0x0013, t01=0x00e4}
0x1ec2…1ecc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x011c}
0x1ecc…1ef8 Head {h00=0x0028, h01=0x0050, text=»* APPL-VALUE DIFFERENT FROM ZERO «, t00=0x0013, t01=0x0126}
0x1ef8…1f02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0152}
0x1f02…1f10 Head {h00=0x000a, h01=0x0050, text=»UPD210«, t00=0x0013, t01=0x015c}
0x1f10…1f24 Head {h00=0x0010, h01=0x0050, text=» PERF SPAPPL«, t00=0x0013, t01=0x016a}
0x1f24…1f32 Head {h00=0x000a, h01=0x0050, text=»UPD212«, t00=0x0013, t01=0x017e}
0x1f32…1f5e Head {h00=0x0028, h01=0x0050, text=» IB SPBINW3,UPD400,SETCREAD,ERRPRINT«, t00=0x0013, t01=0x018c}
0x1f5e…1f70 Head {h00=0x000e, h01=0x0050, text=» B UPD400 «, t00=0x0014, t01=0x0028}
0x1f70…1f7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x003a}
0x1f7a…1f9c Head {h00=0x001e, h01=0x0050, text=»* OK AFTER APPL CONTROL«, t00=0x0014, t01=0x0044}
0x1f9c…1fc2 Head {h00=0x0022, h01=0x0050, text=»* UNCONDITIONAL DISPLAYING «, t00=0x0014, t01=0x0066}
0x1fc2…1fcc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x008c}
0x1fcc…1fda Head {h00=0x000a, h01=0x0050, text=»UPD260«, t00=0x0014, t01=0x0096}
0x1fda…2010 Head {h00=0x0032, h01=0x0050, text=» UPDFLD 1,SPINPUT UPDATE FIELD WITH DISPLAYING«, t00=0x0014, t01=0x00a4}
0x2010…201e Head {h00=0x000a, h01=0x0050, text=»UPD300«, t00=0x0014, t01=0x00da}
0x201e…2058 Head {h00=0x0036, h01=0x0050, text=» CBE SPBINW1,CBIN0,UPD350 SKIP NEXT IF LENGTH = 0 «, t00=0x0014, t01=0x00e8}
0x2058…2084 Head {h00=0x0028, h01=0x0050, text=» SET SPCHANGE INDICATE CHANGED ITEM «, t00=0x0014, t01=0x0122}
0x2084…2092 Head {h00=0x000a, h01=0x0050, text=»UPD350«, t00=0x0014, t01=0x014e}
0x2092…20b4 Head {h00=0x001e, h01=0x0050, text=»* TAKE CARE OF WARNING«, t00=0x0014, t01=0x015c}
0x20b4…20d0 Head {h00=0x0018, h01=0x0050, text=» TBF SPWARNFL,UPD360«, t00=0x0014, t01=0x017e}
0x20d0…20fe Head {h00=0x002a, h01=0x0050, text=» MOVE SPBINW1,SPBINW2 STORE KEY VALUE «, t00=0x0015, t01=0x000a}
0x20fe…2126 Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,=W'26' SET MESSAGE«, t00=0x0015, t01=0x0038}
0x2126…213a Head {h00=0x0010, h01=0x0050, text=» PERF SPERR «, t00=0x0015, t01=0x0060}
0x213a…2166 Head {h00=0x0028, h01=0x0050, text=» CBNE SPBINW2,CBIN2,UPD360 KOR-KEY ?«, t00=0x0015, t01=0x0074}
0x2166…2196 Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW2,SPBINW1 RESET OLD KEYVALUE«, t00=0x0015, t01=0x00a0}
0x2196…21a4 Head {h00=0x000a, h01=0x0050, text=»UPD360«, t00=0x0015, t01=0x00d0}
0x21a4…21cc Head {h00=0x0024, h01=0x0050, text=»* JUMP ON FUNCTION KEY INDEX «, t00=0x0015, t01=0x00de}
0x21cc…21f0 Head {h00=0x0020, h01=0x0050, text=» IB SPBINW2,READIN,DUMMY, C«, t00=0x0015, t01=0x0106}
0x21f0…2214 Head {h00=0x0020, h01=0x0050, text=» KEOI,DUMMY,DUMMY,KTFWD, C«, t00=0x0015, t01=0x012a}
0x2214…2246 Head {h00=0x002e, h01=0x0050, text=» KTBWD,KTHOME,KTLDOWN,KTLEFT,KTRIGHT, C «, t00=0x0015, t01=0x014e}
0x2246…2274 Head {h00=0x002a, h01=0x0050, text=» KTDOWN,KTUP,KCOPY,DUMMY,DUMMY,KENTER«, t00=0x0015, t01=0x0180}
0x2274…22a4 Head {h00=0x002c, h01=0x0050, text=» SUB SPBINW2,CBIN14 ADJUST EOI/KEY INDEX«, t00=0x0016, t01=0x001e}
0x22a4…22b2 Head {h00=0x000a, h01=0x0050, text=»DUMMY «, t00=0x0016, t01=0x004e}
0x22b2…22c0 Head {h00=0x000a, h01=0x0050, text=»RETUR «, t00=0x0016, t01=0x005c}
0x22c0…22cc Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0016, t01=0x006a}
0x22cc…22d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0076}
0x22d6…22e4 Head {h00=0x000a, h01=0x0050, text=»UPD400«, t00=0x0016, t01=0x0080}
0x22e4…2322 Head {h00=0x003a, h01=0x0050, text=» CBE SPBINW4,CBIN2,UPD260 JUMP IF UNCONDITIONAL DISPL «, t00=0x0016, t01=0x008e}
0x2322…2356 Head {h00=0x0030, h01=0x0050, text=» UPDFLD 0,SPINPUT UPDATE FIELD DISPL. COND. «, t00=0x0016, t01=0x00cc}
0x2356…2368 Head {h00=0x000e, h01=0x0050, text=» B UPD300 «, t00=0x0016, t01=0x0100}
0x2368…2372 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0112}
0x2372…237a Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x011c}
0x237a…23a0 Head {h00=0x0022, h01=0x0050, text=»KEOI COMMON END-OF-ITEM KEY «, t00=0x0016, t01=0x0124}
0x23a0…23c4 Head {h00=0x0020, h01=0x0050, text=»KTFWD TAB. FORWARD 1 STEP «, t00=0x0016, t01=0x014a}
0x23c4…23d2 Head {h00=0x000a, h01=0x0050, text=» TFWD «, t00=0x0016, t01=0x016e}
0x23d2…23e4 Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x0016, t01=0x017c}
0x23e4…23ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x018e}
0x23ee…2416 Head {h00=0x0024, h01=0x0050, text=»KTBWD TABULATION 1 STEP BACKW.«, t00=0x0017, t01=0x0008}
0x2416…2424 Head {h00=0x000a, h01=0x0050, text=» TBWD «, t00=0x0017, t01=0x0030}
0x2424…2436 Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x0017, t01=0x003e}
0x2436…2440 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0050}
0x2440…2466 Head {h00=0x0022, h01=0x0050, text=»KTHOME TAB. TO HOME POSITION«, t00=0x0017, t01=0x005a}
0x2466…2474 Head {h00=0x000a, h01=0x0050, text=» THOME«, t00=0x0017, t01=0x0080}
0x2474…2486 Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x0017, t01=0x008e}
0x2486…2490 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00a0}
0x2490…24bc Head {h00=0x0028, h01=0x0050, text=»KTLDOWN TAB. TO FIRST ON NEXT LINE«, t00=0x0017, t01=0x00aa}
0x24bc…24cc Head {h00=0x000c, h01=0x0050, text=» TLDOWN «, t00=0x0017, t01=0x00d6}
0x24cc…24de Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x0017, t01=0x00e6}
0x24de…24e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00f8}
0x24e8…250a Head {h00=0x001e, h01=0x0050, text=»KTLEFT TAB. TO LEFTMOST «, t00=0x0017, t01=0x0102}
0x250a…2518 Head {h00=0x000a, h01=0x0050, text=» TLEFT«, t00=0x0017, t01=0x0124}
0x2518…252a Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x0017, t01=0x0132}
0x252a…2534 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0144}
0x2534…2558 Head {h00=0x0020, h01=0x0050, text=»KTRIGHT TAB. TO RIGHTMOST «, t00=0x0017, t01=0x014e}
0x2558…2568 Head {h00=0x000c, h01=0x0050, text=» TRIGHT «, t00=0x0017, t01=0x0172}
0x2568…257a Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x0017, t01=0x0182}
0x257a…2584 (24, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0004}
0x2584…25a0 Head {h00=0x0018, h01=0x0050, text=»KTDOWN TAB 1 DOWN «, t00=0x0018, t01=0x000e}
0x25a0…25ae Head {h00=0x000a, h01=0x0050, text=» TDOWN«, t00=0x0018, t01=0x002a}
0x25ae…25c0 Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x0018, t01=0x0038}
0x25c0…25ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x004a}
0x25ca…25e2 Head {h00=0x0014, h01=0x0050, text=»KTUP TAB 1 UP «, t00=0x0018, t01=0x0054}
0x25e2…25ee Head {h00=0x0008, h01=0x0050, text=» TUP«, t00=0x0018, t01=0x006c}
0x25ee…25f6 Head {h00=0x0004, h01=0x0050, t00=0x0018, t01=0x0078}
0x25f6…2616 Head {h00=0x001c, h01=0x0050, text=»TSTTAB TEST TAB OUTPUT«, t00=0x0018, t01=0x0080}
0x2616…262c Head {h00=0x0012, h01=0x0050, text=» BE READIN OK «, t00=0x0018, t01=0x00a0}
0x262c…2648 Head {h00=0x0018, h01=0x0050, text=» BL READIN NOT FOUND«, t00=0x0018, t01=0x00b6}
0x2648…2676 Head {h00=0x002a, h01=0x0050, text=» BOFL SETCREAD EMPTY COMPULSORY FIELD «, t00=0x0018, t01=0x00d2}
0x2676…2680 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0100}
0x2680…268a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x010a}
0x268a…26ae Head {h00=0x0020, h01=0x0050, text=»* CONDITIONAL TABULATION «, t00=0x0018, t01=0x0114}
0x26ae…26b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0138}
0x26b8…26cc Head {h00=0x0010, h01=0x0050, text=» PERF SPTCHK«, t00=0x0018, t01=0x0142}
0x26cc…26e6 Head {h00=0x0016, h01=0x0050, text=» CMP SPBINW3,CBIN0«, t00=0x0018, t01=0x0156}
0x26e6…26fa Head {h00=0x0010, h01=0x0050, text=» BE SETCREAD«, t00=0x0018, t01=0x0170}
0x26fa…271e Head {h00=0x0020, h01=0x0050, text=» IB SPBINW2,DUMMY,DUMMY, C «, t00=0x0018, t01=0x0184}
0x271e…2744 Head {h00=0x0022, h01=0x0050, text=» KTFWD,DUMMY,DUMMY,KTFWD, C «, t00=0x0019, t01=0x0018}
0x2744…276a Head {h00=0x0022, h01=0x0050, text=» KTBWD,KTFWD,KTFWD,KTFWD, C «, t00=0x0019, t01=0x003e}
0x276a…2786 Head {h00=0x0018, h01=0x0050, text=» KTBWD,KTFWD,KTBWD «, t00=0x0019, t01=0x0064}
0x2786…27c6 Head {h00=0x003c, h01=0x0050, text=»* BRANCH LIST EXHAUSTED - SPBINW2 CLOBBERED BY SPTCHK«, t00=0x0019, t01=0x0080}
0x27c6…27ce Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x00c0}
0x27ce…27e2 Head {h00=0x0010, h01=0x0050, text=» B SETCREAD «, t00=0x0019, t01=0x00c8}
0x27e2…27ec Head {h00=0x0006, h01=0x0050, text=» «, t00=0x0019, t01=0x00dc}
0x27ec…2806 Head {h00=0x0016, h01=0x0050, text=»KCOPY HARD COPY «, t00=0x0019, t01=0x00e6}
0x2806…2822 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN1 «, t00=0x0019, t01=0x0100}
0x2822…2840 Head {h00=0x001a, h01=0x0050, text=» TBT GTGTPFLG,KCOPY05 «, t00=0x0019, t01=0x011c}
0x2840…285c Head {h00=0x0018, h01=0x0050, text=» TBT GTLPFLG,KCOPY08«, t00=0x0019, t01=0x013a}
0x285c…2870 Head {h00=0x0010, h01=0x0050, text=» B SETCREAD «, t00=0x0019, t01=0x0156}
0x2870…2880 Head {h00=0x000c, h01=0x0050, text=»KCOPY05 «, t00=0x0019, t01=0x016a}
0x2880…289c Head {h00=0x0018, h01=0x0050, text=» EDWRT DSHCGP,ERAFMT«, t00=0x0019, t01=0x017a}
0x289c…28c2 Head {h00=0x0022, h01=0x0050, text=» PRINT DSHCGP,SPBINW3,='0' GTP«, t00=0x001a, t01=0x0008}
0x28c2…28d6 Head {h00=0x0010, h01=0x0050, text=» B SETCREAD «, t00=0x001a, t01=0x002e}
0x28d6…28e6 Head {h00=0x000c, h01=0x0050, text=»KCOPY08 «, t00=0x001a, t01=0x0042}
0x28e6…2902 Head {h00=0x0018, h01=0x0050, text=» EDWRT DSHCLP,ERAFMT«, t00=0x001a, t01=0x0052}
0x2902…2928 Head {h00=0x0022, h01=0x0050, text=» PRINT DSHCLP,SPBINW3,='0' LP «, t00=0x001a, t01=0x006e}
0x2928…2950 Head {h00=0x0024, h01=0x0050, text=» B SETCREAD SET CURSOR AND READ «, t00=0x001a, t01=0x0094}
0x2950…295a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00bc}
0x295a…2976 Head {h00=0x0018, h01=0x0050, text=»KDUPL DUPLICATION «, t00=0x001a, t01=0x00c6}
0x2976…29aa Head {h00=0x0030, h01=0x0050, text=» MOVE SPBINW2,CBIN3 INDICATE COMMON EOI-KEY «, t00=0x001a, t01=0x00e2}
0x29aa…29cc Head {h00=0x001e, h01=0x0050, text=» DUPL SPINPUT DUPLICATION «, t00=0x001a, t01=0x0116}
0x29cc…29e0 Head {h00=0x0010, h01=0x0050, text=» BNZ KDUPL2 «, t00=0x001a, t01=0x0138}
0x29e0…2a1a Head {h00=0x0036, h01=0x0050, text=» COPY GSWSTR1,CBIN0,CBIN1,SPINPUT,CBIN1 GET BYTE 1«, t00=0x001a, t01=0x014c}
0x2a1a…2a3c Head {h00=0x001e, h01=0x0050, text=» CBE GSWSTR1,=X'00',KDUPL2«, t00=0x001a, t01=0x0186}
0x2a3c…2a70 Head {h00=0x0030, h01=0x0050, text=» MOVE SPBINW1,CBIN10 SET LENGTH IN DUPFIELD «, t00=0x001b, t01=0x0018}
0x2a70…2a84 Head {h00=0x0010, h01=0x0050, text=» SET SPDUPL «, t00=0x001b, t01=0x004c}
0x2a84…2aa2 Head {h00=0x001a, h01=0x0050, text=» B UPDATE DUPL ALLOWED«, t00=0x001b, t01=0x0060}
0x2aa2…2ab0 Head {h00=0x000a, h01=0x0050, text=»KDUPL2«, t00=0x001b, t01=0x007e}
0x2ab0…2ae4 Head {h00=0x0030, h01=0x0050, text=» MOVE SPBINW4,CBIN4 INDICATE ILLEGAL EOI-KEY«, t00=0x001b, t01=0x008c}
0x2ae4…2b08 Head {h00=0x0020, h01=0x0050, text=» B ERRPRINT DUPL NOT ALLOWED«, t00=0x001b, t01=0x00c0}
0x2b08…2b10 Head {h00=0x0004, h01=0x0050, t00=0x001b, t01=0x00e4}
0x2b10…2b1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00ec}
0x2b1a…2b32 Head {h00=0x0014, h01=0x0050, text=»* EDIT FIELD «, t00=0x001b, t01=0x00f6}
0x2b32…2b3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x010e}
0x2b3c…2b4a Head {h00=0x000a, h01=0x0050, text=»KEDIT «, t00=0x001b, t01=0x0118}
0x2b4a…2b6c Head {h00=0x001e, h01=0x0050, text=» GETCTL 1,SPBINW3 GET MAXL«, t00=0x001b, t01=0x0126}
0x2b6c…2b8e Head {h00=0x001e, h01=0x0050, text=» CBNE SPBINW3,CBIN0,KED100«, t00=0x001b, t01=0x0148}
0x2b8e…2ba0 Head {h00=0x000e, h01=0x0050, text=» PERF BELL«, t00=0x001b, t01=0x016a}
0x2ba0…2bb4 Head {h00=0x0010, h01=0x0050, text=» B SETCREAD «, t00=0x001b, t01=0x017c}
0x2bb4…2bc2 Head {h00=0x000a, h01=0x0050, text=»KED100«, t00=0x001b, t01=0x0190}
0x2bc2…2bec Head {h00=0x0026, h01=0x0050, text=» EDFLD SPINPUT,SPKTAB3,SPBINW1, C«, t00=0x001c, t01=0x000e}
0x2bec…2c06 Head {h00=0x0016, h01=0x0050, text=» SPBINW2,SPBINW4 «, t00=0x001c, t01=0x0038}
0x2c06…2c2c Head {h00=0x0022, h01=0x0050, text=» B DYKOUT CONTINUE AS FOR DYKI«, t00=0x001c, t01=0x0052}
0x2c2c…2c36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0078}
0x2c36…2c4c Head {h00=0x0012, h01=0x0050, text=»* ENTER KEY«, t00=0x001c, t01=0x0082}
0x2c4c…2c56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0098}
0x2c56…2c64 Head {h00=0x000a, h01=0x0050, text=»KENTER«, t00=0x001c, t01=0x00a2}
0x2c64…2c90 Head {h00=0x0028, h01=0x0050, text=» TBT SPCHANGE,KENT00 NO TESTS ON ME «, t00=0x001c, t01=0x00b0}
0x2c90…2cb2 Head {h00=0x001e, h01=0x0050, text=» TBF SPME,KENT05 FIELDS ? «, t00=0x001c, t01=0x00dc}
0x2cb2…2cc0 Head {h00=0x000a, h01=0x0050, text=»KENT00«, t00=0x001c, t01=0x00fe}
0x2cc0…2cf6 Head {h00=0x0032, h01=0x0050, text=» MOVE SPBINW4,CBIN5 INDICATE COMP.FIELD FOUND «, t00=0x001c, t01=0x010c}
0x2cf6…2d26 Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW1,CBIN0 INDICATE NO CLEARING«, t00=0x001c, t01=0x0142}
0x2d26…2d5e Head {h00=0x0034, h01=0x0050, text=» MOVE SPBINW2,CBIN0 SET INDEX TO SEARCHED FIELD «, t00=0x001c, t01=0x0172}
0x2d5e…2d9e Head {h00=0x003c, h01=0x0050, text=» GETFLD 0,SPBINW2,SPBINW3 SEARCH FOR EMPTY COMP. FIELDS «, t00=0x001d, t01=0x001a}
0x2d9e…2dca Head {h00=0x0028, h01=0x0050, text=» BOFL KENT10 EMPTY COMP. FIELD FOUND«, t00=0x001d, t01=0x005a}
0x2dca…2df4 Head {h00=0x0026, h01=0x0050, text=» TSTCTL 2 LOOK IF COMPULSORY FIELD«, t00=0x001d, t01=0x0086}
0x2df4…2e0a Head {h00=0x0012, h01=0x0050, text=» BZ KENT05 NO!«, t00=0x001d, t01=0x00b0}
0x2e0a…2e3c Head {h00=0x002e, h01=0x0050, text=» CALL EMPTYT,:FMTITEM LOOK IF EMPTY FIELD «, t00=0x001d, t01=0x00c6}
0x2e3c…2e54 Head {h00=0x0014, h01=0x0050, text=» BP KENT10 YES! «, t00=0x001d, t01=0x00f8}
0x2e54…2e62 Head {h00=0x000a, h01=0x0050, text=»KENT05«, t00=0x001d, t01=0x0110}
0x2e62…2e9a Head {h00=0x0034, h01=0x0050, text=» MOVE SPBINW2,CBIN3 INDICATE ENTER KEY DEPRESSED«, t00=0x001d, t01=0x011e}
0x2e9a…2ea6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001d, t01=0x0156}
0x2ea6…2eb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0162}
0x2eb0…2eda Head {h00=0x0026, h01=0x0050, text=»* EMPTY COMPULSORY FIELD FOUND «, t00=0x001d, t01=0x016c}
0x2eda…2ee4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0008}
0x2ee4…2ef2 Head {h00=0x000a, h01=0x0050, text=»KENT10«, t00=0x001e, t01=0x0012}
0x2ef2…2f2c Head {h00=0x0036, h01=0x0050, text=» GETFLD 0,SPBINW3,SPBINW2 GET THE COMPULSORY FIELD«, t00=0x001e, t01=0x0020}
0x2f2c…2f34 Head {h00=0x0004, h01=0x0050, t00=0x001e, t01=0x005a}
0x2f34…2f42 Head {h00=0x000a, h01=0x0050, text=»ERRPRT«, t00=0x001e, t01=0x0062}
0x2f42…2f56 Head {h00=0x0010, h01=0x0050, text=» PERF DKTEST«, t00=0x001e, t01=0x0070}
0x2f56…2f6c Head {h00=0x0012, h01=0x0050, text=» BNOK SETCREAD«, t00=0x001e, t01=0x0084}
0x2f6c…2f9a Head {h00=0x002a, h01=0x0050, text=» CBE SPBINW2,CBIN16,KEDIT JUMP IF EDIT«, t00=0x001e, t01=0x009a}
0x2f9a…2fca Head {h00=0x002c, h01=0x0050, text=» CBE SPBINW2,CBIN4,CANC JUMP IF CANCEL1 «, t00=0x001e, t01=0x00c8}
0x2fca…2ffa Head {h00=0x002c, h01=0x0050, text=» CBE SPBINW2,CBIN5,CANC JUMP IF CANCEL2 «, t00=0x001e, t01=0x00f8}
0x2ffa…3004 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0128}
0x3004…3020 Head {h00=0x0018, h01=0x0050, text=»* ERROR HANDLING «, t00=0x001e, t01=0x0132}
0x3020…302a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x014e}
0x302a…303a Head {h00=0x000c, h01=0x0050, text=»ERRPRINT«, t00=0x001e, t01=0x0158}
0x303a…3044 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0168}
0x3044…3060 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW2,=X'40'«, t00=0x001e, t01=0x0172}
0x3060…307c Head {h00=0x0018, h01=0x0050, text=» XSTAT KEYB,SPBINW3 «, t00=0x001e, t01=0x018e}
0x307c…30a2 Head {h00=0x0022, h01=0x0050, text=» CBNE SPBINW2,SPBINW3,ERRPRT20«, t00=0x001f, t01=0x001a}
0x30a2…30b4 Head {h00=0x000e, h01=0x0050, text=» TIMEOUT«, t00=0x001f, t01=0x0040}
0x30b4…30de Head {h00=0x0026, h01=0x0050, text=» EDWRT SCREEN,ERAFMT ERASE SCREEN «, t00=0x001f, t01=0x0052}
0x30de…30f0 Head {h00=0x000e, h01=0x0050, text=» B ERRC20 «, t00=0x001f, t01=0x007c}
0x30f0…3100 Head {h00=0x000c, h01=0x0050, text=»ERRPRT20«, t00=0x001f, t01=0x008e}
0x3100…3122 Head {h00=0x001e, h01=0x0050, text=» CBE SPBINW4,CBIN0,ERRC20 «, t00=0x001f, t01=0x009e}
0x3122…3134 Head {h00=0x000e, h01=0x0050, text=» PERF BELL«, t00=0x001f, t01=0x00c0}
0x3134…3160 Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW3,=X'1801' ROW 24 COL. 1«, t00=0x001f, t01=0x00d2}
0x3160…3196 Head {h00=0x0032, h01=0x0050, text=» DSC1 SCREEN,6,SPBINW3 SET CURSOR ON LAST ROW «, t00=0x001f, t01=0x00fe}
0x3196…31b4 Head {h00=0x001a, h01=0x0050, text=»* TBT GTRKONV,ERRPRT30«, t00=0x001f, t01=0x0134}
0x31b4…31dc Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD4,SPBINW4 ERRORCODE «, t00=0x001f, t01=0x0152}
0x31dc…31ec Head {h00=0x000c, h01=0x0050, text=»ERRPRT30«, t00=0x001f, t01=0x017a}
0x31ec…3214 Head {h00=0x0024, h01=0x0050, text=» EDWRT SCREEN,SPFTBERR(SPBINW4) «, t00=0x001f, t01=0x018a}
0x3214…3232 Head {h00=0x001a, h01=0x0050, text=» TBF SPKEYFLG,SPERRRET«, t00=0x0020, t01=0x0022}
0x3232…323c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0040}
0x323c…325a Head {h00=0x001a, h01=0x0050, text=»* READ AFTER ERROR «, t00=0x0020, t01=0x004a}
0x325a…3264 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0068}
0x3264…3272 Head {h00=0x000a, h01=0x0050, text=»ERREAD«, t00=0x0020, t01=0x0072}
0x3272…329e Head {h00=0x0028, h01=0x0050, text=» SETCUR SET CURSOR AT THE BEGINNING«, t00=0x0020, t01=0x0080}
0x329e…32be Head {h00=0x001c, h01=0x0050, text=» OF THE CURRENT FIELD «, t00=0x0020, t01=0x00ac}
0x32be…32cc Head {h00=0x000a, h01=0x0050, text=»ERR100«, t00=0x0020, t01=0x00cc}
0x32cc…32fa Head {h00=0x002a, h01=0x0050, text=» MOVE SPBINW3,CBIN14 REQUESTED LENGTH «, t00=0x0020, t01=0x00da}
0x32fa…3328 Head {h00=0x002a, h01=0x0050, text=» IB SPKEY,ERR105,ERR110,ERR115,ERR116 «, t00=0x0020, t01=0x0108}
0x3328…3336 Head {h00=0x000a, h01=0x0050, text=»ERR105«, t00=0x0020, t01=0x0136}
0x3336…336c Head {h00=0x0032, h01=0x0050, text=» NKI .NE,KEYB,SPINPUT,SPKTAB1,SPBINW3,SPBINW2 «, t00=0x0020, t01=0x0144}
0x336c…337e Head {h00=0x000e, h01=0x0050, text=» B ERR120 «, t00=0x0020, t01=0x017a}
0x337e…338c Head {h00=0x000a, h01=0x0050, text=»ERR110«, t00=0x0020, t01=0x018c}
0x338c…33c2 Head {h00=0x0032, h01=0x0050, text=» NKI .NE,KEYB,SPINPUT,SPKTAB12,SPBINW3,SPBINW2«, t00=0x0021, t01=0x000a}
0x33c2…33d4 Head {h00=0x000e, h01=0x0050, text=» B ERR120 «, t00=0x0021, t01=0x0040}
0x33d4…33e2 Head {h00=0x000a, h01=0x0050, text=»ERR115«, t00=0x0021, t01=0x0052}
0x33e2…3418 Head {h00=0x0032, h01=0x0050, text=» NKI .NE,KEYB,SPINPUT,SPKTAB13,SPBINW3,SPBINW2«, t00=0x0021, t01=0x0060}
0x3418…342a Head {h00=0x000e, h01=0x0050, text=» B ERR120 «, t00=0x0021, t01=0x0096}
0x342a…3438 Head {h00=0x000a, h01=0x0050, text=»ERR116«, t00=0x0021, t01=0x00a8}
0x3438…346e Head {h00=0x0032, h01=0x0050, text=» NKI .NE,KEYB,SPINPUT,SPKTAB14,SPBINW3,SPBINW2«, t00=0x0021, t01=0x00b6}
0x346e…347c Head {h00=0x000a, h01=0x0050, text=»ERR120«, t00=0x0021, t01=0x00ec}
0x347c…349e Head {h00=0x001e, h01=0x0050, text=» BNZ ERR100 JUMP IF NOT OK«, t00=0x0021, t01=0x00fa}
0x349e…34b2 Head {h00=0x0010, h01=0x0050, text=» PERF DKTEST«, t00=0x0021, t01=0x011c}
0x34b2…34c6 Head {h00=0x0010, h01=0x0050, text=» BNOK ERREAD«, t00=0x0021, t01=0x0130}
0x34c6…34f2 Head {h00=0x0028, h01=0x0050, text=» CMP SPBINW2,CBIN0 JUMP IF POWER OFF«, t00=0x0021, t01=0x0144}
0x34f2…3504 Head {h00=0x000e, h01=0x0050, text=» BE RETUR «, t00=0x0021, t01=0x0170}
0x3504…352a Head {h00=0x0022, h01=0x0050, text=» IB SPBINW2,ERR100,ERRCONT C «, t00=0x0021, t01=0x0182}
0x352a…3552 Head {h00=0x0024, h01=0x0050, text=» ERRCONT,ERR100,ERRCONT,ERRCONT«, t00=0x0022, t01=0x0018}
0x3552…356c Head {h00=0x0016, h01=0x0050, text=» B ERR100 CONTINUE«, t00=0x0022, t01=0x0040}
0x356c…3576 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x005a}
0x3576…3598 Head {h00=0x001e, h01=0x0050, text=»* CLEAR ERROR PRINTOUT «, t00=0x0022, t01=0x0064}
0x3598…35a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0086}
0x35a2…35b2 Head {h00=0x000c, h01=0x0050, text=»ERRCONT «, t00=0x0022, t01=0x0090}
0x35b2…35d6 Head {h00=0x0020, h01=0x0050, text=» PERF CLEAR8 ERASE LAST LINE«, t00=0x0022, t01=0x00a0}
0x35d6…3602 Head {h00=0x0028, h01=0x0050, text=» CBNL SPBINW4,=W'26',CANC IF WARNING«, t00=0x0022, t01=0x00c4}
0x3602…362e Head {h00=0x0028, h01=0x0050, text=» SUB SPBINW2,CBIN1 ADJUST KEY INDEX «, t00=0x0022, t01=0x00f0}
0x362e…363a Head {h00=0x0008, h01=0x0050, text=»CANC«, t00=0x0022, t01=0x011c}
0x363a…366e Head {h00=0x0030, h01=0x0050, text=» CBE SPBINW1,CBIN0,ERRC10 JUMP IF LENGTH = 0«, t00=0x0022, t01=0x0128}
0x366e…36a2 Head {h00=0x0030, h01=0x0050, text=» MOVE SPINPUT,:FMTITEM SAVE CURRENT CONTENTS«, t00=0x0022, t01=0x015c}
0x36a2…36da Head {h00=0x0034, h01=0x0050, text=» MOVE :FMTITEM,=C'1' PUT SOMETHING IN THE FIELD «, t00=0x0022, t01=0x0190}
0x36da…3704 Head {h00=0x0026, h01=0x0050, text=» GETABX SPBINW4 GET CURRENT INDEX «, t00=0x0023, t01=0x0038}
0x3704…3732 Head {h00=0x002a, h01=0x0050, text=» ERASE 10,SPBINW4,SPBINW4 CLEAR FIELD «, t00=0x0023, t01=0x0062}
0x3732…3740 Head {h00=0x000a, h01=0x0050, text=»ERRC10«, t00=0x0023, t01=0x0090}
0x3740…3768 Head {h00=0x0024, h01=0x0050, text=» IB SPBINW2,CLEAR1,CLEAR2,DUMMY «, t00=0x0023, t01=0x009e}
0x3768…379e Head {h00=0x0032, h01=0x0050, text=» SUB SPBINW2,CBIN3 ADJUST FOR CANCEL1,CANCEL2 «, t00=0x0023, t01=0x00c6}
0x379e…37aa Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0023, t01=0x00fc}
0x37aa…37b8 Head {h00=0x000a, h01=0x0050, text=»CLEAR1«, t00=0x0023, t01=0x0108}
0x37b8…37ec Head {h00=0x0030, h01=0x0050, text=» CBE SPBINW1,CBIN0,ERRC20 JUMP IF LENGTH = 0«, t00=0x0023, t01=0x0116}
0x37ec…3818 Head {h00=0x0028, h01=0x0050, text=» SET SPCHANGE INDICATE CHANGED FIELD«, t00=0x0023, t01=0x014a}
0x3818…3826 Head {h00=0x000a, h01=0x0050, text=»ERRC20«, t00=0x0023, t01=0x0176}
0x3826…3850 Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW5,$OPT CHECHK IF SPERR«, t00=0x0023, t01=0x0184}
0x3850…3874 Head {h00=0x0020, h01=0x0050, text=» CBE SPBINW5,CBIN0,SPERRRET «, t00=0x0024, t01=0x001e}
0x3874…3890 Head {h00=0x0018, h01=0x0050, text=» B SETCREAD CONTINUE«, t00=0x0024, t01=0x0042}
0x3890…389a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x005e}
0x389a…38a8 Head {h00=0x000a, h01=0x0050, text=»CLEAR2«, t00=0x0024, t01=0x0068}
0x38a8…38e0 Head {h00=0x0034, h01=0x0050, text=» MOVE :FMTITEM,SPINPUT RESTORE CURRENT CONTENTS «, t00=0x0024, t01=0x0076}
0x38e0…38ee Head {h00=0x000a, h01=0x0050, text=»CLEA20«, t00=0x0024, t01=0x00ae}
0x38ee…391c Head {h00=0x002a, h01=0x0050, text=» GETABX SPBINW4 GET CURRENT TAB INDEX «, t00=0x0024, t01=0x00bc}
0x391c…394c Head {h00=0x002c, h01=0x0050, text=» DISPLAY 1,SPBINW4,SPBINW4 DISPLAY FIELD«, t00=0x0024, t01=0x00ea}
0x394c…3976 Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW5,$OPT CHECK IF SPERR «, t00=0x0024, t01=0x011a}
0x3976…399a Head {h00=0x0020, h01=0x0050, text=» CBE SPBINW5,CBIN0,SPERRRET «, t00=0x0024, t01=0x0144}
0x399a…39b6 Head {h00=0x0018, h01=0x0050, text=» B SETCREAD CONTINUE«, t00=0x0024, t01=0x0168}
0x39b6…39c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0184}
0x39c0…39d0 Head {h00=0x000c, h01=0x0050, text=»SPERRRET«, t00=0x0024, t01=0x018e}
0x39d0…39dc Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0025, t01=0x000e}
0x39dc…39e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x001a}
0x39e6…39f4 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0025, t01=0x0024}
0x39f4…39fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0032}
0x39fe…3a10 Head {h00=0x000e, h01=0x0050, text=»BELL PROC «, t00=0x0025, t01=0x003c}
0x3a10…3a30 Head {h00=0x001c, h01=0x0050, text=»* ACUSTIC ALARM«, t00=0x0025, t01=0x004e}
0x3a30…3a4e Head {h00=0x001a, h01=0x0050, text=» EDWRT SCREEN,BELLFMT «, t00=0x0025, t01=0x006e}
0x3a4e…3a5a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0025, t01=0x008c}
0x3a5a…3a64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0098}
0x3a64…3a78 Head {h00=0x0010, h01=0x0050, text=»BELLFMT FRMT«, t00=0x0025, t01=0x00a2}
0x3a78…3a84 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0025, t01=0x00b6}
0x3a84…3a9a Head {h00=0x0012, h01=0x0050, text=» FILLR X'07',1«, t00=0x0025, t01=0x00c2}
0x3a9a…3aa8 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0025, t01=0x00d8}
0x3aa8…3ab0 Head {h00=0x0004, h01=0x0050, t00=0x0025, t01=0x00e6}
0x3ab0…3abe Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0025, t01=0x00ee}
0x3abe…3ac8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00fc}
0x3ac8…3adc Head {h00=0x0010, h01=0x0050, text=»ERAFMT FRMT «, t00=0x0025, t01=0x0106}
0x3adc…3af0 Head {h00=0x0010, h01=0x0050, text=» FILLR '1',2«, t00=0x0025, t01=0x011a}
0x3af0…3afe Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0025, t01=0x012e}
0x3afe…3b0c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x013c}
0x3b0c…3b20 Head {h00=0x0010, h01=0x0050, text=»KBTEST PROC «, t00=0x0025, t01=0x014a}
0x3b20…3b4c Head {h00=0x0028, h01=0x0050, text=»* THE PROCEDURE SENSES THE KEYBOARD.«, t00=0x0025, t01=0x015e}
0x3b4c…3b86 Head {h00=0x0036, h01=0x0050, text=»* IF THE MAK-KEY HAS BEEN DEPRESSED, THE COND.REG «, t00=0x0025, t01=0x018a}
0x3b86…3bc4 Head {h00=0x003a, h01=0x0050, text=»* WILL BE SET TO ZERO, IN ORDER TO ENABLE THE CALLING «, t00=0x0026, t01=0x0034}
0x3bc4…3c04 Head {h00=0x003c, h01=0x0050, text=»* MODULE TO STOP THE LISTING (OR FOR ANY OTHER PURPOSE) «, t00=0x0026, t01=0x0072}
0x3c04…3c24 Head {h00=0x001c, h01=0x0050, text=» PERF SPLIN8,CBIN0,CBIN0«, t00=0x0026, t01=0x00b2}
0x3c24…3c38 Head {h00=0x0010, h01=0x0050, text=» TESTIO KEYB«, t00=0x0026, t01=0x00d2}
0x3c38…3c4a Head {h00=0x000e, h01=0x0050, text=» BOK KBT10«, t00=0x0026, t01=0x00e6}
0x3c4a…3c62 Head {h00=0x0014, h01=0x0050, text=» CALL ABORT,KEYB«, t00=0x0026, t01=0x00f8}
0x3c62…3c72 Head {h00=0x000c, h01=0x0050, text=» B KBT20«, t00=0x0026, t01=0x0110}
0x3c72…3c80 Head {h00=0x000a, h01=0x0050, text=»KBT10 «, t00=0x0026, t01=0x0120}
0x3c80…3c92 Head {h00=0x000e, h01=0x0050, text=» WAIT KEYB«, t00=0x0026, t01=0x012e}
0x3c92…3cb4 Head {h00=0x001e, h01=0x0050, text=» CBNE SPBINW2,CBIN6,KBT20 «, t00=0x0026, t01=0x0140}
0x3cb4…3ccc Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0026, t01=0x0162}
0x3ccc…3cdc Head {h00=0x000c, h01=0x0050, text=» B KBT99«, t00=0x0026, t01=0x017a}
0x3cdc…3cea Head {h00=0x000a, h01=0x0050, text=»KBT20 «, t00=0x0026, t01=0x018a}
0x3cea…3d02 Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN1«, t00=0x0027, t01=0x0008}
0x3d02…3d10 Head {h00=0x000a, h01=0x0050, text=»KBT99 «, t00=0x0027, t01=0x0020}
0x3d10…3d1c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0027, t01=0x002e}
0x3d1c…3d2a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0027, t01=0x003a}
0x3d2a…3d38 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x0048}
0x3d38…3d5a Head {h00=0x001e, h01=0x0050, text=»SPLIN8 PROC WRTMES,WRTTYP «, t00=0x0027, t01=0x0056}
0x3d5a…3d76 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0027, t01=0x0078}
0x3d76…3d80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0094}
0x3d80…3dac Head {h00=0x0028, h01=0x0050, text=»* SPLIN8 - WRITE ON LINE 24«, t00=0x0027, t01=0x009e}
0x3dac…3db6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00ca}
0x3db6…3df0 Head {h00=0x0036, h01=0x0050, text=»* MESSAGE DEFINED AS FORMAT NUMBER WRTMES«, t00=0x0027, t01=0x00d4}
0x3df0…3e1c Head {h00=0x0028, h01=0x0050, text=»* IN FORMAT TABLE SPFTBMES «, t00=0x0027, t01=0x010e}
0x3e1c…3e26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x013a}
0x3e26…3e4e Head {h00=0x0024, h01=0x0050, text=»* WRTTYP: =0 NO WAIT«, t00=0x0027, t01=0x0144}
0x3e4e…3e74 Head {h00=0x0022, h01=0x0050, text=»* =1 WAIT «, t00=0x0027, t01=0x016c}
0x3e74…3e9c (40, 0, 400) Head {h00=0x0024, h01=0x0050, text=»* =2 RETURN «, t00=0x0028, t01=0x0004}
0x3e9c…3ed6 Head {h00=0x0036, h01=0x0050, text=»* =3 WRITE WITH NO WAIT, RETURN«, t00=0x0028, t01=0x002c}
0x3ed6…3ee0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0066}
0x3ee0…3efc Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0028, t01=0x0070}
0x3efc…3f1a Head {h00=0x001a, h01=0x0050, text=» MOVE SPBINW1,=X'1801'«, t00=0x0028, t01=0x008c}
0x3f1a…3f50 Head {h00=0x0032, h01=0x0050, text=» DSC1 SCREEN,6,SPBINW1 SET CURSOR ON LAST ROW «, t00=0x0028, t01=0x00aa}
0x3f50…3f6c Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW1,CBIN0 «, t00=0x0028, t01=0x00e0}
0x3f6c…3f8c Head {h00=0x001c, h01=0x0050, text=» CBE WRTMES,CBIN0,LIN800«, t00=0x0028, t01=0x00fc}
0x3f8c…3fac Head {h00=0x001c, h01=0x0050, text=» CBL WRTTYP,CBIN3,LIN801«, t00=0x0028, t01=0x011c}
0x3fac…3fd6 Head {h00=0x0026, h01=0x0050, text=» EDWRT .NW,SCREEN,SPFTBMES(WRTMES)«, t00=0x0028, t01=0x013c}
0x3fd6…3fe8 Head {h00=0x000e, h01=0x0050, text=» B LINRET «, t00=0x0028, t01=0x0166}
0x3fe8…3ff6 Head {h00=0x000a, h01=0x0050, text=»LIN801«, t00=0x0028, t01=0x0178}
0x3ff6…401c Head {h00=0x0022, h01=0x0050, text=» EDWRT SCREEN,SPFTBMES(WRTMES)«, t00=0x0028, t01=0x0186}
0x401c…402a Head {h00=0x000a, h01=0x0050, text=»LIN800«, t00=0x0029, t01=0x001c}
0x402a…404a Head {h00=0x001c, h01=0x0050, text=» CBE WRTTYP,CBIN0,LIN8NW«, t00=0x0029, t01=0x002a}
0x404a…406a Head {h00=0x001c, h01=0x0050, text=» CBE WRTTYP,CBIN2,LINRET«, t00=0x0029, t01=0x004a}
0x406a…4078 Head {h00=0x000a, h01=0x0050, text=»* READ«, t00=0x0029, t01=0x006a}
0x4078…4086 Head {h00=0x000a, h01=0x0050, text=»LIN8IN«, t00=0x0029, t01=0x0078}
0x4086…40b2 Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW1,CBIN3 REQUESTED LENGTH«, t00=0x0029, t01=0x0086}
0x40b2…40e0 Head {h00=0x002a, h01=0x0050, text=» IB SPKEY,LIN805,LIN810,LIN815,LIN816 «, t00=0x0029, t01=0x00b2}
0x40e0…40ee Head {h00=0x000a, h01=0x0050, text=»LIN805«, t00=0x0029, t01=0x00e0}
0x40ee…4120 Head {h00=0x002e, h01=0x0050, text=» NKI KEYB,SPINPUT,SPKTAB1,SPBINW1,SPBINW2 «, t00=0x0029, t01=0x00ee}
0x4120…4132 Head {h00=0x000e, h01=0x0050, text=» B LIN820 «, t00=0x0029, t01=0x0120}
0x4132…4140 Head {h00=0x000a, h01=0x0050, text=»LIN810«, t00=0x0029, t01=0x0132}
0x4140…4172 Head {h00=0x002e, h01=0x0050, text=» NKI KEYB,SPINPUT,SPKTAB12,SPBINW1,SPBINW2«, t00=0x0029, t01=0x0140}
0x4172…4184 Head {h00=0x000e, h01=0x0050, text=» B LIN820 «, t00=0x0029, t01=0x0172}
0x4184…4192 Head {h00=0x000a, h01=0x0050, text=»LIN815«, t00=0x0029, t01=0x0184}
0x4192…41c4 (42, 0, 400) Head {h00=0x002e, h01=0x0050, text=» NKI KEYB,SPINPUT,SPKTAB13,SPBINW1,SPBINW2«, t00=0x002a, t01=0x0004}
0x41c4…41d6 Head {h00=0x000e, h01=0x0050, text=» B LIN820 «, t00=0x002a, t01=0x0036}
0x41d6…41e4 Head {h00=0x000a, h01=0x0050, text=»LIN816«, t00=0x002a, t01=0x0048}
0x41e4…4216 Head {h00=0x002e, h01=0x0050, text=» NKI KEYB,SPINPUT,SPKTAB14,SPBINW1,SPBINW2«, t00=0x002a, t01=0x0056}
0x4216…4224 Head {h00=0x000a, h01=0x0050, text=»LIN820«, t00=0x002a, t01=0x0088}
0x4224…4248 Head {h00=0x0020, h01=0x0050, text=» BNOK LIN8IN JUMP IF NOT OK «, t00=0x002a, t01=0x0096}
0x4248…425c Head {h00=0x0010, h01=0x0050, text=» PERF DKTEST«, t00=0x002a, t01=0x00ba}
0x425c…427e Head {h00=0x001e, h01=0x0050, text=» CBE SPBINW2,CBIN2,LIN8CT «, t00=0x002a, t01=0x00ce}
0x427e…4290 Head {h00=0x000e, h01=0x0050, text=» B LIN8IN «, t00=0x002a, t01=0x00f0}
0x4290…42a4 Head {h00=0x0010, h01=0x0050, text=»* CLEAR LINE«, t00=0x002a, t01=0x0102}
0x42a4…42b2 Head {h00=0x000a, h01=0x0050, text=»LIN8CT«, t00=0x002a, t01=0x0116}
0x42b2…42d6 Head {h00=0x0020, h01=0x0050, text=» PERF CLEAR8 ERASE LAST LINE«, t00=0x002a, t01=0x0124}
0x42d6…42e2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002a, t01=0x0148}
0x42e2…42fe Head {h00=0x0018, h01=0x0050, text=»* READ WITH NO WAIT «, t00=0x002a, t01=0x0154}
0x42fe…430c Head {h00=0x000a, h01=0x0050, text=»LIN8NW«, t00=0x002a, t01=0x0170}
0x430c…4338 Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW1,CBIN3 REQUESTED LENGTH«, t00=0x002a, t01=0x017e}
0x4338…4366 Head {h00=0x002a, h01=0x0050, text=» IB SPKEY,LIN855,LIN860,LIN865,LIN866 «, t00=0x002b, t01=0x001a}
0x4366…4374 Head {h00=0x000a, h01=0x0050, text=»LIN855«, t00=0x002b, t01=0x0048}
0x4374…43aa Head {h00=0x0032, h01=0x0050, text=» NKI .NW,KEYB,SPINPUT,SPKTAB1,SPBINW1,SPBINW2 «, t00=0x002b, t01=0x0056}
0x43aa…43bc Head {h00=0x000e, h01=0x0050, text=» B LIN870 «, t00=0x002b, t01=0x008c}
0x43bc…43ca Head {h00=0x000a, h01=0x0050, text=»LIN860«, t00=0x002b, t01=0x009e}
0x43ca…4400 Head {h00=0x0032, h01=0x0050, text=» NKI .NW,KEYB,SPINPUT,SPKTAB12,SPBINW1,SPBINW2«, t00=0x002b, t01=0x00ac}
0x4400…4412 Head {h00=0x000e, h01=0x0050, text=» B LIN870 «, t00=0x002b, t01=0x00e2}
0x4412…4420 Head {h00=0x000a, h01=0x0050, text=»LIN865«, t00=0x002b, t01=0x00f4}
0x4420…4456 Head {h00=0x0032, h01=0x0050, text=» NKI .NW,KEYB,SPINPUT,SPKTAB13,SPBINW1,SPBINW2«, t00=0x002b, t01=0x0102}
0x4456…4468 Head {h00=0x000e, h01=0x0050, text=» B LIN870 «, t00=0x002b, t01=0x0138}
0x4468…4476 Head {h00=0x000a, h01=0x0050, text=»LIN866«, t00=0x002b, t01=0x014a}
0x4476…44ac Head {h00=0x0032, h01=0x0050, text=» NKI .NW,KEYB,SPINPUT,SPKTAB14,SPBINW1,SPBINW2«, t00=0x002b, t01=0x0158}
0x44ac…44ba Head {h00=0x000a, h01=0x0050, text=»LIN870«, t00=0x002b, t01=0x018e}
0x44ba…44ce Head {h00=0x0010, h01=0x0050, text=» PERF DKTEST«, t00=0x002c, t01=0x000c}
0x44ce…44dc Head {h00=0x000a, h01=0x0050, text=»LINRET«, t00=0x002c, t01=0x0020}
0x44dc…44e8 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002c, t01=0x002e}
0x44e8…44f6 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x002c, t01=0x003a}
0x44f6…4500 Head {h00=0x0006, h01=0x0050, text=» «, t00=0x002c, t01=0x0048}
0x4500…4514 Head {h00=0x0010, h01=0x0050, text=»SPINF1 PROC «, t00=0x002c, t01=0x0052}
0x4514…4530 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x002c, t01=0x0066}
0x4530…453a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0082}
0x453a…456e Head {h00=0x0030, h01=0x0050, text=»* SPINF1 - WRITE INF ON FIRST LINE «, t00=0x002c, t01=0x008c}
0x456e…4578 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00c0}
0x4578…4594 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x002c, t01=0x00ca}
0x4594…45b2 Head {h00=0x001a, h01=0x0050, text=» MOVE SPBINW1,=X'0117'«, t00=0x002c, t01=0x00e6}
0x45b2…45ea Head {h00=0x0034, h01=0x0050, text=» DSC1 SCREEN,6,SPBINW1 SET CURSOR ON FIRST LINE «, t00=0x002c, t01=0x0104}
0x45ea…4606 Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW1,CBIN0 «, t00=0x002c, t01=0x013c}
0x4606…463c Head {h00=0x0032, h01=0x0050, text=» EDWRT SCREEN,SPFTBMES(CBIN7) WRITE MESSAGE 7 «, t00=0x002c, t01=0x0158}
0x463c…4648 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002c, t01=0x018e}
0x4648…4656 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x002d, t01=0x000a}
0x4656…4660 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0018}
0x4660…466a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0022}
0x466a…4674 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x002c}
0x4674…4688 Head {h00=0x0010, h01=0x0050, text=»SPINF8 PROC «, t00=0x002d, t01=0x0036}
0x4688…46a4 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x002d, t01=0x004a}
0x46a4…46ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0066}
0x46ae…46e0 Head {h00=0x002e, h01=0x0050, text=»* SPINF8 - WRITE INF ON LAST LINE«, t00=0x002d, t01=0x0070}
0x46e0…46ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00a2}
0x46ea…4706 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x002d, t01=0x00ac}
0x4706…4726 Head {h00=0x001c, h01=0x0050, text=» PERF SPLIN8,CBIN4,CBIN2«, t00=0x002d, t01=0x00c8}
0x4726…4732 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002d, t01=0x00e8}
0x4732…4740 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x002d, t01=0x00f4}
0x4740…474a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0102}
0x474a…4754 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x010c}
0x4754…4768 Head {h00=0x0010, h01=0x0050, text=»CLEAR8 PROC «, t00=0x002d, t01=0x0116}
0x4768…4790 Head {h00=0x0024, h01=0x0050, text=»* DELETE FIRST 14 CHARACTERS«, t00=0x002d, t01=0x012a}
0x4790…47a8 Head {h00=0x0014, h01=0x0050, text=»* OF LINE 24«, t00=0x002d, t01=0x0152}
0x47a8…47da Head {h00=0x002e, h01=0x0050, text=» MOVE GSWBIN2,=X'1801' INDICATE LAST LINE «, t00=0x002d, t01=0x016a}
0x47da…47fa Head {h00=0x001c, h01=0x0050, text=» DSC1 SCREEN,06,GSWBIN2 «, t00=0x002e, t01=0x000c}
0x47fa…4816 Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN14«, t00=0x002e, t01=0x002c}
0x4816…4844 Head {h00=0x002a, h01=0x0050, text=» DSC1 SCREEN,02,GSWBIN2 ERASE 14 CHARS«, t00=0x002e, t01=0x0048}
0x4844…4852 Head {h00=0x000a, h01=0x0050, text=» RET «, t00=0x002e, t01=0x0076}
0x4852…4860 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x002e, t01=0x0084}
0x4860…486a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0092}
0x486a…4874 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x009c}
0x4874…4888 Head {h00=0x0010, h01=0x0050, text=»DKTEST PROC «, t00=0x002e, t01=0x00a6}
0x4888…48b0 Head {h00=0x0024, h01=0x0050, text=»* TEST IF DISK IS SWITCHED OFF, «, t00=0x002e, t01=0x00ba}
0x48b0…48ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00e2}
0x48ba…48d4 Head {h00=0x0016, h01=0x0050, text=» TBF CDKOFF,DKTRET«, t00=0x002e, t01=0x00ec}
0x48d4…48f0 Head {h00=0x0018, h01=0x0050, text=» TBT GTMASTFL,DKTRET«, t00=0x002e, t01=0x0106}
0x48f0…4926 Head {h00=0x0032, h01=0x0050, text=» TBF CDUOVL,DKTRET NO KI IF DISKOVERLAY ON DU «, t00=0x002e, t01=0x0122}
0x4926…495a Head {h00=0x0030, h01=0x0050, text=»* WRITE MESSAGE, AND WAIT FOR FLAG CLEARED «, t00=0x002e, t01=0x0158}
0x495a…4982 Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW5,=X'1801' POSITION «, t00=0x002e, t01=0x018c}
0x4982…49a8 Head {h00=0x0022, h01=0x0050, text=» DSC1 SCREEN,6,SPBINW5 CURSOR «, t00=0x002f, t01=0x0024}
0x49a8…49d2 Head {h00=0x0026, h01=0x0050, text=» EDWRT .NW,SCREEN,SPFTBMES(CBIN14)«, t00=0x002f, t01=0x004a}
0x49d2…49e0 Head {h00=0x000a, h01=0x0050, text=»DKT10 «, t00=0x002f, t01=0x0074}
0x49e0…49f6 Head {h00=0x0012, h01=0x0050, text=» DELAY CBIN10 «, t00=0x002f, t01=0x0082}
0x49f6…4a10 Head {h00=0x0016, h01=0x0050, text=» TBT CDKOFF,DKT10 «, t00=0x002f, t01=0x0098}
0x4a10…4a24 Head {h00=0x0010, h01=0x0050, text=» PERF CLEAR8«, t00=0x002f, t01=0x00b2}
0x4a24…4a40 Head {h00=0x0018, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK«, t00=0x002f, t01=0x00c6}
0x4a40…4a4c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002f, t01=0x00e2}
0x4a4c…4a5a Head {h00=0x000a, h01=0x0050, text=»DKTRET«, t00=0x002f, t01=0x00ee}
0x4a5a…4a76 Head {h00=0x0018, h01=0x0050, text=» CMP CBIN0,CBIN0 OK «, t00=0x002f, t01=0x00fc}
0x4a76…4a82 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002f, t01=0x0118}
0x4a82…4a90 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x002f, t01=0x0124}
0x4a90…4a9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0132}
0x4a9a…4aa4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x013c}
0x4aa4…4aae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0146}
0x4aae…4ab8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0150}
0x4ab8…4ac0 Head {h00=0x0004, h01=0x0050, t00=0x002f, t01=0x015a}
0x4ac0…4acc Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x002f, t01=0x0162}
0x4acc…4ad0 Head {h00=0x4004, h01=0x0000}
0x4ad0…4ad4 00 2f 01 6e ┆ / n┆
0x4ad4…4adc (48, 1, 8) 20 04 00 00 00 30 00 04 ┆ 0 ┆
0x4adc…4b2c (49, 0, 400) 45 41 52 20 53 4f 4d 45 20 56 41 52 49 41 42 4c 45 20 46 49 45 4c 44 53 00 00 01 80 00 2a 00 50 20 45 4e 54 52 59 20 53 50 43 4c 52 4e 20 43 4c 45 41 52 20 4e 4f 20 56 41 52 49 41 42 4c 45 20 46 49 45 4c 44 53 00 01 00 20 00 28 00 50 20 45 ┆EAR SOME VARIABLE FIELDS * P ENTRY SPCLRN CLEAR NO VARIABLE FIELDS ( P E┆
0x4b2c…4b7c 4e 54 52 59 20 53 50 45 52 52 20 44 49 53 50 4c 41 59 20 45 52 52 4f 52 20 50 52 49 4e 54 4f 55 54 20 00 01 00 4e 00 1c 00 50 5c 5c 5c 41 4e 44 20 43 4f 4e 54 49 4e 55 45 20 48 41 4e 44 4c 49 4e 47 00 01 00 7a 00 24 00 50 5c 45 4e 54 52 59 ┆NTRY SPERR DISPLAY ERROR PRINTOUT N P AND CONTINUE HANDLING z $ P ENTRY┆
0x4b7c…4bcc 5c 53 50 4c 49 4e 38 5c 4d 45 53 53 41 47 45 20 4f 4e 20 4c 49 4e 45 20 38 20 00 01 00 9a 00 1c 00 50 5c 45 4e 54 52 59 5c 53 50 43 41 5c 41 53 20 53 50 43 4c 52 41 2d 2d 20 00 01 00 c2 00 1c 00 50 5c 45 4e 54 52 59 5c 53 50 43 4e 5c 41 53 ┆ SPLIN8 MESSAGE ON LINE 8 P ENTRY SPCA AS SPCLRA-- P ENTRY SPCN AS┆
0x4bcc…4c1c 20 53 50 43 4c 52 4e 2d 2d 20 00 01 00 e2 00 12 00 50 20 45 4e 54 52 59 20 53 43 52 45 45 4e 20 00 01 01 02 00 28 00 50 5c 45 4e 54 52 59 5c 53 50 49 4e 46 31 5c 49 4e 46 4f 52 4d 41 54 49 4f 4e 20 4f 4e 20 4c 49 4e 45 20 31 20 00 01 01 18 ┆ SPCLRN-- P ENTRY SCREEN ( P ENTRY SPINF1 INFORMATION ON LINE 1 ┆
0x4c1c…4c6c 00 28 00 50 5c 45 4e 54 52 59 5c 53 50 49 4e 46 38 5c 49 4e 46 4f 52 4d 41 54 49 4f 4e 20 4f 4e 20 4c 49 4e 45 20 38 20 00 01 01 44 00 10 00 50 20 45 4e 54 52 59 20 42 45 4c 4c 20 00 01 01 70 00 12 00 50 20 45 4e 54 52 59 20 43 4c 45 41 52 ┆ ( P ENTRY SPINF8 INFORMATION ON LINE 8 D P ENTRY BELL p P ENTRY CLEAR┆
0x4c6c…4cbc (50, 0, 400) 38 20 00 01 01 84 00 24 00 50 20 45 4e 54 52 59 20 44 4b 54 45 53 54 5c 54 45 53 54 20 49 46 20 44 49 53 4b 20 52 45 41 44 59 00 02 00 0a 00 26 00 50 20 45 4e 54 52 59 20 4b 42 54 45 53 54 20 54 45 53 54 20 4b 42 20 46 4f 52 20 4d 41 4b 2d ┆8 $ P ENTRY DKTEST TEST IF DISK READY & P ENTRY KBTEST TEST KB FOR MAK-┆
0x4cbc…4d0c 4b 45 59 20 00 02 00 32 00 06 00 50 2a 20 00 02 00 5c 00 2c 00 50 20 45 58 54 20 53 50 43 48 4b 31 20 53 54 41 4e 44 41 52 44 20 43 48 45 43 4b 20 52 4f 55 54 49 4e 45 20 4e 4f 2e 20 31 00 02 00 66 00 2c 00 50 20 45 58 54 20 53 50 43 48 4b ┆KEY 2 P* , P EXT SPCHK1 STANDARD CHECK ROUTINE NO. 1 f , P EXT SPCHK┆
0x4d0c…4d5c 32 20 53 54 41 4e 44 41 52 44 20 43 48 45 43 4b 20 52 4f 55 54 49 4e 45 20 4e 4f 2e 20 32 00 02 00 96 00 2c 00 50 20 45 58 54 20 53 50 43 48 4b 33 20 53 54 41 4e 44 41 52 44 20 43 48 45 43 4b 20 52 4f 55 54 49 4e 45 20 4e 4f 2e 20 33 00 02 ┆2 STANDARD CHECK ROUTINE NO. 2 , P EXT SPCHK3 STANDARD CHECK ROUTINE NO. 3 ┆
0x4d5c…4dac 00 c6 00 2c 00 50 20 45 58 54 20 53 50 43 48 4b 34 20 53 54 41 4e 44 41 52 44 20 43 48 45 43 4b 20 52 4f 55 54 49 4e 45 20 4e 4f 2e 20 34 00 02 00 f6 00 2c 00 50 20 45 58 54 20 53 50 43 48 4b 35 20 53 54 41 4e 44 41 52 44 20 43 48 45 43 4b ┆ , P EXT SPCHK4 STANDARD CHECK ROUTINE NO. 4 , P EXT SPCHK5 STANDARD CHECK┆
0x4dac…4dfc 20 52 4f 55 54 49 4e 45 20 4e 4f 2e 35 20 00 02 01 26 00 2c 00 50 20 45 58 54 20 53 50 43 48 4b 36 20 53 54 41 4e 44 41 52 44 20 43 48 45 43 4b 20 52 4f 55 54 49 4e 45 20 4e 4f 2e 20 36 00 02 01 56 00 2c 00 50 20 45 58 54 20 53 50 43 48 4b ┆ ROUTINE NO.5 & , P EXT SPCHK6 STANDARD CHECK ROUTINE NO. 6 V , P EXT SPCHK┆
0x4dfc…4e4c (51, 0, 400) 37 20 53 54 41 4e 44 41 52 44 20 43 48 45 43 4b 20 52 4f 55 54 49 4e 45 20 4e 4f 2e 20 37 00 02 01 86 00 26 00 50 20 45 58 54 20 53 50 41 50 50 4c 20 55 53 45 52 20 52 4f 55 54 49 4e 45 20 54 4f 20 48 41 4e 44 4c 45 00 03 00 26 00 12 00 50 ┆7 STANDARD CHECK ROUTINE NO. 7 & P EXT SPAPPL USER ROUTINE TO HANDLE & P┆
0x4e4c…4e9c 5c 5c 5c 41 50 50 4c 20 56 41 4c 55 45 53 00 03 00 50 00 28 00 50 20 45 58 54 20 53 50 54 43 48 4b 20 55 53 45 52 20 52 4f 55 54 49 4e 45 20 54 4f 20 45 56 41 4c 55 41 54 45 00 03 00 66 00 1e 00 50 5c 5c 5c 43 4f 4e 44 49 54 49 4f 4e 41 4c ┆ APPL VALUES P ( P EXT SPTCHK USER ROUTINE TO EVALUATE f P CONDITIONAL┆
0x4e9c…4eec 20 54 41 42 55 4c 41 54 49 4f 4e 20 00 03 00 92 00 0e 00 50 20 45 58 54 20 41 42 4f 52 54 00 03 00 b4 00 2e 00 50 5c 45 58 54 5c 45 4d 50 54 59 54 5c 41 53 53 45 4d 42 4c 59 20 53 55 42 52 4f 55 54 49 4e 45 20 45 4d 50 54 59 54 20 20 2d 20 ┆ TABULATION P EXT ABORT . P EXT EMPTYT ASSEMBLY SUBROUTINE EMPTYT - ┆
0x4eec…4f3c 00 03 00 c6 00 22 00 50 5c 5c 5c 54 45 53 54 20 49 46 20 44 41 54 41 20 49 54 45 4d 20 49 53 20 45 4d 50 54 59 20 00 03 00 f8 00 06 00 50 2a 20 00 03 01 1e 00 18 00 50 5c 49 4e 43 4c 55 44 45 5c 4b 45 59 34 36 31 2c 4c 49 53 54 00 03 01 28 ┆ " P TEST IF DATA ITEM IS EMPTY P* P INCLUDE KEY461,LIST (┆
0x4f3c…4f8c 00 24 00 50 2a 20 20 20 20 20 46 49 52 53 54 20 49 4e 43 4c 55 44 45 20 4b 45 59 20 56 41 4c 55 45 53 2c 20 00 03 01 44 00 2e 00 50 2a 20 20 20 20 20 54 48 45 4e 20 49 4e 43 4c 55 44 45 20 53 50 45 43 49 41 4c 20 53 43 52 45 45 4e 20 46 4f ┆ $ P* FIRST INCLUDE KEY VALUES, D . P* THEN INCLUDE SPECIAL SCREEN FO┆
0x4f8c…4fdc (52, 0, 400) 52 4d 41 54 53 20 00 03 01 6c 00 18 00 50 5c 49 4e 43 4c 55 44 45 5c 53 4c 34 36 31 2c 4c 49 53 54 20 00 04 00 0e 00 04 00 50 00 04 00 2a 00 10 00 50 53 50 43 4c 52 41 20 50 52 4f 43 20 00 04 00 32 00 06 00 50 2a 20 00 04 00 46 00 44 00 50 ┆RMATS l P INCLUDE SL461,LIST P * PSPCLRA PROC 2 P* F D P┆
0x4fdc…502c 2a 20 53 50 43 4c 52 41 20 2d 20 43 4c 45 41 52 20 41 4c 4c 20 56 41 52 41 42 4c 45 20 46 49 45 4c 44 53 20 42 45 46 4f 52 45 20 48 41 4e 44 4c 49 4e 47 20 54 48 45 20 50 49 43 54 55 52 45 20 00 04 00 50 00 06 00 50 2a 20 00 04 00 98 00 18 ┆* SPCLRA - CLEAR ALL VARABLE FIELDS BEFORE HANDLING THE PICTURE P P* ┆
0x502c…507c 00 50 20 4d 4f 56 45 20 53 50 45 52 41 53 45 2c 43 42 49 4e 30 20 00 04 00 a2 00 16 00 50 5c 50 45 52 46 5c 53 43 52 45 45 4e 2c 3d 57 27 31 27 00 04 00 be 00 08 00 50 5c 52 45 54 00 04 00 d8 00 0a 00 50 20 50 45 4e 44 20 00 04 00 e4 00 10 ┆ P MOVE SPERASE,CBIN0 P PERF SCREEN,=W'1' P RET P PEND ┆
0x507c…50cc 00 50 53 50 43 4c 52 53 20 50 52 4f 43 20 00 04 00 f2 00 06 00 50 2a 20 00 04 01 06 00 46 00 50 2a 20 53 50 43 4c 52 53 20 2d 20 43 4c 45 41 52 20 53 4f 4d 45 20 56 41 52 49 41 42 4c 45 20 46 49 45 4c 44 53 20 42 45 46 4f 52 45 20 48 41 4e ┆ PSPCLRS PROC P* F P* SPCLRS - CLEAR SOME VARIABLE FIELDS BEFORE HAN┆
0x50cc…511c 44 4c 49 4e 47 20 54 48 45 20 50 49 43 54 55 52 45 20 00 04 01 10 00 06 00 50 2a 20 00 04 01 5a 00 18 00 50 20 4d 4f 56 45 20 53 50 45 52 41 53 45 2c 43 42 49 4e 30 20 00 04 01 64 00 16 00 50 5c 50 45 52 46 5c 53 43 52 45 45 4e 2c 3d 57 27 ┆DLING THE PICTURE P* Z P MOVE SPERASE,CBIN0 d P PERF SCREEN,=W'┆