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

⟦7539de4ee⟧

    Length: 17256 (0x4368)
    Notes: pts_type(SC)
    Names: »ADM6.SC«

Derivation

└─⟦26dca8ec8⟧ Bits:30009711 Philips computer tape "RÅKON-DIVFMT"
    └─⟦this⟧ »REMIT2/ADM6.SC« 

PTS(SC)

 IDENT ADM6 821105 NJ 
 DDUM KMD08 
 PDIV 
 ENTRY ADM600 
 EXT SPCLRA 
 EXT SPCLRS 
 EXT SPLIN8 
 EXT SLUTID 
 EXT RAWRIT 
 EXT WRITID 
 EXT LAMPOF 
 EXT ADMRET 
 EXT SPERR
 EXT CLSVOL 
 EXT LAMPON 
 EXT SOPRD
 EXT ASGVOL 
 EXT BCKUP
 EXT RAREAD 
 EXT GETBIT 
 EXT WRITJT 
* 
 INCLUDE EQUATE 
 EJECT
ADM600
 TBT C569FLG,ADM601 
 MOVE GSWBIN1,CBIN0 
 DSC1 DCOMM,TRPAR,GSWBIN1 
ADM601
 SET CCONVFLG 
 CLEAR SPKEYFLG 
 TEST GTKASSE 
 BNZ ADM06RET 
 CMP TTASKNR,CBIN1 MASTER ? 
 BNE ADM06RET NO
 CMP CTASKNR,CBIN0 ALL CLOSED 
 BNE ADM06RET 
 SET SPPROMPT 
 MOVE SPKEY,CBIN2 
 ATTFMT SNDFRM6 
 PERF SPCLRS
 CBNE SPBINW2,CBIN3,ADM06RET
ADM0610 
 TBT C569FLG,ADM0611
 MOVE GSWBIN1,=X'40'
 DSC1 DCOMM,TRPAR,GSWBIN1 
ADM0611 
 SET SPPROMPT 
 ATTFMT SNDFRM BRUGERNAVN/KENDEORD
 PERF SPCLRS
 CBNE SPBINW2,CBIN3,ADM600
ADM0615 
 TBT C569FLG,ADM0613 HOLSTED? 
 TBT CCONVERT,ADM0613 HOLSTED+CONVERT VERSION 
 SUB CRECBCD,=D'1'
 PERF SLUTID,CRECBCD
 ADD CRECBCD,=D'1'
 PERF RAWRIT,DK02,=D'2',CPCKBUF,CRECNR
 BNOK ADM600
 PERF WRITID,CBIN5,CBIN2 SLUTID ON JOURNAL
ADM0613 
**************************************************
*             BATCH TRANSMISSION
*       1)  SIGNON
*       2)  CHANGE DISK 
*       3)  SEND STARTIDENT 
*       4)  SEND TRANSACTIONS AND SLUTID
*       5)  IN CASE OF ERROR SEND TERMINATE 
*       6)  WHEN ALL TRANSMITTED SEND SIGNOFF 
************************************************* 
 PERF SIGNON
 BNOK ADM06OUT
 TBF CDCSOP,ADM0620 
 ATTFMT SNDFRM7 
 PERF SPCLRA
 CBE SPBINW2,CBIN3,ADM0640
ADM0620 
*     SEND NEXT OR SIGNOFF
 PERF LAMPOF,=W'2047' 
ADM0630 
 PERF CHNGDK CHANGE DISC
 BNOK ADM6SOFF
ADM0640 
 PERF STRTRC SEND STARTIDENT
 BNOK ADM0650 IF NOT OK, TRY NEXT 
 PERF SENDRC SEND BATCH 
 BOK ADM0620
			IF NOT OK
 PERF TERMIN SEND TERMINATE 
ADM0650 
 PERF LAMPOF,=W'2047' 
 PERF LAMPON,=W'2' LAMP 10, ERROR 
 B ADM0630
ADM6SOFF
 PERF SIGNOF SEND SIGNOFF 
ADM06OUT
 MOVE CTRANBUF,=X'00' CLEAR TR 12 COUNTERS
 TBT C569FLG,ADM06RET 
 MOVE GSWBIN1,CBIN0 
 DSC1 DCOMM,TRPAR,GSWBIN1 
ADM06RET
 CLEAR CCONVFLG 
 SET SPKEYFLG 
 PERF LAMPOF,=W'2047' 
 B ADMRET 
 EJECT
************************************************
* 
*             SIGNON
*    IF NOT OK CR NOT = 0 
* 
************************************************
SIGNON PROC 
 MOVE GSWBIN1,CBIN5 
 MOVE GSWBIN2,=W'50'
 MOVE CTRANBUF,=' ' 
 EDIT CTRANBUF,SIGONF 
*                          FIND LENGTH
 MATCH CTRANBUF,GSWBIN1,GSWBIN2,CBLANKS,CBIN0,CBIN2 
 MOVE GSWBIN2,GSWBIN1 
 PERF EXCHAN EXCHANGE DC
 BNOK SIGON100
 PERF WJDC
 MOVE GSWSTR20,=C'DFH3504'
 MOVE GSWBIN1,CBIN0 
 MATCH CTRANBUF,GSWBIN1,GSWBIN2,GSWSTR20,CBIN0,CBIN7
 BNE SIGON100 
 EDWRT SCREEN,SNDFRM3 
 CMP CBIN0,CBIN0
 RET
SIGON100
 MOVE SPBINW4,CBIN21
 MOVE GTWBCD2,=D'60'
 MOVE GSWSTR9,=C'TRANSMIT ' 
 MOVE GTWBCD1,=D'16'
 PERF SPERR 
 PERF WRITJT,=W'14' 
 CMP CBIN0,CBIN1
 RET
 PEND 
 EJECT
********************************************* 
* 
*            CHNGDK - CHANGE DISK 
*         STOP SEND PIN 6 
*         CONTINIUE PIN 5 
* 
********************************************* 
CHNGDK PROC 
CHNG000 
 PERF CLSVOL,CBIN2 CLOSE FILES ON VOL 2 
 MOVE CRECNR,CBIN1
 MOVE CRECBCD,=D'1' 
 PERF LAMPON,=W'64' LAMP 5
 PERF LAMPON,=W'32' LAMP 6
 PERF LAMPON,=W'16' LAMP 7
CHNG010 
 PERF SOPRD 
 IB GSWBIN2,		C 
		CHSOP10,CHSOP09,CHSOP08,CHSOP07,CHSOP06,		C 
		CHSOP05,CHSOP04,CHSOP03,CHSOP02,CHSOP01 
CHSOP01 
CHSOP02 
CHSOP03 
CHSOP04 
CHSOP08 
CHSOP09 
 B CHNG010
CHSOP10 
*   ERROR, SIGN ON AGAIN
 PERF LAMPOF,=W'2047' LAMPS OFF 
 PERF LAMPON,=W'2' LAMP 10
 SET SPPROMPT 
 ATTFMT SNDFRM SIGNON FORMAT
 PERF SPCLRA
 CBNE SPBINW2,CBIN3,CHNG000 
 PERF SIGNON
 BNOK CHNG000 
 PERF LAMPOF,=W'2047' 
 B CHNG000
CHSOP05 
 PERF LAMPOF,=W'2047' LAMPS OFF 
 PERF ASGVOL,CBIN2 ASSIGN DISK 2
 BOK CHNG050
 PERF LAMPON,=W'2'
 B CHNG000
CHNG050 
 PERF LAMPON,=W'64' LAMP 5
 CMP CBIN0,CBIN0 SET CR 
 RET
CHSOP06			SOP 6 
 PERF LAMPOF,=W'2047' LAMPS OFF 
 PERF BCKUP,=W'1' WITHOUT BACKUP
 BNOK CHNG000 
 B CHNG130
CHSOP07 
 PERF LAMPOF,=W'2047' LAMPS OFF 
 PERF BCKUP,=W'2' WITH BACKUP 
 BNOK CHNG000 
 B CHNG130
CHNG130 
 PERF LAMPOF,=W'2047' 
 CMP CBIN0,CBIN1 INDICATE ERROR OR END OF TRANS 
 RET
 PEND 
 EJECT
******************************************
* 
*         STRTRC - SEND OF STARTIDENT 
*         AND CHECK REPLY 
* 
******************************************* 
STRTRC PROC 
 PERF LAMPOF,=W'2047' 
 PERF LAMPON,=W'64' 
 MOVE GSWBIN6,CBIN1 
 MOVE GSWBIN1,=W'128' 
 PERF RAREAD,DK02,=D'2',CPCKBUF,GSWBIN1,GSWBIN6 
 BNOK STRTRET 
 CBE GTWBCD1,=D'4',STRTRET RECORD DELETED?
 PERF WRITID,CBIN5,CBIN1
 MOVE GSWBIN6,CBIN0 
 MOVE GSWBIN1,=W'40'
 MOVE GSWSTR20,=' ' 
 COPY CPCKBUF,GSWBIN1,CBIN20,GSWSTR20,GSWBIN6 
 MOVE CTRANBUF,=' ' 
 EDIT CTRANBUF,SNDFRM2
 MOVE GSWBIN2,=W'31' LENGTH 
 PERF EXCHAN EXCHANGE DC
 BNOK STRTRET 
 PERF TRNOK CHECK IF OK 
 BNOK STRTRET 
 CMP CBIN0,CBIN0 SET CR 
 RET
STRTRET 
 CMP CBIN0,CBIN1
 RET
 PEND 
 EJECT
**********************************************
* 
*         SENDRC - SEND BATCH UNTIL SLUTID
* 
**********************************************
SENDRC PROC 
 MOVE CRECNR,CBIN1
SND005
 MOVE GSWBIN3,CBIN0 PACKPOINTER 
SND010
 ADD CRECNR,CBIN1 
 MOVE GSWBIN1,=W'128' 
 PERF RAREAD,DK02,=D'2',CPCKBUF,GSWBIN1,CRECNR
 BNOK SNDERR
 CMP GTWBCD1,=D'4'
 BNE SND012 
 MOVE CPCKBUF,=C'SLUTD00000 ' 
 MOVE GSWBIN3,CRECLGD 
SND012
 MOVE GSWSTR20,=C'SLUTD'
 MOVE GSWBIN5,CBIN0 
 MATCH GSWSTR20,GSWBIN5,CBIN5,CPCKBUF,CBIN0,CBIN5 
 BE SNDSLUT 
 MOVE GSWSTR9,=X'7F' FIND LENGTH
SND015
 MOVE GSWBIN4,CBIN0 
 MOVE GSWBIN5,=W'128' 
 MATCH CPCKBUF,GSWBIN4,GSWBIN5,GSWSTR9,CBIN0,CBIN1
 BE SND020
 MOVE GSWSTR9,=X'21'
 B SND015 
SND020
 ADD GSWBIN4,GSWBIN3 SEE IF MORE SPACE
 CBNG GSWBIN4,=W'504',SND030
 SUB CRECNR,CBIN1 NO MORE SPACE 
 B SND040 SEND BUFFER 
SND030
 SUB GSWBIN4,GSWBIN3 RESTORE
 ADD GSWBIN4,CBIN1 FILL WITH X'00'
 CBE GSWBIN4,=W'128',SND037 
 MOVE GSWSTR20,=X'00' 
 MOVE GSWBIN5,=W'128' 
SND035
 INSRT CPCKBUF,GSWBIN4,CBIN20,GSWSTR20,CBIN0
 SUB GSWBIN5,CBIN20 
 CBG GSWBIN5,GSWBIN4,SND035 ALL TRAILING FILLED 
SND037
 EDSUB CTRANBUF,GSWBIN3,SNDFRM5 INSERT RECORD 
 B SND010 READ NEXT 
SND040
 MOVE GSWBIN2,GSWBIN3 
 MOVE GTWBCD2,CRECNR
 PERF SPLIN8,CBIN10,CBIN3 DISPLAY RECNR 
 PERF EXCHAN
 BNOK SNDERR
 PERF TRNOK 
 BNOK SNDERR
 B SND005 
SNDSLUT 
	CBE	GSWBIN3,CBIN0,SND090	REQ.LGTH.=0 ? 
 MOVE GSWBIN2,GSWBIN3 
 PERF EXCHAN EXCHANGE DC
 BNOK SNDERR
 PERF TRNOK 
 BNOK SNDERR
SND090
 MOVE GSWBIN3,CBIN0 
 MOVE CTRANBUF,=' ' 
 EDSUB CTRANBUF,GSWBIN3,SNDFRM5 
 MOVE GSWBIN2,CBIN18
 PERF EXCHAN
 BNOK SNDERR
 PERF WRITID,CBIN5,CBIN2
 PERF WJDC PRINT ANSWER 
 MOVE GSWSTR9,=C'0002'
 MOVE GSWBIN1,CBIN0 
 MOVE GSWBIN2,=W'52'
 MATCH CTRANBUF,GSWBIN1,GSWBIN2,GSWSTR9,CBIN0,CBIN4 
 BNE SNDERR 
SNDSL10 
 CMP CBIN0,CBIN0
 RET
SNDERR
 CMP CBIN1,CBIN0
 RET
 PEND 
 EJECT
********************************************
* 
*         TERMIN - TERMINATE TRANSMISSION IN CASE OF ERROR
* 
********************************************
TERMIN PROC 
 MOVE GSWBIN3,CBIN0 
 MOVE CTRANBUF,=' ' 
 MOVE CPCKBUF,=C'TERMINATE '
 MOVE GSWBIN3,CBIN0 
 EDSUB CTRANBUF,GSWBIN3,SNDFRM2 
 MOVE GSWBIN2,CBIN14
 PERF EXCHAN EXCHANGE DC
 BNOK TERMRET 
 PERF WJDC
