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

⟦be62dee05⟧

    Length: 4472 (0x1178)
    Notes: pts_type(SC)
    Names: »ADM45.SC«

Derivation

└─⟦38a30a456⟧ Bits:30009662 Philips computer tape "600104"
    └─⟦this⟧ »OD-KOM/ADM45.SC« 

PTS(SC)

 IDENT ADM45 840130 EV OD-KOM 
 DDUM KMD08 



* THIS MODULE TAKES HAND OF ALL ADMINISTRATION
* REGARDING THE SPOOLING SYSTEM.









 PDIV 

 ENTRY A45ELJ 
 ENTRY PRJOUR 
 ENTRY INCSTR 
 ENTRY INCSLT 


 EXT ADMRET 
 EXT KBTEST 
 EXT RAREAD 
 EXT RADEL
 EXT WRITLO 
 EXT WRITJT 


 INCLUDE EQUATE 
 EJECT
A45ELJ			START POINT
			EL.JOURNAL ON OR OFF 
 TBF CSPOOL,ADM4590 QUIT IF NOT ALLOWED 
 TBT TSPOOL,ADM4510 SEL IF ALREADY ON 
 SET TSPOOL NO, SEL EL. JOURNAL ON
 MOVE TTSPARE3,=C'*'
 B ADM4590
ADM4510			EL. JOURNAL ON
 PERF PRJOUR EMPTY PRINT BUFFER FIRST 
 BNOK ADM4590 NOT EMPTY 
 CLEAR TSPOOL EMPTY, SET EL. JOURNAL OFF
 MOVE TTSPARE3,=C'.'
ADM4590 
 B ADMRET 
	EJECT

PRJOUR PROC		PRINT JOURNAL

 PERF WRITJT,=W'16' START EL. JOURNAL 

PRJ05 
 PERF KBTEST CHECK KEYBOARD 
 BOK PRJ95 STOP IF MAK KEY

PRJ10			CONTINUE, NOT MAK KEY 
 PERF INCSTR READY TO PRINT NEXT
 BOK PRJ20 MORE LINES TO PRINT
* NOW ALL LINES PRINTED 

 PERF WRITJT,=W'17' SLUT EL. JOURNAL

 CMP CBIN0,CBIN0 FINISHED 
 B PRJ100 


PRJ20			MORE TO PRINT 
 MOVE GSWBIN1,=W'60' LENGTH 
 PERF RAREAD,DK06,=D'6',TSELBUF,GSWBIN1,TWELSTRT READ LINE
 BOK PRJ50
*  ERROR
 B PRJ60

PRJ50 
 WAIT KJTAPE
 WRITE .NW,KJTAPE,TSELBUF PRINT LINE
PRJ60 
 PERF RADEL,DK06,TWELSTRT,=D'6' 
 CMP CBIN1,CBIN0 NOT FINISHED 

PRJ90 
 BNOK PRJ05 

PRJ95 

 PERF WRITJT,=W'17' SLUT EL. JOURNAL

 CMP CBIN1,CBIN0

PRJ100
 RET
 PEND 


	EJECT

INCSTR PROC 

