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

⟦f7e4d529a⟧

    Length: 4688 (0x1250)
    Notes: pts_type(SC)
    Names: »ADM5HL.SC«

Derivation

└─⟦22f4dea89⟧ Bits:30009702 Philips computer tape "DOS_PTS_4.2_M_FL"
    └─⟦this⟧ »NJ-AMT/ADM5HL.SC« 
└─⟦dab19bdd7⟧ Bits:30009677 Philips computer tape "600218"
    └─⟦this⟧ »NJ-AMT/ADM5HL.SC« 

PTS(SC)

 IDENT ADM5HL 830920 HL 
 DDUM KMD08 
 PDIV 
 ENTRY A5KONV 
 EXT A5RET1 
 EXT LAMPON 
 EXT LAMPOF 
 EXT ASGVOL 
 EXT RAREAD 
 EXT STRTID 
 EXT WRITID 
 EXT SQWRIT 
 EXT SPCLRA 
 EXT SLUTID 
 EXT SPLIN8 
	EXT	SOPRD
* 
 INCLUDE EQUATE 
* 
* 
A5KONV
	CLEAR	ENDINP 
	PERF	LAMPOF,=W'2047' 
 PERF ASGVOL,CBIN2
 BNOK A5RET1
 PERF LAMPON,=W'64' LAMP 5 ON 
	MOVE	CRECNR,CBIN1
ADM0530 
 DSC0 FD01,UNLOD UNLOCK IBM-FD
 MOVE GSWBIN6,CBIN1 
 MOVE GSWBIN1,=W'128' READ HEADER 
 PERF RAREAD,DK02,=D'2',CPCKBUF,GSWBIN1,GSWBIN6 
 BOK ADM0536
 PERF STRTID,CVOLNO SET UP STRTID 
 PERF WRITID,CBIN3,CBIN1
 B ADM0540
ADM0536 
 PERF WRITID,CBIN3,CBIN1 PRINT HEADER 
	MOVE	GSWBIN6,CBIN0 
 MOVE GSWBIN1,=W'40' DELETE AND WRITE HEADER
 MOVE GSWSTR20,=' ' 
 COPY CPCKBUF,GSWBIN1,CBIN20,GSWSTR20,GSWBIN6 
ADM0540 
* 
*   LOAD THE IBM FLOPPY 
* 
 PERF LAMPON,=W'1024' LAMP 1
ADM0542 
	PERF	SOPRD 
 CMP GSWBIN2,CBIN1 SOP 10 
 BE ADM0575 
	CBNE	GSWBIN2,CBIN10,ADM0542
 PERF LAMPOF,=W'1026' OFF LAMP 1, 10
 DSC1 FD01,LOAD,CBIN7 LOAD IBM
 BBEOD ADM0535
 BOK ADM0535
 PERF LAMPON,=W'2' LAMP 10, ERROR 
 B ADM0540 REPEAT 
ADM0535 
 DSC0 FD01,RWIND
	MOVE	GSWBIN6,CBIN0 
 PERF SQWRIT,FD01,=D'1',CPCKBUF 
 BNOK ADM0568 
 CLEAR CERRORFL 
ADM0550			START LOOP
 MOVE GTWBCD2,CRECNR
  PERF SPLIN8,CBIN10,CBIN3
 ADD CRECNR,CBIN1 
	ADD	GSWBIN6,CBIN1
 MOVE GSWBIN1,=W'128' 
 PERF RAREAD,DK02,=D'2',CPCKBUF,GSWBIN1,CRECNR
 BNOK ADM0560 NOT OK
 TBT CERRORFL,ADM0560 
 CBE GTWBCD1,=D'4',ADM0564 END OF DATA
 MOVE GSWSTR20,=C'SLUTD'
 MOVE GSWBIN5,CBIN0 
 MATCH GSWSTR20,GSWBIN5,CBIN5,CPCKBUF,CBIN0,CBIN5 
 BE ADM0564 SLUTD: END OF CONVERT 
 PERF SQWRIT,FD01,=D'1',CPCKBUF 
	BNOK	ADM0568 
