|
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: 14116 (0x3724)
Notes: pts_type(SC)
Names: »DEMSCR.SC«
└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
└─⟦this⟧ »DEMO6800/DEMSCR.SC«
└─⟦e276fd206⟧ Bits:30009696 Philips computer tape "600413"
└─⟦this⟧ »DEMO6800/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 CBNE RDPRTTYP,=D'2',SETCREAD ONLY HARDCOPY FOR GTP 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',DYKOUT LENGTH NOT ZERO SET SPCHANGE ITEM CLEARED BY EDFLD 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…2116 Head {h00=0x0038, h01=0x0050, text=» CBNE RDPRTTYP,=D'2',SETCREAD ONLY HARDCOPY FOR GTP «, t00=0x0015, t01=0x0010}
0x2116…2134 Head {h00=0x001a, h01=0x0050, text=» EDWRT SPDSPRT,FMTSKIP«, t00=0x0015, t01=0x004c}
0x2134…2184 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0015, t01=0x006a}
0x2184…219e Head {h00=0x0016, h01=0x0050, text=» MOVE SPBINW3,='1'«, t00=0x0015, t01=0x00ba}
0x219e…21c2 Head {h00=0x0020, h01=0x0050, text=» PRINT SPDSPRT,SPBINW3,='0' «, t00=0x0015, t01=0x00d4}
0x21c2…21ea Head {h00=0x0024, h01=0x0050, text=» B SETCREAD SET CURSOR AND READ «, t00=0x0015, t01=0x00f8}
0x21ea…21f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0120}
0x21f4…2210 Head {h00=0x0018, h01=0x0050, text=»KDUPL DUPLICATION «, t00=0x0015, t01=0x012a}
0x2210…2242 Head {h00=0x002e, h01=0x0050, text=» MOVE SPBINW2,='3' INDICATE COMMON EOI-KEY«, t00=0x0015, t01=0x0146}
0x2242…2264 Head {h00=0x001e, h01=0x0050, text=» DUPL SPINPUT DUPLICATION «, t00=0x0015, t01=0x0178}
0x2264…2284 Head {h00=0x001c, h01=0x0050, text=» BZ UPD260 DUPL ALLOWED «, t00=0x0016, t01=0x000a}
0x2284…22b8 Head {h00=0x0030, h01=0x0050, text=» MOVE SPBINW4,='4' INDICATE ILLEGAL EOI-KEY «, t00=0x0016, t01=0x002a}
0x22b8…22dc Head {h00=0x0020, h01=0x0050, text=» B ERRPRINT DUPL NOT ALLOWED«, t00=0x0016, t01=0x005e}
0x22dc…22ea Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x0082}
0x22ea…22f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0090}
0x22f4…230c Head {h00=0x0014, h01=0x0050, text=»* EDIT FIELD «, t00=0x0016, t01=0x009a}
0x230c…2316 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00b2}
0x2316…2324 Head {h00=0x000a, h01=0x0050, text=»KEDIT «, t00=0x0016, t01=0x00bc}
0x2324…2346 Head {h00=0x001e, h01=0x0050, text=» GETCTL 1,SPBINW3 GET MAXL«, t00=0x0016, t01=0x00ca}
0x2346…2368 Head {h00=0x001e, h01=0x0050, text=» CBNE SPBINW3,='0',KED100 «, t00=0x0016, t01=0x00ec}
0x2368…2394 Head {h00=0x0028, h01=0x0050, text=» EDWRT SPDSSCRN,BELL ACOUSTIC ALARM «, t00=0x0016, t01=0x010e}
0x2394…23a8 Head {h00=0x0010, h01=0x0050, text=» B SETCREAD «, t00=0x0016, t01=0x013a}
0x23a8…23b6 Head {h00=0x000a, h01=0x0050, text=»KED100«, t00=0x0016, t01=0x014e}
0x23b6…23e2 Head {h00=0x0028, h01=0x0050, text=» EDFLD SPINPUT,PSPKTAB3,SPBINW1, C «, t00=0x0016, t01=0x015c}
0x23e2…23fc Head {h00=0x0016, h01=0x0050, text=» SPBINW2,SPBINW4 «, t00=0x0016, t01=0x0188}
0x23fc…2414 Head {h00=0x0014, h01=0x0050, text=» BL ERRPRT ERROR«, t00=0x0017, t01=0x0012}
0x2414…2464 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0017, t01=0x002a}
0x2464…247e Head {h00=0x0016, h01=0x0050, text=»* PTSDEMO SPECIAL «, t00=0x0017, t01=0x007a}
0x247e…24c4 Head {h00=0x0042, h01=0x0050, text=» PERF QHSPKY,SPBINW2,KWSPEOI,KWSPKTB3 ADAPT SPBINW2 FOR KB34«, t00=0x0017, t01=0x0094}
0x24c4…2514 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0017, t01=0x00da}
0x2514…254c Head {h00=0x0034, h01=0x0050, text=» CBNG SPBINW2,='0',RETUR POWER OFF OR KEY SWITCH«, t00=0x0017, t01=0x012a}
0x254c…257e Head {h00=0x002e, h01=0x0050, text=» CBNE SPBINW1,='0',DYKOUT LENGTH NOT ZERO «, t00=0x0017, t01=0x0162}
0x257e…25aa (24, 0, 400) Head {h00=0x0028, h01=0x0050, text=» SET SPCHANGE ITEM CLEARED BY EDFLD «, t00=0x0018, t01=0x0004}
0x25aa…25d0 Head {h00=0x0022, h01=0x0050, text=» B DYKOUT CONTINUE AS FOR DYKI«, t00=0x0018, t01=0x0030}
0x25d0…25da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0056}
0x25da…25f0 Head {h00=0x0012, h01=0x0050, text=»* ENTER KEY«, t00=0x0018, t01=0x0060}
0x25f0…25fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0076}
0x25fa…2608 Head {h00=0x000a, h01=0x0050, text=»KENTER«, t00=0x0018, t01=0x0080}
0x2608…263c Head {h00=0x0030, h01=0x0050, text=» MOVE SPBINW4,='5' INDICATE COMP.FIELD FOUND«, t00=0x0018, t01=0x008e}
0x263c…266c Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW1,='0' INDICATE NO CLEARING «, t00=0x0018, t01=0x00c2}
0x266c…26a2 Head {h00=0x0032, h01=0x0050, text=» MOVE SPBINW2,='0' SET INDEX TO SEARCHED FIELD«, t00=0x0018, t01=0x00f2}
0x26a2…26e2 Head {h00=0x003c, h01=0x0050, text=» GETFLD 0,SPBINW2,SPBINW3 SEARCH FOR EMPTY COMP. FIELDS «, t00=0x0018, t01=0x0128}
0x26e2…270e Head {h00=0x0028, h01=0x0050, text=» BOFL KENT10 EMPTY COMP. FIELD FOUND«, t00=0x0018, t01=0x0168}
0x270e…2738 (25, 0, 398) Head {h00=0x0026, h01=0x0050, text=» TSTCTL 2 LOOK IF COMPULSORY FIELD«, t00=0x0019, t01=0x0004}
0x2738…274e Head {h00=0x0012, h01=0x0050, text=» BZ KENT05 NO!«, t00=0x0019, t01=0x002e}
0x274e…2780 Head {h00=0x002e, h01=0x0050, text=» CALL EMPTYT,:FMTITEM LOOK IF EMPTY FIELD «, t00=0x0019, t01=0x0044}
0x2780…2798 Head {h00=0x0014, h01=0x0050, text=» BP KENT10 YES! «, t00=0x0019, t01=0x0076}
0x2798…27a6 Head {h00=0x000a, h01=0x0050, text=»KENT05«, t00=0x0019, t01=0x008e}
0x27a6…27de Head {h00=0x0034, h01=0x0050, text=» MOVE SPBINW2,='3' INDICATE ENTER KEY DEPRESSED «, t00=0x0019, t01=0x009c}
0x27de…27ea Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0019, t01=0x00d4}
0x27ea…27f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00e0}
0x27f4…281e Head {h00=0x0026, h01=0x0050, text=»* EMPTY COMPULSORY FIELD FOUND «, t00=0x0019, t01=0x00ea}
0x281e…2828 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0114}
0x2828…2836 Head {h00=0x000a, h01=0x0050, text=»KENT10«, t00=0x0019, t01=0x011e}
0x2836…2870 Head {h00=0x0036, h01=0x0050, text=» GETFLD 0,SPBINW3,SPBINW2 GET THE COMPULSORY FIELD«, t00=0x0019, t01=0x012c}
0x2870…2884 Head {h00=0x0010, h01=0x0050, text=» B ERRPRINT «, t00=0x0019, t01=0x0166}
0x2884…2892 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x017a}
0x2892…28a0 Head {h00=0x000a, h01=0x0050, text=»ERRPRT«, t00=0x0019, t01=0x0188}
0x28a0…28ce Head {h00=0x002a, h01=0x0050, text=» CBE SPBINW2,='16',KEDIT JUMP IF EDIT «, t00=0x001a, t01=0x0008}
0x28ce…28fc Head {h00=0x002a, h01=0x0050, text=» CBE SPBINW2,='4',CANC JUMP IF CANCEL1«, t00=0x001a, t01=0x0036}
0x28fc…292a Head {h00=0x002a, h01=0x0050, text=» CBE SPBINW2,='5',CANC JUMP IF CANCEL2«, t00=0x001a, t01=0x0064}
0x292a…2934 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0092}
0x2934…2950 Head {h00=0x0018, h01=0x0050, text=»* ERROR HANDLING «, t00=0x001a, t01=0x009c}
0x2950…295a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00b8}
0x295a…296a Head {h00=0x000c, h01=0x0050, text=»ERRPRINT«, t00=0x001a, t01=0x00c2}
0x296a…299e Head {h00=0x0030, h01=0x0050, text=» CBE SPBINW4,='0',ERRC20 JUMP IF NO PRINTOUT«, t00=0x001a, t01=0x00d2}
0x299e…29ee Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x001a, t01=0x0106}
0x29ee…2a08 Head {h00=0x0016, h01=0x0050, text=»* PTSDEMO SPECIAL «, t00=0x001a, t01=0x0156}
0x2a08…2a36 Head {h00=0x002a, h01=0x0050, text=» PERF XFERR1,SPBINW4,KW0 DISPLAY ERROR«, t00=0x001a, t01=0x0170}
0x2a36…2a86 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x001b, t01=0x000e}
0x2a86…2a90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x005e}
0x2a90…2aae Head {h00=0x001a, h01=0x0050, text=»* READ AFTER ERROR «, t00=0x001b, t01=0x0068}
0x2aae…2ab8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0086}
0x2ab8…2ac6 Head {h00=0x000a, h01=0x0050, text=»ERREAD«, t00=0x001b, t01=0x0090}
0x2ac6…2af2 Head {h00=0x0028, h01=0x0050, text=» SETCUR SET CURSOR AT THE BEGINNING«, t00=0x001b, t01=0x009e}
0x2af2…2b12 Head {h00=0x001c, h01=0x0050, text=» OF THE CURRENT FIELD «, t00=0x001b, t01=0x00ca}
0x2b12…2b20 Head {h00=0x000a, h01=0x0050, text=»ERR100«, t00=0x001b, t01=0x00ea}
0x2b20…2b4e Head {h00=0x002a, h01=0x0050, text=» MOVE SPBINW3,=W'14' REQUESTED LENGTH «, t00=0x001b, t01=0x00f8}
0x2b4e…2b88 Head {h00=0x0036, h01=0x0050, text=» NKI .NE,SPDSDYKB,SPINPUT,PSPKTAB1,SPBINW3,SPBINW2«, t00=0x001b, t01=0x0126}
0x2b88…2baa Head {h00=0x001e, h01=0x0050, text=» BNZ ERR100 JUMP IF NOT OK«, t00=0x001b, t01=0x0160}
0x2baa…2bfa Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x001b, t01=0x0182}
0x2bfa…2c14 Head {h00=0x0016, h01=0x0050, text=»* PTSDEMO SPECIAL «, t00=0x001c, t01=0x0042}
0x2c14…2c32 Head {h00=0x001a, h01=0x0050, text=» MOVE SPBINW3,KWSPEOI «, t00=0x001c, t01=0x005c}
0x2c32…2c5a Head {h00=0x0024, h01=0x0050, text=» ADD SPBINW3,=W'1' ADJUST INDEX «, t00=0x001c, t01=0x007a}
0x2c5a…2ca0 Head {h00=0x0042, h01=0x0050, text=» PERF QHSPKY,SPBINW2,SPBINW3,KWSPKTB ADAPT SPBINW2 FOR KB34 «, t00=0x001c, t01=0x00a2}
0x2ca0…2cf0 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x001c, t01=0x00e8}
0x2cf0…2d22 Head {h00=0x002e, h01=0x0050, text=» CBE SPBINW2,='0',RETUR JUMP IF POWER OFF «, t00=0x001c, t01=0x0138}
0x2d22…2d48 Head {h00=0x0022, h01=0x0050, text=» IB SPBINW2,ERR100,ERRCONT C «, t00=0x001c, t01=0x016a}
0x2d48…2d70 Head {h00=0x0024, h01=0x0050, text=» ERRCONT,ERR100,ERRCONT,ERRCONT«, t00=0x001c, t01=0x0190}
0x2d70…2d8a Head {h00=0x0016, h01=0x0050, text=» B ERR100 CONTINUE«, t00=0x001d, t01=0x0028}
0x2d8a…2d94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0042}
0x2d94…2db6 Head {h00=0x001e, h01=0x0050, text=»* CLEAR ERROR PRINTOUT «, t00=0x001d, t01=0x004c}
0x2db6…2dc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x006e}
0x2dc0…2dd0 Head {h00=0x000c, h01=0x0050, text=»ERRCONT «, t00=0x001d, t01=0x0078}
0x2dd0…2e20 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x001d, t01=0x0088}
0x2e20…2e3a Head {h00=0x0016, h01=0x0050, text=»* PTSDEMO SPECIAL «, t00=0x001d, t01=0x00d8}
0x2e3a…2e66 Head {h00=0x0028, h01=0x0050, text=» PERF XCLAMP,KW3,KW0 ERROR LAMP OFF «, t00=0x001d, t01=0x00f2}
0x2e66…2e90 Head {h00=0x0026, h01=0x0050, text=» PERF XCLAMP,KW1,KW1 READY LAMP ON«, t00=0x001d, t01=0x011e}
0x2e90…2ec2 Head {h00=0x002e, h01=0x0050, text=» MOVE SPBINW3,SPLSTLNE INDICATE LAST LINE «, t00=0x001d, t01=0x0148}
0x2ec2…2f0c Head {h00=0x0046, h01=0x0050, text=»******************************************************************«, t00=0x001d, t01=0x017a}
0x2f0c…2f3c Head {h00=0x002c, h01=0x0050, text=» ERASE 0,SPBINW3,SPBINW3 ERASE LAST LINE«, t00=0x001e, t01=0x0034}
0x2f3c…2f66 Head {h00=0x0026, h01=0x0050, text=» SUB SPBINW2,='1' ADJUST KEY INDEX«, t00=0x001e, t01=0x0064}
0x2f66…2f72 Head {h00=0x0008, h01=0x0050, text=»CANC«, t00=0x001e, t01=0x008e}
0x2f72…2fa6 Head {h00=0x0030, h01=0x0050, text=» CBE SPBINW1,='0',ERRC10 JUMP IF LENGTH = 0 «, t00=0x001e, t01=0x009a}
0x2fa6…2fda Head {h00=0x0030, h01=0x0050, text=» MOVE SPINPUT,:FMTITEM SAVE CURRENT CONTENTS«, t00=0x001e, t01=0x00ce}
0x2fda…3012 Head {h00=0x0034, h01=0x0050, text=» MOVE :FMTITEM,=C'1' PUT SOMETHING IN THE FIELD «, t00=0x001e, t01=0x0102}
0x3012…303c Head {h00=0x0026, h01=0x0050, text=» GETABX SPBINW4 GET CURRENT INDEX «, t00=0x001e, t01=0x013a}
0x303c…306a Head {h00=0x002a, h01=0x0050, text=» ERASE 10,SPBINW4,SPBINW4 CLEAR FIELD «, t00=0x001e, t01=0x0164}
0x306a…3078 (31, 0, 400) Head {h00=0x000a, h01=0x0050, text=»ERRC10«, t00=0x001f, t01=0x0004}
0x3078…30a0 Head {h00=0x0024, h01=0x0050, text=» IB SPBINW2,CLEAR1,CLEAR2,DUMMY «, t00=0x001f, t01=0x0012}
0x30a0…30d4 Head {h00=0x0030, h01=0x0050, text=» SUB SPBINW2,='3' ADJUST FOR CANCEL1,CANCEL2«, t00=0x001f, t01=0x003a}
0x30d4…30e0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001f, t01=0x006e}
0x30e0…30ee Head {h00=0x000a, h01=0x0050, text=»CLEAR1«, t00=0x001f, t01=0x007a}
0x30ee…3122 Head {h00=0x0030, h01=0x0050, text=» CBE SPBINW1,='0',ERRC20 JUMP IF LENGTH = 0 «, t00=0x001f, t01=0x0088}
0x3122…314e Head {h00=0x0028, h01=0x0050, text=» SET SPCHANGE INDICATE CHANGED FIELD«, t00=0x001f, t01=0x00bc}
0x314e…315c Head {h00=0x000a, h01=0x0050, text=»ERRC20«, t00=0x001f, t01=0x00e8}
0x315c…3178 Head {h00=0x0018, h01=0x0050, text=» B SETCREAD CONTINUE«, t00=0x001f, t01=0x00f6}
0x3178…3182 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0112}
0x3182…3190 Head {h00=0x000a, h01=0x0050, text=»CLEAR2«, t00=0x001f, t01=0x011c}
0x3190…31c2 Head {h00=0x002e, h01=0x0050, text=» CBE SPBINW1,='0',CLEA20 JUMP IF LENGTH 0 «, t00=0x001f, t01=0x012a}
0x31c2…31fa Head {h00=0x0034, h01=0x0050, text=» MOVE :FMTITEM,SPINPUT RESTORE CURRENT CONTENTS «, t00=0x001f, t01=0x015c}
0x31fa…3208 (32, 0, 400) Head {h00=0x000a, h01=0x0050, text=»CLEA20«, t00=0x0020, t01=0x0004}
0x3208…3236 Head {h00=0x002a, h01=0x0050, text=» GETABX SPBINW4 GET CURRENT TAB INDEX «, t00=0x0020, t01=0x0012}
0x3236…3266 Head {h00=0x002c, h01=0x0050, text=» DISPLAY 1,SPBINW4,SPBINW4 DISPLAY FIELD«, t00=0x0020, t01=0x0040}
0x3266…3282 Head {h00=0x0018, h01=0x0050, text=» B SETCREAD CONTINUE«, t00=0x0020, t01=0x0070}
0x3282…328c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x008c}
0x328c…329e Head {h00=0x000e, h01=0x0050, text=»BELL FRMT «, t00=0x0020, t01=0x0096}
0x329e…32aa Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0020, t01=0x00a8}
0x32aa…32c0 Head {h00=0x0012, h01=0x0050, text=» FILLR X'07',1«, t00=0x0020, t01=0x00b4}
0x32c0…32ce Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0020, t01=0x00ca}
0x32ce…32d6 Head {h00=0x0004, h01=0x0050, t00=0x0020, t01=0x00d8}
0x32d6…3326 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0020, t01=0x00e0}
0x3326…3340 Head {h00=0x0016, h01=0x0050, text=»* PTSDEMO SPECIAL «, t00=0x0020, t01=0x0130}
0x3340…3354 Head {h00=0x0010, h01=0x0050, text=»FMTSKIP FRMT«, t00=0x0020, t01=0x014a}
0x3354…3374 Head {h00=0x001c, h01=0x0050, text=» FTEXT '00' SKIP 2 LINES«, t00=0x0020, t01=0x015e}
0x3374…3382 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0020, t01=0x017e}
0x3382…33d2 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0020, t01=0x018c}
0x33d2…33e0 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0021, t01=0x004c}
0x33e0…33e8 Head {h00=0x0004, h01=0x0050, t00=0x0021, t01=0x005a}
0x33e8…33f4 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0021, t01=0x0062}
0x33f4…33f8 Head {h00=0x4004, h01=0x0000}
0x33f8…33fc 00 21 00 6e ┆ ! n┆
0x33fc…3404 (34, 1, 8) 20 04 00 00 00 22 00 04 ┆ " ┆
0x3404…3454 (35, 0, 400) 20 20 20 20 20 43 41 4c 43 55 4c 41 54 45 20 54 48 45 20 4e 45 58 54 20 54 52 41 4e 53 41 43 54 49 4f 4e 20 4e 55 4d 42 45 52 2e 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 2a 00 22 01 8e 00 4c 00 50 2a 20 ┆ CALCULATE THE NEXT TRANSACTION NUMBER. * " L P* ┆
0x3454…34a4 20 20 20 20 20 54 48 45 20 54 52 41 4e 53 41 43 54 49 4f 4e 53 20 42 45 4c 4f 4e 47 49 4e 47 20 54 4f 20 41 4e 20 41 43 43 4f 55 4e 54 20 41 52 45 20 4e 55 4d 42 45 52 45 44 20 46 52 4f 4d 00 00 00 00 00 00 2a 00 23 00 4e 00 4c 00 50 2a 20 ┆ THE TRANSACTIONS BELONGING TO AN ACCOUNT ARE NUMBERED FROM * # N L P* ┆
0x34a4…34f4 20 20 20 20 20 31 20 54 4f 20 38 20 41 4e 44 20 41 52 45 20 55 53 45 44 20 43 49 52 43 55 4c 41 52 4c 59 2e 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 2a 00 23 00 9e 00 4c 00 50 2a 20 ┆ 1 TO 8 AND ARE USED CIRCULARLY. * # L P* ┆
0x34f4…3544 20 20 20 20 20 54 4f 20 47 45 54 20 54 48 45 20 4e 45 58 54 20 54 52 41 4e 53 41 43 54 49 4f 4e 20 4e 55 4d 42 45 52 2c 20 41 44 44 20 31 20 54 4f 20 58 44 54 52 53 20 41 4e 44 20 49 46 20 4e 4f 57 00 00 00 2a 00 23 00 ee 00 4c 00 50 2a 20 ┆ TO GET THE NEXT TRANSACTION NUMBER, ADD 1 TO XDTRS AND IF NOW * # L P* ┆
0x3544…3594 20 20 20 20 20 58 44 54 52 53 20 3d 20 39 2c 20 52 45 53 45 54 20 58 44 54 52 53 20 54 4f 20 31 2e 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 2a 00 23 01 3e 00 4c 00 50 2a 20 ┆ XDTRS = 9, RESET XDTRS TO 1. * # > L P* ┆
0x3594…35e4 (36, 0, 400) 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 00 2a 00 23 01 8e 00 4c 00 50 2a 2a ┆ * # L P**┆
0x35e4…3634 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 2a 2a 00 24 00 4e 00 4c 00 50 51 45 ┆********************************************************************** $ N L PQE┆
0x3634…3684 4e 54 52 53 5c 50 52 4f 43 5c 58 44 54 52 53 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 24 00 9e 00 4c 00 50 51 45 ┆NTRS PROC XDTRS $ L PQE┆
0x3684…36d4 30 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 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 24 00 ee 00 4c 00 50 5c 41 ┆000 $ L P A┆
0x36d4…3724 44 44 5c 58 44 54 52 53 2c 3d 44 27 31 27 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 24 01 3e 00 4c 00 50 5c 43 ┆DD XDTRS,=D'1' $ > L P C┆