* INCREMENT POINTER TWELSTRT
* (CIRCULAR WITHIN TWELMIN,TWELMAX

 MOVE GSWBIN1,TWELSTRT
 ADD GSWBIN1,CBIN1 INCREMENT
 CBNG GSWBIN1,TWELMAX,INCSTR20 OUT OF LIMIT?
 MOVE GSWBIN1,TWELMIN YES, SET TO START 
INCSTR20
 CBNE GSWBIN1,TWELSLUT,INCSTR90 BUFFER FREE?
 CMP CBIN1,CBIN0 NO, SET NOK, 
			NO CHANGE OF TWELSTRT
 RET
INCSTR90			YES, BUFFER FREE 
 MOVE TWELSTRT,GSWBIN1 UPDATE TWELSTRT
 CMP CBIN0,CBIN0
 RET
 PEND 
	EJECT

INCSLT PROC 

* INCREMENT POINTER TWELSLUT
* (CIRCULAR WITHIN TWELMIN,TWELMAX

 MOVE GSWBIN1,TWELSLUT
 ADD GSWBIN1,CBIN1 INCREMENT
 CBNG GSWBIN1,TWELMAX,INCSLT20 OUT OF LIMIT?
 MOVE GSWBIN1,TWELMIN YES, SET TO START 
INCSLT20
 CBNE GSWBIN1,TWELSTRT,INCSLT90 CICRL. BUFFER FULL? 
 CMP CBIN1,CBIN0 YES, SET NOK,
			NO CHANGE OF TWELSLUT
 RET
INCSLT90			CIRCL BUF NOT FULL 
 MOVE TWELSLUT,GSWBIN1 UPDATE TWELSLUT
 CMP CBIN0,CBIN0
 RET
 PEND 
 END

HexDump

0x0000…0026 (0, 0, 400)  Head {h00=0x0022, h01=0x0050, text=» IDENT ADM45 840130 EV OD-KOM «, t00=0x0000, t01=0x0004}
0x0026…003a              Head {h00=0x0010, h01=0x0050, text=» DDUM KMD08 «, t00=0x0000, t01=0x002a}
0x003a…0042              Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003e}
0x0042…004a              Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0046}
0x004a…0052              Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x004e}
0x0052…0088              Head {h00=0x0032, h01=0x0050, text=»* THIS MODULE TAKES HAND OF ALL ADMINISTRATION«, t00=0x0000, t01=0x0056}
0x0088…00b0              Head {h00=0x0024, h01=0x0050, text=»* REGARDING THE SPOOLING SYSTEM.«, t00=0x0000, t01=0x008c}
0x00b0…00b8              Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x00b4}
0x00b8…00c0              Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x00bc}
0x00c0…00c8              Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x00c4}
0x00c8…00d0              Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x00cc}
0x00d0…00d8              Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x00d4}
0x00d8…00e0              Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x00dc}
0x00e0…00e8              Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x00e4}
0x00e8…00f0              Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x00ec}
0x00f0…00f8              Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x00f4}
0x00f8…0106              Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x00fc}
0x0106…010e              Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x010a}
0x010e…0124              Head {h00=0x0012, h01=0x0050, text=» ENTRY A45ELJ «, t00=0x0000, t01=0x0112}
0x0124…013a              Head {h00=0x0012, h01=0x0050, text=» ENTRY PRJOUR «, t00=0x0000, t01=0x0128}
0x013a…0150              Head {h00=0x0012, h01=0x0050, text=» ENTRY INCSTR «, t00=0x0000, t01=0x013e}
0x0150…0166              Head {h00=0x0012, h01=0x0050, text=» ENTRY INCSLT «, t00=0x0000, t01=0x0154}
0x0166…016e              Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x016a}
0x016e…0176              Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0172}
0x0176…018a              Head {h00=0x0010, h01=0x0050, text=» EXT ADMRET «, t00=0x0000, t01=0x017a}
0x018a…019e              Head {h00=0x0010, h01=0x0050, text=» EXT KBTEST «, t00=0x0000, t01=0x018e}
0x019e…01b2              Head {h00=0x0010, h01=0x0050, text=» EXT RAREAD «, t00=0x0001, t01=0x0012}
0x01b2…01c4              Head {h00=0x000e, h01=0x0050, text=» EXT RADEL«, t00=0x0001, t01=0x0026}
0x01c4…01d8              Head {h00=0x0010, h01=0x0050, text=» EXT WRITLO «, t00=0x0001, t01=0x0038}
0x01d8…01ec              Head {h00=0x0010, h01=0x0050, text=» EXT WRITJT «, t00=0x0001, t01=0x004c}
0x01ec…01f4              Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0060}
0x01f4…01fc              Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0068}
0x01fc…0214              Head {h00=0x0014, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0001, t01=0x0070}
0x0214…0222              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x0088}
0x0222…023e              Head {h00=0x0018, h01=0x0050, text=»A45ELJ   START POINT«, t00=0x0001, t01=0x0096}
0x023e…025e              Head {h00=0x001c, h01=0x0050, text=»   EL.JOURNAL ON OR OFF «, t00=0x0001, t01=0x00b2}
0x025e…028e              Head {h00=0x002c, h01=0x0050, text=» TBF CSPOOL,ADM4590 QUIT IF NOT ALLOWED «, t00=0x0001, t01=0x00d2}
0x028e…02bc              Head {h00=0x002a, h01=0x0050, text=» TBT TSPOOL,ADM4510 SEL IF ALREADY ON «, t00=0x0001, t01=0x0102}
0x02bc…02e6              Head {h00=0x0026, h01=0x0050, text=» SET TSPOOL NO, SEL EL. JOURNAL ON«, t00=0x0001, t01=0x0130}
0x02e6…0302              Head {h00=0x0018, h01=0x0050, text=» MOVE TTSPARE3,=C'*'«, t00=0x0001, t01=0x015a}
0x0302…0314              Head {h00=0x000e, h01=0x0050, text=» B ADM4590«, t00=0x0001, t01=0x0176}
0x0314…0334              Head {h00=0x001c, h01=0x0050, text=»ADM4510   EL. JOURNAL ON«, t00=0x0001, t01=0x0188}
0x0334…0362              Head {h00=0x002a, h01=0x0050, text=» PERF PRJOUR EMPTY PRINT BUFFER FIRST «, t00=0x0002, t01=0x0018}
0x0362…0382              Head {h00=0x001c, h01=0x0050, text=» BNOK ADM4590 NOT EMPTY «, t00=0x0002, t01=0x0046}
0x0382…03b2              Head {h00=0x002c, h01=0x0050, text=» CLEAR TSPOOL EMPTY, SET EL. JOURNAL OFF«, t00=0x0002, t01=0x0066}
0x03b2…03ce              Head {h00=0x0018, h01=0x0050, text=» MOVE TTSPARE3,=C'.'«, t00=0x0002, t01=0x0096}
0x03ce…03de              Head {h00=0x000c, h01=0x0050, text=»ADM4590 «, t00=0x0002, t01=0x00b2}
0x03de…03f0              Head {h00=0x000e, h01=0x0050, text=» B ADMRET «, t00=0x0002, t01=0x00c2}
0x03f0…03fe              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x00d4}
0x03fe…0406              Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x00e2}
0x0406…0428              Head {h00=0x001e, h01=0x0050, text=»PRJOUR PROC  PRINT JOURNAL«, t00=0x0002, t01=0x00ea}
0x0428…0430              Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x010c}
0x0430…045e              Head {h00=0x002a, h01=0x0050, text=» PERF WRITJT,=W'16' START EL. JOURNAL «, t00=0x0002, t01=0x0114}
0x045e…0466              Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0142}
0x0466…0474              Head {h00=0x000a, h01=0x0050, text=»PRJ05 «, t00=0x0002, t01=0x014a}
0x0474…0498              Head {h00=0x0020, h01=0x0050, text=» PERF KBTEST CHECK KEYBOARD «, t00=0x0002, t01=0x0158}
0x0498…04ba              Head {h00=0x001e, h01=0x0050, text=» BOK PRJ95 STOP IF MAK KEY«, t00=0x0002, t01=0x017c}
0x04ba…04c2              Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x000e}
0x04c2…04e8              Head {h00=0x0022, h01=0x0050, text=»PRJ10   CONTINUE, NOT MAK KEY «, t00=0x0003, t01=0x0016}
0x04e8…0510              Head {h00=0x0024, h01=0x0050, text=» PERF INCSTR READY TO PRINT NEXT«, t00=0x0003, t01=0x003c}
0x0510…0536              Head {h00=0x0022, h01=0x0050, text=» BOK PRJ20 MORE LINES TO PRINT«, t00=0x0003, t01=0x0064}
0x0536…0556              Head {h00=0x001c, h01=0x0050, text=»* NOW ALL LINES PRINTED «, t00=0x0003, t01=0x008a}
0x0556…055e              Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x00aa}
0x055e…058a              Head {h00=0x0028, h01=0x0050, text=» PERF WRITJT,=W'17' SLUT EL. JOURNAL«, t00=0x0003, t01=0x00b2}
0x058a…0592              Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x00de}
0x0592…05b4              Head {h00=0x001e, h01=0x0050, text=» CMP CBIN0,CBIN0 FINISHED «, t00=0x0003, t01=0x00e6}
0x05b4…05c6              Head {h00=0x000e, h01=0x0050, text=» B PRJ100 «, t00=0x0003, t01=0x0108}
0x05c6…05ce              Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x011a}
0x05ce…05d6              Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x0122}
0x05d6…05f4              Head {h00=0x001a, h01=0x0050, text=»PRJ20   MORE TO PRINT «, t00=0x0003, t01=0x012a}
0x05f4…0618              Head {h00=0x0020, h01=0x0050, text=» MOVE GSWBIN1,=W'60' LENGTH «, t00=0x0003, t01=0x0148}
0x0618…065a              Head {h00=0x003e, h01=0x0050, text=» PERF RAREAD,DK06,=D'6',TSELBUF,GSWBIN1,TWELSTRT READ LINE«, t00=0x0003, t01=0x016c}
0x065a…066c              Head {h00=0x000e, h01=0x0050, text=» BOK PRJ50«, t00=0x0004, t01=0x001e}
0x066c…067c              Head {h00=0x000c, h01=0x0050, text=»*  ERROR«, t00=0x0004, t01=0x0030}
0x067c…068c              Head {h00=0x000c, h01=0x0050, text=» B PRJ60«, t00=0x0004, t01=0x0040}
0x068c…0694              Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x0050}
0x0694…06a2              Head {h00=0x000a, h01=0x0050, text=»PRJ50 «, t00=0x0004, t01=0x0058}
0x06a2…06b6              Head {h00=0x0010, h01=0x0050, text=» WAIT KJTAPE«, t00=0x0004, t01=0x0066}
0x06b6…06e2              Head {h00=0x0028, h01=0x0050, text=» WRITE .NW,KJTAPE,TSELBUF PRINT LINE«, t00=0x0004, t01=0x007a}
0x06e2…06f0              Head {h00=0x000a, h01=0x0050, text=»PRJ60 «, t00=0x0004, t01=0x00a6}
0x06f0…0718              Head {h00=0x0024, h01=0x0050, text=» PERF RADEL,DK06,TWELSTRT,=D'6' «, t00=0x0004, t01=0x00b4}
0x0718…073e              Head {h00=0x0022, h01=0x0050, text=» CMP CBIN1,CBIN0 NOT FINISHED «, t00=0x0004, t01=0x00dc}
0x073e…0746              Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x0102}
0x0746…0754              Head {h00=0x000a, h01=0x0050, text=»PRJ90 «, t00=0x0004, t01=0x010a}
0x0754…0768              Head {h00=0x0010, h01=0x0050, text=» BNOK PRJ05 «, t00=0x0004, t01=0x0118}
0x0768…0770              Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x012c}
0x0770…077e              Head {h00=0x000a, h01=0x0050, text=»PRJ95 «, t00=0x0004, t01=0x0134}
0x077e…0786              Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x0142}
0x0786…07b2              Head {h00=0x0028, h01=0x0050, text=» PERF WRITJT,=W'17' SLUT EL. JOURNAL«, t00=0x0004, t01=0x014a}
0x07b2…07ba              Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x0176}
0x07ba…07d2              Head {h00=0x0014, h01=0x0050, text=» CMP CBIN1,CBIN0«, t00=0x0004, t01=0x017e}
0x07d2…07da              Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x0008}
0x07da…07e8              Head {h00=0x000a, h01=0x0050, text=»PRJ100«, t00=0x0005, t01=0x0010}
0x07e8…07f4              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0005, t01=0x001e}
0x07f4…0802              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0005, t01=0x002a}
0x0802…080a              Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x0038}
0x080a…0812              Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x0040}
0x0812…0820              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0048}
0x0820…0828              Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x0056}
0x0828…083c              Head {h00=0x0010, h01=0x0050, text=»INCSTR PROC «, t00=0x0005, t01=0x005e}
0x083c…0844              Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x0072}
0x0844…0868              Head {h00=0x0020, h01=0x0050, text=»* INCREMENT POINTER TWELSTRT«, t00=0x0005, t01=0x007a}
0x0868…0892              Head {h00=0x0026, h01=0x0050, text=»* (CIRCULAR WITHIN TWELMIN,TWELMAX«, t00=0x0005, t01=0x009e}
0x0892…089a              Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x00c8}
0x089a…08b8              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TWELSTRT«, t00=0x0005, t01=0x00d0}
0x08b8…08dc              Head {h00=0x0020, h01=0x0050, text=» ADD GSWBIN1,CBIN1 INCREMENT«, t00=0x0005, t01=0x00ee}
0x08dc…0910              Head {h00=0x0030, h01=0x0050, text=» CBNG GSWBIN1,TWELMAX,INCSTR20 OUT OF LIMIT?«, t00=0x0005, t01=0x0112}
0x0910…0940              Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBIN1,TWELMIN YES, SET TO START «, t00=0x0005, t01=0x0146}
0x0940…0950              Head {h00=0x000c, h01=0x0050, text=»INCSTR20«, t00=0x0005, t01=0x0176}
0x0950…0984              Head {h00=0x0030, h01=0x0050, text=» CBNE GSWBIN1,TWELSLUT,INCSTR90 BUFFER FREE?«, t00=0x0005, t01=0x0186}
0x0984…09aa              Head {h00=0x0022, h01=0x0050, text=» CMP CBIN1,CBIN0 NO, SET NOK, «, t00=0x0006, t01=0x002a}
0x09aa…09ca              Head {h00=0x001c, h01=0x0050, text=»   NO CHANGE OF TWELSTRT«, t00=0x0006, t01=0x0050}
0x09ca…09d6              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0006, t01=0x0070}
0x09d6…09fa              Head {h00=0x0020, h01=0x0050, text=»INCSTR90   YES, BUFFER FREE «, t00=0x0006, t01=0x007c}
0x09fa…0a28              Head {h00=0x002a, h01=0x0050, text=» MOVE TWELSTRT,GSWBIN1 UPDATE TWELSTRT«, t00=0x0006, t01=0x00a0}
0x0a28…0a40              Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0006, t01=0x00ce}
0x0a40…0a4c              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0006, t01=0x00e6}
0x0a4c…0a5a              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0006, t01=0x00f2}
0x0a5a…0a68              Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0100}
0x0a68…0a70              Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x010e}
0x0a70…0a84              Head {h00=0x0010, h01=0x0050, text=»INCSLT PROC «, t00=0x0006, t01=0x0116}
0x0a84…0a8c              Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x012a}
0x0a8c…0ab0              Head {h00=0x0020, h01=0x0050, text=»* INCREMENT POINTER TWELSLUT«, t00=0x0006, t01=0x0132}
0x0ab0…0ada              Head {h00=0x0026, h01=0x0050, text=»* (CIRCULAR WITHIN TWELMIN,TWELMAX«, t00=0x0006, t01=0x0156}
0x0ada…0ae2              Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x0180}
0x0ae2…0b00              Head {h00=0x001a, h01=0x0050, text=» MOVE GSWBIN1,TWELSLUT«, t00=0x0006, t01=0x0188}
0x0b00…0b24              Head {h00=0x0020, h01=0x0050, text=» ADD GSWBIN1,CBIN1 INCREMENT«, t00=0x0007, t01=0x0016}
0x0b24…0b58              Head {h00=0x0030, h01=0x0050, text=» CBNG GSWBIN1,TWELMAX,INCSLT20 OUT OF LIMIT?«, t00=0x0007, t01=0x003a}
0x0b58…0b88              Head {h00=0x002c, h01=0x0050, text=» MOVE GSWBIN1,TWELMIN YES, SET TO START «, t00=0x0007, t01=0x006e}
0x0b88…0b98              Head {h00=0x000c, h01=0x0050, text=»INCSLT20«, t00=0x0007, t01=0x009e}
0x0b98…0bd4              Head {h00=0x0038, h01=0x0050, text=» CBNE GSWBIN1,TWELSTRT,INCSLT90 CICRL. BUFFER FULL? «, t00=0x0007, t01=0x00ae}
0x0bd4…0bfa              Head {h00=0x0022, h01=0x0050, text=» CMP CBIN1,CBIN0 YES, SET NOK,«, t00=0x0007, t01=0x00ea}
0x0bfa…0c1a              Head {h00=0x001c, h01=0x0050, text=»   NO CHANGE OF TWELSLUT«, t00=0x0007, t01=0x0110}
0x0c1a…0c26              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x0130}
0x0c26…0c4c              Head {h00=0x0022, h01=0x0050, text=»INCSLT90   CIRCL BUF NOT FULL «, t00=0x0007, t01=0x013c}
0x0c4c…0c7a              Head {h00=0x002a, h01=0x0050, text=» MOVE TWELSLUT,GSWBIN1 UPDATE TWELSLUT«, t00=0x0007, t01=0x0162}
0x0c7a…0c92              Head {h00=0x0014, h01=0x0050, text=» CMP CBIN0,CBIN0«, t00=0x0007, t01=0x0190}
0x0c92…0c9e              Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0008, t01=0x0018}
0x0c9e…0cac              Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0008, t01=0x0024}
0x0cac…0cb8              Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0008, t01=0x0032}
0x0cb8…0cbc              Head {h00=0x4004, h01=0x0000}
0x0cbc…0cc0              00 08 00 3e                                                                                                                                                                                                                                       ┆   >┆
0x0cc0…0cc8 (9, 1, 8)    20 04 00 00 00 09 00 04                                                                                                                                                                                                                           ┆        ┆
0x0cc8…0d18 (10, 0, 400) 82 41 73 78 f0 a1 83 6e 82 40 75 32 82 41 73 6c 50 08 f0 a1 81 e0 85 04 57 1c 84 40 75 30 54 16 84 40 75 2e 5a 14 04 00 f0 a1 7a 32 a5 20 ff fe 85 41 82 32 95 10 a5 20 ff fe 81 40 84 a8 8a 20 74 70 82 40 82 32 82 41 73 66 f0 a1 83 64 f0 a1   ┆ Asx   n @u2 AslP       W  @u0T  @u.Z     z2     A 2       @    tp @ 2 Asf   d  ┆
0x0d18…0d68              83 34 f0 a1 83 64 f0 a1 81 70 f0 a1 83 64 f0 a1 83 64 02 10 83 20 81 d0 f0 a1 83 14 98 41 83 12 8c 20 74 70 83 14 81 40 75 2e 52 04 93 56 ff f4 3b 61 eb 18 51 06 f0 a1 83 6e 5f 84 f0 a1 83 9e 31 0a 8c 20 74 70 f0 a1 83 78 82 40 82 32 85 08   ┆ 4   d   p   d   d           A    tp   @u.R  V  ;a  Q    n_     1   tp   x @ 2  ┆
0x0d68…0db8              82 41 73 66 5f 9e 82 30 f0 a1 83 34 f0 a1 83 6a 86 41 79 68 f0 a1 75 3a 82 04 1a 0d 50 12 1a 33 50 0e 9a 20 ff ca 8c 20 75 04 03 02 93 43 00 04 83 40 75 26 50 1c 83 40 75 28 83 31 82 40 73 62 50 10 82 40 75 2e 82 51 00 40 82 40 75 32 82 51   ┆ Asf_  0   4   j Ayh  u:    P  3P       u    C   @u&P  @u( 1 @sbP  @u. Q @ @u2 Q┆
0x0db8…0e08              00 20 19 0d 50 06 86 20 00 00 f0 22 8f 20 74 70 54 20 84 40 73 64 84 41 75 28 82 40 73 6a 82 41 75 32 82 40 73 70 82 41 75 2e 82 40 73 76 82 41 75 30 84 40 75 28 84 41 82 32 82 40 75 2e 82 41 73 70 82 40 75 30 82 41 73 76 82 40 75 32 82 41   ┆    P      "  tpT  @sd Au( @sj Au2 @sp Au. @sv Au0 @u( A 2 @u. Asp @u0 Asv @u2 A┆
0x0e08…0e58              73 6a 50 08 f0 a1 81 e0 84 04 57 14 82 40 75 30 54 0e 82 10 f0 a1 7a 32 81 40 75 2e 56 02 84 08 82 40 82 32 82 41 73 64 e2 30 f0 a1 83 4e f0 a1 83 6a f0 a1 75 3a e9 20 55 22 44 42 aa aa 95 48 09 2a 45 50 08 49 22 01 2a aa aa aa 91 14 52 ac   ┆sjP       W  @u0T     z2 @u.V    @ 2 Asd 0   N   j  u:  U"DB   H *EP I" *     R ┆
0x0e58…0ea8 (11, 0, 400) 00 0a 50 08 e9 20 00 0d 8c 20 75 04 82 40 75 26 50 06 82 40 75 28 e2 31 19 0d 88 20 74 70 f0 a1 83 78 f0 a1 83 64 90 41 82 32 82 40 82 32 84 08 f0 a1 83 34 f0 a1 83 88 82 40 73 70 82 41 75 2e 82 40 73 6a 82 41 75 32 5f 80 85 a0 73 08 87 40   ┆  P       u  @u&P  @u( 1    tp   x   d A 2 @ 2     4     @sp Au. @sj Au2_   s  @┆
0x0ea8…0ef8              73 5e 50 14 87 40 75 2e 56 04 87 40 72 2c 28 04 00 09 17 00 8a 20 75 04 94 56 ff f4 f0 22 86 40 75 32 54 04 86 40 72 2a f0 a1 80 9e 54 50 81 40 75 26 50 1a 84 40 75 28 94 1c 84 41 82 32 86 41 73 6e 81 20 80 00 81 41 73 74 8f 20 76 fa f0 a1   ┆s^P  @u.V  @r,(       u  V   " @u2T  @r*    TP @u&P  @u(   A 2 Asn     Ast  v   ┆
0x0ef8…0f48              83 88 84 5c 00 02 1c 02 e1 30 21 03 f0 a1 83 58 f0 a1 83 6a f0 a1 75 3a 19 0d 54 12 81 40 75 26 50 08 82 40 75 28 22 03 e2 31 8f 20 74 70 8f 20 75 04 50 78 83 a0 00 01 83 40 75 28 84 40 75 2a 85 40 75 2c 86 40 75 32 54 04 86 40 72 2a f0 a1   ┆         0!    X   j  u:  T  @u&P  @u("  1  tp  u Px     @u( @u* @u, @u2T  @r*  ┆
0x0f48…0f98              7f 68 52 58 84 06 84 41 82 32 81 2a 39 6c 21 03 50 32 19 02 88 20 76 fa f0 a1 7b 38 e1 26 39 64 21 0f 29 20 f0 a1 7b 66 57 12 91 a0 00 01 9b a0 00 01 50 24 e1 26 39 64 f0 a1 7b 5a e1 26 f0 a1 7b 5a 5f 1a f0 a1 7b 38 e1 26 f0 a1 7b 66 91 a0   ┆ hRX   A 2 *9l! P2    v   {8 &9d! )   {fW         P$ &9d  {Z &  {Z_   {8 &  {f  ┆
0x0f98…0fe8              00 01 9b a0 00 01 5c 10 8f 20 74 70 8f 20 75 04 81 41 7b 54 81 20 ff b6 81 41 7b 58 f0 a1 83 6e 81 40 84 a8 5a 1e f0 a1 83 64 81 20 00 00 f0 22 00 00 21 0f e9 20 00 09 05 22 aa 55 52 92 10 94 92 8a 81 51 22 85 52 88 14 10 04 92 05 45 48 05   ┆          tp  u  A{T     A{X   n @  Z    d     "  !      " UR      Q" R      EH ┆
0x0fe8…1038 (12, 0, 400) 55 02 01 cf 11 30 90 41 7b 58 55 06 f0 a1 7b 38 5f 0c f0 a1 83 22 f0 22 50 60 83 40 75 28 9b 8e 04 00 86 40 75 32 54 04 86 40 72 2a f0 a1 7f 68 82 8a 50 46 85 0c 87 52 00 02 1f 02 25 0f 84 3c ad 20 3c e0 f0 15 f0 a1 83 88 81 10 21 01 f0 a1   ┆U    0 A{XU   {8_    " "P` @u(     @u2T  @r*   h  PF   R    %  <  <         !   ┆
0x1038…1088              83 58 f0 a1 83 6a f0 a1 75 3a 19 0d 54 1c 81 40 75 26 50 12 81 40 75 28 21 01 a4 20 ff fe ac 04 35 20 f0 15 84 3d 8f 20 74 70 8f 20 75 04 88 20 75 04 f0 a1 7d f2 8f 20 74 70 50 0e 81 40 75 28 88 20 75 04 f0 a1 7e 64 57 22 81 20 71 1a f0 a1   ┆ X   j  u:  T  @u&P  @u(!       5    =  tp  u   u   }   tpP  @u(  u   ~dW"  q   ┆
0x1088…10d8              7e 96 81 20 71 1a 82 24 91 20 00 42 83 20 80 00 11 04 83 25 1a 01 5c 08 a0 41 71 18 8f 20 74 70 54 06 81 40 72 28 57 04 81 40 75 28 98 41 73 60 8c 20 75 0e 82 40 75 2e 52 04 82 41 72 2c 90 41 73 60 81 41 72 28 87 40 72 2a 28 04 00 04 8f 20   ┆~   q  $   B       %     Aq   tpT  @r(W  @u( As`  u  @u.R  Ar, As` Ar( @r*(     ┆
0x10d8…1128              74 70 98 41 73 60 8c 20 75 0e 81 40 72 28 f0 a1 7d c4 8a 20 75 04 83 40 75 28 87 40 75 26 54 02 03 01 83 49 00 40 5f 3a 50 04 f0 a1 7d f2 81 40 72 28 f0 a1 7e 64 5f 5c 98 41 73 60 88 20 75 0e 01 01 81 41 72 24 81 40 75 32 81 41 72 26 8f 20   ┆tp As`  u  @r(  }   u  @u( @u&T    I @_:P   }  @r(  ~d_  As`  u    Ar$ @u2 Ar&  ┆
0x1128…1178              74 70 81 40 75 28 21 03 81 41 57 1a 8f 20 74 70 50 64 85 40 75 28 82 40 75 1e 50 4c 84 40 75 20 50 9e f0 a1 83 9e e2 04 f0 a1 83 9e a9 08 f0 a1 81 3c 7d 64 52 8a 86 0c 09 22 25 00 08 a8 90 0a a9 52 a0 05 25 52 a8 aa aa 02 a5 2a a5 29 24 cc   ┆tp @u(!  AW   tpPd @u( @u PL @u P                <}dR    "%      R  %R     * )$ ┆

Reduced view