***** !!!!!! CHANGE 8 TO 1700  !!!!!!!
	CBL	GSWBIN6,=W'1700',ADM0550 
	MOVE	GSWBIN2,CBIN0 
	MOVE	GSWSTR1,=X'7F'
	MATCH	CPCKBUF,GSWBIN2,GSWBIN1,GSWSTR1,CBIN0,CBIN1
	BNE	ADM0550
	B	ADM0565
ADM0568 
	PERF	LAMPON,=W'1026' 
ADM0569 
	PERF	SOPRD 
	CMP	GSWBIN2,CBIN1
	BE	ADM0575 
	CBNE	GSWBIN2,CBIN10,ADM0569
	SUB	CRECNR,GSWBIN6 
	PERF	LAMPOF,=W'1026' 
	B	ADM0530
ADM0570 
 CBNE CRECNR,CBIN2,ADM0572
 PERF LAMPON,=W'514' LAMP 2+10
 ATTFMT KONV5FMT
 PERF SPCLRA
 PERF LAMPOF,=W'514' LAMP 2+10
 CBNE SPBINW2,CBIN3,ADM0572 
 CLEAR ENDINP 
 B ADM0550
ADM0572 
 PERF SQWRIT,FD01,=D'1',CPCKBUF WRITE SLUTD 
 BNOK ADM0568 
 PERF WRITID,CBIN3,CBIN2
	TBT	ENDINP,ADM0575 
 DSC0 FD01,UNLOD UNLOCK IBM-FD
	B	ADM0530
ADM0575 
 DSC0 FD01,UNLOD UNLOCK IBM-FD
 B A5RET1 LAMPS ON
ADM0560			NOT OK
 PERF LAMPON,=W'514' LAMP 2+10
 PERF WRITID,CBIN4,CBIN2 PRINT FIRST PART OF
			LAST CORRECT RECORD
 SET SPPROMPT 
 ATTFMT KONV4FMT
 PERF SPCLRA CONTINUE ? 
 PERF LAMPOF,=W'514' LAMP 2+10
 IB SPBINW2,A0561,A0561,A0562,A0563,A0561,		C 
		A0561,A0561,A0561,A0564 
 B ADM0560
A0561			MAK 
 B ADM0560
A0562			SLUT, CONTINUE
			READ AGAIN 
 SUB CRECNR,CBIN1 
	SUB	GSWBIN6,CBIN1
 CLEAR CERRORFL 
 B ADM0550
A0563			KRE, TRY NEXT 
 SET CERRORFL 
 B ADM0550
A0564			KVIT
 CLEAR CERRORFL 
ADM0564 
	SET	ENDINP 
ADM0565			END OF DATA 
 MOVE GSWBCD3,GSWBIN6 
	TBF	ENDINP,ADM0566 
	SUB	GSWBCD3,=D'1'
ADM0566 
 PERF SLUTID,GSWBCD3
 B ADM0570
 EJECT
* 
* 
************************************************* 
* 
*         FORMATS 
* 
************************************************* 
* 
* 
KONV4FMT FRMT 
 FSL
 FCOPY ='KORREKT' 
 FILLR '?',1
 FKI 1
 FMEL 'B',TSWBCD2 
 FMEND
* 
KONV5FMT FRMT 
 FSL
 FTEXT 'SLUTMARKERING FUNDET I 1. RECORD' 
 FNL
 FTEXT 'HVIS "SLUT" SMIDES DEN V[K' 
 FNL
 FKI 1
 FMEL 'B',TSWBCD2 
 FMEND
* 
 END

HexDump

