DataMuseum.dk

Presents historical artifacts from the history of:

Philips Data Systems

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Philips Data Systems

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦c05f90bef⟧

    Length: 20672 (0x50c0)
    Notes: pts_type(SC)
    Names: »SCREEN.SC«

Derivation

└─⟦75255755f⟧ Bits:30009693 Philips computer tape "600410"
    └─⟦this⟧ »NJREMIT/SCREEN.SC« 
└─⟦b6546aa17⟧ Bits:30009689 Philips computer tape "600325"
    └─⟦this⟧ »REMIT2/SCREEN.SC« 

PTS(SC)

	IDENT SCREEN 	03.01.XXX.1
			1.1,78-04-20,870138040310
* 
*    A STANDARD PROGRAM PACKAGE HANDLING
*    A COMPLETE PICTURE ON A DISPLAY SCREEN 
* 
*    RUNNING UNDER:  CREDIT REL 3.1 
*                    TOSS   REL 8.1 
* 
 DDUM KMD08 
 PDIV 
* 
 ENTRY SPCLRA CLEAR ALL VARIABLE FIELDS 
 ENTRY SPCLRS CLEAR SOME VARIABLE FIELDS
 ENTRY SPCLRN CLEAR NO VARIABLE FIELDS
 ENTRY SPERR DISPLAY ERROR PRINTOUT 
			AND CONTINUE HANDLING
	ENTRY	SPLIN8	MESSAGE ON LINE 8 
	ENTRY	SPCA	AS SPCLRA-- 
	ENTRY	SPCN	AS SPCLRN-- 
 ENTRY SCREEN 
	ENTRY	SPINF1	INFORMATION ON LINE 1 
	ENTRY	SPINF8	INFORMATION ON LINE 8 
 ENTRY BELL 
 ENTRY CLEAR8 
 ENTRY DKTEST	TEST IF DISK READY
 ENTRY KBTEST TEST KB FOR MAK-KEY 
* 
 EXT SPCHK1 STANDARD CHECK ROUTINE NO. 1
 EXT SPCHK2 STANDARD CHECK ROUTINE NO. 2
 EXT SPCHK3 STANDARD CHECK ROUTINE NO. 3
 EXT SPCHK4 STANDARD CHECK ROUTINE NO. 4
 EXT SPCHK5 STANDARD CHECK ROUTINE NO.5 
 EXT SPCHK6 STANDARD CHECK ROUTINE NO. 6
 EXT SPCHK7 STANDARD CHECK ROUTINE NO. 7
 EXT SPAPPL USER ROUTINE TO HANDLE
			APPL VALUES
 EXT RKAPPL APPLVALUES FOR R]KONVERTERING 
 EXT SPTCHK USER ROUTINE TO EVALUATE
			CONDITIONAL TABULATION 
 EXT ABORT
 EXT GETTID 
	EXT	EMPTYT	ASSEMBLY SUBROUTINE EMPTYT  - 
			TEST IF DATA ITEM IS EMPTY 
* 
 INCLUDE KY6272,LIST

*     FIRST INCLUDE KEY VALUES, 
*     THEN INCLUDE SPECIAL SCREEN FORMATS 
 INCLUDE SL6272,LIST

SPCLRA PROC 
* 
* SPCLRA - CLEAR ALL VARABLE FIELDS BEFORE HANDLING THE PICTURE 
* 
 MOVE SPERASE,CBIN0 
	PERF	SCREEN,=W'1'
	RET
 PEND 
SPCLRS PROC 
* 
* SPCLRS - CLEAR SOME VARIABLE FIELDS BEFORE HANDLING THE PICTURE 
* 
 MOVE SPERASE,CBIN0 
	PERF	SCREEN,=W'2'
	RET
 PEND 
SPCLRN PROC 
* 
* SPCLRN - CLEAR NO VARIABLE FIELDS BEFORE HANDLING THE PICTURE 
* 
 MOVE SPERASE,CBIN0 
	PERF	SCREEN,=W'3'
	RET
 PEND 
SPERR PROC
* 
* HANDLE ERRORS DETECTED OUTSIDE THE PACKAGE
* 
	PERF	SCREEN,=W'0'
	RET
 PEND 
SPCA	PROC 
* 
* 
 MOVE SPERASE,CBIN4 
	PERF	SCREEN,=W'1'
	RET
	PEND 
SPCN	PROC 
* 
* 
 MOVE SPERASE,CBIN4 
	PERF	SCREEN,=W'3'
	RET
	PEND 

SCREEN	PROC	$OPT
* 
* SCREEN SCREEN HANDLING MODULE 
* 
* CALL: PERF SCREEN,<$OPT>
* 
	PLIT	$OPT	OPTIO SELECTOR 

 CLEAR SPWARNFL CLEAR WARNING FLAG
	MOVE	SPBINW2,$OPT	MOVE TO VARIABLE 
			TO ALLOW INSTR.S CMP AND IB
	CMP	SPBINW2,CBIN0	"SPERR" ENTRY ?
	BE	ERRPRINT	YES !

 TBT SPPROMPT,ENTIRE JUMP IF ENTIRE FORMAT
			SHOULD BE DISPLAYED
* 
*    ONLY VARIABLE FIELDS 
* 
 IB SPBINW2,CLEARA,CLEARS,CONT JUMP ON ROUTINE INDEX
* 
CLEARA
 ERASE 10,CBIN1,CBIN0 ERASE ALL FROM 1 AND UP 
	THOME
 B CONT 
* 
CLEARS
 ERASE 5,CBIN1,CBIN0 ERASE SOME FROM 1 AND UP 
	B	CONT 

* 
*    DISPLAY ENTIRE FORMAT
* 
ENTIRE
	IB	SPBINW2,ECLRA,ECLRS,ECLRN	JUMP ON ROUTINE INDEX 
* 
*    CLEAR ALL VARIABLES
* 
ECLRA 
	ERASE	11,CBIN1,CBIN0	CLEAR ALL 
			IN MEMORY
	B	ECLRN
* 
*    CLEAR SOME VARIABLES 
* 
ECLRS 
 ERASE 6,CBIN1,CBIN0 CLEAR SOME FIELDS FROM 
			1 AND UP IN MEMORY 
* 
*    CLEAR NO VARIABLES IN MEMORY 
* 
ECLRN 
	IB	SPERASE,ECLRN1,ECLRN2,ECLRN3,ECLRN4 
	DISPLAY	0,CBIN1,CBIN0
	B	CONT 
ECLRN1
	DISPLAY	1,CBIN1,CBIN0
	B	CONT 
ECLRN2
	DISPLAY	2,CBIN1,CBIN0
	B	CONT 
ECLRN3
	DISPLAY	3,CBIN1,CBIN0
	B	CONT 
ECLRN4
	DISPLAY	4,CBIN1,CBIN0
	B	CONT 
	 
CONT
 GETABX SPBINW4 GET CURRENT INDEX 
 BL KTHOME JUMP IF NO CURRENT FIELD 
CONT5 
 GETFLD 0,SPBINW4,SPBINW3 SEARCH CURRENT POSITION 
 BZ SETCREAD JUMP IF FOUND
 BL KTHOME POSITION NOT FOUND 
* 
*    COMPULSORY FIELD FOUND 
* 
 MOVE SPBINW4,SPBINW3 CHANGE INDEX
 B CONT5 SEARCH AGAIN 
* 

* 
*    SET CURSOR AND READ KEYBOARD 
* 
SETCREAD
	SETCUR		SET CURSOR ON CURRENT FIELD

* 
*    READ TO CURRENT FIELD ON DISPLAY 
* 
READIN
*     SET FLAG IF AUTODUP 
*     USES VERIF-FIELD
 MOVE SPBINW2,CBIN3 
 MOVE SPBINW1,CBIN1 
	TSTCTL	6 
	BOK	DYKIN
 GETCTL 0,SPBINW3 
 MOVE SPBINW1,CFLTDEX(SPBINW3)
 CMP GSSWITCH(SPBINW1),CBIN0
 BE DYKIN 
 MOVE SPBINW1,CBIN1 
 BL DYK20 
 MOVE SPBINW2,CBIN15
 B DYK20
	B	DYK20
* 
DYKIN 
	IB	SPKEY,DYK05,DYK10,DYK15,DYK16 
DYK05 
 DYKI SPINPUT,SPKTAB1,SPKTAB2,SPBINW1,		C 
		SPBINW2,SPBINW4 
	B	DYKOUT 
DYK10 
	DYKI	SPINPUT,SPKTAB12,SPKTAB22,SPBINW1,		C 
		SPBINW2,SPBINW4 
 B DYKOUT 
DYK15 
 DYKI SPINPUT,SPKTAB13,SPKTAB23,SPBINW1,		C 
		SPBINW2,SPBINW4 
 B DYKOUT 
DYK16 
 DYKI SPINPUT,SPKTAB14,SPKTAB24,SPBINW1,		C 
		SPBINW2,SPBINW4 
 B DYKOUT 
DYKOUT
 BL ERRPRT ERROR
	CLEAR	SPDUPL 
 CMP SPBINW2,CBIN0
 BE RETUR POWER OFF 
 BG DYK20 NORMAL
 ADD SPBINW2,CBIN9 KEYSWITCH TURNED 
 IB SPBINW2,SET1,SET2,SET3,SET4,CLR1,CLR2,CLR3,CLR4 
 B RETUR
SET1
 SET TTKEY1 
 B DYKIN
SET2
 SET TTKEY2 
 B DYKIN
SET3
 SET TTKEY3 
 B DYKIN
SET4
 SET TTKEY4 
 B DYKIN
CLR1
 CLEAR TTKEY1 
 B DYKIN
CLR2
 CLEAR TTKEY2 
 B DYKIN
CLR3
 CLEAR TTKEY3 
 B DYKIN
CLR4
 CLEAR TTKEY4 
 B DYKIN
* 
DYK20 
* 
 PERF DKTEST
 BNOK SETCREAD
* 
 TBF TTKEYFLG,DYK80 
* 
			KEY SWITCHES 
 TBF TTKEY1,DYKRET KEYBOARD OFF 
 IB SPKEY,DYK30,DYK40,DYK50,DYK40 
DYK30 
 TBF TTKEY2,DYK80 EQUAL TO KEYPOS 1 ON 6234 
 B DYKRET 
DYK40 
 TBT TTKEY2,DYK80 EQUAL TO KEYPOS 2 ON 6234 
DYKRET
 PERF BELL
 B SETCREAD 
DYK50 
DYK80 
 IB SPBINW2,UPD300,CLEA20 JUMP ON	C 
		UPDATE,CANC,CANC,		C
		UPDATE,UPDATE,UPDATE,UPDATE CONVERTED	C 
		UPDATE,UPDATE,UPDATE,UPDATE END-OF-ITEM-KEY	C 
		UPDATE,KDUPL,KEDIT
	 
* 
*    HANDLE THE RESPECTIVE KEY AS EOI-KEY FIRST 
* 
UPDATE
 CBE SPBINW1,CBIN0,UPD350 JUMP IF LENGTH = 0
 GETCTL 3,SPBINW4 GET SCHK-NUMBER 
 CBE SPBINW4,CBIN0,UPD050 JUMP IF NOT STANDARD CHECK
 PERFI SPBINW4,SPCHK1,SPCHK2,SPCHK3		C
		SPCHK4,SPCHK5,SPCHK6,SPCHK7 
 IB SPBINW3,UPD050,UPD070,ERRPRINT
* 
*    CONDITIONAL DISPLAYING 
* 
UPD050
 TBT SPDUPL,UPD100
 MOVE SPBINW4,CBIN1 INDICATE COND. DISPL
 B UPD200 
UPD070
 GETCTL 0,SPBINW3 GET APPL-VALUE
 CBNE SPBINW3,CBIN0,UPD210 JUMP IF APPL VALUE 
 B SETCREAD 
* 
*    UNCONDITIONAL DISPLAYING 
* 
UPD100
 MOVE SPBINW4,CBIN2 INDICATE UNCONDITIONAL DISPLAY
UPD200
 GETCTL 0,SPBINW3 GET APPL-VALUE
 CBE SPBINW3,CBIN0,UPD400 JUMP IF NO APPL VALUE 
* 
*    APPL-VALUE DIFFERENT FROM ZERO 
* 
UPD210
 TBT GTRKONV,UPD211 
 PERF SPAPPL
 B UPD212 
UPD211
 PERF RKAPPL
UPD212
 IB SPBINW3,UPD400,SETCREAD,ERRPRINT
 B UPD400 
* 
*    OK AFTER APPL CONTROL
*    UNCONDITIONAL DISPLAYING 
* 
UPD260
 UPDFLD 1,SPINPUT UPDATE FIELD WITH DISPLAYING
UPD300
	CBE	SPBINW1,CBIN0,UPD350	SKIP NEXT IF LENGTH = 0 
	SET	SPCHANGE	INDICATE CHANGED ITEM 
UPD350
*     TAKE CARE OF WARNING
 TBF SPWARNFL,UPD360
 MOVE SPBINW1,SPBINW2 STORE KEY VALUE 
 MOVE SPBINW4,=W'26' SET MESSAGE
 PERF SPERR 
 CBNE SPBINW2,CBIN2,UPD360 KOR-KEY ?
 MOVE SPBINW2,SPBINW1 RESET OLD KEYVALUE
UPD360
*    JUMP ON FUNCTION KEY INDEX 
 IB SPBINW2,READIN,DUMMY,		C
		KEOI,DUMMY,DUMMY,KTFWD,		C
		KTBWD,KTHOME,KTLDOWN,KTLEFT,KTRIGHT,		C 
		KTDOWN,KTUP,KCOPY,DUMMY,DUMMY,KENTER
 SUB SPBINW2,CBIN14 ADJUST EOI/KEY INDEX
DUMMY 
RETUR 
 RET
* 
UPD400
 CBE SPBINW4,CBIN2,UPD260 JUMP IF UNCONDITIONAL DISPL 
 UPDFLD 0,SPINPUT UPDATE FIELD DISPL. COND. 
 B UPD300 
* 

KEOI			COMMON END-OF-ITEM KEY 
KTFWD			TAB. FORWARD 1 STEP 
	TFWD 
	B	TSTTAB 
* 
KTBWD			TABULATION 1 STEP BACKW.
 TBWD 
 B TSTTAB 
* 
KTHOME			TAB. TO HOME POSITION
 THOME
 B TSTTAB 
* 
KTLDOWN			TAB. TO FIRST ON NEXT LINE
 TLDOWN 
 B TSTTAB 
* 
KTLEFT			TAB. TO LEFTMOST 
 TLEFT
 B TSTTAB 
* 
KTRIGHT			TAB. TO RIGHTMOST 
 TRIGHT 
 B TSTTAB 
* 
KTDOWN			TAB 1 DOWN 
 TDOWN
 B TSTTAB 
* 
KTUP			TAB 1 UP 
 TUP

TSTTAB			TEST TAB OUTPUT
 BE READIN OK 
 BL READIN NOT FOUND
 BOFL SETCREAD EMPTY COMPULSORY FIELD 
* 
* 
*    CONDITIONAL TABULATION 
* 
 PERF SPTCHK
 CMP SPBINW3,CBIN0
 BE SETCREAD
 IB SPBINW2,DUMMY,DUMMY,		C 
		KTFWD,DUMMY,DUMMY,KTFWD,		C 
		KTBWD,KTFWD,KTFWD,KTFWD,		C 
		KTBWD,KTFWD,KTBWD 
*    BRANCH LIST EXHAUSTED - SPBINW2 CLOBBERED BY SPTCHK

	B	SETCREAD 
	 
KCOPY			HARD COPY 
 MOVE SPBINW3,CBIN1 
 TBT GTGTPFLG,KCOPY05 
 TBT GTLPFLG,KCOPY08
 B KCOPY10
KCOPY05 
 EDWRT DSHCGP,ERAFMT
 PRINT DSHCGP,SPBINW3,='0' GTP
 B KCOPY10
KCOPY08 
 EDWRT DSHCLP,ERAFMT
 PRINT DSHCLP,SPBINW3,='0' LP 
 B KCOPY10
KCOPY10 
 B SETCREAD SET CURSOR AND READ 
* 
KDUPL			DUPLICATION 
 MOVE SPBINW2,CBIN3 INDICATE COMMON EOI-KEY 
 DUPL SPINPUT DUPLICATION 
	BNZ	KDUPL2 
	COPY	GSWSTR1,CBIN0,CBIN1,SPINPUT,CBIN1	GET BYTE 1
	CBE	GSWSTR1,=X'00',KDUPL2
	MOVE	SPBINW1,CBIN10	SET LENGTH IN DUPFIELD 
	SET SPDUPL 
 B UPDATE DUPL ALLOWED
KDUPL2
 MOVE SPBINW4,CBIN4 INDICATE ILLEGAL EOI-KEY
 B ERRPRINT DUPL NOT ALLOWED

* 
*    EDIT FIELD 
* 
KEDIT 
 GETCTL 1,SPBINW3 GET MAXL
 CBNE SPBINW3,CBIN0,KED100
 PERF BELL
 B SETCREAD 
