|
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: 14330 (0x37fa)
Notes: pts_type(SC)
Names: »DEMSCR.SC«
└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
└─⟦this⟧ »PTSDEMO/DEMSCR.SC«
IDENT DEMSCR PTSDEMO SCREEN MANAGEMENT * * SPECIAL PTS6800 DEMONSTRATION VERSION * * CHANGES HAVE BEEN INDICATED BY: 'PTSDEMO SPECIAL' * FURTHERMORE THE KEYTABLES USED HAVE BEEN PARAMETERIZED !! * * A STANDARD PROGRAM PACKAGE HANDLING * A COMPLETE PICTURE ON A DISPLAY SCREEN * * RUNNING UNDER: CREDIT REL 3.1 * TOSS REL 8.1 * DDUM DEMODD 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 * 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 ************************************************************************ * PTSDEMO SPECIAL EXT XCLAMP EXT XFERR1 EXT QHSPKY * INCLUDE SPLITT,LIST HAS BEEN DELETED ************************************************************************ EJECT * * CLEAR ALL VARIABLE FIELD BEFORE HANDLING THE PICTURE * SPCLRA PROC PSPKTAB1,PSPKTAB2,PSPKTAB3 PKTAB PSPKTAB1 PKTAB PSPKTAB2 PKTAB PSPKTAB3 PERF SCREEN,=W'1',PSPKTAB1,PSPKTAB2,PSPKTAB3 RET PEND * * CLEAR SOME VARIABLE FIELDS BEFORE HANDLING THE PICTURE * SPCLRS PROC PSPKTAB1,PSPKTAB2,PSPKTAB3 PKTAB PSPKTAB1 PKTAB PSPKTAB2 PKTAB PSPKTAB3 PERF SCREEN,=W'2',PSPKTAB1,PSPKTAB2,PSPKTAB3 RET PEND * * CLEAR NO VARIABLE FIELDS BEFORE HANDLING THE PICTURE * SPCLRN PROC PSPKTAB1,PSPKTAB2,PSPKTAB3 PKTAB PSPKTAB1 PKTAB PSPKTAB2 PKTAB PSPKTAB3 PERF SCREEN,=W'3',PSPKTAB1,PSPKTAB2,PSPKTAB3 RET PEND * * HANDLE ERRORS DETECTED OUTSIDE THE PACKAGE * SPERR PROC PSPKTAB1,PSPKTAB2,PSPKTAB3 PKTAB PSPKTAB1 PKTAB PSPKTAB2 PKTAB PSPKTAB3 PERF SCREEN,=W'0',PSPKTAB1,PSPKTAB2,PSPKTAB3 RET PEND * EJECT SCREEN PROC POPT,PSPKTAB1,PSPKTAB2,PSPKTAB3 PLIT POPT OPTIO SELECTOR PKTAB PSPKTAB1 PKTAB PSPKTAB2 PKTAB PSPKTAB3 MOVE SPBINW2,POPT MOVE TO VARIABLE TO ALLOW INSTR.S CMP AND IB CMP SPBINW2,='0' "SPERR" ENTRY ? BE ERRPRINT YES ! MOVE SPBINW1,='1' SET INITIAL VALUE TBT SPPROMPT,ENTIRE JUMP IF ENTIRE FORMAT SHOULD BE DISPLAYED * * ONLY VARIABLE FIELDS * IB SPBINW2,CLEARA,CLEARS,CONT JUMP ON ROUTINE INDEX * CLEARA ERASE 2,SPBINW1,='0' ERASE ALL FROM 1 AND UP B CONT * CLEARS ERASE 5,SPBINW1,='0' 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 3,SPBINW1,='0' CLEAR ALL FROM 1 AND UP IN MEMORY B ECLRN CONTINUE * * CLEAR SOME VARIABLES * ECLRS ERASE 6,SPBINW1,='0' CLEAR SOME FIELDS FROM 1 AND UP IN MEMORY * * CLEAR NO VARIABLES IN MEMORY * ECLRN DISPLAY 0,SPBINW1,='0' DISPLAY ENTIRE FORM 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 DYKI SPINPUT,PSPKTAB1,PSPKTAB2,SPBINW1, C SPBINW2,SPBINW4 BL ERRPRT ERROR ************************************************************************ * PTSDEMO SPECIAL PERF QHSPKY,SPBINW2,KWSPEOI,KWSPKTB ADAPT SPBINW2 ************************************************************************ CBNG SPBINW2,='0',RETUR JUMP IF POWER OFF OR KEY SWITCHES DYKOUT 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,UPD100,UPD070,ERRPRINT * * CONDITIONAL DISPLAYING * UPD050 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,UPD260,SETCREAD,ERRPRINT B UPD400 * * OK AFTER APPL CONTROL * UNCONDITIONAL DISPLAYING * UPD260 UPDFLD 1,SPINPUT UPDATE FIELD WITH DISPLAYING UPD300 SET SPCHANGE INDICATE CHANGED ITEM UPD350 * 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 SETCREAD NOT FOUND BOFL SETCREAD EMPTY COMPULSORY FIELD * * * CONDITIONAL TABULATION * PERF SPTCHK CBE SPBINW3,='0',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 ************************************************************************ * PTSDEMO SPECIAL TBF SBCP80,KCOP10 MOVE SPBINW3,='1' EDWRT SPDSCPY,FMTSKIP PRINT SPDSCPY,SPBINW3,='0' B SETCREAD KCOP10 CBE RDPRTTYP,=D'4',KCOP20 CBNE RDPRTTYP,=D'2',SETCREAD ONLY HARDCOPY FOR GTP KCOP20 EDWRT SPDSPRT,FMTSKIP ************************************************************************ MOVE SPBINW3,='1' PRINT SPDSPRT,SPBINW3,='0' B SETCREAD SET CURSOR AND READ * KDUPL DUPLICATION MOVE SPBINW2,='3' INDICATE COMMON EOI-KEY DUPL SPINPUT DUPLICATION BZ UPD260 DUPL ALLOWED 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 EDWRT SPDSSCRN,BELL ACOUSTIC ALARM B SETCREAD KED100 EDFLD SPINPUT,PSPKTAB3,SPBINW1, C SPBINW2,SPBINW4 BL ERRPRT ERROR ************************************************************************ * PTSDEMO SPECIAL PERF QHSPKY,SPBINW2,KWSPEOI,KWSPKTB3 ADAPT SPBINW2 FOR KB34 ************************************************************************ CBNG SPBINW2,='0',RETUR POWER OFF OR KEY SWITCH CBNE SPBINW1,='0',KED110 LENGTH NOT ZERO SET SPCHANGE ITEM CLEARED BY EDFLD KED110 B DYKOUT CONTINUE AS FOR DYKI * * ENTER KEY * KENTER 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 B ERRPRINT EJECT ERRPRT CBE SPBINW2,='16',KEDIT JUMP IF EDIT CBE SPBINW2,='4',CANC JUMP IF CANCEL1 CBE SPBINW2,='5',CANC JUMP IF CANCEL2 * * ERROR HANDLING * ERRPRINT CBE SPBINW4,='0',ERRC20 JUMP IF NO PRINTOUT ************************************************************************ * PTSDEMO SPECIAL PERF XFERR1,SPBINW4,KW0 DISPLAY ERROR ************************************************************************ * * READ AFTER ERROR * ERREAD SETCUR SET CURSOR AT THE BEGINNING OF THE CURRENT FIELD ERR100 MOVE SPBINW3,=W'14' REQUESTED LENGTH NKI .NE,SPDSDYKB,SPINPUT,PSPKTAB1,SPBINW3,SPBINW2 BNZ ERR100 JUMP IF NOT OK ************************************************************************ * PTSDEMO SPECIAL MOVE SPBINW3,KWSPEOI ADD SPBINW3,=W'1' ADJUST INDEX PERF QHSPKY,SPBINW2,SPBINW3,KWSPKTB ADAPT SPBINW2 FOR KB34 ************************************************************************ CBE SPBINW2,='0',RETUR JUMP IF POWER OFF IB SPBINW2,ERR100,ERRCONT C ERRCONT,ERR100,ERRCONT,ERRCONT B ERR100 CONTINUE * * CLEAR ERROR PRINTOUT * ERRCONT ************************************************************************ * PTSDEMO SPECIAL PERF XCLAMP,KW3,KW0 ERROR LAMP OFF PERF XCLAMP,KW1,KW1 READY LAMP ON MOVE SPBINW3,SPLSTLNE INDICATE LAST LINE ****************************************************************** ERASE 0,SPBINW3,SPBINW3 ERASE LAST LINE 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 B SETCREAD CONTINUE * CLEAR2 CBE SPBINW1,='0',CLEA20 JUMP IF LENGTH 0 MOVE :FMTITEM,SPINPUT RESTORE CURRENT CONTENTS CLEA20 GETABX SPBINW4 GET CURRENT TAB INDEX DISPLAY 1,SPBINW4,SPBINW4 DISPLAY FIELD B SETCREAD CONTINUE * BELL FRMT FSL FILLR X'07',1 FMEND ************************************************************************ * PTSDEMO SPECIAL FMTSKIP FRMT FTEXT '00' SKIP 2 LINES FMEND ************************************************************************ PEND END
0x0000…0030 (0, 0, 400) Head {h00=0x002c, h01=0x0050, text=» IDENT DEMSCR PTSDEMO SCREEN MANAGEMENT «, t00=0x0000, t01=0x0004}
0x0030…003a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0034}
0x003a…006a Head {h00=0x002c, h01=0x0050, text=»* SPECIAL PTS6800 DEMONSTRATION VERSION «, t00=0x0000, t01=0x003e}
0x006a…0074 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x006e}
0x0074…00b0 Head {h00=0x0038, h01=0x0050, text=»* CHANGES HAVE BEEN INDICATED BY: 'PTSDEMO SPECIAL' «, t00=0x0000, t01=0x0078}
0x00b0…00f4 Head {h00=0x0040, h01=0x0050, text=»* FURTHERMORE THE KEYTABLES USED HAVE BEEN PARAMETERIZED !! «, t00=0x0000, t01=0x00b4}
0x00f4…00fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f8}
0x00fe…012e Head {h00=0x002c, h01=0x0050, text=»* A STANDARD PROGRAM PACKAGE HANDLING«, t00=0x0000, t01=0x0102}
0x012e…0162 Head {h00=0x0030, h01=0x0050, text=»* A COMPLETE PICTURE ON A DISPLAY SCREEN «, t00=0x0000, t01=0x0132}
0x0162…016c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0166}
0x016c…0198 Head {h00=0x0028, h01=0x0050, text=»* RUNNING UNDER: CREDIT REL 3.1 «, t00=0x0000, t01=0x0170}
0x0198…01c4 Head {h00=0x0028, h01=0x0050, text=»* TOSS REL 8.1 «, t00=0x0001, t01=0x000c}
0x01c4…01ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0038}
0x01ce…01e2 Head {h00=0x0010, h01=0x0050, text=» DDUM DEMODD«, t00=0x0001, t01=0x0042}
0x01e2…01f0 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0001, t01=0x0056}
0x01f0…01fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0064}
0x01fa…022a Head {h00=0x002c, h01=0x0050, text=» ENTRY SPCLRA CLEAR ALL VARIABLE FIELDS «, t00=0x0001, t01=0x006e}
0x022a…025a Head {h00=0x002c, h01=0x0050, text=» ENTRY SPCLRS CLEAR SOME VARIABLE FIELDS«, t00=0x0001, t01=0x009e}
0x025a…0288 Head {h00=0x002a, h01=0x0050, text=» ENTRY SPCLRN CLEAR NO VARIABLE FIELDS«, t00=0x0001, t01=0x00ce}
0x0288…02b4 Head {h00=0x0028, h01=0x0050, text=» ENTRY SPERR DISPLAY ERROR PRINTOUT «, t00=0x0001, t01=0x00fc}
0x02b4…02d4 Head {h00=0x001c, h01=0x0050, text=» AND CONTINUE HANDLING«, t00=0x0001, t01=0x0128}
0x02d4…02de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0148}
0x02de…030e Head {h00=0x002c, h01=0x0050, text=» EXT SPCHK1 STANDARD CHECK ROUTINE NO. 1«, t00=0x0001, t01=0x0152}
0x030e…033e Head {h00=0x002c, h01=0x0050, text=» EXT SPCHK2 STANDARD CHECK ROUTINE NO. 2«, t00=0x0001, t01=0x0182}
0x033e…036e Head {h00=0x002c, h01=0x0050, text=» EXT SPCHK3 STANDARD CHECK ROUTINE NO. 3«, t00=0x0002, t01=0x0022}
0x036e…039e Head {h00=0x002c, h01=0x0050, text=» EXT SPCHK4 STANDARD CHECK ROUTINE NO. 4«, t00=0x0002, t01=0x0052}
0x039e…03ce Head {h00=0x002c, h01=0x0050, text=» EXT SPCHK5 STANDARD CHECK ROUTINE NO.5 «, t00=0x0002, t01=0x0082}
0x03ce…03fe Head {h00=0x002c, h01=0x0050, text=» EXT SPCHK6 STANDARD CHECK ROUTINE NO. 6«, t00=0x0002, t01=0x00b2}
0x03fe…042e Head {h00=0x002c, h01=0x0050, text=» EXT SPCHK7 STANDARD CHECK ROUTINE NO. 7«, t00=0x0002, t01=0x00e2}
0x042e…0458 Head {h00=0x0026, h01=0x0050, text=» EXT SPAPPL USER ROUTINE TO HANDLE«, t00=0x0002, t01=0x0112}
0x0458…046e Head {h00=0x0012, h01=0x0050, text=» APPL VALUES«, t00=0x0002, t01=0x013c}
0x046e…049a Head {h00=0x0028, h01=0x0050, text=» EXT SPTCHK USER ROUTINE TO EVALUATE«, t00=0x0002, t01=0x0152}
0x049a…04bc Head {h00=0x001e, h01=0x0050, text=» CONDITIONAL TABULATION «, t00=0x0002, t01=0x017e}
0x04bc…04c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0010}
0x04c6…04f8 Head {h00=0x002e, h01=0x0050, text=» EXT EMPTYT ASSEMBLY SUBROUTINE EMPTYT - «, t00=0x0003, t01=0x001a}
0x04f8…051e Head {h00=0x0022, h01=0x0050, text=» TEST IF DATA ITEM IS EMPTY «, t00=0x0003, t01=0x004c}
0x051e…056e Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0003, t01=0x0072}
0x056e…0588 Head {h00=0x0016, h01=0x0050, text=»* PTSDEMO SPECIAL «, t00=0x0003, t01=0x00c2}
0x0588…059c Head {h00=0x0010, h01=0x0050, text=» EXT XCLAMP «, t00=0x0003, t01=0x00dc}
0x059c…05b0 Head {h00=0x0010, h01=0x0050, text=» EXT XFERR1 «, t00=0x0003, t01=0x00f0}
0x05b0…05c4 Head {h00=0x0010, h01=0x0050, text=» EXT QHSPKY «, t00=0x0003, t01=0x0104}
0x05c4…05fa Head {h00=0x0032, h01=0x0050, text=»* INCLUDE SPLITT,LIST HAS BEEN DELETED «, t00=0x0003, t01=0x0118}
0x05fa…064a Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0003, t01=0x014e}
0x064a…0658 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x000e}
0x0658…0662 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x001c}
0x0662…06a4 Head {h00=0x003e, h01=0x0050, text=»* CLEAR ALL VARIABLE FIELD BEFORE HANDLING THE PICTURE «, t00=0x0004, t01=0x0026}
0x06a4…06ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0068}
0x06ae…06dc Head {h00=0x002a, h01=0x0050, text=»SPCLRA PROC PSPKTAB1,PSPKTAB2,PSPKTAB3«, t00=0x0004, t01=0x0072}
0x06dc…06f4 Head {h00=0x0014, h01=0x0050, text=» PKTAB PSPKTAB1 «, t00=0x0004, t01=0x00a0}
0x06f4…070c Head {h00=0x0014, h01=0x0050, text=» PKTAB PSPKTAB2 «, t00=0x0004, t01=0x00b8}
0x070c…0724 Head {h00=0x0014, h01=0x0050, text=» PKTAB PSPKTAB3 «, t00=0x0004, t01=0x00d0}
0x0724…075a Head {h00=0x0032, h01=0x0050, text=» PERF SCREEN,=W'1',PSPKTAB1,PSPKTAB2,PSPKTAB3 «, t00=0x0004, t01=0x00e8}
0x075a…0766 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0004, t01=0x011e}
0x0766…0774 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0004, t01=0x012a}
0x0774…077e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0138}
0x077e…07c2 Head {h00=0x0040, h01=0x0050, text=»* CLEAR SOME VARIABLE FIELDS BEFORE HANDLING THE PICTURE «, t00=0x0004, t01=0x0142}
0x07c2…07cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0186}
0x07cc…07fa Head {h00=0x002a, h01=0x0050, text=»SPCLRS PROC PSPKTAB1,PSPKTAB2,PSPKTAB3«, t00=0x0004, t01=0x0190}
0x07fa…0812 Head {h00=0x0014, h01=0x0050, text=» PKTAB PSPKTAB1 «, t00=0x0005, t01=0x002e}
0x0812…082a Head {h00=0x0014, h01=0x0050, text=» PKTAB PSPKTAB2 «, t00=0x0005, t01=0x0046}
0x082a…0842 Head {h00=0x0014, h01=0x0050, text=» PKTAB PSPKTAB3 «, t00=0x0005, t01=0x005e}
0x0842…0878 Head {h00=0x0032, h01=0x0050, text=» PERF SCREEN,=W'2',PSPKTAB1,PSPKTAB2,PSPKTAB3 «, t00=0x0005, t01=0x0076}
0x0878…0884 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0005, t01=0x00ac}
0x0884…0892 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0005, t01=0x00b8}
0x0892…089c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00c6}
0x089c…08de Head {h00=0x003e, h01=0x0050, text=»* CLEAR NO VARIABLE FIELDS BEFORE HANDLING THE PICTURE «, t00=0x0005, t01=0x00d0}
0x08de…08e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0112}
0x08e8…0916 Head {h00=0x002a, h01=0x0050, text=»SPCLRN PROC PSPKTAB1,PSPKTAB2,PSPKTAB3«, t00=0x0005, t01=0x011c}
0x0916…092e Head {h00=0x0014, h01=0x0050, text=» PKTAB PSPKTAB1 «, t00=0x0005, t01=0x014a}
0x092e…0946 Head {h00=0x0014, h01=0x0050, text=» PKTAB PSPKTAB2 «, t00=0x0005, t01=0x0162}
0x0946…095e Head {h00=0x0014, h01=0x0050, text=» PKTAB PSPKTAB3 «, t00=0x0005, t01=0x017a}
0x095e…0994 (6, 0, 400) Head {h00=0x0032, h01=0x0050, text=» PERF SCREEN,=W'3',PSPKTAB1,PSPKTAB2,PSPKTAB3 «, t00=0x0006, t01=0x0004}
0x0994…09a0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0006, t01=0x003a}
0x09a0…09ae Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0006, t01=0x0046}
0x09ae…09b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0054}
0x09b8…09f0 Head {h00=0x0034, h01=0x0050, text=»* HANDLE ERRORS DETECTED OUTSIDE THE PACKAGE «, t00=0x0006, t01=0x005e}
0x09f0…09fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0096}
0x09fa…0a28 Head {h00=0x002a, h01=0x0050, text=»SPERR PROC PSPKTAB1,PSPKTAB2,PSPKTAB3 «, t00=0x0006, t01=0x00a0}
0x0a28…0a40 Head {h00=0x0014, h01=0x0050, text=» PKTAB PSPKTAB1 «, t00=0x0006, t01=0x00ce}
0x0a40…0a58 Head {h00=0x0014, h01=0x0050, text=» PKTAB PSPKTAB2 «, t00=0x0006, t01=0x00e6}
0x0a58…0a70 Head {h00=0x0014, h01=0x0050, text=» PKTAB PSPKTAB3 «, t00=0x0006, t01=0x00fe}
0x0a70…0aa6 Head {h00=0x0032, h01=0x0050, text=» PERF SCREEN,=W'0',PSPKTAB1,PSPKTAB2,PSPKTAB3 «, t00=0x0006, t01=0x0116}
0x0aa6…0ab2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0006, t01=0x014c}
0x0ab2…0ac0 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0006, t01=0x0158}
0x0ac0…0aca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0166}
0x0aca…0ad8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0170}
0x0ad8…0b0c Head {h00=0x0030, h01=0x0050, text=»SCREEN PROC POPT,PSPKTAB1,PSPKTAB2,PSPKTAB3 «, t00=0x0006, t01=0x017e}
0x0b0c…0b2e Head {h00=0x001e, h01=0x0050, text=» PLIT POPT OPTIO SELECTOR «, t00=0x0007, t01=0x0022}
0x0b2e…0b46 Head {h00=0x0014, h01=0x0050, text=» PKTAB PSPKTAB1 «, t00=0x0007, t01=0x0044}
0x0b46…0b5e Head {h00=0x0014, h01=0x0050, text=» PKTAB PSPKTAB2 «, t00=0x0007, t01=0x005c}
0x0b5e…0b76 Head {h00=0x0014, h01=0x0050, text=» PKTAB PSPKTAB3 «, t00=0x0007, t01=0x0074}
0x0b76…0b7e Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x008c}
0x0b7e…0baa Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW2,POPT MOVE TO VARIABLE «, t00=0x0007, t01=0x0094}
0x0baa…0bd0 Head {h00=0x0022, h01=0x0050, text=» TO ALLOW INSTR.S CMP AND IB«, t00=0x0007, t01=0x00c0}
0x0bd0…0bfa Head {h00=0x0026, h01=0x0050, text=» CMP SPBINW2,='0' "SPERR" ENTRY ? «, t00=0x0007, t01=0x00e6}
0x0bfa…0c14 Head {h00=0x0016, h01=0x0050, text=» BE ERRPRINT YES !«, t00=0x0007, t01=0x0110}
0x0c14…0c1c Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x012a}
0x0c1c…0c48 Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW1,='1' SET INITIAL VALUE«, t00=0x0007, t01=0x0132}
0x0c48…0c7a Head {h00=0x002e, h01=0x0050, text=» TBT SPPROMPT,ENTIRE JUMP IF ENTIRE FORMAT«, t00=0x0007, t01=0x015e}
0x0c7a…0c98 Head {h00=0x001a, h01=0x0050, text=» SHOULD BE DISPLAYED«, t00=0x0007, t01=0x0190}
0x0c98…0ca2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x001e}
0x0ca2…0cc4 Head {h00=0x001e, h01=0x0050, text=»* ONLY VARIABLE FIELDS «, t00=0x0008, t01=0x0028}
0x0cc4…0cce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x004a}
0x0cce…0d0a Head {h00=0x0038, h01=0x0050, text=» IB SPBINW2,CLEARA,CLEARS,CONT JUMP ON ROUTINE INDEX«, t00=0x0008, t01=0x0054}
0x0d0a…0d14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0090}
0x0d14…0d22 Head {h00=0x000a, h01=0x0050, text=»CLEARA«, t00=0x0008, t01=0x009a}
0x0d22…0d58 Head {h00=0x0032, h01=0x0050, text=» ERASE 2,SPBINW1,='0' ERASE ALL FROM 1 AND UP «, t00=0x0008, t01=0x00a8}
0x0d58…0d68 Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x0008, t01=0x00de}
0x0d68…0d72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00ee}
0x0d72…0d80 Head {h00=0x000a, h01=0x0050, text=»CLEARS«, t00=0x0008, t01=0x00f8}
0x0d80…0db6 Head {h00=0x0032, h01=0x0050, text=» ERASE 5,SPBINW1,='0' ERASE SOME FROM 1 AND UP«, t00=0x0008, t01=0x0106}
0x0db6…0dc6 Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x0008, t01=0x013c}
0x0dc6…0dd4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x014c}
0x0dd4…0dde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x015a}
0x0dde…0e00 Head {h00=0x001e, h01=0x0050, text=»* DISPLAY ENTIRE FORMAT«, t00=0x0008, t01=0x0164}
0x0e00…0e0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0186}
0x0e0a…0e18 Head {h00=0x000a, h01=0x0050, text=»ENTIRE«, t00=0x0008, t01=0x0190}
0x0e18…0e54 Head {h00=0x0038, h01=0x0050, text=» IB SPBINW2,ECLRA,ECLRS,ECLRN JUMP ON ROUTINE INDEX «, t00=0x0009, t01=0x000e}
0x0e54…0e5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x004a}
0x0e5e…0e7e Head {h00=0x001c, h01=0x0050, text=»* CLEAR ALL VARIABLES«, t00=0x0009, t01=0x0054}
0x0e7e…0e88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0074}
0x0e88…0e96 Head {h00=0x000a, h01=0x0050, text=»ECLRA «, t00=0x0009, t01=0x007e}
0x0e96…0ecc Head {h00=0x0032, h01=0x0050, text=» ERASE 3,SPBINW1,='0' CLEAR ALL FROM 1 AND UP «, t00=0x0009, t01=0x008c}
0x0ecc…0ee0 Head {h00=0x0010, h01=0x0050, text=» IN MEMORY«, t00=0x0009, t01=0x00c2}
0x0ee0…0efa Head {h00=0x0016, h01=0x0050, text=» B ECLRN CONTINUE «, t00=0x0009, t01=0x00d6}
0x0efa…0f04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00f0}
0x0f04…0f26 Head {h00=0x001e, h01=0x0050, text=»* CLEAR SOME VARIABLES «, t00=0x0009, t01=0x00fa}
0x0f26…0f30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x011c}
0x0f30…0f3e Head {h00=0x000a, h01=0x0050, text=»ECLRS «, t00=0x0009, t01=0x0126}
0x0f3e…0f72 Head {h00=0x0030, h01=0x0050, text=» ERASE 6,SPBINW1,='0' CLEAR SOME FIELDS FROM«, t00=0x0009, t01=0x0134}
0x0f72…0f90 Head {h00=0x001a, h01=0x0050, text=» 1 AND UP IN MEMORY «, t00=0x0009, t01=0x0168}
0x0f90…0f9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0186}
0x0f9a…0fc4 Head {h00=0x0026, h01=0x0050, text=»* CLEAR NO VARIABLES IN MEMORY «, t00=0x0009, t01=0x0190}
0x0fc4…0fce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x002a}
0x0fce…0fdc Head {h00=0x000a, h01=0x0050, text=»ECLRN «, t00=0x000a, t01=0x0034}
0x0fdc…1010 Head {h00=0x0030, h01=0x0050, text=» DISPLAY 0,SPBINW1,='0' DISPLAY ENTIRE FORM «, t00=0x000a, t01=0x0042}
0x1010…101e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0076}
0x101e…1028 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0084}
0x1028…1034 Head {h00=0x0008, h01=0x0050, text=»CONT«, t00=0x000a, t01=0x008e}
0x1034…105e Head {h00=0x0026, h01=0x0050, text=» GETABX SPBINW4 GET CURRENT INDEX «, t00=0x000a, t01=0x009a}
0x105e…108a Head {h00=0x0028, h01=0x0050, text=» BL KTHOME JUMP IF NO CURRENT FIELD «, t00=0x000a, t01=0x00c4}
0x108a…1098 Head {h00=0x000a, h01=0x0050, text=»CONT5 «, t00=0x000a, t01=0x00f0}
0x1098…10d2 Head {h00=0x0036, h01=0x0050, text=» GETFLD 0,SPBINW4,SPBINW3 SEARCH CURRENT POSITION «, t00=0x000a, t01=0x00fe}
0x10d2…10f4 Head {h00=0x001e, h01=0x0050, text=» BZ SETCREAD JUMP IF FOUND«, t00=0x000a, t01=0x0138}
0x10f4…111a Head {h00=0x0022, h01=0x0050, text=» BL KTHOME POSITION NOT FOUND «, t00=0x000a, t01=0x015a}
0x111a…1124 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0180}
0x1124…1148 Head {h00=0x0020, h01=0x0050, text=»* COMPULSORY FIELD FOUND «, t00=0x000a, t01=0x018a}
0x1148…1152 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x001e}
0x1152…117c Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW4,SPBINW3 CHANGE INDEX«, t00=0x000b, t01=0x0028}
0x117c…119a Head {h00=0x001a, h01=0x0050, text=» B CONT5 SEARCH AGAIN «, t00=0x000b, t01=0x0052}
0x119a…11a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0070}
0x11a4…11b2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x007a}
0x11b2…11bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0088}
0x11bc…11e6 Head {h00=0x0026, h01=0x0050, text=»* SET CURSOR AND READ KEYBOARD «, t00=0x000b, t01=0x0092}
0x11e6…11f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00bc}
0x11f0…1200 Head {h00=0x000c, h01=0x0050, text=»SETCREAD«, t00=0x000b, t01=0x00c6}
0x1200…122c Head {h00=0x0028, h01=0x0050, text=» SETCUR SET CURSOR ON CURRENT FIELD«, t00=0x000b, t01=0x00d6}
0x122c…1234 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0102}
0x1234…123e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x010a}
0x123e…126c Head {h00=0x002a, h01=0x0050, text=»* READ TO CURRENT FIELD ON DISPLAY «, t00=0x000b, t01=0x0114}
0x126c…1276 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0142}
0x1276…1284 Head {h00=0x000a, h01=0x0050, text=»READIN«, t00=0x000b, t01=0x014c}
0x1284…12b8 Head {h00=0x0030, h01=0x0050, text=» DYKI SPINPUT,PSPKTAB1,PSPKTAB2,SPBINW1, C «, t00=0x000b, t01=0x015a}
0x12b8…12d2 Head {h00=0x0016, h01=0x0050, text=» SPBINW2,SPBINW4 «, t00=0x000b, t01=0x018e}
0x12d2…12ea Head {h00=0x0014, h01=0x0050, text=» BL ERRPRT ERROR«, t00=0x000c, t01=0x0018}
0x12ea…133a Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x000c, t01=0x0030}
0x133a…1354 Head {h00=0x0016, h01=0x0050, text=»* PTSDEMO SPECIAL «, t00=0x000c, t01=0x0080}
0x1354…1390 Head {h00=0x0038, h01=0x0050, text=» PERF QHSPKY,SPBINW2,KWSPEOI,KWSPKTB ADAPT SPBINW2«, t00=0x000c, t01=0x009a}
0x1390…13e0 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x000c, t01=0x00d6}
0x13e0…1416 Head {h00=0x0032, h01=0x0050, text=» CBNG SPBINW2,='0',RETUR JUMP IF POWER OFF OR «, t00=0x000c, t01=0x0126}
0x1416…142e Head {h00=0x0014, h01=0x0050, text=» KEY SWITCHES «, t00=0x000c, t01=0x015c}
0x142e…143c Head {h00=0x000a, h01=0x0050, text=»DYKOUT«, t00=0x000c, t01=0x0174}
0x143c…1468 Head {h00=0x0028, h01=0x0050, text=» IB SPBINW2,UPD300,CLEA20 JUMP ON C «, t00=0x000c, t01=0x0182}
0x1468…1486 Head {h00=0x001a, h01=0x0050, text=» UPDATE,CANC,CANC, C«, t00=0x000d, t01=0x001e}
0x1486…14b8 Head {h00=0x002e, h01=0x0050, text=» UPDATE,UPDATE,UPDATE,UPDATE CONVERTED C «, t00=0x000d, t01=0x003c}
0x14b8…14f0 Head {h00=0x0034, h01=0x0050, text=» UPDATE,UPDATE,UPDATE,UPDATE END-OF-ITEM-KEY C «, t00=0x000d, t01=0x006e}
0x14f0…150c Head {h00=0x0018, h01=0x0050, text=» UPDATE,KDUPL,KEDIT«, t00=0x000d, t01=0x00a6}
0x150c…151a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x00c2}
0x151a…1524 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00d0}
0x1524…155c Head {h00=0x0034, h01=0x0050, text=»* HANDLE THE RESPECTIVE KEY AS EOI-KEY FIRST «, t00=0x000d, t01=0x00da}
0x155c…1566 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0112}
0x1566…1574 Head {h00=0x000a, h01=0x0050, text=»UPDATE«, t00=0x000d, t01=0x011c}
0x1574…15a8 Head {h00=0x0030, h01=0x0050, text=» CBE SPBINW1,='0',UPD350 JUMP IF LENGTH = 0 «, t00=0x000d, t01=0x012a}
0x15a8…15d2 Head {h00=0x0026, h01=0x0050, text=» GETCTL 3,SPBINW4 GET SCHK-NUMBER «, t00=0x000d, t01=0x015e}
0x15d2…160e Head {h00=0x0038, h01=0x0050, text=» CBE SPBINW4,='0',UPD050 JUMP IF NOT STANDARD CHECK «, t00=0x000d, t01=0x0188}
0x160e…163c Head {h00=0x002a, h01=0x0050, text=» PERFI SPBINW4,SPCHK1,SPCHK2,SPCHK3 C«, t00=0x000e, t01=0x0034}
0x163c…1662 Head {h00=0x0022, h01=0x0050, text=» SPCHK4,SPCHK5,SPCHK6,SPCHK7 «, t00=0x000e, t01=0x0062}
0x1662…168c Head {h00=0x0026, h01=0x0050, text=» IB SPBINW3,UPD100,UPD070,ERRPRINT«, t00=0x000e, t01=0x0088}
0x168c…1696 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00b2}
0x1696…16ba Head {h00=0x0020, h01=0x0050, text=»* CONDITIONAL DISPLAYING «, t00=0x000e, t01=0x00bc}
0x16ba…16c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00e0}
0x16c4…16d2 Head {h00=0x000a, h01=0x0050, text=»UPD050«, t00=0x000e, t01=0x00ea}
0x16d2…1702 Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW4,='1' INDICATE COND. DISPL «, t00=0x000e, t01=0x00f8}
0x1702…1714 Head {h00=0x000e, h01=0x0050, text=» B UPD200 «, t00=0x000e, t01=0x0128}
0x1714…1722 Head {h00=0x000a, h01=0x0050, text=»UPD070«, t00=0x000e, t01=0x013a}
0x1722…174a Head {h00=0x0024, h01=0x0050, text=» GETCTL 0,SPBINW3 GET APPL-VALUE«, t00=0x000e, t01=0x0148}
0x174a…177e Head {h00=0x0030, h01=0x0050, text=» CBNE SPBINW3,='0',UPD210 JUMP IF APPL VALUE«, t00=0x000e, t01=0x0170}
0x177e…1792 Head {h00=0x0010, h01=0x0050, text=» B SETCREAD «, t00=0x000f, t01=0x0014}
0x1792…179c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0028}
0x179c…17c2 Head {h00=0x0022, h01=0x0050, text=»* UNCONDITIONAL DISPLAYING «, t00=0x000f, t01=0x0032}
0x17c2…17cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0058}
0x17cc…17da Head {h00=0x000a, h01=0x0050, text=»UPD100«, t00=0x000f, t01=0x0062}
0x17da…1814 Head {h00=0x0036, h01=0x0050, text=» MOVE SPBINW4,='2' INDICATE UNCONDITIONAL DISPLAY «, t00=0x000f, t01=0x0070}
0x1814…1822 Head {h00=0x000a, h01=0x0050, text=»UPD200«, t00=0x000f, t01=0x00aa}
0x1822…184a Head {h00=0x0024, h01=0x0050, text=» GETCTL 0,SPBINW3 GET APPL-VALUE«, t00=0x000f, t01=0x00b8}
0x184a…1880 Head {h00=0x0032, h01=0x0050, text=» CBE SPBINW3,='0',UPD400 JUMP IF NO APPL VALUE«, t00=0x000f, t01=0x00e0}
0x1880…188a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0116}
0x188a…18b6 Head {h00=0x0028, h01=0x0050, text=»* APPL-VALUE DIFFERENT FROM ZERO «, t00=0x000f, t01=0x0120}
0x18b6…18c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x014c}
0x18c0…18ce Head {h00=0x000a, h01=0x0050, text=»UPD210«, t00=0x000f, t01=0x0156}
0x18ce…18e2 Head {h00=0x0010, h01=0x0050, text=» PERF SPAPPL«, t00=0x000f, t01=0x0164}
0x18e2…190e Head {h00=0x0028, h01=0x0050, text=» IB SPBINW3,UPD260,SETCREAD,ERRPRINT«, t00=0x000f, t01=0x0178}
0x190e…1920 Head {h00=0x000e, h01=0x0050, text=» B UPD400 «, t00=0x0010, t01=0x0014}
0x1920…192a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0026}
0x192a…194c Head {h00=0x001e, h01=0x0050, text=»* OK AFTER APPL CONTROL«, t00=0x0010, t01=0x0030}
0x194c…1972 Head {h00=0x0022, h01=0x0050, text=»* UNCONDITIONAL DISPLAYING «, t00=0x0010, t01=0x0052}
0x1972…197c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0078}
0x197c…198a Head {h00=0x000a, h01=0x0050, text=»UPD260«, t00=0x0010, t01=0x0082}
0x198a…19c0 Head {h00=0x0032, h01=0x0050, text=» UPDFLD 1,SPINPUT UPDATE FIELD WITH DISPLAYING«, t00=0x0010, t01=0x0090}
0x19c0…19f2 Head {h00=0x002e, h01=0x0050, text=»UPD300 SET SPCHANGE INDICATE CHANGED ITEM «, t00=0x0010, t01=0x00c6}
0x19f2…1a00 Head {h00=0x000a, h01=0x0050, text=»UPD350«, t00=0x0010, t01=0x00f8}
0x1a00…1a28 Head {h00=0x0024, h01=0x0050, text=»* JUMP ON FUNCTION KEY INDEX «, t00=0x0010, t01=0x0106}
0x1a28…1a4c Head {h00=0x0020, h01=0x0050, text=» IB SPBINW2,READIN,DUMMY, C«, t00=0x0010, t01=0x012e}
0x1a4c…1a70 Head {h00=0x0020, h01=0x0050, text=» KEOI,DUMMY,DUMMY,KTFWD, C«, t00=0x0010, t01=0x0152}
0x1a70…1aa2 Head {h00=0x002e, h01=0x0050, text=» KTBWD,KTHOME,KTLDOWN,KTLEFT,KTRIGHT, C «, t00=0x0010, t01=0x0176}
0x1aa2…1ad0 Head {h00=0x002a, h01=0x0050, text=» KTDOWN,KTUP,KCOPY,DUMMY,DUMMY,KENTER«, t00=0x0011, t01=0x0018}
0x1ad0…1b00 Head {h00=0x002c, h01=0x0050, text=» SUB SPBINW2,=W'14' ADJUST EOI-KEY INDEX«, t00=0x0011, t01=0x0046}
0x1b00…1b0e Head {h00=0x000a, h01=0x0050, text=»DUMMY «, t00=0x0011, t01=0x0076}
0x1b0e…1b1c Head {h00=0x000a, h01=0x0050, text=»RETUR «, t00=0x0011, t01=0x0084}
0x1b1c…1b28 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0011, t01=0x0092}
0x1b28…1b32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x009e}
0x1b32…1b40 Head {h00=0x000a, h01=0x0050, text=»UPD400«, t00=0x0011, t01=0x00a8}
0x1b40…1b7c Head {h00=0x0038, h01=0x0050, text=» CBE SPBINW4,='2',UPD260 JUMP IF UNCONDITIONAL DISPL«, t00=0x0011, t01=0x00b6}
0x1b7c…1bb0 Head {h00=0x0030, h01=0x0050, text=» UPDFLD 0,SPINPUT UPDATE FIELD DISPL. COND. «, t00=0x0011, t01=0x00f2}
0x1bb0…1bc2 Head {h00=0x000e, h01=0x0050, text=» B UPD300 «, t00=0x0011, t01=0x0126}
0x1bc2…1bcc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0138}
0x1bcc…1bda Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x0142}
0x1bda…1c00 Head {h00=0x0022, h01=0x0050, text=»KEOI COMMON END-OF-ITEM KEY «, t00=0x0011, t01=0x0150}
0x1c00…1c24 Head {h00=0x0020, h01=0x0050, text=»KTFWD TAB. FORWARD 1 STEP «, t00=0x0011, t01=0x0176}
0x1c24…1c32 Head {h00=0x000a, h01=0x0050, text=» TFWD «, t00=0x0012, t01=0x000a}
0x1c32…1c44 Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x0012, t01=0x0018}
0x1c44…1c4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x002a}
0x1c4e…1c76 Head {h00=0x0024, h01=0x0050, text=»KTBWD TABULATION 1 STEP BACKW.«, t00=0x0012, t01=0x0034}
0x1c76…1c84 Head {h00=0x000a, h01=0x0050, text=» TBWD «, t00=0x0012, t01=0x005c}
0x1c84…1c96 Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x0012, t01=0x006a}
0x1c96…1ca0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x007c}
0x1ca0…1cc6 Head {h00=0x0022, h01=0x0050, text=»KTHOME TAB. TO HOME POSITION«, t00=0x0012, t01=0x0086}
0x1cc6…1cd4 Head {h00=0x000a, h01=0x0050, text=» THOME«, t00=0x0012, t01=0x00ac}
0x1cd4…1ce6 Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x0012, t01=0x00ba}
0x1ce6…1cf0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00cc}
0x1cf0…1d1c Head {h00=0x0028, h01=0x0050, text=»KTLDOWN TAB. TO FIRST ON NEXT LINE«, t00=0x0012, t01=0x00d6}
0x1d1c…1d2c Head {h00=0x000c, h01=0x0050, text=» TLDOWN «, t00=0x0012, t01=0x0102}
0x1d2c…1d3e Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x0012, t01=0x0112}
0x1d3e…1d48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0124}
0x1d48…1d6a Head {h00=0x001e, h01=0x0050, text=»KTLEFT TAB. TO LEFTMOST «, t00=0x0012, t01=0x012e}
0x1d6a…1d78 Head {h00=0x000a, h01=0x0050, text=» TLEFT«, t00=0x0012, t01=0x0150}
0x1d78…1d8a Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x0012, t01=0x015e}
0x1d8a…1d94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0170}
0x1d94…1db8 Head {h00=0x0020, h01=0x0050, text=»KTRIGHT TAB. TO RIGHTMOST «, t00=0x0012, t01=0x017a}
0x1db8…1dc8 Head {h00=0x000c, h01=0x0050, text=» TRIGHT «, t00=0x0013, t01=0x000e}
0x1dc8…1dda Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x0013, t01=0x001e}
0x1dda…1de4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0030}
0x1de4…1e00 Head {h00=0x0018, h01=0x0050, text=»KTDOWN TAB 1 DOWN «, t00=0x0013, t01=0x003a}
0x1e00…1e0e Head {h00=0x000a, h01=0x0050, text=» TDOWN«, t00=0x0013, t01=0x0056}
0x1e0e…1e20 Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x0013, t01=0x0064}
0x1e20…1e2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0076}
0x1e2a…1e42 Head {h00=0x0014, h01=0x0050, text=»KTUP TAB 1 UP «, t00=0x0013, t01=0x0080}
0x1e42…1e4e Head {h00=0x0008, h01=0x0050, text=» TUP«, t00=0x0013, t01=0x0098}
0x1e4e…1e56 Head {h00=0x0004, h01=0x0050, t00=0x0013, t01=0x00a4}
0x1e56…1e76 Head {h00=0x001c, h01=0x0050, text=»TSTTAB TEST TAB OUTPUT«, t00=0x0013, t01=0x00ac}
0x1e76…1e8c Head {h00=0x0012, h01=0x0050, text=» BE READIN OK «, t00=0x0013, t01=0x00cc}
0x1e8c…1eaa Head {h00=0x001a, h01=0x0050, text=» BL SETCREAD NOT FOUND«, t00=0x0013, t01=0x00e2}
0x1eaa…1ed8 Head {h00=0x002a, h01=0x0050, text=» BOFL SETCREAD EMPTY COMPULSORY FIELD «, t00=0x0013, t01=0x0100}
0x1ed8…1ee2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x012e}
0x1ee2…1eec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0138}
0x1eec…1f10 Head {h00=0x0020, h01=0x0050, text=»* CONDITIONAL TABULATION «, t00=0x0013, t01=0x0142}
0x1f10…1f1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0166}
0x1f1a…1f2e Head {h00=0x0010, h01=0x0050, text=» PERF SPTCHK«, t00=0x0013, t01=0x0170}
0x1f2e…1f50 Head {h00=0x001e, h01=0x0050, text=» CBE SPBINW3,='0',SETCREAD«, t00=0x0013, t01=0x0184}
0x1f50…1f74 Head {h00=0x0020, h01=0x0050, text=» IB SPBINW2,DUMMY,DUMMY, C «, t00=0x0014, t01=0x0016}
0x1f74…1f9a Head {h00=0x0022, h01=0x0050, text=» KTFWD,DUMMY,DUMMY,KTFWD, C «, t00=0x0014, t01=0x003a}
0x1f9a…1fc0 Head {h00=0x0022, h01=0x0050, text=» KTBWD,KTFWD,KTFWD,KTFWD, C «, t00=0x0014, t01=0x0060}
0x1fc0…1fdc Head {h00=0x0018, h01=0x0050, text=» KTBWD,KTFWD,KTBWD «, t00=0x0014, t01=0x0086}
0x1fdc…201c Head {h00=0x003c, h01=0x0050, text=»* BRANCH LIST EXHAUSTED - SPBINW2 CLOBBERED BY SPTCHK«, t00=0x0014, t01=0x00a2}
0x201c…2024 Head {h00=0x0004, h01=0x0050, t00=0x0014, t01=0x00e2}
0x2024…2038 Head {h00=0x0010, h01=0x0050, text=» B SETCREAD «, t00=0x0014, t01=0x00ea}
0x2038…2040 Head {h00=0x0004, h01=0x0050, t00=0x0014, t01=0x00fe}
0x2040…2048 Head {h00=0x0004, h01=0x0050, t00=0x0014, t01=0x0106}
0x2048…2056 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x010e}
0x2056…2070 Head {h00=0x0016, h01=0x0050, text=»KCOPY HARD COPY «, t00=0x0014, t01=0x011c}
0x2070…20c0 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0014, t01=0x0136}
0x20c0…20da Head {h00=0x0016, h01=0x0050, text=»* PTSDEMO SPECIAL «, t00=0x0014, t01=0x0186}
0x20da…20f4 Head {h00=0x0016, h01=0x0050, text=» TBF SBCP80,KCOP10«, t00=0x0015, t01=0x0010}
0x20f4…210e Head {h00=0x0016, h01=0x0050, text=» MOVE SPBINW3,='1'«, t00=0x0015, t01=0x002a}
0x210e…212c Head {h00=0x001a, h01=0x0050, text=» EDWRT SPDSCPY,FMTSKIP«, t00=0x0015, t01=0x0044}
0x212c…2150 Head {h00=0x0020, h01=0x0050, text=» PRINT SPDSCPY,SPBINW3,='0' «, t00=0x0015, t01=0x0062}
0x2150…2164 Head {h00=0x0010, h01=0x0050, text=» B SETCREAD «, t00=0x0015, t01=0x0086}
0x2164…2172 Head {h00=0x000a, h01=0x0050, text=»KCOP10«, t00=0x0015, t01=0x009a}
0x2172…2194 Head {h00=0x001e, h01=0x0050, text=» CBE RDPRTTYP,=D'4',KCOP20«, t00=0x0015, t01=0x00a8}
0x2194…21d0 Head {h00=0x0038, h01=0x0050, text=» CBNE RDPRTTYP,=D'2',SETCREAD ONLY HARDCOPY FOR GTP «, t00=0x0015, t01=0x00ca}
0x21d0…21de Head {h00=0x000a, h01=0x0050, text=»KCOP20«, t00=0x0015, t01=0x0106}
0x21de…21fc Head {h00=0x001a, h01=0x0050, text=» EDWRT SPDSPRT,FMTSKIP«, t00=0x0015, t01=0x0114}
0x21fc…224c Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0015, t01=0x0132}
0x224c…2266 Head {h00=0x0016, h01=0x0050, text=» MOVE SPBINW3,='1'«, t00=0x0015, t01=0x0182}
0x2266…228a Head {h00=0x0020, h01=0x0050, text=» PRINT SPDSPRT,SPBINW3,='0' «, t00=0x0016, t01=0x000c}
0x228a…22b2 Head {h00=0x0024, h01=0x0050, text=» B SETCREAD SET CURSOR AND READ «, t00=0x0016, t01=0x0030}
0x22b2…22bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0058}
0x22bc…22d8 Head {h00=0x0018, h01=0x0050, text=»KDUPL DUPLICATION «, t00=0x0016, t01=0x0062}
0x22d8…230a Head {h00=0x002e, h01=0x0050, text=» MOVE SPBINW2,='3' INDICATE COMMON EOI-KEY«, t00=0x0016, t01=0x007e}
0x230a…232c Head {h00=0x001e, h01=0x0050, text=» DUPL SPINPUT DUPLICATION «, t00=0x0016, t01=0x00b0}
0x232c…234c Head {h00=0x001c, h01=0x0050, text=» BZ UPD260 DUPL ALLOWED «, t00=0x0016, t01=0x00d2}
0x234c…2380 Head {h00=0x0030, h01=0x0050, text=» MOVE SPBINW4,='4' INDICATE ILLEGAL EOI-KEY «, t00=0x0016, t01=0x00f2}
0x2380…23a4 Head {h00=0x0020, h01=0x0050, text=» B ERRPRINT DUPL NOT ALLOWED«, t00=0x0016, t01=0x0126}
0x23a4…23b2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x014a}
0x23b2…23bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0158}
0x23bc…23d4 Head {h00=0x0014, h01=0x0050, text=»* EDIT FIELD «, t00=0x0016, t01=0x0162}
0x23d4…23de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x017a}
0x23de…23ec Head {h00=0x000a, h01=0x0050, text=»KEDIT «, t00=0x0016, t01=0x0184}
0x23ec…240e (23, 0, 400) Head {h00=0x001e, h01=0x0050, text=» GETCTL 1,SPBINW3 GET MAXL«, t00=0x0017, t01=0x0004}
0x240e…2430 Head {h00=0x001e, h01=0x0050, text=» CBNE SPBINW3,='0',KED100 «, t00=0x0017, t01=0x0026}
0x2430…245c Head {h00=0x0028, h01=0x0050, text=» EDWRT SPDSSCRN,BELL ACOUSTIC ALARM «, t00=0x0017, t01=0x0048}
0x245c…2470 Head {h00=0x0010, h01=0x0050, text=» B SETCREAD «, t00=0x0017, t01=0x0074}
0x2470…247e Head {h00=0x000a, h01=0x0050, text=»KED100«, t00=0x0017, t01=0x0088}
0x247e…24aa Head {h00=0x0028, h01=0x0050, text=» EDFLD SPINPUT,PSPKTAB3,SPBINW1, C «, t00=0x0017, t01=0x0096}
0x24aa…24c4 Head {h00=0x0016, h01=0x0050, text=» SPBINW2,SPBINW4 «, t00=0x0017, t01=0x00c2}
0x24c4…24dc Head {h00=0x0014, h01=0x0050, text=» BL ERRPRT ERROR«, t00=0x0017, t01=0x00dc}
0x24dc…252c Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0017, t01=0x00f4}
0x252c…2546 Head {h00=0x0016, h01=0x0050, text=»* PTSDEMO SPECIAL «, t00=0x0017, t01=0x0144}
0x2546…258c Head {h00=0x0042, h01=0x0050, text=» PERF QHSPKY,SPBINW2,KWSPEOI,KWSPKTB3 ADAPT SPBINW2 FOR KB34«, t00=0x0017, t01=0x015e}
0x258c…25dc Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0018, t01=0x0014}
0x25dc…2614 Head {h00=0x0034, h01=0x0050, text=» CBNG SPBINW2,='0',RETUR POWER OFF OR KEY SWITCH«, t00=0x0018, t01=0x0064}
0x2614…2646 Head {h00=0x002e, h01=0x0050, text=» CBNE SPBINW1,='0',KED110 LENGTH NOT ZERO «, t00=0x0018, t01=0x009c}
0x2646…2672 Head {h00=0x0028, h01=0x0050, text=» SET SPCHANGE ITEM CLEARED BY EDFLD «, t00=0x0018, t01=0x00ce}
0x2672…2680 Head {h00=0x000a, h01=0x0050, text=»KED110«, t00=0x0018, t01=0x00fa}
0x2680…26a6 Head {h00=0x0022, h01=0x0050, text=» B DYKOUT CONTINUE AS FOR DYKI«, t00=0x0018, t01=0x0108}
0x26a6…26b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x012e}
0x26b0…26c6 Head {h00=0x0012, h01=0x0050, text=»* ENTER KEY«, t00=0x0018, t01=0x0138}
0x26c6…26d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x014e}
0x26d0…26de Head {h00=0x000a, h01=0x0050, text=»KENTER«, t00=0x0018, t01=0x0158}
0x26de…2712 Head {h00=0x0030, h01=0x0050, text=» MOVE SPBINW4,='5' INDICATE COMP.FIELD FOUND«, t00=0x0018, t01=0x0166}
0x2712…2742 Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW1,='0' INDICATE NO CLEARING «, t00=0x0019, t01=0x000a}
0x2742…2778 Head {h00=0x0032, h01=0x0050, text=» MOVE SPBINW2,='0' SET INDEX TO SEARCHED FIELD«, t00=0x0019, t01=0x003a}
0x2778…27b8 Head {h00=0x003c, h01=0x0050, text=» GETFLD 0,SPBINW2,SPBINW3 SEARCH FOR EMPTY COMP. FIELDS «, t00=0x0019, t01=0x0070}
0x27b8…27e4 Head {h00=0x0028, h01=0x0050, text=» BOFL KENT10 EMPTY COMP. FIELD FOUND«, t00=0x0019, t01=0x00b0}
0x27e4…280e Head {h00=0x0026, h01=0x0050, text=» TSTCTL 2 LOOK IF COMPULSORY FIELD«, t00=0x0019, t01=0x00dc}
0x280e…2824 Head {h00=0x0012, h01=0x0050, text=» BZ KENT05 NO!«, t00=0x0019, t01=0x0106}
0x2824…2856 Head {h00=0x002e, h01=0x0050, text=» CALL EMPTYT,:FMTITEM LOOK IF EMPTY FIELD «, t00=0x0019, t01=0x011c}
0x2856…286e Head {h00=0x0014, h01=0x0050, text=» BP KENT10 YES! «, t00=0x0019, t01=0x014e}
0x286e…287c Head {h00=0x000a, h01=0x0050, text=»KENT05«, t00=0x0019, t01=0x0166}
0x287c…28b4 Head {h00=0x0034, h01=0x0050, text=» MOVE SPBINW2,='3' INDICATE ENTER KEY DEPRESSED «, t00=0x0019, t01=0x0174}
0x28b4…28c0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001a, t01=0x001c}
0x28c0…28ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0028}
0x28ca…28f4 Head {h00=0x0026, h01=0x0050, text=»* EMPTY COMPULSORY FIELD FOUND «, t00=0x001a, t01=0x0032}
0x28f4…28fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x005c}
0x28fe…290c Head {h00=0x000a, h01=0x0050, text=»KENT10«, t00=0x001a, t01=0x0066}
0x290c…2946 Head {h00=0x0036, h01=0x0050, text=» GETFLD 0,SPBINW3,SPBINW2 GET THE COMPULSORY FIELD«, t00=0x001a, t01=0x0074}
0x2946…295a Head {h00=0x0010, h01=0x0050, text=» B ERRPRINT «, t00=0x001a, t01=0x00ae}
0x295a…2968 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x00c2}
0x2968…2976 Head {h00=0x000a, h01=0x0050, text=»ERRPRT«, t00=0x001a, t01=0x00d0}
0x2976…29a4 Head {h00=0x002a, h01=0x0050, text=» CBE SPBINW2,='16',KEDIT JUMP IF EDIT «, t00=0x001a, t01=0x00de}
0x29a4…29d2 Head {h00=0x002a, h01=0x0050, text=» CBE SPBINW2,='4',CANC JUMP IF CANCEL1«, t00=0x001a, t01=0x010c}
0x29d2…2a00 Head {h00=0x002a, h01=0x0050, text=» CBE SPBINW2,='5',CANC JUMP IF CANCEL2«, t00=0x001a, t01=0x013a}
0x2a00…2a0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0168}
0x2a0a…2a26 Head {h00=0x0018, h01=0x0050, text=»* ERROR HANDLING «, t00=0x001a, t01=0x0172}
0x2a26…2a30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x018e}
0x2a30…2a40 Head {h00=0x000c, h01=0x0050, text=»ERRPRINT«, t00=0x001b, t01=0x0008}
0x2a40…2a74 Head {h00=0x0030, h01=0x0050, text=» CBE SPBINW4,='0',ERRC20 JUMP IF NO PRINTOUT«, t00=0x001b, t01=0x0018}
0x2a74…2ac4 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x001b, t01=0x004c}
0x2ac4…2ade Head {h00=0x0016, h01=0x0050, text=»* PTSDEMO SPECIAL «, t00=0x001b, t01=0x009c}
0x2ade…2b0c Head {h00=0x002a, h01=0x0050, text=» PERF XFERR1,SPBINW4,KW0 DISPLAY ERROR«, t00=0x001b, t01=0x00b6}
0x2b0c…2b5c Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x001b, t01=0x00e4}
0x2b5c…2b66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0134}
0x2b66…2b84 Head {h00=0x001a, h01=0x0050, text=»* READ AFTER ERROR «, t00=0x001b, t01=0x013e}
0x2b84…2b8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x015c}
0x2b8e…2b9c Head {h00=0x000a, h01=0x0050, text=»ERREAD«, t00=0x001b, t01=0x0166}
0x2b9c…2bc8 Head {h00=0x0028, h01=0x0050, text=» SETCUR SET CURSOR AT THE BEGINNING«, t00=0x001b, t01=0x0174}
0x2bc8…2be8 Head {h00=0x001c, h01=0x0050, text=» OF THE CURRENT FIELD «, t00=0x001c, t01=0x0010}
0x2be8…2bf6 Head {h00=0x000a, h01=0x0050, text=»ERR100«, t00=0x001c, t01=0x0030}
0x2bf6…2c24 Head {h00=0x002a, h01=0x0050, text=» MOVE SPBINW3,=W'14' REQUESTED LENGTH «, t00=0x001c, t01=0x003e}
0x2c24…2c5e Head {h00=0x0036, h01=0x0050, text=» NKI .NE,SPDSDYKB,SPINPUT,PSPKTAB1,SPBINW3,SPBINW2«, t00=0x001c, t01=0x006c}
0x2c5e…2c80 Head {h00=0x001e, h01=0x0050, text=» BNZ ERR100 JUMP IF NOT OK«, t00=0x001c, t01=0x00a6}
0x2c80…2cd0 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x001c, t01=0x00c8}
0x2cd0…2cea Head {h00=0x0016, h01=0x0050, text=»* PTSDEMO SPECIAL «, t00=0x001c, t01=0x0118}
0x2cea…2d08 Head {h00=0x001a, h01=0x0050, text=» MOVE SPBINW3,KWSPEOI «, t00=0x001c, t01=0x0132}
0x2d08…2d30 Head {h00=0x0024, h01=0x0050, text=» ADD SPBINW3,=W'1' ADJUST INDEX «, t00=0x001c, t01=0x0150}
0x2d30…2d76 Head {h00=0x0042, h01=0x0050, text=» PERF QHSPKY,SPBINW2,SPBINW3,KWSPKTB ADAPT SPBINW2 FOR KB34 «, t00=0x001c, t01=0x0178}
0x2d76…2dc6 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x001d, t01=0x002e}
0x2dc6…2df8 Head {h00=0x002e, h01=0x0050, text=» CBE SPBINW2,='0',RETUR JUMP IF POWER OFF «, t00=0x001d, t01=0x007e}
0x2df8…2e1e Head {h00=0x0022, h01=0x0050, text=» IB SPBINW2,ERR100,ERRCONT C «, t00=0x001d, t01=0x00b0}
0x2e1e…2e46 Head {h00=0x0024, h01=0x0050, text=» ERRCONT,ERR100,ERRCONT,ERRCONT«, t00=0x001d, t01=0x00d6}
0x2e46…2e60 Head {h00=0x0016, h01=0x0050, text=» B ERR100 CONTINUE«, t00=0x001d, t01=0x00fe}
0x2e60…2e6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0118}
0x2e6a…2e8c Head {h00=0x001e, h01=0x0050, text=»* CLEAR ERROR PRINTOUT «, t00=0x001d, t01=0x0122}
0x2e8c…2e96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0144}
0x2e96…2ea6 Head {h00=0x000c, h01=0x0050, text=»ERRCONT «, t00=0x001d, t01=0x014e}
0x2ea6…2ef6 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x001d, t01=0x015e}
0x2ef6…2f10 Head {h00=0x0016, h01=0x0050, text=»* PTSDEMO SPECIAL «, t00=0x001e, t01=0x001e}
0x2f10…2f3c Head {h00=0x0028, h01=0x0050, text=» PERF XCLAMP,KW3,KW0 ERROR LAMP OFF «, t00=0x001e, t01=0x0038}
0x2f3c…2f66 Head {h00=0x0026, h01=0x0050, text=» PERF XCLAMP,KW1,KW1 READY LAMP ON«, t00=0x001e, t01=0x0064}
0x2f66…2f98 Head {h00=0x002e, h01=0x0050, text=» MOVE SPBINW3,SPLSTLNE INDICATE LAST LINE «, t00=0x001e, t01=0x008e}
0x2f98…2fe2 Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x001e, t01=0x00c0}
0x2fe2…3012 Head {h00=0x002c, h01=0x0050, text=» ERASE 0,SPBINW3,SPBINW3 ERASE LAST LINE«, t00=0x001e, t01=0x010a}
0x3012…303c Head {h00=0x0026, h01=0x0050, text=» SUB SPBINW2,='1' ADJUST KEY INDEX«, t00=0x001e, t01=0x013a}
0x303c…3048 Head {h00=0x0008, h01=0x0050, text=»CANC«, t00=0x001e, t01=0x0164}
0x3048…307c Head {h00=0x0030, h01=0x0050, text=» CBE SPBINW1,='0',ERRC10 JUMP IF LENGTH = 0 «, t00=0x001e, t01=0x0170}
0x307c…30b0 Head {h00=0x0030, h01=0x0050, text=» MOVE SPINPUT,:FMTITEM SAVE CURRENT CONTENTS«, t00=0x001f, t01=0x0014}
0x30b0…30e8 Head {h00=0x0034, h01=0x0050, text=» MOVE :FMTITEM,=C'1' PUT SOMETHING IN THE FIELD «, t00=0x001f, t01=0x0048}
0x30e8…3112 Head {h00=0x0026, h01=0x0050, text=» GETABX SPBINW4 GET CURRENT INDEX «, t00=0x001f, t01=0x0080}
0x3112…3140 Head {h00=0x002a, h01=0x0050, text=» ERASE 10,SPBINW4,SPBINW4 CLEAR FIELD «, t00=0x001f, t01=0x00aa}
0x3140…314e Head {h00=0x000a, h01=0x0050, text=»ERRC10«, t00=0x001f, t01=0x00d8}
0x314e…3176 Head {h00=0x0024, h01=0x0050, text=» IB SPBINW2,CLEAR1,CLEAR2,DUMMY «, t00=0x001f, t01=0x00e6}
0x3176…31aa Head {h00=0x0030, h01=0x0050, text=» SUB SPBINW2,='3' ADJUST FOR CANCEL1,CANCEL2«, t00=0x001f, t01=0x010e}
0x31aa…31b6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001f, t01=0x0142}
0x31b6…31c4 Head {h00=0x000a, h01=0x0050, text=»CLEAR1«, t00=0x001f, t01=0x014e}
0x31c4…31f8 Head {h00=0x0030, h01=0x0050, text=» CBE SPBINW1,='0',ERRC20 JUMP IF LENGTH = 0 «, t00=0x001f, t01=0x015c}
0x31f8…3224 Head {h00=0x0028, h01=0x0050, text=» SET SPCHANGE INDICATE CHANGED FIELD«, t00=0x001f, t01=0x0190}
0x3224…3232 Head {h00=0x000a, h01=0x0050, text=»ERRC20«, t00=0x0020, t01=0x002c}
0x3232…324e Head {h00=0x0018, h01=0x0050, text=» B SETCREAD CONTINUE«, t00=0x0020, t01=0x003a}
0x324e…3258 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0056}
0x3258…3266 Head {h00=0x000a, h01=0x0050, text=»CLEAR2«, t00=0x0020, t01=0x0060}
0x3266…3298 Head {h00=0x002e, h01=0x0050, text=» CBE SPBINW1,='0',CLEA20 JUMP IF LENGTH 0 «, t00=0x0020, t01=0x006e}
0x3298…32d0 Head {h00=0x0034, h01=0x0050, text=» MOVE :FMTITEM,SPINPUT RESTORE CURRENT CONTENTS «, t00=0x0020, t01=0x00a0}
0x32d0…32de Head {h00=0x000a, h01=0x0050, text=»CLEA20«, t00=0x0020, t01=0x00d8}
0x32de…330c Head {h00=0x002a, h01=0x0050, text=» GETABX SPBINW4 GET CURRENT TAB INDEX «, t00=0x0020, t01=0x00e6}
0x330c…333c Head {h00=0x002c, h01=0x0050, text=» DISPLAY 1,SPBINW4,SPBINW4 DISPLAY FIELD«, t00=0x0020, t01=0x0114}
0x333c…3358 Head {h00=0x0018, h01=0x0050, text=» B SETCREAD CONTINUE«, t00=0x0020, t01=0x0144}
0x3358…3362 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0160}
0x3362…3374 Head {h00=0x000e, h01=0x0050, text=»BELL FRMT «, t00=0x0020, t01=0x016a}
0x3374…3380 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0020, t01=0x017c}
0x3380…3396 Head {h00=0x0012, h01=0x0050, text=» FILLR X'07',1«, t00=0x0020, t01=0x0188}
0x3396…33a4 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0021, t01=0x000e}
0x33a4…33ac Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x001c}
0x33ac…33fc Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0021, t01=0x0024}
0x33fc…3416 Head {h00=0x0016, h01=0x0050, text=»* PTSDEMO SPECIAL «, t00=0x0021, t01=0x0074}
0x3416…342a Head {h00=0x0010, h01=0x0050, text=»FMTSKIP FRMT«, t00=0x0021, t01=0x008e}
0x342a…344a Head {h00=0x001c, h01=0x0050, text=» FTEXT '00' SKIP 2 LINES«, t00=0x0021, t01=0x00a2}
0x344a…3458 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0021, t01=0x00c2}
0x3458…34a8 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0021, t01=0x00d0}
0x34a8…34b6 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0021, t01=0x0120}
0x34b6…34be Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x012e}
0x34be…34ca Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0021, t01=0x0136}
0x34ca…34ce Head {h00=0x4004, h01=0x0000}
0x34ce…34d0 00 21 ┆ !┆
0x34d0…34d2 01 42 ┆ B┆
0x34d2…34da (34, 1, 8) 20 04 00 00 00 22 00 04 ┆ " ┆
0x34da…352a (35, 0, 400) 4c 5c 27 5a 5a 5a 56 5a 5a 5a 56 5a 5a 5a 2c 5a 5a 27 2c 49 44 41 4d 54 32 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 d2 01 8c 00 4c 00 50 5c 46 4d 45 ┆L 'ZZZVZZZVZZZ,ZZ',IDAMT2 L P FME┆
0x352a…357a 4e 44 5c 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 d3 00 4c 00 4c 00 50 2a 2a 2a 2a ┆ND L L P****┆
0x357a…35ca 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 d3 00 9c 00 54 00 50 4d 53 47 30 ┆******************************************************************** T PMSG0┆
0x35ca…361a 36 32 5c 46 52 4d 54 5c 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 d3 00 ec ┆62 FRMT ┆
0x361a…366a 00 54 00 50 5c 46 53 4c 5c 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ T P FSL ┆
0x366a…36ba (36, 0, 400) 00 00 00 00 00 d3 01 44 00 54 00 50 5c 46 42 4e 5a 5c 59 44 4d 4c 50 49 4e 54 2c 4d 30 36 32 31 30 30 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ D T P FBNZ YDMLPINT,M062100 ┆
0x36ba…370a 00 00 00 00 00 00 00 00 00 00 00 00 00 d4 00 0c 00 54 00 50 5c 46 54 45 58 54 5c 27 4d 4f 55 4e 54 20 43 4f 4e 54 49 4e 55 4f 55 53 20 53 54 41 54 49 4f 4e 41 52 59 20 4f 4e 20 47 54 50 27 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ T P FTEXT 'MOUNT CONTINUOUS STATIONARY ON GTP' ┆
0x370a…375a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 d4 00 64 00 54 00 50 5c 46 42 5c 4d 30 36 32 39 39 39 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ d T P FB M062999 ┆
0x375a…37aa 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 d4 00 bc 00 54 00 50 4d 30 36 32 31 30 30 5c 5c 5c 5c 5c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ T PM062100 ┆
0x37aa…37fa 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 d4 01 14 00 54 00 50 5c 46 54 45 58 54 5c 27 4d 4f 55 4e 54 20 43 4f 4e 54 49 4e 55 4f 55 53 20 53 54 41 54 49 4f 4e 41 52 59 20 ┆ T P FTEXT 'MOUNT CONTINUOUS STATIONARY ┆