|
DataMuseum.dkPresents historical artifacts from the history of: Philips Data Systems |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Philips Data Systems Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 23666 (0x5c72)
Notes: pts_type(SC)
Names: »DCBSC.SC«
└─⟦928b1fd3e⟧ Bits:30009671 Philips computer tape "600131"
└─⟦this⟧ »PT3272/DCBSC.SC«
IDENT DCBSC REL 11.0 82-04-23 870150541100 =2 TWO DC-LINES =1, CHARAC. ADDR. 81-01-26 **************************************************************** * * * MODULE DCBSC * * MODULE HANDLING THE COMMUNICATION * * BETWEEN THE SLU AND CLUSTER CONTROLLER * * (EMULATION 3270 BSC) * * * **************************************************************** EJECT *********************************************************** * * * ROUTINES * * * * DCINP DC-INPUT MAIN ROUTINE * * READW READ WITH WAIT * * DCWRIT WRITE DC BUFFER * * TSTMES TEST MESSAGE * * SETSTA SET STATUS * * TSTSTA TEST STATUS * * DCABOR ABORT DC REQUEST * * CHKSTA CHACK DC STATUS * * DCOFLN INDICATE OFFLINE TO CLUSTER * * TRPA TRANSMIT SHORT READ * * TRPF TRANSMIT READ MODIFIED * * * *********************************************************** EJECT **************************************************************** * * * ENTRY POINTS * * * **************************************************************** ENTRY DCINP DC-INPUT MAIN ROUTINE ENTRY TSTSTA TEST STATUS ENTRY SETSTA SET STATUS ENTRY OPEN OPEN ENTRY CONCT CONNECT PASSIVE ENTRY DISCON DISCONNECT =2 ENTRY SETTYM SET REQUEST TIMER ENTRY TSTMES TEST MESSAGE. ENTRY DCABOR ABORT DC REQUEST ENTRY TRPA TRANSMIT SHORT READ ENTRY TRPF TRANSMIT READ MODIFIED ENTRY DCOFLN INDICATE OFFLINE TO CLUSTER ENTRY CHKSTA CHECK DC STATUS ENTRY DCWRIT WRITE DC BUFFER ENTRY READW READ DC WITH WAIT ENTRY RDSTAT READ STATISTICS ************************************************************* * * * EXTERNAL REFERENCES * * * ************************************************************* EXTRN GETBUF GET BUFFER (PAD) EXTRN RELBUF RELEASE BUFFER (PAD) EXTRN PAID STORE AID-CODE IN DC BUFFER (PAD) EXTRN SCRINF GET SCREEN INFORMATION (VDU) EXTRN BUFADR STORE BUFFER ADDRESS IN DC BUFFER (PAD) EXTRN PACK PACK MODIFIED FIELDS (PAD) EXTRN LMP3OF INHIBIT LAMP OFF (KEYB) EXTRN DISMOD DISPLAY MODIFIED FIELDS (VDU) EXTRN UNPACK UNPACK DC BUFFER (PAD) EXTRN ERROR INDICATE ERROR (KEYB) EXTRN RESKB RESET KEYBOARD BUFFER (KEYB) EXTRN LMP1ON SYSTEM AVAILABLE DK EXTRN LMP3ON ON EXTRN LMP1OF SYSTEM AVAILABLE DK EJECT ********************************************************* * * * CONDITIONAL ASSEMBLY PARAMETERS * * * ********************************************************* X:C EQU 0 OFFLINE HANDLING IF :=1 OFLIN EQU 0 X:D EQU 1 NUMBER OF LINES (1-2) NBRLIN EQU 2 X:E EQU 300 REQUEST TIMEOUT IN 100 MS REQTIM EQU 00300 X:L EQU 1000 MAX BUFFER SIZE IN WORDS BUFFL EQU 1150 X:O EQU 0 TEST INCLUDED IF:=1 TEST EQU 0 EJECT *************************************************************** * * * DECLARATIONS OF DATA AND EQUATES * * *************************************************************** * * EQUATES FOR ECB HANDLING * ECBBA EQU 2 BUFFER ADDRESS ECBRL EQU 4 REQUESTED LENGTH ECBEL EQU 6 EFFECTIVE LENGTH ECBRC EQU 8 RETURN CODE ECBCW1 EQU 10 CONTROL WORD 1 ECBCW2 EQU 12 CONTROL WORD 2 * * RELATIVE POS. IN ECBBLK * DC EQU 4 EJECT * * RELATIVE ADDRESSES IN * TERMINAL WORKBLOCK * WCC EQU 1952 WCC CHAR. KBINH EQU WCC+2 KB INHIBIT INDICATOR DCLENG EQU KBINH+4 DC READ EFFECTIVE LENGTH MAIN EQU DCLENG+12 MAIN FRAME FLAG ECBBLK EQU MAIN+6 ECB:S FOR MULTIPLE WAIT BUFPNT EQU ECBBLK+14 BUFFER TO RELEASE REGI EQU BUFPNT+2 SAVE AREA ECBDC1 EQU REGI+46 ECB DC LINE 1 ECBDC2 EQU ECBDC1+2 ECB DC LINE 2 * * RELATIVE ADDRESSES IN * COMMON WORKBLOCK * MF1CU EQU 0 SYMBOLIC ADDRESS MF2CU EQU MF1CU+2 SYMBOLIC ADDRESS EJECT ************************************************************ * * * DCINP DC INPUT MAIN ROUTINE * * * ************************************************************ * REGISTERS * * A11= CREDIT WORK AREA * A13= RESERVED * ******************************************** DCINP EQU * CF A14,GETBUF GET BUFFER LDR A3,A8 CF A14,READW READ ONE BUFFER ANK A1,8 OK? RF(Z) DCIN10 YES LDR A8,A12 CF A14,RELBUF RELEASE BUFFER RF DCIN15 DCIN10 EQU * LD A1,ECBEL,A8 ST A1,DCLENG,A11 SAVE LENGTH ST A12,BUFPNT,A11 CF A14,UNPACK UNPACK THE BUFFER CF A14,DISMOD DISPLAY THE NEWS DCIN15 EQU * LD A1,KBINH,A11 LDR A2,A1 ANK A1,1 KEYBOARD TOTALLY INHIBIT? RF(Z) DCIN20 NO ANK A2,/E KEYBOARD NOT TOTALLY INHIBIT LD A1,WCC,A11 ANK A1,2 RESTORE KEYBOARD? RF(Z) DCIN30 NO DCIN20 EQU * CF A14,LMP3OF TUR OFF INHIBIT LAMP ANK A2,4 RESTORE KEYBOARD DCIN30 EQU * ST A2,KBINH,A11 LDK A1,0 CF A14,SETSTA SET DEVICE END RTN A14 EJECT ************************************************************** * * * OPEN OPEN * * ************************************************************** * REGISTERS * * A8= DC ECB * A11= CREDIT WORK AREA * A13= RESERVED * ************************************************************** OPEN EQU * LD A8,ECBDC1,A11 GET ECB ADDRESS LDK A4,0 RESET INDICATOR LD A3,6,A13 GET BASE LD A2,MF1CU,A3 ADDRESS =1 OPEN10 EQU * ST A2,ECBCW2,A8 . =1 LDK A7,/A1 OPEN LKM DATA 1 LD A1,ECBRC,A8 RF(N) OPEN20 IFT NBRLIN=2 LDR A4,A4 ANOTHER LINE TO OPEN RF(NZ) OPEN20 NO LD A8,ECBDC2,A11 GET LINE 2 LD A2,MF2CU,A3 GET SECOND SYMB. ADD DK LDK A4,1 RB OPEN10 XIF OPEN20 EQU * RTN A14 EJECT ********************************************************* * * * CONCT CONNECT PASSIVE * * ********************************************************* * REGISTERS * * A8= DC ECB * A11= CREDIT WORK AREA * A13= RESERVED * ************************************************** CONCT EQU * CF A14,GETBUF GET BUFFER LD A8,ECBDC1,A11 GET LINE 1 LD A3,6,A13 GET BASE =2 . =2 IFT NBRLIN=2 . =2 LD A1,MAIN,A11 SECOND LINE? =2 RF(Z) CONC10 NO! =2 LD A8,ECBDC2,A11 YES! =2 ADK A3,2 SECOND CU =2 XIF . =2 CONC10 EQU * ST A12,ECBBA,A8 LDR* A1,A11 GET TASKID ANK A1,/FF SC A1,+1,A12 SAVE ADDRESS IN BUFFER LDK A1,2 LENGTH ST A1,ECBRL,A8 . =2 LD A1,MF1CU,A3 ST A1,ECBCW2,A8 . =1 LDK A7,/A7 CONNECT PASSIVE LKM DATA 1 LD A1,REGI,A11 GET TABLE TO SAVE PHYS. ADDRESS LD A2,ECBCW2,A8 GET ADDRESS SC A2,+2,A1 SAVE IT FOR COPY COMMAND . =2 LDR A8,A12 CF A14,RELBUF RELEASE BUFFER RTN A14 EJECT . =2 ************************************************************** * * DISCON - DISCONNECT * ************************************************************** * * INPUT: A11 = CREDIT WORK AREA * * USED* A1,A7,A8 * *************************************************************** * DISCON EQU * . =2 CF A14,DCABOR ABORT TEST MESSAGE =2 LDK A7,/AF DISCONNECT =2 LKM . =2 DATA 1 . =2 RTN A14 . =2 EJECT ***************************************************************** * * SETTYM SET REQUEST TIMEOUT * ***************************************************************** * REGISTERS * * ***************************************************************** SETTYM EQU * LD A8,ECBDC1,A11 GET ECB LDK A4,0 RESET INDICATOR LDKL A1,REQTIM GET TIMEOUT VALUE SETT10 EQU * ST A1,ECBCW1,A8 LDK A7,/B9 SET TIMEOUT LKM DATA 1 IFT NBRLIN=2 LDR A4,A4 MORE TO TIME? RF(NZ) SETT20 NO LD A8,ECBDC2,A11 GET LINE 2 LDK A4,1 NO MORE RB SETT10 SETT20 EQU * XIF RTN A14 EJECT ********************************************************* * * * READW RECEIVE * * ********************************************************* * REGISTERS * * A3= BUFFER ADDRESS * A8= DC ECB * A11= CREDIT WORK AREA * A13= RESERVED * ********************************************************* READW EQU * LD A8,ECBDC1,A11 LINE 1 IFT NBRLIN=2 LD A1,MAIN,A11 MORE LINES RF(Z) REDW10 NO LD A8,ECBDC2,A11 LINE 2 REDW10 EQU * XIF LDKL A1,BUFFL+BUFFL GET LENGTH ST A1,ECBRL,A8 ST A3,ECBBA,A8 LDK A7,/82 RECEIVE LKM DATA 1 LD A1,ECBRC,A8 ANK A1,/5B OK? RF(Z) REDW20 YES CF A14,CHKSTA CHECK STATUS LDK A1,8 INDICATE ERROR RF REDW30 REDW20 EQU * LDK A1,2 REDW30 EQU * RTN A14 EJECT ********************************************************* * * * DCWRIT SEND * * ********************************************************* * REGISTERS * * A1= AT ENTRY CHAIN INDICATOR, RETURN CODE * A8= DC ECB * A9= DC BUFFER LENGTH * A11= CREDIT WORK AREA * A13= RESERVED * ***************************************************** DCWRIT EQU * LD A8,ECBDC1,A11 LINE IFT NBRLIN=2 LD A1,MAIN,A11 LINE 2? RF(Z) DCWR10 NO LD A8,ECBDC2,A11 LINE 2 DCWR10 EQU * XIF LDK A2,2 KEYBOARD INHIBIT BUT RESETABLE ORS A2,KBINH,A11 LDK A7,/86 WRITE ORDER ST A12,ECBBA,A8 BUFFER ADDRESS ST A9,ECBRL,A8 LKM DATA 1 LD A1,ECBRC,A8 ANY ERROR? ANK A1,/5B RF(Z) DCWR90 NO CF A14,ERROR CF A14,CHKSTA CHECK DC STATUS LD A1,KBINH,A11 ANK A1,/D RESET KEYBOARD PARTLY ST A1,KBINH,A11 CF A14,LMP3OF INHIBIT LAMP OFF CF A14,RESKB RESET KB BUFFER LDK A1,1 RETURN CODE DCWR90 EQU * RTN A14 EJECT ********************************************************* * * * TSTMES TEST IF ANY MESSAGE, NO WAIT * * * ********************************************************* * REGISTERS * * A1= RETURN CODE * A11= ADDRESS TO CREDIT WORK AREA * A13= ADDRESS TO ECB AREA * ********************************************************* TSTMES EQU * LD A8,ECBDC1,A11 LINE 1 IFT NBRLIN=2 LD A1,MAIN,A11 LINE 2 RF(Z) TSTM10 NO LD A8,ECBDC2,A11 LINE 2 TSTM10 EQU * XIF LDK A2,1 ST A2,ECBCW1,A8 INDICATE TEST MESSAGE LDK A7,0 TEST MESS., NO WAIT LKM DATA 1 RTN A14 EJECT ************************************************************* * * * SETSTA SET STATUS * * * ************************************************************* * REGISTERS * * A1= AT ENTRY STATUS * A8= DC ECB * A11= RESERVED * A13= ADDRESS TO ECB AREA * ************************************************************ SETSTA EQU * LD A8,ECBDC1,A11 IFT NBRLIN=2 LD A2,MAIN,A11 RF(Z) SETS10 LD A8,ECBDC2,A11 SETS10 EQU * XIF LDK A7,/B8 ST A1,ECBCW1,A8 LKM DATA 1 RTN A14 EJECT ****************************************************** * * * TSTSTA TEST STATUS * * * ****************************************************** * REGISTERS * * A1= RETURN CODE * A8= DC ECB * A11= RESERVED * A13= ADDRESS TO ECB AREA * ***************************************************** TSTSTA EQU * LD A8,ECBDC1,A11 LINE 1 IFT NBRLIN=2 LD A1,MAIN,A11 LINE 2? RF(Z) TSTS10 NO LD A8,ECBDC2,A11 LINE 2 TSTS10 EQU * XIF CM ECBCW1,A8 INDICATE TEST STATUS LDK A7,/80 LKM DATA 1 LD A1,ECBCW1,A8 RTN A14 EJECT ********************************************************************* * * RDSTAT READ STATISTICS * ********************************************************************** * REGISTERS * * ********************************************************************* RDSTAT EQU * IFT TEST=1 LD A8,ECBDC1,A11 IFT NBRLIN=2 LD A1,MAIN,A11 THE OTHER LINE RF(Z) RDST10 NO LD A8,ECBDC2,A11 RDST10 EQU * XIF IFT TEST=1 ST A12,ECBBA,A8 LDKL A1,BUFFL+BUFFL ST A1,ECBRL,A8 CM ECBCW1,A8 NO RESET AFTERWARDS LDK A7,/AD LKM DATA 1 RTN A14 XIF EJECT ********************************************************** * * * DCABOR ABORT TEST MESSAGE REQUEST * * * ********************************************************** * REGISTERS * * A8= DC ECB * A11= ADDRESS TO CREDIT WORK AREA * A13= ADDRESS TO ECB AREA * ********************************************************* DCABOR EQU * LD A8,ECBDC1,A11 LINE 1 IFT NBRLIN=2 LD A1,MAIN,A11 LINE 2? RF(Z) DCAB10 NO LD A8,ECBDC2,A11 LINE 2 DCAB10 EQU * . =2 XIF LDK A7,0 LKM DATA 10 LDR A7,A7 OK? RF(NZ) DCAB20 NO, ALREADY COMPLETED =2 CM ECBBLK+DC,A11 DCAB20 EQU * . =2 RTN A14 EJECT * * * * DC RETURN CODE * * * * BIT 0 REQUEST ERROR * 1 RESERVED * 2 RESERVED * * 9 REQUEST TIMEOUT * 11 SEQUENCE ERROR * 12 INCORRECT LENGTH * 13 RESERVED * 14 TRANSMISSION ERROR * 15 NO CONNECTION * * * EJECT ****************************************************** * * * CHKSTA CHECK DC STATUS * * * ****************************************************** * REGISTERS * * A1= AT ENTRY DC RETURN CODE, RETURN CODE * A11= CREDIT WORK AREA * A13= RESERVED * ******************************************************* CHKSTA EQU * CF A14,TSTSTA TEST STATUS ANKL A1,/2211 LINE OK? XRKL A1,/2211 RF(NZ) CHKS10 NO CF A14,LMP1ON SYSTEM AVAIL. RF CHKS20 CHKS10 EQU * * LAMP ONE OFF DELETED P & T * CHKS20 EQU * RTN A14 EJECT ********************************************************* * * * DCOFLN INDICATE OFFLINE TO CLUSTER * * * ********************************************************* * REGISTERS * * A11= CREDIT WORK AREA * A13= RESERVED * ************************************************** DCOFLN EQU * IFT OFLIN=1 CF A14,DCABOR XIF RTN A14 EJECT ***************************************************** * * * TRPA TRANSMIT SHORT READ AT PA-KEY * * * ***************************************************** * REGISTERS * * A2= AID CODE * A11= CREDIT WORK AREA * A13= RESERVED * ***************************************************** TRPA EQU * CF A14,GETBUF GET TRANSMIT BUFFER CF A14,PAID STORE AID IN BUFFER CF A14,DCWRIT TRANSMIT LDR A8,A12 BUFFER TO RELEASE CF A14,RELBUF RELEASE BUFFER RTN A14 EJECT ****************************************************** * * * TRPF TRANSMIT MODIFIED READ AT PF-KEY * * * ****************************************************** * REGISTERS * * A2= AID CODE * A4= REL CURSOR POS. * A5= RESERVED * A6= RESERVED * A11= CREDIT WORK AREA * A13= RESERVED * ****************************************************** TRPF EQU * CF A14,GETBUF GET TRANSMIT BUFFER CF A14,PAID SAVE AID-CODE CF A14,SCRINF GET SCREEN INFORMATION LDR A1,A4 CURSOR ADDRESS CF A14,BUFADR STORE CURSOR ADDRESS IN BUFFER CF A14,PACK PACK BUFFER WITH MODIFIED FIELDS AND TRANSMIT RTN A14 END
0x0000…0034 (0, 0, 400) Head {h00=0x0030, h01=0x0050, text=» IDENT DCBSC REL 11.0 82-04-23 870150541100 «, t00=0x0000, t01=0x0004}
0x0034…003c Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0038}
0x003c…0056 Head {h00=0x0016, h01=0x0050, text=» =2 TWO DC-LINES«, t00=0x0000, t01=0x0040}
0x0056…0072 Head {h00=0x0018, h01=0x0050, text=» =1, CHARAC. ADDR.«, t00=0x0000, t01=0x005a}
0x0072…0086 Head {h00=0x0010, h01=0x0050, text=» 81-01-26 «, t00=0x0000, t01=0x0076}
0x0086…00ce Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0000, t01=0x008a}
0x00ce…0116 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0000, t01=0x00d2}
0x0116…015e Head {h00=0x0044, h01=0x0050, text=»* MODULE DCBSC *«, t00=0x0000, t01=0x011a}
0x015e…01a6 Head {h00=0x0044, h01=0x0050, text=»* MODULE HANDLING THE COMMUNICATION *«, t00=0x0000, t01=0x0162}
0x01a6…01ee Head {h00=0x0044, h01=0x0050, text=»* BETWEEN THE SLU AND CLUSTER CONTROLLER *«, t00=0x0001, t01=0x001a}
0x01ee…0232 Head {h00=0x0040, h01=0x0050, text=»* (EMULATION 3270 BSC) * «, t00=0x0001, t01=0x0062}
0x0232…027a Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0001, t01=0x00a6}
0x027a…02c2 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0001, t01=0x00ee}
0x02c2…02d0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x0136}
0x02d0…0314 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0001, t01=0x0144}
0x0314…0358 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0001, t01=0x0188}
0x0358…039c Head {h00=0x0040, h01=0x0050, text=»* ROUTINES * «, t00=0x0002, t01=0x003c}
0x039c…03e0 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0002, t01=0x0080}
0x03e0…0424 Head {h00=0x0040, h01=0x0050, text=»* DCINP DC-INPUT MAIN ROUTINE * «, t00=0x0002, t01=0x00c4}
0x0424…0468 Head {h00=0x0040, h01=0x0050, text=»* READW READ WITH WAIT * «, t00=0x0002, t01=0x0108}
0x0468…04ac Head {h00=0x0040, h01=0x0050, text=»* DCWRIT WRITE DC BUFFER * «, t00=0x0002, t01=0x014c}
0x04ac…04f0 Head {h00=0x0040, h01=0x0050, text=»* TSTMES TEST MESSAGE * «, t00=0x0002, t01=0x0190}
0x04f0…0534 Head {h00=0x0040, h01=0x0050, text=»* SETSTA SET STATUS * «, t00=0x0003, t01=0x0044}
0x0534…0578 Head {h00=0x0040, h01=0x0050, text=»* TSTSTA TEST STATUS * «, t00=0x0003, t01=0x0088}
0x0578…05bc Head {h00=0x0040, h01=0x0050, text=»* DCABOR ABORT DC REQUEST * «, t00=0x0003, t01=0x00cc}
0x05bc…0600 Head {h00=0x0040, h01=0x0050, text=»* CHKSTA CHACK DC STATUS * «, t00=0x0003, t01=0x0110}
0x0600…0644 Head {h00=0x0040, h01=0x0050, text=»* DCOFLN INDICATE OFFLINE TO CLUSTER * «, t00=0x0003, t01=0x0154}
0x0644…0688 Head {h00=0x0040, h01=0x0050, text=»* TRPA TRANSMIT SHORT READ * «, t00=0x0004, t01=0x0008}
0x0688…06cc Head {h00=0x0040, h01=0x0050, text=»* TRPF TRANSMIT READ MODIFIED * «, t00=0x0004, t01=0x004c}
0x06cc…0710 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x0004, t01=0x0090}
0x0710…0754 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x0004, t01=0x00d4}
0x0754…0762 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0118}
0x0762…07aa Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0004, t01=0x0126}
0x07aa…07f2 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0004, t01=0x016e}
0x07f2…083a Head {h00=0x0044, h01=0x0050, text=»* ENTRY POINTS *«, t00=0x0005, t01=0x0026}
0x083a…0882 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0005, t01=0x006e}
0x0882…08ca Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0005, t01=0x00b6}
0x08ca…08d2 Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x00fe}
0x08d2…08fc Head {h00=0x0026, h01=0x0050, text=» ENTRY DCINP DC-INPUT MAIN ROUTINE«, t00=0x0005, t01=0x0106}
0x08fc…091e Head {h00=0x001e, h01=0x0050, text=» ENTRY TSTSTA TEST STATUS «, t00=0x0005, t01=0x0130}
0x091e…093e Head {h00=0x001c, h01=0x0050, text=» ENTRY SETSTA SET STATUS«, t00=0x0005, t01=0x0152}
0x093e…0956 Head {h00=0x0014, h01=0x0050, text=» ENTRY OPEN OPEN«, t00=0x0005, t01=0x0172}
0x0956…097a Head {h00=0x0020, h01=0x0050, text=» ENTRY CONCT CONNECT PASSIVE«, t00=0x0005, t01=0x018a}
0x097a…099e Head {h00=0x0020, h01=0x0050, text=» ENTRY DISCON DISCONNECT =2 «, t00=0x0006, t01=0x001e}
0x099e…09c6 Head {h00=0x0024, h01=0x0050, text=» ENTRY SETTYM SET REQUEST TIMER «, t00=0x0006, t01=0x0042}
0x09c6…09ea Head {h00=0x0020, h01=0x0050, text=» ENTRY TSTMES TEST MESSAGE. «, t00=0x0006, t01=0x006a}
0x09ea…0a10 Head {h00=0x0022, h01=0x0050, text=» ENTRY DCABOR ABORT DC REQUEST«, t00=0x0006, t01=0x008e}
0x0a10…0a38 Head {h00=0x0024, h01=0x0050, text=» ENTRY TRPA TRANSMIT SHORT READ «, t00=0x0006, t01=0x00b4}
0x0a38…0a62 Head {h00=0x0026, h01=0x0050, text=» ENTRY TRPF TRANSMIT READ MODIFIED«, t00=0x0006, t01=0x00dc}
0x0a62…0a94 Head {h00=0x002e, h01=0x0050, text=» ENTRY DCOFLN INDICATE OFFLINE TO CLUSTER «, t00=0x0006, t01=0x0106}
0x0a94…0aba Head {h00=0x0022, h01=0x0050, text=» ENTRY CHKSTA CHECK DC STATUS «, t00=0x0006, t01=0x0138}
0x0aba…0ae0 Head {h00=0x0022, h01=0x0050, text=» ENTRY DCWRIT WRITE DC BUFFER «, t00=0x0006, t01=0x015e}
0x0ae0…0b06 Head {h00=0x0022, h01=0x0050, text=» ENTRY READW READ DC WITH WAIT«, t00=0x0006, t01=0x0184}
0x0b06…0b2c Head {h00=0x0022, h01=0x0050, text=» ENTRY RDSTAT READ STATISTICS «, t00=0x0007, t01=0x001a}
0x0b2c…0b34 Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x0040}
0x0b34…0b7a Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0007, t01=0x0048}
0x0b7a…0bc0 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0007, t01=0x008e}
0x0bc0…0c06 Head {h00=0x0042, h01=0x0050, text=»* EXTERNAL REFERENCES * «, t00=0x0007, t01=0x00d4}
0x0c06…0c4c Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0007, t01=0x011a}
0x0c4c…0c92 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0007, t01=0x0160}
0x0c92…0c9a Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x0016}
0x0c9a…0cc0 Head {h00=0x0022, h01=0x0050, text=» EXTRN GETBUF GET BUFFER (PAD)«, t00=0x0008, t01=0x001e}
0x0cc0…0cea Head {h00=0x0026, h01=0x0050, text=» EXTRN RELBUF RELEASE BUFFER (PAD)«, t00=0x0008, t01=0x0044}
0x0cea…0d20 Head {h00=0x0032, h01=0x0050, text=» EXTRN PAID STORE AID-CODE IN DC BUFFER (PAD) «, t00=0x0008, t01=0x006e}
0x0d20…0d52 Head {h00=0x002e, h01=0x0050, text=» EXTRN SCRINF GET SCREEN INFORMATION (VDU)«, t00=0x0008, t01=0x00a4}
0x0d52…0d90 Head {h00=0x003a, h01=0x0050, text=» EXTRN BUFADR STORE BUFFER ADDRESS IN DC BUFFER (PAD) «, t00=0x0008, t01=0x00d6}
0x0d90…0dbe Head {h00=0x002a, h01=0x0050, text=» EXTRN PACK PACK MODIFIED FIELDS (PAD)«, t00=0x0008, t01=0x0114}
0x0dbe…0dec Head {h00=0x002a, h01=0x0050, text=» EXTRN LMP3OF INHIBIT LAMP OFF (KEYB) «, t00=0x0008, t01=0x0142}
0x0dec…0e20 Head {h00=0x0030, h01=0x0050, text=» EXTRN DISMOD DISPLAY MODIFIED FIELDS (VDU) «, t00=0x0008, t01=0x0170}
0x0e20…0e4c Head {h00=0x0028, h01=0x0050, text=» EXTRN UNPACK UNPACK DC BUFFER (PAD)«, t00=0x0009, t01=0x0014}
0x0e4c…0e76 Head {h00=0x0026, h01=0x0050, text=» EXTRN ERROR INDICATE ERROR (KEYB)«, t00=0x0009, t01=0x0040}
0x0e76…0ea8 Head {h00=0x002e, h01=0x0050, text=» EXTRN RESKB RESET KEYBOARD BUFFER (KEYB) «, t00=0x0009, t01=0x006a}
0x0ea8…0ed2 Head {h00=0x0026, h01=0x0050, text=» EXTRN LMP1ON SYSTEM AVAILABLE DK «, t00=0x0009, t01=0x009c}
0x0ed2…0efe Head {h00=0x0028, h01=0x0050, text=» EXTRN LMP3ON ON «, t00=0x0009, t01=0x00c6}
0x0efe…0f28 Head {h00=0x0026, h01=0x0050, text=» EXTRN LMP1OF SYSTEM AVAILABLE DK «, t00=0x0009, t01=0x00f2}
0x0f28…0f36 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x011c}
0x0f36…0f78 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0009, t01=0x012a}
0x0f78…0fba Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0009, t01=0x016c}
0x0fba…0ffc Head {h00=0x003e, h01=0x0050, text=»* CONDITIONAL ASSEMBLY PARAMETERS * «, t00=0x000a, t01=0x001e}
0x0ffc…103e Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x000a, t01=0x0060}
0x103e…1080 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x000a, t01=0x00a2}
0x1080…10aa Head {h00=0x0026, h01=0x0050, text=»X:C EQU 0 OFFLINE HANDLING IF :=1 «, t00=0x000a, t01=0x00e4}
0x10aa…10be Head {h00=0x0010, h01=0x0050, text=»OFLIN EQU 0 «, t00=0x000a, t01=0x010e}
0x10be…10e6 Head {h00=0x0024, h01=0x0050, text=»X:D EQU 1 NUMBER OF LINES (1-2) «, t00=0x000a, t01=0x0122}
0x10e6…10fa Head {h00=0x0010, h01=0x0050, text=»NBRLIN EQU 2«, t00=0x000a, t01=0x014a}
0x10fa…1128 Head {h00=0x002a, h01=0x0050, text=»X:E EQU 300 REQUEST TIMEOUT IN 100 MS «, t00=0x000a, t01=0x015e}
0x1128…1140 Head {h00=0x0014, h01=0x0050, text=»REQTIM EQU 00300«, t00=0x000a, t01=0x018c}
0x1140…116e Head {h00=0x002a, h01=0x0050, text=»X:L EQU 1000 MAX BUFFER SIZE IN WORDS «, t00=0x000b, t01=0x0014}
0x116e…1184 Head {h00=0x0012, h01=0x0050, text=»BUFFL EQU 1150«, t00=0x000b, t01=0x0042}
0x1184…11aa Head {h00=0x0022, h01=0x0050, text=»X:O EQU 0 TEST INCLUDED IF:=1 «, t00=0x000b, t01=0x0058}
0x11aa…11bc Head {h00=0x000e, h01=0x0050, text=»TEST EQU 0«, t00=0x000b, t01=0x007e}
0x11bc…11ca Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0090}
0x11ca…1212 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x000b, t01=0x009e}
0x1212…125a Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x000b, t01=0x00e6}
0x125a…1284 Head {h00=0x0026, h01=0x0050, text=»* DECLARATIONS OF DATA AND EQUATES«, t00=0x000b, t01=0x012e}
0x1284…12cc Head {h00=0x0044, h01=0x0050, text=»* * «, t00=0x000b, t01=0x0158}
0x12cc…1314 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x000c, t01=0x0010}
0x1314…131c Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0058}
0x131c…1326 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0060}
0x1326…134e Head {h00=0x0024, h01=0x0050, text=»* EQUATES FOR ECB HANDLING«, t00=0x000c, t01=0x006a}
0x134e…1358 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0092}
0x1358…137a Head {h00=0x001e, h01=0x0050, text=»ECBBA EQU 2 BUFFER ADDRESS«, t00=0x000c, t01=0x009c}
0x137a…139e Head {h00=0x0020, h01=0x0050, text=»ECBRL EQU 4 REQUESTED LENGTH«, t00=0x000c, t01=0x00be}
0x139e…13c2 Head {h00=0x0020, h01=0x0050, text=»ECBEL EQU 6 EFFECTIVE LENGTH«, t00=0x000c, t01=0x00e2}
0x13c2…13e2 Head {h00=0x001c, h01=0x0050, text=»ECBRC EQU 8 RETURN CODE «, t00=0x000c, t01=0x0106}
0x13e2…1406 Head {h00=0x0020, h01=0x0050, text=»ECBCW1 EQU 10 CONTROL WORD 1«, t00=0x000c, t01=0x0126}
0x1406…142a Head {h00=0x0020, h01=0x0050, text=»ECBCW2 EQU 12 CONTROL WORD 2«, t00=0x000c, t01=0x014a}
0x142a…1434 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x016e}
0x1434…1456 Head {h00=0x001e, h01=0x0050, text=»* RELATIVE POS. IN ECBBLK «, t00=0x000c, t01=0x0178}
0x1456…1460 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x000a}
0x1460…1470 Head {h00=0x000c, h01=0x0050, text=»DC EQU 4«, t00=0x000d, t01=0x0014}
0x1470…147e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0024}
0x147e…1488 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0032}
0x1488…14a8 Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x000d, t01=0x003c}
0x14a8…14c4 Head {h00=0x0018, h01=0x0050, text=»* TERMINAL WORKBLOCK«, t00=0x000d, t01=0x005c}
0x14c4…14ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0078}
0x14ce…14ec Head {h00=0x001a, h01=0x0050, text=»WCC EQU 1952 WCC CHAR.«, t00=0x000d, t01=0x0082}
0x14ec…1518 Head {h00=0x0028, h01=0x0050, text=»KBINH EQU WCC+2 KB INHIBIT INDICATOR«, t00=0x000d, t01=0x00a0}
0x1518…154c Head {h00=0x0030, h01=0x0050, text=»DCLENG EQU KBINH+4 DC READ EFFECTIVE LENGTH «, t00=0x000d, t01=0x00cc}
0x154c…1576 Head {h00=0x0026, h01=0x0050, text=»MAIN EQU DCLENG+12 MAIN FRAME FLAG«, t00=0x000d, t01=0x0100}
0x1576…15a8 Head {h00=0x002e, h01=0x0050, text=»ECBBLK EQU MAIN+6 ECB:S FOR MULTIPLE WAIT «, t00=0x000d, t01=0x012a}
0x15a8…15d6 Head {h00=0x002a, h01=0x0050, text=»BUFPNT EQU ECBBLK+14 BUFFER TO RELEASE«, t00=0x000d, t01=0x015c}
0x15d6…15fa Head {h00=0x0020, h01=0x0050, text=»REGI EQU BUFPNT+2 SAVE AREA «, t00=0x000d, t01=0x018a}
0x15fa…1622 Head {h00=0x0024, h01=0x0050, text=»ECBDC1 EQU REGI+46 ECB DC LINE 1«, t00=0x000e, t01=0x001e}
0x1622…164c Head {h00=0x0026, h01=0x0050, text=»ECBDC2 EQU ECBDC1+2 ECB DC LINE 2 «, t00=0x000e, t01=0x0046}
0x164c…1656 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0070}
0x1656…1676 Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x000e, t01=0x007a}
0x1676…1690 Head {h00=0x0016, h01=0x0050, text=»* COMMON WORKBLOCK«, t00=0x000e, t01=0x009a}
0x1690…169a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00b4}
0x169a…16be Head {h00=0x0020, h01=0x0050, text=»MF1CU EQU 0 SYMBOLIC ADDRESS«, t00=0x000e, t01=0x00be}
0x16be…16ea Head {h00=0x0028, h01=0x0050, text=»MF2CU EQU MF1CU+2 SYMBOLIC ADDRESS «, t00=0x000e, t01=0x00e2}
0x16ea…16f8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x010e}
0x16f8…173c Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x000e, t01=0x011c}
0x173c…1780 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x000e, t01=0x0160}
0x1780…17c4 Head {h00=0x0040, h01=0x0050, text=»* DCINP DC INPUT MAIN ROUTINE *«, t00=0x000f, t01=0x0014}
0x17c4…1808 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x000f, t01=0x0058}
0x1808…184c Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x000f, t01=0x009c}
0x184c…1860 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x000f, t01=0x00e0}
0x1860…186a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00f4}
0x186a…188a Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x000f, t01=0x00fe}
0x188a…18a2 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x000f, t01=0x011e}
0x18a2…18ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0136}
0x18ac…18e0 Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x000f, t01=0x0140}
0x18e0…18f4 Head {h00=0x0010, h01=0x0050, text=»DCINP EQU * «, t00=0x000f, t01=0x0174}
0x18f4…1916 Head {h00=0x001e, h01=0x0050, text=» CF A14,GETBUF GET BUFFER «, t00=0x000f, t01=0x0188}
0x1916…1928 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A8«, t00=0x0010, t01=0x001a}
0x1928…194e Head {h00=0x0022, h01=0x0050, text=» CF A14,READW READ ONE BUFFER «, t00=0x0010, t01=0x002c}
0x194e…1964 Head {h00=0x0012, h01=0x0050, text=» ANK A1,8 OK? «, t00=0x0010, t01=0x0052}
0x1964…197e Head {h00=0x0016, h01=0x0050, text=» RF(Z) DCIN10 YES «, t00=0x0010, t01=0x0068}
0x197e…1992 Head {h00=0x0010, h01=0x0050, text=» LDR A8,A12 «, t00=0x0010, t01=0x0082}
0x1992…19b8 Head {h00=0x0022, h01=0x0050, text=» CF A14,RELBUF RELEASE BUFFER «, t00=0x0010, t01=0x0096}
0x19b8…19ca Head {h00=0x000e, h01=0x0050, text=» RF DCIN15«, t00=0x0010, t01=0x00bc}
0x19ca…19de Head {h00=0x0010, h01=0x0050, text=»DCIN10 EQU *«, t00=0x0010, t01=0x00ce}
0x19de…19f6 Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBEL,A8 «, t00=0x0010, t01=0x00e2}
0x19f6…1a1c Head {h00=0x0022, h01=0x0050, text=» ST A1,DCLENG,A11 SAVE LENGTH «, t00=0x0010, t01=0x00fa}
0x1a1c…1a36 Head {h00=0x0016, h01=0x0050, text=» ST A12,BUFPNT,A11«, t00=0x0010, t01=0x0120}
0x1a36…1a5e Head {h00=0x0024, h01=0x0050, text=» CF A14,UNPACK UNPACK THE BUFFER«, t00=0x0010, t01=0x013a}
0x1a5e…1a86 Head {h00=0x0024, h01=0x0050, text=» CF A14,DISMOD DISPLAY THE NEWS «, t00=0x0010, t01=0x0162}
0x1a86…1a9a Head {h00=0x0010, h01=0x0050, text=»DCIN15 EQU *«, t00=0x0010, t01=0x018a}
0x1a9a…1ab2 Head {h00=0x0014, h01=0x0050, text=» LD A1,KBINH,A11«, t00=0x0011, t01=0x000e}
0x1ab2…1ac4 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0011, t01=0x0026}
0x1ac4…1af0 Head {h00=0x0028, h01=0x0050, text=» ANK A1,1 KEYBOARD TOTALLY INHIBIT? «, t00=0x0011, t01=0x0038}
0x1af0…1b08 Head {h00=0x0014, h01=0x0050, text=» RF(Z) DCIN20 NO«, t00=0x0011, t01=0x0064}
0x1b08…1b38 Head {h00=0x002c, h01=0x0050, text=» ANK A2,/E KEYBOARD NOT TOTALLY INHIBIT «, t00=0x0011, t01=0x007c}
0x1b38…1b4e Head {h00=0x0012, h01=0x0050, text=» LD A1,WCC,A11«, t00=0x0011, t01=0x00ac}
0x1b4e…1b72 Head {h00=0x0020, h01=0x0050, text=» ANK A1,2 RESTORE KEYBOARD? «, t00=0x0011, t01=0x00c2}
0x1b72…1b8a Head {h00=0x0014, h01=0x0050, text=» RF(Z) DCIN30 NO«, t00=0x0011, t01=0x00e6}
0x1b8a…1b9e Head {h00=0x0010, h01=0x0050, text=»DCIN20 EQU *«, t00=0x0011, t01=0x00fe}
0x1b9e…1bca Head {h00=0x0028, h01=0x0050, text=» CF A14,LMP3OF TUR OFF INHIBIT LAMP «, t00=0x0011, t01=0x0112}
0x1bca…1bec Head {h00=0x001e, h01=0x0050, text=» ANK A2,4 RESTORE KEYBOARD«, t00=0x0011, t01=0x013e}
0x1bec…1c00 Head {h00=0x0010, h01=0x0050, text=»DCIN30 EQU *«, t00=0x0011, t01=0x0160}
0x1c00…1c18 Head {h00=0x0014, h01=0x0050, text=» ST A2,KBINH,A11«, t00=0x0011, t01=0x0174}
0x1c18…1c2a Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0011, t01=0x018c}
0x1c2a…1c50 Head {h00=0x0022, h01=0x0050, text=» CF A14,SETSTA SET DEVICE END «, t00=0x0012, t01=0x000e}
0x1c50…1c60 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0012, t01=0x0034}
0x1c60…1c6e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x0044}
0x1c6e…1cb4 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0012, t01=0x0052}
0x1cb4…1cfa Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0012, t01=0x0098}
0x1cfa…1d0e Head {h00=0x0010, h01=0x0050, text=»* OPEN OPEN «, t00=0x0012, t01=0x00de}
0x1d0e…1d54 Head {h00=0x0042, h01=0x0050, text=»* *«, t00=0x0012, t01=0x00f2}
0x1d54…1d9a Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0012, t01=0x0138}
0x1d9a…1dae Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0012, t01=0x017e}
0x1dae…1db8 (19, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0004}
0x1db8…1dcc Head {h00=0x0010, h01=0x0050, text=»* A8= DC ECB«, t00=0x0013, t01=0x000e}
0x1dcc…1dec Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0013, t01=0x0022}
0x1dec…1e04 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0013, t01=0x0042}
0x1e04…1e0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x005a}
0x1e0e…1e54 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0013, t01=0x0064}
0x1e54…1e66 Head {h00=0x000e, h01=0x0050, text=»OPEN EQU *«, t00=0x0013, t01=0x00aa}
0x1e66…1e90 Head {h00=0x0026, h01=0x0050, text=» LD A8,ECBDC1,A11 GET ECB ADDRESS «, t00=0x0013, t01=0x00bc}
0x1e90…1eb2 Head {h00=0x001e, h01=0x0050, text=» LDK A4,0 RESET INDICATOR «, t00=0x0013, t01=0x00e6}
0x1eb2…1ed0 Head {h00=0x001a, h01=0x0050, text=» LD A3,6,A13 GET BASE «, t00=0x0013, t01=0x0108}
0x1ed0…1ef2 Head {h00=0x001e, h01=0x0050, text=» LD A2,MF1CU,A3 ADDRESS =1«, t00=0x0013, t01=0x0126}
0x1ef2…1f06 Head {h00=0x0010, h01=0x0050, text=»OPEN10 EQU *«, t00=0x0013, t01=0x0148}
0x1f06…1f24 Head {h00=0x001a, h01=0x0050, text=» ST A2,ECBCW2,A8 . =1 «, t00=0x0013, t01=0x015c}
0x1f24…1f3c Head {h00=0x0014, h01=0x0050, text=» LDK A7,/A1 OPEN«, t00=0x0013, t01=0x017a}
0x1f3c…1f48 (20, 0, 400) Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0014, t01=0x0004}
0x1f48…1f58 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0014, t01=0x0010}
0x1f58…1f70 Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBRC,A8 «, t00=0x0014, t01=0x0020}
0x1f70…1f86 Head {h00=0x0012, h01=0x0050, text=» RF(N) OPEN20 «, t00=0x0014, t01=0x0038}
0x1f86…1f9c Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x0014, t01=0x004e}
0x1f9c…1fc4 Head {h00=0x0024, h01=0x0050, text=» LDR A4,A4 ANOTHER LINE TO OPEN «, t00=0x0014, t01=0x0064}
0x1fc4…1fde Head {h00=0x0016, h01=0x0050, text=» RF(NZ) OPEN20 NO «, t00=0x0014, t01=0x008c}
0x1fde…2002 Head {h00=0x0020, h01=0x0050, text=» LD A8,ECBDC2,A11 GET LINE 2«, t00=0x0014, t01=0x00a6}
0x2002…2032 Head {h00=0x002c, h01=0x0050, text=» LD A2,MF2CU,A3 GET SECOND SYMB. ADD DK «, t00=0x0014, t01=0x00ca}
0x2032…2044 Head {h00=0x000e, h01=0x0050, text=» LDK A4,1 «, t00=0x0014, t01=0x00fa}
0x2044…2056 Head {h00=0x000e, h01=0x0050, text=» RB OPEN10«, t00=0x0014, t01=0x010c}
0x2056…2062 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x011e}
0x2062…2076 Head {h00=0x0010, h01=0x0050, text=»OPEN20 EQU *«, t00=0x0014, t01=0x012a}
0x2076…2086 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0014, t01=0x013e}
0x2086…2094 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x014e}
0x2094…20d6 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0014, t01=0x015c}
0x20d6…2118 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0015, t01=0x000e}
0x2118…2138 Head {h00=0x001c, h01=0x0050, text=»* CONCT CONNECT PASSIVE «, t00=0x0015, t01=0x0050}
0x2138…217a Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0015, t01=0x0070}
0x217a…21bc Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0015, t01=0x00b2}
0x21bc…21d0 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0015, t01=0x00f4}
0x21d0…21da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0108}
0x21da…21ee Head {h00=0x0010, h01=0x0050, text=»* A8= DC ECB«, t00=0x0015, t01=0x0112}
0x21ee…220e Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0015, t01=0x0126}
0x220e…2226 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0015, t01=0x0146}
0x2226…2230 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x015e}
0x2230…226a Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0015, t01=0x0168}
0x226a…227e Head {h00=0x0010, h01=0x0050, text=»CONCT EQU * «, t00=0x0016, t01=0x0012}
0x227e…22a0 Head {h00=0x001e, h01=0x0050, text=» CF A14,GETBUF GET BUFFER «, t00=0x0016, t01=0x0026}
0x22a0…22c4 Head {h00=0x0020, h01=0x0050, text=» LD A8,ECBDC1,A11 GET LINE 1«, t00=0x0016, t01=0x0048}
0x22c4…22e4 Head {h00=0x001c, h01=0x0050, text=» LD A3,6,A13 GET BASE =2«, t00=0x0016, t01=0x006c}
0x22e4…22f4 Head {h00=0x000c, h01=0x0050, text=» . =2 «, t00=0x0016, t01=0x008c}
0x22f4…230e Head {h00=0x0016, h01=0x0050, text=» IFT NBRLIN=2 . =2«, t00=0x0016, t01=0x009c}
0x230e…2336 Head {h00=0x0024, h01=0x0050, text=» LD A1,MAIN,A11 SECOND LINE? =2 «, t00=0x0016, t01=0x00b6}
0x2336…2352 Head {h00=0x0018, h01=0x0050, text=» RF(Z) CONC10 NO! =2«, t00=0x0016, t01=0x00de}
0x2352…2374 Head {h00=0x001e, h01=0x0050, text=» LD A8,ECBDC2,A11 YES! =2 «, t00=0x0016, t01=0x00fa}
0x2374…2392 Head {h00=0x001a, h01=0x0050, text=» ADK A3,2 SECOND CU =2«, t00=0x0016, t01=0x011c}
0x2392…23a4 Head {h00=0x000e, h01=0x0050, text=» XIF . =2«, t00=0x0016, t01=0x013a}
0x23a4…23b8 Head {h00=0x0010, h01=0x0050, text=»CONC10 EQU *«, t00=0x0016, t01=0x014c}
0x23b8…23d0 Head {h00=0x0014, h01=0x0050, text=» ST A12,ECBBA,A8«, t00=0x0016, t01=0x0160}
0x23d0…23f0 Head {h00=0x001c, h01=0x0050, text=» LDR* A1,A11 GET TASKID «, t00=0x0016, t01=0x0178}
0x23f0…2404 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0017, t01=0x0008}
0x2404…2430 Head {h00=0x0028, h01=0x0050, text=» SC A1,+1,A12 SAVE ADDRESS IN BUFFER«, t00=0x0017, t01=0x001c}
0x2430…2448 Head {h00=0x0014, h01=0x0050, text=» LDK A1,2 LENGTH«, t00=0x0017, t01=0x0048}
0x2448…2460 Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBRL,A8 «, t00=0x0017, t01=0x0060}
0x2460…2470 Head {h00=0x000c, h01=0x0050, text=» . =2 «, t00=0x0017, t01=0x0078}
0x2470…2488 Head {h00=0x0014, h01=0x0050, text=» LD A1,MF1CU,A3 «, t00=0x0017, t01=0x0088}
0x2488…24a6 Head {h00=0x001a, h01=0x0050, text=» ST A1,ECBCW2,A8 . =1 «, t00=0x0017, t01=0x00a0}
0x24a6…24ca Head {h00=0x0020, h01=0x0050, text=» LDK A7,/A7 CONNECT PASSIVE «, t00=0x0017, t01=0x00be}
0x24ca…24d6 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0017, t01=0x00e2}
0x24d6…24e6 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0017, t01=0x00ee}
0x24e6…251e Head {h00=0x0034, h01=0x0050, text=» LD A1,REGI,A11 GET TABLE TO SAVE PHYS. ADDRESS «, t00=0x0017, t01=0x00fe}
0x251e…2542 Head {h00=0x0020, h01=0x0050, text=» LD A2,ECBCW2,A8 GET ADDRESS«, t00=0x0017, t01=0x0136}
0x2542…2570 Head {h00=0x002a, h01=0x0050, text=» SC A2,+2,A1 SAVE IT FOR COPY COMMAND «, t00=0x0017, t01=0x015a}
0x2570…2580 Head {h00=0x000c, h01=0x0050, text=» . =2 «, t00=0x0017, t01=0x0188}
0x2580…2594 Head {h00=0x0010, h01=0x0050, text=» LDR A8,A12 «, t00=0x0018, t01=0x0008}
0x2594…25ba Head {h00=0x0022, h01=0x0050, text=» CF A14,RELBUF RELEASE BUFFER «, t00=0x0018, t01=0x001c}
0x25ba…25ca Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0018, t01=0x0042}
0x25ca…25de Head {h00=0x0010, h01=0x0050, text=» EJECT . =2«, t00=0x0018, t01=0x0052}
0x25de…2624 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0018, t01=0x0066}
0x2624…262e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00ac}
0x262e…2654 Head {h00=0x0022, h01=0x0050, text=»* DISCON - DISCONNECT «, t00=0x0018, t01=0x00b6}
0x2654…265e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00dc}
0x265e…26a4 Head {h00=0x0042, h01=0x0050, text=»**************************************************************«, t00=0x0018, t01=0x00e6}
0x26a4…26ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x012c}
0x26ae…26d6 Head {h00=0x0024, h01=0x0050, text=»* INPUT: A11 = CREDIT WORK AREA «, t00=0x0018, t01=0x0136}
0x26d6…26e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x015e}
0x26e0…26fa Head {h00=0x0016, h01=0x0050, text=»* USED* A1,A7,A8 «, t00=0x0018, t01=0x0168}
0x26fa…2704 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0182}
0x2704…274c Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0018, t01=0x018c}
0x274c…2756 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0044}
0x2756…2770 Head {h00=0x0016, h01=0x0050, text=»DISCON EQU * . =2 «, t00=0x0019, t01=0x004e}
0x2770…279c Head {h00=0x0028, h01=0x0050, text=» CF A14,DCABOR ABORT TEST MESSAGE =2«, t00=0x0019, t01=0x0068}
0x279c…27be Head {h00=0x001e, h01=0x0050, text=» LDK A7,/AF DISCONNECT =2 «, t00=0x0019, t01=0x0094}
0x27be…27d0 Head {h00=0x000e, h01=0x0050, text=» LKM . =2«, t00=0x0019, t01=0x00b6}
0x27d0…27e4 Head {h00=0x0010, h01=0x0050, text=» DATA 1 . =2«, t00=0x0019, t01=0x00c8}
0x27e4…27fa Head {h00=0x0012, h01=0x0050, text=» RTN A14 . =2 «, t00=0x0019, t01=0x00dc}
0x27fa…2808 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x00f2}
0x2808…2852 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0019, t01=0x0100}
0x2852…285c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x014a}
0x285c…2880 Head {h00=0x0020, h01=0x0050, text=»* SETTYM SET REQUEST TIMEOUT«, t00=0x0019, t01=0x0154}
0x2880…288a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0178}
0x288a…28d4 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x0019, t01=0x0182}
0x28d4…28f4 Head {h00=0x001c, h01=0x0050, text=»* REGISTERS«, t00=0x001a, t01=0x003c}
0x28f4…28fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x005c}
0x28fe…2908 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0066}
0x2908…2952 Head {h00=0x0046, h01=0x0050, text=»***************************************************************** «, t00=0x001a, t01=0x0070}
0x2952…2966 Head {h00=0x0010, h01=0x0050, text=»SETTYM EQU *«, t00=0x001a, t01=0x00ba}
0x2966…2988 Head {h00=0x001e, h01=0x0050, text=» LD A8,ECBDC1,A11 GET ECB «, t00=0x001a, t01=0x00ce}
0x2988…29aa Head {h00=0x001e, h01=0x0050, text=» LDK A4,0 RESET INDICATOR «, t00=0x001a, t01=0x00f0}
0x29aa…29d4 Head {h00=0x0026, h01=0x0050, text=» LDKL A1,REQTIM GET TIMEOUT VALUE «, t00=0x001a, t01=0x0112}
0x29d4…29e8 Head {h00=0x0010, h01=0x0050, text=»SETT10 EQU *«, t00=0x001a, t01=0x013c}
0x29e8…2a00 Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW1,A8«, t00=0x001a, t01=0x0150}
0x2a00…2a20 Head {h00=0x001c, h01=0x0050, text=» LDK A7,/B9 SET TIMEOUT «, t00=0x001a, t01=0x0168}
0x2a20…2a2c Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001a, t01=0x0188}
0x2a2c…2a3c (27, 0, 400) Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001b, t01=0x0004}
0x2a3c…2a52 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x001b, t01=0x0014}
0x2a52…2a72 Head {h00=0x001c, h01=0x0050, text=» LDR A4,A4 MORE TO TIME?«, t00=0x001b, t01=0x002a}
0x2a72…2a8c Head {h00=0x0016, h01=0x0050, text=» RF(NZ) SETT20 NO «, t00=0x001b, t01=0x004a}
0x2a8c…2ab0 Head {h00=0x0020, h01=0x0050, text=» LD A8,ECBDC2,A11 GET LINE 2«, t00=0x001b, t01=0x0064}
0x2ab0…2aca Head {h00=0x0016, h01=0x0050, text=» LDK A4,1 NO MORE «, t00=0x001b, t01=0x0088}
0x2aca…2adc Head {h00=0x000e, h01=0x0050, text=» RB SETT10«, t00=0x001b, t01=0x00a2}
0x2adc…2af0 Head {h00=0x0010, h01=0x0050, text=»SETT20 EQU *«, t00=0x001b, t01=0x00b4}
0x2af0…2afe Head {h00=0x000a, h01=0x0050, text=» XIF «, t00=0x001b, t01=0x00c8}
0x2afe…2b0e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001b, t01=0x00d6}
0x2b0e…2b1c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x00e6}
0x2b1c…2b5e Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x001b, t01=0x00f4}
0x2b5e…2ba0 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x001b, t01=0x0136}
0x2ba0…2bb8 Head {h00=0x0014, h01=0x0050, text=»* READW RECEIVE «, t00=0x001b, t01=0x0178}
0x2bb8…2bfa Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x001b, t01=0x0190}
0x2bfa…2c3c Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x001c, t01=0x0042}
0x2c3c…2c50 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x001c, t01=0x0084}
0x2c50…2c5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0098}
0x2c5a…2c76 Head {h00=0x0018, h01=0x0050, text=»* A3= BUFFER ADDRESS«, t00=0x001c, t01=0x00a2}
0x2c76…2c8a Head {h00=0x0010, h01=0x0050, text=»* A8= DC ECB«, t00=0x001c, t01=0x00be}
0x2c8a…2caa Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x001c, t01=0x00d2}
0x2caa…2cc2 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x001c, t01=0x00f2}
0x2cc2…2ccc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x010a}
0x2ccc…2d0e Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x001c, t01=0x0114}
0x2d0e…2d22 Head {h00=0x0010, h01=0x0050, text=»READW EQU * «, t00=0x001c, t01=0x0156}
0x2d22…2d42 Head {h00=0x001c, h01=0x0050, text=» LD A8,ECBDC1,A11 LINE 1«, t00=0x001c, t01=0x016a}
0x2d42…2d58 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x001c, t01=0x018a}
0x2d58…2d7a Head {h00=0x001e, h01=0x0050, text=» LD A1,MAIN,A11 MORE LINES«, t00=0x001d, t01=0x0010}
0x2d7a…2d92 Head {h00=0x0014, h01=0x0050, text=» RF(Z) REDW10 NO«, t00=0x001d, t01=0x0032}
0x2d92…2db2 Head {h00=0x001c, h01=0x0050, text=» LD A8,ECBDC2,A11 LINE 2«, t00=0x001d, t01=0x004a}
0x2db2…2dc6 Head {h00=0x0010, h01=0x0050, text=»REDW10 EQU *«, t00=0x001d, t01=0x006a}
0x2dc6…2dd2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x007e}
0x2dd2…2dfa Head {h00=0x0024, h01=0x0050, text=» LDKL A1,BUFFL+BUFFL GET LENGTH «, t00=0x001d, t01=0x008a}
0x2dfa…2e12 Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBRL,A8 «, t00=0x001d, t01=0x00b2}
0x2e12…2e2a Head {h00=0x0014, h01=0x0050, text=» ST A3,ECBBA,A8 «, t00=0x001d, t01=0x00ca}
0x2e2a…2e46 Head {h00=0x0018, h01=0x0050, text=» LDK A7,/82 RECEIVE «, t00=0x001d, t01=0x00e2}
0x2e46…2e52 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001d, t01=0x00fe}
0x2e52…2e62 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001d, t01=0x010a}
0x2e62…2e7a Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBRC,A8 «, t00=0x001d, t01=0x011a}
0x2e7a…2e92 Head {h00=0x0014, h01=0x0050, text=» ANK A1,/5B OK? «, t00=0x001d, t01=0x0132}
0x2e92…2eac Head {h00=0x0016, h01=0x0050, text=» RF(Z) REDW20 YES «, t00=0x001d, t01=0x014a}
0x2eac…2ed0 Head {h00=0x0020, h01=0x0050, text=» CF A14,CHKSTA CHECK STATUS «, t00=0x001d, t01=0x0164}
0x2ed0…2ef0 Head {h00=0x001c, h01=0x0050, text=» LDK A1,8 INDICATE ERROR«, t00=0x001d, t01=0x0188}
0x2ef0…2f02 Head {h00=0x000e, h01=0x0050, text=» RF REDW30«, t00=0x001e, t01=0x0018}
0x2f02…2f16 Head {h00=0x0010, h01=0x0050, text=»REDW20 EQU *«, t00=0x001e, t01=0x002a}
0x2f16…2f28 Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x001e, t01=0x003e}
0x2f28…2f3c Head {h00=0x0010, h01=0x0050, text=»REDW30 EQU *«, t00=0x001e, t01=0x0050}
0x2f3c…2f4c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001e, t01=0x0064}
0x2f4c…2f5a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x0074}
0x2f5a…2f9c Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x001e, t01=0x0082}
0x2f9c…2fde Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x001e, t01=0x00c4}
0x2fde…2ff4 Head {h00=0x0012, h01=0x0050, text=»* DCWRIT SEND «, t00=0x001e, t01=0x0106}
0x2ff4…3036 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x001e, t01=0x011c}
0x3036…3078 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x001e, t01=0x015e}
0x3078…308c Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x001f, t01=0x0010}
0x308c…3096 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0024}
0x3096…30ca Head {h00=0x0030, h01=0x0050, text=»* A1= AT ENTRY CHAIN INDICATOR, RETURN CODE «, t00=0x001f, t01=0x002e}
0x30ca…30de Head {h00=0x0010, h01=0x0050, text=»* A8= DC ECB«, t00=0x001f, t01=0x0062}
0x30de…30fc Head {h00=0x001a, h01=0x0050, text=»* A9= DC BUFFER LENGTH«, t00=0x001f, t01=0x0076}
0x30fc…311c Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x001f, t01=0x0094}
0x311c…3134 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x001f, t01=0x00b4}
0x3134…313e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00cc}
0x313e…317c Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x001f, t01=0x00d6}
0x317c…3190 Head {h00=0x0010, h01=0x0050, text=»DCWRIT EQU *«, t00=0x001f, t01=0x0114}
0x3190…31ae Head {h00=0x001a, h01=0x0050, text=» LD A8,ECBDC1,A11 LINE«, t00=0x001f, t01=0x0128}
0x31ae…31c4 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x001f, t01=0x0146}
0x31c4…31e4 Head {h00=0x001c, h01=0x0050, text=» LD A1,MAIN,A11 LINE 2? «, t00=0x001f, t01=0x015c}
0x31e4…31fc Head {h00=0x0014, h01=0x0050, text=» RF(Z) DCWR10 NO«, t00=0x001f, t01=0x017c}
0x31fc…321c (32, 0, 400) Head {h00=0x001c, h01=0x0050, text=» LD A8,ECBDC2,A11 LINE 2«, t00=0x0020, t01=0x0004}
0x321c…3230 Head {h00=0x0010, h01=0x0050, text=»DCWR10 EQU *«, t00=0x0020, t01=0x0024}
0x3230…323c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x0038}
0x323c…326c Head {h00=0x002c, h01=0x0050, text=» LDK A2,2 KEYBOARD INHIBIT BUT RESETABLE«, t00=0x0020, t01=0x0044}
0x326c…3286 Head {h00=0x0016, h01=0x0050, text=» ORS A2,KBINH,A11 «, t00=0x0020, t01=0x0074}
0x3286…32a6 Head {h00=0x001c, h01=0x0050, text=» LDK A7,/86 WRITE ORDER «, t00=0x0020, t01=0x008e}
0x32a6…32ce Head {h00=0x0024, h01=0x0050, text=» ST A12,ECBBA,A8 BUFFER ADDRESS «, t00=0x0020, t01=0x00ae}
0x32ce…32e6 Head {h00=0x0014, h01=0x0050, text=» ST A9,ECBRL,A8 «, t00=0x0020, t01=0x00d6}
0x32e6…32f2 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0020, t01=0x00ee}
0x32f2…3302 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0020, t01=0x00fa}
0x3302…3324 Head {h00=0x001e, h01=0x0050, text=» LD A1,ECBRC,A8 ANY ERROR?«, t00=0x0020, t01=0x010a}
0x3324…3338 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/5B «, t00=0x0020, t01=0x012c}
0x3338…3350 Head {h00=0x0014, h01=0x0050, text=» RF(Z) DCWR90 NO«, t00=0x0020, t01=0x0140}
0x3350…3366 Head {h00=0x0012, h01=0x0050, text=» CF A14,ERROR «, t00=0x0020, t01=0x0158}
0x3366…338c Head {h00=0x0022, h01=0x0050, text=» CF A14,CHKSTA CHECK DC STATUS«, t00=0x0020, t01=0x016e}
0x338c…33a4 (33, 0, 400) Head {h00=0x0014, h01=0x0050, text=» LD A1,KBINH,A11«, t00=0x0021, t01=0x0004}
0x33a4…33cc Head {h00=0x0024, h01=0x0050, text=» ANK A1,/D RESET KEYBOARD PARTLY«, t00=0x0021, t01=0x001c}
0x33cc…33e4 Head {h00=0x0014, h01=0x0050, text=» ST A1,KBINH,A11«, t00=0x0021, t01=0x0044}
0x33e4…340c Head {h00=0x0024, h01=0x0050, text=» CF A14,LMP3OF INHIBIT LAMP OFF «, t00=0x0021, t01=0x005c}
0x340c…3432 Head {h00=0x0022, h01=0x0050, text=» CF A14,RESKB RESET KB BUFFER «, t00=0x0021, t01=0x0084}
0x3432…3450 Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 RETURN CODE «, t00=0x0021, t01=0x00aa}
0x3450…3464 Head {h00=0x0010, h01=0x0050, text=»DCWR90 EQU *«, t00=0x0021, t01=0x00c8}
0x3464…3474 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0021, t01=0x00dc}
0x3474…3482 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x00ec}
0x3482…34c4 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0021, t01=0x00fa}
0x34c4…3506 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0021, t01=0x013c}
0x3506…3548 Head {h00=0x003e, h01=0x0050, text=»* TSTMES TEST IF ANY MESSAGE, NO WAIT * «, t00=0x0021, t01=0x017e}
0x3548…358a Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0022, t01=0x0030}
0x358a…35cc Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0022, t01=0x0072}
0x35cc…35e0 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0022, t01=0x00b4}
0x35e0…35ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00c8}
0x35ea…3604 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x0022, t01=0x00d2}
0x3604…362e Head {h00=0x0026, h01=0x0050, text=»* A11= ADDRESS TO CREDIT WORK AREA«, t00=0x0022, t01=0x00ec}
0x362e…3650 Head {h00=0x001e, h01=0x0050, text=»* A13= ADDRESS TO ECB AREA«, t00=0x0022, t01=0x0116}
0x3650…365a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0138}
0x365a…369c Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0022, t01=0x0142}
0x369c…36b0 Head {h00=0x0010, h01=0x0050, text=»TSTMES EQU *«, t00=0x0022, t01=0x0184}
0x36b0…36d0 Head {h00=0x001c, h01=0x0050, text=» LD A8,ECBDC1,A11 LINE 1«, t00=0x0023, t01=0x0008}
0x36d0…36e6 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x0023, t01=0x0028}
0x36e6…3704 Head {h00=0x001a, h01=0x0050, text=» LD A1,MAIN,A11 LINE 2«, t00=0x0023, t01=0x003e}
0x3704…371c Head {h00=0x0014, h01=0x0050, text=» RF(Z) TSTM10 NO«, t00=0x0023, t01=0x005c}
0x371c…373c Head {h00=0x001c, h01=0x0050, text=» LD A8,ECBDC2,A11 LINE 2«, t00=0x0023, t01=0x0074}
0x373c…3750 Head {h00=0x0010, h01=0x0050, text=»TSTM10 EQU *«, t00=0x0023, t01=0x0094}
0x3750…375c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x00a8}
0x375c…376e Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x0023, t01=0x00b4}
0x376e…379c Head {h00=0x002a, h01=0x0050, text=» ST A2,ECBCW1,A8 INDICATE TEST MESSAGE«, t00=0x0023, t01=0x00c6}
0x379c…37c2 Head {h00=0x0022, h01=0x0050, text=» LDK A7,0 TEST MESS., NO WAIT «, t00=0x0023, t01=0x00f4}
0x37c2…37ce Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0023, t01=0x011a}
0x37ce…37de Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0023, t01=0x0126}
0x37de…37ee Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0023, t01=0x0136}
0x37ee…37fc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x0146}
0x37fc…3842 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0023, t01=0x0154}
0x3842…3888 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0024, t01=0x000a}
0x3888…38ce Head {h00=0x0042, h01=0x0050, text=»* SETSTA SET STATUS * «, t00=0x0024, t01=0x0050}
0x38ce…3914 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0024, t01=0x0096}
0x3914…395a Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0024, t01=0x00dc}
0x395a…396e Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0024, t01=0x0122}
0x396e…3978 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0136}
0x3978…3996 Head {h00=0x001a, h01=0x0050, text=»* A1= AT ENTRY STATUS «, t00=0x0024, t01=0x0140}
0x3996…39aa Head {h00=0x0010, h01=0x0050, text=»* A8= DC ECB«, t00=0x0024, t01=0x015e}
0x39aa…39c2 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0024, t01=0x0172}
0x39c2…39e4 Head {h00=0x001e, h01=0x0050, text=»* A13= ADDRESS TO ECB AREA«, t00=0x0024, t01=0x018a}
0x39e4…39ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x001c}
0x39ee…3a32 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0025, t01=0x0026}
0x3a32…3a46 Head {h00=0x0010, h01=0x0050, text=»SETSTA EQU *«, t00=0x0025, t01=0x006a}
0x3a46…3a60 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBDC1,A11 «, t00=0x0025, t01=0x007e}
0x3a60…3a76 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x0025, t01=0x0098}
0x3a76…3a8e Head {h00=0x0014, h01=0x0050, text=» LD A2,MAIN,A11 «, t00=0x0025, t01=0x00ae}
0x3a8e…3aa4 Head {h00=0x0012, h01=0x0050, text=» RF(Z) SETS10 «, t00=0x0025, t01=0x00c6}
0x3aa4…3abe Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBDC2,A11 «, t00=0x0025, t01=0x00dc}
0x3abe…3ad2 Head {h00=0x0010, h01=0x0050, text=»SETS10 EQU *«, t00=0x0025, t01=0x00f6}
0x3ad2…3ade Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x010a}
0x3ade…3af2 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/B8 «, t00=0x0025, t01=0x0116}
0x3af2…3b0a Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBCW1,A8«, t00=0x0025, t01=0x012a}
0x3b0a…3b16 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0025, t01=0x0142}
0x3b16…3b26 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0025, t01=0x014e}
0x3b26…3b36 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0025, t01=0x015e}
0x3b36…3b44 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x016e}
0x3b44…3b82 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0025, t01=0x017c}
0x3b82…3bc0 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0026, t01=0x002a}
0x3bc0…3bfe Head {h00=0x003a, h01=0x0050, text=»* TSTSTA TEST STATUS *«, t00=0x0026, t01=0x0068}
0x3bfe…3c3c Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0026, t01=0x00a6}
0x3c3c…3c7a Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0026, t01=0x00e4}
0x3c7a…3c8e Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0026, t01=0x0122}
0x3c8e…3c98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0136}
0x3c98…3cb2 Head {h00=0x0016, h01=0x0050, text=»* A1= RETURN CODE «, t00=0x0026, t01=0x0140}
0x3cb2…3cc6 Head {h00=0x0010, h01=0x0050, text=»* A8= DC ECB«, t00=0x0026, t01=0x015a}
0x3cc6…3cde Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x0026, t01=0x016e}
0x3cde…3d00 Head {h00=0x001e, h01=0x0050, text=»* A13= ADDRESS TO ECB AREA«, t00=0x0026, t01=0x0186}
0x3d00…3d0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0018}
0x3d0a…3d48 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0027, t01=0x0022}
0x3d48…3d5c Head {h00=0x0010, h01=0x0050, text=»TSTSTA EQU *«, t00=0x0027, t01=0x0060}
0x3d5c…3d7c Head {h00=0x001c, h01=0x0050, text=» LD A8,ECBDC1,A11 LINE 1«, t00=0x0027, t01=0x0074}
0x3d7c…3d92 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x0027, t01=0x0094}
0x3d92…3db2 Head {h00=0x001c, h01=0x0050, text=» LD A1,MAIN,A11 LINE 2? «, t00=0x0027, t01=0x00aa}
0x3db2…3dca Head {h00=0x0014, h01=0x0050, text=» RF(Z) TSTS10 NO«, t00=0x0027, t01=0x00ca}
0x3dca…3dea Head {h00=0x001c, h01=0x0050, text=» LD A8,ECBDC2,A11 LINE 2«, t00=0x0027, t01=0x00e2}
0x3dea…3dfe Head {h00=0x0010, h01=0x0050, text=»TSTS10 EQU *«, t00=0x0027, t01=0x0102}
0x3dfe…3e0a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x0116}
0x3e0a…3e34 Head {h00=0x0026, h01=0x0050, text=» CM ECBCW1,A8 INDICATE TEST STATUS«, t00=0x0027, t01=0x0122}
0x3e34…3e48 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/80 «, t00=0x0027, t01=0x014c}
0x3e48…3e54 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0027, t01=0x0160}
0x3e54…3e64 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0027, t01=0x016c}
0x3e64…3e7c Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBCW1,A8«, t00=0x0027, t01=0x017c}
0x3e7c…3e8c (40, 0, 400) Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0028, t01=0x0004}
0x3e8c…3e9a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x0014}
0x3e9a…3ee8 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0028, t01=0x0022}
0x3ee8…3ef2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0070}
0x3ef2…3f12 Head {h00=0x001c, h01=0x0050, text=»* RDSTAT READ STATISTICS«, t00=0x0028, t01=0x007a}
0x3f12…3f1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x009a}
0x3f1c…3f6a Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0028, t01=0x00a4}
0x3f6a…3f86 Head {h00=0x0018, h01=0x0050, text=»* REGISTERS «, t00=0x0028, t01=0x00f2}
0x3f86…3f90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x010e}
0x3f90…3f9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0118}
0x3f9a…3fe8 Head {h00=0x004a, h01=0x0050, text=»********************************************************************* «, t00=0x0028, t01=0x0122}
0x3fe8…3ffc Head {h00=0x0010, h01=0x0050, text=»RDSTAT EQU *«, t00=0x0028, t01=0x0170}
0x3ffc…4010 Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x0028, t01=0x0184}
0x4010…402a Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBDC1,A11 «, t00=0x0029, t01=0x0008}
0x402a…4040 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x0029, t01=0x0022}
0x4040…4066 Head {h00=0x0022, h01=0x0050, text=» LD A1,MAIN,A11 THE OTHER LINE«, t00=0x0029, t01=0x0038}
0x4066…407e Head {h00=0x0014, h01=0x0050, text=» RF(Z) RDST10 NO«, t00=0x0029, t01=0x005e}
0x407e…4098 Head {h00=0x0016, h01=0x0050, text=» LD A8,ECBDC2,A11 «, t00=0x0029, t01=0x0076}
0x4098…40ac Head {h00=0x0010, h01=0x0050, text=»RDST10 EQU *«, t00=0x0029, t01=0x0090}
0x40ac…40b8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x00a4}
0x40b8…40cc Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x0029, t01=0x00b0}
0x40cc…40e4 Head {h00=0x0014, h01=0x0050, text=» ST A12,ECBBA,A8«, t00=0x0029, t01=0x00c4}
0x40e4…4100 Head {h00=0x0018, h01=0x0050, text=» LDKL A1,BUFFL+BUFFL«, t00=0x0029, t01=0x00dc}
0x4100…4118 Head {h00=0x0014, h01=0x0050, text=» ST A1,ECBRL,A8 «, t00=0x0029, t01=0x00f8}
0x4118…4142 Head {h00=0x0026, h01=0x0050, text=» CM ECBCW1,A8 NO RESET AFTERWARDS «, t00=0x0029, t01=0x0110}
0x4142…4156 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/AD «, t00=0x0029, t01=0x013a}
0x4156…4162 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0029, t01=0x014e}
0x4162…4172 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0029, t01=0x015a}
0x4172…4182 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0029, t01=0x016a}
0x4182…418e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x017a}
0x418e…419c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x0186}
0x419c…41de (42, 0, 400) Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x002a, t01=0x0004}
0x41de…4220 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x002a, t01=0x0046}
0x4220…4262 Head {h00=0x003e, h01=0x0050, text=»* DCABOR ABORT TEST MESSAGE REQUEST *«, t00=0x002a, t01=0x0088}
0x4262…42a4 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x002a, t01=0x00ca}
0x42a4…42e6 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x002a, t01=0x010c}
0x42e6…42fa Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x002a, t01=0x014e}
0x42fa…4304 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0162}
0x4304…4318 Head {h00=0x0010, h01=0x0050, text=»* A8= DC ECB«, t00=0x002a, t01=0x016c}
0x4318…4344 Head {h00=0x0028, h01=0x0050, text=»* A11= ADDRESS TO CREDIT WORK AREA «, t00=0x002a, t01=0x0180}
0x4344…4366 Head {h00=0x001e, h01=0x0050, text=»* A13= ADDRESS TO ECB AREA«, t00=0x002b, t01=0x001c}
0x4366…4370 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x003e}
0x4370…43b2 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x002b, t01=0x0048}
0x43b2…43c6 Head {h00=0x0010, h01=0x0050, text=»DCABOR EQU *«, t00=0x002b, t01=0x008a}
0x43c6…43e6 Head {h00=0x001c, h01=0x0050, text=» LD A8,ECBDC1,A11 LINE 1«, t00=0x002b, t01=0x009e}
0x43e6…43fc Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x002b, t01=0x00be}
0x43fc…441c Head {h00=0x001c, h01=0x0050, text=» LD A1,MAIN,A11 LINE 2? «, t00=0x002b, t01=0x00d4}
0x441c…4434 Head {h00=0x0014, h01=0x0050, text=» RF(Z) DCAB10 NO«, t00=0x002b, t01=0x00f4}
0x4434…4454 Head {h00=0x001c, h01=0x0050, text=» LD A8,ECBDC2,A11 LINE 2«, t00=0x002b, t01=0x010c}
0x4454…446e Head {h00=0x0016, h01=0x0050, text=»DCAB10 EQU * . =2 «, t00=0x002b, t01=0x012c}
0x446e…447a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002b, t01=0x0146}
0x447a…448c Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x002b, t01=0x0152}
0x448c…4498 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x002b, t01=0x0164}
0x4498…44a8 Head {h00=0x000c, h01=0x0050, text=» DATA 10«, t00=0x002b, t01=0x0170}
0x44a8…44be Head {h00=0x0012, h01=0x0050, text=» LDR A7,A7 OK?«, t00=0x002b, t01=0x0180}
0x44be…44ee Head {h00=0x002c, h01=0x0050, text=» RF(NZ) DCAB20 NO, ALREADY COMPLETED =2 «, t00=0x002c, t01=0x0008}
0x44ee…4508 Head {h00=0x0016, h01=0x0050, text=» CM ECBBLK+DC,A11 «, t00=0x002c, t01=0x0038}
0x4508…4522 Head {h00=0x0016, h01=0x0050, text=»DCAB20 EQU * . =2 «, t00=0x002c, t01=0x0052}
0x4522…4532 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002c, t01=0x006c}
0x4532…4540 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x007c}
0x4540…454a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x008a}
0x454a…4554 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0094}
0x4554…455e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x009e}
0x455e…4576 Head {h00=0x0014, h01=0x0050, text=»* DC RETURN CODE«, t00=0x002c, t01=0x00a8}
0x4576…457e Head {h00=0x0004, h01=0x0050, t00=0x002c, t01=0x00c0}
0x457e…4588 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00c8}
0x4588…4592 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00d2}
0x4592…459c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00dc}
0x459c…45c2 Head {h00=0x0022, h01=0x0050, text=»* BIT 0 REQUEST ERROR«, t00=0x002c, t01=0x00e6}
0x45c2…45e4 Head {h00=0x001e, h01=0x0050, text=»* 1 RESERVED «, t00=0x002c, t01=0x010c}
0x45e4…4606 Head {h00=0x001e, h01=0x0050, text=»* 2 RESERVED «, t00=0x002c, t01=0x012e}
0x4606…4610 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0150}
0x4610…4638 Head {h00=0x0024, h01=0x0050, text=»* 9 REQUEST TIMEOUT«, t00=0x002c, t01=0x015a}
0x4638…4660 Head {h00=0x0024, h01=0x0050, text=»* 11 SEQUENCE ERROR «, t00=0x002c, t01=0x0182}
0x4660…468a Head {h00=0x0026, h01=0x0050, text=»* 12 INCORRECT LENGTH «, t00=0x002d, t01=0x001a}
0x468a…46ac Head {h00=0x001e, h01=0x0050, text=»* 13 RESERVED «, t00=0x002d, t01=0x0044}
0x46ac…46d8 Head {h00=0x0028, h01=0x0050, text=»* 14 TRANSMISSION ERROR «, t00=0x002d, t01=0x0066}
0x46d8…46fe Head {h00=0x0022, h01=0x0050, text=»* 15 NO CONNECTION«, t00=0x002d, t01=0x0092}
0x46fe…4708 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00b8}
0x4708…4712 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00c2}
0x4712…471c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00cc}
0x471c…472a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x00d6}
0x472a…4768 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x002d, t01=0x00e4}
0x4768…47a6 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x002d, t01=0x0122}
0x47a6…47e4 Head {h00=0x003a, h01=0x0050, text=»* CHKSTA CHECK DC STATUS *«, t00=0x002d, t01=0x0160}
0x47e4…4822 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x002e, t01=0x000e}
0x4822…4860 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x002e, t01=0x004c}
0x4860…4874 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x002e, t01=0x008a}
0x4874…487e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x009e}
0x487e…48b0 Head {h00=0x002e, h01=0x0050, text=»* A1= AT ENTRY DC RETURN CODE, RETURN CODE«, t00=0x002e, t01=0x00a8}
0x48b0…48d0 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x002e, t01=0x00da}
0x48d0…48e8 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x002e, t01=0x00fa}
0x48e8…48f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0112}
0x48f2…4932 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x002e, t01=0x011c}
0x4932…4946 Head {h00=0x0010, h01=0x0050, text=»CHKSTA EQU *«, t00=0x002e, t01=0x015c}
0x4946…4968 Head {h00=0x001e, h01=0x0050, text=» CF A14,TSTSTA TEST STATUS«, t00=0x002e, t01=0x0170}
0x4968…4988 (47, 0, 400) Head {h00=0x001c, h01=0x0050, text=» ANKL A1,/2211 LINE OK? «, t00=0x002f, t01=0x0004}
0x4988…499e Head {h00=0x0012, h01=0x0050, text=» XRKL A1,/2211«, t00=0x002f, t01=0x0024}
0x499e…49b8 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) CHKS10 NO «, t00=0x002f, t01=0x003a}
0x49b8…49dc Head {h00=0x0020, h01=0x0050, text=» CF A14,LMP1ON SYSTEM AVAIL.«, t00=0x002f, t01=0x0054}
0x49dc…49ee Head {h00=0x000e, h01=0x0050, text=» RF CHKS20«, t00=0x002f, t01=0x0078}
0x49ee…4a02 Head {h00=0x0010, h01=0x0050, text=»CHKS10 EQU *«, t00=0x002f, t01=0x008a}
0x4a02…4a30 Head {h00=0x002a, h01=0x0050, text=»* LAMP ONE OFF DELETED P & T * «, t00=0x002f, t01=0x009e}
0x4a30…4a44 Head {h00=0x0010, h01=0x0050, text=»CHKS20 EQU *«, t00=0x002f, t01=0x00cc}
0x4a44…4a54 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002f, t01=0x00e0}
0x4a54…4a62 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002f, t01=0x00f0}
0x4a62…4aa4 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x002f, t01=0x00fe}
0x4aa4…4ae6 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x002f, t01=0x0140}
0x4ae6…4b28 Head {h00=0x003e, h01=0x0050, text=»* DCOFLN INDICATE OFFLINE TO CLUSTER * «, t00=0x002f, t01=0x0182}
0x4b28…4b6a Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x0030, t01=0x0034}
0x4b6a…4bac Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x0030, t01=0x0076}
0x4bac…4bc0 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0030, t01=0x00b8}
0x4bc0…4bca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00cc}
0x4bca…4bea Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0030, t01=0x00d6}
0x4bea…4c02 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0030, t01=0x00f6}
0x4c02…4c0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x010e}
0x4c0c…4c46 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0030, t01=0x0118}
0x4c46…4c5a Head {h00=0x0010, h01=0x0050, text=»DCOFLN EQU *«, t00=0x0030, t01=0x0152}
0x4c5a…4c6e Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x0030, t01=0x0166}
0x4c6e…4c84 Head {h00=0x0012, h01=0x0050, text=» CF A14,DCABOR«, t00=0x0030, t01=0x017a}
0x4c84…4c90 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x0190}
0x4c90…4ca0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0031, t01=0x000c}
0x4ca0…4cae Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0031, t01=0x001c}
0x4cae…4cec Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0031, t01=0x002a}
0x4cec…4d2a Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x0031, t01=0x0068}
0x4d2a…4d68 Head {h00=0x003a, h01=0x0050, text=»* TRPA TRANSMIT SHORT READ AT PA-KEY * «, t00=0x0031, t01=0x00a6}
0x4d68…4da6 Head {h00=0x003a, h01=0x0050, text=»* * «, t00=0x0031, t01=0x00e4}
0x4da6…4de4 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0031, t01=0x0122}
0x4de4…4df8 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0031, t01=0x0160}
0x4df8…4e02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0174}
0x4e02…4e18 Head {h00=0x0012, h01=0x0050, text=»* A2= AID CODE«, t00=0x0031, t01=0x017e}
0x4e18…4e38 (50, 0, 400) Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0032, t01=0x0004}
0x4e38…4e50 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0032, t01=0x0024}
0x4e50…4e5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x003c}
0x4e5a…4e98 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0032, t01=0x0046}
0x4e98…4eaa Head {h00=0x000e, h01=0x0050, text=»TRPA EQU *«, t00=0x0032, t01=0x0084}
0x4eaa…4ed4 Head {h00=0x0026, h01=0x0050, text=» CF A14,GETBUF GET TRANSMIT BUFFER«, t00=0x0032, t01=0x0096}
0x4ed4…4efc Head {h00=0x0024, h01=0x0050, text=» CF A14,PAID STORE AID IN BUFFER«, t00=0x0032, t01=0x00c0}
0x4efc…4f1c Head {h00=0x001c, h01=0x0050, text=» CF A14,DCWRIT TRANSMIT «, t00=0x0032, t01=0x00e8}
0x4f1c…4f42 Head {h00=0x0022, h01=0x0050, text=» LDR A8,A12 BUFFER TO RELEASE «, t00=0x0032, t01=0x0108}
0x4f42…4f68 Head {h00=0x0022, h01=0x0050, text=» CF A14,RELBUF RELEASE BUFFER «, t00=0x0032, t01=0x012e}
0x4f68…4f78 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0032, t01=0x0154}
0x4f78…4f86 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0032, t01=0x0164}
0x4f86…4fc4 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0032, t01=0x0172}
0x4fc4…5002 Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0033, t01=0x0020}
0x5002…5040 Head {h00=0x003a, h01=0x0050, text=»* TRPF TRANSMIT MODIFIED READ AT PF-KEY *«, t00=0x0033, t01=0x005e}
0x5040…507e Head {h00=0x003a, h01=0x0050, text=»* *«, t00=0x0033, t01=0x009c}
0x507e…50bc Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0033, t01=0x00da}
0x50bc…50d0 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0033, t01=0x0118}
0x50d0…50da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x012c}
0x50da…50f0 Head {h00=0x0012, h01=0x0050, text=»* A2= AID CODE«, t00=0x0033, t01=0x0136}
0x50f0…510e Head {h00=0x001a, h01=0x0050, text=»* A4= REL CURSOR POS. «, t00=0x0033, t01=0x014c}
0x510e…5124 Head {h00=0x0012, h01=0x0050, text=»* A5= RESERVED«, t00=0x0033, t01=0x016a}
0x5124…513a Head {h00=0x0012, h01=0x0050, text=»* A6= RESERVED«, t00=0x0033, t01=0x0180}
0x513a…515a Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0034, t01=0x0008}
0x515a…5172 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0034, t01=0x0028}
0x5172…517c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0040}
0x517c…51ba Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0034, t01=0x004a}
0x51ba…51cc Head {h00=0x000e, h01=0x0050, text=»TRPF EQU *«, t00=0x0034, t01=0x0088}
0x51cc…51f6 Head {h00=0x0026, h01=0x0050, text=» CF A14,GETBUF GET TRANSMIT BUFFER«, t00=0x0034, t01=0x009a}
0x51f6…5218 Head {h00=0x001e, h01=0x0050, text=» CF A14,PAID SAVE AID-CODE«, t00=0x0034, t01=0x00c4}
0x5218…5246 Head {h00=0x002a, h01=0x0050, text=» CF A14,SCRINF GET SCREEN INFORMATION «, t00=0x0034, t01=0x00e6}
0x5246…5268 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A4 CURSOR ADDRESS «, t00=0x0034, t01=0x0114}
0x5268…529e Head {h00=0x0032, h01=0x0050, text=» CF A14,BUFADR STORE CURSOR ADDRESS IN BUFFER «, t00=0x0034, t01=0x0136}
0x529e…52e0 Head {h00=0x003e, h01=0x0050, text=» CF A14,PACK PACK BUFFER WITH MODIFIED FIELDS AND TRANSMIT«, t00=0x0034, t01=0x016c}
0x52e0…52f0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0035, t01=0x001e}
0x52f0…52f8 Head {h00=0x0004, h01=0x0050, t00=0x0035, t01=0x002e}
0x52f8…5304 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0035, t01=0x0036}
0x5304…5308 Head {h00=0x4004, h01=0x0000}
0x5308…530c 00 35 00 42 ┆ 5 B┆
0x530c…5314 (54, 1, 8) 20 04 00 00 00 36 00 04 ┆ 6 ┆
0x5314…5364 (55, 0, 400) 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 20 20 20 20 20 20 20 20 20 2a 20 01 96 01 82 00 36 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆========================= * 6 P* ┆
0x5364…53b4 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 01 97 00 2c 00 36 00 50 2a 20 20 52 45 46 45 52 45 4e 43 45 44 20 49 4e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 01 97 00 66 00 36 00 50 ┆ * , 6 P* REFERENCED IN: * f 6 P┆
0x53b4…5404 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 01 97 00 a0 00 36 00 50 2a 20 20 45 4e 54 52 59 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆* * 6 P* ENTRY: ┆
0x5404…5454 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 01 97 00 da 00 36 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * 6 P* ┆
0x5454…54a4 20 20 20 20 2a 20 01 97 01 14 00 36 00 50 2a 20 20 45 58 49 54 3a 20 20 41 50 43 53 54 41 20 2d 20 46 49 52 53 54 20 41 50 50 4c 2e 20 43 4f 4e 54 52 4f 4c 20 42 4c 4f 43 4b 20 20 20 20 2a 20 01 97 01 4e 00 36 00 50 2a 20 20 20 20 20 20 20 ┆ * 6 P* EXIT: APCSTA - FIRST APPL. CONTROL BLOCK * N 6 P* ┆
0x54a4…54f4 (56, 0, 400) 20 20 41 31 31 2d 20 53 54 41 52 54 20 4f 46 20 43 4f 4e 46 49 47 55 52 41 54 49 4f 4e 20 44 41 54 41 20 20 20 20 20 20 2a 20 01 97 01 88 00 36 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ A11- START OF CONFIGURATION DATA * 6 P* ┆
0x54f4…5544 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 01 98 00 32 00 36 00 50 2a 20 20 57 4f 52 4b 20 52 45 47 49 53 54 45 52 53 3a 20 41 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 01 98 ┆ * 2 6 P* WORK REGISTERS: A2 * ┆
0x5544…5594 00 6c 00 36 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 01 98 00 a6 00 36 00 50 2a 20 20 53 55 42 52 4f 55 54 49 4e 45 53 3a 20 ┆ l 6 P* * 6 P* SUBROUTINES: ┆
0x5594…55e4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 01 98 00 e0 00 36 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * 6 P* ┆
0x55e4…5634 20 20 20 20 20 20 20 20 20 20 2a 20 01 98 01 1a 00 36 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 01 98 01 54 00 10 00 50 46 53 ┆ * 6 P************************************************* T PFS┆
0x5634…5684 (57, 0, 398) 54 41 50 4c 5c 45 51 55 5c 2a 01 98 01 8e 00 2c 00 50 5c 4c 44 5c 41 32 2c 53 59 53 4c 4f 44 5c 47 45 54 20 4e 55 4d 42 45 52 20 4f 46 20 41 50 50 4c 49 43 41 54 49 4f 4e 53 01 99 00 12 00 1c 00 50 5c 53 54 5c 41 32 2c 53 54 4b 45 4e 44 2b ┆TAPL EQU * , P LD A2,SYSLOD GET NUMBER OF APPLICATIONS P ST A2,STKEND+┆
0x5684…56d4 41 50 4c 4e 4f 5c 53 41 56 45 01 99 00 42 00 36 00 50 5c 4c 44 4b 4c 5c 41 32 2c 53 59 53 4c 4f 44 2b 32 5c 46 49 52 53 54 20 41 50 50 4c 49 43 41 54 49 4f 4e 20 43 4f 4e 54 52 4f 4c 20 42 4c 4f 43 4b 20 01 99 00 62 00 1e 00 50 5c 53 54 5c ┆APLNO SAVE B 6 P LDKL A2,SYSLOD+2 FIRST APPLICATION CONTROL BLOCK b P ST ┆
0x56d4…5724 41 32 2c 53 54 4b 45 4e 44 2b 41 50 43 53 54 41 5c 53 41 56 45 20 01 99 00 9c 00 36 00 50 5c 4c 44 5c 41 31 31 2c 53 54 4b 43 4f 4d 2b 43 4f 4e 53 54 41 5c 53 54 41 52 54 20 4f 46 20 43 4f 4e 46 49 47 55 52 41 54 49 4f 4e 20 44 41 54 41 20 ┆A2,STKEND+APCSTA SAVE 6 P LD A11,STKCOM+CONSTA START OF CONFIGURATION DATA ┆
0x5724…5774 01 99 00 be 00 14 00 50 5c 52 54 4e 5c 41 31 34 5c 52 45 54 55 52 4e 20 01 99 00 f8 00 0a 00 50 5c 45 4a 45 43 54 01 99 01 10 00 36 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ P RTN A14 RETURN P EJECT 6 P**********************************┆
0x5774…57c2 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 01 99 01 1e 00 36 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 01 99 01 58 ┆*************** 6 P* * X┆
0x57c2…5812 (58, 0, 400) 00 36 00 50 2a 20 20 20 20 20 20 20 20 20 4e 58 54 41 50 4c 20 2d 20 47 45 54 20 4e 45 58 54 20 41 50 50 4c 49 43 41 54 49 4f 4e 20 20 20 20 20 20 20 20 20 2a 20 01 9a 00 04 00 36 00 50 2a 20 20 20 20 20 20 20 20 20 3d 3d 3d 3d 3d 3d 3d 3d ┆ 6 P* NXTAPL - GET NEXT APPLICATION * 6 P* ========┆
0x5812…5862 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 20 20 20 20 20 20 20 20 20 2a 20 01 9a 00 3e 00 36 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆===================== * > 6 P* ┆
0x5862…58b2 20 20 20 20 20 20 20 20 2a 20 01 9a 00 78 00 36 00 50 2a 20 20 52 45 46 45 52 45 4e 43 45 44 20 49 4e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 01 9a 00 b2 00 36 00 50 2a 20 20 20 ┆ * x 6 P* REFERENCED IN: * 6 P* ┆
0x58b2…5902 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 01 9a 00 ec 00 36 00 50 2a 20 20 45 4e 54 52 59 3a 20 41 50 4c 4e 4f 20 52 45 4d 41 49 4e 49 4e 47 20 ┆ * 6 P* ENTRY: APLNO REMAINING ┆
0x5902…5952 4e 55 4d 42 45 52 20 4f 46 20 41 50 50 4c 2e 20 20 20 20 20 20 20 2a 20 01 9a 01 26 00 36 00 50 2a 20 20 20 20 20 20 20 20 41 50 43 53 54 41 20 2d 20 43 55 52 52 45 4e 54 20 41 50 50 4c 2e 20 43 4f 4e 54 52 4f 4c 20 20 20 20 20 20 20 20 20 ┆NUMBER OF APPL. * & 6 P* APCSTA - CURRENT APPL. CONTROL ┆
0x5952…59a2 (59, 0, 400) 2a 20 01 9a 01 60 00 36 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 4c 4f 43 4b 20 41 44 44 52 45 53 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 01 9b 00 0a 00 36 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 ┆* ` 6 P* BLOCK ADDRESS * 6 P* ┆
0x59a2…59f2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 01 9b 00 44 00 36 00 50 2a 20 20 45 58 49 54 3a 20 20 41 50 4c 4e 4f 20 2d 20 52 45 4d 41 49 4e 49 4e 47 20 4e 55 4d 42 45 52 ┆ * D 6 P* EXIT: APLNO - REMAINING NUMBER┆
0x59f2…5a42 20 4f 46 20 41 50 50 4c 2e 2d 31 20 20 20 2a 20 01 9b 00 7e 00 36 00 50 2a 20 20 20 20 20 20 20 20 41 50 43 53 54 41 20 2d 20 4e 45 58 54 20 41 50 50 4c 2e 20 43 4f 4e 54 52 4f 4c 20 42 4c 4f 43 4b 20 20 20 20 20 20 2a 20 01 9b 00 b8 00 36 ┆ OF APPL.-1 * ~ 6 P* APCSTA - NEXT APPL. CONTROL BLOCK * 6┆
0x5a42…5a92 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 44 44 52 45 53 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 01 9b 00 f2 00 36 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ P* ADDRESS * 6 P* ┆
0x5a92…5ae2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 01 9b 01 2c 00 36 00 50 2a 20 20 57 4f 52 4b 20 52 45 47 49 53 54 45 52 53 3a 20 20 41 31 2c 41 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * , 6 P* WORK REGISTERS: A1,A2 ┆
0x5ae2…5b32 (60, 0, 400) 20 20 20 20 20 20 2a 20 01 9b 01 66 00 36 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 01 9c 00 10 00 36 00 50 2a 20 20 53 55 42 ┆ * f 6 P* * 6 P* SUB┆
0x5b32…5b82 52 4f 55 54 49 4e 45 53 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 01 9c 00 4a 00 36 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ROUTINES: * J 6 P* ┆
0x5b82…5bd2 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 01 9c 00 84 00 36 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 ┆ * 6 P************************************************* ┆
0x5bd2…5c22 01 9c 00 be 00 0a 00 50 5c 45 4a 45 43 54 01 9c 00 f8 00 10 00 50 4e 58 54 41 50 4c 5c 45 51 55 5c 2a 01 9c 01 06 00 30 00 50 5c 4c 44 5c 41 32 2c 53 54 4b 45 4e 44 2b 41 50 4c 4e 4f 5c 47 45 54 20 4e 55 4d 42 45 52 20 4f 46 20 41 50 50 4c ┆ P EJECT PNXTAPL EQU * 0 P LD A2,STKEND+APLNO GET NUMBER OF APPL┆
0x5c22…5c72 2e 20 4c 45 46 54 01 9c 01 1a 00 18 00 50 5c 53 55 4b 5c 41 32 2c 31 5c 44 45 43 52 45 4d 45 4e 54 20 01 9c 01 4e 00 36 00 50 5c 53 54 5c 41 32 2c 53 54 4b 45 4e 44 2b 41 50 4c 4e 4f 5c 53 41 56 45 20 52 45 4d 41 49 4e 49 4e 47 20 4e 55 4d ┆. LEFT P SUK A2,1 DECREMENT N 6 P ST A2,STKEND+APLNO SAVE REMAINING NUM┆