KED100
 EDFLD SPINPUT,SPKTAB3,SPBINW1,		C
		SPBINW2,SPBINW4 
 B DYKOUT CONTINUE AS FOR DYKI
* 
*    ENTER KEY
* 
KENTER
 TBT SPCHANGE,KENT00	NO TESTS ON ME 
 TBF SPME,KENT05	FIELDS ? 
KENT00
 MOVE SPBINW4,CBIN5 INDICATE COMP.FIELD FOUND 
 MOVE SPBINW1,CBIN0 INDICATE NO CLEARING
 MOVE SPBINW2,CBIN0 SET INDEX TO SEARCHED FIELD 
 GETFLD 0,SPBINW2,SPBINW3 SEARCH FOR EMPTY COMP. FIELDS 
 BOFL KENT10 EMPTY COMP. FIELD FOUND
 TSTCTL 2 LOOK IF COMPULSORY FIELD
 BZ KENT05 NO!
 CALL EMPTYT,:FMTITEM LOOK IF EMPTY FIELD 
 BP KENT10 YES! 
KENT05
 MOVE SPBINW2,CBIN3 INDICATE ENTER KEY DEPRESSED
 RET
* 
*    EMPTY COMPULSORY FIELD FOUND 
* 
KENT10
 GETFLD 0,SPBINW3,SPBINW2 GET THE COMPULSORY FIELD

ERRPRT
 PERF DKTEST
 BNOK SETCREAD
 CBE SPBINW2,CBIN16,KEDIT	JUMP IF EDIT
 CBE SPBINW2,CBIN4,CANC JUMP IF CANCEL1 
 CBE SPBINW2,CBIN5,CANC JUMP IF CANCEL2 
* 
*    ERROR HANDLING 
* 
ERRPRINT
* 
 MOVE SPBINW2,=X'40'
 XSTAT KEYB,SPBINW3 
 CBNE SPBINW2,SPBINW3,ERRPRT20
			TIMEOUT
 EDWRT SCREEN,ERAFMT ERASE SCREEN 
 B ERRC20 
ERRPRT20
	CBE	SPBINW4,CBIN0,ERRC20 
 PERF BELL
 MOVE SPBINW3,=X'1801' ROW 24 COL. 1
 DSC1 SCREEN,6,SPBINW3 SET CURSOR ON LAST ROW 
 TBT GTRKONV,ERRPRT30 
	MOVE	GSWBCD4,SPBINW4	ERRORCODE 
ERRPRT30
 EDWRT SCREEN,SPFTBERR(SPBINW4) 
 TBF SPKEYFLG,SPERRRET
* 
*    READ AFTER ERROR 
* 
ERREAD
 SETCUR		SET CURSOR AT THE BEGINNING
			OF THE CURRENT FIELD 
ERR100
 MOVE SPBINW3,CBIN14 REQUESTED LENGTH 
	IB	SPKEY,ERR105,ERR110,ERR115,ERR116 
ERR105
 NKI .NE,KEYB,SPINPUT,SPKTAB1,SPBINW3,SPBINW2 
	B	ERR120 
ERR110
	NKI	.NE,KEYB,SPINPUT,SPKTAB12,SPBINW3,SPBINW2
 B ERR120 
ERR115
 NKI .NE,KEYB,SPINPUT,SPKTAB13,SPBINW3,SPBINW2
 B ERR120 
ERR116
 NKI .NE,KEYB,SPINPUT,SPKTAB14,SPBINW3,SPBINW2
 B ERR120 
ERR120
 BNZ ERR100 JUMP IF NOT OK
 PERF DKTEST
 BNOK ERREAD
 CMP SPBINW2,CBIN0 JUMP IF POWER OFF
 BE RETUR 
 IB SPBINW2,ERR100,ERRCONT		C 
		ERRCONT,ERR100,ERRCONT,ERRCONT
 B ERR100 CONTINUE
* 
*    CLEAR ERROR PRINTOUT 
* 
ERRCONT 
	PERF	CLEAR8	ERASE LAST LINE
 CBNL SPBINW4,=W'26',CANC IF WARNING
 SUB SPBINW2,CBIN1 ADJUST KEY INDEX 
CANC
 CBE SPBINW1,CBIN0,ERRC10 JUMP IF LENGTH = 0
 MOVE SPINPUT,:FMTITEM SAVE CURRENT CONTENTS
 MOVE :FMTITEM,=C'1' PUT SOMETHING IN THE FIELD 
 GETABX SPBINW4 GET CURRENT INDEX 
 ERASE 10,SPBINW4,SPBINW4 CLEAR FIELD 
ERRC10
 IB SPBINW2,CLEAR1,CLEAR2,DUMMY 
 SUB SPBINW2,CBIN3 ADJUST FOR CANCEL1,CANCEL2 
 RET
CLEAR1
 CBE SPBINW1,CBIN0,ERRC20 JUMP IF LENGTH = 0
 SET SPCHANGE INDICATE CHANGED FIELD
ERRC20
	MOVE	SPBINW5,$OPT	CHECHK IF SPERR
 CBE SPBINW5,CBIN0,SPERRRET 
 B SETCREAD CONTINUE
* 
CLEAR2
 MOVE :FMTITEM,SPINPUT RESTORE CURRENT CONTENTS 
CLEA20
 GETABX SPBINW4 GET CURRENT TAB INDEX 
 DISPLAY 1,SPBINW4,SPBINW4 DISPLAY FIELD
	MOVE	SPBINW5,$OPT	CHECK IF SPERR 
 CBE SPBINW5,CBIN0,SPERRRET 
 B SETCREAD CONTINUE
* 
SPERRRET
	RET
* 
 PEND 
* 
BELL PROC 
*          ACUSTIC ALARM
 EDWRT SCREEN,BELLFMT 
 RET
* 
BELLFMT FRMT
 FSL
 FILLR X'07',1
 FMEND

	PEND 
* 
ERAFMT FRMT 
 FILLR '1',2
 FMEND
 EJECT
KBTEST PROC 
* THE PROCEDURE SENSES THE KEYBOARD.
* IF THE MAK-KEY HAS BEEN DEPRESSED, THE COND.REG 
* WILL BE SET TO ZERO, IN ORDER TO ENABLE THE CALLING 
* MODULE TO STOP THE LISTING (OR FOR ANY OTHER PURPOSE) 
 PERF SPLIN8,CBIN0,CBIN0
 TESTIO KEYB
 BOK KBT10
 CALL ABORT,KEYB
 B KBT20
KBT10 
 WAIT KEYB
 CBNE SPBINW2,CBIN6,KBT20 
 CMP CBIN0,CBIN0
 B KBT99
KBT20 
 CMP CBIN0,CBIN1
KBT99 
 RET
 PEND 
 EJECT
SPLIN8 PROC WRTMES,WRTTYP 
********************
* 
*          SPLIN8 - WRITE ON LINE 24
* 
*          MESSAGE DEFINED AS FORMAT NUMBER WRTMES
*          IN FORMAT TABLE SPFTBMES 
* 
*          WRTTYP:   =0  NO WAIT
*                    =1  WAIT 
*                    =2  RETURN 
*                    =3 WRITE WITH NO WAIT, RETURN
* 
******************* 
	MOVE SPBINW1,=X'1801'
	DSC1	SCREEN,6,SPBINW1	SET CURSOR ON LAST ROW 
	MOVE	SPBINW1,CBIN0 
 CBE WRTMES,CBIN0,LIN800
 CBL WRTTYP,CBIN3,LIN801
 EDWRT .NW,SCREEN,SPFTBMES(WRTMES)
 B LINRET 
LIN801
	EDWRT	SCREEN,SPFTBMES(WRTMES)
LIN800
 CBE WRTTYP,CBIN0,LIN8NW
 CBE WRTTYP,CBIN2,LINRET
* READ
LIN8IN
	MOVE	SPBINW1,CBIN3	REQUESTED LENGTH
	IB	SPKEY,LIN805,LIN810,LIN815,LIN816 
LIN805
	NKI	KEYB,SPINPUT,SPKTAB1,SPBINW1,SPBINW2 
	B	LIN820 
LIN810
	NKI	KEYB,SPINPUT,SPKTAB12,SPBINW1,SPBINW2
 B LIN820 
LIN815
 NKI KEYB,SPINPUT,SPKTAB13,SPBINW1,SPBINW2
 B LIN820 
LIN816
 NKI KEYB,SPINPUT,SPKTAB14,SPBINW1,SPBINW2
 B LIN820 
LIN820
	BNOK	LIN8IN	JUMP IF NOT OK 
 PERF DKTEST
	IB	SPBINW2,LIN8IN,LIN8CT,LIN8IN
	B	LIN8IN 
* CLEAR LINE
LIN8CT
	PERF	CLEAR8	ERASE LAST LINE
	RET
* READ WITH NO WAIT 
LIN8NW
	MOVE	SPBINW1,CBIN3	REQUESTED LENGTH
	IB	SPKEY,LIN855,LIN860,LIN865,LIN866 
LIN855
	NKI	.NW,KEYB,SPINPUT,SPKTAB1,SPBINW1,SPBINW2 
	B	LIN870 
LIN860
	NKI	.NW,KEYB,SPINPUT,SPKTAB12,SPBINW1,SPBINW2
 B LIN870 
LIN865
 NKI .NW,KEYB,SPINPUT,SPKTAB13,SPBINW1,SPBINW2
 B LIN870 
LIN866
 NKI .NW,KEYB,SPINPUT,SPKTAB14,SPBINW1,SPBINW2
 B LIN870 
LIN870
 PERF DKTEST
LINRET
	RET
	PEND 
	 
SPINF1	PROC 
********************
* 
*          SPINF1 - WRITE INF ON FIRST LINE 
* 
********************
	MOVE	SPBINW1,=X'0117'
	DSC1	SCREEN,6,SPBINW1	SET CURSOR ON FIRST LINE 
	MOVE	SPBINW1,CBIN0 
	EDWRT	SCREEN,SPFTBMES(CBIN7)	WRITE MESSAGE 7 
	RET
	PEND 
* 
* 
* 
SPINF8	PROC 
********************
* 
*          SPINF8 - WRITE INF ON LAST LINE
* 
********************
 PERF SPLIN8,CBIN4,CBIN2
	RET
	PEND 
* 
* 
CLEAR8	PROC 
*     DELETE FIRST 14 CHARACTERS
*     OF LINE 24
	MOVE	GSWBIN2,=X'1801'	INDICATE LAST LINE 
	DSC1	SCREEN,06,GSWBIN2 
	MOVE	GSWBIN2,CBIN14
	DSC1	SCREEN,02,GSWBIN2	ERASE 14 CHARS
	RET	 
	PEND 
* 
* 
DKTEST PROC 
* TEST IF DISK IS SWITCHED OFF, 
* 
 TBF CDKOFF,DKTRET
 TBT GTMASTFL,DKTRET
 TBF CDUOVL,DKTRET NO KI IF DISKOVERLAY ON DU 
*  WRITE MESSAGE, AND WAIT FOR FLAG CLEARED 
 MOVE SPBINW5,=X'1802' POSITION 
 DSC1 SCREEN,6,SPBINW5 CURSOR 
 EDWRT .NW,SCREEN,SPFTBMES(CBIN14)
DKT10 
 DELAY CBIN10 
 TBT CDKOFF,DKT10 
 PERF CLEAR8
 CMP CBIN1,CBIN0 NOK
 RET
DKTRET
 CMP CBIN0,CBIN0 OK 
 RET
 PEND 
* 
* 
* 
* 

 END

HexDump