TERMRET 
 RET
 PEND 
 EJECT
********************************************* 
* 
*         SIGNOFF 
* 
********************************************* 
SIGNOF PROC 
 MOVE GSWBIN3,CBIN0 
 MOVE CTRANBUF,=' ' 
 MOVE CPCKBUF,=C'CSSF ' 
 EDSUB CTRANBUF,GSWBIN3,SNDFRM2 
 MOVE GSWBIN2,CBIN9 
 PERF EXCHAN
 BNOK SIGOFRET
 PERF WJDC PRINT ANSWER 
SIGOFRET
 RET
 PEND 
 EJECT
********************************************* 
*           EXCHAN - EXCHANGE DC
*         IN CASE OF ERROR ERRORMESSAGE 
*         IS SHOWN ON SCREEN AND JOURNAL
********************************************* 
EXCHAN PROC 
EXCH10
 MOVE GSWBIN5,CBIN1 
 MOVE GSWBIN1,=W'504' 
 DCREAD DCOMM,CDUM0,GSWBIN1,GSWBIN5 
* IN ORDER TO AVOID SHIT FROM VTAM, EVERYTHING WHICH
* WE HAVE NOT ASKED FOR, IS THROWN AWAY. IF THERE IS
* NO MORE SHIT, "DCREAD" WILL RETURN NOT-OK 
 BOK EXCH10 MORE SHIT 
 MOVE GSWBIN5,=W'600' TIMEOUT VALUE 
 DCWRITE DCOMM,CTRANBUF,GSWBIN2,GSWBIN5 
 BNOK EXCHNOK 
 MOVE GSWBIN2,=W'504' 
 MOVE GSWBIN5,=W'600' 
 DCREAD DCOMM,CTRANBUF,GSWBIN2,GSWBIN5
 BOK EXCHRET
EXCHNOK 
 PERF GETBIT,DCOMM FETCH ERRORCODE
 MOVE SPBINW4,CBIN21
 MOVE GTWBCD2,=D'60'
 MOVE GSWSTR9,=C'TRANSMIT ' 
 PERF SPERR 
 PERF WRITJT,=W'14' 
 CMP CBIN0,CBIN1
 RET
EXCHRET 
 CMP CBIN0,CBIN0
 RET
 PEND 
 EJECT
********************************************* 
* 
*       TRNOK - CHECK IF MESSAGE CORRECT RECIEVED 
* 
********************************************* 
TRNOK PROC
 MOVE GSWBIN3,CBIN0 
 MOVE GSWSTR9,=X'1B3543'
 MATCH CTRANBUF,GSWBIN3,GSWBIN2,GSWSTR9,CBIN0,CBIN3 
 BNE TRNERR 
 MOVE GSWBIN2,CBIN0 
 MOVE CTRANBUF,=' ' 
 CMP CBIN0,CBIN0
 RET
TRNERR
 MOVE GTWBCD2,=D'60'
 MOVE GSWSTR9,=C'TRANSMIT ' 
 MOVE GTWBCD1,=D'50'
 PERF SPERR 
 PERF WRITJT,=W'14' 
 CMP CBIN0,CBIN1
 RET
 PEND 
 EJECT
************************************************* 
* 
*    WJDC - PRINT RECEIVED MESSAGE ON JOURNAL 
* 
************************************************* 
WJDC PROC 
 WAIT KTALLY
 CBL GSWBIN2,CBIN1,WJDCRET
 CBG GSWBIN2,=W'504',WJDCRET
 MOVE GSWSTR9,=C'DFH' 
 MOVE GSWBIN1,CBIN0 
 MATCH CTRANBUF,GSWBIN1,GSWBIN2,GSWSTR9,CBIN0,CBIN3 
 BE WJDC100 CICS MESSAGE
* 
*      APLICATION MESSAGE 
* 
 MOVE GSWSTR9,=X'11'
 MOVE GSWBIN1,CBIN0 
 MATCH CTRANBUF,GSWBIN1,GSWBIN2,GSWSTR9,CBIN0,CBIN1 
 BNE WJDCRET
*                       GSWBIN1=START 
 ADD GSWBIN1,CBIN3 BYPASS SBA SEQUENSE
 MOVE GSWBIN4,GSWBIN1 
 SUB GSWBIN2,GSWBIN4 ADJUST LENGTH
 CBL GSWBIN2,CBIN1,WJDCRET
WJDC005 
 MOVE CPCKBUF,=X'00'
 MATCH CTRANBUF,GSWBIN4,GSWBIN2,GSWSTR9,CBIN0,CBIN1 
 BNE WJDC200
 SUB GSWBIN4,GSWBIN1 GSWBIN4 = LENGTH 
 COPY CPCKBUF,CBIN0,GSWBIN4,CTRANBUF,GSWBIN1
 EDWRT KJTAPE,WJDCFRM 
 ADD GSWBIN4,CBIN3
 SUB GSWBIN2,GSWBIN4
 ADD GSWBIN4,GSWBIN1
 MOVE GSWBIN1,GSWBIN4 
 CBG GSWBIN2,CBIN3,WJDC005
 B WJDCRET
* 
* 
* 
WJDC100 
 SUB GSWBIN2,GSWBIN1
 CBL GSWBIN2,=W'52',WJDC200 
 MOVE GSWBIN4,=W'30' FIND BLANK 

 MATCH CTRANBUF,GSWBIN4,GSWBIN2,CBLANKS,CBIN0,CBIN1 
 BNE WJDC200
 MOVE CPCKBUF,=X'00'
 SUB GSWBIN4,GSWBIN1
 COPY CPCKBUF,CBIN0,GSWBIN4,CTRANBUF,GSWBIN1
 EDWRT KJTAPE,WJDCFRM 
 SUB GSWBIN2,GSWBIN4
 ADD GSWBIN1,GSWBIN4
WJDC200 
 MOVE CPCKBUF,=X'00'
 CBL GSWBIN2,=W'52',WJDC210 
 MOVE GSWBIN2,=W'52'
WJDC210 
 COPY CPCKBUF,CBIN0,GSWBIN2,CTRANBUF,GSWBIN1
 EDWRT KJTAPE,WJDCFRM 
WJDCRET 
 RET
 PEND 
 EJECT
************************************************
* 
*         FORMATS USED
* 
************************************************
* 
SNDFRM FRMT 
 FSL
 FCOPY =C'DATATRANSMISSION '
 FNL
 FTEXT 'BRUGERNAVN' 
 FKI 12,MINL=1,MAXL=13,ME 
 FMEL 'AAAAAAAAAAAAAAAAAAA9',TTCYKTOT 
 FNL
 FTEXT 'KENDEORD' 
 FKI 12,MINL=1,MAXL=4,ME
 FMELI 'TTT9',TTARKSAV
 FILLR X'07',1
 FMEND
* 
SIGONF FRMT 
 FILLR ' ',2
 FTEXT X'272020'
 FTEXT 'CSSN PS=' 
 FMELI '9999',TTARKSAV
 FTEXT ',NAME=' 
 FMEL 'AAAAAAAAAAAAAAAAAAA9',TTCYKTOT 
 FMEND
* 
SNDFRM2 FRMT
 FILLR ' ',2
 FTEXT X'272020'
 FCOPY CPCKBUF
 FMEND
* 
SNDFRM3 FRMT
 FILLR '1',2
 FCOPY =C'DATATRANSMISSION '
 FMEND
* 
SNDFRM5 FRMT
 FBNZ GSWBIN3,SNDLAB10
 FILLR ' ',2
 FTEXT X'272020'
SNDLAB10
 FTEXT X'112020'
 FCOPY CPCKBUF
 FMEND
* 
SNDFRM6 FRMT
 FSL
 FCOPY ='DATATRANSMISSION'
 FILLR '?',1
 FNL
 FKI 1
 FMEL 'B',TSWBCD2 
 FMEND
* 
SNDFRM7 FRMT
 FSL
 FTEXT 'SEND DENNE DISKETTE?' 
 FNL
 FKI 1
 FMEL 'B',TSWBCD2 
 FMEND
* 
WJDCFRM FRMT
 FILLR ' ',2
 FCOPY CPCKBUF
 FMEND
* 
 END

HexDump

