|
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: 14162 (0x3752)
Notes: pts_type(SC)
Names: »SCREEN.SC«
└─⟦173d42e04⟧ Bits:30009663 Philips computer tape "600105"
└─⟦this⟧ »SCREEN/SCREEN.SC«
IDENT SCREEN REL=10.0,800314,870138041000 * * A STANDARD PROGRAM PACKAGE HANDLING * A COMPLETE PICTURE ON A DISPLAY SCREEN * * RUNNING UNDER: CREDIT REL 10.0 * TOSS REL 10.0 * DDUM SPDDIV PDIV * ENTRY SPCLRA CLEAR ALL VARIABLE FIELDS ENTRY SPCLRS CLEAR SOME VARIABLE FIELDS ENTRY SPCLRN CLEAR NO VARIABLE FIELDS ENTRY SPERR DISPLAY ERROR MESSAGE, UPDATE .. CURRENT FIELD & CONTINUE IN .. .. FORMAT. ENTRY SPERR2 DISPLAY ERROR MESSAGE, UPDATE .. CURRENT FIELD & RETURN. * EXPROC SPCHK1 STANDARD CHECK ROUTINE NO. 1 EXPROC SPCHK2 STANDARD CHECK ROUTINE NO. 2 EXPROC SPCHK3 STANDARD CHECK ROUTINE NO. 3 EXPROC SPCHK4 STANDARD CHECK ROUTINE NO. 4 EXPROC SPCHK5 STANDARD CHECK ROUTINE NO.5 EXPROC SPCHK6 STANDARD CHECK ROUTINE NO. 6 EXPROC SPCHK7 STANDARD CHECK ROUTINE NO. 7 EXPROC SPAPPL USER ROUTINE TO HANDLE APPL VALUES EXPROC SPTCHK USER ROUTINE TO EVALUATE CONDITIONAL TABULATION APPL VALUES CONDITIONAL TABULATION * EXT EMPTYT ASSEMBLY SUBROUTINE EMPTYT - TEST IF DATA ITEM IS EMPTY * EJECT INCLUDE SPLITT,LIST EJECT * * CLEAR ALL VARIABLE FIELD BEFORE HANDLING THE PICTURE * SPCLRA PROC PERF SCREEN,=W'1' RET PEND * * CLEAR SOME VARIABLE FIELDS BEFORE HANDLING THE PICTURE * SPCLRS PROC PERF SCREEN,=W'2' RET PEND * * CLEAR NO VARIABLE FIELDS BEFORE HANDLING THE PICTURE * SPCLRN PROC PERF SCREEN,=W'3' RET PEND * * HANDLE ERRORS DETECTED OUTSIDE THE PACKAGE * SPERR PROC PERF SCREEN,=W'0' SPERR WITHOUT DIRECT RETURN RET PEND * SPERR2 PROC SET SPERCALL INDICATE SPERR CALL PERF SCREEN,=W'0' SPERR WITH DIRECT RETURN CLEAR SPERCALL RET PEND * EJECT SCREEN PROC OPTION PLIT OPTION OPTIONS SELECTOR MOVE SPBINW2,OPTION MOVE TO VARIABLE TO ALLOW INSTR.S CMP AND IB CMP SPBINW2,='0' "SPERR" CALL? 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 NOT-"NCLR" FIELDS 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 VARIABLES WITHOUT THE "NCLR" FLAG SET * ECLRS ERASE 6,SPBINW1,='0' CLEAR NOT-"NCLR" FIELDS 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,SPKTAB1,SPKTAB2,SPBINW1, C SPBINW2,SPBINW4 BL ERRPRT ERROR CBNG SPBINW2,='0',RETUR JUMP IF POWER OFF OR KEY SWITCHES DYKOUT CBNE SPBINW2,='7',DYK100 IF KEY = TBWD & ... CMP SPBINW1,='0' ... POSITION > 0, ... BNE KEDBWD ... START EDIT DYK100 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 UPDATE CURRENT INPUT ... UPDFLD 1,SPINPUT ... FIELD & DISPLAY IT UPD300 SET SPCHANGE INDICATE CHANGED ITEM UPD350 CBE SPBINW2,=X'E',KCOPY TO ALLOW "COPY"-KEY ... ... IN "SPERR2"-CALL TBT SPERCALL,RETUR RETURN IF "SPERR2"-CALL * * JUMP ON FUNCTION KEY INDEX * IB SPBINW2,READIN,DUMMY, C KEOI,DUMMY,DUMMY,KTFWD, C KTBWD,KTHOME,KTLDOWN,KTLEFT,KTRIGHT, C KTDOWN,KTUP,DUMMY,DUMMY,DUMMY,KENTER SUB SPBINW2,=W'14' ADJUST EOI-KEY INDEX DUMMY RETUR RET * EJECT 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 MOVE SPBINW3,='1' PRINT SPDSPRT,SPBINW3,='0' TBT SPERCALL,RETUR RETURN IF "SPERR"-CALL 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 * KEDERR EDIT AFTER ERROR CBE SPBINW1,='0',KEDIT KEDBWD EDIT AFTER TBWD MOVE SPBINW1,='1' KEDIT NORMAL EDIT GETCTL 1,SPBINW3 GET MAXL CBNE SPBINW3,='0',KED100 EDWRT SPDSSCRN,BELL ACOUSTIC ALARM B SETCREAD KED100 EDFLD SPINPUT,SPKTAB3,SPBINW1, C SPBINW2,SPBINW4 BL ERRPRT ERROR CBNG SPBINW2,='0',POWEROFF POWER OFF OR KEY SWITCH CBNE SPBINW1,='0',KED150 LENGTH NOT ZERO SET SPCHANGE ITEM CLEARED BY EDFLD KED150 B DYKOUT CONTINUE AS FOR DYKI EJECT * * ENTER KEY * KENTER MOVE SPBINW4,='5' INDICATE COMP.FIELD FOUND MOVE SPBINW1,='0' INDICATE NO CLEARING MOVE SPBINW2,='0' SET INDEX TO LAST FIELD IN FORMAT GETFLD 0,SPBINW2,SPBINW3 SEARCH FOR EMPTY COMP. FIELDS BOFL KENT10 EMPTY COMP. FIELD FOUND TSTCTL 2 LAST FIELD COMPULSORY? BZ KENT05 NO! CALL EMPTYT,:FMTITEM EMPTY? 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 POWEROFF B RETUR ERRPRT CBE SPBINW2,='16',KEDIT JUMP IF EDIT CBE SPBINW2,='4',CANC JUMP IF CANCEL1 CBE SPBINW2,='5',CANC JUMP IF CANCEL2 CBE SPBINW2,='7',KEDBWD JUMP IF TBWD * * ERROR HANDLING * ERRPRINT CMP SPBINW4,='0' BE SETCREAD JUMP IF NO PRINTOUT EDWRT SPDSSCRN,BELL ACOUSTIC ALARM MOVE SPBINW3,=X'1801' ROW 24 COL. 1 DSC1 SPDSSCRN,6,SPBINW3 SET CURSOR ON LAST ROW EDWRT SPDSSCRN,SPFTBERR(SPBINW4) * * READ AFTER ERROR * ERREAD SETCUR SET CURSOR AT THE BEGINNING OF THE CURRENT FIELD ERR100 MOVE SPBINW3,='1' REQUESTED LENGTH * NKI .NE,SPDSDYKB,SPSTRGW1,SPKTAB1,SPBINW3,SPBINW2 BNZ ERR100 JUMP IF NOT OK CBE SPBINW2,='0',POWEROFF JUMP IF POWER OFF IB SPBINW2,ERR100,ERRCONT C ERRCONT,ERR100,ERRCONT,ERRCONT CBNE SPBINW2,='17',ERR100 TRY AGAIN IF NOT EDIT KEY! * * CLEAR ERROR PRINTOUT * ERRCONT MOVE SPBINW3,='24' INDICATE LAST LINE ERASE 0,SPBINW3,SPBINW3 ERASE LAST LINE CBE SPBINW2,='17',KEDERR EDIT KEY SUB SPBINW2,='1' ADJUST KEY INDEX CANC CBE SPBINW1,='0',ERRC10 JUMP IF LENGTH = 0 MOVE SPINPUT,:FMTITEM SAVE CURRENT CONTENTS MOVE SPSTRGW1,=X'3100' MOVE :FMTITEM,SPSTRGW1 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 * BELL FRMT FSL FILLR X'07',1 FMEND PEND END
0x0000…0032 (0, 0, 400) Head {h00=0x002e, h01=0x0050, text=» IDENT SCREEN REL=10.0,800314,870138041000«, t00=0x0000, t01=0x0004}
0x0032…003c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0036}
0x003c…006c Head {h00=0x002c, h01=0x0050, text=»* A STANDARD PROGRAM PACKAGE HANDLING«, t00=0x0000, t01=0x0040}
0x006c…00a0 Head {h00=0x0030, h01=0x0050, text=»* A COMPLETE PICTURE ON A DISPLAY SCREEN «, t00=0x0000, t01=0x0070}
0x00a0…00aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00a4}
0x00aa…00d6 Head {h00=0x0028, h01=0x0050, text=»* RUNNING UNDER: CREDIT REL 10.0«, t00=0x0000, t01=0x00ae}
0x00d6…0102 Head {h00=0x0028, h01=0x0050, text=»* TOSS REL 10.0«, t00=0x0000, t01=0x00da}
0x0102…010c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0106}
0x010c…0120 Head {h00=0x0010, h01=0x0050, text=» DDUM SPDDIV«, t00=0x0000, t01=0x0110}
0x0120…012e Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0124}
0x012e…0138 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0132}
0x0138…0168 Head {h00=0x002c, h01=0x0050, text=» ENTRY SPCLRA CLEAR ALL VARIABLE FIELDS «, t00=0x0000, t01=0x013c}
0x0168…0198 Head {h00=0x002c, h01=0x0050, text=» ENTRY SPCLRS CLEAR SOME VARIABLE FIELDS«, t00=0x0000, t01=0x016c}
0x0198…01c6 Head {h00=0x002a, h01=0x0050, text=» ENTRY SPCLRN CLEAR NO VARIABLE FIELDS«, t00=0x0001, t01=0x000c}
0x01c6…01f8 Head {h00=0x002e, h01=0x0050, text=» ENTRY SPERR DISPLAY ERROR MESSAGE, UPDATE«, t00=0x0001, t01=0x003a}
0x01f8…0224 Head {h00=0x0028, h01=0x0050, text=» .. CURRENT FIELD & CONTINUE IN ..«, t00=0x0001, t01=0x006c}
0x0224…023a Head {h00=0x0012, h01=0x0050, text=» .. FORMAT. «, t00=0x0001, t01=0x0098}
0x023a…026e Head {h00=0x0030, h01=0x0050, text=» ENTRY SPERR2 DISPLAY ERROR MESSAGE, UPDATE «, t00=0x0001, t01=0x00ae}
0x026e…0294 Head {h00=0x0022, h01=0x0050, text=» .. CURRENT FIELD & RETURN. «, t00=0x0001, t01=0x00e2}
0x0294…029e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0108}
0x029e…02d2 Head {h00=0x0030, h01=0x0050, text=» EXPROC SPCHK1 STANDARD CHECK ROUTINE NO. 1 «, t00=0x0001, t01=0x0112}
0x02d2…0306 Head {h00=0x0030, h01=0x0050, text=» EXPROC SPCHK2 STANDARD CHECK ROUTINE NO. 2 «, t00=0x0001, t01=0x0146}
0x0306…033a Head {h00=0x0030, h01=0x0050, text=» EXPROC SPCHK3 STANDARD CHECK ROUTINE NO. 3 «, t00=0x0001, t01=0x017a}
0x033a…036e Head {h00=0x0030, h01=0x0050, text=» EXPROC SPCHK4 STANDARD CHECK ROUTINE NO. 4 «, t00=0x0002, t01=0x001e}
0x036e…03a0 Head {h00=0x002e, h01=0x0050, text=» EXPROC SPCHK5 STANDARD CHECK ROUTINE NO.5«, t00=0x0002, t01=0x0052}
0x03a0…03d4 Head {h00=0x0030, h01=0x0050, text=» EXPROC SPCHK6 STANDARD CHECK ROUTINE NO. 6 «, t00=0x0002, t01=0x0084}
0x03d4…0408 Head {h00=0x0030, h01=0x0050, text=» EXPROC SPCHK7 STANDARD CHECK ROUTINE NO. 7 «, t00=0x0002, t01=0x00b8}
0x0408…0436 Head {h00=0x002a, h01=0x0050, text=» EXPROC SPAPPL USER ROUTINE TO HANDLE «, t00=0x0002, t01=0x00ec}
0x0436…044c Head {h00=0x0012, h01=0x0050, text=» APPL VALUES«, t00=0x0002, t01=0x011a}
0x044c…047c Head {h00=0x002c, h01=0x0050, text=» EXPROC SPTCHK USER ROUTINE TO EVALUATE «, t00=0x0002, t01=0x0130}
0x047c…049e Head {h00=0x001e, h01=0x0050, text=» CONDITIONAL TABULATION «, t00=0x0002, t01=0x0160}
0x049e…04b4 Head {h00=0x0012, h01=0x0050, text=» APPL VALUES«, t00=0x0002, t01=0x0182}
0x04b4…04d6 Head {h00=0x001e, h01=0x0050, text=» CONDITIONAL TABULATION «, t00=0x0003, t01=0x0008}
0x04d6…04e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x002a}
0x04e0…0512 Head {h00=0x002e, h01=0x0050, text=» EXT EMPTYT ASSEMBLY SUBROUTINE EMPTYT - «, t00=0x0003, t01=0x0034}
0x0512…0538 Head {h00=0x0022, h01=0x0050, text=» TEST IF DATA ITEM IS EMPTY «, t00=0x0003, t01=0x0066}
0x0538…0542 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x008c}
0x0542…0550 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x0096}
0x0550…056c Head {h00=0x0018, h01=0x0050, text=» INCLUDE SPLITT,LIST«, t00=0x0003, t01=0x00a4}
0x056c…057a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x00c0}
0x057a…0584 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00ce}
0x0584…05c6 Head {h00=0x003e, h01=0x0050, text=»* CLEAR ALL VARIABLE FIELD BEFORE HANDLING THE PICTURE «, t00=0x0003, t01=0x00d8}
0x05c6…05d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x011a}
0x05d0…05e4 Head {h00=0x0010, h01=0x0050, text=»SPCLRA PROC «, t00=0x0003, t01=0x0124}
0x05e4…05fe Head {h00=0x0016, h01=0x0050, text=» PERF SCREEN,=W'1'«, t00=0x0003, t01=0x0138}
0x05fe…060a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0003, t01=0x0152}
0x060a…0618 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0003, t01=0x015e}
0x0618…0622 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x016c}
0x0622…0666 Head {h00=0x0040, h01=0x0050, text=»* CLEAR SOME VARIABLE FIELDS BEFORE HANDLING THE PICTURE «, t00=0x0003, t01=0x0176}
0x0666…0670 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x002a}
0x0670…0684 Head {h00=0x0010, h01=0x0050, text=»SPCLRS PROC «, t00=0x0004, t01=0x0034}
0x0684…069e Head {h00=0x0016, h01=0x0050, text=» PERF SCREEN,=W'2'«, t00=0x0004, t01=0x0048}
0x069e…06aa Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0004, t01=0x0062}
0x06aa…06b8 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0004, t01=0x006e}
0x06b8…06c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x007c}
0x06c2…0704 Head {h00=0x003e, h01=0x0050, text=»* CLEAR NO VARIABLE FIELDS BEFORE HANDLING THE PICTURE «, t00=0x0004, t01=0x0086}
0x0704…070e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00c8}
0x070e…0722 Head {h00=0x0010, h01=0x0050, text=»SPCLRN PROC «, t00=0x0004, t01=0x00d2}
0x0722…073c Head {h00=0x0016, h01=0x0050, text=» PERF SCREEN,=W'3'«, t00=0x0004, t01=0x00e6}
0x073c…0748 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0004, t01=0x0100}
0x0748…0756 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0004, t01=0x010c}
0x0756…0760 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x011a}
0x0760…0798 Head {h00=0x0034, h01=0x0050, text=»* HANDLE ERRORS DETECTED OUTSIDE THE PACKAGE «, t00=0x0004, t01=0x0124}
0x0798…07a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x015c}
0x07a2…07b4 Head {h00=0x000e, h01=0x0050, text=»SPERR PROC«, t00=0x0004, t01=0x0166}
0x07b4…07ea Head {h00=0x0032, h01=0x0050, text=» PERF SCREEN,=W'0' SPERR WITHOUT DIRECT RETURN«, t00=0x0004, t01=0x0178}
0x07ea…07f6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0005, t01=0x001e}
0x07f6…0804 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0005, t01=0x002a}
0x0804…080e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0038}
0x080e…0822 Head {h00=0x0010, h01=0x0050, text=»SPERR2 PROC «, t00=0x0005, t01=0x0042}
0x0822…084c Head {h00=0x0026, h01=0x0050, text=» SET SPERCALL INDICATE SPERR CALL «, t00=0x0005, t01=0x0056}
0x084c…0880 Head {h00=0x0030, h01=0x0050, text=» PERF SCREEN,=W'0' SPERR WITH DIRECT RETURN «, t00=0x0005, t01=0x0080}
0x0880…0898 Head {h00=0x0014, h01=0x0050, text=» CLEAR SPERCALL «, t00=0x0005, t01=0x00b4}
0x0898…08a4 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0005, t01=0x00cc}
0x08a4…08b2 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0005, t01=0x00d8}
0x08b2…08bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00e6}
0x08bc…08ca Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x00f0}
0x08ca…08e4 Head {h00=0x0016, h01=0x0050, text=»SCREEN PROC OPTION«, t00=0x0005, t01=0x00fe}
0x08e4…090a Head {h00=0x0022, h01=0x0050, text=» PLIT OPTION OPTIONS SELECTOR «, t00=0x0005, t01=0x0118}
0x090a…0912 Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x013e}
0x0912…0940 Head {h00=0x002a, h01=0x0050, text=» MOVE SPBINW2,OPTION MOVE TO VARIABLE «, t00=0x0005, t01=0x0146}
0x0940…0966 Head {h00=0x0022, h01=0x0050, text=» TO ALLOW INSTR.S CMP AND IB«, t00=0x0005, t01=0x0174}
0x0966…098e Head {h00=0x0024, h01=0x0050, text=» CMP SPBINW2,='0' "SPERR" CALL? «, t00=0x0006, t01=0x000a}
0x098e…09a8 Head {h00=0x0016, h01=0x0050, text=» BE ERRPRINT YES! «, t00=0x0006, t01=0x0032}
0x09a8…09b0 Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x004c}
0x09b0…09dc Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW1,='1' SET INITIAL VALUE«, t00=0x0006, t01=0x0054}
0x09dc…0a0e Head {h00=0x002e, h01=0x0050, text=» TBT SPPROMPT,ENTIRE JUMP IF ENTIRE FORMAT«, t00=0x0006, t01=0x0080}
0x0a0e…0a2c Head {h00=0x001a, h01=0x0050, text=» SHOULD BE DISPLAYED«, t00=0x0006, t01=0x00b2}
0x0a2c…0a36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00d0}
0x0a36…0a58 Head {h00=0x001e, h01=0x0050, text=»* ONLY VARIABLE FIELDS «, t00=0x0006, t01=0x00da}
0x0a58…0a62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00fc}
0x0a62…0a9e Head {h00=0x0038, h01=0x0050, text=» IB SPBINW2,CLEARA,CLEARS,CONT JUMP ON ROUTINE INDEX«, t00=0x0006, t01=0x0106}
0x0a9e…0aa8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0142}
0x0aa8…0ab6 Head {h00=0x000a, h01=0x0050, text=»CLEARA«, t00=0x0006, t01=0x014c}
0x0ab6…0aec Head {h00=0x0032, h01=0x0050, text=» ERASE 2,SPBINW1,='0' ERASE ALL FROM 1 AND UP «, t00=0x0006, t01=0x015a}
0x0aec…0afc Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x0006, t01=0x0190}
0x0afc…0b06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0010}
0x0b06…0b14 Head {h00=0x000a, h01=0x0050, text=»CLEARS«, t00=0x0007, t01=0x001a}
0x0b14…0b4a Head {h00=0x0032, h01=0x0050, text=» ERASE 5,SPBINW1,='0' ERASE NOT-"NCLR" FIELDS «, t00=0x0007, t01=0x0028}
0x0b4a…0b62 Head {h00=0x0014, h01=0x0050, text=» FROM 1 AND UP«, t00=0x0007, t01=0x005e}
0x0b62…0b72 Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x0007, t01=0x0076}
0x0b72…0b80 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x0086}
0x0b80…0b8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0094}
0x0b8a…0bac Head {h00=0x001e, h01=0x0050, text=»* DISPLAY ENTIRE FORMAT«, t00=0x0007, t01=0x009e}
0x0bac…0bb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00c0}
0x0bb6…0bc4 Head {h00=0x000a, h01=0x0050, text=»ENTIRE«, t00=0x0007, t01=0x00ca}
0x0bc4…0c00 Head {h00=0x0038, h01=0x0050, text=» IB SPBINW2,ECLRA,ECLRS,ECLRN JUMP ON ROUTINE INDEX «, t00=0x0007, t01=0x00d8}
0x0c00…0c0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0114}
0x0c0a…0c2a Head {h00=0x001c, h01=0x0050, text=»* CLEAR ALL VARIABLES«, t00=0x0007, t01=0x011e}
0x0c2a…0c34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x013e}
0x0c34…0c42 Head {h00=0x000a, h01=0x0050, text=»ECLRA «, t00=0x0007, t01=0x0148}
0x0c42…0c78 Head {h00=0x0032, h01=0x0050, text=» ERASE 3,SPBINW1,='0' CLEAR ALL FROM 1 AND UP «, t00=0x0007, t01=0x0156}
0x0c78…0c8c Head {h00=0x0010, h01=0x0050, text=» IN MEMORY«, t00=0x0007, t01=0x018c}
0x0c8c…0ca6 Head {h00=0x0016, h01=0x0050, text=» B ECLRN CONTINUE «, t00=0x0008, t01=0x0010}
0x0ca6…0cb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x002a}
0x0cb0…0ce8 Head {h00=0x0034, h01=0x0050, text=»* CLEAR VARIABLES WITHOUT THE "NCLR" FLAG SET«, t00=0x0008, t01=0x0034}
0x0ce8…0cf2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x006c}
0x0cf2…0d00 Head {h00=0x000a, h01=0x0050, text=»ECLRS «, t00=0x0008, t01=0x0076}
0x0d00…0d36 Head {h00=0x0032, h01=0x0050, text=» ERASE 6,SPBINW1,='0' CLEAR NOT-"NCLR" FIELDS «, t00=0x0008, t01=0x0084}
0x0d36…0d4a Head {h00=0x0010, h01=0x0050, text=» IN MEMORY«, t00=0x0008, t01=0x00ba}
0x0d4a…0d54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00ce}
0x0d54…0d7e Head {h00=0x0026, h01=0x0050, text=»* CLEAR NO VARIABLES IN MEMORY «, t00=0x0008, t01=0x00d8}
0x0d7e…0d88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0102}
0x0d88…0d96 Head {h00=0x000a, h01=0x0050, text=»ECLRN «, t00=0x0008, t01=0x010c}
0x0d96…0dca Head {h00=0x0030, h01=0x0050, text=» DISPLAY 0,SPBINW1,='0' DISPLAY ENTIRE FORM «, t00=0x0008, t01=0x011a}
0x0dca…0dd8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x014e}
0x0dd8…0de2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x015c}
0x0de2…0dee Head {h00=0x0008, h01=0x0050, text=»CONT«, t00=0x0008, t01=0x0166}
0x0dee…0e18 Head {h00=0x0026, h01=0x0050, text=» GETABX SPBINW4 GET CURRENT INDEX «, t00=0x0008, t01=0x0172}
0x0e18…0e44 Head {h00=0x0028, h01=0x0050, text=» BL KTHOME JUMP IF NO CURRENT FIELD «, t00=0x0009, t01=0x000c}
0x0e44…0e52 Head {h00=0x000a, h01=0x0050, text=»CONT5 «, t00=0x0009, t01=0x0038}
0x0e52…0e8c Head {h00=0x0036, h01=0x0050, text=» GETFLD 0,SPBINW4,SPBINW3 SEARCH CURRENT POSITION «, t00=0x0009, t01=0x0046}
0x0e8c…0eae Head {h00=0x001e, h01=0x0050, text=» BZ SETCREAD JUMP IF FOUND«, t00=0x0009, t01=0x0080}
0x0eae…0ed4 Head {h00=0x0022, h01=0x0050, text=» BL KTHOME POSITION NOT FOUND «, t00=0x0009, t01=0x00a2}
0x0ed4…0ede Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00c8}
0x0ede…0f02 Head {h00=0x0020, h01=0x0050, text=»* COMPULSORY FIELD FOUND «, t00=0x0009, t01=0x00d2}
0x0f02…0f0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00f6}
0x0f0c…0f36 Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW4,SPBINW3 CHANGE INDEX«, t00=0x0009, t01=0x0100}
0x0f36…0f54 Head {h00=0x001a, h01=0x0050, text=» B CONT5 SEARCH AGAIN «, t00=0x0009, t01=0x012a}
0x0f54…0f5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0148}
0x0f5e…0f6c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0152}
0x0f6c…0f76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0160}
0x0f76…0fa0 Head {h00=0x0026, h01=0x0050, text=»* SET CURSOR AND READ KEYBOARD «, t00=0x0009, t01=0x016a}
0x0fa0…0faa (10, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0004}
0x0faa…0fba Head {h00=0x000c, h01=0x0050, text=»SETCREAD«, t00=0x000a, t01=0x000e}
0x0fba…0fe6 Head {h00=0x0028, h01=0x0050, text=» SETCUR SET CURSOR ON CURRENT FIELD«, t00=0x000a, t01=0x001e}
0x0fe6…0fee Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x004a}
0x0fee…0ff8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0052}
0x0ff8…1026 Head {h00=0x002a, h01=0x0050, text=»* READ TO CURRENT FIELD ON DISPLAY «, t00=0x000a, t01=0x005c}
0x1026…1030 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x008a}
0x1030…103e Head {h00=0x000a, h01=0x0050, text=»READIN«, t00=0x000a, t01=0x0094}
0x103e…1070 Head {h00=0x002e, h01=0x0050, text=» DYKI SPINPUT,SPKTAB1,SPKTAB2,SPBINW1, C «, t00=0x000a, t01=0x00a2}
0x1070…108a Head {h00=0x0016, h01=0x0050, text=» SPBINW2,SPBINW4 «, t00=0x000a, t01=0x00d4}
0x108a…10a2 Head {h00=0x0014, h01=0x0050, text=» BL ERRPRT ERROR«, t00=0x000a, t01=0x00ee}
0x10a2…10d8 Head {h00=0x0032, h01=0x0050, text=» CBNG SPBINW2,='0',RETUR JUMP IF POWER OFF OR «, t00=0x000a, t01=0x0106}
0x10d8…10f0 Head {h00=0x0014, h01=0x0050, text=» KEY SWITCHES «, t00=0x000a, t01=0x013c}
0x10f0…10fe Head {h00=0x000a, h01=0x0050, text=»DYKOUT«, t00=0x000a, t01=0x0154}
0x10fe…1134 Head {h00=0x0032, h01=0x0050, text=» CBNE SPBINW2,='7',DYK100 IF KEY = TBWD & ... «, t00=0x000a, t01=0x0162}
0x1134…1164 Head {h00=0x002c, h01=0x0050, text=» CMP SPBINW1,='0' ... POSITION > 0, ... «, t00=0x000b, t01=0x0008}
0x1164…1186 Head {h00=0x001e, h01=0x0050, text=» BNE KEDBWD ... START EDIT«, t00=0x000b, t01=0x0038}
0x1186…1194 Head {h00=0x000a, h01=0x0050, text=»DYK100«, t00=0x000b, t01=0x005a}
0x1194…11c0 Head {h00=0x0028, h01=0x0050, text=» IB SPBINW2,UPD300,CLEA20 JUMP ON C «, t00=0x000b, t01=0x0068}
0x11c0…11de Head {h00=0x001a, h01=0x0050, text=» UPDATE,CANC,CANC, C«, t00=0x000b, t01=0x0094}
0x11de…1210 Head {h00=0x002e, h01=0x0050, text=» UPDATE,UPDATE,UPDATE,UPDATE CONVERTED C «, t00=0x000b, t01=0x00b2}
0x1210…1248 Head {h00=0x0034, h01=0x0050, text=» UPDATE,UPDATE,UPDATE,UPDATE END-OF-ITEM-KEY C «, t00=0x000b, t01=0x00e4}
0x1248…1264 Head {h00=0x0018, h01=0x0050, text=» UPDATE,KDUPL,KEDIT«, t00=0x000b, t01=0x011c}
0x1264…1272 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0138}
0x1272…127c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0146}
0x127c…12b4 Head {h00=0x0034, h01=0x0050, text=»* HANDLE THE RESPECTIVE KEY AS EOI-KEY FIRST «, t00=0x000b, t01=0x0150}
0x12b4…12be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0188}
0x12be…12cc (12, 0, 400) Head {h00=0x000a, h01=0x0050, text=»UPDATE«, t00=0x000c, t01=0x0004}
0x12cc…1300 Head {h00=0x0030, h01=0x0050, text=» CBE SPBINW1,='0',UPD350 JUMP IF LENGTH = 0 «, t00=0x000c, t01=0x0012}
0x1300…132a Head {h00=0x0026, h01=0x0050, text=» GETCTL 3,SPBINW4 GET SCHK-NUMBER «, t00=0x000c, t01=0x0046}
0x132a…1366 Head {h00=0x0038, h01=0x0050, text=» CBE SPBINW4,='0',UPD050 JUMP IF NOT STANDARD CHECK «, t00=0x000c, t01=0x0070}
0x1366…1370 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00ac}
0x1370…139e Head {h00=0x002a, h01=0x0050, text=» PERFI SPBINW4,SPCHK1,SPCHK2,SPCHK3 C«, t00=0x000c, t01=0x00b6}
0x139e…13c4 Head {h00=0x0022, h01=0x0050, text=» SPCHK4,SPCHK5,SPCHK6,SPCHK7 «, t00=0x000c, t01=0x00e4}
0x13c4…13ee Head {h00=0x0026, h01=0x0050, text=» IB SPBINW3,UPD100,UPD070,ERRPRINT«, t00=0x000c, t01=0x010a}
0x13ee…13f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0134}
0x13f8…141c Head {h00=0x0020, h01=0x0050, text=»* CONDITIONAL DISPLAYING «, t00=0x000c, t01=0x013e}
0x141c…1426 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0162}
0x1426…1434 Head {h00=0x000a, h01=0x0050, text=»UPD050«, t00=0x000c, t01=0x016c}
0x1434…1464 Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW4,='1' INDICATE COND. DISPL «, t00=0x000c, t01=0x017a}
0x1464…1476 Head {h00=0x000e, h01=0x0050, text=» B UPD200 «, t00=0x000d, t01=0x001a}
0x1476…1484 Head {h00=0x000a, h01=0x0050, text=»UPD070«, t00=0x000d, t01=0x002c}
0x1484…14ac Head {h00=0x0024, h01=0x0050, text=» GETCTL 0,SPBINW3 GET APPL-VALUE«, t00=0x000d, t01=0x003a}
0x14ac…14e0 Head {h00=0x0030, h01=0x0050, text=» CBNE SPBINW3,='0',UPD210 JUMP IF APPL VALUE«, t00=0x000d, t01=0x0062}
0x14e0…14f4 Head {h00=0x0010, h01=0x0050, text=» B SETCREAD «, t00=0x000d, t01=0x0096}
0x14f4…14fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00aa}
0x14fe…1524 Head {h00=0x0022, h01=0x0050, text=»* UNCONDITIONAL DISPLAYING «, t00=0x000d, t01=0x00b4}
0x1524…152e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00da}
0x152e…153c Head {h00=0x000a, h01=0x0050, text=»UPD100«, t00=0x000d, t01=0x00e4}
0x153c…1576 Head {h00=0x0036, h01=0x0050, text=» MOVE SPBINW4,='2' INDICATE UNCONDITIONAL DISPLAY «, t00=0x000d, t01=0x00f2}
0x1576…1584 Head {h00=0x000a, h01=0x0050, text=»UPD200«, t00=0x000d, t01=0x012c}
0x1584…15ac Head {h00=0x0024, h01=0x0050, text=» GETCTL 0,SPBINW3 GET APPL-VALUE«, t00=0x000d, t01=0x013a}
0x15ac…15e2 Head {h00=0x0032, h01=0x0050, text=» CBE SPBINW3,='0',UPD400 JUMP IF NO APPL VALUE«, t00=0x000d, t01=0x0162}
0x15e2…15ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0008}
0x15ec…1618 Head {h00=0x0028, h01=0x0050, text=»* APPL-VALUE DIFFERENT FROM ZERO «, t00=0x000e, t01=0x0012}
0x1618…1622 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x003e}
0x1622…1630 Head {h00=0x000a, h01=0x0050, text=»UPD210«, t00=0x000e, t01=0x0048}
0x1630…1644 Head {h00=0x0010, h01=0x0050, text=» PERF SPAPPL«, t00=0x000e, t01=0x0056}
0x1644…1670 Head {h00=0x0028, h01=0x0050, text=» IB SPBINW3,UPD260,SETCREAD,ERRPRINT«, t00=0x000e, t01=0x006a}
0x1670…1682 Head {h00=0x000e, h01=0x0050, text=» B UPD400 «, t00=0x000e, t01=0x0096}
0x1682…168c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00a8}
0x168c…16ae Head {h00=0x001e, h01=0x0050, text=»* OK AFTER APPL CONTROL«, t00=0x000e, t01=0x00b2}
0x16ae…16d4 Head {h00=0x0022, h01=0x0050, text=»* UNCONDITIONAL DISPLAYING «, t00=0x000e, t01=0x00d4}
0x16d4…16de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00fa}
0x16de…1708 Head {h00=0x0026, h01=0x0050, text=»UPD260 UPDATE CURRENT INPUT ... «, t00=0x000e, t01=0x0104}
0x1708…1738 Head {h00=0x002c, h01=0x0050, text=» UPDFLD 1,SPINPUT ... FIELD & DISPLAY IT«, t00=0x000e, t01=0x012e}
0x1738…176a Head {h00=0x002e, h01=0x0050, text=»UPD300 SET SPCHANGE INDICATE CHANGED ITEM «, t00=0x000e, t01=0x015e}
0x176a…1778 Head {h00=0x000a, h01=0x0050, text=»UPD350«, t00=0x000e, t01=0x0190}
0x1778…17b0 Head {h00=0x0034, h01=0x0050, text=» CBE SPBINW2,=X'E',KCOPY TO ALLOW "COPY"-KEY ...«, t00=0x000f, t01=0x000e}
0x17b0…17d0 Head {h00=0x001c, h01=0x0050, text=» ... IN "SPERR2"-CALL «, t00=0x000f, t01=0x0046}
0x17d0…1804 Head {h00=0x0030, h01=0x0050, text=» TBT SPERCALL,RETUR RETURN IF "SPERR2"-CALL «, t00=0x000f, t01=0x0066}
0x1804…180e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x009a}
0x180e…1836 Head {h00=0x0024, h01=0x0050, text=»* JUMP ON FUNCTION KEY INDEX «, t00=0x000f, t01=0x00a4}
0x1836…1840 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00cc}
0x1840…1864 Head {h00=0x0020, h01=0x0050, text=» IB SPBINW2,READIN,DUMMY, C«, t00=0x000f, t01=0x00d6}
0x1864…1888 Head {h00=0x0020, h01=0x0050, text=» KEOI,DUMMY,DUMMY,KTFWD, C«, t00=0x000f, t01=0x00fa}
0x1888…18ba Head {h00=0x002e, h01=0x0050, text=» KTBWD,KTHOME,KTLDOWN,KTLEFT,KTRIGHT, C «, t00=0x000f, t01=0x011e}
0x18ba…18e8 Head {h00=0x002a, h01=0x0050, text=» KTDOWN,KTUP,DUMMY,DUMMY,DUMMY,KENTER«, t00=0x000f, t01=0x0150}
0x18e8…1918 Head {h00=0x002c, h01=0x0050, text=» SUB SPBINW2,=W'14' ADJUST EOI-KEY INDEX«, t00=0x000f, t01=0x017e}
0x1918…1926 Head {h00=0x000a, h01=0x0050, text=»DUMMY «, t00=0x0010, t01=0x001e}
0x1926…1934 Head {h00=0x000a, h01=0x0050, text=»RETUR «, t00=0x0010, t01=0x002c}
0x1934…1940 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0010, t01=0x003a}
0x1940…194a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0046}
0x194a…1958 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0050}
0x1958…1966 Head {h00=0x000a, h01=0x0050, text=»UPD400«, t00=0x0010, t01=0x005e}
0x1966…19a2 Head {h00=0x0038, h01=0x0050, text=» CBE SPBINW4,='2',UPD260 JUMP IF UNCONDITIONAL DISPL«, t00=0x0010, t01=0x006c}
0x19a2…19d6 Head {h00=0x0030, h01=0x0050, text=» UPDFLD 0,SPINPUT UPDATE FIELD DISPL. COND. «, t00=0x0010, t01=0x00a8}
0x19d6…19e8 Head {h00=0x000e, h01=0x0050, text=» B UPD300 «, t00=0x0010, t01=0x00dc}
0x19e8…19f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00ee}
0x19f2…1a00 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x00f8}
0x1a00…1a26 Head {h00=0x0022, h01=0x0050, text=»KEOI COMMON END-OF-ITEM KEY «, t00=0x0010, t01=0x0106}
0x1a26…1a4a Head {h00=0x0020, h01=0x0050, text=»KTFWD TAB. FORWARD 1 STEP «, t00=0x0010, t01=0x012c}
0x1a4a…1a58 Head {h00=0x000a, h01=0x0050, text=» TFWD «, t00=0x0010, t01=0x0150}
0x1a58…1a6a Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x0010, t01=0x015e}
0x1a6a…1a92 Head {h00=0x0024, h01=0x0050, text=»KTBWD TABULATION 1 STEP BACKW.«, t00=0x0010, t01=0x0170}
0x1a92…1aa0 Head {h00=0x000a, h01=0x0050, text=» TBWD «, t00=0x0011, t01=0x0008}
0x1aa0…1ab2 Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x0011, t01=0x0016}
0x1ab2…1ad8 Head {h00=0x0022, h01=0x0050, text=»KTHOME TAB. TO HOME POSITION«, t00=0x0011, t01=0x0028}
0x1ad8…1ae6 Head {h00=0x000a, h01=0x0050, text=» THOME«, t00=0x0011, t01=0x004e}
0x1ae6…1af8 Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x0011, t01=0x005c}
0x1af8…1b24 Head {h00=0x0028, h01=0x0050, text=»KTLDOWN TAB. TO FIRST ON NEXT LINE«, t00=0x0011, t01=0x006e}
0x1b24…1b34 Head {h00=0x000c, h01=0x0050, text=» TLDOWN «, t00=0x0011, t01=0x009a}
0x1b34…1b46 Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x0011, t01=0x00aa}
0x1b46…1b68 Head {h00=0x001e, h01=0x0050, text=»KTLEFT TAB. TO LEFTMOST «, t00=0x0011, t01=0x00bc}
0x1b68…1b76 Head {h00=0x000a, h01=0x0050, text=» TLEFT«, t00=0x0011, t01=0x00de}
0x1b76…1b88 Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x0011, t01=0x00ec}
0x1b88…1bac Head {h00=0x0020, h01=0x0050, text=»KTRIGHT TAB. TO RIGHTMOST «, t00=0x0011, t01=0x00fe}
0x1bac…1bbc Head {h00=0x000c, h01=0x0050, text=» TRIGHT «, t00=0x0011, t01=0x0122}
0x1bbc…1bce Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x0011, t01=0x0132}
0x1bce…1bea Head {h00=0x0018, h01=0x0050, text=»KTDOWN TAB 1 DOWN «, t00=0x0011, t01=0x0144}
0x1bea…1bf8 Head {h00=0x000a, h01=0x0050, text=» TDOWN«, t00=0x0011, t01=0x0160}
0x1bf8…1c0a Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x0011, t01=0x016e}
0x1c0a…1c22 Head {h00=0x0014, h01=0x0050, text=»KTUP TAB 1 UP «, t00=0x0011, t01=0x0180}
0x1c22…1c2e Head {h00=0x0008, h01=0x0050, text=» TUP«, t00=0x0012, t01=0x0008}
0x1c2e…1c36 Head {h00=0x0004, h01=0x0050, t00=0x0012, t01=0x0014}
0x1c36…1c56 Head {h00=0x001c, h01=0x0050, text=»TSTTAB TEST TAB OUTPUT«, t00=0x0012, t01=0x001c}
0x1c56…1c6c Head {h00=0x0012, h01=0x0050, text=» BE READIN OK «, t00=0x0012, t01=0x003c}
0x1c6c…1c8a Head {h00=0x001a, h01=0x0050, text=» BL SETCREAD NOT FOUND«, t00=0x0012, t01=0x0052}
0x1c8a…1cb8 Head {h00=0x002a, h01=0x0050, text=» BOFL SETCREAD EMPTY COMPULSORY FIELD «, t00=0x0012, t01=0x0070}
0x1cb8…1cc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x009e}
0x1cc2…1ce6 Head {h00=0x0020, h01=0x0050, text=»* CONDITIONAL TABULATION «, t00=0x0012, t01=0x00a8}
0x1ce6…1cf0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00cc}
0x1cf0…1d04 Head {h00=0x0010, h01=0x0050, text=» PERF SPTCHK«, t00=0x0012, t01=0x00d6}
0x1d04…1d26 Head {h00=0x001e, h01=0x0050, text=» CBE SPBINW3,='0',SETCREAD«, t00=0x0012, t01=0x00ea}
0x1d26…1d4a Head {h00=0x0020, h01=0x0050, text=» IB SPBINW2,DUMMY,DUMMY, C «, t00=0x0012, t01=0x010c}
0x1d4a…1d70 Head {h00=0x0022, h01=0x0050, text=» KTFWD,DUMMY,DUMMY,KTFWD, C «, t00=0x0012, t01=0x0130}
0x1d70…1d96 Head {h00=0x0022, h01=0x0050, text=» KTBWD,KTFWD,KTFWD,KTFWD, C «, t00=0x0012, t01=0x0156}
0x1d96…1db2 Head {h00=0x0018, h01=0x0050, text=» KTBWD,KTFWD,KTBWD «, t00=0x0012, t01=0x017c}
0x1db2…1df2 Head {h00=0x003c, h01=0x0050, text=»* BRANCH LIST EXHAUSTED - SPBINW2 CLOBBERED BY SPTCHK«, t00=0x0013, t01=0x0008}
0x1df2…1dfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0048}
0x1dfc…1e10 Head {h00=0x0010, h01=0x0050, text=» B SETCREAD «, t00=0x0013, t01=0x0052}
0x1e10…1e18 Head {h00=0x0004, h01=0x0050, t00=0x0013, t01=0x0066}
0x1e18…1e20 Head {h00=0x0004, h01=0x0050, t00=0x0013, t01=0x006e}
0x1e20…1e2e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x0076}
0x1e2e…1e48 Head {h00=0x0016, h01=0x0050, text=»KCOPY HARD COPY «, t00=0x0013, t01=0x0084}
0x1e48…1e62 Head {h00=0x0016, h01=0x0050, text=» MOVE SPBINW3,='1'«, t00=0x0013, t01=0x009e}
0x1e62…1e86 Head {h00=0x0020, h01=0x0050, text=» PRINT SPDSPRT,SPBINW3,='0' «, t00=0x0013, t01=0x00b8}
0x1e86…1eb8 Head {h00=0x002e, h01=0x0050, text=» TBT SPERCALL,RETUR RETURN IF "SPERR"-CALL«, t00=0x0013, t01=0x00dc}
0x1eb8…1ee0 Head {h00=0x0024, h01=0x0050, text=» B SETCREAD SET CURSOR AND READ «, t00=0x0013, t01=0x010e}
0x1ee0…1eea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0136}
0x1eea…1f06 Head {h00=0x0018, h01=0x0050, text=»KDUPL DUPLICATION «, t00=0x0013, t01=0x0140}
0x1f06…1f38 Head {h00=0x002e, h01=0x0050, text=» MOVE SPBINW2,='3' INDICATE COMMON EOI-KEY«, t00=0x0013, t01=0x015c}
0x1f38…1f5a Head {h00=0x001e, h01=0x0050, text=» DUPL SPINPUT DUPLICATION «, t00=0x0013, t01=0x018e}
0x1f5a…1f7a Head {h00=0x001c, h01=0x0050, text=» BZ UPD260 DUPL ALLOWED «, t00=0x0014, t01=0x0020}
0x1f7a…1fae Head {h00=0x0030, h01=0x0050, text=» MOVE SPBINW4,='4' INDICATE ILLEGAL EOI-KEY «, t00=0x0014, t01=0x0040}
0x1fae…1fd2 Head {h00=0x0020, h01=0x0050, text=» B ERRPRINT DUPL NOT ALLOWED«, t00=0x0014, t01=0x0074}
0x1fd2…1fe0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x0098}
0x1fe0…1fea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00a6}
0x1fea…2002 Head {h00=0x0014, h01=0x0050, text=»* EDIT FIELD «, t00=0x0014, t01=0x00b0}
0x2002…200c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00c8}
0x200c…202e Head {h00=0x001e, h01=0x0050, text=»KEDERR EDIT AFTER ERROR «, t00=0x0014, t01=0x00d2}
0x202e…204e Head {h00=0x001c, h01=0x0050, text=» CBE SPBINW1,='0',KEDIT «, t00=0x0014, t01=0x00f4}
0x204e…206e Head {h00=0x001c, h01=0x0050, text=»KEDBWD EDIT AFTER TBWD«, t00=0x0014, t01=0x0114}
0x206e…2088 Head {h00=0x0016, h01=0x0050, text=» MOVE SPBINW1,='1'«, t00=0x0014, t01=0x0134}
0x2088…20a4 Head {h00=0x0018, h01=0x0050, text=»KEDIT NORMAL EDIT «, t00=0x0014, t01=0x014e}
0x20a4…20c6 Head {h00=0x001e, h01=0x0050, text=» GETCTL 1,SPBINW3 GET MAXL«, t00=0x0014, t01=0x016a}
0x20c6…20e8 Head {h00=0x001e, h01=0x0050, text=» CBNE SPBINW3,='0',KED100 «, t00=0x0014, t01=0x018c}
0x20e8…2114 Head {h00=0x0028, h01=0x0050, text=» EDWRT SPDSSCRN,BELL ACOUSTIC ALARM «, t00=0x0015, t01=0x001e}
0x2114…2128 Head {h00=0x0010, h01=0x0050, text=» B SETCREAD «, t00=0x0015, t01=0x004a}
0x2128…2136 Head {h00=0x000a, h01=0x0050, text=»KED100«, t00=0x0015, t01=0x005e}
0x2136…2160 Head {h00=0x0026, h01=0x0050, text=» EDFLD SPINPUT,SPKTAB3,SPBINW1, C«, t00=0x0015, t01=0x006c}
0x2160…217a Head {h00=0x0016, h01=0x0050, text=» SPBINW2,SPBINW4 «, t00=0x0015, t01=0x0096}
0x217a…2192 Head {h00=0x0014, h01=0x0050, text=» BL ERRPRT ERROR«, t00=0x0015, t01=0x00b0}
0x2192…21ce Head {h00=0x0038, h01=0x0050, text=» CBNG SPBINW2,='0',POWEROFF POWER OFF OR KEY SWITCH «, t00=0x0015, t01=0x00c8}
0x21ce…2200 Head {h00=0x002e, h01=0x0050, text=» CBNE SPBINW1,='0',KED150 LENGTH NOT ZERO «, t00=0x0015, t01=0x0104}
0x2200…222c Head {h00=0x0028, h01=0x0050, text=» SET SPCHANGE ITEM CLEARED BY EDFLD «, t00=0x0015, t01=0x0136}
0x222c…223a Head {h00=0x000a, h01=0x0050, text=»KED150«, t00=0x0015, t01=0x0162}
0x223a…2260 Head {h00=0x0022, h01=0x0050, text=» B DYKOUT CONTINUE AS FOR DYKI«, t00=0x0015, t01=0x0170}
0x2260…226e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x0008}
0x226e…2278 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0016}
0x2278…228e Head {h00=0x0012, h01=0x0050, text=»* ENTER KEY«, t00=0x0016, t01=0x0020}
0x228e…2298 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0036}
0x2298…22a6 Head {h00=0x000a, h01=0x0050, text=»KENTER«, t00=0x0016, t01=0x0040}
0x22a6…22da Head {h00=0x0030, h01=0x0050, text=» MOVE SPBINW4,='5' INDICATE COMP.FIELD FOUND«, t00=0x0016, t01=0x004e}
0x22da…230a Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW1,='0' INDICATE NO CLEARING «, t00=0x0016, t01=0x0082}
0x230a…233c Head {h00=0x002e, h01=0x0050, text=» MOVE SPBINW2,='0' SET INDEX TO LAST FIELD«, t00=0x0016, t01=0x00b2}
0x233c…2350 Head {h00=0x0010, h01=0x0050, text=» IN FORMAT«, t00=0x0016, t01=0x00e4}
0x2350…2390 Head {h00=0x003c, h01=0x0050, text=» GETFLD 0,SPBINW2,SPBINW3 SEARCH FOR EMPTY COMP. FIELDS «, t00=0x0016, t01=0x00f8}
0x2390…23bc Head {h00=0x0028, h01=0x0050, text=» BOFL KENT10 EMPTY COMP. FIELD FOUND«, t00=0x0016, t01=0x0138}
0x23bc…23e4 Head {h00=0x0024, h01=0x0050, text=» TSTCTL 2 LAST FIELD COMPULSORY?«, t00=0x0016, t01=0x0164}
0x23e4…23fa Head {h00=0x0012, h01=0x0050, text=» BZ KENT05 NO!«, t00=0x0016, t01=0x018c}
0x23fa…241e Head {h00=0x0020, h01=0x0050, text=» CALL EMPTYT,:FMTITEM EMPTY?«, t00=0x0017, t01=0x0012}
0x241e…2436 Head {h00=0x0014, h01=0x0050, text=» BP KENT10 YES! «, t00=0x0017, t01=0x0036}
0x2436…2444 Head {h00=0x000a, h01=0x0050, text=»KENT05«, t00=0x0017, t01=0x004e}
0x2444…247c Head {h00=0x0034, h01=0x0050, text=» MOVE SPBINW2,='3' INDICATE ENTER KEY DEPRESSED «, t00=0x0017, t01=0x005c}
0x247c…2488 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0017, t01=0x0094}
0x2488…2492 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00a0}
0x2492…24bc Head {h00=0x0026, h01=0x0050, text=»* EMPTY COMPULSORY FIELD FOUND «, t00=0x0017, t01=0x00aa}
0x24bc…24c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00d4}
0x24c6…24d4 Head {h00=0x000a, h01=0x0050, text=»KENT10«, t00=0x0017, t01=0x00de}
0x24d4…250e Head {h00=0x0036, h01=0x0050, text=» GETFLD 0,SPBINW3,SPBINW2 GET THE COMPULSORY FIELD«, t00=0x0017, t01=0x00ec}
0x250e…2522 Head {h00=0x0010, h01=0x0050, text=» B ERRPRINT «, t00=0x0017, t01=0x0126}
0x2522…2530 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x013a}
0x2530…2540 Head {h00=0x000c, h01=0x0050, text=»POWEROFF«, t00=0x0017, t01=0x0148}
0x2540…2550 Head {h00=0x000c, h01=0x0050, text=» B RETUR«, t00=0x0017, t01=0x0158}
0x2550…255e Head {h00=0x000a, h01=0x0050, text=»ERRPRT«, t00=0x0017, t01=0x0168}
0x255e…258c Head {h00=0x002a, h01=0x0050, text=» CBE SPBINW2,='16',KEDIT JUMP IF EDIT «, t00=0x0017, t01=0x0176}
0x258c…25ba Head {h00=0x002a, h01=0x0050, text=» CBE SPBINW2,='4',CANC JUMP IF CANCEL1«, t00=0x0018, t01=0x0014}
0x25ba…25e8 Head {h00=0x002a, h01=0x0050, text=» CBE SPBINW2,='5',CANC JUMP IF CANCEL2«, t00=0x0018, t01=0x0042}
0x25e8…2616 Head {h00=0x002a, h01=0x0050, text=» CBE SPBINW2,='7',KEDBWD JUMP IF TBWD «, t00=0x0018, t01=0x0070}
0x2616…2620 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x009e}
0x2620…263c Head {h00=0x0018, h01=0x0050, text=»* ERROR HANDLING «, t00=0x0018, t01=0x00a8}
0x263c…2646 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00c4}
0x2646…2656 Head {h00=0x000c, h01=0x0050, text=»ERRPRINT«, t00=0x0018, t01=0x00ce}
0x2656…2670 Head {h00=0x0016, h01=0x0050, text=» CMP SPBINW4,='0' «, t00=0x0018, t01=0x00de}
0x2670…2698 Head {h00=0x0024, h01=0x0050, text=» BE SETCREAD JUMP IF NO PRINTOUT«, t00=0x0018, t01=0x00f8}
0x2698…26c4 Head {h00=0x0028, h01=0x0050, text=» EDWRT SPDSSCRN,BELL ACOUSTIC ALARM «, t00=0x0018, t01=0x0120}
0x26c4…26f0 Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW3,=X'1801' ROW 24 COL. 1«, t00=0x0018, t01=0x014c}
0x26f0…2728 Head {h00=0x0034, h01=0x0050, text=» DSC1 SPDSSCRN,6,SPBINW3 SET CURSOR ON LAST ROW «, t00=0x0018, t01=0x0178}
0x2728…2752 Head {h00=0x0026, h01=0x0050, text=» EDWRT SPDSSCRN,SPFTBERR(SPBINW4) «, t00=0x0019, t01=0x0020}
0x2752…275c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x004a}
0x275c…277a Head {h00=0x001a, h01=0x0050, text=»* READ AFTER ERROR «, t00=0x0019, t01=0x0054}
0x277a…2784 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0072}
0x2784…2792 Head {h00=0x000a, h01=0x0050, text=»ERREAD«, t00=0x0019, t01=0x007c}
0x2792…27be Head {h00=0x0028, h01=0x0050, text=» SETCUR SET CURSOR AT THE BEGINNING«, t00=0x0019, t01=0x008a}
0x27be…27de Head {h00=0x001c, h01=0x0050, text=» OF THE CURRENT FIELD «, t00=0x0019, t01=0x00b6}
0x27de…27ec Head {h00=0x000a, h01=0x0050, text=»ERR100«, t00=0x0019, t01=0x00d6}
0x27ec…2818 Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW3,='1' REQUESTED LENGTH «, t00=0x0019, t01=0x00e4}
0x2818…2822 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0110}
0x2822…285c Head {h00=0x0036, h01=0x0050, text=» NKI .NE,SPDSDYKB,SPSTRGW1,SPKTAB1,SPBINW3,SPBINW2«, t00=0x0019, t01=0x011a}
0x285c…287e Head {h00=0x001e, h01=0x0050, text=» BNZ ERR100 JUMP IF NOT OK«, t00=0x0019, t01=0x0154}
0x287e…28b2 Head {h00=0x0030, h01=0x0050, text=» CBE SPBINW2,='0',POWEROFF JUMP IF POWER OFF«, t00=0x0019, t01=0x0176}
0x28b2…28d8 Head {h00=0x0022, h01=0x0050, text=» IB SPBINW2,ERR100,ERRCONT C «, t00=0x001a, t01=0x001a}
0x28d8…2900 Head {h00=0x0024, h01=0x0050, text=» ERRCONT,ERR100,ERRCONT,ERRCONT«, t00=0x001a, t01=0x0040}
0x2900…293e Head {h00=0x003a, h01=0x0050, text=» CBNE SPBINW2,='17',ERR100 TRY AGAIN IF NOT EDIT KEY! «, t00=0x001a, t01=0x0068}
0x293e…2948 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00a6}
0x2948…296a Head {h00=0x001e, h01=0x0050, text=»* CLEAR ERROR PRINTOUT «, t00=0x001a, t01=0x00b0}
0x296a…2974 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00d2}
0x2974…2984 Head {h00=0x000c, h01=0x0050, text=»ERRCONT «, t00=0x001a, t01=0x00dc}
0x2984…29b2 Head {h00=0x002a, h01=0x0050, text=» MOVE SPBINW3,='24' INDICATE LAST LINE«, t00=0x001a, t01=0x00ec}
0x29b2…29e2 Head {h00=0x002c, h01=0x0050, text=» ERASE 0,SPBINW3,SPBINW3 ERASE LAST LINE«, t00=0x001a, t01=0x011a}
0x29e2…2a0c Head {h00=0x0026, h01=0x0050, text=» CBE SPBINW2,='17',KEDERR EDIT KEY«, t00=0x001a, t01=0x014a}
0x2a0c…2a36 Head {h00=0x0026, h01=0x0050, text=» SUB SPBINW2,='1' ADJUST KEY INDEX«, t00=0x001a, t01=0x0174}
0x2a36…2a42 Head {h00=0x0008, h01=0x0050, text=»CANC«, t00=0x001b, t01=0x000e}
0x2a42…2a76 Head {h00=0x0030, h01=0x0050, text=» CBE SPBINW1,='0',ERRC10 JUMP IF LENGTH = 0 «, t00=0x001b, t01=0x001a}
0x2a76…2aaa Head {h00=0x0030, h01=0x0050, text=» MOVE SPINPUT,:FMTITEM SAVE CURRENT CONTENTS«, t00=0x001b, t01=0x004e}
0x2aaa…2aca Head {h00=0x001c, h01=0x0050, text=» MOVE SPSTRGW1,=X'3100' «, t00=0x001b, t01=0x0082}
0x2aca…2b04 Head {h00=0x0036, h01=0x0050, text=» MOVE :FMTITEM,SPSTRGW1 PUT SOMETHING IN THE FIELD«, t00=0x001b, t01=0x00a2}
0x2b04…2b2e Head {h00=0x0026, h01=0x0050, text=» GETABX SPBINW4 GET CURRENT INDEX «, t00=0x001b, t01=0x00dc}
0x2b2e…2b5c Head {h00=0x002a, h01=0x0050, text=» ERASE 10,SPBINW4,SPBINW4 CLEAR FIELD «, t00=0x001b, t01=0x0106}
0x2b5c…2b6a Head {h00=0x000a, h01=0x0050, text=»ERRC10«, t00=0x001b, t01=0x0134}
0x2b6a…2b92 Head {h00=0x0024, h01=0x0050, text=» IB SPBINW2,CLEAR1,CLEAR2,DUMMY «, t00=0x001b, t01=0x0142}
0x2b92…2bc6 Head {h00=0x0030, h01=0x0050, text=» SUB SPBINW2,='3' ADJUST FOR CANCEL1,CANCEL2«, t00=0x001b, t01=0x016a}
0x2bc6…2bd2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001c, t01=0x000e}
0x2bd2…2be0 Head {h00=0x000a, h01=0x0050, text=»CLEAR1«, t00=0x001c, t01=0x001a}
0x2be0…2c14 Head {h00=0x0030, h01=0x0050, text=» CBE SPBINW1,='0',ERRC20 JUMP IF LENGTH = 0 «, t00=0x001c, t01=0x0028}
0x2c14…2c40 Head {h00=0x0028, h01=0x0050, text=» SET SPCHANGE INDICATE CHANGED FIELD«, t00=0x001c, t01=0x005c}
0x2c40…2c4e Head {h00=0x000a, h01=0x0050, text=»ERRC20«, t00=0x001c, t01=0x0088}
0x2c4e…2c6a Head {h00=0x0018, h01=0x0050, text=» B SETCREAD CONTINUE«, t00=0x001c, t01=0x0096}
0x2c6a…2c74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00b2}
0x2c74…2c82 Head {h00=0x000a, h01=0x0050, text=»CLEAR2«, t00=0x001c, t01=0x00bc}
0x2c82…2cb4 Head {h00=0x002e, h01=0x0050, text=» CBE SPBINW1,='0',CLEA20 JUMP IF LENGTH 0 «, t00=0x001c, t01=0x00ca}
0x2cb4…2cec Head {h00=0x0034, h01=0x0050, text=» MOVE :FMTITEM,SPINPUT RESTORE CURRENT CONTENTS «, t00=0x001c, t01=0x00fc}
0x2cec…2cfa Head {h00=0x000a, h01=0x0050, text=»CLEA20«, t00=0x001c, t01=0x0134}
0x2cfa…2d28 Head {h00=0x002a, h01=0x0050, text=» GETABX SPBINW4 GET CURRENT TAB INDEX «, t00=0x001c, t01=0x0142}
0x2d28…2d58 Head {h00=0x002c, h01=0x0050, text=» DISPLAY 1,SPBINW4,SPBINW4 DISPLAY FIELD«, t00=0x001c, t01=0x0170}
0x2d58…2d6c Head {h00=0x0010, h01=0x0050, text=» B SETCREAD «, t00=0x001d, t01=0x0010}
0x2d6c…2d76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0024}
0x2d76…2d88 Head {h00=0x000e, h01=0x0050, text=»BELL FRMT «, t00=0x001d, t01=0x002e}
0x2d88…2d94 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x001d, t01=0x0040}
0x2d94…2daa Head {h00=0x0012, h01=0x0050, text=» FILLR X'07',1«, t00=0x001d, t01=0x004c}
0x2daa…2db8 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x001d, t01=0x0062}
0x2db8…2dc0 Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x0070}
0x2dc0…2dce Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001d, t01=0x0078}
0x2dce…2dd6 Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x0086}
0x2dd6…2de2 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x001d, t01=0x008e}
0x2de2…2de6 Head {h00=0x4004, h01=0x0000}
0x2de6…2dea 00 1d 00 9a ┆ ┆
0x2dea…2df2 (30, 1, 8) 20 04 00 00 00 1e 00 04 ┆ ┆
0x2df2…2e42 (31, 0, 400) 5c 4c 44 52 5c 4f 50 32 54 2c 57 4b 32 20 00 36 01 90 00 24 00 50 5c 53 55 4b 4c 5c 4f 50 32 54 2c 2f 31 30 30 5c 53 54 41 52 54 20 46 52 4f 4d 20 5a 45 52 4f 20 00 37 00 16 00 0e 00 50 5c 52 42 5c 47 44 53 45 54 31 00 37 00 3e 00 4c 00 50 ┆ LDR OP2T,WK2 6 $ P SUKL OP2T,/100 START FROM ZERO 7 P RB GDSET1 7 > L P┆
0x2e42…2e92 5c 45 4a 45 43 54 5c 5c 5c 54 3a 49 4f 20 5c 5c 5c 54 3a 49 4f 20 5c 5c 5c 54 3a 49 4f 20 5c 5c 5c 54 3a 49 4f 20 5c 5c 5c 54 3a 49 4f 20 5c 5c 5c 54 3a 49 4f 20 5c 5c 5c 54 3a 49 4f 20 5c 5c 5c 54 3a 49 4f 20 5c 5c 00 37 00 50 00 04 00 50 ┆ EJECT T:IO T:IO T:IO T:IO T:IO T:IO T:IO T:IO 7 P P┆
0x2e92…2ee2 00 37 00 a0 00 06 00 50 2a 20 00 37 00 a8 00 38 00 50 2a 5c 53 54 42 41 52 4c 5c 53 54 4f 52 45 20 42 55 46 46 45 52 20 41 44 44 52 45 53 53 20 41 4e 44 20 52 45 51 20 4c 45 4e 47 54 48 20 49 4e 20 45 43 42 20 00 37 00 b2 00 06 00 50 2a 20 ┆ 7 P* 7 8 P* STBARL STORE BUFFER ADDRESS AND REQ LENGTH IN ECB 7 P* ┆
0x2ee2…2f32 00 37 00 ee 00 04 00 50 00 37 00 f8 00 36 00 50 53 54 42 41 52 4c 5c 43 46 5c 50 53 2c 49 3a 45 56 41 30 5c 47 45 54 20 42 55 46 46 45 52 20 41 44 44 52 20 41 4e 44 20 52 45 51 20 4c 45 4e 47 54 48 00 37 01 00 00 22 00 50 5c 53 54 5c 4f 50 ┆ 7 P 7 6 PSTBARL CF PS,I:EVA0 GET BUFFER ADDR AND REQ LENGTH 7 " P ST OP┆
0x2f32…2f82 32 41 2c 45 43 42 42 41 2c 41 38 5c 53 54 4f 52 45 20 49 4e 20 45 43 42 00 37 01 3a 00 22 00 50 5c 53 55 52 5c 4f 50 32 45 2c 4f 50 32 41 5c 43 4f 4d 50 55 54 45 20 4c 45 4e 47 54 48 20 00 37 01 60 00 16 00 50 5c 53 54 5c 4f 50 32 45 2c 45 ┆2A,ECBBA,A8 STORE IN ECB 7 : " P SUR OP2E,OP2A COMPUTE LENGTH 7 ` P ST OP2E,E┆
0x2f82…2fd2 (32, 0, 400) 43 42 52 4c 2c 41 38 20 00 37 01 86 00 0c 00 50 5c 52 54 4e 5c 50 53 20 00 38 00 10 00 1a 00 50 5c 45 4a 45 43 54 5c 5c 5c 54 3a 49 4f 20 5c 5c 5c 54 3a 49 4f 20 00 38 00 20 00 06 00 50 2a 20 00 38 00 3e 00 28 00 50 2a 20 20 20 47 54 42 59 ┆CBRL,A8 7 P RTN PS 8 P EJECT T:IO T:IO 8 P* 8 > ( P* GTBY┆
0x2fd2…3022 54 45 20 20 2d 20 47 45 54 20 56 2d 43 4f 4e 53 54 41 4e 54 20 49 4e 20 4f 50 31 41 00 38 00 48 00 06 00 50 2a 20 00 38 00 74 00 10 00 50 54 3a 47 54 42 59 5c 45 51 55 5c 2a 00 38 00 7e 00 16 00 50 47 54 42 59 54 45 5c 4c 43 52 5c 4f 50 31 ┆TE - GET V-CONSTANT IN OP1A 8 H P* 8 t PT:GTBY EQU * 8 ~ PGTBYTE LCR OP1┆
0x3022…3072 41 2c 50 50 00 38 00 92 00 16 00 50 5c 41 44 4b 4c 5c 50 50 2c 31 5c 53 54 45 50 20 50 50 00 38 00 ac 00 22 00 50 5c 41 4e 4b 4c 5c 4f 50 31 41 2c 58 27 46 46 27 5c 49 53 4f 4c 41 54 45 20 42 59 54 45 20 00 38 00 c6 00 0c 00 50 5c 52 54 4e ┆A,PP 8 P ADKL PP,1 STEP PP 8 " P ANKL OP1A,X'FF' ISOLATE BYTE 8 P RTN┆
0x3072…30c2 5c 50 53 20 00 38 00 ec 00 0a 00 50 5c 45 4a 45 43 54 00 38 00 fc 00 06 00 50 2a 20 00 38 01 0a 00 28 00 50 2a 20 20 20 20 44 53 43 20 20 20 20 31 2e 20 47 45 54 20 45 43 42 20 41 4e 44 20 57 41 49 54 20 42 49 54 20 00 38 01 14 00 24 00 50 ┆ PS 8 P EJECT 8 P* 8 ( P* DSC 1. GET ECB AND WAIT BIT 8 $ P┆
0x30c2…3112 2a 20 20 20 20 20 20 20 20 20 20 20 32 2e 20 47 45 54 20 43 4f 4e 54 52 4f 4c 20 43 4f 44 45 20 00 38 01 40 00 2c 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 33 2e 20 50 52 45 50 41 52 45 20 43 4f 4e 54 52 4f 4c 20 57 4f 52 44 20 49 54 45 4d ┆* 2. GET CONTROL CODE 8 @ , P* 3. PREPARE CONTROL WORD ITEM┆
0x3112…3162 (33, 0, 400) 00 38 01 68 00 22 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 34 2e 20 50 52 45 50 41 52 45 20 44 53 43 42 49 58 20 00 39 00 08 00 06 00 50 2a 20 00 39 00 2e 00 0e 00 50 44 53 43 5c 45 51 55 5c 2a 20 00 39 00 38 00 26 00 50 5c 43 46 5c 50 53 ┆ 8 h " P* 4. PREPARE DSCBIX 9 P* 9 . PDSC EQU * 9 8 & P CF PS┆
0x3162…31b2 2c 47 54 57 45 44 53 5c 47 45 54 20 57 41 49 54 42 49 54 20 41 4e 44 20 44 53 45 54 00 39 00 4a 00 22 00 50 5c 43 46 5c 50 53 2c 47 54 42 59 54 45 5c 47 45 54 20 43 4f 4e 54 52 4f 4c 20 43 4f 44 45 00 39 00 74 00 26 00 50 5c 4c 43 52 5c 41 ┆,GTWEDS GET WAITBIT AND DSET 9 J " P CF PS,GTBYTE GET CONTROL CODE 9 t & P LCR A┆
0x31b2…3202 31 2c 41 38 5c 43 48 45 43 4b 20 49 46 20 46 49 4c 45 2d 43 54 52 4c 2d 4d 4f 44 45 00 39 00 9a 00 10 00 50 5c 41 4e 4b 5c 41 31 2c 2f 30 32 20 00 39 00 c4 00 12 00 50 5c 52 46 28 5a 29 5c 54 3a 44 53 43 58 20 00 39 00 d8 00 12 00 50 5c 43 ┆1,A8 CHECK IF FILE-CTRL-MODE 9 P ANK A1,/02 9 P RF(Z) T:DSCX 9 P C┆
0x3202…3252 46 5c 50 53 2c 54 3a 53 43 57 32 20 00 39 00 ee 00 0c 00 50 5c 52 54 4e 5c 50 53 20 00 39 01 04 00 10 00 50 54 3a 44 53 43 58 5c 45 51 55 5c 2a 00 39 01 14 00 12 00 50 5c 43 46 5c 50 53 2c 49 3a 45 56 41 32 20 00 39 01 28 00 1c 00 50 5c 4c ┆F PS,T:SCW2 9 P RTN PS 9 PT:DSCX EQU * 9 P CF PS,I:EVA2 9 ( P L┆
0x3252…32a2 44 4b 5c 57 4b 31 2c 31 5c 4c 49 54 45 52 41 4c 20 54 59 50 45 3f 00 39 01 3e 00 10 00 50 5c 54 4d 5c 41 31 31 2c 57 4b 31 20 00 39 01 5e 00 14 00 50 5c 52 46 28 5a 29 5c 44 53 43 30 31 5c 4e 4f 21 00 39 01 72 00 22 00 50 5c 43 4d 5c 44 53 ┆DK WK1,1 LITERAL TYPE? 9 > P TM A11,WK1 9 ^ P RF(Z) DSC01 NO! 9 r " P CM DS┆
0x32a2…32f2 (34, 0, 400) 43 42 49 58 2c 41 38 5c 43 4c 45 41 52 20 49 4e 44 45 58 20 49 54 45 4d 00 39 01 8a 00 0e 00 50 5c 52 46 5c 44 53 43 30 33 20 00 3a 00 20 00 22 00 50 44 53 43 30 31 5c 4c 44 52 5c 4f 50 31 54 2c 4f 50 32 54 5c 53 41 56 45 20 54 59 50 45 20 ┆CBIX,A8 CLEAR INDEX ITEM 9 P RF DSC03 : " PDSC01 LDR OP1T,OP2T SAVE TYPE ┆
0x32f2…3342 00 3a 00 32 00 24 00 50 5c 4c 44 52 5c 4f 50 31 45 2c 4f 50 32 45 5c 53 41 56 45 20 45 4e 44 20 41 44 44 52 45 53 53 20 00 3a 00 58 00 28 00 50 5c 41 4e 4b 5c 4f 50 31 54 2c 41 52 49 54 48 42 2b 4e 55 4d 42 49 54 5c 49 53 4f 4c 41 54 45 20 ┆ : 2 $ P LDR OP1E,OP2E SAVE END ADDRESS : X ( P ANK OP1T,ARITHB+NUMBIT ISOLATE ┆
0x3342…3392 54 59 50 45 00 3a 00 80 00 1c 00 50 5c 53 55 4b 5c 4f 50 31 54 2c 4e 55 4d 42 49 54 5c 42 49 4e 41 52 59 3f 00 3a 00 ac 00 16 00 50 5c 52 46 28 5a 29 5c 44 53 43 30 32 5c 59 45 53 21 20 00 3a 00 cc 00 12 00 50 5c 49 46 54 5c 50 41 52 4d 3d ┆TYPE : P SUK OP1T,NUMBIT BINARY? : P RF(Z) DSC02 YES! : P IFT PARM=┆
0x3392…33e2 54 45 53 54 00 3a 00 e6 00 1e 00 50 5c 53 55 4b 5c 4f 50 31 54 2c 41 52 49 54 48 42 5c 44 45 43 49 4d 41 4c 3f 20 00 3a 00 fc 00 26 00 50 5c 41 42 4c 28 4e 5a 29 5c 49 3a 45 52 52 32 5c 4e 4f 3a 20 49 4c 4c 45 47 41 4c 20 54 59 50 45 21 20 ┆TEST : P SUK OP1T,ARITHB DECIMAL? : & P ABL(NZ) I:ERR2 NO: ILLEGAL TYPE! ┆
0x33e2…3432 00 3a 01 1e 00 08 00 50 5c 58 49 46 00 3a 01 48 00 22 00 50 5c 53 55 52 5c 4f 50 31 45 2c 4f 50 32 41 5c 43 4f 4d 50 55 54 45 20 4c 45 4e 47 54 48 20 00 3a 01 54 00 24 00 50 5c 53 43 5c 4f 50 31 45 2c 45 43 42 43 57 32 2c 41 38 5c 53 54 4f ┆ : P XIF : H " P SUR OP1E,OP2A COMPUTE LENGTH : T $ P SC OP1E,ECBCW2,A8 STO┆
0x3432…3482 (35, 0, 400) 52 45 20 4c 45 4e 47 54 48 20 00 3a 01 7a 00 34 00 50 44 53 43 30 32 5c 53 54 5c 4f 50 32 41 2c 44 53 43 42 49 58 2c 41 38 5c 53 54 4f 52 45 20 49 4e 44 45 58 20 49 54 45 4d 20 41 44 44 52 45 53 53 00 3b 00 12 00 12 00 50 5c 43 46 5c 50 53 ┆RE LENGTH : z 4 PDSC02 ST OP2A,DSCBIX,A8 STORE INDEX ITEM ADDRESS ; P CF PS┆
0x3482…34d2 2c 54 3a 53 43 57 30 5c 00 3b 00 4a 00 0c 00 50 5c 52 54 4e 5c 50 53 20 00 3b 00 60 00 1a 00 50 5c 45 4a 45 43 54 5c 5c 5c 54 3a 49 4f 20 5c 5c 5c 54 3a 49 4f 20 00 3b 00 70 00 06 00 50 2a 20 00 3b 00 8e 00 2a 00 50 2a 20 20 20 53 41 56 46 ┆,T:SCW0 ; J P RTN PS ; ` P EJECT T:IO T:IO ; p P* ; * P* SAVF┆
0x34d2…3522 42 41 20 20 2d 20 53 41 56 45 20 46 49 58 20 42 55 46 46 45 52 20 41 44 44 52 45 53 53 20 00 3b 00 98 00 06 00 50 2a 20 00 3b 00 c6 00 06 00 50 2a 20 00 3b 00 d0 00 32 00 50 2a 20 20 20 20 20 20 41 44 44 52 2e 20 4f 46 20 44 53 45 54 2d 42 ┆BA - SAVE FIX BUFFER ADDRESS ; P* ; P* ; 2 P* ADDR. OF DSET-B┆
0x3522…3572 55 46 46 45 52 20 49 53 20 53 41 56 45 44 20 49 4e 20 44 53 43 42 52 49 00 3b 00 da 00 18 00 50 2a 20 20 20 20 20 20 42 46 53 42 49 54 20 49 53 20 53 45 54 00 3b 01 10 00 34 00 50 2a 20 20 20 20 20 20 44 53 43 42 4c 4e 20 49 53 20 43 4c 45 ┆UFFER IS SAVED IN DSCBRI ; P* BFSBIT IS SET ; 4 P* DSCBLN IS CLE┆
0x3572…35c2 41 52 45 44 20 49 46 20 4e 4f 20 42 55 46 46 45 52 20 41 4c 4c 4f 43 41 54 45 44 20 00 3b 01 2c 00 1c 00 50 2a 20 20 20 20 20 20 44 53 43 42 49 58 20 49 53 20 43 4c 45 41 52 45 44 00 3b 01 64 00 06 00 50 2a 20 00 3b 01 84 00 10 00 50 53 41 ┆ARED IF NO BUFFER ALLOCATED ; , P* DSCBIX IS CLEARED ; d P* ; PSA┆
0x35c2…3612 (36, 0, 400) 56 46 42 41 5c 45 51 55 5c 2a 00 3b 01 8e 00 12 00 50 5c 43 4d 5c 44 53 43 42 49 58 2c 41 38 20 00 3c 00 12 00 16 00 50 53 41 56 46 42 32 5c 4c 43 52 5c 57 4b 31 2c 41 38 20 00 3c 00 28 00 20 00 50 5c 41 4e 4b 5c 57 4b 31 2c 42 55 46 42 49 ┆VFBA EQU * ; P CM DSCBIX,A8 < PSAVFB2 LCR WK1,A8 < ( P ANK WK1,BUFBI┆
0x3612…3662 54 5c 41 4e 59 20 42 55 46 46 45 52 20 3f 00 3c 00 42 00 14 00 50 5c 52 46 28 5a 29 5c 53 41 56 46 39 30 5c 4e 4f 00 3c 00 66 00 04 00 50 00 3c 00 7e 00 10 00 50 5c 4c 43 52 5c 57 4b 31 2c 41 38 20 00 3c 00 86 00 14 00 50 5c 4f 52 4b 5c 57 ┆T ANY BUFFER ? < B P RF(Z) SAVF90 NO < f P < ~ P LCR WK1,A8 < P ORK W┆
0x3662…36b2 4b 31 2c 42 46 53 42 49 54 20 00 3c 00 9a 00 1e 00 50 5c 53 43 52 5c 57 4b 31 2c 41 38 5c 53 45 54 20 49 4e 44 49 43 41 54 4f 52 20 00 3c 00 b2 00 04 00 50 00 3c 00 d4 00 14 00 50 5c 4c 44 5c 57 4b 31 2c 45 43 42 42 41 2c 41 38 00 3c 00 dc ┆K1,BFSBIT < P SCR WK1,A8 SET INDICATOR < P < P LD WK1,ECBBA,A8 < ┆
0x36b2…3702 00 16 00 50 5c 53 54 5c 57 4b 31 2c 44 53 43 42 52 49 2c 41 38 20 00 3c 00 f4 00 2e 00 50 5c 4c 44 5c 57 4b 32 2c 44 53 43 42 4c 4e 2c 41 38 5c 47 45 54 20 46 49 58 45 44 20 42 55 46 46 45 52 20 4c 45 4e 47 54 48 20 00 3c 01 0e 00 24 00 50 ┆ P ST WK1,DSCBRI,A8 < . P LD WK2,DSCBLN,A8 GET FIXED BUFFER LENGTH < $ P┆
0x3702…3752 5c 53 54 52 5c 57 4b 32 2c 57 4b 31 5c 53 41 56 45 20 49 4e 20 46 49 58 20 42 55 46 46 45 52 20 00 3c 01 40 00 04 00 50 00 3c 01 68 00 18 00 50 53 41 56 46 39 30 5c 43 4d 5c 44 53 43 42 4c 4e 2c 41 38 20 00 3c 01 70 00 0c 00 50 5c 52 54 4e ┆ STR WK2,WK1 SAVE IN FIX BUFFER < @ P < h PSAVF90 CM DSCBLN,A8 < p P RTN┆