0x0000…0022 (0, 0, 400)  Head {h00=0x001e, h01=0x0050, text=» IDENT SCREEN  03.01.XXX.1«, t00=0x0000, t01=0x0004}
0x0022…0046              Head {h00=0x0020, h01=0x0050, text=»   1.1,78-04-20,870138040310«, t00=0x0000, t01=0x0026}
0x0046…0050              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x004a}
0x0050…0080              Head {h00=0x002c, h01=0x0050, text=»*    A STANDARD PROGRAM PACKAGE HANDLING«, t00=0x0000, t01=0x0054}
0x0080…00b4              Head {h00=0x0030, h01=0x0050, text=»*    A COMPLETE PICTURE ON A DISPLAY SCREEN «, t00=0x0000, t01=0x0084}
0x00b4…00be              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00b8}
0x00be…00ea              Head {h00=0x0028, h01=0x0050, text=»*    RUNNING UNDER:  CREDIT REL 3.1 «, t00=0x0000, t01=0x00c2}
0x00ea…0116              Head {h00=0x0028, h01=0x0050, text=»*                    TOSS   REL 8.1 «, t00=0x0000, t01=0x00ee}
0x0116…0120              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x011a}
0x0120…0134              Head {h00=0x0010, h01=0x0050, text=» DDUM KMD08 «, t00=0x0000, t01=0x0124}
0x0134…0142              Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0138}
0x0142…014c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0146}
0x014c…017c              Head {h00=0x002c, h01=0x0050, text=» ENTRY SPCLRA CLEAR ALL VARIABLE FIELDS «, t00=0x0000, t01=0x0150}
0x017c…01ac              Head {h00=0x002c, h01=0x0050, text=» ENTRY SPCLRS CLEAR SOME VARIABLE FIELDS«, t00=0x0000, t01=0x0180}
0x01ac…01da              Head {h00=0x002a, h01=0x0050, text=» ENTRY SPCLRN CLEAR NO VARIABLE FIELDS«, t00=0x0001, t01=0x0020}
0x01da…0206              Head {h00=0x0028, h01=0x0050, text=» ENTRY SPERR DISPLAY ERROR PRINTOUT «, t00=0x0001, t01=0x004e}
0x0206…0226              Head {h00=0x001c, h01=0x0050, text=»   AND CONTINUE HANDLING«, t00=0x0001, t01=0x007a}
0x0226…024e              Head {h00=0x0024, h01=0x0050, text=» ENTRY SPLIN8 MESSAGE ON LINE 8 «, t00=0x0001, t01=0x009a}
0x024e…026e              Head {h00=0x001c, h01=0x0050, text=» ENTRY SPCA AS SPCLRA-- «, t00=0x0001, t01=0x00c2}
0x026e…028e              Head {h00=0x001c, h01=0x0050, text=» ENTRY SPCN AS SPCLRN-- «, t00=0x0001, t01=0x00e2}
0x028e…02a4              Head {h00=0x0012, h01=0x0050, text=» ENTRY SCREEN «, t00=0x0001, t01=0x0102}
0x02a4…02d0              Head {h00=0x0028, h01=0x0050, text=» ENTRY SPINF1 INFORMATION ON LINE 1 «, t00=0x0001, t01=0x0118}
0x02d0…02fc              Head {h00=0x0028, h01=0x0050, text=» ENTRY SPINF8 INFORMATION ON LINE 8 «, t00=0x0001, t01=0x0144}
0x02fc…0310              Head {h00=0x0010, h01=0x0050, text=» ENTRY BELL «, t00=0x0001, t01=0x0170}
0x0310…0326              Head {h00=0x0012, h01=0x0050, text=» ENTRY CLEAR8 «, t00=0x0001, t01=0x0184}
0x0326…034e              Head {h00=0x0024, h01=0x0050, text=» ENTRY DKTEST TEST IF DISK READY«, t00=0x0002, t01=0x000a}
0x034e…0378              Head {h00=0x0026, h01=0x0050, text=» ENTRY KBTEST TEST KB FOR MAK-KEY «, t00=0x0002, t01=0x0032}
0x0378…0382              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x005c}
0x0382…03b2              Head {h00=0x002c, h01=0x0050, text=» EXT SPCHK1 STANDARD CHECK ROUTINE NO. 1«, t00=0x0002, t01=0x0066}
0x03b2…03e2              Head {h00=0x002c, h01=0x0050, text=» EXT SPCHK2 STANDARD CHECK ROUTINE NO. 2«, t00=0x0002, t01=0x0096}
0x03e2…0412              Head {h00=0x002c, h01=0x0050, text=» EXT SPCHK3 STANDARD CHECK ROUTINE NO. 3«, t00=0x0002, t01=0x00c6}
0x0412…0442              Head {h00=0x002c, h01=0x0050, text=» EXT SPCHK4 STANDARD CHECK ROUTINE NO. 4«, t00=0x0002, t01=0x00f6}
0x0442…0472              Head {h00=0x002c, h01=0x0050, text=» EXT SPCHK5 STANDARD CHECK ROUTINE NO.5 «, t00=0x0002, t01=0x0126}
0x0472…04a2              Head {h00=0x002c, h01=0x0050, text=» EXT SPCHK6 STANDARD CHECK ROUTINE NO. 6«, t00=0x0002, t01=0x0156}
0x04a2…04d2              Head {h00=0x002c, h01=0x0050, text=» EXT SPCHK7 STANDARD CHECK ROUTINE NO. 7«, t00=0x0002, t01=0x0186}
0x04d2…04fc              Head {h00=0x0026, h01=0x0050, text=» EXT SPAPPL USER ROUTINE TO HANDLE«, t00=0x0003, t01=0x0026}
0x04fc…0512              Head {h00=0x0012, h01=0x0050, text=»   APPL VALUES«, t00=0x0003, t01=0x0050}
0x0512…0544              Head {h00=0x002e, h01=0x0050, text=» EXT RKAPPL APPLVALUES FOR R]KONVERTERING «, t00=0x0003, t01=0x0066}
0x0544…0570              Head {h00=0x0028, h01=0x0050, text=» EXT SPTCHK USER ROUTINE TO EVALUATE«, t00=0x0003, t01=0x0098}
0x0570…0592              Head {h00=0x001e, h01=0x0050, text=»   CONDITIONAL TABULATION «, t00=0x0003, t01=0x00c4}
0x0592…05a4              Head {h00=0x000e, h01=0x0050, text=» EXT ABORT«, t00=0x0003, t01=0x00e6}
0x05a4…05b8              Head {h00=0x0010, h01=0x0050, text=» EXT GETTID «, t00=0x0003, t01=0x00f8}
0x05b8…05ea              Head {h00=0x002e, h01=0x0050, text=» EXT EMPTYT ASSEMBLY SUBROUTINE EMPTYT  - «, t00=0x0003, t01=0x010c}
0x05ea…0610              Head {h00=0x0022, h01=0x0050, text=»   TEST IF DATA ITEM IS EMPTY «, t00=0x0003, t01=0x013e}
0x0610…061a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0164}
0x061a…0636              Head {h00=0x0018, h01=0x0050, text=» INCLUDE KY6272,LIST«, t00=0x0003, t01=0x016e}
0x0636…063e              Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x018a}
0x063e…0666 (4, 0, 400)  Head {h00=0x0024, h01=0x0050, text=»*     FIRST INCLUDE KEY VALUES, «, t00=0x0004, t01=0x0004}
0x0666…0698              Head {h00=0x002e, h01=0x0050, text=»*     THEN INCLUDE SPECIAL SCREEN FORMATS «, t00=0x0004, t01=0x002c}
0x0698…06b4              Head {h00=0x0018, h01=0x0050, text=» INCLUDE SL6272,LIST«, t00=0x0004, t01=0x005e}
0x06b4…06bc              Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x007a}
0x06bc…06d0              Head {h00=0x0010, h01=0x0050, text=»SPCLRA PROC «, t00=0x0004, t01=0x0082}
0x06d0…06da              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0096}
0x06da…0722              Head {h00=0x0044, h01=0x0050, text=»* SPCLRA - CLEAR ALL VARABLE FIELDS BEFORE HANDLING THE PICTURE «, t00=0x0004, t01=0x00a0}
0x0722…072c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00e8}
0x072c…0748              Head {h00=0x0018, h01=0x0050, text=» MOVE SPERASE,CBIN0 «, t00=0x0004, t01=0x00f2}
0x0748…0762              Head {h00=0x0016, h01=0x0050, text=» PERF SCREEN,=W'1'«, t00=0x0004, t01=0x010e}
0x0762…076e              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0004, t01=0x0128}
0x076e…077c              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0004, t01=0x0134}
0x077c…0790              Head {h00=0x0010, h01=0x0050, text=»SPCLRS PROC «, t00=0x0004, t01=0x0142}
0x0790…079a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0156}
0x079a…07e4              Head {h00=0x0046, h01=0x0050, text=»* SPCLRS - CLEAR SOME VARIABLE FIELDS BEFORE HANDLING THE PICTURE «, t00=0x0004, t01=0x0160}
0x07e4…07ee              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x001a}
0x07ee…080a              Head {h00=0x0018, h01=0x0050, text=» MOVE SPERASE,CBIN0 «, t00=0x0005, t01=0x0024}
0x080a…0824              Head {h00=0x0016, h01=0x0050, text=» PERF SCREEN,=W'2'«, t00=0x0005, t01=0x0040}
0x0824…0830              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0005, t01=0x005a}
0x0830…083e              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0005, t01=0x0066}
0x083e…0852              Head {h00=0x0010, h01=0x0050, text=»SPCLRN PROC «, t00=0x0005, t01=0x0074}
0x0852…085c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0088}
0x085c…08a4              Head {h00=0x0044, h01=0x0050, text=»* SPCLRN - CLEAR NO VARIABLE FIELDS BEFORE HANDLING THE PICTURE «, t00=0x0005, t01=0x0092}
0x08a4…08ae              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00da}
0x08ae…08ca              Head {h00=0x0018, h01=0x0050, text=» MOVE SPERASE,CBIN0 «, t00=0x0005, t01=0x00e4}
0x08ca…08e4              Head {h00=0x0016, h01=0x0050, text=» PERF SCREEN,=W'3'«, t00=0x0005, t01=0x0100}
0x08e4…08f0              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0005, t01=0x011a}
0x08f0…08fe              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0005, t01=0x0126}
0x08fe…0910              Head {h00=0x000e, h01=0x0050, text=»SPERR PROC«, t00=0x0005, t01=0x0134}
0x0910…091a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0146}
0x091a…094e              Head {h00=0x0030, h01=0x0050, text=»* HANDLE ERRORS DETECTED OUTSIDE THE PACKAGE«, t00=0x0005, t01=0x0150}
0x094e…0958              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0184}
0x0958…0972              Head {h00=0x0016, h01=0x0050, text=» PERF SCREEN,=W'0'«, t00=0x0005, t01=0x018e}
0x0972…097e              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0006, t01=0x0018}
0x097e…098c              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0006, t01=0x0024}
0x098c…099e              Head {h00=0x000e, h01=0x0050, text=»SPCA PROC «, t00=0x0006, t01=0x0032}
0x099e…09a8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0044}
0x09a8…09b2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x004e}
0x09b2…09ce              Head {h00=0x0018, h01=0x0050, text=» MOVE SPERASE,CBIN4 «, t00=0x0006, t01=0x0058}
0x09ce…09e8              Head {h00=0x0016, h01=0x0050, text=» PERF SCREEN,=W'1'«, t00=0x0006, t01=0x0074}
0x09e8…09f4              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0006, t01=0x008e}
0x09f4…0a02              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0006, t01=0x009a}
0x0a02…0a14              Head {h00=0x000e, h01=0x0050, text=»SPCN PROC «, t00=0x0006, t01=0x00a8}
0x0a14…0a1e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00ba}
0x0a1e…0a28              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00c4}
0x0a28…0a44              Head {h00=0x0018, h01=0x0050, text=» MOVE SPERASE,CBIN4 «, t00=0x0006, t01=0x00ce}
0x0a44…0a5e              Head {h00=0x0016, h01=0x0050, text=» PERF SCREEN,=W'3'«, t00=0x0006, t01=0x00ea}
0x0a5e…0a6a              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0006, t01=0x0104}
0x0a6a…0a78              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0006, t01=0x0110}
0x0a78…0a80              Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x011e}
0x0a80…0a98              Head {h00=0x0014, h01=0x0050, text=»SCREEN PROC $OPT«, t00=0x0006, t01=0x0126}
0x0a98…0aa2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x013e}
0x0aa2…0aca              Head {h00=0x0024, h01=0x0050, text=»* SCREEN SCREEN HANDLING MODULE «, t00=0x0006, t01=0x0148}
0x0aca…0ad4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0170}
0x0ad4…0af6              Head {h00=0x001e, h01=0x0050, text=»* CALL: PERF SCREEN,<$OPT>«, t00=0x0006, t01=0x017a}
0x0af6…0b00              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x000c}
0x0b00…0b22              Head {h00=0x001e, h01=0x0050, text=» PLIT $OPT OPTIO SELECTOR «, t00=0x0007, t01=0x0016}
0x0b22…0b2a              Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x0038}
0x0b2a…0b54              Head {h00=0x0026, h01=0x0050, text=» CLEAR SPWARNFL CLEAR WARNING FLAG«, t00=0x0007, t01=0x0040}
0x0b54…0b80              Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW2,$OPT MOVE TO VARIABLE «, t00=0x0007, t01=0x006a}
0x0b80…0ba6              Head {h00=0x0022, h01=0x0050, text=»   TO ALLOW INSTR.S CMP AND IB«, t00=0x0007, t01=0x0096}
0x0ba6…0bd0              Head {h00=0x0026, h01=0x0050, text=» CMP SPBINW2,CBIN0 "SPERR" ENTRY ?«, t00=0x0007, t01=0x00bc}
0x0bd0…0bea              Head {h00=0x0016, h01=0x0050, text=» BE ERRPRINT YES !«, t00=0x0007, t01=0x00e6}
0x0bea…0bf2              Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x0100}
0x0bf2…0c24              Head {h00=0x002e, h01=0x0050, text=» TBT SPPROMPT,ENTIRE JUMP IF ENTIRE FORMAT«, t00=0x0007, t01=0x0108}
0x0c24…0c42              Head {h00=0x001a, h01=0x0050, text=»   SHOULD BE DISPLAYED«, t00=0x0007, t01=0x013a}
0x0c42…0c4c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0158}
0x0c4c…0c6e              Head {h00=0x001e, h01=0x0050, text=»*    ONLY VARIABLE FIELDS «, t00=0x0007, t01=0x0162}
0x0c6e…0c78              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0184}
0x0c78…0cb4              Head {h00=0x0038, h01=0x0050, text=» IB SPBINW2,CLEARA,CLEARS,CONT JUMP ON ROUTINE INDEX«, t00=0x0007, t01=0x018e}
0x0cb4…0cbe              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x003a}
0x0cbe…0ccc              Head {h00=0x000a, h01=0x0050, text=»CLEARA«, t00=0x0008, t01=0x0044}
0x0ccc…0d02              Head {h00=0x0032, h01=0x0050, text=» ERASE 10,CBIN1,CBIN0 ERASE ALL FROM 1 AND UP «, t00=0x0008, t01=0x0052}
0x0d02…0d10              Head {h00=0x000a, h01=0x0050, text=» THOME«, t00=0x0008, t01=0x0088}
0x0d10…0d20              Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x0008, t01=0x0096}
0x0d20…0d2a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00a6}
0x0d2a…0d38              Head {h00=0x000a, h01=0x0050, text=»CLEARS«, t00=0x0008, t01=0x00b0}
0x0d38…0d6e              Head {h00=0x0032, h01=0x0050, text=» ERASE 5,CBIN1,CBIN0 ERASE SOME FROM 1 AND UP «, t00=0x0008, t01=0x00be}
0x0d6e…0d7e              Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x0008, t01=0x00f4}
0x0d7e…0d86              Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x0104}
0x0d86…0d90              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x010c}
0x0d90…0db2              Head {h00=0x001e, h01=0x0050, text=»*    DISPLAY ENTIRE FORMAT«, t00=0x0008, t01=0x0116}
0x0db2…0dbc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0138}
0x0dbc…0dca              Head {h00=0x000a, h01=0x0050, text=»ENTIRE«, t00=0x0008, t01=0x0142}
0x0dca…0e06              Head {h00=0x0038, h01=0x0050, text=» IB SPBINW2,ECLRA,ECLRS,ECLRN JUMP ON ROUTINE INDEX «, t00=0x0008, t01=0x0150}
0x0e06…0e10              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x018c}
0x0e10…0e30              Head {h00=0x001c, h01=0x0050, text=»*    CLEAR ALL VARIABLES«, t00=0x0009, t01=0x0008}
0x0e30…0e3a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0028}
0x0e3a…0e48              Head {h00=0x000a, h01=0x0050, text=»ECLRA «, t00=0x0009, t01=0x0032}
0x0e48…0e70              Head {h00=0x0024, h01=0x0050, text=» ERASE 11,CBIN1,CBIN0 CLEAR ALL «, t00=0x0009, t01=0x0040}
0x0e70…0e84              Head {h00=0x0010, h01=0x0050, text=»   IN MEMORY«, t00=0x0009, t01=0x0068}
0x0e84…0e94              Head {h00=0x000c, h01=0x0050, text=» B ECLRN«, t00=0x0009, t01=0x007c}
0x0e94…0e9e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x008c}
0x0e9e…0ec0              Head {h00=0x001e, h01=0x0050, text=»*    CLEAR SOME VARIABLES «, t00=0x0009, t01=0x0096}
0x0ec0…0eca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00b8}
0x0eca…0ed8              Head {h00=0x000a, h01=0x0050, text=»ECLRS «, t00=0x0009, t01=0x00c2}
0x0ed8…0f0c              Head {h00=0x0030, h01=0x0050, text=» ERASE 6,CBIN1,CBIN0 CLEAR SOME FIELDS FROM «, t00=0x0009, t01=0x00d0}
0x0f0c…0f2a              Head {h00=0x001a, h01=0x0050, text=»   1 AND UP IN MEMORY «, t00=0x0009, t01=0x0104}
0x0f2a…0f34              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0122}
0x0f34…0f5e              Head {h00=0x0026, h01=0x0050, text=»*    CLEAR NO VARIABLES IN MEMORY «, t00=0x0009, t01=0x012c}
0x0f5e…0f68              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0156}
0x0f68…0f76              Head {h00=0x000a, h01=0x0050, text=»ECLRN «, t00=0x0009, t01=0x0160}
0x0f76…0fa6              Head {h00=0x002c, h01=0x0050, text=» IB SPERASE,ECLRN1,ECLRN2,ECLRN3,ECLRN4 «, t00=0x0009, t01=0x016e}
0x0fa6…0fc4              Head {h00=0x001a, h01=0x0050, text=» DISPLAY 0,CBIN1,CBIN0«, t00=0x000a, t01=0x000e}
0x0fc4…0fd4              Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x000a, t01=0x002c}
0x0fd4…0fe2              Head {h00=0x000a, h01=0x0050, text=»ECLRN1«, t00=0x000a, t01=0x003c}
0x0fe2…1000              Head {h00=0x001a, h01=0x0050, text=» DISPLAY 1,CBIN1,CBIN0«, t00=0x000a, t01=0x004a}
0x1000…1010              Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x000a, t01=0x0068}
0x1010…101e              Head {h00=0x000a, h01=0x0050, text=»ECLRN2«, t00=0x000a, t01=0x0078}
0x101e…103c              Head {h00=0x001a, h01=0x0050, text=» DISPLAY 2,CBIN1,CBIN0«, t00=0x000a, t01=0x0086}
0x103c…104c              Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x000a, t01=0x00a4}
0x104c…105a              Head {h00=0x000a, h01=0x0050, text=»ECLRN3«, t00=0x000a, t01=0x00b4}
0x105a…1078              Head {h00=0x001a, h01=0x0050, text=» DISPLAY 3,CBIN1,CBIN0«, t00=0x000a, t01=0x00c2}
0x1078…1088              Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x000a, t01=0x00e0}
0x1088…1096              Head {h00=0x000a, h01=0x0050, text=»ECLRN4«, t00=0x000a, t01=0x00f0}
0x1096…10b4              Head {h00=0x001a, h01=0x0050, text=» DISPLAY 4,CBIN1,CBIN0«, t00=0x000a, t01=0x00fe}
0x10b4…10c4              Head {h00=0x000c, h01=0x0050, text=» B CONT «, t00=0x000a, t01=0x011c}
0x10c4…10ce              Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x000a, t01=0x012c}
0x10ce…10da              Head {h00=0x0008, h01=0x0050, text=»CONT«, t00=0x000a, t01=0x0136}
0x10da…1104              Head {h00=0x0026, h01=0x0050, text=» GETABX SPBINW4 GET CURRENT INDEX «, t00=0x000a, t01=0x0142}
0x1104…1130              Head {h00=0x0028, h01=0x0050, text=» BL KTHOME JUMP IF NO CURRENT FIELD «, t00=0x000a, t01=0x016c}
0x1130…113e              Head {h00=0x000a, h01=0x0050, text=»CONT5 «, t00=0x000b, t01=0x0008}
0x113e…1178              Head {h00=0x0036, h01=0x0050, text=» GETFLD 0,SPBINW4,SPBINW3 SEARCH CURRENT POSITION «, t00=0x000b, t01=0x0016}
0x1178…119a              Head {h00=0x001e, h01=0x0050, text=» BZ SETCREAD JUMP IF FOUND«, t00=0x000b, t01=0x0050}
0x119a…11c0              Head {h00=0x0022, h01=0x0050, text=» BL KTHOME POSITION NOT FOUND «, t00=0x000b, t01=0x0072}
0x11c0…11ca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0098}
0x11ca…11ee              Head {h00=0x0020, h01=0x0050, text=»*    COMPULSORY FIELD FOUND «, t00=0x000b, t01=0x00a2}
0x11ee…11f8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00c6}
0x11f8…1222              Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW4,SPBINW3 CHANGE INDEX«, t00=0x000b, t01=0x00d0}
0x1222…1240              Head {h00=0x001a, h01=0x0050, text=» B CONT5 SEARCH AGAIN «, t00=0x000b, t01=0x00fa}
0x1240…124a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0118}
0x124a…1252              Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0122}
0x1252…125c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x012a}
0x125c…1286              Head {h00=0x0026, h01=0x0050, text=»*    SET CURSOR AND READ KEYBOARD «, t00=0x000b, t01=0x0134}
0x1286…1290              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x015e}
0x1290…12a0              Head {h00=0x000c, h01=0x0050, text=»SETCREAD«, t00=0x000b, t01=0x0168}
0x12a0…12cc              Head {h00=0x0028, h01=0x0050, text=» SETCUR  SET CURSOR ON CURRENT FIELD«, t00=0x000b, t01=0x0178}
0x12cc…12d4              Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0014}
0x12d4…12de              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x001c}
0x12de…130c              Head {h00=0x002a, h01=0x0050, text=»*    READ TO CURRENT FIELD ON DISPLAY «, t00=0x000c, t01=0x0026}
0x130c…1316              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0054}
0x1316…1324              Head {h00=0x000a, h01=0x0050, text=»READIN«, t00=0x000c, t01=0x005e}
0x1324…1346              Head {h00=0x001e, h01=0x0050, text=»*     SET FLAG IF AUTODUP «, t00=0x000c, t01=0x006c}
0x1346…1364              Head {h00=0x001a, h01=0x0050, text=»*     USES VERIF-FIELD«, t00=0x000c, t01=0x008e}
0x1364…1380              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW2,CBIN3 «, t00=0x000c, t01=0x00ac}
0x1380…139c              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW1,CBIN1 «, t00=0x000c, t01=0x00c8}
0x139c…13ae              Head {h00=0x000e, h01=0x0050, text=» TSTCTL 6 «, t00=0x000c, t01=0x00e4}
0x13ae…13c0              Head {h00=0x000e, h01=0x0050, text=» BOK DYKIN«, t00=0x000c, t01=0x00f6}
0x13c0…13da              Head {h00=0x0016, h01=0x0050, text=» GETCTL 0,SPBINW3 «, t00=0x000c, t01=0x0108}
0x13da…1400              Head {h00=0x0022, h01=0x0050, text=» MOVE SPBINW1,CFLTDEX(SPBINW3)«, t00=0x000c, t01=0x0122}
0x1400…1424              Head {h00=0x0020, h01=0x0050, text=» CMP GSSWITCH(SPBINW1),CBIN0«, t00=0x000c, t01=0x0148}
0x1424…1436              Head {h00=0x000e, h01=0x0050, text=» BE DYKIN «, t00=0x000c, t01=0x016c}
0x1436…1452              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW1,CBIN1 «, t00=0x000c, t01=0x017e}
0x1452…1464              Head {h00=0x000e, h01=0x0050, text=» BL DYK20 «, t00=0x000d, t01=0x000a}
0x1464…1480              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW2,CBIN15«, t00=0x000d, t01=0x001c}
0x1480…1490              Head {h00=0x000c, h01=0x0050, text=» B DYK20«, t00=0x000d, t01=0x0038}
0x1490…14a0              Head {h00=0x000c, h01=0x0050, text=» B DYK20«, t00=0x000d, t01=0x0048}
0x14a0…14aa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0058}
0x14aa…14b8              Head {h00=0x000a, h01=0x0050, text=»DYKIN «, t00=0x000d, t01=0x0062}
0x14b8…14e2              Head {h00=0x0026, h01=0x0050, text=» IB SPKEY,DYK05,DYK10,DYK15,DYK16 «, t00=0x000d, t01=0x0070}
0x14e2…14f0              Head {h00=0x000a, h01=0x0050, text=»DYK05 «, t00=0x000d, t01=0x009a}
0x14f0…1522              Head {h00=0x002e, h01=0x0050, text=» DYKI SPINPUT,SPKTAB1,SPKTAB2,SPBINW1,  C «, t00=0x000d, t01=0x00a8}
0x1522…153c              Head {h00=0x0016, h01=0x0050, text=»  SPBINW2,SPBINW4 «, t00=0x000d, t01=0x00da}
0x153c…154e              Head {h00=0x000e, h01=0x0050, text=» B DYKOUT «, t00=0x000d, t01=0x00f4}
0x154e…155c              Head {h00=0x000a, h01=0x0050, text=»DYK10 «, t00=0x000d, t01=0x0106}
0x155c…1590              Head {h00=0x0030, h01=0x0050, text=» DYKI SPINPUT,SPKTAB12,SPKTAB22,SPBINW1,  C «, t00=0x000d, t01=0x0114}
0x1590…15aa              Head {h00=0x0016, h01=0x0050, text=»  SPBINW2,SPBINW4 «, t00=0x000d, t01=0x0148}
0x15aa…15bc              Head {h00=0x000e, h01=0x0050, text=» B DYKOUT «, t00=0x000d, t01=0x0162}
0x15bc…15ca              Head {h00=0x000a, h01=0x0050, text=»DYK15 «, t00=0x000d, t01=0x0174}
0x15ca…15fe              Head {h00=0x0030, h01=0x0050, text=» DYKI SPINPUT,SPKTAB13,SPKTAB23,SPBINW1,  C «, t00=0x000d, t01=0x0182}
0x15fe…1618              Head {h00=0x0016, h01=0x0050, text=»  SPBINW2,SPBINW4 «, t00=0x000e, t01=0x0026}
0x1618…162a              Head {h00=0x000e, h01=0x0050, text=» B DYKOUT «, t00=0x000e, t01=0x0040}
0x162a…1638              Head {h00=0x000a, h01=0x0050, text=»DYK16 «, t00=0x000e, t01=0x0052}
0x1638…166c              Head {h00=0x0030, h01=0x0050, text=» DYKI SPINPUT,SPKTAB14,SPKTAB24,SPBINW1,  C «, t00=0x000e, t01=0x0060}
0x166c…1686              Head {h00=0x0016, h01=0x0050, text=»  SPBINW2,SPBINW4 «, t00=0x000e, t01=0x0094}
0x1686…1698              Head {h00=0x000e, h01=0x0050, text=» B DYKOUT «, t00=0x000e, t01=0x00ae}
0x1698…16a6              Head {h00=0x000a, h01=0x0050, text=»DYKOUT«, t00=0x000e, t01=0x00c0}
0x16a6…16be              Head {h00=0x0014, h01=0x0050, text=» BL ERRPRT ERROR«, t00=0x000e, t01=0x00ce}
0x16be…16d4              Head {h00=0x0012, h01=0x0050, text=» CLEAR SPDUPL «, t00=0x000e, t01=0x00e6}
0x16d4…16ee              Head {h00=0x0016, h01=0x0050, text=» CMP SPBINW2,CBIN0«, t00=0x000e, t01=0x00fc}
0x16ee…170a              Head {h00=0x0018, h01=0x0050, text=» BE RETUR POWER OFF «, t00=0x000e, t01=0x0116}
0x170a…1722              Head {h00=0x0014, h01=0x0050, text=» BG DYK20 NORMAL«, t00=0x000e, t01=0x0132}
0x1722…174e              Head {h00=0x0028, h01=0x0050, text=» ADD SPBINW2,CBIN9 KEYSWITCH TURNED «, t00=0x000e, t01=0x014a}
0x174e…178a              Head {h00=0x0038, h01=0x0050, text=» IB SPBINW2,SET1,SET2,SET3,SET4,CLR1,CLR2,CLR3,CLR4 «, t00=0x000e, t01=0x0176}
0x178a…179a              Head {h00=0x000c, h01=0x0050, text=» B RETUR«, t00=0x000f, t01=0x0022}
0x179a…17a6              Head {h00=0x0008, h01=0x0050, text=»SET1«, t00=0x000f, t01=0x0032}
0x17a6…17ba              Head {h00=0x0010, h01=0x0050, text=» SET TTKEY1 «, t00=0x000f, t01=0x003e}
0x17ba…17ca              Head {h00=0x000c, h01=0x0050, text=» B DYKIN«, t00=0x000f, t01=0x0052}
0x17ca…17d6              Head {h00=0x0008, h01=0x0050, text=»SET2«, t00=0x000f, t01=0x0062}
0x17d6…17ea              Head {h00=0x0010, h01=0x0050, text=» SET TTKEY2 «, t00=0x000f, t01=0x006e}
0x17ea…17fa              Head {h00=0x000c, h01=0x0050, text=» B DYKIN«, t00=0x000f, t01=0x0082}
0x17fa…1806              Head {h00=0x0008, h01=0x0050, text=»SET3«, t00=0x000f, t01=0x0092}
0x1806…181a              Head {h00=0x0010, h01=0x0050, text=» SET TTKEY3 «, t00=0x000f, t01=0x009e}
0x181a…182a              Head {h00=0x000c, h01=0x0050, text=» B DYKIN«, t00=0x000f, t01=0x00b2}
0x182a…1836              Head {h00=0x0008, h01=0x0050, text=»SET4«, t00=0x000f, t01=0x00c2}
0x1836…184a              Head {h00=0x0010, h01=0x0050, text=» SET TTKEY4 «, t00=0x000f, t01=0x00ce}
0x184a…185a              Head {h00=0x000c, h01=0x0050, text=» B DYKIN«, t00=0x000f, t01=0x00e2}
0x185a…1866              Head {h00=0x0008, h01=0x0050, text=»CLR1«, t00=0x000f, t01=0x00f2}
0x1866…187c              Head {h00=0x0012, h01=0x0050, text=» CLEAR TTKEY1 «, t00=0x000f, t01=0x00fe}
0x187c…188c              Head {h00=0x000c, h01=0x0050, text=» B DYKIN«, t00=0x000f, t01=0x0114}
0x188c…1898              Head {h00=0x0008, h01=0x0050, text=»CLR2«, t00=0x000f, t01=0x0124}
0x1898…18ae              Head {h00=0x0012, h01=0x0050, text=» CLEAR TTKEY2 «, t00=0x000f, t01=0x0130}
0x18ae…18be              Head {h00=0x000c, h01=0x0050, text=» B DYKIN«, t00=0x000f, t01=0x0146}
0x18be…18ca              Head {h00=0x0008, h01=0x0050, text=»CLR3«, t00=0x000f, t01=0x0156}
0x18ca…18e0              Head {h00=0x0012, h01=0x0050, text=» CLEAR TTKEY3 «, t00=0x000f, t01=0x0162}
0x18e0…18f0              Head {h00=0x000c, h01=0x0050, text=» B DYKIN«, t00=0x000f, t01=0x0178}
0x18f0…18fc              Head {h00=0x0008, h01=0x0050, text=»CLR4«, t00=0x000f, t01=0x0188}
0x18fc…1912 (16, 0, 400) Head {h00=0x0012, h01=0x0050, text=» CLEAR TTKEY4 «, t00=0x0010, t01=0x0004}
0x1912…1922              Head {h00=0x000c, h01=0x0050, text=» B DYKIN«, t00=0x0010, t01=0x001a}
0x1922…192c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x002a}
0x192c…193a              Head {h00=0x000a, h01=0x0050, text=»DYK20 «, t00=0x0010, t01=0x0034}
0x193a…1944              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0042}
0x1944…1958              Head {h00=0x0010, h01=0x0050, text=» PERF DKTEST«, t00=0x0010, t01=0x004c}
0x1958…196e              Head {h00=0x0012, h01=0x0050, text=» BNOK SETCREAD«, t00=0x0010, t01=0x0060}
0x196e…1978              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0076}
0x1978…1994              Head {h00=0x0018, h01=0x0050, text=» TBF TTKEYFLG,DYK80 «, t00=0x0010, t01=0x0080}
0x1994…199e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x009c}
0x199e…19b6              Head {h00=0x0014, h01=0x0050, text=»   KEY SWITCHES «, t00=0x0010, t01=0x00a6}
0x19b6…19de              Head {h00=0x0024, h01=0x0050, text=» TBF TTKEY1,DYKRET KEYBOARD OFF «, t00=0x0010, t01=0x00be}
0x19de…1a08              Head {h00=0x0026, h01=0x0050, text=» IB SPKEY,DYK30,DYK40,DYK50,DYK40 «, t00=0x0010, t01=0x00e6}
0x1a08…1a16              Head {h00=0x000a, h01=0x0050, text=»DYK30 «, t00=0x0010, t01=0x0110}
0x1a16…1a4a              Head {h00=0x0030, h01=0x0050, text=» TBF TTKEY2,DYK80 EQUAL TO KEYPOS 1 ON 6234 «, t00=0x0010, t01=0x011e}
0x1a4a…1a5c              Head {h00=0x000e, h01=0x0050, text=» B DYKRET «, t00=0x0010, t01=0x0152}
0x1a5c…1a6a              Head {h00=0x000a, h01=0x0050, text=»DYK40 «, t00=0x0010, t01=0x0164}
0x1a6a…1a9e              Head {h00=0x0030, h01=0x0050, text=» TBT TTKEY2,DYK80 EQUAL TO KEYPOS 2 ON 6234 «, t00=0x0010, t01=0x0172}
0x1a9e…1aac              Head {h00=0x000a, h01=0x0050, text=»DYKRET«, t00=0x0011, t01=0x0016}
0x1aac…1abe              Head {h00=0x000e, h01=0x0050, text=» PERF BELL«, t00=0x0011, t01=0x0024}
0x1abe…1ad2              Head {h00=0x0010, h01=0x0050, text=» B SETCREAD «, t00=0x0011, t01=0x0036}
0x1ad2…1ae0              Head {h00=0x000a, h01=0x0050, text=»DYK50 «, t00=0x0011, t01=0x004a}
0x1ae0…1aee              Head {h00=0x000a, h01=0x0050, text=»DYK80 «, t00=0x0011, t01=0x0058}
0x1aee…1b1a              Head {h00=0x0028, h01=0x0050, text=» IB SPBINW2,UPD300,CLEA20 JUMP ON C «, t00=0x0011, t01=0x0066}
0x1b1a…1b38              Head {h00=0x001a, h01=0x0050, text=»  UPDATE,CANC,CANC,  C«, t00=0x0011, t01=0x0092}
0x1b38…1b6a              Head {h00=0x002e, h01=0x0050, text=»  UPDATE,UPDATE,UPDATE,UPDATE CONVERTED C «, t00=0x0011, t01=0x00b0}
0x1b6a…1ba2              Head {h00=0x0034, h01=0x0050, text=»  UPDATE,UPDATE,UPDATE,UPDATE END-OF-ITEM-KEY C «, t00=0x0011, t01=0x00e2}
0x1ba2…1bbe              Head {h00=0x0018, h01=0x0050, text=»  UPDATE,KDUPL,KEDIT«, t00=0x0011, t01=0x011a}
0x1bbe…1bc8              Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x0011, t01=0x0136}
0x1bc8…1bd2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0140}
0x1bd2…1c0a              Head {h00=0x0034, h01=0x0050, text=»*    HANDLE THE RESPECTIVE KEY AS EOI-KEY FIRST «, t00=0x0011, t01=0x014a}
0x1c0a…1c14              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0182}
0x1c14…1c22              Head {h00=0x000a, h01=0x0050, text=»UPDATE«, t00=0x0011, t01=0x018c}
0x1c22…1c56              Head {h00=0x0030, h01=0x0050, text=» CBE SPBINW1,CBIN0,UPD350 JUMP IF LENGTH = 0«, t00=0x0012, t01=0x000a}
0x1c56…1c80              Head {h00=0x0026, h01=0x0050, text=» GETCTL 3,SPBINW4 GET SCHK-NUMBER «, t00=0x0012, t01=0x003e}
0x1c80…1cbc              Head {h00=0x0038, h01=0x0050, text=» CBE SPBINW4,CBIN0,UPD050 JUMP IF NOT STANDARD CHECK«, t00=0x0012, t01=0x0068}
0x1cbc…1cea              Head {h00=0x002a, h01=0x0050, text=» PERFI SPBINW4,SPCHK1,SPCHK2,SPCHK3  C«, t00=0x0012, t01=0x00a4}
0x1cea…1d10              Head {h00=0x0022, h01=0x0050, text=»  SPCHK4,SPCHK5,SPCHK6,SPCHK7 «, t00=0x0012, t01=0x00d2}
0x1d10…1d3a              Head {h00=0x0026, h01=0x0050, text=» IB SPBINW3,UPD050,UPD070,ERRPRINT«, t00=0x0012, t01=0x00f8}
0x1d3a…1d44              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0122}
0x1d44…1d68              Head {h00=0x0020, h01=0x0050, text=»*    CONDITIONAL DISPLAYING «, t00=0x0012, t01=0x012c}
0x1d68…1d72              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0150}
0x1d72…1d80              Head {h00=0x000a, h01=0x0050, text=»UPD050«, t00=0x0012, t01=0x015a}
0x1d80…1d9a              Head {h00=0x0016, h01=0x0050, text=» TBT SPDUPL,UPD100«, t00=0x0012, t01=0x0168}
0x1d9a…1dca              Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW4,CBIN1 INDICATE COND. DISPL«, t00=0x0012, t01=0x0182}
0x1dca…1ddc              Head {h00=0x000e, h01=0x0050, text=» B UPD200 «, t00=0x0013, t01=0x0022}
0x1ddc…1dea              Head {h00=0x000a, h01=0x0050, text=»UPD070«, t00=0x0013, t01=0x0034}
0x1dea…1e12              Head {h00=0x0024, h01=0x0050, text=» GETCTL 0,SPBINW3 GET APPL-VALUE«, t00=0x0013, t01=0x0042}
0x1e12…1e48              Head {h00=0x0032, h01=0x0050, text=» CBNE SPBINW3,CBIN0,UPD210 JUMP IF APPL VALUE «, t00=0x0013, t01=0x006a}
0x1e48…1e5c              Head {h00=0x0010, h01=0x0050, text=» B SETCREAD «, t00=0x0013, t01=0x00a0}
0x1e5c…1e66              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00b4}
0x1e66…1e8c              Head {h00=0x0022, h01=0x0050, text=»*    UNCONDITIONAL DISPLAYING «, t00=0x0013, t01=0x00be}
0x1e8c…1e96              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00e4}
0x1e96…1ea4              Head {h00=0x000a, h01=0x0050, text=»UPD100«, t00=0x0013, t01=0x00ee}
0x1ea4…1ede              Head {h00=0x0036, h01=0x0050, text=» MOVE SPBINW4,CBIN2 INDICATE UNCONDITIONAL DISPLAY«, t00=0x0013, t01=0x00fc}
0x1ede…1eec              Head {h00=0x000a, h01=0x0050, text=»UPD200«, t00=0x0013, t01=0x0136}
0x1eec…1f14              Head {h00=0x0024, h01=0x0050, text=» GETCTL 0,SPBINW3 GET APPL-VALUE«, t00=0x0013, t01=0x0144}
0x1f14…1f4c              Head {h00=0x0034, h01=0x0050, text=» CBE SPBINW3,CBIN0,UPD400 JUMP IF NO APPL VALUE «, t00=0x0013, t01=0x016c}
0x1f4c…1f56              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0014}
0x1f56…1f82              Head {h00=0x0028, h01=0x0050, text=»*    APPL-VALUE DIFFERENT FROM ZERO «, t00=0x0014, t01=0x001e}
0x1f82…1f8c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x004a}
0x1f8c…1f9a              Head {h00=0x000a, h01=0x0050, text=»UPD210«, t00=0x0014, t01=0x0054}
0x1f9a…1fb6              Head {h00=0x0018, h01=0x0050, text=» TBT GTRKONV,UPD211 «, t00=0x0014, t01=0x0062}
0x1fb6…1fca              Head {h00=0x0010, h01=0x0050, text=» PERF SPAPPL«, t00=0x0014, t01=0x007e}
0x1fca…1fdc              Head {h00=0x000e, h01=0x0050, text=» B UPD212 «, t00=0x0014, t01=0x0092}
0x1fdc…1fea              Head {h00=0x000a, h01=0x0050, text=»UPD211«, t00=0x0014, t01=0x00a4}
0x1fea…1ffe              Head {h00=0x0010, h01=0x0050, text=» PERF RKAPPL«, t00=0x0014, t01=0x00b2}
0x1ffe…200c              Head {h00=0x000a, h01=0x0050, text=»UPD212«, t00=0x0014, t01=0x00c6}
0x200c…2038              Head {h00=0x0028, h01=0x0050, text=» IB SPBINW3,UPD400,SETCREAD,ERRPRINT«, t00=0x0014, t01=0x00d4}
0x2038…204a              Head {h00=0x000e, h01=0x0050, text=» B UPD400 «, t00=0x0014, t01=0x0100}
0x204a…2054              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0112}
0x2054…2076              Head {h00=0x001e, h01=0x0050, text=»*    OK AFTER APPL CONTROL«, t00=0x0014, t01=0x011c}
0x2076…209c              Head {h00=0x0022, h01=0x0050, text=»*    UNCONDITIONAL DISPLAYING «, t00=0x0014, t01=0x013e}
0x209c…20a6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0164}
0x20a6…20b4              Head {h00=0x000a, h01=0x0050, text=»UPD260«, t00=0x0014, t01=0x016e}
0x20b4…20ea              Head {h00=0x0032, h01=0x0050, text=» UPDFLD 1,SPINPUT UPDATE FIELD WITH DISPLAYING«, t00=0x0014, t01=0x017c}
0x20ea…20f8              Head {h00=0x000a, h01=0x0050, text=»UPD300«, t00=0x0015, t01=0x0022}
0x20f8…2132              Head {h00=0x0036, h01=0x0050, text=» CBE SPBINW1,CBIN0,UPD350 SKIP NEXT IF LENGTH = 0 «, t00=0x0015, t01=0x0030}
0x2132…215e              Head {h00=0x0028, h01=0x0050, text=» SET SPCHANGE INDICATE CHANGED ITEM «, t00=0x0015, t01=0x006a}
0x215e…216c              Head {h00=0x000a, h01=0x0050, text=»UPD350«, t00=0x0015, t01=0x0096}
0x216c…218e              Head {h00=0x001e, h01=0x0050, text=»*     TAKE CARE OF WARNING«, t00=0x0015, t01=0x00a4}
0x218e…21aa              Head {h00=0x0018, h01=0x0050, text=» TBF SPWARNFL,UPD360«, t00=0x0015, t01=0x00c6}
0x21aa…21d8              Head {h00=0x002a, h01=0x0050, text=» MOVE SPBINW1,SPBINW2 STORE KEY VALUE «, t00=0x0015, t01=0x00e2}
0x21d8…2200              Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW4,=W'26' SET MESSAGE«, t00=0x0015, t01=0x0110}
0x2200…2214              Head {h00=0x0010, h01=0x0050, text=» PERF SPERR «, t00=0x0015, t01=0x0138}
0x2214…2240              Head {h00=0x0028, h01=0x0050, text=» CBNE SPBINW2,CBIN2,UPD360 KOR-KEY ?«, t00=0x0015, t01=0x014c}
0x2240…2270              Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW2,SPBINW1 RESET OLD KEYVALUE«, t00=0x0015, t01=0x0178}
0x2270…227e              Head {h00=0x000a, h01=0x0050, text=»UPD360«, t00=0x0016, t01=0x0018}
0x227e…22a6              Head {h00=0x0024, h01=0x0050, text=»*    JUMP ON FUNCTION KEY INDEX «, t00=0x0016, t01=0x0026}
0x22a6…22ca              Head {h00=0x0020, h01=0x0050, text=» IB SPBINW2,READIN,DUMMY,  C«, t00=0x0016, t01=0x004e}
0x22ca…22ee              Head {h00=0x0020, h01=0x0050, text=»  KEOI,DUMMY,DUMMY,KTFWD,  C«, t00=0x0016, t01=0x0072}
0x22ee…2320              Head {h00=0x002e, h01=0x0050, text=»  KTBWD,KTHOME,KTLDOWN,KTLEFT,KTRIGHT,  C «, t00=0x0016, t01=0x0096}
0x2320…234e              Head {h00=0x002a, h01=0x0050, text=»  KTDOWN,KTUP,KCOPY,DUMMY,DUMMY,KENTER«, t00=0x0016, t01=0x00c8}
0x234e…237e              Head {h00=0x002c, h01=0x0050, text=» SUB SPBINW2,CBIN14 ADJUST EOI/KEY INDEX«, t00=0x0016, t01=0x00f6}
0x237e…238c              Head {h00=0x000a, h01=0x0050, text=»DUMMY «, t00=0x0016, t01=0x0126}
0x238c…239a              Head {h00=0x000a, h01=0x0050, text=»RETUR «, t00=0x0016, t01=0x0134}
0x239a…23a6              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0016, t01=0x0142}
0x23a6…23b0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x014e}
0x23b0…23be              Head {h00=0x000a, h01=0x0050, text=»UPD400«, t00=0x0016, t01=0x0158}
0x23be…23fc              Head {h00=0x003a, h01=0x0050, text=» CBE SPBINW4,CBIN2,UPD260 JUMP IF UNCONDITIONAL DISPL «, t00=0x0016, t01=0x0166}
0x23fc…2430              Head {h00=0x0030, h01=0x0050, text=» UPDFLD 0,SPINPUT UPDATE FIELD DISPL. COND. «, t00=0x0017, t01=0x0014}
0x2430…2442              Head {h00=0x000e, h01=0x0050, text=» B UPD300 «, t00=0x0017, t01=0x0048}
0x2442…244c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x005a}
0x244c…2454              Head {h00=0x0004, h01=0x0050, t00=0x0017, t01=0x0064}
0x2454…247a              Head {h00=0x0022, h01=0x0050, text=»KEOI   COMMON END-OF-ITEM KEY «, t00=0x0017, t01=0x006c}
0x247a…249e              Head {h00=0x0020, h01=0x0050, text=»KTFWD   TAB. FORWARD 1 STEP «, t00=0x0017, t01=0x0092}
0x249e…24ac              Head {h00=0x000a, h01=0x0050, text=» TFWD «, t00=0x0017, t01=0x00b6}
0x24ac…24be              Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x0017, t01=0x00c4}
0x24be…24c8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00d6}
0x24c8…24f0              Head {h00=0x0024, h01=0x0050, text=»KTBWD   TABULATION 1 STEP BACKW.«, t00=0x0017, t01=0x00e0}
0x24f0…24fe              Head {h00=0x000a, h01=0x0050, text=» TBWD «, t00=0x0017, t01=0x0108}
0x24fe…2510              Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x0017, t01=0x0116}
0x2510…251a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0128}
0x251a…2540              Head {h00=0x0022, h01=0x0050, text=»KTHOME   TAB. TO HOME POSITION«, t00=0x0017, t01=0x0132}
0x2540…254e              Head {h00=0x000a, h01=0x0050, text=» THOME«, t00=0x0017, t01=0x0158}
0x254e…2560              Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x0017, t01=0x0166}
0x2560…256a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0178}
0x256a…2596              Head {h00=0x0028, h01=0x0050, text=»KTLDOWN   TAB. TO FIRST ON NEXT LINE«, t00=0x0017, t01=0x0182}
0x2596…25a6              Head {h00=0x000c, h01=0x0050, text=» TLDOWN «, t00=0x0018, t01=0x001e}
0x25a6…25b8              Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x0018, t01=0x002e}
0x25b8…25c2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0040}
0x25c2…25e4              Head {h00=0x001e, h01=0x0050, text=»KTLEFT   TAB. TO LEFTMOST «, t00=0x0018, t01=0x004a}
0x25e4…25f2              Head {h00=0x000a, h01=0x0050, text=» TLEFT«, t00=0x0018, t01=0x006c}
0x25f2…2604              Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x0018, t01=0x007a}
0x2604…260e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x008c}
0x260e…2632              Head {h00=0x0020, h01=0x0050, text=»KTRIGHT   TAB. TO RIGHTMOST «, t00=0x0018, t01=0x0096}
0x2632…2642              Head {h00=0x000c, h01=0x0050, text=» TRIGHT «, t00=0x0018, t01=0x00ba}
0x2642…2654              Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x0018, t01=0x00ca}
0x2654…265e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00dc}
0x265e…267a              Head {h00=0x0018, h01=0x0050, text=»KTDOWN   TAB 1 DOWN «, t00=0x0018, t01=0x00e6}
0x267a…2688              Head {h00=0x000a, h01=0x0050, text=» TDOWN«, t00=0x0018, t01=0x0102}
0x2688…269a              Head {h00=0x000e, h01=0x0050, text=» B TSTTAB «, t00=0x0018, t01=0x0110}
0x269a…26a4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0122}
0x26a4…26bc              Head {h00=0x0014, h01=0x0050, text=»KTUP   TAB 1 UP «, t00=0x0018, t01=0x012c}
0x26bc…26c8              Head {h00=0x0008, h01=0x0050, text=» TUP«, t00=0x0018, t01=0x0144}
0x26c8…26d0              Head {h00=0x0004, h01=0x0050, t00=0x0018, t01=0x0150}
0x26d0…26f0              Head {h00=0x001c, h01=0x0050, text=»TSTTAB   TEST TAB OUTPUT«, t00=0x0018, t01=0x0158}
0x26f0…2706              Head {h00=0x0012, h01=0x0050, text=» BE READIN OK «, t00=0x0018, t01=0x0178}
0x2706…2722              Head {h00=0x0018, h01=0x0050, text=» BL READIN NOT FOUND«, t00=0x0018, t01=0x018e}
0x2722…2750              Head {h00=0x002a, h01=0x0050, text=» BOFL SETCREAD EMPTY COMPULSORY FIELD «, t00=0x0019, t01=0x001a}
0x2750…275a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0048}
0x275a…2764              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0052}
0x2764…2788              Head {h00=0x0020, h01=0x0050, text=»*    CONDITIONAL TABULATION «, t00=0x0019, t01=0x005c}
0x2788…2792              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0080}
0x2792…27a6              Head {h00=0x0010, h01=0x0050, text=» PERF SPTCHK«, t00=0x0019, t01=0x008a}
0x27a6…27c0              Head {h00=0x0016, h01=0x0050, text=» CMP SPBINW3,CBIN0«, t00=0x0019, t01=0x009e}
0x27c0…27d4              Head {h00=0x0010, h01=0x0050, text=» BE SETCREAD«, t00=0x0019, t01=0x00b8}
0x27d4…27f8              Head {h00=0x0020, h01=0x0050, text=» IB SPBINW2,DUMMY,DUMMY,  C «, t00=0x0019, t01=0x00cc}
0x27f8…281e              Head {h00=0x0022, h01=0x0050, text=»  KTFWD,DUMMY,DUMMY,KTFWD,  C «, t00=0x0019, t01=0x00f0}
0x281e…2844              Head {h00=0x0022, h01=0x0050, text=»  KTBWD,KTFWD,KTFWD,KTFWD,  C «, t00=0x0019, t01=0x0116}
0x2844…2860              Head {h00=0x0018, h01=0x0050, text=»  KTBWD,KTFWD,KTBWD «, t00=0x0019, t01=0x013c}
0x2860…28a0              Head {h00=0x003c, h01=0x0050, text=»*    BRANCH LIST EXHAUSTED - SPBINW2 CLOBBERED BY SPTCHK«, t00=0x0019, t01=0x0158}
0x28a0…28a8              Head {h00=0x0004, h01=0x0050, t00=0x001a, t01=0x0008}
0x28a8…28bc              Head {h00=0x0010, h01=0x0050, text=» B SETCREAD «, t00=0x001a, t01=0x0010}
0x28bc…28c6              Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x001a, t01=0x0024}
0x28c6…28e0              Head {h00=0x0016, h01=0x0050, text=»KCOPY   HARD COPY «, t00=0x001a, t01=0x002e}
0x28e0…28fc              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW3,CBIN1 «, t00=0x001a, t01=0x0048}
0x28fc…291a              Head {h00=0x001a, h01=0x0050, text=» TBT GTGTPFLG,KCOPY05 «, t00=0x001a, t01=0x0064}
0x291a…2936              Head {h00=0x0018, h01=0x0050, text=» TBT GTLPFLG,KCOPY08«, t00=0x001a, t01=0x0082}
0x2936…2948              Head {h00=0x000e, h01=0x0050, text=» B KCOPY10«, t00=0x001a, t01=0x009e}
0x2948…2958              Head {h00=0x000c, h01=0x0050, text=»KCOPY05 «, t00=0x001a, t01=0x00b0}
0x2958…2974              Head {h00=0x0018, h01=0x0050, text=» EDWRT DSHCGP,ERAFMT«, t00=0x001a, t01=0x00c0}
0x2974…299a              Head {h00=0x0022, h01=0x0050, text=» PRINT DSHCGP,SPBINW3,='0' GTP«, t00=0x001a, t01=0x00dc}
0x299a…29ac              Head {h00=0x000e, h01=0x0050, text=» B KCOPY10«, t00=0x001a, t01=0x0102}
0x29ac…29bc              Head {h00=0x000c, h01=0x0050, text=»KCOPY08 «, t00=0x001a, t01=0x0114}
0x29bc…29d8              Head {h00=0x0018, h01=0x0050, text=» EDWRT DSHCLP,ERAFMT«, t00=0x001a, t01=0x0124}
0x29d8…29fe              Head {h00=0x0022, h01=0x0050, text=» PRINT DSHCLP,SPBINW3,='0' LP «, t00=0x001a, t01=0x0140}
0x29fe…2a10              Head {h00=0x000e, h01=0x0050, text=» B KCOPY10«, t00=0x001a, t01=0x0166}
0x2a10…2a20              Head {h00=0x000c, h01=0x0050, text=»KCOPY10 «, t00=0x001a, t01=0x0178}
0x2a20…2a48              Head {h00=0x0024, h01=0x0050, text=» B SETCREAD SET CURSOR AND READ «, t00=0x001a, t01=0x0188}
0x2a48…2a52              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0020}
0x2a52…2a6e              Head {h00=0x0018, h01=0x0050, text=»KDUPL   DUPLICATION «, t00=0x001b, t01=0x002a}
0x2a6e…2aa2              Head {h00=0x0030, h01=0x0050, text=» MOVE SPBINW2,CBIN3 INDICATE COMMON EOI-KEY «, t00=0x001b, t01=0x0046}
0x2aa2…2ac4              Head {h00=0x001e, h01=0x0050, text=» DUPL SPINPUT DUPLICATION «, t00=0x001b, t01=0x007a}
0x2ac4…2ad8              Head {h00=0x0010, h01=0x0050, text=» BNZ KDUPL2 «, t00=0x001b, t01=0x009c}
0x2ad8…2b12              Head {h00=0x0036, h01=0x0050, text=» COPY GSWSTR1,CBIN0,CBIN1,SPINPUT,CBIN1 GET BYTE 1«, t00=0x001b, t01=0x00b0}
0x2b12…2b34              Head {h00=0x001e, h01=0x0050, text=» CBE GSWSTR1,=X'00',KDUPL2«, t00=0x001b, t01=0x00ea}
0x2b34…2b68              Head {h00=0x0030, h01=0x0050, text=» MOVE SPBINW1,CBIN10 SET LENGTH IN DUPFIELD «, t00=0x001b, t01=0x010c}
0x2b68…2b7c              Head {h00=0x0010, h01=0x0050, text=» SET SPDUPL «, t00=0x001b, t01=0x0140}
0x2b7c…2b9a              Head {h00=0x001a, h01=0x0050, text=» B UPDATE DUPL ALLOWED«, t00=0x001b, t01=0x0154}
0x2b9a…2ba8              Head {h00=0x000a, h01=0x0050, text=»KDUPL2«, t00=0x001b, t01=0x0172}
0x2ba8…2bdc              Head {h00=0x0030, h01=0x0050, text=» MOVE SPBINW4,CBIN4 INDICATE ILLEGAL EOI-KEY«, t00=0x001b, t01=0x0180}
0x2bdc…2c00              Head {h00=0x0020, h01=0x0050, text=» B ERRPRINT DUPL NOT ALLOWED«, t00=0x001c, t01=0x0024}
0x2c00…2c08              Head {h00=0x0004, h01=0x0050, t00=0x001c, t01=0x0048}
0x2c08…2c12              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0050}
0x2c12…2c2a              Head {h00=0x0014, h01=0x0050, text=»*    EDIT FIELD «, t00=0x001c, t01=0x005a}
0x2c2a…2c34              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0072}
0x2c34…2c42              Head {h00=0x000a, h01=0x0050, text=»KEDIT «, t00=0x001c, t01=0x007c}
0x2c42…2c64              Head {h00=0x001e, h01=0x0050, text=» GETCTL 1,SPBINW3 GET MAXL«, t00=0x001c, t01=0x008a}
0x2c64…2c86              Head {h00=0x001e, h01=0x0050, text=» CBNE SPBINW3,CBIN0,KED100«, t00=0x001c, t01=0x00ac}
0x2c86…2c98              Head {h00=0x000e, h01=0x0050, text=» PERF BELL«, t00=0x001c, t01=0x00ce}
0x2c98…2cac              Head {h00=0x0010, h01=0x0050, text=» B SETCREAD «, t00=0x001c, t01=0x00e0}
0x2cac…2cba              Head {h00=0x000a, h01=0x0050, text=»KED100«, t00=0x001c, t01=0x00f4}
0x2cba…2ce4              Head {h00=0x0026, h01=0x0050, text=» EDFLD SPINPUT,SPKTAB3,SPBINW1,  C«, t00=0x001c, t01=0x0102}
0x2ce4…2cfe              Head {h00=0x0016, h01=0x0050, text=»  SPBINW2,SPBINW4 «, t00=0x001c, t01=0x012c}
0x2cfe…2d24              Head {h00=0x0022, h01=0x0050, text=» B DYKOUT CONTINUE AS FOR DYKI«, t00=0x001c, t01=0x0146}
0x2d24…2d2e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x016c}
0x2d2e…2d44              Head {h00=0x0012, h01=0x0050, text=»*    ENTER KEY«, t00=0x001c, t01=0x0176}
0x2d44…2d4e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x018c}
0x2d4e…2d5c              Head {h00=0x000a, h01=0x0050, text=»KENTER«, t00=0x001d, t01=0x0008}
0x2d5c…2d88              Head {h00=0x0028, h01=0x0050, text=» TBT SPCHANGE,KENT00 NO TESTS ON ME «, t00=0x001d, t01=0x0016}
0x2d88…2daa              Head {h00=0x001e, h01=0x0050, text=» TBF SPME,KENT05 FIELDS ? «, t00=0x001d, t01=0x0042}
0x2daa…2db8              Head {h00=0x000a, h01=0x0050, text=»KENT00«, t00=0x001d, t01=0x0064}
0x2db8…2dee              Head {h00=0x0032, h01=0x0050, text=» MOVE SPBINW4,CBIN5 INDICATE COMP.FIELD FOUND «, t00=0x001d, t01=0x0072}
0x2dee…2e1e              Head {h00=0x002c, h01=0x0050, text=» MOVE SPBINW1,CBIN0 INDICATE NO CLEARING«, t00=0x001d, t01=0x00a8}
0x2e1e…2e56              Head {h00=0x0034, h01=0x0050, text=» MOVE SPBINW2,CBIN0 SET INDEX TO SEARCHED FIELD «, t00=0x001d, t01=0x00d8}
0x2e56…2e96              Head {h00=0x003c, h01=0x0050, text=» GETFLD 0,SPBINW2,SPBINW3 SEARCH FOR EMPTY COMP. FIELDS «, t00=0x001d, t01=0x0110}
0x2e96…2ec2              Head {h00=0x0028, h01=0x0050, text=» BOFL KENT10 EMPTY COMP. FIELD FOUND«, t00=0x001d, t01=0x0150}
0x2ec2…2eec              Head {h00=0x0026, h01=0x0050, text=» TSTCTL 2 LOOK IF COMPULSORY FIELD«, t00=0x001d, t01=0x017c}
0x2eec…2f02              Head {h00=0x0012, h01=0x0050, text=» BZ KENT05 NO!«, t00=0x001e, t01=0x0016}
0x2f02…2f34              Head {h00=0x002e, h01=0x0050, text=» CALL EMPTYT,:FMTITEM LOOK IF EMPTY FIELD «, t00=0x001e, t01=0x002c}
0x2f34…2f4c              Head {h00=0x0014, h01=0x0050, text=» BP KENT10 YES! «, t00=0x001e, t01=0x005e}
0x2f4c…2f5a              Head {h00=0x000a, h01=0x0050, text=»KENT05«, t00=0x001e, t01=0x0076}
0x2f5a…2f92              Head {h00=0x0034, h01=0x0050, text=» MOVE SPBINW2,CBIN3 INDICATE ENTER KEY DEPRESSED«, t00=0x001e, t01=0x0084}
0x2f92…2f9e              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001e, t01=0x00bc}
0x2f9e…2fa8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00c8}
0x2fa8…2fd2              Head {h00=0x0026, h01=0x0050, text=»*    EMPTY COMPULSORY FIELD FOUND «, t00=0x001e, t01=0x00d2}
0x2fd2…2fdc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00fc}
0x2fdc…2fea              Head {h00=0x000a, h01=0x0050, text=»KENT10«, t00=0x001e, t01=0x0106}
0x2fea…3024              Head {h00=0x0036, h01=0x0050, text=» GETFLD 0,SPBINW3,SPBINW2 GET THE COMPULSORY FIELD«, t00=0x001e, t01=0x0114}
0x3024…302c              Head {h00=0x0004, h01=0x0050, t00=0x001e, t01=0x014e}
0x302c…303a              Head {h00=0x000a, h01=0x0050, text=»ERRPRT«, t00=0x001e, t01=0x0156}
0x303a…304e              Head {h00=0x0010, h01=0x0050, text=» PERF DKTEST«, t00=0x001e, t01=0x0164}
0x304e…3064              Head {h00=0x0012, h01=0x0050, text=» BNOK SETCREAD«, t00=0x001e, t01=0x0178}
0x3064…3092              Head {h00=0x002a, h01=0x0050, text=» CBE SPBINW2,CBIN16,KEDIT JUMP IF EDIT«, t00=0x001e, t01=0x018e}
0x3092…30c2              Head {h00=0x002c, h01=0x0050, text=» CBE SPBINW2,CBIN4,CANC JUMP IF CANCEL1 «, t00=0x001f, t01=0x002c}
0x30c2…30f2              Head {h00=0x002c, h01=0x0050, text=» CBE SPBINW2,CBIN5,CANC JUMP IF CANCEL2 «, t00=0x001f, t01=0x005c}
0x30f2…30fc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x008c}
0x30fc…3118              Head {h00=0x0018, h01=0x0050, text=»*    ERROR HANDLING «, t00=0x001f, t01=0x0096}
0x3118…3122              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00b2}
0x3122…3132              Head {h00=0x000c, h01=0x0050, text=»ERRPRINT«, t00=0x001f, t01=0x00bc}
0x3132…313c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00cc}
0x313c…3158              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW2,=X'40'«, t00=0x001f, t01=0x00d6}
0x3158…3174              Head {h00=0x0018, h01=0x0050, text=» XSTAT KEYB,SPBINW3 «, t00=0x001f, t01=0x00f2}
0x3174…319a              Head {h00=0x0022, h01=0x0050, text=» CBNE SPBINW2,SPBINW3,ERRPRT20«, t00=0x001f, t01=0x010e}
0x319a…31ac              Head {h00=0x000e, h01=0x0050, text=»   TIMEOUT«, t00=0x001f, t01=0x0134}
0x31ac…31d6              Head {h00=0x0026, h01=0x0050, text=» EDWRT SCREEN,ERAFMT ERASE SCREEN «, t00=0x001f, t01=0x0146}
0x31d6…31e8              Head {h00=0x000e, h01=0x0050, text=» B ERRC20 «, t00=0x001f, t01=0x0170}
0x31e8…31f8              Head {h00=0x000c, h01=0x0050, text=»ERRPRT20«, t00=0x001f, t01=0x0182}
0x31f8…321a (32, 0, 400) Head {h00=0x001e, h01=0x0050, text=» CBE SPBINW4,CBIN0,ERRC20 «, t00=0x0020, t01=0x0004}
0x321a…322c              Head {h00=0x000e, h01=0x0050, text=» PERF BELL«, t00=0x0020, t01=0x0026}
0x322c…3258              Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW3,=X'1801' ROW 24 COL. 1«, t00=0x0020, t01=0x0038}
0x3258…328e              Head {h00=0x0032, h01=0x0050, text=» DSC1 SCREEN,6,SPBINW3 SET CURSOR ON LAST ROW «, t00=0x0020, t01=0x0064}
0x328e…32ac              Head {h00=0x001a, h01=0x0050, text=» TBT GTRKONV,ERRPRT30 «, t00=0x0020, t01=0x009a}
0x32ac…32d4              Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBCD4,SPBINW4 ERRORCODE «, t00=0x0020, t01=0x00b8}
0x32d4…32e4              Head {h00=0x000c, h01=0x0050, text=»ERRPRT30«, t00=0x0020, t01=0x00e0}
0x32e4…330c              Head {h00=0x0024, h01=0x0050, text=» EDWRT SCREEN,SPFTBERR(SPBINW4) «, t00=0x0020, t01=0x00f0}
0x330c…332a              Head {h00=0x001a, h01=0x0050, text=» TBF SPKEYFLG,SPERRRET«, t00=0x0020, t01=0x0118}
0x332a…3334              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0136}
0x3334…3352              Head {h00=0x001a, h01=0x0050, text=»*    READ AFTER ERROR «, t00=0x0020, t01=0x0140}
0x3352…335c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x015e}
0x335c…336a              Head {h00=0x000a, h01=0x0050, text=»ERREAD«, t00=0x0020, t01=0x0168}
0x336a…3396              Head {h00=0x0028, h01=0x0050, text=» SETCUR  SET CURSOR AT THE BEGINNING«, t00=0x0020, t01=0x0176}
0x3396…33b6              Head {h00=0x001c, h01=0x0050, text=»   OF THE CURRENT FIELD «, t00=0x0021, t01=0x0012}
0x33b6…33c4              Head {h00=0x000a, h01=0x0050, text=»ERR100«, t00=0x0021, t01=0x0032}
0x33c4…33f2              Head {h00=0x002a, h01=0x0050, text=» MOVE SPBINW3,CBIN14 REQUESTED LENGTH «, t00=0x0021, t01=0x0040}
0x33f2…3420              Head {h00=0x002a, h01=0x0050, text=» IB SPKEY,ERR105,ERR110,ERR115,ERR116 «, t00=0x0021, t01=0x006e}
0x3420…342e              Head {h00=0x000a, h01=0x0050, text=»ERR105«, t00=0x0021, t01=0x009c}
0x342e…3464              Head {h00=0x0032, h01=0x0050, text=» NKI .NE,KEYB,SPINPUT,SPKTAB1,SPBINW3,SPBINW2 «, t00=0x0021, t01=0x00aa}
0x3464…3476              Head {h00=0x000e, h01=0x0050, text=» B ERR120 «, t00=0x0021, t01=0x00e0}
0x3476…3484              Head {h00=0x000a, h01=0x0050, text=»ERR110«, t00=0x0021, t01=0x00f2}
0x3484…34ba              Head {h00=0x0032, h01=0x0050, text=» NKI .NE,KEYB,SPINPUT,SPKTAB12,SPBINW3,SPBINW2«, t00=0x0021, t01=0x0100}
0x34ba…34cc              Head {h00=0x000e, h01=0x0050, text=» B ERR120 «, t00=0x0021, t01=0x0136}
0x34cc…34da              Head {h00=0x000a, h01=0x0050, text=»ERR115«, t00=0x0021, t01=0x0148}
0x34da…3510              Head {h00=0x0032, h01=0x0050, text=» NKI .NE,KEYB,SPINPUT,SPKTAB13,SPBINW3,SPBINW2«, t00=0x0021, t01=0x0156}
0x3510…3522              Head {h00=0x000e, h01=0x0050, text=» B ERR120 «, t00=0x0021, t01=0x018c}
0x3522…3530              Head {h00=0x000a, h01=0x0050, text=»ERR116«, t00=0x0022, t01=0x000e}
0x3530…3566              Head {h00=0x0032, h01=0x0050, text=» NKI .NE,KEYB,SPINPUT,SPKTAB14,SPBINW3,SPBINW2«, t00=0x0022, t01=0x001c}
0x3566…3578              Head {h00=0x000e, h01=0x0050, text=» B ERR120 «, t00=0x0022, t01=0x0052}
0x3578…3586              Head {h00=0x000a, h01=0x0050, text=»ERR120«, t00=0x0022, t01=0x0064}
0x3586…35a8              Head {h00=0x001e, h01=0x0050, text=» BNZ ERR100 JUMP IF NOT OK«, t00=0x0022, t01=0x0072}
0x35a8…35bc              Head {h00=0x0010, h01=0x0050, text=» PERF DKTEST«, t00=0x0022, t01=0x0094}
0x35bc…35d0              Head {h00=0x0010, h01=0x0050, text=» BNOK ERREAD«, t00=0x0022, t01=0x00a8}
0x35d0…35fc              Head {h00=0x0028, h01=0x0050, text=» CMP SPBINW2,CBIN0 JUMP IF POWER OFF«, t00=0x0022, t01=0x00bc}
0x35fc…360e              Head {h00=0x000e, h01=0x0050, text=» BE RETUR «, t00=0x0022, t01=0x00e8}
0x360e…3634              Head {h00=0x0022, h01=0x0050, text=» IB SPBINW2,ERR100,ERRCONT  C «, t00=0x0022, t01=0x00fa}
0x3634…365c              Head {h00=0x0024, h01=0x0050, text=»  ERRCONT,ERR100,ERRCONT,ERRCONT«, t00=0x0022, t01=0x0120}
0x365c…3676              Head {h00=0x0016, h01=0x0050, text=» B ERR100 CONTINUE«, t00=0x0022, t01=0x0148}
0x3676…3680              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0162}
0x3680…36a2              Head {h00=0x001e, h01=0x0050, text=»*    CLEAR ERROR PRINTOUT «, t00=0x0022, t01=0x016c}
0x36a2…36ac              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x018e}
0x36ac…36bc              Head {h00=0x000c, h01=0x0050, text=»ERRCONT «, t00=0x0023, t01=0x0008}
0x36bc…36e0              Head {h00=0x0020, h01=0x0050, text=» PERF CLEAR8 ERASE LAST LINE«, t00=0x0023, t01=0x0018}
0x36e0…370c              Head {h00=0x0028, h01=0x0050, text=» CBNL SPBINW4,=W'26',CANC IF WARNING«, t00=0x0023, t01=0x003c}
0x370c…3738              Head {h00=0x0028, h01=0x0050, text=» SUB SPBINW2,CBIN1 ADJUST KEY INDEX «, t00=0x0023, t01=0x0068}
0x3738…3744              Head {h00=0x0008, h01=0x0050, text=»CANC«, t00=0x0023, t01=0x0094}
0x3744…3778              Head {h00=0x0030, h01=0x0050, text=» CBE SPBINW1,CBIN0,ERRC10 JUMP IF LENGTH = 0«, t00=0x0023, t01=0x00a0}
0x3778…37ac              Head {h00=0x0030, h01=0x0050, text=» MOVE SPINPUT,:FMTITEM SAVE CURRENT CONTENTS«, t00=0x0023, t01=0x00d4}
0x37ac…37e4              Head {h00=0x0034, h01=0x0050, text=» MOVE :FMTITEM,=C'1' PUT SOMETHING IN THE FIELD «, t00=0x0023, t01=0x0108}
0x37e4…380e              Head {h00=0x0026, h01=0x0050, text=» GETABX SPBINW4 GET CURRENT INDEX «, t00=0x0023, t01=0x0140}
0x380e…383c              Head {h00=0x002a, h01=0x0050, text=» ERASE 10,SPBINW4,SPBINW4 CLEAR FIELD «, t00=0x0023, t01=0x016a}
0x383c…384a              Head {h00=0x000a, h01=0x0050, text=»ERRC10«, t00=0x0024, t01=0x0008}
0x384a…3872              Head {h00=0x0024, h01=0x0050, text=» IB SPBINW2,CLEAR1,CLEAR2,DUMMY «, t00=0x0024, t01=0x0016}
0x3872…38a8              Head {h00=0x0032, h01=0x0050, text=» SUB SPBINW2,CBIN3 ADJUST FOR CANCEL1,CANCEL2 «, t00=0x0024, t01=0x003e}
0x38a8…38b4              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0024, t01=0x0074}
0x38b4…38c2              Head {h00=0x000a, h01=0x0050, text=»CLEAR1«, t00=0x0024, t01=0x0080}
0x38c2…38f6              Head {h00=0x0030, h01=0x0050, text=» CBE SPBINW1,CBIN0,ERRC20 JUMP IF LENGTH = 0«, t00=0x0024, t01=0x008e}
0x38f6…3922              Head {h00=0x0028, h01=0x0050, text=» SET SPCHANGE INDICATE CHANGED FIELD«, t00=0x0024, t01=0x00c2}
0x3922…3930              Head {h00=0x000a, h01=0x0050, text=»ERRC20«, t00=0x0024, t01=0x00ee}
0x3930…395a              Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW5,$OPT CHECHK IF SPERR«, t00=0x0024, t01=0x00fc}
0x395a…397e              Head {h00=0x0020, h01=0x0050, text=» CBE SPBINW5,CBIN0,SPERRRET «, t00=0x0024, t01=0x0126}
0x397e…399a              Head {h00=0x0018, h01=0x0050, text=» B SETCREAD CONTINUE«, t00=0x0024, t01=0x014a}
0x399a…39a4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0166}
0x39a4…39b2              Head {h00=0x000a, h01=0x0050, text=»CLEAR2«, t00=0x0024, t01=0x0170}
0x39b2…39ea              Head {h00=0x0034, h01=0x0050, text=» MOVE :FMTITEM,SPINPUT RESTORE CURRENT CONTENTS «, t00=0x0024, t01=0x017e}
0x39ea…39f8              Head {h00=0x000a, h01=0x0050, text=»CLEA20«, t00=0x0025, t01=0x0026}
0x39f8…3a26              Head {h00=0x002a, h01=0x0050, text=» GETABX SPBINW4 GET CURRENT TAB INDEX «, t00=0x0025, t01=0x0034}
0x3a26…3a56              Head {h00=0x002c, h01=0x0050, text=» DISPLAY 1,SPBINW4,SPBINW4 DISPLAY FIELD«, t00=0x0025, t01=0x0062}
0x3a56…3a80              Head {h00=0x0026, h01=0x0050, text=» MOVE SPBINW5,$OPT CHECK IF SPERR «, t00=0x0025, t01=0x0092}
0x3a80…3aa4              Head {h00=0x0020, h01=0x0050, text=» CBE SPBINW5,CBIN0,SPERRRET «, t00=0x0025, t01=0x00bc}
0x3aa4…3ac0              Head {h00=0x0018, h01=0x0050, text=» B SETCREAD CONTINUE«, t00=0x0025, t01=0x00e0}
0x3ac0…3aca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00fc}
0x3aca…3ada              Head {h00=0x000c, h01=0x0050, text=»SPERRRET«, t00=0x0025, t01=0x0106}
0x3ada…3ae6              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0025, t01=0x0116}
0x3ae6…3af0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0122}
0x3af0…3afe              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0025, t01=0x012c}
0x3afe…3b08              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x013a}
0x3b08…3b1a              Head {h00=0x000e, h01=0x0050, text=»BELL PROC «, t00=0x0025, t01=0x0144}
0x3b1a…3b3a              Head {h00=0x001c, h01=0x0050, text=»*          ACUSTIC ALARM«, t00=0x0025, t01=0x0156}
0x3b3a…3b58              Head {h00=0x001a, h01=0x0050, text=» EDWRT SCREEN,BELLFMT «, t00=0x0025, t01=0x0176}
0x3b58…3b64 (38, 0, 400) Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0026, t01=0x0004}
0x3b64…3b6e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0010}
0x3b6e…3b82              Head {h00=0x0010, h01=0x0050, text=»BELLFMT FRMT«, t00=0x0026, t01=0x001a}
0x3b82…3b8e              Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0026, t01=0x002e}
0x3b8e…3ba4              Head {h00=0x0012, h01=0x0050, text=» FILLR X'07',1«, t00=0x0026, t01=0x003a}
0x3ba4…3bb2              Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0026, t01=0x0050}
0x3bb2…3bba              Head {h00=0x0004, h01=0x0050, t00=0x0026, t01=0x005e}
0x3bba…3bc8              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0026, t01=0x0066}
0x3bc8…3bd2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0074}
0x3bd2…3be6              Head {h00=0x0010, h01=0x0050, text=»ERAFMT FRMT «, t00=0x0026, t01=0x007e}
0x3be6…3bfa              Head {h00=0x0010, h01=0x0050, text=» FILLR '1',2«, t00=0x0026, t01=0x0092}
0x3bfa…3c08              Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0026, t01=0x00a6}
0x3c08…3c16              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x00b4}
0x3c16…3c2a              Head {h00=0x0010, h01=0x0050, text=»KBTEST PROC «, t00=0x0026, t01=0x00c2}
0x3c2a…3c56              Head {h00=0x0028, h01=0x0050, text=»* THE PROCEDURE SENSES THE KEYBOARD.«, t00=0x0026, t01=0x00d6}
0x3c56…3c90              Head {h00=0x0036, h01=0x0050, text=»* IF THE MAK-KEY HAS BEEN DEPRESSED, THE COND.REG «, t00=0x0026, t01=0x0102}
0x3c90…3cce              Head {h00=0x003a, h01=0x0050, text=»* WILL BE SET TO ZERO, IN ORDER TO ENABLE THE CALLING «, t00=0x0026, t01=0x013c}
0x3cce…3d0e              Head {h00=0x003c, h01=0x0050, text=»* MODULE TO STOP THE LISTING (OR FOR ANY OTHER PURPOSE) «, t00=0x0026, t01=0x017a}
0x3d0e…3d2e              Head {h00=0x001c, h01=0x0050, text=» PERF SPLIN8,CBIN0,CBIN0«, t00=0x0027, t01=0x002a}
0x3d2e…3d42              Head {h00=0x0010, h01=0x0050, text=» TESTIO KEYB«, t00=0x0027, t01=0x004a}
0x3d42…3d54              Head {h00=0x000e, h01=0x0050, text=» BOK KBT10«, t00=0x0027, t01=0x005e}
0x3d54…3d6c              Head {h00=0x0014, h01=0x0050, text=» CALL ABORT,KEYB«, t00=0x0027, t01=0x0070}
0x3d6c…3d7c              Head {h00=0x000c, h01=0x0050, text=» B KBT20«, t00=0x0027, t01=0x0088}
0x3d7c…3d8a              Head {h00=0x000a, h01=0x0050, text=»KBT10 «, t00=0x0027, t01=0x0098}
0x3d8a…3d9c              Head {h00=0x000e, h01=0x0050, text=» WAIT KEYB«, t00=0x0027, t01=0x00a6}
0x3d9c…3dbe              Head {h00=0x001e, h01=0x0050, text=» CBNE SPBINW2,CBIN6,KBT20 «, t00=0x0027, t01=0x00b8}
0x3dbe…3dd6              Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0027, t01=0x00da}
0x3dd6…3de6              Head {h00=0x000c, h01=0x0050, text=» B KBT99«, t00=0x0027, t01=0x00f2}
0x3de6…3df4              Head {h00=0x000a, h01=0x0050, text=»KBT20 «, t00=0x0027, t01=0x0102}
0x3df4…3e0c              Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN1«, t00=0x0027, t01=0x0110}
0x3e0c…3e1a              Head {h00=0x000a, h01=0x0050, text=»KBT99 «, t00=0x0027, t01=0x0128}
0x3e1a…3e26              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0027, t01=0x0136}
0x3e26…3e34              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0027, t01=0x0142}
0x3e34…3e42              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x0150}
0x3e42…3e64              Head {h00=0x001e, h01=0x0050, text=»SPLIN8 PROC WRTMES,WRTTYP «, t00=0x0027, t01=0x015e}
0x3e64…3e80              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0027, t01=0x0180}
0x3e80…3e8a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x000c}
0x3e8a…3eb6              Head {h00=0x0028, h01=0x0050, text=»*          SPLIN8 - WRITE ON LINE 24«, t00=0x0028, t01=0x0016}
0x3eb6…3ec0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0042}
0x3ec0…3efa              Head {h00=0x0036, h01=0x0050, text=»*          MESSAGE DEFINED AS FORMAT NUMBER WRTMES«, t00=0x0028, t01=0x004c}
0x3efa…3f26              Head {h00=0x0028, h01=0x0050, text=»*          IN FORMAT TABLE SPFTBMES «, t00=0x0028, t01=0x0086}
0x3f26…3f30              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00b2}
0x3f30…3f58              Head {h00=0x0024, h01=0x0050, text=»*          WRTTYP:   =0  NO WAIT«, t00=0x0028, t01=0x00bc}
0x3f58…3f7e              Head {h00=0x0022, h01=0x0050, text=»*                    =1  WAIT «, t00=0x0028, t01=0x00e4}
0x3f7e…3fa6              Head {h00=0x0024, h01=0x0050, text=»*                    =2  RETURN «, t00=0x0028, t01=0x010a}
0x3fa6…3fe0              Head {h00=0x0036, h01=0x0050, text=»*                    =3 WRITE WITH NO WAIT, RETURN«, t00=0x0028, t01=0x0132}
0x3fe0…3fea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x016c}
0x3fea…4006              Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0028, t01=0x0176}
0x4006…4024 (41, 0, 400) Head {h00=0x001a, h01=0x0050, text=» MOVE SPBINW1,=X'1801'«, t00=0x0029, t01=0x0004}
0x4024…405a              Head {h00=0x0032, h01=0x0050, text=» DSC1 SCREEN,6,SPBINW1 SET CURSOR ON LAST ROW «, t00=0x0029, t01=0x0022}
0x405a…4076              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW1,CBIN0 «, t00=0x0029, t01=0x0058}
0x4076…4096              Head {h00=0x001c, h01=0x0050, text=» CBE WRTMES,CBIN0,LIN800«, t00=0x0029, t01=0x0074}
0x4096…40b6              Head {h00=0x001c, h01=0x0050, text=» CBL WRTTYP,CBIN3,LIN801«, t00=0x0029, t01=0x0094}
0x40b6…40e0              Head {h00=0x0026, h01=0x0050, text=» EDWRT .NW,SCREEN,SPFTBMES(WRTMES)«, t00=0x0029, t01=0x00b4}
0x40e0…40f2              Head {h00=0x000e, h01=0x0050, text=» B LINRET «, t00=0x0029, t01=0x00de}
0x40f2…4100              Head {h00=0x000a, h01=0x0050, text=»LIN801«, t00=0x0029, t01=0x00f0}
0x4100…4126              Head {h00=0x0022, h01=0x0050, text=» EDWRT SCREEN,SPFTBMES(WRTMES)«, t00=0x0029, t01=0x00fe}
0x4126…4134              Head {h00=0x000a, h01=0x0050, text=»LIN800«, t00=0x0029, t01=0x0124}
0x4134…4154              Head {h00=0x001c, h01=0x0050, text=» CBE WRTTYP,CBIN0,LIN8NW«, t00=0x0029, t01=0x0132}
0x4154…4174              Head {h00=0x001c, h01=0x0050, text=» CBE WRTTYP,CBIN2,LINRET«, t00=0x0029, t01=0x0152}
0x4174…4182              Head {h00=0x000a, h01=0x0050, text=»* READ«, t00=0x0029, t01=0x0172}
0x4182…4190              Head {h00=0x000a, h01=0x0050, text=»LIN8IN«, t00=0x0029, t01=0x0180}
0x4190…41bc              Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW1,CBIN3 REQUESTED LENGTH«, t00=0x0029, t01=0x018e}
0x41bc…41ea              Head {h00=0x002a, h01=0x0050, text=» IB SPKEY,LIN805,LIN810,LIN815,LIN816 «, t00=0x002a, t01=0x002a}
0x41ea…41f8              Head {h00=0x000a, h01=0x0050, text=»LIN805«, t00=0x002a, t01=0x0058}
0x41f8…422a              Head {h00=0x002e, h01=0x0050, text=» NKI KEYB,SPINPUT,SPKTAB1,SPBINW1,SPBINW2 «, t00=0x002a, t01=0x0066}
0x422a…423c              Head {h00=0x000e, h01=0x0050, text=» B LIN820 «, t00=0x002a, t01=0x0098}
0x423c…424a              Head {h00=0x000a, h01=0x0050, text=»LIN810«, t00=0x002a, t01=0x00aa}
0x424a…427c              Head {h00=0x002e, h01=0x0050, text=» NKI KEYB,SPINPUT,SPKTAB12,SPBINW1,SPBINW2«, t00=0x002a, t01=0x00b8}
0x427c…428e              Head {h00=0x000e, h01=0x0050, text=» B LIN820 «, t00=0x002a, t01=0x00ea}
0x428e…429c              Head {h00=0x000a, h01=0x0050, text=»LIN815«, t00=0x002a, t01=0x00fc}
0x429c…42ce              Head {h00=0x002e, h01=0x0050, text=» NKI KEYB,SPINPUT,SPKTAB13,SPBINW1,SPBINW2«, t00=0x002a, t01=0x010a}
0x42ce…42e0              Head {h00=0x000e, h01=0x0050, text=» B LIN820 «, t00=0x002a, t01=0x013c}
0x42e0…42ee              Head {h00=0x000a, h01=0x0050, text=»LIN816«, t00=0x002a, t01=0x014e}
0x42ee…4320              Head {h00=0x002e, h01=0x0050, text=» NKI KEYB,SPINPUT,SPKTAB14,SPBINW1,SPBINW2«, t00=0x002a, t01=0x015c}
0x4320…4332              Head {h00=0x000e, h01=0x0050, text=» B LIN820 «, t00=0x002a, t01=0x018e}
0x4332…4340              Head {h00=0x000a, h01=0x0050, text=»LIN820«, t00=0x002b, t01=0x0010}
0x4340…4364              Head {h00=0x0020, h01=0x0050, text=» BNOK LIN8IN JUMP IF NOT OK «, t00=0x002b, t01=0x001e}
0x4364…4378              Head {h00=0x0010, h01=0x0050, text=» PERF DKTEST«, t00=0x002b, t01=0x0042}
0x4378…43a0              Head {h00=0x0024, h01=0x0050, text=» IB SPBINW2,LIN8IN,LIN8CT,LIN8IN«, t00=0x002b, t01=0x0056}
0x43a0…43b2              Head {h00=0x000e, h01=0x0050, text=» B LIN8IN «, t00=0x002b, t01=0x007e}
0x43b2…43c6              Head {h00=0x0010, h01=0x0050, text=»* CLEAR LINE«, t00=0x002b, t01=0x0090}
0x43c6…43d4              Head {h00=0x000a, h01=0x0050, text=»LIN8CT«, t00=0x002b, t01=0x00a4}
0x43d4…43f8              Head {h00=0x0020, h01=0x0050, text=» PERF CLEAR8 ERASE LAST LINE«, t00=0x002b, t01=0x00b2}
0x43f8…4404              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002b, t01=0x00d6}
0x4404…4420              Head {h00=0x0018, h01=0x0050, text=»* READ WITH NO WAIT «, t00=0x002b, t01=0x00e2}
0x4420…442e              Head {h00=0x000a, h01=0x0050, text=»LIN8NW«, t00=0x002b, t01=0x00fe}
0x442e…445a              Head {h00=0x0028, h01=0x0050, text=» MOVE SPBINW1,CBIN3 REQUESTED LENGTH«, t00=0x002b, t01=0x010c}
0x445a…4488              Head {h00=0x002a, h01=0x0050, text=» IB SPKEY,LIN855,LIN860,LIN865,LIN866 «, t00=0x002b, t01=0x0138}
0x4488…4496              Head {h00=0x000a, h01=0x0050, text=»LIN855«, t00=0x002b, t01=0x0166}
0x4496…44cc              Head {h00=0x0032, h01=0x0050, text=» NKI .NW,KEYB,SPINPUT,SPKTAB1,SPBINW1,SPBINW2 «, t00=0x002b, t01=0x0174}
0x44cc…44de              Head {h00=0x000e, h01=0x0050, text=» B LIN870 «, t00=0x002c, t01=0x001a}
0x44de…44ec              Head {h00=0x000a, h01=0x0050, text=»LIN860«, t00=0x002c, t01=0x002c}
0x44ec…4522              Head {h00=0x0032, h01=0x0050, text=» NKI .NW,KEYB,SPINPUT,SPKTAB12,SPBINW1,SPBINW2«, t00=0x002c, t01=0x003a}
0x4522…4534              Head {h00=0x000e, h01=0x0050, text=» B LIN870 «, t00=0x002c, t01=0x0070}
0x4534…4542              Head {h00=0x000a, h01=0x0050, text=»LIN865«, t00=0x002c, t01=0x0082}
0x4542…4578              Head {h00=0x0032, h01=0x0050, text=» NKI .NW,KEYB,SPINPUT,SPKTAB13,SPBINW1,SPBINW2«, t00=0x002c, t01=0x0090}
0x4578…458a              Head {h00=0x000e, h01=0x0050, text=» B LIN870 «, t00=0x002c, t01=0x00c6}
0x458a…4598              Head {h00=0x000a, h01=0x0050, text=»LIN866«, t00=0x002c, t01=0x00d8}
0x4598…45ce              Head {h00=0x0032, h01=0x0050, text=» NKI .NW,KEYB,SPINPUT,SPKTAB14,SPBINW1,SPBINW2«, t00=0x002c, t01=0x00e6}
0x45ce…45e0              Head {h00=0x000e, h01=0x0050, text=» B LIN870 «, t00=0x002c, t01=0x011c}
0x45e0…45ee              Head {h00=0x000a, h01=0x0050, text=»LIN870«, t00=0x002c, t01=0x012e}
0x45ee…4602              Head {h00=0x0010, h01=0x0050, text=» PERF DKTEST«, t00=0x002c, t01=0x013c}
0x4602…4610              Head {h00=0x000a, h01=0x0050, text=»LINRET«, t00=0x002c, t01=0x0150}
0x4610…461c              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002c, t01=0x015e}
0x461c…462a              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x002c, t01=0x016a}
0x462a…4634              Head {h00=0x0006, h01=0x0050, text=»  «, t00=0x002c, t01=0x0178}
0x4634…4648              Head {h00=0x0010, h01=0x0050, text=»SPINF1 PROC «, t00=0x002c, t01=0x0182}
0x4648…4664              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x002d, t01=0x0008}
0x4664…466e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0024}
0x466e…46a2              Head {h00=0x0030, h01=0x0050, text=»*          SPINF1 - WRITE INF ON FIRST LINE «, t00=0x002d, t01=0x002e}
0x46a2…46ac              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0062}
0x46ac…46c8              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x002d, t01=0x006c}
0x46c8…46e6              Head {h00=0x001a, h01=0x0050, text=» MOVE SPBINW1,=X'0117'«, t00=0x002d, t01=0x0088}
0x46e6…471e              Head {h00=0x0034, h01=0x0050, text=» DSC1 SCREEN,6,SPBINW1 SET CURSOR ON FIRST LINE «, t00=0x002d, t01=0x00a6}
0x471e…473a              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW1,CBIN0 «, t00=0x002d, t01=0x00de}
0x473a…4770              Head {h00=0x0032, h01=0x0050, text=» EDWRT SCREEN,SPFTBMES(CBIN7) WRITE MESSAGE 7 «, t00=0x002d, t01=0x00fa}
0x4770…477c              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002d, t01=0x0130}
0x477c…478a              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x002d, t01=0x013c}
0x478a…4794              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x014a}
0x4794…479e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0154}
0x479e…47a8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x015e}
0x47a8…47bc              Head {h00=0x0010, h01=0x0050, text=»SPINF8 PROC «, t00=0x002d, t01=0x0168}
0x47bc…47d8              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x002d, t01=0x017c}
0x47d8…47e2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0008}
0x47e2…4814              Head {h00=0x002e, h01=0x0050, text=»*          SPINF8 - WRITE INF ON LAST LINE«, t00=0x002e, t01=0x0012}
0x4814…481e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0044}
0x481e…483a              Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x002e, t01=0x004e}
0x483a…485a              Head {h00=0x001c, h01=0x0050, text=» PERF SPLIN8,CBIN4,CBIN2«, t00=0x002e, t01=0x006a}
0x485a…4866              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002e, t01=0x008a}
0x4866…4874              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x002e, t01=0x0096}
0x4874…487e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00a4}
0x487e…4888              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00ae}
0x4888…489c              Head {h00=0x0010, h01=0x0050, text=»CLEAR8 PROC «, t00=0x002e, t01=0x00b8}
0x489c…48c4              Head {h00=0x0024, h01=0x0050, text=»*     DELETE FIRST 14 CHARACTERS«, t00=0x002e, t01=0x00cc}
0x48c4…48dc              Head {h00=0x0014, h01=0x0050, text=»*     OF LINE 24«, t00=0x002e, t01=0x00f4}
0x48dc…490e              Head {h00=0x002e, h01=0x0050, text=» MOVE GSWBIN2,=X'1801' INDICATE LAST LINE «, t00=0x002e, t01=0x010c}
0x490e…492e              Head {h00=0x001c, h01=0x0050, text=» DSC1 SCREEN,06,GSWBIN2 «, t00=0x002e, t01=0x013e}
0x492e…494a              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN14«, t00=0x002e, t01=0x015e}
0x494a…4978              Head {h00=0x002a, h01=0x0050, text=» DSC1 SCREEN,02,GSWBIN2 ERASE 14 CHARS«, t00=0x002e, t01=0x017a}
0x4978…4986              Head {h00=0x000a, h01=0x0050, text=» RET  «, t00=0x002f, t01=0x0018}
0x4986…4994              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x002f, t01=0x0026}
0x4994…499e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0034}
0x499e…49a8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x003e}
0x49a8…49bc              Head {h00=0x0010, h01=0x0050, text=»DKTEST PROC «, t00=0x002f, t01=0x0048}
0x49bc…49e4              Head {h00=0x0024, h01=0x0050, text=»* TEST IF DISK IS SWITCHED OFF, «, t00=0x002f, t01=0x005c}
0x49e4…49ee              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0084}
0x49ee…4a08              Head {h00=0x0016, h01=0x0050, text=» TBF CDKOFF,DKTRET«, t00=0x002f, t01=0x008e}
0x4a08…4a24              Head {h00=0x0018, h01=0x0050, text=» TBT GTMASTFL,DKTRET«, t00=0x002f, t01=0x00a8}
0x4a24…4a5a              Head {h00=0x0032, h01=0x0050, text=» TBF CDUOVL,DKTRET NO KI IF DISKOVERLAY ON DU «, t00=0x002f, t01=0x00c4}
0x4a5a…4a8e              Head {h00=0x0030, h01=0x0050, text=»*  WRITE MESSAGE, AND WAIT FOR FLAG CLEARED «, t00=0x002f, t01=0x00fa}
0x4a8e…4ab6              Head {h00=0x0024, h01=0x0050, text=» MOVE SPBINW5,=X'1802' POSITION «, t00=0x002f, t01=0x012e}
0x4ab6…4adc              Head {h00=0x0022, h01=0x0050, text=» DSC1 SCREEN,6,SPBINW5 CURSOR «, t00=0x002f, t01=0x0156}
0x4adc…4b06              Head {h00=0x0026, h01=0x0050, text=» EDWRT .NW,SCREEN,SPFTBMES(CBIN14)«, t00=0x002f, t01=0x017c}
0x4b06…4b14              Head {h00=0x000a, h01=0x0050, text=»DKT10 «, t00=0x0030, t01=0x0016}
0x4b14…4b2a              Head {h00=0x0012, h01=0x0050, text=» DELAY CBIN10 «, t00=0x0030, t01=0x0024}
0x4b2a…4b44              Head {h00=0x0016, h01=0x0050, text=» TBT CDKOFF,DKT10 «, t00=0x0030, t01=0x003a}
0x4b44…4b58              Head {h00=0x0010, h01=0x0050, text=» PERF CLEAR8«, t00=0x0030, t01=0x0054}
0x4b58…4b74              Head {h00=0x0018, h01=0x0050, text=» CMP CBIN1,CBIN0 NOK«, t00=0x0030, t01=0x0068}
0x4b74…4b80              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0030, t01=0x0084}
0x4b80…4b8e              Head {h00=0x000a, h01=0x0050, text=»DKTRET«, t00=0x0030, t01=0x0090}
0x4b8e…4baa              Head {h00=0x0018, h01=0x0050, text=» CMP CBIN0,CBIN0 OK «, t00=0x0030, t01=0x009e}
0x4baa…4bb6              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0030, t01=0x00ba}
0x4bb6…4bc4              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0030, t01=0x00c6}
0x4bc4…4bce              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00d4}
0x4bce…4bd8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00de}
0x4bd8…4be2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00e8}
0x4be2…4bec              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00f2}
0x4bec…4bf4              Head {h00=0x0004, h01=0x0050, t00=0x0030, t01=0x00fc}
0x4bf4…4c00              Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0030, t01=0x0104}
0x4c00…4c04              Head {h00=0x4004, h01=0x0000}
0x4c04…4c08              00 30 01 10                                                                                                                                                                                                                                       ┆ 0  ┆
0x4c08…4c10 (49, 1, 8)   20 04 00 00 00 31 00 04                                                                                                                                                                                                                           ┆     1  ┆
0x4c10…4c60 (50, 0, 400) 84 1c 03 86 6d 22 89 86 02 3f 0a 00 93 1b 3f 05 00 86 ad 23 86 70 0a 25 86 98 06 00 9d 1c 11 3f 0a 00 93 1a 3f 05 00 87 ad 23 87 ab 06 25 87 aa 02 3f 0a 00 93 1b 3f 05 06 90 13 3a 37 00 86 ad 00 d9 ad 05 86 a9 00 a0 86 22 a0 78 9c 12 10 25   ┆    m"   ?    ?    # p %       ?    ?    #   %   ?    ?    :7            " x   %┆
0x4c60…4cb0              86 6c 0c 02 a0 78 9c 11 25 6b a0 6c 02 3f 05 00 93 23 3f 05 00 92 17 00 90 12 49 a1 05 01 ad 8d 3f 08 01 ad 8e 3f 08 00 92 15 3f 0a 00 92 15 00 a0 d9 05 a0 82 02 a0 78 9c 11 00 ad 6b a0 00 90 1a 3f 0a 00 92 15 00 94 12 24 90 13 27 20 90 1a   ┆ l   x  %k l ?   #?       I     ?    ?    ?            x    k    ?       $  '   ┆
0x4cb0…4d00              05 00 93 13 3f 05 00 84 ad 80 0e 84 c8 00 a0 c8 06 a0 17 38 38 28 a0 18 05 48 d8 02 3f 39 80 13 3c 05 3f 0a 00 90 10 07 91 2b 38 05 07 91 7a 38 05 00 93 14 3f 05 00 92 16 00 94 11 22 90 12 05 00 93 13 3f 05 41 a1 00 84 ad 25 84 ac 0a 41 a2   ┆    ?              88(   H  ?9  < ?      +8   z8    ?       "      ? A    %   A ┆
0x4d00…4d50              23 84 ad 06 40 a2 57 02 40 a1 80 13 3c 05 3f 0a 00 92 26 00 94 16 28 91 13 03 00 91 22 80 13 3c 05 3f 0a 00 92 16 14 90 13 56 24 90 17 21 00 94 14 41 a1 00 84 ad 25 84 ac 0a 41 a2 23 84 ad 06 40 a2 57 02 40 a1 80 13 3c 05 00 91 13 3f 0a 00   ┆#   @ W @   < ?   &   (     "  < ?       V$  !   A    %   A #   @ W @   <    ?  ┆
0x4d50…4da0              93 13 3f 05 00 92 17 00 94 13 28 91 13 03 00 91 22 00 84 ad 21 84 a3 0a 21 84 a4 06 80 13 3c 05 3f 08 00 94 14 5f 0b 00 92 15 14 90 13 aa 20 90 1a 05 00 93 13 3f 05 06 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0c   ┆  ?       (     "   !   !     < ?    _               ?                          ┆
0x4da0…4df0 (51, 0, 400) 91 13 54 23 00 84 ad 80 0e 84 c8 00 a0 c8 20 a0 16 0e 06 a0 17 38 38 28 a0 18 0a 48 d8 07 3f 39 00 93 25 3f 05 3f 0a 00 93 14 3f 05 00 92 16 00 94 18 06 90 12 59 ca 00 93 13 3f 05 00 92 26 00 94 19 5f b6 00 92 17 01 91 2e 00 90 12 49 a1 05   ┆  T#                 88(   H  ?9  %? ?    ?          Y    ?   &   _      .   I  ┆
0x4df0…4e40              01 ad 8d 3f 08 01 ad 8e 3f 08 00 92 16 3f 0a 40 8a 40 81 00 91 22 00 90 10 3f 05 06 91 13 3c 05 00 91 22 3f 05 41 b4 00 bc 44 00 b8 44 00 b9 44 00 ba 44 00 bb 44 80 14 6a bc 10 27 ad 10 3f 05 41 b5 80 14 6a b8 10 27 ad 10 3f 05 41 b6 80 14   ┆   ?    ?    ? @ @   "   ?    <   "? A   D  D  D  D  D  j  '  ? A   j  '  ? A   ┆
0x4e40…4e90              6a b8 27 18 ad 10 6a b9 10 1e ad 18 3f 05 41 b7 80 14 6a b9 1e 23 ad 10 6a ba 10 14 ad 23 3f 05 41 b8 80 14 6a ba 14 21 ad 10 6a bb 10 16 ad 21 3f 05 00 84 ad 05 84 a9 00 81 84 24 81 11 0d 22 81 78 9c 12 07 02 81 78 9c 11 3f 05 00 93 1b 3f   ┆j '   j     ? A   j  #  j    #? A   j  !  j    !?          $   " x     x  ?    ?┆
0x4e90…4ee0              05 00 84 ad 25 84 6c 10 00 81 84 22 81 76 9c 12 07 02 81 76 9c 11 3f 05 00 93 1b 3f 05 00 8a 7e 01 88 6d 01 86 6c 00 a1 18 62 86 14 12 8a a1 02 88 86 02 a1 12 62 86 14 12 8a a1 05 86 6c 09 86 9e 02 88 86 00 86 ad 05 88 70 24 86 88 09 03 88   ┆    % l    " v     v  ?    ?   ~  m  l   b           b       l           p$     ┆
0x4ee0…4f30              75 22 86 88 02 57 03 00 93 1b 01 86 9a 3f 05 00 86 ad 00 81 86 02 81 76 a0 11 23 81 7e 19 20 a0 1c 0b 02 a0 11 00 76 a0 11 81 04 a0 11 00 81 86 00 76 a0 12 81 3f 05 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05   ┆u"   W       ?         v  # ~         v          v   ?                          ┆
0x4f30…4f80 (52, 0, 400) 93 1b 3f 05 00 87 ad 00 81 87 02 81 78 a0 11 23 81 7e 19 20 a0 1c 0b 02 a0 11 00 78 a0 11 81 04 a0 11 00 81 87 00 78 a0 12 81 3f 05 00 93 1b 3f 05 00 89 ad 20 91 13 05 06 91 22 3c 05 00 a0 90 00 a1 1d 01 88 98 01 86 98 62 86 15 11 89 a1 04   ┆  ?         x  # ~         x          x   ?    ?          "<             b      ┆
0x4f80…4fd0              a1 11 08 86 1f a1 02 88 86 04 a0 11 12 a0 10 1a 00 87 88 0b 88 76 09 88 76 04 87 88 2d 87 6c 03 01 87 76 01 88 76 04 88 87 57 db 00 8a ad 28 8a 7e 02 57 d2 41 95 57 ce 01 89 70 57 c9 01 89 71 57 c4 01 89 73 57 bf 00 89 ad 23 89 a6 05 01 8a   ┆                     v  v   - l   v  v   W    ( ~ W A W   pW   qW   sW    #     ┆
0x4fd0…5020              98 57 b3 00 93 1b 57 ae 00 89 ad 00 83 89 80 15 83 54 20 21 8b 75 1c 25 b7 6c 18 40 a7 01 92 79 48 d0 0e 49 c2 03 48 c4 08 00 a0 2b 92 00 9d a0 11 57 43 00 93 1b 57 7e 01 92 28 5f 1d 01 92 78 5f 22 01 92 2f 5f 27 01 92 7c 5f 2c 00 84 7e 00   ┆ W    W          T ! u % l @   yH  I  H    +     WC   W~  (_   x_"  /_'  |_,  ~ ┆
0x5020…5070              85 7e 0b 84 a9 09 84 a9 04 85 84 00 84 85 05 84 6c 03 85 6c 00 86 ad 24 86 84 06 22 86 85 02 57 05 00 93 1b 57 40 48 d7 0d 20 92 15 03 01 c8 98 80 16 80 17 41 93 00 a0 2b 92 00 9f a0 92 57 26 48 d7 09 01 c8 98 80 16 80 17 41 93 49 92 09 00   ┆ ~              l  l   $   "   W    W@H             A   +     W&H         A I   ┆
0x5070…50c0              89 ad 08 89 ab 00 ad 89 00 a0 2b 92 00 9f a0 92 09 9f a0 84 57 00 00 92 11 24 93 13 03 00 92 13 34 00 01 a0 7b 80 18 ad a0 34 00 01 e1 8c 01 ab 99 01 d4 6c 00 d0 11 34 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0c   ┆          +         W    $      4   {    4         l   4                        ┆

Reduced view