0x0000…0020 (0, 0, 400)  Head {h00=0x001c, h01=0x0050, text=» IDENT ADM5HL 830920 HL «, t00=0x0000, t01=0x0004}
0x0020…0034              Head {h00=0x0010, h01=0x0050, text=» DDUM KMD08 «, t00=0x0000, t01=0x0024}
0x0034…0042              Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x0038}
0x0042…0058              Head {h00=0x0012, h01=0x0050, text=» ENTRY A5KONV «, t00=0x0000, t01=0x0046}
0x0058…006c              Head {h00=0x0010, h01=0x0050, text=» EXT A5RET1 «, t00=0x0000, t01=0x005c}
0x006c…0080              Head {h00=0x0010, h01=0x0050, text=» EXT LAMPON «, t00=0x0000, t01=0x0070}
0x0080…0094              Head {h00=0x0010, h01=0x0050, text=» EXT LAMPOF «, t00=0x0000, t01=0x0084}
0x0094…00a8              Head {h00=0x0010, h01=0x0050, text=» EXT ASGVOL «, t00=0x0000, t01=0x0098}
0x00a8…00bc              Head {h00=0x0010, h01=0x0050, text=» EXT RAREAD «, t00=0x0000, t01=0x00ac}
0x00bc…00d0              Head {h00=0x0010, h01=0x0050, text=» EXT STRTID «, t00=0x0000, t01=0x00c0}
0x00d0…00e4              Head {h00=0x0010, h01=0x0050, text=» EXT WRITID «, t00=0x0000, t01=0x00d4}
0x00e4…00f8              Head {h00=0x0010, h01=0x0050, text=» EXT SQWRIT «, t00=0x0000, t01=0x00e8}
0x00f8…010c              Head {h00=0x0010, h01=0x0050, text=» EXT SPCLRA «, t00=0x0000, t01=0x00fc}
0x010c…0120              Head {h00=0x0010, h01=0x0050, text=» EXT SLUTID «, t00=0x0000, t01=0x0110}
0x0120…0134              Head {h00=0x0010, h01=0x0050, text=» EXT SPLIN8 «, t00=0x0000, t01=0x0124}
0x0134…0146              Head {h00=0x000e, h01=0x0050, text=» EXT SOPRD«, t00=0x0000, t01=0x0138}
0x0146…0150              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x014a}
0x0150…0168              Head {h00=0x0014, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0000, t01=0x0154}
0x0168…0172              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x016c}
0x0172…017c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0176}
0x017c…018a              Head {h00=0x000a, h01=0x0050, text=»A5KONV«, t00=0x0000, t01=0x0180}
0x018a…01a0              Head {h00=0x0012, h01=0x0050, text=» CLEAR ENDINP «, t00=0x0000, t01=0x018e}
0x01a0…01be              Head {h00=0x001a, h01=0x0050, text=» PERF LAMPOF,=W'2047' «, t00=0x0001, t01=0x0014}
0x01be…01d8              Head {h00=0x0016, h01=0x0050, text=» PERF ASGVOL,CBIN2«, t00=0x0001, t01=0x0032}
0x01d8…01ec              Head {h00=0x0010, h01=0x0050, text=» BNOK A5RET1«, t00=0x0001, t01=0x004c}
0x01ec…0212              Head {h00=0x0022, h01=0x0050, text=» PERF LAMPON,=W'64' LAMP 5 ON «, t00=0x0001, t01=0x0060}
0x0212…022c              Head {h00=0x0016, h01=0x0050, text=» MOVE CRECNR,CBIN1«, t00=0x0001, t01=0x0086}
0x022c…023c              Head {h00=0x000c, h01=0x0050, text=»ADM0530 «, t00=0x0001, t01=0x00a0}
0x023c…0262              Head {h00=0x0022, h01=0x0050, text=» DSC0 FD01,UNLOD UNLOCK IBM-FD«, t00=0x0001, t01=0x00b0}
0x0262…027e              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN6,CBIN1 «, t00=0x0001, t01=0x00d6}
0x027e…02a8              Head {h00=0x0026, h01=0x0050, text=» MOVE GSWBIN1,=W'128' READ HEADER «, t00=0x0001, t01=0x00f2}
0x02a8…02e0              Head {h00=0x0034, h01=0x0050, text=» PERF RAREAD,DK02,=D'2',CPCKBUF,GSWBIN1,GSWBIN6 «, t00=0x0001, t01=0x011c}
0x02e0…02f4              Head {h00=0x0010, h01=0x0050, text=» BOK ADM0536«, t00=0x0001, t01=0x0154}
0x02f4…031e              Head {h00=0x0026, h01=0x0050, text=» PERF STRTID,CVOLNO SET UP STRTID «, t00=0x0001, t01=0x0168}
0x031e…033e (2, 0, 400)  Head {h00=0x001c, h01=0x0050, text=» PERF WRITID,CBIN3,CBIN1«, t00=0x0002, t01=0x0004}
0x033e…0350              Head {h00=0x000e, h01=0x0050, text=» B ADM0540«, t00=0x0002, t01=0x0024}
0x0350…0360              Head {h00=0x000c, h01=0x0050, text=»ADM0536 «, t00=0x0002, t01=0x0036}
0x0360…038e              Head {h00=0x002a, h01=0x0050, text=» PERF WRITID,CBIN3,CBIN1 PRINT HEADER «, t00=0x0002, t01=0x0046}
0x038e…03aa              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN6,CBIN0 «, t00=0x0002, t01=0x0074}
0x03aa…03de              Head {h00=0x0030, h01=0x0050, text=» MOVE GSWBIN1,=W'40' DELETE AND WRITE HEADER«, t00=0x0002, t01=0x0090}
0x03de…03fa              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR20,=' ' «, t00=0x0002, t01=0x00c4}
0x03fa…0430              Head {h00=0x0032, h01=0x0050, text=» COPY CPCKBUF,GSWBIN1,CBIN20,GSWSTR20,GSWBIN6 «, t00=0x0002, t01=0x00e0}
0x0430…0440              Head {h00=0x000c, h01=0x0050, text=»ADM0540 «, t00=0x0002, t01=0x0116}
0x0440…044a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0126}
0x044a…046a              Head {h00=0x001c, h01=0x0050, text=»*   LOAD THE IBM FLOPPY «, t00=0x0002, t01=0x0130}
0x046a…0474              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0150}
0x0474…0498              Head {h00=0x0020, h01=0x0050, text=» PERF LAMPON,=W'1024' LAMP 1«, t00=0x0002, t01=0x015a}
0x0498…04a8              Head {h00=0x000c, h01=0x0050, text=»ADM0542 «, t00=0x0002, t01=0x017e}
0x04a8…04bc              Head {h00=0x0010, h01=0x0050, text=» PERF SOPRD «, t00=0x0002, t01=0x018e}
0x04bc…04de              Head {h00=0x001e, h01=0x0050, text=» CMP GSWBIN2,CBIN1 SOP 10 «, t00=0x0003, t01=0x0012}
0x04de…04f2              Head {h00=0x0010, h01=0x0050, text=» BE ADM0575 «, t00=0x0003, t01=0x0034}
0x04f2…0516              Head {h00=0x0020, h01=0x0050, text=» CBNE GSWBIN2,CBIN10,ADM0542«, t00=0x0003, t01=0x0048}
0x0516…0542              Head {h00=0x0028, h01=0x0050, text=» PERF LAMPOF,=W'1026' OFF LAMP 1, 10«, t00=0x0003, t01=0x006c}
0x0542…0568              Head {h00=0x0022, h01=0x0050, text=» DSC1 FD01,LOAD,CBIN7 LOAD IBM«, t00=0x0003, t01=0x0098}
0x0568…057e              Head {h00=0x0012, h01=0x0050, text=» BBEOD ADM0535«, t00=0x0003, t01=0x00be}
0x057e…0592              Head {h00=0x0010, h01=0x0050, text=» BOK ADM0535«, t00=0x0003, t01=0x00d4}
0x0592…05bc              Head {h00=0x0026, h01=0x0050, text=» PERF LAMPON,=W'2' LAMP 10, ERROR «, t00=0x0003, t01=0x00e8}
0x05bc…05d6              Head {h00=0x0016, h01=0x0050, text=» B ADM0540 REPEAT «, t00=0x0003, t01=0x0112}
0x05d6…05e6              Head {h00=0x000c, h01=0x0050, text=»ADM0535 «, t00=0x0003, t01=0x012c}
0x05e6…05fe              Head {h00=0x0014, h01=0x0050, text=» DSC0 FD01,RWIND«, t00=0x0003, t01=0x013c}
0x05fe…061a              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN6,CBIN0 «, t00=0x0003, t01=0x0154}
0x061a…0642              Head {h00=0x0024, h01=0x0050, text=» PERF SQWRIT,FD01,=D'1',CPCKBUF «, t00=0x0003, t01=0x0170}
0x0642…0658              Head {h00=0x0012, h01=0x0050, text=» BNOK ADM0568 «, t00=0x0004, t01=0x0008}
0x0658…0670              Head {h00=0x0014, h01=0x0050, text=» CLEAR CERRORFL «, t00=0x0004, t01=0x001e}
0x0670…068c              Head {h00=0x0018, h01=0x0050, text=»ADM0550   START LOOP«, t00=0x0004, t01=0x0036}
0x068c…06a8              Head {h00=0x0018, h01=0x0050, text=» MOVE GTWBCD2,CRECNR«, t00=0x0004, t01=0x0052}
0x06a8…06ca              Head {h00=0x001e, h01=0x0050, text=»  PERF SPLIN8,CBIN10,CBIN3«, t00=0x0004, t01=0x006e}
0x06ca…06e4              Head {h00=0x0016, h01=0x0050, text=» ADD CRECNR,CBIN1 «, t00=0x0004, t01=0x0090}
0x06e4…06fe              Head {h00=0x0016, h01=0x0050, text=» ADD GSWBIN6,CBIN1«, t00=0x0004, t01=0x00aa}
0x06fe…071c              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,=W'128' «, t00=0x0004, t01=0x00c4}
0x071c…0752              Head {h00=0x0032, h01=0x0050, text=» PERF RAREAD,DK02,=D'2',CPCKBUF,GSWBIN1,CRECNR«, t00=0x0004, t01=0x00e2}
0x0752…076e              Head {h00=0x0018, h01=0x0050, text=» BNOK ADM0560 NOT OK«, t00=0x0004, t01=0x0118}
0x076e…078c              Head {h00=0x001a, h01=0x0050, text=» TBT CERRORFL,ADM0560 «, t00=0x0004, t01=0x0134}
0x078c…07ba              Head {h00=0x002a, h01=0x0050, text=» CBE GTWBCD1,=D'4',ADM0564 END OF DATA«, t00=0x0004, t01=0x0152}
0x07ba…07da              Head {h00=0x001c, h01=0x0050, text=» MOVE GSWSTR20,=C'SLUTD'«, t00=0x0004, t01=0x0180}
0x07da…07f6              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN5,CBIN0 «, t00=0x0005, t01=0x0010}
0x07f6…0830              Head {h00=0x0036, h01=0x0050, text=» MATCH GSWSTR20,GSWBIN5,CBIN5,CPCKBUF,CBIN0,CBIN5 «, t00=0x0005, t01=0x002c}
0x0830…085a              Head {h00=0x0026, h01=0x0050, text=» BE ADM0564 SLUTD: END OF CONVERT «, t00=0x0005, t01=0x0066}
0x085a…0882              Head {h00=0x0024, h01=0x0050, text=» PERF SQWRIT,FD01,=D'1',CPCKBUF «, t00=0x0005, t01=0x0090}
0x0882…0898              Head {h00=0x0012, h01=0x0050, text=» BNOK ADM0568 «, t00=0x0005, t01=0x00b8}
0x0898…08c6              Head {h00=0x002a, h01=0x0050, text=»***** !!!!!! CHANGE 8 TO 1700  !!!!!!!«, t00=0x0005, t01=0x00ce}
0x08c6…08ec              Head {h00=0x0022, h01=0x0050, text=» CBL GSWBIN6,=W'1700',ADM0550 «, t00=0x0005, t01=0x00fc}
0x08ec…0908              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWBIN2,CBIN0 «, t00=0x0005, t01=0x0122}
0x0908…0924              Head {h00=0x0018, h01=0x0050, text=» MOVE GSWSTR1,=X'7F'«, t00=0x0005, t01=0x013e}
0x0924…095e              Head {h00=0x0036, h01=0x0050, text=» MATCH CPCKBUF,GSWBIN2,GSWBIN1,GSWSTR1,CBIN0,CBIN1«, t00=0x0005, t01=0x015a}
0x095e…0972 (6, 0, 400)  Head {h00=0x0010, h01=0x0050, text=» BNE ADM0550«, t00=0x0006, t01=0x0004}
0x0972…0984              Head {h00=0x000e, h01=0x0050, text=» B ADM0565«, t00=0x0006, t01=0x0018}
0x0984…0994              Head {h00=0x000c, h01=0x0050, text=»ADM0568 «, t00=0x0006, t01=0x002a}
0x0994…09b2              Head {h00=0x001a, h01=0x0050, text=» PERF LAMPON,=W'1026' «, t00=0x0006, t01=0x003a}
0x09b2…09c2              Head {h00=0x000c, h01=0x0050, text=»ADM0569 «, t00=0x0006, t01=0x0058}
0x09c2…09d6              Head {h00=0x0010, h01=0x0050, text=» PERF SOPRD «, t00=0x0006, t01=0x0068}
0x09d6…09f0              Head {h00=0x0016, h01=0x0050, text=» CMP GSWBIN2,CBIN1«, t00=0x0006, t01=0x007c}
0x09f0…0a04              Head {h00=0x0010, h01=0x0050, text=» BE ADM0575 «, t00=0x0006, t01=0x0096}
0x0a04…0a28              Head {h00=0x0020, h01=0x0050, text=» CBNE GSWBIN2,CBIN10,ADM0569«, t00=0x0006, t01=0x00aa}
0x0a28…0a44              Head {h00=0x0018, h01=0x0050, text=» SUB CRECNR,GSWBIN6 «, t00=0x0006, t01=0x00ce}
0x0a44…0a62              Head {h00=0x001a, h01=0x0050, text=» PERF LAMPOF,=W'1026' «, t00=0x0006, t01=0x00ea}
0x0a62…0a74              Head {h00=0x000e, h01=0x0050, text=» B ADM0530«, t00=0x0006, t01=0x0108}
0x0a74…0a84              Head {h00=0x000c, h01=0x0050, text=»ADM0570 «, t00=0x0006, t01=0x011a}
0x0a84…0aa6              Head {h00=0x001e, h01=0x0050, text=» CBNE CRECNR,CBIN2,ADM0572«, t00=0x0006, t01=0x012a}
0x0aa6…0acc              Head {h00=0x0022, h01=0x0050, text=» PERF LAMPON,=W'514' LAMP 2+10«, t00=0x0006, t01=0x014c}
0x0acc…0ae4              Head {h00=0x0014, h01=0x0050, text=» ATTFMT KONV5FMT«, t00=0x0006, t01=0x0172}
0x0ae4…0af8              Head {h00=0x0010, h01=0x0050, text=» PERF SPCLRA«, t00=0x0006, t01=0x018a}
0x0af8…0b1e              Head {h00=0x0022, h01=0x0050, text=» PERF LAMPOF,=W'514' LAMP 2+10«, t00=0x0007, t01=0x000e}
0x0b1e…0b42              Head {h00=0x0020, h01=0x0050, text=» CBNE SPBINW2,CBIN3,ADM0572 «, t00=0x0007, t01=0x0034}
0x0b42…0b58              Head {h00=0x0012, h01=0x0050, text=» CLEAR ENDINP «, t00=0x0007, t01=0x0058}
0x0b58…0b6a              Head {h00=0x000e, h01=0x0050, text=» B ADM0550«, t00=0x0007, t01=0x006e}
0x0b6a…0b7a              Head {h00=0x000c, h01=0x0050, text=»ADM0572 «, t00=0x0007, t01=0x0080}
0x0b7a…0bae              Head {h00=0x0030, h01=0x0050, text=» PERF SQWRIT,FD01,=D'1',CPCKBUF WRITE SLUTD «, t00=0x0007, t01=0x0090}
0x0bae…0bc4              Head {h00=0x0012, h01=0x0050, text=» BNOK ADM0568 «, t00=0x0007, t01=0x00c4}
0x0bc4…0be4              Head {h00=0x001c, h01=0x0050, text=» PERF WRITID,CBIN3,CBIN2«, t00=0x0007, t01=0x00da}
0x0be4…0c00              Head {h00=0x0018, h01=0x0050, text=» TBT ENDINP,ADM0575 «, t00=0x0007, t01=0x00fa}
0x0c00…0c26              Head {h00=0x0022, h01=0x0050, text=» DSC0 FD01,UNLOD UNLOCK IBM-FD«, t00=0x0007, t01=0x0116}
0x0c26…0c38              Head {h00=0x000e, h01=0x0050, text=» B ADM0530«, t00=0x0007, t01=0x013c}
0x0c38…0c48              Head {h00=0x000c, h01=0x0050, text=»ADM0575 «, t00=0x0007, t01=0x014e}
0x0c48…0c6e              Head {h00=0x0022, h01=0x0050, text=» DSC0 FD01,UNLOD UNLOCK IBM-FD«, t00=0x0007, t01=0x015e}
0x0c6e…0c88              Head {h00=0x0016, h01=0x0050, text=» B A5RET1 LAMPS ON«, t00=0x0007, t01=0x0184}
0x0c88…0ca0              Head {h00=0x0014, h01=0x0050, text=»ADM0560   NOT OK«, t00=0x0008, t01=0x000e}
0x0ca0…0cc6              Head {h00=0x0022, h01=0x0050, text=» PERF LAMPON,=W'514' LAMP 2+10«, t00=0x0008, t01=0x0026}
0x0cc6…0cfa              Head {h00=0x0030, h01=0x0050, text=» PERF WRITID,CBIN4,CBIN2 PRINT FIRST PART OF«, t00=0x0008, t01=0x004c}
0x0cfa…0d18              Head {h00=0x001a, h01=0x0050, text=»   LAST CORRECT RECORD«, t00=0x0008, t01=0x0080}
0x0d18…0d2e              Head {h00=0x0012, h01=0x0050, text=» SET SPPROMPT «, t00=0x0008, t01=0x009e}
0x0d2e…0d46              Head {h00=0x0014, h01=0x0050, text=» ATTFMT KONV4FMT«, t00=0x0008, t01=0x00b4}
0x0d46…0d66              Head {h00=0x001c, h01=0x0050, text=» PERF SPCLRA CONTINUE ? «, t00=0x0008, t01=0x00cc}
0x0d66…0d8c              Head {h00=0x0022, h01=0x0050, text=» PERF LAMPOF,=W'514' LAMP 2+10«, t00=0x0008, t01=0x00ec}
0x0d8c…0dc2              Head {h00=0x0032, h01=0x0050, text=» IB SPBINW2,A0561,A0561,A0562,A0563,A0561,  C «, t00=0x0008, t01=0x0112}
0x0dc2…0de4              Head {h00=0x001e, h01=0x0050, text=»  A0561,A0561,A0561,A0564 «, t00=0x0008, t01=0x0148}
0x0de4…0df6              Head {h00=0x000e, h01=0x0050, text=» B ADM0560«, t00=0x0008, t01=0x016a}
0x0df6…0e0a              Head {h00=0x0010, h01=0x0050, text=»A0561   MAK «, t00=0x0008, t01=0x017c}
0x0e0a…0e1c              Head {h00=0x000e, h01=0x0050, text=» B ADM0560«, t00=0x0008, t01=0x0190}
0x0e1c…0e3a              Head {h00=0x001a, h01=0x0050, text=»A0562   SLUT, CONTINUE«, t00=0x0009, t01=0x0012}
0x0e3a…0e50              Head {h00=0x0012, h01=0x0050, text=»   READ AGAIN «, t00=0x0009, t01=0x0030}
0x0e50…0e6a              Head {h00=0x0016, h01=0x0050, text=» SUB CRECNR,CBIN1 «, t00=0x0009, t01=0x0046}
0x0e6a…0e84              Head {h00=0x0016, h01=0x0050, text=» SUB GSWBIN6,CBIN1«, t00=0x0009, t01=0x0060}
0x0e84…0e9c              Head {h00=0x0014, h01=0x0050, text=» CLEAR CERRORFL «, t00=0x0009, t01=0x007a}
0x0e9c…0eae              Head {h00=0x000e, h01=0x0050, text=» B ADM0550«, t00=0x0009, t01=0x0092}
0x0eae…0ecc              Head {h00=0x001a, h01=0x0050, text=»A0563   KRE, TRY NEXT «, t00=0x0009, t01=0x00a4}
0x0ecc…0ee2              Head {h00=0x0012, h01=0x0050, text=» SET CERRORFL «, t00=0x0009, t01=0x00c2}
0x0ee2…0ef4              Head {h00=0x000e, h01=0x0050, text=» B ADM0550«, t00=0x0009, t01=0x00d8}
0x0ef4…0f08              Head {h00=0x0010, h01=0x0050, text=»A0564   KVIT«, t00=0x0009, t01=0x00ea}
0x0f08…0f20              Head {h00=0x0014, h01=0x0050, text=» CLEAR CERRORFL «, t00=0x0009, t01=0x00fe}
0x0f20…0f30              Head {h00=0x000c, h01=0x0050, text=»ADM0564 «, t00=0x0009, t01=0x0116}
0x0f30…0f44              Head {h00=0x0010, h01=0x0050, text=» SET ENDINP «, t00=0x0009, t01=0x0126}
0x0f44…0f62              Head {h00=0x001a, h01=0x0050, text=»ADM0565   END OF DATA «, t00=0x0009, t01=0x013a}
0x0f62…0f80              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBCD3,GSWBIN6 «, t00=0x0009, t01=0x0158}
0x0f80…0f9c              Head {h00=0x0018, h01=0x0050, text=» TBF ENDINP,ADM0566 «, t00=0x0009, t01=0x0176}
0x0f9c…0fb6 (10, 0, 398) Head {h00=0x0016, h01=0x0050, text=» SUB GSWBCD3,=D'1'«, t00=0x000a, t01=0x0004}
0x0fb6…0fc6              Head {h00=0x000c, h01=0x0050, text=»ADM0566 «, t00=0x000a, t01=0x001e}
0x0fc6…0fe2              Head {h00=0x0018, h01=0x0050, text=» PERF SLUTID,GSWBCD3«, t00=0x000a, t01=0x002e}
0x0fe2…0ff4              Head {h00=0x000e, h01=0x0050, text=» B ADM0570«, t00=0x000a, t01=0x004a}
0x0ff4…1002              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x005c}
0x1002…100c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x006a}
0x100c…1016              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0074}
0x1016…1050              Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x000a, t01=0x007e}
0x1050…105a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00b8}
0x105a…1074              Head {h00=0x0016, h01=0x0050, text=»*         FORMATS «, t00=0x000a, t01=0x00c2}
0x1074…107e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00dc}
0x107e…10b8              Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x000a, t01=0x00e6}
0x10b8…10c2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0120}
0x10c2…10cc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x012a}
0x10cc…10e2              Head {h00=0x0012, h01=0x0050, text=»KONV4FMT FRMT «, t00=0x000a, t01=0x0134}
0x10e2…10ee              Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x000a, t01=0x014a}
0x10ee…1108              Head {h00=0x0016, h01=0x0050, text=» FCOPY ='KORREKT' «, t00=0x000a, t01=0x0156}
0x1108…111c              Head {h00=0x0010, h01=0x0050, text=» FILLR '?',1«, t00=0x000a, t01=0x0170}
0x111c…112a              Head {h00=0x000a, h01=0x0050, text=» FKI 1«, t00=0x000a, t01=0x0184}
0x112a…1144 (11, 2, 286) Head {h00=0x0016, h01=0x0050, text=» FMEL 'B',TSWBCD2 «, t00=0x000b, t01=0x0004}
0x1144…1152              Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x000b, t01=0x001e}
0x1152…115c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x002c}
0x115c…1172              Head {h00=0x0012, h01=0x0050, text=»KONV5FMT FRMT «, t00=0x000b, t01=0x0036}
0x1172…117e              Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x000b, t01=0x004c}
0x117e…11b0              Head {h00=0x002e, h01=0x0050, text=» FTEXT 'SLUTMARKERING FUNDET I 1. RECORD' «, t00=0x000b, t01=0x0058}
0x11b0…11bc              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x000b, t01=0x008a}
0x11bc…11e8              Head {h00=0x0028, h01=0x0050, text=» FTEXT 'HVIS "SLUT" SMIDES DEN V[K' «, t00=0x000b, t01=0x0096}
0x11e8…11f4              Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x000b, t01=0x00c2}
0x11f4…1202              Head {h00=0x000a, h01=0x0050, text=» FKI 1«, t00=0x000b, t01=0x00ce}
0x1202…121c              Head {h00=0x0016, h01=0x0050, text=» FMEL 'B',TSWBCD2 «, t00=0x000b, t01=0x00dc}
0x121c…122a              Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x000b, t01=0x00f6}
0x122a…1234              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0104}
0x1234…1240              Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x000b, t01=0x010e}
0x1240…1244              Head {h00=0x4004, h01=0x0000}
0x1244…1248              00 0b 01 1a                                                                                                                                                                                                                                       ┆    ┆
0x1248…1250 (12, 1, 8)   20 04 00 00 00 0c 00 04                                                                                                                                                                                                                           ┆        ┆

Reduced view