0x0000…001e (0, 0, 400)  Head {h00=0x001a, h01=0x0050, text=» IDENT ADM6 821105 NJ «, t00=0x0000, t01=0x0004}
0x001e…0032              Head {h00=0x0010, h01=0x000b, text=» DDUM KMD08 «, t00=0x0000, t01=0x0022}
0x0032…0040              Head {h00=0x000a, h01=0x0005, text=» PDIV «, t00=0x0000, t01=0x0036}
0x0040…0056              Head {h00=0x0012, h01=0x0050, text=» ENTRY ADM600 «, t00=0x0000, t01=0x0044}
0x0056…006a              Head {h00=0x0010, h01=0x0050, text=» EXT SPCLRA «, t00=0x0000, t01=0x005a}
0x006a…007e              Head {h00=0x0010, h01=0x0050, text=» EXT SPCLRS «, t00=0x0000, t01=0x006e}
0x007e…0092              Head {h00=0x0010, h01=0x0050, text=» EXT SPLIN8 «, t00=0x0000, t01=0x0082}
0x0092…00a6              Head {h00=0x0010, h01=0x0050, text=» EXT SLUTID «, t00=0x0000, t01=0x0096}
0x00a6…00ba              Head {h00=0x0010, h01=0x0050, text=» EXT RAWRIT «, t00=0x0000, t01=0x00aa}
0x00ba…00ce              Head {h00=0x0010, h01=0x0050, text=» EXT WRITID «, t00=0x0000, t01=0x00be}
0x00ce…00e2              Head {h00=0x0010, h01=0x0050, text=» EXT LAMPOF «, t00=0x0000, t01=0x00d2}
0x00e2…00f6              Head {h00=0x0010, h01=0x0050, text=» EXT ADMRET «, t00=0x0000, t01=0x00e6}
0x00f6…0108              Head {h00=0x000e, h01=0x0050, text=» EXT SPERR«, t00=0x0000, t01=0x00fa}
0x0108…011c              Head {h00=0x0010, h01=0x0050, text=» EXT CLSVOL «, t00=0x0000, t01=0x010c}
0x011c…0130              Head {h00=0x0010, h01=0x0050, text=» EXT LAMPON «, t00=0x0000, t01=0x0120}
0x0130…0142              Head {h00=0x000e, h01=0x0050, text=» EXT SOPRD«, t00=0x0000, t01=0x0134}
0x0142…0156              Head {h00=0x0010, h01=0x0050, text=» EXT ASGVOL «, t00=0x0000, t01=0x0146}
0x0156…0168              Head {h00=0x000e, h01=0x0050, text=» EXT BCKUP«, t00=0x0000, t01=0x015a}
0x0168…017c              Head {h00=0x0010, h01=0x0050, text=» EXT RAREAD «, t00=0x0000, t01=0x016c}
0x017c…0190              Head {h00=0x0010, h01=0x0050, text=» EXT GETBIT «, t00=0x0000, t01=0x0180}
0x0190…01a4 (1, 0, 400)  Head {h00=0x0010, h01=0x0050, text=» EXT WRITJT «, t00=0x0001, t01=0x0004}
0x01a4…01ae              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0018}
0x01ae…01c6              Head {h00=0x0014, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0001, t01=0x0022}
0x01c6…01d4              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x003a}
0x01d4…01e2              Head {h00=0x000a, h01=0x0050, text=»ADM600«, t00=0x0001, t01=0x0048}
0x01e2…01fe              Head {h00=0x0018, h01=0x0050, text=» TBT C569FLG,ADM601 «, t00=0x0001, t01=0x0056}
0x01fe…021a              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN0 «, t00=0x0001, t01=0x0072}
0x021a…023c              Head {h00=0x001e, h01=0x0050, text=» DSC1 DCOMM,TRPAR,GSWBIN1 «, t00=0x0001, t01=0x008e}
0x023c…024a              Head {h00=0x000a, h01=0x0050, text=»ADM601«, t00=0x0001, t01=0x00b0}
0x024a…0260              Head {h00=0x0012, h01=0x0050, text=» SET CCONVFLG «, t00=0x0001, t01=0x00be}
0x0260…0278              Head {h00=0x0014, h01=0x0050, text=» CLEAR SPKEYFLG «, t00=0x0001, t01=0x00d4}
0x0278…028e              Head {h00=0x0012, h01=0x0050, text=» TEST GTKASSE «, t00=0x0001, t01=0x00ec}
0x028e…02a4              Head {h00=0x0012, h01=0x0050, text=» BNZ ADM06RET «, t00=0x0001, t01=0x0102}
0x02a4…02c8              Head {h00=0x0020, h01=0x0050, text=» CMP TTASKNR,CBIN1 MASTER ? «, t00=0x0001, t01=0x0118}
0x02c8…02e0              Head {h00=0x0014, h01=0x0050, text=» BNE ADM06RET NO«, t00=0x0001, t01=0x013c}
0x02e0…0306              Head {h00=0x0022, h01=0x0050, text=» CMP CTASKNR,CBIN0 ALL CLOSED «, t00=0x0001, t01=0x0154}
0x0306…031c              Head {h00=0x0012, h01=0x0050, text=» BNE ADM06RET «, t00=0x0001, t01=0x017a}
0x031c…0332              Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x0001, t01=0x0190}
0x0332…034c              Head {h00=0x0016, h01=0x0050, text=» MOVE SPKEY,CBIN2 «, t00=0x0002, t01=0x0016}
0x034c…0364              Head {h00=0x0014, h01=0x0050, text=» ATTFMT SNDFRM6 «, t00=0x0002, t01=0x0030}
0x0364…0378              Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRS«, t00=0x0002, t01=0x0048}
0x0378…039c              Head {h00=0x0020, h01=0x0050, text=» CBNE SPBINW2,CBIN3,ADM06RET«, t00=0x0002, t01=0x005c}
0x039c…03ac              Head {h00=0x000c, h01=0x0050, text=»ADM0610 «, t00=0x0002, t01=0x0080}
0x03ac…03c8              Head {h00=0x0018, h01=0x0050, text=» TBT C569FLG,ADM0611«, t00=0x0002, t01=0x0090}
0x03c8…03e4              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=X'40'«, t00=0x0002, t01=0x00ac}
0x03e4…0406              Head {h00=0x001e, h01=0x0050, text=» DSC1 DCOMM,TRPAR,GSWBIN1 «, t00=0x0002, t01=0x00c8}
0x0406…0416              Head {h00=0x000c, h01=0x0050, text=»ADM0611 «, t00=0x0002, t01=0x00ea}
0x0416…042c              Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x0002, t01=0x00fa}
0x042c…0456              Head {h00=0x0026, h01=0x0050, text=» ATTFMT SNDFRM BRUGERNAVN/KENDEORD«, t00=0x0002, t01=0x0110}
0x0456…046a              Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRS«, t00=0x0002, t01=0x013a}
0x046a…048c              Head {h00=0x001e, h01=0x0050, text=» CBNE SPBINW2,CBIN3,ADM600«, t00=0x0002, t01=0x014e}
0x048c…049c              Head {h00=0x000c, h01=0x0050, text=»ADM0615 «, t00=0x0002, t01=0x0170}
0x049c…04c2              Head {h00=0x0022, h01=0x0050, text=» TBT C569FLG,ADM0613 HOLSTED? «, t00=0x0002, t01=0x0180}
0x04c2…04f8              Head {h00=0x0032, h01=0x0050, text=» TBT CCONVERT,ADM0613 HOLSTED+CONVERT VERSION «, t00=0x0003, t01=0x0016}
0x04f8…0512              Head {h00=0x0016, h01=0x0050, text=» SUB CRECBCD,=D'1'«, t00=0x0003, t01=0x004c}
0x0512…052e              Head {h00=0x0018, h01=0x0050, text=» PERF SLUTID,CRECBCD«, t00=0x0003, t01=0x0066}
0x052e…0548              Head {h00=0x0016, h01=0x0050, text=» ADD CRECBCD,=D'1'«, t00=0x0003, t01=0x0082}
0x0548…0576              Head {h00=0x002a, h01=0x0050, text=» PERF RAWRIT,DK02,=D'2',CPCKBUF,CRECNR«, t00=0x0003, t01=0x009c}
0x0576…058a              Head {h00=0x0010, h01=0x0050, text=» BNOK ADM600«, t00=0x0003, t01=0x00ca}
0x058a…05bc              Head {h00=0x002e, h01=0x0050, text=» PERF WRITID,CBIN5,CBIN2 SLUTID ON JOURNAL«, t00=0x0003, t01=0x00de}
0x05bc…05cc              Head {h00=0x000c, h01=0x0050, text=»ADM0613 «, t00=0x0003, t01=0x0110}
0x05cc…0606              Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0003, t01=0x0120}
0x0606…062e              Head {h00=0x0024, h01=0x0050, text=»*             BATCH TRANSMISSION«, t00=0x0003, t01=0x015a}
0x062e…0648              Head {h00=0x0016, h01=0x0050, text=»*       1)  SIGNON«, t00=0x0003, t01=0x0182}
0x0648…0668              Head {h00=0x001c, h01=0x0050, text=»*       2)  CHANGE DISK «, t00=0x0004, t01=0x000c}
0x0668…068c              Head {h00=0x0020, h01=0x0050, text=»*       3)  SEND STARTIDENT «, t00=0x0004, t01=0x002c}
0x068c…06bc              Head {h00=0x002c, h01=0x0050, text=»*       4)  SEND TRANSACTIONS AND SLUTID«, t00=0x0004, t01=0x0050}
0x06bc…06f0              Head {h00=0x0030, h01=0x0050, text=»*       5)  IN CASE OF ERROR SEND TERMINATE «, t00=0x0004, t01=0x0080}
0x06f0…0726              Head {h00=0x0032, h01=0x0050, text=»*       6)  WHEN ALL TRANSMITTED SEND SIGNOFF «, t00=0x0004, t01=0x00b4}
0x0726…0760              Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0004, t01=0x00ea}
0x0760…0774              Head {h00=0x0010, h01=0x0050, text=» PERF SIGNON«, t00=0x0004, t01=0x0124}
0x0774…078a              Head {h00=0x0012, h01=0x0050, text=» BNOK ADM06OUT«, t00=0x0004, t01=0x0138}
0x078a…07a6              Head {h00=0x0018, h01=0x0050, text=» TBF CDCSOP,ADM0620 «, t00=0x0004, t01=0x014e}
0x07a6…07be              Head {h00=0x0014, h01=0x0050, text=» ATTFMT SNDFRM7 «, t00=0x0004, t01=0x016a}
0x07be…07d2              Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRA«, t00=0x0004, t01=0x0182}
0x07d2…07f4              Head {h00=0x001e, h01=0x0050, text=» CBE SPBINW2,CBIN3,ADM0640«, t00=0x0005, t01=0x0008}
0x07f4…0804              Head {h00=0x000c, h01=0x0050, text=»ADM0620 «, t00=0x0005, t01=0x002a}
0x0804…0826              Head {h00=0x001e, h01=0x0050, text=»*     SEND NEXT OR SIGNOFF«, t00=0x0005, t01=0x003a}
0x0826…0844              Head {h00=0x001a, h01=0x0050, text=» PERF LAMPOF,=W'2047' «, t00=0x0005, t01=0x005c}
0x0844…0854              Head {h00=0x000c, h01=0x0050, text=»ADM0630 «, t00=0x0005, t01=0x007a}
0x0854…0874              Head {h00=0x001c, h01=0x0050, text=» PERF CHNGDK CHANGE DISC«, t00=0x0005, t01=0x008a}
0x0874…088a              Head {h00=0x0012, h01=0x0050, text=» BNOK ADM6SOFF«, t00=0x0005, t01=0x00aa}
0x088a…089a              Head {h00=0x000c, h01=0x0050, text=»ADM0640 «, t00=0x0005, t01=0x00c0}
0x089a…08be              Head {h00=0x0020, h01=0x0050, text=» PERF STRTRC SEND STARTIDENT«, t00=0x0005, t01=0x00d0}
0x08be…08e8              Head {h00=0x0026, h01=0x0050, text=» BNOK ADM0650 IF NOT OK, TRY NEXT «, t00=0x0005, t01=0x00f4}
0x08e8…0908              Head {h00=0x001c, h01=0x0050, text=» PERF SENDRC SEND BATCH «, t00=0x0005, t01=0x011e}
0x0908…091c              Head {h00=0x0010, h01=0x0050, text=» BOK ADM0620«, t00=0x0005, t01=0x013e}
0x091c…0930              Head {h00=0x0010, h01=0x0050, text=»   IF NOT OK«, t00=0x0005, t01=0x0152}
0x0930…0954              Head {h00=0x0020, h01=0x0050, text=» PERF TERMIN SEND TERMINATE «, t00=0x0005, t01=0x0166}
0x0954…0964              Head {h00=0x000c, h01=0x0050, text=»ADM0650 «, t00=0x0005, t01=0x018a}
0x0964…0982              Head {h00=0x001a, h01=0x0050, text=» PERF LAMPOF,=W'2047' «, t00=0x0006, t01=0x000a}
0x0982…09ac              Head {h00=0x0026, h01=0x0050, text=» PERF LAMPON,=W'2' LAMP 10, ERROR «, t00=0x0006, t01=0x0028}
0x09ac…09be              Head {h00=0x000e, h01=0x0050, text=» B ADM0630«, t00=0x0006, t01=0x0052}
0x09be…09ce              Head {h00=0x000c, h01=0x0050, text=»ADM6SOFF«, t00=0x0006, t01=0x0064}
0x09ce…09f0              Head {h00=0x001e, h01=0x0050, text=» PERF SIGNOF SEND SIGNOFF «, t00=0x0006, t01=0x0074}
0x09f0…0a00              Head {h00=0x000c, h01=0x0050, text=»ADM06OUT«, t00=0x0006, t01=0x0096}
0x0a00…0a32              Head {h00=0x002e, h01=0x0050, text=» MOVE CTRANBUF,=X'00' CLEAR TR 12 COUNTERS«, t00=0x0006, t01=0x00a6}
0x0a32…0a50              Head {h00=0x001a, h01=0x0050, text=» TBT C569FLG,ADM06RET «, t00=0x0006, t01=0x00d8}
0x0a50…0a6c              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN0 «, t00=0x0006, t01=0x00f6}
0x0a6c…0a8e              Head {h00=0x001e, h01=0x0050, text=» DSC1 DCOMM,TRPAR,GSWBIN1 «, t00=0x0006, t01=0x0112}
0x0a8e…0a9e              Head {h00=0x000c, h01=0x0050, text=»ADM06RET«, t00=0x0006, t01=0x0134}
0x0a9e…0ab6              Head {h00=0x0014, h01=0x0050, text=» CLEAR CCONVFLG «, t00=0x0006, t01=0x0144}
0x0ab6…0acc              Head {h00=0x0012, h01=0x0050, text=» SET SPKEYFLG «, t00=0x0006, t01=0x015c}
0x0acc…0aea              Head {h00=0x001a, h01=0x0050, text=» PERF LAMPOF,=W'2047' «, t00=0x0006, t01=0x0172}
0x0aea…0afc              Head {h00=0x000e, h01=0x0050, text=» B ADMRET «, t00=0x0006, t01=0x0190}
0x0afc…0b0a              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x0012}
0x0b0a…0b42              Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0007, t01=0x0020}
0x0b42…0b4c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0058}
0x0b4c…0b68              Head {h00=0x0018, h01=0x0050, text=»*             SIGNON«, t00=0x0007, t01=0x0062}
0x0b68…0b8a              Head {h00=0x001e, h01=0x0050, text=»*    IF NOT OK CR NOT = 0 «, t00=0x0007, t01=0x007e}
0x0b8a…0b94              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00a0}
0x0b94…0bcc              Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0007, t01=0x00aa}
0x0bcc…0be0              Head {h00=0x0010, h01=0x0050, text=»SIGNON PROC «, t00=0x0007, t01=0x00e2}
0x0be0…0bfc              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN5 «, t00=0x0007, t01=0x00f6}
0x0bfc…0c18              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,=W'50'«, t00=0x0007, t01=0x0112}
0x0c18…0c34              Head {h00=0x0018, h01=0x0050, text=» MOVE CTRANBUF,=' ' «, t00=0x0007, t01=0x012e}
0x0c34…0c52              Head {h00=0x001a, h01=0x0050, text=» EDIT CTRANBUF,SIGONF «, t00=0x0007, t01=0x014a}
0x0c52…0c80              Head {h00=0x002a, h01=0x0050, text=»*                          FIND LENGTH«, t00=0x0007, t01=0x0168}
0x0c80…0cbc              Head {h00=0x0038, h01=0x0050, text=» MATCH CTRANBUF,GSWBIN1,GSWBIN2,CBLANKS,CBIN0,CBIN2 «, t00=0x0008, t01=0x0008}
0x0cbc…0cda              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN2,GSWBIN1 «, t00=0x0008, t01=0x0044}
0x0cda…0cfa              Head {h00=0x001c, h01=0x0050, text=» PERF EXCHAN EXCHANGE DC«, t00=0x0008, t01=0x0062}
0x0cfa…0d10              Head {h00=0x0012, h01=0x0050, text=» BNOK SIGON100«, t00=0x0008, t01=0x0082}
0x0d10…0d22              Head {h00=0x000e, h01=0x0050, text=» PERF WJDC«, t00=0x0008, t01=0x0098}
0x0d22…0d44              Head {h00=0x001e, h01=0x0050, text=» MOVE GSWSTR20,=C'DFH3504'«, t00=0x0008, t01=0x00aa}
0x0d44…0d60              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN0 «, t00=0x0008, t01=0x00cc}
0x0d60…0d9c              Head {h00=0x0038, h01=0x0050, text=» MATCH CTRANBUF,GSWBIN1,GSWBIN2,GSWSTR20,CBIN0,CBIN7«, t00=0x0008, t01=0x00e8}
0x0d9c…0db2              Head {h00=0x0012, h01=0x0050, text=» BNE SIGON100 «, t00=0x0008, t01=0x0124}
0x0db2…0dd0              Head {h00=0x001a, h01=0x0050, text=» EDWRT SCREEN,SNDFRM3 «, t00=0x0008, t01=0x013a}
0x0dd0…0de8              Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0008, t01=0x0158}
0x0de8…0df4              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0008, t01=0x0170}
0x0df4…0e04              Head {h00=0x000c, h01=0x0050, text=»SIGON100«, t00=0x0008, t01=0x017c}
0x0e04…0e20              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN21«, t00=0x0008, t01=0x018c}
0x0e20…0e3c              Head {h00=0x0018, h01=0x0050, text=» MOVE GTWBCD2,=D'60'«, t00=0x0009, t01=0x0018}
0x0e3c…0e60              Head {h00=0x0020, h01=0x0050, text=» MOVE GSWSTR9,=C'TRANSMIT ' «, t00=0x0009, t01=0x0034}
0x0e60…0e7c              Head {h00=0x0018, h01=0x0050, text=» MOVE GTWBCD1,=D'16'«, t00=0x0009, t01=0x0058}
0x0e7c…0e90              Head {h00=0x0010, h01=0x0050, text=» PERF SPERR «, t00=0x0009, t01=0x0074}
0x0e90…0eac              Head {h00=0x0018, h01=0x0050, text=» PERF WRITJT,=W'14' «, t00=0x0009, t01=0x0088}
0x0eac…0ec4              Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN1«, t00=0x0009, t01=0x00a4}
0x0ec4…0ed0              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0009, t01=0x00bc}
0x0ed0…0ede              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0009, t01=0x00c8}
0x0ede…0eec              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x00d6}
0x0eec…0f22              Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0009, t01=0x00e4}
0x0f22…0f2c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x011a}
0x0f2c…0f56              Head {h00=0x0026, h01=0x0050, text=»*            CHNGDK - CHANGE DISK «, t00=0x0009, t01=0x0124}
0x0f56…0f78              Head {h00=0x001e, h01=0x0050, text=»*         STOP SEND PIN 6 «, t00=0x0009, t01=0x014e}
0x0f78…0f9a              Head {h00=0x001e, h01=0x0050, text=»*         CONTINIUE PIN 5 «, t00=0x0009, t01=0x0170}
0x0f9a…0fa4 (10, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0004}
0x0fa4…0fda              Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x000a, t01=0x000e}
0x0fda…0fee              Head {h00=0x0010, h01=0x0050, text=»CHNGDK PROC «, t00=0x000a, t01=0x0044}
0x0fee…0ffe              Head {h00=0x000c, h01=0x0050, text=»CHNG000 «, t00=0x000a, t01=0x0058}
0x0ffe…102e              Head {h00=0x002c, h01=0x0050, text=» PERF CLSVOL,CBIN2 CLOSE FILES ON VOL 2 «, t00=0x000a, t01=0x0068}
0x102e…1048              Head {h00=0x0016, h01=0x0050, text=» MOVE CRECNR,CBIN1«, t00=0x000a, t01=0x0098}
0x1048…1064              Head {h00=0x0018, h01=0x0050, text=» MOVE CRECBCD,=D'1' «, t00=0x000a, t01=0x00b2}
0x1064…1086              Head {h00=0x001e, h01=0x0050, text=» PERF LAMPON,=W'64' LAMP 5«, t00=0x000a, t01=0x00ce}
0x1086…10a8              Head {h00=0x001e, h01=0x0050, text=» PERF LAMPON,=W'32' LAMP 6«, t00=0x000a, t01=0x00f0}
0x10a8…10ca              Head {h00=0x001e, h01=0x0050, text=» PERF LAMPON,=W'16' LAMP 7«, t00=0x000a, t01=0x0112}
0x10ca…10da              Head {h00=0x000c, h01=0x0050, text=»CHNG010 «, t00=0x000a, t01=0x0134}
0x10da…10ee              Head {h00=0x0010, h01=0x0050, text=» PERF SOPRD «, t00=0x000a, t01=0x0144}
0x10ee…1106              Head {h00=0x0014, h01=0x0050, text=» IB GSWBIN2,  C «, t00=0x000a, t01=0x0158}
0x1106…113c              Head {h00=0x0032, h01=0x0050, text=»  CHSOP10,CHSOP09,CHSOP08,CHSOP07,CHSOP06,  C «, t00=0x000a, t01=0x0170}
0x113c…116e              Head {h00=0x002e, h01=0x0050, text=»  CHSOP05,CHSOP04,CHSOP03,CHSOP02,CHSOP01 «, t00=0x000b, t01=0x0016}
0x116e…117e              Head {h00=0x000c, h01=0x0050, text=»CHSOP01 «, t00=0x000b, t01=0x0048}
0x117e…118e              Head {h00=0x000c, h01=0x0050, text=»CHSOP02 «, t00=0x000b, t01=0x0058}
0x118e…119e              Head {h00=0x000c, h01=0x0050, text=»CHSOP03 «, t00=0x000b, t01=0x0068}
0x119e…11ae              Head {h00=0x000c, h01=0x0050, text=»CHSOP04 «, t00=0x000b, t01=0x0078}
0x11ae…11be              Head {h00=0x000c, h01=0x0050, text=»CHSOP08 «, t00=0x000b, t01=0x0088}
0x11be…11ce              Head {h00=0x000c, h01=0x0050, text=»CHSOP09 «, t00=0x000b, t01=0x0098}
0x11ce…11e0              Head {h00=0x000e, h01=0x0050, text=» B CHNG010«, t00=0x000b, t01=0x00a8}
0x11e0…11f0              Head {h00=0x000c, h01=0x0050, text=»CHSOP10 «, t00=0x000b, t01=0x00ba}
0x11f0…1210              Head {h00=0x001c, h01=0x0050, text=»*   ERROR, SIGN ON AGAIN«, t00=0x000b, t01=0x00ca}
0x1210…1238              Head {h00=0x0024, h01=0x0050, text=» PERF LAMPOF,=W'2047' LAMPS OFF «, t00=0x000b, t01=0x00ea}
0x1238…125a              Head {h00=0x001e, h01=0x0050, text=» PERF LAMPON,=W'2' LAMP 10«, t00=0x000b, t01=0x0112}
0x125a…1270              Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x000b, t01=0x0134}
0x1270…1294              Head {h00=0x0020, h01=0x0050, text=» ATTFMT SNDFRM SIGNON FORMAT«, t00=0x000b, t01=0x014a}
0x1294…12a8              Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRA«, t00=0x000b, t01=0x016e}
0x12a8…12cc              Head {h00=0x0020, h01=0x0050, text=» CBNE SPBINW2,CBIN3,CHNG000 «, t00=0x000b, t01=0x0182}
0x12cc…12e0              Head {h00=0x0010, h01=0x0050, text=» PERF SIGNON«, t00=0x000c, t01=0x0016}
0x12e0…12f6              Head {h00=0x0012, h01=0x0050, text=» BNOK CHNG000 «, t00=0x000c, t01=0x002a}
0x12f6…1314              Head {h00=0x001a, h01=0x0050, text=» PERF LAMPOF,=W'2047' «, t00=0x000c, t01=0x0040}
0x1314…1326              Head {h00=0x000e, h01=0x0050, text=» B CHNG000«, t00=0x000c, t01=0x005e}
0x1326…1336              Head {h00=0x000c, h01=0x0050, text=»CHSOP05 «, t00=0x000c, t01=0x0070}
0x1336…135e              Head {h00=0x0024, h01=0x0050, text=» PERF LAMPOF,=W'2047' LAMPS OFF «, t00=0x000c, t01=0x0080}
0x135e…1386              Head {h00=0x0024, h01=0x0050, text=» PERF ASGVOL,CBIN2 ASSIGN DISK 2«, t00=0x000c, t01=0x00a8}
0x1386…139a              Head {h00=0x0010, h01=0x0050, text=» BOK CHNG050«, t00=0x000c, t01=0x00d0}
0x139a…13b4              Head {h00=0x0016, h01=0x0050, text=» PERF LAMPON,=W'2'«, t00=0x000c, t01=0x00e4}
0x13b4…13c6              Head {h00=0x000e, h01=0x0050, text=» B CHNG000«, t00=0x000c, t01=0x00fe}
0x13c6…13d6              Head {h00=0x000c, h01=0x0050, text=»CHNG050 «, t00=0x000c, t01=0x0110}
0x13d6…13f8              Head {h00=0x001e, h01=0x0050, text=» PERF LAMPON,=W'64' LAMP 5«, t00=0x000c, t01=0x0120}
0x13f8…1418              Head {h00=0x001c, h01=0x0050, text=» CMP CBIN0,CBIN0 SET CR «, t00=0x000c, t01=0x0142}
0x1418…1424              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000c, t01=0x0162}
0x1424…143c              Head {h00=0x0014, h01=0x0050, text=»CHSOP06   SOP 6 «, t00=0x000c, t01=0x016e}
0x143c…1464              Head {h00=0x0024, h01=0x0050, text=» PERF LAMPOF,=W'2047' LAMPS OFF «, t00=0x000c, t01=0x0186}
0x1464…148c              Head {h00=0x0024, h01=0x0050, text=» PERF BCKUP,=W'1' WITHOUT BACKUP«, t00=0x000d, t01=0x001e}
0x148c…14a2              Head {h00=0x0012, h01=0x0050, text=» BNOK CHNG000 «, t00=0x000d, t01=0x0046}
0x14a2…14b4              Head {h00=0x000e, h01=0x0050, text=» B CHNG130«, t00=0x000d, t01=0x005c}
0x14b4…14c4              Head {h00=0x000c, h01=0x0050, text=»CHSOP07 «, t00=0x000d, t01=0x006e}
0x14c4…14ec              Head {h00=0x0024, h01=0x0050, text=» PERF LAMPOF,=W'2047' LAMPS OFF «, t00=0x000d, t01=0x007e}
0x14ec…1512              Head {h00=0x0022, h01=0x0050, text=» PERF BCKUP,=W'2' WITH BACKUP «, t00=0x000d, t01=0x00a6}
0x1512…1528              Head {h00=0x0012, h01=0x0050, text=» BNOK CHNG000 «, t00=0x000d, t01=0x00cc}
0x1528…153a              Head {h00=0x000e, h01=0x0050, text=» B CHNG130«, t00=0x000d, t01=0x00e2}
0x153a…154a              Head {h00=0x000c, h01=0x0050, text=»CHNG130 «, t00=0x000d, t01=0x00f4}
0x154a…1568              Head {h00=0x001a, h01=0x0050, text=» PERF LAMPOF,=W'2047' «, t00=0x000d, t01=0x0104}
0x1568…15a0              Head {h00=0x0034, h01=0x0050, text=» CMP CBIN0,CBIN1 INDICATE ERROR OR END OF TRANS «, t00=0x000d, t01=0x0122}
0x15a0…15ac              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000d, t01=0x015a}
0x15ac…15ba              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000d, t01=0x0166}
0x15ba…15c8              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0174}
0x15c8…15fa              Head {h00=0x002e, h01=0x0050, text=»******************************************«, t00=0x000d, t01=0x0182}
0x15fa…1604              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0024}
0x1604…1632              Head {h00=0x002a, h01=0x0050, text=»*         STRTRC - SEND OF STARTIDENT «, t00=0x000e, t01=0x002e}
0x1632…1654              Head {h00=0x001e, h01=0x0050, text=»*         AND CHECK REPLY «, t00=0x000e, t01=0x005c}
0x1654…165e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x007e}
0x165e…1692              Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x000e, t01=0x0088}
0x1692…16a6              Head {h00=0x0010, h01=0x0050, text=»STRTRC PROC «, t00=0x000e, t01=0x00bc}
0x16a6…16c4              Head {h00=0x001a, h01=0x0050, text=» PERF LAMPOF,=W'2047' «, t00=0x000e, t01=0x00d0}
0x16c4…16e0              Head {h00=0x0018, h01=0x0050, text=» PERF LAMPON,=W'64' «, t00=0x000e, t01=0x00ee}
0x16e0…16fc              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN6,CBIN1 «, t00=0x000e, t01=0x010a}
0x16fc…171a              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,=W'128' «, t00=0x000e, t01=0x0126}
0x171a…1752              Head {h00=0x0034, h01=0x0050, text=» PERF RAREAD,DK02,=D'2',CPCKBUF,GSWBIN1,GSWBIN6 «, t00=0x000e, t01=0x0144}
0x1752…1768              Head {h00=0x0012, h01=0x0050, text=» BNOK STRTRET «, t00=0x000e, t01=0x017c}
0x1768…179a (15, 0, 400) Head {h00=0x002e, h01=0x0050, text=» CBE GTWBCD1,=D'4',STRTRET RECORD DELETED?«, t00=0x000f, t01=0x0004}
0x179a…17ba              Head {h00=0x001c, h01=0x0050, text=» PERF WRITID,CBIN5,CBIN1«, t00=0x000f, t01=0x0036}
0x17ba…17d6              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN6,CBIN0 «, t00=0x000f, t01=0x0056}
0x17d6…17f2              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,=W'40'«, t00=0x000f, t01=0x0072}
0x17f2…180e              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR20,=' ' «, t00=0x000f, t01=0x008e}
0x180e…1844              Head {h00=0x0032, h01=0x0050, text=» COPY CPCKBUF,GSWBIN1,CBIN20,GSWSTR20,GSWBIN6 «, t00=0x000f, t01=0x00aa}
0x1844…1860              Head {h00=0x0018, h01=0x0050, text=» MOVE CTRANBUF,=' ' «, t00=0x000f, t01=0x00e0}
0x1860…187e              Head {h00=0x001a, h01=0x0050, text=» EDIT CTRANBUF,SNDFRM2«, t00=0x000f, t01=0x00fc}
0x187e…18a2              Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBIN2,=W'31' LENGTH «, t00=0x000f, t01=0x011a}
0x18a2…18c2              Head {h00=0x001c, h01=0x0050, text=» PERF EXCHAN EXCHANGE DC«, t00=0x000f, t01=0x013e}
0x18c2…18d8              Head {h00=0x0012, h01=0x0050, text=» BNOK STRTRET «, t00=0x000f, t01=0x015e}
0x18d8…18f8              Head {h00=0x001c, h01=0x0050, text=» PERF TRNOK CHECK IF OK «, t00=0x000f, t01=0x0174}
0x18f8…190e (16, 0, 400) Head {h00=0x0012, h01=0x0050, text=» BNOK STRTRET «, t00=0x0010, t01=0x0004}
0x190e…192e              Head {h00=0x001c, h01=0x0050, text=» CMP CBIN0,CBIN0 SET CR «, t00=0x0010, t01=0x001a}
0x192e…193a              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0010, t01=0x003a}
0x193a…194a              Head {h00=0x000c, h01=0x0050, text=»STRTRET «, t00=0x0010, t01=0x0046}
0x194a…1962              Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN1«, t00=0x0010, t01=0x0056}
0x1962…196e              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0010, t01=0x006e}
0x196e…197c              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0010, t01=0x007a}
0x197c…198a              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0088}
0x198a…19c0              Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0010, t01=0x0096}
0x19c0…19ca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00cc}
0x19ca…19fc              Head {h00=0x002e, h01=0x0050, text=»*         SENDRC - SEND BATCH UNTIL SLUTID«, t00=0x0010, t01=0x00d6}
0x19fc…1a06              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0108}
0x1a06…1a3c              Head {h00=0x0032, h01=0x0050, text=»**********************************************«, t00=0x0010, t01=0x0112}
0x1a3c…1a50              Head {h00=0x0010, h01=0x0050, text=»SENDRC PROC «, t00=0x0010, t01=0x0148}
0x1a50…1a6a              Head {h00=0x0016, h01=0x0050, text=» MOVE CRECNR,CBIN1«, t00=0x0010, t01=0x015c}
0x1a6a…1a78              Head {h00=0x000a, h01=0x0050, text=»SND005«, t00=0x0010, t01=0x0176}
0x1a78…1aa0              Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBIN3,CBIN0 PACKPOINTER «, t00=0x0010, t01=0x0184}
0x1aa0…1aae              Head {h00=0x000a, h01=0x0050, text=»SND010«, t00=0x0011, t01=0x001c}
0x1aae…1ac8              Head {h00=0x0016, h01=0x0050, text=» ADD CRECNR,CBIN1 «, t00=0x0011, t01=0x002a}
0x1ac8…1ae6              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,=W'128' «, t00=0x0011, t01=0x0044}
0x1ae6…1b1c              Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK02,=D'2',CPCKBUF,GSWBIN1,CRECNR«, t00=0x0011, t01=0x0062}
0x1b1c…1b30              Head {h00=0x0010, h01=0x0050, text=» BNOK SNDERR«, t00=0x0011, t01=0x0098}
0x1b30…1b4a              Head {h00=0x0016, h01=0x0050, text=» CMP GTWBCD1,=D'4'«, t00=0x0011, t01=0x00ac}
0x1b4a…1b5e              Head {h00=0x0010, h01=0x0050, text=» BNE SND012 «, t00=0x0011, t01=0x00c6}
0x1b5e…1b84              Head {h00=0x0022, h01=0x0050, text=» MOVE CPCKBUF,=C'SLUTD00000 ' «, t00=0x0011, t01=0x00da}
0x1b84…1ba2              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN3,CRECLGD «, t00=0x0011, t01=0x0100}
0x1ba2…1bb0              Head {h00=0x000a, h01=0x0050, text=»SND012«, t00=0x0011, t01=0x011e}
0x1bb0…1bd0              Head {h00=0x001c, h01=0x0050, text=» MOVE GSWSTR20,=C'SLUTD'«, t00=0x0011, t01=0x012c}
0x1bd0…1bec              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x0011, t01=0x014c}
0x1bec…1c26              Head {h00=0x0036, h01=0x0050, text=» MATCH GSWSTR20,GSWBIN5,CBIN5,CPCKBUF,CBIN0,CBIN5 «, t00=0x0011, t01=0x0168}
0x1c26…1c3a              Head {h00=0x0010, h01=0x0050, text=» BE SNDSLUT «, t00=0x0012, t01=0x0012}
0x1c3a…1c62              Head {h00=0x0024, h01=0x0050, text=» MOVE GSWSTR9,=X'7F' FIND LENGTH«, t00=0x0012, t01=0x0026}
0x1c62…1c70              Head {h00=0x000a, h01=0x0050, text=»SND015«, t00=0x0012, t01=0x004e}
0x1c70…1c8c              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN4,CBIN0 «, t00=0x0012, t01=0x005c}
0x1c8c…1caa              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'128' «, t00=0x0012, t01=0x0078}
0x1caa…1ce4              Head {h00=0x0036, h01=0x0050, text=» MATCH CPCKBUF,GSWBIN4,GSWBIN5,GSWSTR9,CBIN0,CBIN1«, t00=0x0012, t01=0x0096}
0x1ce4…1cf6              Head {h00=0x000e, h01=0x0050, text=» BE SND020«, t00=0x0012, t01=0x00d0}
0x1cf6…1d12              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR9,=X'21'«, t00=0x0012, t01=0x00e2}
0x1d12…1d24              Head {h00=0x000e, h01=0x0050, text=» B SND015 «, t00=0x0012, t01=0x00fe}
0x1d24…1d32              Head {h00=0x000a, h01=0x0050, text=»SND020«, t00=0x0012, t01=0x0110}
0x1d32…1d60              Head {h00=0x002a, h01=0x0050, text=» ADD GSWBIN4,GSWBIN3 SEE IF MORE SPACE«, t00=0x0012, t01=0x011e}
0x1d60…1d84              Head {h00=0x0020, h01=0x0050, text=» CBNG GSWBIN4,=W'504',SND030«, t00=0x0012, t01=0x014c}
0x1d84…1dac              Head {h00=0x0024, h01=0x0050, text=» SUB CRECNR,CBIN1 NO MORE SPACE «, t00=0x0012, t01=0x0170}
0x1dac…1dca              Head {h00=0x001a, h01=0x0050, text=» B SND040 SEND BUFFER «, t00=0x0013, t01=0x0008}
0x1dca…1dd8              Head {h00=0x000a, h01=0x0050, text=»SND030«, t00=0x0013, t01=0x0026}
0x1dd8…1dfc              Head {h00=0x0020, h01=0x0050, text=» SUB GSWBIN4,GSWBIN3 RESTORE«, t00=0x0013, t01=0x0034}
0x1dfc…1e26              Head {h00=0x0026, h01=0x0050, text=» ADD GSWBIN4,CBIN1 FILL WITH X'00'«, t00=0x0013, t01=0x0058}
0x1e26…1e4a              Head {h00=0x0020, h01=0x0050, text=» CBE GSWBIN4,=W'128',SND037 «, t00=0x0013, t01=0x0082}
0x1e4a…1e68              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR20,=X'00' «, t00=0x0013, t01=0x00a6}
0x1e68…1e86              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'128' «, t00=0x0013, t01=0x00c4}
0x1e86…1e94              Head {h00=0x000a, h01=0x0050, text=»SND035«, t00=0x0013, t01=0x00e2}
0x1e94…1ec8              Head {h00=0x0030, h01=0x0050, text=» INSRT CPCKBUF,GSWBIN4,CBIN20,GSWSTR20,CBIN0«, t00=0x0013, t01=0x00f0}
0x1ec8…1ee4              Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN5,CBIN20 «, t00=0x0013, t01=0x0124}
0x1ee4…1f1c              Head {h00=0x0034, h01=0x0050, text=» CBG GSWBIN5,GSWBIN4,SND035 ALL TRAILING FILLED «, t00=0x0013, t01=0x0140}
0x1f1c…1f2a              Head {h00=0x000a, h01=0x0050, text=»SND037«, t00=0x0013, t01=0x0178}
0x1f2a…1f60              Head {h00=0x0032, h01=0x0050, text=» EDSUB CTRANBUF,GSWBIN3,SNDFRM5 INSERT RECORD «, t00=0x0013, t01=0x0186}
0x1f60…1f7c              Head {h00=0x0018, h01=0x0050, text=» B SND010 READ NEXT «, t00=0x0014, t01=0x002c}
0x1f7c…1f8a              Head {h00=0x000a, h01=0x0050, text=»SND040«, t00=0x0014, t01=0x0048}
0x1f8a…1fa8              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN2,GSWBIN3 «, t00=0x0014, t01=0x0056}
0x1fa8…1fc4              Head {h00=0x0018, h01=0x0050, text=» MOVE GTWBCD2,CRECNR«, t00=0x0014, t01=0x0074}
0x1fc4…1ff4              Head {h00=0x002c, h01=0x0050, text=» PERF SPLIN8,CBIN10,CBIN3 DISPLAY RECNR «, t00=0x0014, t01=0x0090}
0x1ff4…2008              Head {h00=0x0010, h01=0x0050, text=» PERF EXCHAN«, t00=0x0014, t01=0x00c0}
0x2008…201c              Head {h00=0x0010, h01=0x0050, text=» BNOK SNDERR«, t00=0x0014, t01=0x00d4}
0x201c…2030              Head {h00=0x0010, h01=0x0050, text=» PERF TRNOK «, t00=0x0014, t01=0x00e8}
0x2030…2044              Head {h00=0x0010, h01=0x0050, text=» BNOK SNDERR«, t00=0x0014, t01=0x00fc}
0x2044…2056              Head {h00=0x000e, h01=0x0050, text=» B SND005 «, t00=0x0014, t01=0x0110}
0x2056…2066              Head {h00=0x000c, h01=0x0050, text=»SNDSLUT «, t00=0x0014, t01=0x0122}
0x2066…2096              Head {h00=0x002c, h01=0x0050, text=» CBE GSWBIN3,CBIN0,SND090 REQ.LGTH.=0 ? «, t00=0x0014, t01=0x0132}
0x2096…20b4              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN2,GSWBIN3 «, t00=0x0014, t01=0x0162}
0x20b4…20d4              Head {h00=0x001c, h01=0x0050, text=» PERF EXCHAN EXCHANGE DC«, t00=0x0014, t01=0x0180}
0x20d4…20e8              Head {h00=0x0010, h01=0x0050, text=» BNOK SNDERR«, t00=0x0015, t01=0x0010}
0x20e8…20fc              Head {h00=0x0010, h01=0x0050, text=» PERF TRNOK «, t00=0x0015, t01=0x0024}
0x20fc…2110              Head {h00=0x0010, h01=0x0050, text=» BNOK SNDERR«, t00=0x0015, t01=0x0038}
0x2110…211e              Head {h00=0x000a, h01=0x0050, text=»SND090«, t00=0x0015, t01=0x004c}
0x211e…213a              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN3,CBIN0 «, t00=0x0015, t01=0x005a}
0x213a…2156              Head {h00=0x0018, h01=0x0050, text=» MOVE CTRANBUF,=' ' «, t00=0x0015, t01=0x0076}
0x2156…217e              Head {h00=0x0024, h01=0x0050, text=» EDSUB CTRANBUF,GSWBIN3,SNDFRM5 «, t00=0x0015, t01=0x0092}
0x217e…219a              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN18«, t00=0x0015, t01=0x00ba}
0x219a…21ae              Head {h00=0x0010, h01=0x0050, text=» PERF EXCHAN«, t00=0x0015, t01=0x00d6}
0x21ae…21c2              Head {h00=0x0010, h01=0x0050, text=» BNOK SNDERR«, t00=0x0015, t01=0x00ea}
0x21c2…21e2              Head {h00=0x001c, h01=0x0050, text=» PERF WRITID,CBIN5,CBIN2«, t00=0x0015, t01=0x00fe}
0x21e2…2202              Head {h00=0x001c, h01=0x0050, text=» PERF WJDC PRINT ANSWER «, t00=0x0015, t01=0x011e}
0x2202…2220              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR9,=C'0002'«, t00=0x0015, t01=0x013e}
0x2220…223c              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN0 «, t00=0x0015, t01=0x015c}
0x223c…2258              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,=W'52'«, t00=0x0015, t01=0x0178}
0x2258…2294 (22, 0, 400) Head {h00=0x0038, h01=0x0050, text=» MATCH CTRANBUF,GSWBIN1,GSWBIN2,GSWSTR9,CBIN0,CBIN4 «, t00=0x0016, t01=0x0004}
0x2294…22a8              Head {h00=0x0010, h01=0x0050, text=» BNE SNDERR «, t00=0x0016, t01=0x0040}
0x22a8…22b8              Head {h00=0x000c, h01=0x0050, text=»SNDSL10 «, t00=0x0016, t01=0x0054}
0x22b8…22d0              Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0016, t01=0x0064}
0x22d0…22dc              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0016, t01=0x007c}
0x22dc…22ea              Head {h00=0x000a, h01=0x0050, text=»SNDERR«, t00=0x0016, t01=0x0088}
0x22ea…2302              Head {h00=0x0014, h01=0x0050, text=» CMP CBIN1,CBIN0«, t00=0x0016, t01=0x0096}
0x2302…230e              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0016, t01=0x00ae}
0x230e…231c              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0016, t01=0x00ba}
0x231c…232a              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x00c8}
0x232a…235e              Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x0016, t01=0x00d6}
0x235e…2368              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x010a}
0x2368…23aa              Head {h00=0x003e, h01=0x0050, text=»*         TERMIN - TERMINATE TRANSMISSION IN CASE OF ERROR«, t00=0x0016, t01=0x0114}
0x23aa…23b4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0156}
0x23b4…23e8              Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x0016, t01=0x0160}
0x23e8…23fc (23, 0, 400) Head {h00=0x0010, h01=0x0050, text=»TERMIN PROC «, t00=0x0017, t01=0x0004}
0x23fc…2418              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN3,CBIN0 «, t00=0x0017, t01=0x0018}
0x2418…2434              Head {h00=0x0018, h01=0x0050, text=» MOVE CTRANBUF,=' ' «, t00=0x0017, t01=0x0034}
0x2434…2458              Head {h00=0x0020, h01=0x0050, text=» MOVE CPCKBUF,=C'TERMINATE '«, t00=0x0017, t01=0x0050}
0x2458…2474              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN3,CBIN0 «, t00=0x0017, t01=0x0074}
0x2474…249c              Head {h00=0x0024, h01=0x0050, text=» EDSUB CTRANBUF,GSWBIN3,SNDFRM2 «, t00=0x0017, t01=0x0090}
0x249c…24b8              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN14«, t00=0x0017, t01=0x00b8}
0x24b8…24d8              Head {h00=0x001c, h01=0x0050, text=» PERF EXCHAN EXCHANGE DC«, t00=0x0017, t01=0x00d4}
0x24d8…24ee              Head {h00=0x0012, h01=0x0050, text=» BNOK TERMRET «, t00=0x0017, t01=0x00f4}
0x24ee…2500              Head {h00=0x000e, h01=0x0050, text=» PERF WJDC«, t00=0x0017, t01=0x010a}
0x2500…2510              Head {h00=0x000c, h01=0x0050, text=»TERMRET «, t00=0x0017, t01=0x011c}
0x2510…251c              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0017, t01=0x012c}
0x251c…252a              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0017, t01=0x0138}
0x252a…2538              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x0146}
0x2538…256e              Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0017, t01=0x0154}
0x256e…2578              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x018a}
0x2578…2592 (24, 0, 400) Head {h00=0x0016, h01=0x0050, text=»*         SIGNOFF «, t00=0x0018, t01=0x0004}
0x2592…259c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x001e}
0x259c…25d2              Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0018, t01=0x0028}
0x25d2…25e6              Head {h00=0x0010, h01=0x0050, text=»SIGNOF PROC «, t00=0x0018, t01=0x005e}
0x25e6…2602              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN3,CBIN0 «, t00=0x0018, t01=0x0072}
0x2602…261e              Head {h00=0x0018, h01=0x0050, text=» MOVE CTRANBUF,=' ' «, t00=0x0018, t01=0x008e}
0x261e…263e              Head {h00=0x001c, h01=0x0050, text=» MOVE CPCKBUF,=C'CSSF ' «, t00=0x0018, t01=0x00aa}
0x263e…2666              Head {h00=0x0024, h01=0x0050, text=» EDSUB CTRANBUF,GSWBIN3,SNDFRM2 «, t00=0x0018, t01=0x00ca}
0x2666…2682              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN9 «, t00=0x0018, t01=0x00f2}
0x2682…2696              Head {h00=0x0010, h01=0x0050, text=» PERF EXCHAN«, t00=0x0018, t01=0x010e}
0x2696…26ac              Head {h00=0x0012, h01=0x0050, text=» BNOK SIGOFRET«, t00=0x0018, t01=0x0122}
0x26ac…26cc              Head {h00=0x001c, h01=0x0050, text=» PERF WJDC PRINT ANSWER «, t00=0x0018, t01=0x0138}
0x26cc…26dc              Head {h00=0x000c, h01=0x0050, text=»SIGOFRET«, t00=0x0018, t01=0x0158}
0x26dc…26e8              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0018, t01=0x0168}
0x26e8…26f6              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0018, t01=0x0174}
0x26f6…2704              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x0182}
0x2704…273a              Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0018, t01=0x0190}
0x273a…2762              Head {h00=0x0024, h01=0x0050, text=»*           EXCHAN - EXCHANGE DC«, t00=0x0019, t01=0x0036}
0x2762…2792              Head {h00=0x002c, h01=0x0050, text=»*         IN CASE OF ERROR ERRORMESSAGE «, t00=0x0019, t01=0x005e}
0x2792…27c2              Head {h00=0x002c, h01=0x0050, text=»*         IS SHOWN ON SCREEN AND JOURNAL«, t00=0x0019, t01=0x008e}
0x27c2…27f8              Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0019, t01=0x00be}
0x27f8…280c              Head {h00=0x0010, h01=0x0050, text=»EXCHAN PROC «, t00=0x0019, t01=0x00f4}
0x280c…281a              Head {h00=0x000a, h01=0x0050, text=»EXCH10«, t00=0x0019, t01=0x0108}
0x281a…2836              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN1 «, t00=0x0019, t01=0x0116}
0x2836…2854              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,=W'504' «, t00=0x0019, t01=0x0132}
0x2854…2880              Head {h00=0x0028, h01=0x0050, text=» DCREAD DCOMM,CDUM0,GSWBIN1,GSWBIN5 «, t00=0x0019, t01=0x0150}
0x2880…28bc              Head {h00=0x0038, h01=0x0050, text=»* IN ORDER TO AVOID SHIT FROM VTAM, EVERYTHING WHICH«, t00=0x0019, t01=0x017c}
0x28bc…28f8              Head {h00=0x0038, h01=0x0050, text=»* WE HAVE NOT ASKED FOR, IS THROWN AWAY. IF THERE IS«, t00=0x001a, t01=0x0028}
0x28f8…292c              Head {h00=0x0030, h01=0x0050, text=»* NO MORE SHIT, "DCREAD" WILL RETURN NOT-OK «, t00=0x001a, t01=0x0064}
0x292c…294a              Head {h00=0x001a, h01=0x0050, text=» BOK EXCH10 MORE SHIT «, t00=0x001a, t01=0x0098}
0x294a…2976              Head {h00=0x0028, h01=0x0050, text=» MOVE GSWBIN5,=W'600' TIMEOUT VALUE «, t00=0x001a, t01=0x00b6}
0x2976…29a6              Head {h00=0x002c, h01=0x0050, text=» DCWRITE DCOMM,CTRANBUF,GSWBIN2,GSWBIN5 «, t00=0x001a, t01=0x00e2}
0x29a6…29bc              Head {h00=0x0012, h01=0x0050, text=» BNOK EXCHNOK «, t00=0x001a, t01=0x0112}
0x29bc…29da              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN2,=W'504' «, t00=0x001a, t01=0x0128}
0x29da…29f8              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN5,=W'600' «, t00=0x001a, t01=0x0146}
0x29f8…2a26              Head {h00=0x002a, h01=0x0050, text=» DCREAD DCOMM,CTRANBUF,GSWBIN2,GSWBIN5«, t00=0x001a, t01=0x0164}
0x2a26…2a3a (27, 0, 398) Head {h00=0x0010, h01=0x0050, text=» BOK EXCHRET«, t00=0x001b, t01=0x0004}
0x2a3a…2a4a              Head {h00=0x000c, h01=0x0050, text=»EXCHNOK «, t00=0x001b, t01=0x0018}
0x2a4a…2a74              Head {h00=0x0026, h01=0x0050, text=» PERF GETBIT,DCOMM FETCH ERRORCODE«, t00=0x001b, t01=0x0028}
0x2a74…2a90              Head {h00=0x0018, h01=0x0050, text=» MOVE SPBINW4,CBIN21«, t00=0x001b, t01=0x0052}
0x2a90…2aac              Head {h00=0x0018, h01=0x0050, text=» MOVE GTWBCD2,=D'60'«, t00=0x001b, t01=0x006e}
0x2aac…2ad0              Head {h00=0x0020, h01=0x0050, text=» MOVE GSWSTR9,=C'TRANSMIT ' «, t00=0x001b, t01=0x008a}
0x2ad0…2ae4              Head {h00=0x0010, h01=0x0050, text=» PERF SPERR «, t00=0x001b, t01=0x00ae}
0x2ae4…2b00              Head {h00=0x0018, h01=0x0050, text=» PERF WRITJT,=W'14' «, t00=0x001b, t01=0x00c2}
0x2b00…2b18              Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN1«, t00=0x001b, t01=0x00de}
0x2b18…2b24              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001b, t01=0x00f6}
0x2b24…2b34              Head {h00=0x000c, h01=0x0050, text=»EXCHRET «, t00=0x001b, t01=0x0102}
0x2b34…2b4c              Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x001b, t01=0x0112}
0x2b4c…2b58              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001b, t01=0x012a}
0x2b58…2b66              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001b, t01=0x0136}
0x2b66…2b74              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x0144}
0x2b74…2baa              Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x001b, t01=0x0152}
0x2baa…2bb4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0188}
0x2bb4…2bee (28, 0, 400) Head {h00=0x0036, h01=0x0050, text=»*       TRNOK - CHECK IF MESSAGE CORRECT RECIEVED «, t00=0x001c, t01=0x0004}
0x2bee…2bf8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x003e}
0x2bf8…2c2e              Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x001c, t01=0x0048}
0x2c2e…2c40              Head {h00=0x000e, h01=0x0050, text=»TRNOK PROC«, t00=0x001c, t01=0x007e}
0x2c40…2c5c              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN3,CBIN0 «, t00=0x001c, t01=0x0090}
0x2c5c…2c7c              Head {h00=0x001c, h01=0x0050, text=» MOVE GSWSTR9,=X'1B3543'«, t00=0x001c, t01=0x00ac}
0x2c7c…2cb8              Head {h00=0x0038, h01=0x0050, text=» MATCH CTRANBUF,GSWBIN3,GSWBIN2,GSWSTR9,CBIN0,CBIN3 «, t00=0x001c, t01=0x00cc}
0x2cb8…2ccc              Head {h00=0x0010, h01=0x0050, text=» BNE TRNERR «, t00=0x001c, t01=0x0108}
0x2ccc…2ce8              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN0 «, t00=0x001c, t01=0x011c}
0x2ce8…2d04              Head {h00=0x0018, h01=0x0050, text=» MOVE CTRANBUF,=' ' «, t00=0x001c, t01=0x0138}
0x2d04…2d1c              Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x001c, t01=0x0154}
0x2d1c…2d28              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001c, t01=0x016c}
0x2d28…2d36              Head {h00=0x000a, h01=0x0050, text=»TRNERR«, t00=0x001c, t01=0x0178}
0x2d36…2d52              Head {h00=0x0018, h01=0x0050, text=» MOVE GTWBCD2,=D'60'«, t00=0x001c, t01=0x0186}
0x2d52…2d76              Head {h00=0x0020, h01=0x0050, text=» MOVE GSWSTR9,=C'TRANSMIT ' «, t00=0x001d, t01=0x0012}
0x2d76…2d92              Head {h00=0x0018, h01=0x0050, text=» MOVE GTWBCD1,=D'50'«, t00=0x001d, t01=0x0036}
0x2d92…2da6              Head {h00=0x0010, h01=0x0050, text=» PERF SPERR «, t00=0x001d, t01=0x0052}
0x2da6…2dc2              Head {h00=0x0018, h01=0x0050, text=» PERF WRITJT,=W'14' «, t00=0x001d, t01=0x0066}
0x2dc2…2dda              Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN1«, t00=0x001d, t01=0x0082}
0x2dda…2de6              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001d, t01=0x009a}
0x2de6…2df4              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001d, t01=0x00a6}
0x2df4…2e02              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x00b4}
0x2e02…2e3c              Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x001d, t01=0x00c2}
0x2e3c…2e46              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00fc}
0x2e46…2e7c              Head {h00=0x0032, h01=0x0050, text=»*    WJDC - PRINT RECEIVED MESSAGE ON JOURNAL «, t00=0x001d, t01=0x0106}
0x2e7c…2e86              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x013c}
0x2e86…2ec0              Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x001d, t01=0x0146}
0x2ec0…2ed2              Head {h00=0x000e, h01=0x0050, text=»WJDC PROC «, t00=0x001d, t01=0x0180}
0x2ed2…2ee6 (30, 0, 400) Head {h00=0x0010, h01=0x0050, text=» WAIT KTALLY«, t00=0x001e, t01=0x0004}
0x2ee6…2f08              Head {h00=0x001e, h01=0x0050, text=» CBL GSWBIN2,CBIN1,WJDCRET«, t00=0x001e, t01=0x0018}
0x2f08…2f2c              Head {h00=0x0020, h01=0x0050, text=» CBG GSWBIN2,=W'504',WJDCRET«, t00=0x001e, t01=0x003a}
0x2f2c…2f4a              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWSTR9,=C'DFH' «, t00=0x001e, t01=0x005e}
0x2f4a…2f66              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN0 «, t00=0x001e, t01=0x007c}
0x2f66…2fa2              Head {h00=0x0038, h01=0x0050, text=» MATCH CTRANBUF,GSWBIN1,GSWBIN2,GSWSTR9,CBIN0,CBIN3 «, t00=0x001e, t01=0x0098}
0x2fa2…2fc2              Head {h00=0x001c, h01=0x0050, text=» BE WJDC100 CICS MESSAGE«, t00=0x001e, t01=0x00d4}
0x2fc2…2fcc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00f4}
0x2fcc…2fee              Head {h00=0x001e, h01=0x0050, text=»*      APLICATION MESSAGE «, t00=0x001e, t01=0x00fe}
0x2fee…2ff8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0120}
0x2ff8…3014              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR9,=X'11'«, t00=0x001e, t01=0x012a}
0x3014…3030              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN1,CBIN0 «, t00=0x001e, t01=0x0146}
0x3030…306c              Head {h00=0x0038, h01=0x0050, text=» MATCH CTRANBUF,GSWBIN1,GSWBIN2,GSWSTR9,CBIN0,CBIN1 «, t00=0x001e, t01=0x0162}
0x306c…3080              Head {h00=0x0010, h01=0x0050, text=» BNE WJDCRET«, t00=0x001f, t01=0x000e}
0x3080…30ae              Head {h00=0x002a, h01=0x0050, text=»*                       GSWBIN1=START «, t00=0x001f, t01=0x0022}
0x30ae…30dc              Head {h00=0x002a, h01=0x0050, text=» ADD GSWBIN1,CBIN3 BYPASS SBA SEQUENSE«, t00=0x001f, t01=0x0050}
0x30dc…30fa              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN4,GSWBIN1 «, t00=0x001f, t01=0x007e}
0x30fa…3124              Head {h00=0x0026, h01=0x0050, text=» SUB GSWBIN2,GSWBIN4 ADJUST LENGTH«, t00=0x001f, t01=0x009c}
0x3124…3146              Head {h00=0x001e, h01=0x0050, text=» CBL GSWBIN2,CBIN1,WJDCRET«, t00=0x001f, t01=0x00c6}
0x3146…3156              Head {h00=0x000c, h01=0x0050, text=»WJDC005 «, t00=0x001f, t01=0x00e8}
0x3156…3172              Head {h00=0x0018, h01=0x0050, text=» MOVE CPCKBUF,=X'00'«, t00=0x001f, t01=0x00f8}
0x3172…31ae              Head {h00=0x0038, h01=0x0050, text=» MATCH CTRANBUF,GSWBIN4,GSWBIN2,GSWSTR9,CBIN0,CBIN1 «, t00=0x001f, t01=0x0114}
0x31ae…31c2              Head {h00=0x0010, h01=0x0050, text=» BNE WJDC200«, t00=0x001f, t01=0x0150}
0x31c2…31f0              Head {h00=0x002a, h01=0x0050, text=» SUB GSWBIN4,GSWBIN1 GSWBIN4 = LENGTH «, t00=0x001f, t01=0x0164}
0x31f0…3224 (32, 0, 400) Head {h00=0x0030, h01=0x0050, text=» COPY CPCKBUF,CBIN0,GSWBIN4,CTRANBUF,GSWBIN1«, t00=0x0020, t01=0x0004}
0x3224…3242              Head {h00=0x001a, h01=0x0050, text=» EDWRT KJTAPE,WJDCFRM «, t00=0x0020, t01=0x0038}
0x3242…325c              Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN4,CBIN3«, t00=0x0020, t01=0x0056}
0x325c…3278              Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN2,GSWBIN4«, t00=0x0020, t01=0x0070}
0x3278…3294              Head {h00=0x0018, h01=0x0050, text=» ADD GSWBIN4,GSWBIN1«, t00=0x0020, t01=0x008c}
0x3294…32b2              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,GSWBIN4 «, t00=0x0020, t01=0x00a8}
0x32b2…32d4              Head {h00=0x001e, h01=0x0050, text=» CBG GSWBIN2,CBIN3,WJDC005«, t00=0x0020, t01=0x00c6}
0x32d4…32e6              Head {h00=0x000e, h01=0x0050, text=» B WJDCRET«, t00=0x0020, t01=0x00e8}
0x32e6…32f0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00fa}
0x32f0…32fa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0104}
0x32fa…3304              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x010e}
0x3304…3314              Head {h00=0x000c, h01=0x0050, text=»WJDC100 «, t00=0x0020, t01=0x0118}
0x3314…3330              Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN2,GSWBIN1«, t00=0x0020, t01=0x0128}
0x3330…3354              Head {h00=0x0020, h01=0x0050, text=» CBL GSWBIN2,=W'52',WJDC200 «, t00=0x0020, t01=0x0144}
0x3354…337c              Head {h00=0x0024, h01=0x0050, text=» MOVE GSWBIN4,=W'30' FIND BLANK «, t00=0x0020, t01=0x0168}
0x337c…3384              Head {h00=0x0004, h01=0x0050, t00=0x0020, t01=0x0190}
0x3384…33c0              Head {h00=0x0038, h01=0x0050, text=» MATCH CTRANBUF,GSWBIN4,GSWBIN2,CBLANKS,CBIN0,CBIN1 «, t00=0x0021, t01=0x0008}
0x33c0…33d4              Head {h00=0x0010, h01=0x0050, text=» BNE WJDC200«, t00=0x0021, t01=0x0044}
0x33d4…33f0              Head {h00=0x0018, h01=0x0050, text=» MOVE CPCKBUF,=X'00'«, t00=0x0021, t01=0x0058}
0x33f0…340c              Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN4,GSWBIN1«, t00=0x0021, t01=0x0074}
0x340c…3440              Head {h00=0x0030, h01=0x0050, text=» COPY CPCKBUF,CBIN0,GSWBIN4,CTRANBUF,GSWBIN1«, t00=0x0021, t01=0x0090}
0x3440…345e              Head {h00=0x001a, h01=0x0050, text=» EDWRT KJTAPE,WJDCFRM «, t00=0x0021, t01=0x00c4}
0x345e…347a              Head {h00=0x0018, h01=0x0050, text=» SUB GSWBIN2,GSWBIN4«, t00=0x0021, t01=0x00e2}
0x347a…3496              Head {h00=0x0018, h01=0x0050, text=» ADD GSWBIN1,GSWBIN4«, t00=0x0021, t01=0x00fe}
0x3496…34a6              Head {h00=0x000c, h01=0x0050, text=»WJDC200 «, t00=0x0021, t01=0x011a}
0x34a6…34c2              Head {h00=0x0018, h01=0x0050, text=» MOVE CPCKBUF,=X'00'«, t00=0x0021, t01=0x012a}
0x34c2…34e6              Head {h00=0x0020, h01=0x0050, text=» CBL GSWBIN2,=W'52',WJDC210 «, t00=0x0021, t01=0x0146}
0x34e6…3502              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,=W'52'«, t00=0x0021, t01=0x016a}
0x3502…3512              Head {h00=0x000c, h01=0x0050, text=»WJDC210 «, t00=0x0021, t01=0x0186}
0x3512…3546              Head {h00=0x0030, h01=0x0050, text=» COPY CPCKBUF,CBIN0,GSWBIN2,CTRANBUF,GSWBIN1«, t00=0x0022, t01=0x0008}
0x3546…3564              Head {h00=0x001a, h01=0x0050, text=» EDWRT KJTAPE,WJDCFRM «, t00=0x0022, t01=0x003c}
0x3564…3574              Head {h00=0x000c, h01=0x0050, text=»WJDCRET «, t00=0x0022, t01=0x005a}
0x3574…3580              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0022, t01=0x006a}
0x3580…358e              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0022, t01=0x0076}
0x358e…359c              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x0084}
0x359c…35d4              Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0022, t01=0x0092}
0x35d4…35de              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00ca}
0x35de…35fc              Head {h00=0x001a, h01=0x0050, text=»*         FORMATS USED«, t00=0x0022, t01=0x00d4}
0x35fc…3606              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00f2}
0x3606…363e              Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x0022, t01=0x00fc}
0x363e…3648              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0134}
0x3648…365c              Head {h00=0x0010, h01=0x0050, text=»SNDFRM FRMT «, t00=0x0022, t01=0x013e}
0x365c…3668              Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0022, t01=0x0152}
0x3668…368c              Head {h00=0x0020, h01=0x0050, text=» FCOPY =C'DATATRANSMISSION '«, t00=0x0022, t01=0x015e}
0x368c…3698              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0022, t01=0x0182}
0x3698…36b4              Head {h00=0x0018, h01=0x0050, text=» FTEXT 'BRUGERNAVN' «, t00=0x0022, t01=0x018e}
0x36b4…36d6              Head {h00=0x001e, h01=0x0050, text=» FKI 12,MINL=1,MAXL=13,ME «, t00=0x0023, t01=0x001a}
0x36d6…3704              Head {h00=0x002a, h01=0x0050, text=» FMEL 'AAAAAAAAAAAAAAAAAAA9',TTCYKTOT «, t00=0x0023, t01=0x003c}
0x3704…3710              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0023, t01=0x006a}
0x3710…372a              Head {h00=0x0016, h01=0x0050, text=» FTEXT 'KENDEORD' «, t00=0x0023, t01=0x0076}
0x372a…374a              Head {h00=0x001c, h01=0x0050, text=» FKI 12,MINL=1,MAXL=4,ME«, t00=0x0023, t01=0x0090}
0x374a…3768              Head {h00=0x001a, h01=0x0050, text=» FMELI 'TTT9',TTARKSAV«, t00=0x0023, t01=0x00b0}
0x3768…377e              Head {h00=0x0012, h01=0x0050, text=» FILLR X'07',1«, t00=0x0023, t01=0x00ce}
0x377e…378c              Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0023, t01=0x00e4}
0x378c…3796              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00f2}
0x3796…37aa              Head {h00=0x0010, h01=0x0050, text=»SIGONF FRMT «, t00=0x0023, t01=0x00fc}
0x37aa…37be              Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0023, t01=0x0110}
0x37be…37d6              Head {h00=0x0014, h01=0x0050, text=» FTEXT X'272020'«, t00=0x0023, t01=0x0124}
0x37d6…37f0              Head {h00=0x0016, h01=0x0050, text=» FTEXT 'CSSN PS=' «, t00=0x0023, t01=0x013c}
0x37f0…380e              Head {h00=0x001a, h01=0x0050, text=» FMELI '9999',TTARKSAV«, t00=0x0023, t01=0x0156}
0x380e…3826              Head {h00=0x0014, h01=0x0050, text=» FTEXT ',NAME=' «, t00=0x0023, t01=0x0174}
0x3826…3854              Head {h00=0x002a, h01=0x0050, text=» FMEL 'AAAAAAAAAAAAAAAAAAA9',TTCYKTOT «, t00=0x0023, t01=0x018c}
0x3854…3862              Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0024, t01=0x002a}
0x3862…386c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0038}
0x386c…3880              Head {h00=0x0010, h01=0x0050, text=»SNDFRM2 FRMT«, t00=0x0024, t01=0x0042}
0x3880…3894              Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0024, t01=0x0056}
0x3894…38ac              Head {h00=0x0014, h01=0x0050, text=» FTEXT X'272020'«, t00=0x0024, t01=0x006a}
0x38ac…38c2              Head {h00=0x0012, h01=0x0050, text=» FCOPY CPCKBUF«, t00=0x0024, t01=0x0082}
0x38c2…38d0              Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0024, t01=0x0098}
0x38d0…38da              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00a6}
0x38da…38ee              Head {h00=0x0010, h01=0x0050, text=»SNDFRM3 FRMT«, t00=0x0024, t01=0x00b0}
0x38ee…3902              Head {h00=0x0010, h01=0x0050, text=» FILLR '1',2«, t00=0x0024, t01=0x00c4}
0x3902…3926              Head {h00=0x0020, h01=0x0050, text=» FCOPY =C'DATATRANSMISSION '«, t00=0x0024, t01=0x00d8}
0x3926…3934              Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0024, t01=0x00fc}
0x3934…393e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x010a}
0x393e…3952              Head {h00=0x0010, h01=0x0050, text=»SNDFRM5 FRMT«, t00=0x0024, t01=0x0114}
0x3952…3970              Head {h00=0x001a, h01=0x0050, text=» FBNZ GSWBIN3,SNDLAB10«, t00=0x0024, t01=0x0128}
0x3970…3984              Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0024, t01=0x0146}
0x3984…399c              Head {h00=0x0014, h01=0x0050, text=» FTEXT X'272020'«, t00=0x0024, t01=0x015a}
0x399c…39ac              Head {h00=0x000c, h01=0x0050, text=»SNDLAB10«, t00=0x0024, t01=0x0172}
0x39ac…39c4              Head {h00=0x0014, h01=0x0050, text=» FTEXT X'112020'«, t00=0x0024, t01=0x0182}
0x39c4…39da              Head {h00=0x0012, h01=0x0050, text=» FCOPY CPCKBUF«, t00=0x0025, t01=0x000a}
0x39da…39e8              Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0025, t01=0x0020}
0x39e8…39f2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x002e}
0x39f2…3a06              Head {h00=0x0010, h01=0x0050, text=»SNDFRM6 FRMT«, t00=0x0025, t01=0x0038}
0x3a06…3a12              Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0025, t01=0x004c}
0x3a12…3a34              Head {h00=0x001e, h01=0x0050, text=» FCOPY ='DATATRANSMISSION'«, t00=0x0025, t01=0x0058}
0x3a34…3a48              Head {h00=0x0010, h01=0x0050, text=» FILLR '?',1«, t00=0x0025, t01=0x007a}
0x3a48…3a54              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0025, t01=0x008e}
0x3a54…3a62              Head {h00=0x000a, h01=0x0050, text=» FKI 1«, t00=0x0025, t01=0x009a}
0x3a62…3a7c              Head {h00=0x0016, h01=0x0050, text=» FMEL 'B',TSWBCD2 «, t00=0x0025, t01=0x00a8}
0x3a7c…3a8a              Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0025, t01=0x00c2}
0x3a8a…3a94              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00d0}
0x3a94…3aa8              Head {h00=0x0010, h01=0x0050, text=»SNDFRM7 FRMT«, t00=0x0025, t01=0x00da}
0x3aa8…3ab4              Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0025, t01=0x00ee}
0x3ab4…3ada              Head {h00=0x0022, h01=0x0050, text=» FTEXT 'SEND DENNE DISKETTE?' «, t00=0x0025, t01=0x00fa}
0x3ada…3ae6              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0025, t01=0x0120}
0x3ae6…3af4              Head {h00=0x000a, h01=0x0050, text=» FKI 1«, t00=0x0025, t01=0x012c}
0x3af4…3b0e              Head {h00=0x0016, h01=0x0050, text=» FMEL 'B',TSWBCD2 «, t00=0x0025, t01=0x013a}
0x3b0e…3b1c              Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0025, t01=0x0154}
0x3b1c…3b26              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0162}
0x3b26…3b3a              Head {h00=0x0010, h01=0x0050, text=»WJDCFRM FRMT«, t00=0x0025, t01=0x016c}
0x3b3a…3b4e              Head {h00=0x0010, h01=0x0050, text=» FILLR ' ',2«, t00=0x0025, t01=0x0180}
0x3b4e…3b64 (38, 2, 66)  Head {h00=0x0012, h01=0x0050, text=» FCOPY CPCKBUF«, t00=0x0026, t01=0x0004}
0x3b64…3b72              Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0026, t01=0x001a}
0x3b72…3b7c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0028}
0x3b7c…3b88              Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0026, t01=0x0032}
0x3b88…3b8c              Head {h00=0x4004, h01=0x0000}
0x3b8c…3b90              00 26 00 3e                                                                                                                                                                                                                                       ┆ & >┆
0x3b90…3b98 (39, 1, 8)   20 04 00 00 00 27 00 04                                                                                                                                                                                                                           ┆     '  ┆
0x3b98…3be8 (40, 0, 400) 00 3b 00 02 00 3d 00 02 00 3f 00 03 00 41 00 03 00 44 00 03 00 47 00 04 00 4a 00 04 00 4e 00 04 00 52 00 04 00 56 00 04 00 5a 00 04 00 5e 00 04 00 62 00 04 00 66 00 04 00 6a 00 04 00 6e 00 04 00 72 00 04 00 76 00 04 00 7a 00 04 00 7e 00 05   ┆ ;   =   ?   A   D   G   J   N   R   V   Z   ^   b   f   j   n   r   v   z   ~  ┆
0x3be8…3c38              00 82 00 05 00 87 00 05 00 8c 00 06 00 91 00 06 00 97 00 06 00 9d 00 06 00 a3 00 06 00 a9 00 06 00 af 00 06 00 b5 00 07 00 bb 00 07 00 c2 00 07 00 c9 00 07 00 d0 00 07 00 d7 00 07 00 de 00 07 00 e5 00 08 00 ec 00 08 00 f4 00 09 00 fc 00 09   ┆                                                                                ┆
0x3c38…3c88              01 05 00 0a 01 0e 00 0a 01 18 00 0a 01 22 00 0b 01 2c 00 0b 01 37 00 0c 01 42 00 0c 01 4e 00 0c 01 5a 00 0d 01 66 00 0d 01 73 00 0d 01 80 00 0f 01 8d 00 0f 01 9c 00 10 01 ab 00 10 01 bb 00 11 01 cb 00 11 01 dc 00 11 01 ed 00 12 01 fe 00 12   ┆             "   ,   7   B   N   Z   f   s                                      ┆
0x3c88…3cd8              02 10 00 13 02 22 00 13 02 35 00 13 02 48 00 14 02 5b 00 14 02 6f 00 14 02 83 00 16 02 97 00 16 02 ad 00 16 02 c3 00 16 02 d9 00 16 02 ef 00 16 03 05 00 1a 03 1b 00 1a 03 35 00 1c 03 4f 00 1c 03 6b 00 1e 03 87 00 22 03 a5 00 23 03 c7 00 25   ┆     "   5   H   [   o                                   5   O   k     "   #   %┆
0x3cd8…3d28              03 ea 00 26 04 0f 00 2a 04 35 00 34 04 5f 00 39 04 93 00 3c 04 cc 00 5b 05 08 40 01 05 63 40 07 05 64 40 0f 05 6b 40 0f 05 7a 40 0f 05 89 40 0f 05 98 40 10 05 a7 40 14 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0c   ┆   &   * 5 4 _ 9   <   [  @  c@  d@  k@  z@   @   @   @                         ┆
0x3d28…3d78 (41, 0, 400) 05 b7 2b d2 21 6c 2d 3e 22 dd 2e 62 25 62 2e 82 26 07 f6 a1 54 6a 81 26 80 a0 ff de 90 96 81 43 00 0a 07 b7 28 04 00 01 07 80 28 04 00 01 f6 a1 37 22 80 a0 ff de 90 96 f6 a1 30 be 84 42 00 02 f6 a1 37 38 5f 1e 01 00 f6 a1 37 4c 07 82 a0 43   ┆  + !l->" .b%b. &   Tj &       C    (     (     7"        0  B    78_     7L   C┆
0x3d78…3dc8              00 0a 81 20 03 20 81 43 00 04 84 43 00 02 28 04 00 01 f0 3a 30 de 34 00 00 d9 10 0b 00 e3 10 0b 00 ee 10 0b 00 f9 10 0b 01 04 10 0c 01 0f 10 0c 01 1b 10 0c 01 27 10 0c 01 33 10 0d 01 3f 10 0d 01 4c 10 0d 01 59 10 0e 01 66 10 0e 01 74 10 0e   ┆       C   C  (    :0 4                              '   3   ?   L   Y   f   t  ┆
0x3dc8…3e18              01 82 10 0e 01 90 10 0f 01 9e 10 10 01 ad 10 11 01 bd 10 11 01 ce 10 11 01 df 10 11 01 f0 10 12 02 01 10 12 02 13 10 12 02 25 10 12 02 37 10 12 02 49 10 15 02 5b 10 15 02 70 00 02 00 00 00 02 00 02 00 09 00 04 00 1a 00 0d 00 1a 00 27 00 1d   ┆                                         %   7   I   [   p                   '  ┆
0x3e18…3e68              00 41 00 20 00 5e 00 27 00 7e 00 00 00 00 00 01 00 00 00 02 00 01 00 02 00 03 00 02 00 05 00 02 00 07 00 02 00 09 00 02 00 0b 00 02 00 0d 00 02 00 0f 00 02 00 11 00 02 00 13 00 02 00 15 00 02 00 17 00 02 00 19 00 02 00 1b 00 02 00 1d 00 02   ┆ A   ^ ' ~                                                                      ┆
0x3e68…3eb8              00 1f 00 02 00 21 00 02 00 23 00 02 00 25 00 02 00 27 00 02 00 29 00 02 00 2b 00 02 00 2d 00 02 00 2f 00 02 00 31 00 02 00 33 00 02 00 35 00 02 00 37 00 02 00 39 00 02 7f a0 00 84 44 00 30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05   ┆     !   #   %   '   )   +   -   /   1   3   5   7   9      D 0                 ┆
0x3eb8…3f08 (42, 0, 400) 00 3b 00 02 00 3d 00 02 00 3f 00 03 00 41 00 03 00 44 00 03 00 47 00 04 00 4a 00 04 00 4e 00 04 00 52 00 04 00 56 00 04 00 5a 00 04 00 5e 00 04 00 62 00 04 00 66 00 04 00 6a 00 04 00 6e 00 04 00 72 00 04 00 76 00 04 00 7a 00 04 00 7e 00 05   ┆ ;   =   ?   A   D   G   J   N   R   V   Z   ^   b   f   j   n   r   v   z   ~  ┆
0x3f08…3f58              00 82 00 05 00 87 00 05 00 8c 00 06 00 91 00 06 00 97 00 06 00 9d 00 06 00 a3 00 06 00 a9 00 06 00 af 00 06 00 b5 00 07 00 bb 00 07 00 c2 00 07 00 c9 00 07 00 d0 00 07 00 d7 00 07 00 de 00 07 00 e5 00 08 00 ec 00 08 00 f4 00 09 00 fc 00 09   ┆                                                                                ┆
0x3f58…3fa8              01 05 00 0a 01 0e 00 0a 01 18 00 0a 01 22 00 0b 01 2c 00 0b 01 37 00 0c 01 42 00 0c 01 4e 00 0c 01 5a 00 0d 01 66 00 0d 01 73 00 0d 01 80 00 0f 01 8d 00 0f 01 9c 00 10 01 ab 00 10 01 bb 00 11 01 cb 00 11 01 dc 00 11 01 ed 00 12 01 fe 00 12   ┆             "   ,   7   B   N   Z   f   s                                      ┆
0x3fa8…3ff8              02 10 00 13 02 22 00 13 02 35 00 13 02 48 00 14 02 5b 00 14 02 6f 00 14 02 83 00 16 02 97 00 16 02 ad 00 16 02 c3 00 16 02 d9 00 16 02 ef 00 16 03 05 00 1a 03 1b 00 1a 03 35 00 1c 03 4f 00 1c 03 6b 00 1e 03 87 00 22 03 a5 00 23 03 c7 00 25   ┆     "   5   H   [   o                                   5   O   k     "   #   %┆
0x3ff8…4048              03 ea 00 26 04 0f 00 2a 04 35 00 34 04 5f 00 39 04 93 00 3c 04 cc 00 5b 05 08 40 01 05 63 40 07 05 64 40 0f 05 6b 40 0f 05 7a 40 0f 05 89 40 0f 05 98 40 10 05 a7 40 14 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0c   ┆   &   * 5 4 _ 9   <   [  @  c@  d@  k@  z@   @   @   @                         ┆
0x4048…4098 (43, 0, 400) 05 b7 2b d2 21 6c 2d 3e 22 dd 2e 62 25 62 2e 82 26 07 f6 a1 00 00 81 26 80 a0 ff de 90 96 81 43 00 0a 07 b7 28 04 00 01 07 80 28 04 00 01 f6 a1 00 00 80 a0 ff de 90 96 f6 a1 00 00 84 42 00 02 f6 a1 00 00 5f 1e 01 00 f6 a1 00 00 07 82 a0 43   ┆  + !l->" .b%b. &      &       C    (     (                  B      _          C┆
0x4098…40e8              00 0a 81 20 03 20 81 43 00 04 84 43 00 02 28 04 00 01 f0 3a 30 de 34 00 00 d9 10 0b 00 e3 10 0b 00 ee 10 0b 00 f9 10 0b 01 04 10 0c 01 0f 10 0c 01 1b 10 0c 01 27 10 0c 01 33 10 0d 01 3f 10 0d 01 4c 10 0d 01 59 10 0e 00 00 10 0e 01 74 10 0e   ┆       C   C  (    :0 4                              '   3   ?   L   Y       t  ┆
0x40e8…4138              01 82 10 0e 01 90 10 0f 01 9e 10 10 01 ad 10 11 01 bd 10 11 01 ce 10 11 01 df 10 11 01 f0 10 12 02 01 10 12 02 13 10 12 02 25 10 12 02 37 10 12 02 49 10 15 02 5b 10 15 02 70 00 02 00 00 00 02 00 02 00 09 00 04 00 1a 00 0d 00 1a 00 27 00 1d   ┆                                         %   7   I   [   p                   '  ┆
0x4138…4188              00 41 00 20 00 5e 00 27 00 7e 00 00 00 00 00 01 00 00 00 02 00 01 00 02 00 03 00 02 00 05 00 02 00 07 00 02 00 09 00 02 00 0b 00 02 00 0d 00 02 00 0f 00 02 00 11 00 02 00 13 00 02 00 15 00 02 00 17 00 02 00 19 00 02 00 1b 00 02 00 1d 00 02   ┆ A   ^ ' ~                                                                      ┆
0x4188…41d8              00 1f 00 02 00 21 00 02 00 23 00 02 00 25 00 02 00 27 00 02 00 29 00 02 00 2b 00 02 00 2d 00 02 00 2f 00 02 00 31 00 02 00 33 00 02 00 35 00 02 00 37 00 02 00 39 00 02 7f 80 00 00 00 00 30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05   ┆     !   #   %   '   )   +   -   /   1   3   5   7   9        0                 ┆
0x41d8…4228 (44, 0, 400) 00 3b 00 02 00 3d 00 02 00 3f 00 03 00 41 00 03 00 44 00 03 00 47 00 04 00 4a 00 04 00 4e 00 04 00 52 00 04 00 56 00 04 00 5a 00 04 00 5e 00 04 00 62 00 04 00 66 00 04 00 6a 00 04 00 6e 00 04 00 72 00 04 00 76 00 04 00 7a 00 04 00 7e 00 05   ┆ ;   =   ?   A   D   G   J   N   R   V   Z   ^   b   f   j   n   r   v   z   ~  ┆
0x4228…4278              00 82 00 05 00 87 00 05 00 8c 00 06 00 91 00 06 00 97 00 06 00 9d 00 06 00 a3 00 06 00 a9 00 06 00 af 00 06 00 b5 00 07 00 bb 00 07 00 c2 00 07 00 c9 00 07 00 d0 00 07 00 d7 00 07 00 de 00 07 00 e5 00 08 00 ec 00 08 00 f4 00 09 00 fc 00 09   ┆                                                                                ┆
0x4278…42c8              01 05 00 0a 01 0e 00 0a 01 18 00 0a 01 22 00 0b 01 2c 00 0b 01 37 00 0c 01 42 00 0c 01 4e 00 0c 01 5a 00 0d 01 66 00 0d 01 73 00 0d 01 80 00 0f 01 8d 00 0f 01 9c 00 10 01 ab 00 10 01 bb 00 11 01 cb 00 11 01 dc 00 11 01 ed 00 12 01 fe 00 12   ┆             "   ,   7   B   N   Z   f   s                                      ┆
0x42c8…4318              02 10 00 13 02 22 00 13 02 35 00 13 02 48 00 14 02 5b 00 14 02 6f 00 14 02 83 00 16 02 97 00 16 02 ad 00 16 02 c3 00 16 02 d9 00 16 02 ef 00 16 03 05 00 1a 03 1b 00 1a 03 35 00 1c 03 4f 00 1c 03 6b 00 1e 03 87 00 22 03 a5 00 23 03 c7 00 25   ┆     "   5   H   [   o                                   5   O   k     "   #   %┆
0x4318…4368              03 ea 00 26 04 0f 00 2a 04 35 00 34 04 5f 00 39 04 93 00 3c 04 cc 00 5b 05 08 40 01 05 63 40 07 05 64 40 0f 05 6b 40 0f 05 7a 40 0f 05 89 40 0f 05 98 40 10 05 a7 40 14 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0c   ┆   &   * 5 4 _ 9   <   [  @  c@  d@  k@  z@   @   @   @                         ┆

Reduced view