|
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: 10988 (0x2aec)
Notes: pts_type(SC)
Names: »SCREEN.SC«
└─⟦efe3a1cfc⟧ Bits:30009667 Philips computer tape "600113"
└─⟦this⟧ »SCREEN/SCREEN.SC«
IDENT SCREEN 78-09-15 8701 380 40320 * * A STANDARD PROGRAM PACKAGE HANDLING * A COMPLETE PICTURE ON A DISPLAY SCREEN * * RUNNING UNDER: CREDIT REL 3.1 * TOSS REL 8.1 * 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 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 * 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' RET PEND * EJECT SCREEN PROC $OPT PLIT $OPT OPTIO SELECTOR MOVE SPBINW2,$OPT 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,SPKTAB1,SPKTAB2,SPBINW1, C SPBINW2,SPBINW4 BL ERRPRT ERROR 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 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,SPKTAB3,SPBINW1, C SPBINW2,SPBINW4 BL ERRPRT ERROR 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 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,=W'14' REQUESTED LENGTH NKIA .NE,SPDSDYKB,SPINPUT,SPKTAB1,SPBINW3,SPBINW2 BNZ ERR100 JUMP IF NOT OK CBE SPBINW2,='0',RETUR JUMP IF POWER OFF IB SPBINW2,ERR100,ERRCONT C ERRCONT,ERR100,ERRCONT,ERRCONT B ERR100 CONTINUE * * CLEAR ERROR PRINTOUT * ERRCONT MOVE SPBINW3,='24' 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 PEND END
0x0000…0032 (0, 0, 400) Head {h00=0x002e, h01=0x0050, text=» IDENT SCREEN 78-09-15 8701 380 40320 «, 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 3.1 «, t00=0x0000, t01=0x00ae}
0x00d6…0102 Head {h00=0x0028, h01=0x0050, text=»* TOSS REL 8.1 «, 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…01f2 Head {h00=0x0028, h01=0x0050, text=» ENTRY SPERR DISPLAY ERROR PRINTOUT «, t00=0x0001, t01=0x003a}
0x01f2…0212 Head {h00=0x001c, h01=0x0050, text=» AND CONTINUE HANDLING«, t00=0x0001, t01=0x0066}
0x0212…021c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0086}
0x021c…024c Head {h00=0x002c, h01=0x0050, text=» EXT SPCHK1 STANDARD CHECK ROUTINE NO. 1«, t00=0x0001, t01=0x0090}
0x024c…027c Head {h00=0x002c, h01=0x0050, text=» EXT SPCHK2 STANDARD CHECK ROUTINE NO. 2«, t00=0x0001, t01=0x00c0}
0x027c…02ac Head {h00=0x002c, h01=0x0050, text=» EXT SPCHK3 STANDARD CHECK ROUTINE NO. 3«, t00=0x0001, t01=0x00f0}
0x02ac…02dc Head {h00=0x002c, h01=0x0050, text=» EXT SPCHK4 STANDARD CHECK ROUTINE NO. 4«, t00=0x0001, t01=0x0120}
0x02dc…030c Head {h00=0x002c, h01=0x0050, text=» EXT SPCHK5 STANDARD CHECK ROUTINE NO.5 «, t00=0x0001, t01=0x0150}
0x030c…033c Head {h00=0x002c, h01=0x0050, text=» EXT SPCHK6 STANDARD CHECK ROUTINE NO. 6«, t00=0x0001, t01=0x0180}
0x033c…036c Head {h00=0x002c, h01=0x0050, text=» EXT SPCHK7 STANDARD CHECK ROUTINE NO. 7«, t00=0x0002, t01=0x0020}
0x036c…0396 Head {h00=0x0026, h01=0x0050, text=» EXT SPAPPL USER ROUTINE TO HANDLE«, t00=0x0002, t01=0x0050}
0x0396…03ac Head {h00=0x0012, h01=0x0050, text=» APPL VALUES«, t00=0x0002, t01=0x007a}
0x03ac…03d8 Head {h00=0x0028, h01=0x0050, text=» EXT SPTCHK USER ROUTINE TO EVALUATE«, t00=0x0002, t01=0x0090}
0x03d8…03fa Head {h00=0x001e, h01=0x0050, text=» CONDITIONAL TABULATION «, t00=0x0002, t01=0x00bc}
0x03fa…0404 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00de}
0x0404…0436 Head {h00=0x002e, h01=0x0050, text=» EXT EMPTYT ASSEMBLY SUBROUTINE EMPTYT - «, t00=0x0002, t01=0x00e8}
0x0436…045c Head {h00=0x0022, h01=0x0050, text=» TEST IF DATA ITEM IS EMPTY «, t00=0x0002, t01=0x011a}
0x045c…0466 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0140}
0x0466…0482 Head {h00=0x0018, h01=0x0050, text=» INCLUDE SPLITT,LIST«, t00=0x0002, t01=0x014a}
0x0482…0490 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0166}
0x0490…049a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0174}
0x049a…04dc Head {h00=0x003e, h01=0x0050, text=»* CLEAR ALL VARIABLE FIELD BEFORE HANDLING THE PICTURE «, t00=0x0002, t01=0x017e}
0x04dc…04e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0030}
0x04e6…04fa Head {h00=0x0010, h01=0x0050, text=»SPCLRA PROC «, t00=0x0003, t01=0x003a}
0x04fa…0514 Head {h00=0x0016, h01=0x0050, text=» PERF SCREEN,=W'1'«, t00=0x0003, t01=0x004e}
0x0514…0520 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0003, t01=0x0068}
0x0520…052e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0003, t01=0x0074}
0x052e…0538 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0082}
0x0538…057c Head {h00=0x0040, h01=0x0050, text=»* CLEAR SOME VARIABLE FIELDS BEFORE HANDLING THE PICTURE «, t00=0x0003, t01=0x008c}
0x057c…0586 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00d0}
0x0586…059a Head {h00=0x0010, h01=0x0050, text=»SPCLRS PROC «, t00=0x0003, t01=0x00da}
0x059a…05b4 Head {h00=0x0016, h01=0x0050, text=» PERF SCREEN,=W'2'«, t00=0x0003, t01=0x00ee}
0x05b4…05c0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0003, t01=0x0108}
0x05c0…05ce Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0003, t01=0x0114}
0x05ce…05d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0122}
0x05d8…061a Head {h00=0x003e, h01=0x0050, text=»* CLEAR NO VARIABLE FIELDS BEFORE HANDLING THE PICTURE «, t00=0x0003, t01=0x012c}
0x061a…0624 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x016e}
0x0624…0638 Head {h00=0x0010, h01=0x0050, text=»SPCLRN PROC «, t00=0x0003, t01=0x0178}
0x0638…0652 Head {h00=0x0016, h01=0x0050, text=» PERF SCREEN,=W'3'«, t00=0x0003, t01=0x018c}
0x0652…065e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0004, t01=0x0016}
0x065e…066c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0004, t01=0x0022}
0x066c…0676 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0030}
0x0676…06ae Head {h00=0x0034, h01=0x0050, text=»* HANDLE ERRORS DETECTED OUTSIDE THE PACKAGE «, t00=0x0004, t01=0x003a}
0x06ae…06b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0072}
0x06b8…06ca Head {h00=0x000e, h01=0x0050, text=»SPERR PROC«, t00=0x0004, t01=0x007c}
0x06ca…06e4 Head {h00=0x0016, h01=0x0050, text=» PERF SCREEN,=W'0'«, t00=0x0004, t01=0x008e}
0x06e4…06f0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0004, t01=0x00a8}
0x06f0…06fe Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0004, t01=0x00b4}
0x06fe…0708 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00c2}
0x0708…0716 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x00cc}
0x0716…072e Head {h00=0x0014, h01=0x0050, text=»SCREEN PROC $OPT«, t00=0x0004, t01=0x00da}
0x072e…0750 Head {h00=0x001e, h01=0x0050, text=» PLIT $OPT OPTIO SELECTOR «, t00=0x0004, t01=0x00f2}
0x0750…0758 Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x0114}
0x0758…0784 Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW2,$OPT MOVE TO VARIABLE «, t00=0x0004, t01=0x011c}
0x0784…07aa Head {h00=0x0022, h01=0x0050, text=» TO ALLOW INSTR.S CMP AND IB«, t00=0x0004, t01=0x0148}
0x07aa…07d4 Head {h00=0x0026, h01=0x0050, text=» CMP SPBINW2,='0' "SPERR" ENTRY ? «, t00=0x0004, t01=0x016e}
0x07d4…07ee Head {h00=0x0016, h01=0x0050, text=» BE ERRPRINT YES !«, t00=0x0005, t01=0x0008}
0x07ee…07f6 Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x0022}
0x07f6…0822 Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW1,='1' SET INITIAL VALUE«, t00=0x0005, t01=0x002a}
0x0822…0854 Head {h00=0x002e, h01=0x0050, text=» TBT SPPROMPT,ENTIRE JUMP IF ENTIRE FORMAT«, t00=0x0005, t01=0x0056}
0x0854…0872 Head {h00=0x001a, h01=0x0050, text=» SHOULD BE DISPLAYED«, t00=0x0005, t01=0x0088}
0x0872…087c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00a6}
0x087c…089e Head {h00=0x001e, h01=0x0050, text=»* ONLY VARIABLE FIELDS «, t00=0x0005, t01=0x00b0}
0x089e…08a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00d2}
0x08a8…08e4 Head {h00=0x0038, h01=0x0050, text=» IB SPBINW2,CLEARA,CLEARS,CONT JUMP ON ROUTINE INDEX«, t00=0x0005, t01=0x00dc}
0x08e4…08ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0118}
0x08ee…08fc Head {h00=0x000a, h01=0x0050, text=»CLEARA«, t00=0x0005, t01=0x0122}
0x08fc…0932 Head {h00=0x0032, h01=0x0050, text=» ERASE 2,SPBINW1,='0' ERASE ALL FROM 1 AND UP «, t00=0x0005, t01=0x0130}
0x0932…0942 Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x0005, t01=0x0166}
0x0942…094c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0176}
0x094c…095a Head {h00=0x000a, h01=0x0050, text=»CLEARS«, t00=0x0005, t01=0x0180}
0x095a…0990 Head {h00=0x0032, h01=0x0050, text=» ERASE 5,SPBINW1,='0' ERASE SOME FROM 1 AND UP«, t00=0x0005, t01=0x018e}
0x0990…09a0 Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x0006, t01=0x0034}
0x09a0…09ae Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0044}
0x09ae…09b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0052}
0x09b8…09da Head {h00=0x001e, h01=0x0050, text=»* DISPLAY ENTIRE FORMAT«, t00=0x0006, t01=0x005c}
0x09da…09e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x007e}
0x09e4…09f2 Head {h00=0x000a, h01=0x0050, text=»ENTIRE«, t00=0x0006, t01=0x0088}
0x09f2…0a2e Head {h00=0x0038, h01=0x0050, text=» IB SPBINW2,ECLRA,ECLRS,ECLRN JUMP ON ROUTINE INDEX «, t00=0x0006, t01=0x0096}
0x0a2e…0a38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00d2}
0x0a38…0a58 Head {h00=0x001c, h01=0x0050, text=»* CLEAR ALL VARIABLES«, t00=0x0006, t01=0x00dc}
0x0a58…0a62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00fc}
0x0a62…0a70 Head {h00=0x000a, h01=0x0050, text=»ECLRA «, t00=0x0006, t01=0x0106}
0x0a70…0aa6 Head {h00=0x0032, h01=0x0050, text=» ERASE 3,SPBINW1,='0' CLEAR ALL FROM 1 AND UP «, t00=0x0006, t01=0x0114}
0x0aa6…0aba Head {h00=0x0010, h01=0x0050, text=» IN MEMORY«, t00=0x0006, t01=0x014a}
0x0aba…0ad4 Head {h00=0x0016, h01=0x0050, text=» B ECLRN CONTINUE «, t00=0x0006, t01=0x015e}
0x0ad4…0ade Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0178}
0x0ade…0b00 Head {h00=0x001e, h01=0x0050, text=»* CLEAR SOME VARIABLES «, t00=0x0006, t01=0x0182}
0x0b00…0b0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0014}
0x0b0a…0b18 Head {h00=0x000a, h01=0x0050, text=»ECLRS «, t00=0x0007, t01=0x001e}
0x0b18…0b4c Head {h00=0x0030, h01=0x0050, text=» ERASE 6,SPBINW1,='0' CLEAR SOME FIELDS FROM«, t00=0x0007, t01=0x002c}
0x0b4c…0b6a Head {h00=0x001a, h01=0x0050, text=» 1 AND UP IN MEMORY «, t00=0x0007, t01=0x0060}
0x0b6a…0b74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x007e}
0x0b74…0b9e Head {h00=0x0026, h01=0x0050, text=»* CLEAR NO VARIABLES IN MEMORY «, t00=0x0007, t01=0x0088}
0x0b9e…0ba8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00b2}
0x0ba8…0bb6 Head {h00=0x000a, h01=0x0050, text=»ECLRN «, t00=0x0007, t01=0x00bc}
0x0bb6…0bea Head {h00=0x0030, h01=0x0050, text=» DISPLAY 0,SPBINW1,='0' DISPLAY ENTIRE FORM «, t00=0x0007, t01=0x00ca}
0x0bea…0bf8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x00fe}
0x0bf8…0c02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x010c}
0x0c02…0c0e Head {h00=0x0008, h01=0x0050, text=»CONT«, t00=0x0007, t01=0x0116}
0x0c0e…0c38 Head {h00=0x0026, h01=0x0050, text=» GETABX SPBINW4 GET CURRENT INDEX «, t00=0x0007, t01=0x0122}
0x0c38…0c64 Head {h00=0x0028, h01=0x0050, text=» BL KTHOME JUMP IF NO CURRENT FIELD «, t00=0x0007, t01=0x014c}
0x0c64…0c72 Head {h00=0x000a, h01=0x0050, text=»CONT5 «, t00=0x0007, t01=0x0178}
0x0c72…0cac Head {h00=0x0036, h01=0x0050, text=» GETFLD 0,SPBINW4,SPBINW3 SEARCH CURRENT POSITION «, t00=0x0007, t01=0x0186}
0x0cac…0cce Head {h00=0x001e, h01=0x0050, text=» BZ SETCREAD JUMP IF FOUND«, t00=0x0008, t01=0x0030}
0x0cce…0cf4 Head {h00=0x0022, h01=0x0050, text=» BL KTHOME POSITION NOT FOUND «, t00=0x0008, t01=0x0052}
0x0cf4…0cfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0078}
0x0cfe…0d22 Head {h00=0x0020, h01=0x0050, text=»* COMPULSORY FIELD FOUND «, t00=0x0008, t01=0x0082}
0x0d22…0d2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00a6}
0x0d2c…0d56 Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW4,SPBINW3 CHANGE INDEX«, t00=0x0008, t01=0x00b0}
0x0d56…0d74 Head {h00=0x001a, h01=0x0050, text=» B CONT5 SEARCH AGAIN «, t00=0x0008, t01=0x00da}
0x0d74…0d7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00f8}
0x0d7e…0d8c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0102}
0x0d8c…0d96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0110}
0x0d96…0dc0 Head {h00=0x0026, h01=0x0050, text=»* SET CURSOR AND READ KEYBOARD «, t00=0x0008, t01=0x011a}
0x0dc0…0dca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0144}
0x0dca…0dda Head {h00=0x000c, h01=0x0050, text=»SETCREAD«, t00=0x0008, t01=0x014e}
0x0dda…0e06 Head {h00=0x0028, h01=0x0050, text=» SETCUR SET CURSOR ON CURRENT FIELD«, t00=0x0008, t01=0x015e}
0x0e06…0e0e Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x018a}
0x0e0e…0e18 (9, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0004}
0x0e18…0e46 Head {h00=0x002a, h01=0x0050, text=»* READ TO CURRENT FIELD ON DISPLAY «, t00=0x0009, t01=0x000e}
0x0e46…0e50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x003c}
0x0e50…0e5e Head {h00=0x000a, h01=0x0050, text=»READIN«, t00=0x0009, t01=0x0046}
0x0e5e…0e90 Head {h00=0x002e, h01=0x0050, text=» DYKI SPINPUT,SPKTAB1,SPKTAB2,SPBINW1, C «, t00=0x0009, t01=0x0054}
0x0e90…0eaa Head {h00=0x0016, h01=0x0050, text=» SPBINW2,SPBINW4 «, t00=0x0009, t01=0x0086}
0x0eaa…0ec2 Head {h00=0x0014, h01=0x0050, text=» BL ERRPRT ERROR«, t00=0x0009, t01=0x00a0}
0x0ec2…0ef8 Head {h00=0x0032, h01=0x0050, text=» CBNG SPBINW2,='0',RETUR JUMP IF POWER OFF OR «, t00=0x0009, t01=0x00b8}
0x0ef8…0f10 Head {h00=0x0014, h01=0x0050, text=» KEY SWITCHES «, t00=0x0009, t01=0x00ee}
0x0f10…0f1e Head {h00=0x000a, h01=0x0050, text=»DYKOUT«, t00=0x0009, t01=0x0106}
0x0f1e…0f4a Head {h00=0x0028, h01=0x0050, text=» IB SPBINW2,UPD300,CLEA20 JUMP ON C «, t00=0x0009, t01=0x0114}
0x0f4a…0f68 Head {h00=0x001a, h01=0x0050, text=» UPDATE,CANC,CANC, C«, t00=0x0009, t01=0x0140}
0x0f68…0f9a Head {h00=0x002e, h01=0x0050, text=» UPDATE,UPDATE,UPDATE,UPDATE CONVERTED C «, t00=0x0009, t01=0x015e}
0x0f9a…0fd2 Head {h00=0x0034, h01=0x0050, text=» UPDATE,UPDATE,UPDATE,UPDATE END-OF-ITEM-KEY C «, t00=0x0009, t01=0x0190}
0x0fd2…0fee Head {h00=0x0018, h01=0x0050, text=» UPDATE,KDUPL,KEDIT«, t00=0x000a, t01=0x0038}
0x0fee…0ffc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0054}
0x0ffc…1006 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0062}
0x1006…103e Head {h00=0x0034, h01=0x0050, text=»* HANDLE THE RESPECTIVE KEY AS EOI-KEY FIRST «, t00=0x000a, t01=0x006c}
0x103e…1048 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00a4}
0x1048…1056 Head {h00=0x000a, h01=0x0050, text=»UPDATE«, t00=0x000a, t01=0x00ae}
0x1056…108a Head {h00=0x0030, h01=0x0050, text=» CBE SPBINW1,='0',UPD350 JUMP IF LENGTH = 0 «, t00=0x000a, t01=0x00bc}
0x108a…10b4 Head {h00=0x0026, h01=0x0050, text=» GETCTL 3,SPBINW4 GET SCHK-NUMBER «, t00=0x000a, t01=0x00f0}
0x10b4…10f0 Head {h00=0x0038, h01=0x0050, text=» CBE SPBINW4,='0',UPD050 JUMP IF NOT STANDARD CHECK «, t00=0x000a, t01=0x011a}
0x10f0…111e Head {h00=0x002a, h01=0x0050, text=» PERFI SPBINW4,SPCHK1,SPCHK2,SPCHK3 C«, t00=0x000a, t01=0x0156}
0x111e…1144 Head {h00=0x0022, h01=0x0050, text=» SPCHK4,SPCHK5,SPCHK6,SPCHK7 «, t00=0x000a, t01=0x0184}
0x1144…116e Head {h00=0x0026, h01=0x0050, text=» IB SPBINW3,UPD100,UPD070,ERRPRINT«, t00=0x000b, t01=0x001a}
0x116e…1178 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0044}
0x1178…119c Head {h00=0x0020, h01=0x0050, text=»* CONDITIONAL DISPLAYING «, t00=0x000b, t01=0x004e}
0x119c…11a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0072}
0x11a6…11b4 Head {h00=0x000a, h01=0x0050, text=»UPD050«, t00=0x000b, t01=0x007c}
0x11b4…11e4 Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW4,='1' INDICATE COND. DISPL «, t00=0x000b, t01=0x008a}
0x11e4…11f6 Head {h00=0x000e, h01=0x0050, text=» B UPD200 «, t00=0x000b, t01=0x00ba}
0x11f6…1204 Head {h00=0x000a, h01=0x0050, text=»UPD070«, t00=0x000b, t01=0x00cc}
0x1204…122c Head {h00=0x0024, h01=0x0050, text=» GETCTL 0,SPBINW3 GET APPL-VALUE«, t00=0x000b, t01=0x00da}
0x122c…1260 Head {h00=0x0030, h01=0x0050, text=» CBNE SPBINW3,='0',UPD210 JUMP IF APPL VALUE«, t00=0x000b, t01=0x0102}
0x1260…1274 Head {h00=0x0010, h01=0x0050, text=» B SETCREAD «, t00=0x000b, t01=0x0136}
0x1274…127e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x014a}
0x127e…12a4 Head {h00=0x0022, h01=0x0050, text=»* UNCONDITIONAL DISPLAYING «, t00=0x000b, t01=0x0154}
0x12a4…12ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x017a}
0x12ae…12bc Head {h00=0x000a, h01=0x0050, text=»UPD100«, t00=0x000b, t01=0x0184}
0x12bc…12f6 (12, 0, 400) Head {h00=0x0036, h01=0x0050, text=» MOVE SPBINW4,='2' INDICATE UNCONDITIONAL DISPLAY «, t00=0x000c, t01=0x0004}
0x12f6…1304 Head {h00=0x000a, h01=0x0050, text=»UPD200«, t00=0x000c, t01=0x003e}
0x1304…132c Head {h00=0x0024, h01=0x0050, text=» GETCTL 0,SPBINW3 GET APPL-VALUE«, t00=0x000c, t01=0x004c}
0x132c…1362 Head {h00=0x0032, h01=0x0050, text=» CBE SPBINW3,='0',UPD400 JUMP IF NO APPL VALUE«, t00=0x000c, t01=0x0074}
0x1362…136c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00aa}
0x136c…1398 Head {h00=0x0028, h01=0x0050, text=»* APPL-VALUE DIFFERENT FROM ZERO «, t00=0x000c, t01=0x00b4}
0x1398…13a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00e0}
0x13a2…13b0 Head {h00=0x000a, h01=0x0050, text=»UPD210«, t00=0x000c, t01=0x00ea}
0x13b0…13c4 Head {h00=0x0010, h01=0x0050, text=» PERF SPAPPL«, t00=0x000c, t01=0x00f8}
0x13c4…13f0 Head {h00=0x0028, h01=0x0050, text=» IB SPBINW3,UPD260,SETCREAD,ERRPRINT«, t00=0x000c, t01=0x010c}
0x13f0…1402 Head {h00=0x000e, h01=0x0050, text=» B UPD400 «, t00=0x000c, t01=0x0138}
0x1402…140c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x014a}
0x140c…142e Head {h00=0x001e, h01=0x0050, text=»* OK AFTER APPL CONTROL«, t00=0x000c, t01=0x0154}
0x142e…1454 Head {h00=0x0022, h01=0x0050, text=»* UNCONDITIONAL DISPLAYING «, t00=0x000c, t01=0x0176}
0x1454…145e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x000c}
0x145e…146c Head {h00=0x000a, h01=0x0050, text=»UPD260«, t00=0x000d, t01=0x0016}
0x146c…14a2 Head {h00=0x0032, h01=0x0050, text=» UPDFLD 1,SPINPUT UPDATE FIELD WITH DISPLAYING«, t00=0x000d, t01=0x0024}
0x14a2…14d4 Head {h00=0x002e, h01=0x0050, text=»UPD300 SET SPCHANGE INDICATE CHANGED ITEM «, t00=0x000d, t01=0x005a}
0x14d4…14e2 Head {h00=0x000a, h01=0x0050, text=»UPD350«, t00=0x000d, t01=0x008c}
0x14e2…150a Head {h00=0x0024, h01=0x0050, text=»* JUMP ON FUNCTION KEY INDEX «, t00=0x000d, t01=0x009a}
0x150a…152e Head {h00=0x0020, h01=0x0050, text=» IB SPBINW2,READIN,DUMMY, C«, t00=0x000d, t01=0x00c2}
0x152e…1552 Head {h00=0x0020, h01=0x0050, text=» KEOI,DUMMY,DUMMY,KTFWD, C«, t00=0x000d, t01=0x00e6}
0x1552…1584 Head {h00=0x002e, h01=0x0050, text=» KTBWD,KTHOME,KTLDOWN,KTLEFT,KTRIGHT, C «, t00=0x000d, t01=0x010a}
0x1584…15b2 Head {h00=0x002a, h01=0x0050, text=» KTDOWN,KTUP,KCOPY,DUMMY,DUMMY,KENTER«, t00=0x000d, t01=0x013c}
0x15b2…15e2 Head {h00=0x002c, h01=0x0050, text=» SUB SPBINW2,=W'14' ADJUST EOI-KEY INDEX«, t00=0x000d, t01=0x016a}
0x15e2…15f0 Head {h00=0x000a, h01=0x0050, text=»DUMMY «, t00=0x000e, t01=0x000a}
0x15f0…15fe Head {h00=0x000a, h01=0x0050, text=»RETUR «, t00=0x000e, t01=0x0018}
0x15fe…160a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000e, t01=0x0026}
0x160a…1614 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0032}
0x1614…1622 Head {h00=0x000a, h01=0x0050, text=»UPD400«, t00=0x000e, t01=0x003c}
0x1622…165e Head {h00=0x0038, h01=0x0050, text=» CBE SPBINW4,='2',UPD260 JUMP IF UNCONDITIONAL DISPL«, t00=0x000e, t01=0x004a}
0x165e…1692 Head {h00=0x0030, h01=0x0050, text=» UPDFLD 0,SPINPUT UPDATE FIELD DISPL. COND. «, t00=0x000e, t01=0x0086}
0x1692…16a4 Head {h00=0x000e, h01=0x0050, text=» B UPD300 «, t00=0x000e, t01=0x00ba}
0x16a4…16ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00cc}
0x16ae…16bc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x00d6}
0x16bc…16e2 Head {h00=0x0022, h01=0x0050, text=»KEOI COMMON END-OF-ITEM KEY «, t00=0x000e, t01=0x00e4}
0x16e2…1706 Head {h00=0x0020, h01=0x0050, text=»KTFWD TAB. FORWARD 1 STEP «, t00=0x000e, t01=0x010a}
0x1706…1714 Head {h00=0x000a, h01=0x0050, text=» TFWD «, t00=0x000e, t01=0x012e}
0x1714…1726 Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x000e, t01=0x013c}
0x1726…1730 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x014e}
0x1730…1758 Head {h00=0x0024, h01=0x0050, text=»KTBWD TABULATION 1 STEP BACKW.«, t00=0x000e, t01=0x0158}
0x1758…1766 Head {h00=0x000a, h01=0x0050, text=» TBWD «, t00=0x000e, t01=0x0180}
0x1766…1778 Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x000e, t01=0x018e}
0x1778…1782 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0010}
0x1782…17a8 Head {h00=0x0022, h01=0x0050, text=»KTHOME TAB. TO HOME POSITION«, t00=0x000f, t01=0x001a}
0x17a8…17b6 Head {h00=0x000a, h01=0x0050, text=» THOME«, t00=0x000f, t01=0x0040}
0x17b6…17c8 Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x000f, t01=0x004e}
0x17c8…17d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0060}
0x17d2…17fe Head {h00=0x0028, h01=0x0050, text=»KTLDOWN TAB. TO FIRST ON NEXT LINE«, t00=0x000f, t01=0x006a}
0x17fe…180e Head {h00=0x000c, h01=0x0050, text=» TLDOWN «, t00=0x000f, t01=0x0096}
0x180e…1820 Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x000f, t01=0x00a6}
0x1820…182a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00b8}
0x182a…184c Head {h00=0x001e, h01=0x0050, text=»KTLEFT TAB. TO LEFTMOST «, t00=0x000f, t01=0x00c2}
0x184c…185a Head {h00=0x000a, h01=0x0050, text=» TLEFT«, t00=0x000f, t01=0x00e4}
0x185a…186c Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x000f, t01=0x00f2}
0x186c…1876 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0104}
0x1876…189a Head {h00=0x0020, h01=0x0050, text=»KTRIGHT TAB. TO RIGHTMOST «, t00=0x000f, t01=0x010e}
0x189a…18aa Head {h00=0x000c, h01=0x0050, text=» TRIGHT «, t00=0x000f, t01=0x0132}
0x18aa…18bc Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x000f, t01=0x0142}
0x18bc…18c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0154}
0x18c6…18e2 Head {h00=0x0018, h01=0x0050, text=»KTDOWN TAB 1 DOWN «, t00=0x000f, t01=0x015e}
0x18e2…18f0 Head {h00=0x000a, h01=0x0050, text=» TDOWN«, t00=0x000f, t01=0x017a}
0x18f0…1902 Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x000f, t01=0x0188}
0x1902…190c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x000a}
0x190c…1924 Head {h00=0x0014, h01=0x0050, text=»KTUP TAB 1 UP «, t00=0x0010, t01=0x0014}
0x1924…1930 Head {h00=0x0008, h01=0x0050, text=» TUP«, t00=0x0010, t01=0x002c}
0x1930…1938 Head {h00=0x0004, h01=0x0050, t00=0x0010, t01=0x0038}
0x1938…1958 Head {h00=0x001c, h01=0x0050, text=»TSTTAB TEST TAB OUTPUT«, t00=0x0010, t01=0x0040}
0x1958…196e Head {h00=0x0012, h01=0x0050, text=» BE READIN OK «, t00=0x0010, t01=0x0060}
0x196e…198c Head {h00=0x001a, h01=0x0050, text=» BL SETCREAD NOT FOUND«, t00=0x0010, t01=0x0076}
0x198c…19ba Head {h00=0x002a, h01=0x0050, text=» BOFL SETCREAD EMPTY COMPULSORY FIELD «, t00=0x0010, t01=0x0094}
0x19ba…19c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00c2}
0x19c4…19ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00cc}
0x19ce…19f2 Head {h00=0x0020, h01=0x0050, text=»* CONDITIONAL TABULATION «, t00=0x0010, t01=0x00d6}
0x19f2…19fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00fa}
0x19fc…1a10 Head {h00=0x0010, h01=0x0050, text=» PERF SPTCHK«, t00=0x0010, t01=0x0104}
0x1a10…1a32 Head {h00=0x001e, h01=0x0050, text=» CBE SPBINW3,='0',SETCREAD«, t00=0x0010, t01=0x0118}
0x1a32…1a56 Head {h00=0x0020, h01=0x0050, text=» IB SPBINW2,DUMMY,DUMMY, C «, t00=0x0010, t01=0x013a}
0x1a56…1a7c Head {h00=0x0022, h01=0x0050, text=» KTFWD,DUMMY,DUMMY,KTFWD, C «, t00=0x0010, t01=0x015e}
0x1a7c…1aa2 Head {h00=0x0022, h01=0x0050, text=» KTBWD,KTFWD,KTFWD,KTFWD, C «, t00=0x0010, t01=0x0184}
0x1aa2…1abe Head {h00=0x0018, h01=0x0050, text=» KTBWD,KTFWD,KTBWD «, t00=0x0011, t01=0x001a}
0x1abe…1afe Head {h00=0x003c, h01=0x0050, text=»* BRANCH LIST EXHAUSTED - SPBINW2 CLOBBERED BY SPTCHK«, t00=0x0011, t01=0x0036}
0x1afe…1b06 Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x0076}
0x1b06…1b1a Head {h00=0x0010, h01=0x0050, text=» B SETCREAD «, t00=0x0011, t01=0x007e}
0x1b1a…1b22 Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x0092}
0x1b22…1b2a Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x009a}
0x1b2a…1b38 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x00a2}
0x1b38…1b52 Head {h00=0x0016, h01=0x0050, text=»KCOPY HARD COPY «, t00=0x0011, t01=0x00b0}
0x1b52…1b6c Head {h00=0x0016, h01=0x0050, text=» MOVE SPBINW3,='1'«, t00=0x0011, t01=0x00ca}
0x1b6c…1b90 Head {h00=0x0020, h01=0x0050, text=» PRINT SPDSPRT,SPBINW3,='0' «, t00=0x0011, t01=0x00e4}
0x1b90…1bb8 Head {h00=0x0024, h01=0x0050, text=» B SETCREAD SET CURSOR AND READ «, t00=0x0011, t01=0x0108}
0x1bb8…1bc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0130}
0x1bc2…1bde Head {h00=0x0018, h01=0x0050, text=»KDUPL DUPLICATION «, t00=0x0011, t01=0x013a}
0x1bde…1c10 Head {h00=0x002e, h01=0x0050, text=» MOVE SPBINW2,='3' INDICATE COMMON EOI-KEY«, t00=0x0011, t01=0x0156}
0x1c10…1c32 Head {h00=0x001e, h01=0x0050, text=» DUPL SPINPUT DUPLICATION «, t00=0x0011, t01=0x0188}
0x1c32…1c52 Head {h00=0x001c, h01=0x0050, text=» BZ UPD260 DUPL ALLOWED «, t00=0x0012, t01=0x001a}
0x1c52…1c86 Head {h00=0x0030, h01=0x0050, text=» MOVE SPBINW4,='4' INDICATE ILLEGAL EOI-KEY «, t00=0x0012, t01=0x003a}
0x1c86…1caa Head {h00=0x0020, h01=0x0050, text=» B ERRPRINT DUPL NOT ALLOWED«, t00=0x0012, t01=0x006e}
0x1caa…1cb8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x0092}
0x1cb8…1cc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00a0}
0x1cc2…1cda Head {h00=0x0014, h01=0x0050, text=»* EDIT FIELD «, t00=0x0012, t01=0x00aa}
0x1cda…1ce4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00c2}
0x1ce4…1cf2 Head {h00=0x000a, h01=0x0050, text=»KEDIT «, t00=0x0012, t01=0x00cc}
0x1cf2…1d14 Head {h00=0x001e, h01=0x0050, text=» GETCTL 1,SPBINW3 GET MAXL«, t00=0x0012, t01=0x00da}
0x1d14…1d36 Head {h00=0x001e, h01=0x0050, text=» CBNE SPBINW3,='0',KED100 «, t00=0x0012, t01=0x00fc}
0x1d36…1d62 Head {h00=0x0028, h01=0x0050, text=» EDWRT SPDSSCRN,BELL ACOUSTIC ALARM «, t00=0x0012, t01=0x011e}
0x1d62…1d76 Head {h00=0x0010, h01=0x0050, text=» B SETCREAD «, t00=0x0012, t01=0x014a}
0x1d76…1d84 Head {h00=0x000a, h01=0x0050, text=»KED100«, t00=0x0012, t01=0x015e}
0x1d84…1dae Head {h00=0x0026, h01=0x0050, text=» EDFLD SPINPUT,SPKTAB3,SPBINW1, C«, t00=0x0012, t01=0x016c}
0x1dae…1dc8 Head {h00=0x0016, h01=0x0050, text=» SPBINW2,SPBINW4 «, t00=0x0013, t01=0x0008}
0x1dc8…1de0 Head {h00=0x0014, h01=0x0050, text=» BL ERRPRT ERROR«, t00=0x0013, t01=0x0022}
0x1de0…1e18 Head {h00=0x0034, h01=0x0050, text=» CBNG SPBINW2,='0',RETUR POWER OFF OR KEY SWITCH«, t00=0x0013, t01=0x003a}
0x1e18…1e4a Head {h00=0x002e, h01=0x0050, text=» CBNE SPBINW1,='0',DYKOUT LENGTH NOT ZERO «, t00=0x0013, t01=0x0072}
0x1e4a…1e76 Head {h00=0x0028, h01=0x0050, text=» SET SPCHANGE ITEM CLEARED BY EDFLD «, t00=0x0013, t01=0x00a4}
0x1e76…1e9c Head {h00=0x0022, h01=0x0050, text=» B DYKOUT CONTINUE AS FOR DYKI«, t00=0x0013, t01=0x00d0}
0x1e9c…1ea6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00f6}
0x1ea6…1ebc Head {h00=0x0012, h01=0x0050, text=»* ENTER KEY«, t00=0x0013, t01=0x0100}
0x1ebc…1ec6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0116}
0x1ec6…1ed4 Head {h00=0x000a, h01=0x0050, text=»KENTER«, t00=0x0013, t01=0x0120}
0x1ed4…1f08 Head {h00=0x0030, h01=0x0050, text=» MOVE SPBINW4,='5' INDICATE COMP.FIELD FOUND«, t00=0x0013, t01=0x012e}
0x1f08…1f38 Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW1,='0' INDICATE NO CLEARING «, t00=0x0013, t01=0x0162}
0x1f38…1f6e (20, 0, 400) Head {h00=0x0032, h01=0x0050, text=» MOVE SPBINW2,='0' SET INDEX TO SEARCHED FIELD«, t00=0x0014, t01=0x0004}
0x1f6e…1fae Head {h00=0x003c, h01=0x0050, text=» GETFLD 0,SPBINW2,SPBINW3 SEARCH FOR EMPTY COMP. FIELDS «, t00=0x0014, t01=0x003a}
0x1fae…1fda Head {h00=0x0028, h01=0x0050, text=» BOFL KENT10 EMPTY COMP. FIELD FOUND«, t00=0x0014, t01=0x007a}
0x1fda…2004 Head {h00=0x0026, h01=0x0050, text=» TSTCTL 2 LOOK IF COMPULSORY FIELD«, t00=0x0014, t01=0x00a6}
0x2004…201a Head {h00=0x0012, h01=0x0050, text=» BZ KENT05 NO!«, t00=0x0014, t01=0x00d0}
0x201a…204c Head {h00=0x002e, h01=0x0050, text=» CALL EMPTYT,:FMTITEM LOOK IF EMPTY FIELD «, t00=0x0014, t01=0x00e6}
0x204c…2064 Head {h00=0x0014, h01=0x0050, text=» BP KENT10 YES! «, t00=0x0014, t01=0x0118}
0x2064…2072 Head {h00=0x000a, h01=0x0050, text=»KENT05«, t00=0x0014, t01=0x0130}
0x2072…20aa Head {h00=0x0034, h01=0x0050, text=» MOVE SPBINW2,='3' INDICATE ENTER KEY DEPRESSED «, t00=0x0014, t01=0x013e}
0x20aa…20b6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0014, t01=0x0176}
0x20b6…20c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0182}
0x20c0…20ea Head {h00=0x0026, h01=0x0050, text=»* EMPTY COMPULSORY FIELD FOUND «, t00=0x0014, t01=0x018c}
0x20ea…20f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0026}
0x20f4…2102 Head {h00=0x000a, h01=0x0050, text=»KENT10«, t00=0x0015, t01=0x0030}
0x2102…213c Head {h00=0x0036, h01=0x0050, text=» GETFLD 0,SPBINW3,SPBINW2 GET THE COMPULSORY FIELD«, t00=0x0015, t01=0x003e}
0x213c…2150 Head {h00=0x0010, h01=0x0050, text=» B ERRPRINT «, t00=0x0015, t01=0x0078}
0x2150…215e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x008c}
0x215e…216c Head {h00=0x000a, h01=0x0050, text=»ERRPRT«, t00=0x0015, t01=0x009a}
0x216c…219a Head {h00=0x002a, h01=0x0050, text=» CBE SPBINW2,='16',KEDIT JUMP IF EDIT «, t00=0x0015, t01=0x00a8}
0x219a…21c8 Head {h00=0x002a, h01=0x0050, text=» CBE SPBINW2,='4',CANC JUMP IF CANCEL1«, t00=0x0015, t01=0x00d6}
0x21c8…21f6 Head {h00=0x002a, h01=0x0050, text=» CBE SPBINW2,='5',CANC JUMP IF CANCEL2«, t00=0x0015, t01=0x0104}
0x21f6…2200 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0132}
0x2200…221c Head {h00=0x0018, h01=0x0050, text=»* ERROR HANDLING «, t00=0x0015, t01=0x013c}
0x221c…2226 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0158}
0x2226…2236 Head {h00=0x000c, h01=0x0050, text=»ERRPRINT«, t00=0x0015, t01=0x0162}
0x2236…226a Head {h00=0x0030, h01=0x0050, text=» CBE SPBINW4,='0',ERRC20 JUMP IF NO PRINTOUT«, t00=0x0015, t01=0x0172}
0x226a…2296 Head {h00=0x0028, h01=0x0050, text=» EDWRT SPDSSCRN,BELL ACOUSTIC ALARM «, t00=0x0016, t01=0x0016}
0x2296…22c2 Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW3,=X'1801' ROW 24 COL. 1«, t00=0x0016, t01=0x0042}
0x22c2…22fa Head {h00=0x0034, h01=0x0050, text=» DSC1 SPDSSCRN,6,SPBINW3 SET CURSOR ON LAST ROW «, t00=0x0016, t01=0x006e}
0x22fa…2304 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00a6}
0x2304…232e Head {h00=0x0026, h01=0x0050, text=» EDWRT SPDSSCRN,SPFTBERR(SPBINW4) «, t00=0x0016, t01=0x00b0}
0x232e…2338 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00da}
0x2338…2356 Head {h00=0x001a, h01=0x0050, text=»* READ AFTER ERROR «, t00=0x0016, t01=0x00e4}
0x2356…2360 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0102}
0x2360…236e Head {h00=0x000a, h01=0x0050, text=»ERREAD«, t00=0x0016, t01=0x010c}
0x236e…239a Head {h00=0x0028, h01=0x0050, text=» SETCUR SET CURSOR AT THE BEGINNING«, t00=0x0016, t01=0x011a}
0x239a…23ba Head {h00=0x001c, h01=0x0050, text=» OF THE CURRENT FIELD «, t00=0x0016, t01=0x0146}
0x23ba…23c8 Head {h00=0x000a, h01=0x0050, text=»ERR100«, t00=0x0016, t01=0x0166}
0x23c8…23f6 Head {h00=0x002a, h01=0x0050, text=» MOVE SPBINW3,=W'14' REQUESTED LENGTH «, t00=0x0016, t01=0x0174}
0x23f6…2430 Head {h00=0x0036, h01=0x0050, text=» NKIA .NE,SPDSDYKB,SPINPUT,SPKTAB1,SPBINW3,SPBINW2«, t00=0x0017, t01=0x0012}
0x2430…2452 Head {h00=0x001e, h01=0x0050, text=» BNZ ERR100 JUMP IF NOT OK«, t00=0x0017, t01=0x004c}
0x2452…2484 Head {h00=0x002e, h01=0x0050, text=» CBE SPBINW2,='0',RETUR JUMP IF POWER OFF «, t00=0x0017, t01=0x006e}
0x2484…24aa Head {h00=0x0022, h01=0x0050, text=» IB SPBINW2,ERR100,ERRCONT C «, t00=0x0017, t01=0x00a0}
0x24aa…24d2 Head {h00=0x0024, h01=0x0050, text=» ERRCONT,ERR100,ERRCONT,ERRCONT«, t00=0x0017, t01=0x00c6}
0x24d2…24ec Head {h00=0x0016, h01=0x0050, text=» B ERR100 CONTINUE«, t00=0x0017, t01=0x00ee}
0x24ec…24f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0108}
0x24f6…2518 Head {h00=0x001e, h01=0x0050, text=»* CLEAR ERROR PRINTOUT «, t00=0x0017, t01=0x0112}
0x2518…2522 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0134}
0x2522…2532 Head {h00=0x000c, h01=0x0050, text=»ERRCONT «, t00=0x0017, t01=0x013e}
0x2532…2560 Head {h00=0x002a, h01=0x0050, text=» MOVE SPBINW3,='24' INDICATE LAST LINE«, t00=0x0017, t01=0x014e}
0x2560…2590 Head {h00=0x002c, h01=0x0050, text=» ERASE 0,SPBINW3,SPBINW3 ERASE LAST LINE«, t00=0x0017, t01=0x017c}
0x2590…25ba Head {h00=0x0026, h01=0x0050, text=» SUB SPBINW2,='1' ADJUST KEY INDEX«, t00=0x0018, t01=0x001c}
0x25ba…25c6 Head {h00=0x0008, h01=0x0050, text=»CANC«, t00=0x0018, t01=0x0046}
0x25c6…25fa Head {h00=0x0030, h01=0x0050, text=» CBE SPBINW1,='0',ERRC10 JUMP IF LENGTH = 0 «, t00=0x0018, t01=0x0052}
0x25fa…262e Head {h00=0x0030, h01=0x0050, text=» MOVE SPINPUT,:FMTITEM SAVE CURRENT CONTENTS«, t00=0x0018, t01=0x0086}
0x262e…2666 Head {h00=0x0034, h01=0x0050, text=» MOVE :FMTITEM,=C'1' PUT SOMETHING IN THE FIELD «, t00=0x0018, t01=0x00ba}
0x2666…2690 Head {h00=0x0026, h01=0x0050, text=» GETABX SPBINW4 GET CURRENT INDEX «, t00=0x0018, t01=0x00f2}
0x2690…26be Head {h00=0x002a, h01=0x0050, text=» ERASE 10,SPBINW4,SPBINW4 CLEAR FIELD «, t00=0x0018, t01=0x011c}
0x26be…26cc Head {h00=0x000a, h01=0x0050, text=»ERRC10«, t00=0x0018, t01=0x014a}
0x26cc…26f4 Head {h00=0x0024, h01=0x0050, text=» IB SPBINW2,CLEAR1,CLEAR2,DUMMY «, t00=0x0018, t01=0x0158}
0x26f4…2728 Head {h00=0x0030, h01=0x0050, text=» SUB SPBINW2,='3' ADJUST FOR CANCEL1,CANCEL2«, t00=0x0018, t01=0x0180}
0x2728…2734 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0019, t01=0x0024}
0x2734…2742 Head {h00=0x000a, h01=0x0050, text=»CLEAR1«, t00=0x0019, t01=0x0030}
0x2742…2776 Head {h00=0x0030, h01=0x0050, text=» CBE SPBINW1,='0',ERRC20 JUMP IF LENGTH = 0 «, t00=0x0019, t01=0x003e}
0x2776…27a2 Head {h00=0x0028, h01=0x0050, text=» SET SPCHANGE INDICATE CHANGED FIELD«, t00=0x0019, t01=0x0072}
0x27a2…27b0 Head {h00=0x000a, h01=0x0050, text=»ERRC20«, t00=0x0019, t01=0x009e}
0x27b0…27cc Head {h00=0x0018, h01=0x0050, text=» B SETCREAD CONTINUE«, t00=0x0019, t01=0x00ac}
0x27cc…27d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00c8}
0x27d6…27e4 Head {h00=0x000a, h01=0x0050, text=»CLEAR2«, t00=0x0019, t01=0x00d2}
0x27e4…2816 Head {h00=0x002e, h01=0x0050, text=» CBE SPBINW1,='0',CLEA20 JUMP IF LENGTH 0 «, t00=0x0019, t01=0x00e0}
0x2816…284e Head {h00=0x0034, h01=0x0050, text=» MOVE :FMTITEM,SPINPUT RESTORE CURRENT CONTENTS «, t00=0x0019, t01=0x0112}
0x284e…285c Head {h00=0x000a, h01=0x0050, text=»CLEA20«, t00=0x0019, t01=0x014a}
0x285c…288a Head {h00=0x002a, h01=0x0050, text=» GETABX SPBINW4 GET CURRENT TAB INDEX «, t00=0x0019, t01=0x0158}
0x288a…28ba Head {h00=0x002c, h01=0x0050, text=» DISPLAY 1,SPBINW4,SPBINW4 DISPLAY FIELD«, t00=0x0019, t01=0x0186}
0x28ba…28d6 Head {h00=0x0018, h01=0x0050, text=» B SETCREAD CONTINUE«, t00=0x001a, t01=0x0026}
0x28d6…28e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0042}
0x28e0…28f2 Head {h00=0x000e, h01=0x0050, text=»BELL FRMT «, t00=0x001a, t01=0x004c}
0x28f2…28fe Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x001a, t01=0x005e}
0x28fe…2914 Head {h00=0x0012, h01=0x0050, text=» FILLR X'07',1«, t00=0x001a, t01=0x006a}
0x2914…2922 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x001a, t01=0x0080}
0x2922…292a Head {h00=0x0004, h01=0x0050, t00=0x001a, t01=0x008e}
0x292a…2938 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001a, t01=0x0096}
0x2938…2940 Head {h00=0x0004, h01=0x0050, t00=0x001a, t01=0x00a4}
0x2940…294c Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x001a, t01=0x00ac}
0x294c…2950 Head {h00=0x4004, h01=0x0000}
0x2950…2954 00 1a 00 b8 ┆ ┆
0x2954…295c (27, 1, 8) 20 04 00 00 00 1b 00 04 ┆ ┆
0x295c…29ac (28, 0, 400) 2a 20 20 20 44 41 54 41 53 45 54 20 43 4f 4e 54 52 4f 4c 20 46 55 4e 43 54 49 4f 4e 20 30 20 20 20 2a 00 13 01 90 00 26 00 50 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 14 00 2a ┆* DATASET CONTROL FUNCTION 0 * & P********************************** *┆
0x29ac…29fc 00 04 00 50 00 14 00 54 00 2e 00 50 54 3a 44 53 43 30 5c 43 46 5c 50 53 2c 47 54 57 45 44 53 5c 47 45 54 20 57 41 49 54 2d 42 49 54 20 41 4e 44 20 44 53 45 54 20 00 14 00 5c 00 22 00 50 5c 43 46 5c 50 53 2c 47 54 42 59 54 45 5c 47 45 54 20 ┆ P T . PT:DSC0 CF PS,GTWEDS GET WAIT-BIT AND DSET " P CF PS,GTBYTE GET ┆
0x29fc…2a4c 43 4f 4e 54 52 4f 4c 20 43 4f 44 45 00 14 00 8e 00 2a 00 50 5c 43 4d 5c 44 53 43 42 49 58 2c 41 38 5c 43 4c 45 41 52 20 49 4e 44 45 58 20 49 54 45 4d 20 41 44 44 52 45 53 53 00 14 00 b4 00 0c 00 50 5c 52 46 5c 44 53 43 45 00 14 00 e2 00 4c ┆CONTROL CODE * P CM DSCBIX,A8 CLEAR INDEX ITEM ADDRESS P RF DSCE L┆
0x2a4c…2a9c 00 50 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 14 00 f2 00 04 ┆ P EJECT T:IO T:IO T:IO T:IO T:IO T:IO T:IO T:IO ┆
0x2a9c…2aec 00 50 00 14 01 42 00 26 00 50 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 14 01 4a 00 26 00 50 2a 20 20 20 44 41 54 41 53 45 54 20 43 4f 4e 54 52 4f 4c 20 46 55 4e 43 54 49 4f 4e ┆ P B & P********************************** J & P* DATASET CONTROL FUNCTION┆