|
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: 16980 (0x4254)
Notes: pts_type(SC)
Names: »DSPBSC.SC«
└─⟦928b1fd3e⟧ Bits:30009671 Philips computer tape "600131"
└─⟦this⟧ »SAVE/DSPBSC.SC«
IDENT DSPBSC REL 11.0 82-04-15DK 870150541100 ************************************************************* * * * MODULE DSPBSC * * MODULE HANDLING THE START UP OF THE * * VDUKB TASK, CONTROLLING SNA MODES * * AND MULTIPLE WAIT FOR KB AND DC. * * (EMULATION 3270 BSC) * * * ************************************************************* EJECT **************************************************************** * * * LIST OF ROUTINES * * * * VDUKB MAIN ROUTINE * * IOACT I/O ACTIVATION * IOCPL I/O COMPLETION * MATCH MATCH ADDRESS AND TASKID * INIT INITIALIZE THE TASK * * COMINI COMMON INIT ROUTINE * ECBINI INIT OF ECB:S * TSTDEV TEST KEYBOARD AND DISPLAY * * * **************************************************************** EJECT ********************************************************** * * * ENTRY POINTS * * * ********************************************************** ENTRY VDUKB START LABEL FROM DATSNA(CREDIT) ENTRY COMINI COMMON INIT ROUTINE ENTRY ECBINI INIT OF ECB:S ENTRY MATCH MATCH TASID AND PHYS. ADDRESS ********************************************************** * * * EXTERNAL REFERENCES * * * ********************************************************** EXTRN I:EVA0 CREDIT EVALUATION ROUTINE EXTRN OPEN OPEN DC (DCBSC) EXTRN CONCT CONNECT DC (DCBSC) EXTRN SETTYM SET REQUEST TIMEOUT (DCBSC) EXTRN ERASE ERASE SCREEN AND VDU BUFFER (VDU) EXTRN TSTMES TEST IF ANY MESSAGE (DCSNA) EXTRN READKB READ KEYBOARD WITH NO WAIT (KEYB) EXTRN KBINP MAIN ROUTINE IN KEYB-MODULE (KEYB) EXTRN DCINP MAIN ROUTINE IN DCSNA-MODULE (DCSNA) EXTRN LMP6OF OFFLINE LAMP OFF (KEYB) EXTRN LMP1ON DC LINE 1 (KEYB) EXTRN LMP2ON DC LINE 2 (KEYB) EXTRN SOUND SOUND ALARM AT DISPLAY (VDU) EXTRN LMP5ON ERROR LAMP ON (KEYB) EXTRN LMP5OF ERROR LAMP OFF (KEYB) EXTRN RESKB RESET KEYBOARD BUFFER (KEYB) EXTRN STOINF SAVE SCREEN INFORMATION (VDU) EXTRN ICVRED INTERTASK READ (KEYB) EXTRN ICINP INTERTASK INPUT (KEYB) EXTRN CHKSTA CHECK DC STATUS (DCBSC) EXTRN READK2 READ NUMERIC KEYB'RD, NO-WAIT (KEYB) EXTRN KBINP2 ROUTINE FOR 2ND. KEYBOARD EJECT ************************************************************* * * * CONDITIONAL ASSEMBLY PARAMETERS * * * ************************************************************* X:B EQU 15 NUMBER OF TASKS (1- ) NBRTSK EQU 16 X:C EQU 0 OFFLINE HANDLING IF :=1 OFLIN EQU 0 X:D EQU 1 NUMBER OF LINES (1-2) NBRLIN EQU 2 X:M EQU 0 COPY COMMNAND INCLUDED IF:=1 COPCMD EQU 1 X:O EQU 0 TEST INCLUDED IF:=1 TEST EQU 0 EJECT *********************************************************** * * * DECLARATIONS OF DATA AND EQUATES * * *********************************************************** * * ECB INDEX TABLE * ECBIND EQU * DATA 9 NUMBER OF ENTRIES DATA X'2000' ECB KB DATA X'3002' ECB PRINTER DATA X'4004' ECB SIGNAL DISPLAY DATA X'4206' ECB VDU DATA X'5008' ECB INTERTASK READ DATA X'510A' ECB INTERTASK WRITE DATA X'610C' ECB DC LINE1 DATA X'620E' ECB DC LINE2 DK DATA X'2110' ECB FOR NUMERIC KB DK * * SCREEN SIZE ON DISPLAY * LBVDU EQU 1920 * * MODES * HCPMOD EQU /4000 HARDCOPY OUTSTANDING * * TASK IDENTIFICATION CODE * VDUCOD EQU 'VV' KB/VDU EJECT * * RELATIVE ADDRESSES IN * TERMINAL WORKBLOCK TB1 * OFFFLG EQU 1962 OFFLINE FLAG PRTID EQU OFFFLG+2 TASKID FOR HARDCOPY MAIN EQU PRTID+6 WHICH DC LINE ECBBLK EQU MAIN+6 ECBBLK FOR MULTIPLE WAIT REGI EQU ECBBLK+16 SAVE AREA BSCMOD EQU REGI+32 BSC MODE ECBTAB EQU BSCMOD+2 ECB TABLE * * RELATIVE ADDRESSES IN * COMMON WORKBLOCK CB1 * MF1CU EQU 0 SYMBOLIC CLUSTER ADDDRESS IFF TEST=1 TSKTAB EQU MF1CU+26 TASK TABLE XIF IFT TEST=1 TSKTAB EQU MF1CU+219 TASK TABLE XIF EJECT ********************************************************* * * * VDUKB MAIN ROUTINE * * * ********************************************************* * REGISTERS * * A11= RESERVED * A13= RESERVED * ************************************************ VDUKB EQU * CF A14,INIT INITIALIZE THE TASK CF A14,TSTDEV TEST KEYBOARD AND DISPLAY VDU200 EQU * CF A14,IOACT PREPARE ECB-BLK LDKL A7,ECBBLK ADR A7,A11 LKM DATA 7 MULTIPLE WAIT CF A14,IOCPL TAKE CARE OF REQUEST RB VDU200 HERE WE GO AGAIN EJECT * * * POSSIBLE LAYOUTS OF ECB-BLK * * * * * MODE /0000 /4000 * * * BLK 2 3 * KB KB * DC DC * IC * * * EJECT ************************************************************ * * * IOACT I/O ACTIVATION * * ************************************************************ * REGISTERS * * A4= NUMBER OF ENTRIES IN ECB BLOCK * A11= CREDIT WORK AREA * A13= RESERVED * ********************************************************** IOACT EQU * LDK A4,1 COUNT NUMBER OF I-O'S LD A1,BSCMOD,A11 LD A2,ECBBLK+4,A11 REQ. ALREADY OUTST.? RF(NZ) IOAC10 YES CF A14,TSTMES TEST MESSAGE ST A8,ECBBLK+4,A11 IOAC10 EQU * IFT COPCMD=1 ANKL A1,HCPMOD HARDCOPY OUTSTANDING? RF(Z) IOAC30 NO XIF ADK A4,1 LD A2,ECBBLK+8,A11 RF(NZ) IOAC30 INTERTASK ALREDY OUTSTANDING CF A14,ICVRED READ INTERATSK ST A8,ECBBLK+8,A11 IOAC30 EQU * ADK A4,1 LD A2,ECBBLK+2,A11 KB OUTSTANDING? RF(NZ) IOAC35 YES CF A14,READKB READ KEYBOARD ST A8,ECBBLK+2,A11 IOAC35 EQU * * SECOND KEYBOARD HANDLING 81-10-18 DK * ADK A4,1 LD A2,ECBBLK+6,A11 KB2 OUTSTANDING RF(NZ) IOAC40 YES CF A14,READK2 READ SECOND KEYBOARD ST A8,ECBBLK+6,A11 ** END DK ** IOAC40 EQU * ST A4,ECBBLK,A11 SAVE NUMBER OF WAITS RTN A14 EJECT ************************************************************ * * * IOCPL I/O COMPLETION * * ************************************************************ * REGISTERS * * A11= CREDIT WORK AREA * A13= RESERVED * ************************************************************ IOCPL EQU * CW A8,ECBBLK+2,A11 KB INPUT RF(NE) IOCP05 NO CM ECBBLK+2,A11 CF A14,KBINP TAKE CARE OF KB RF IOCP90 ** SECOND KEYBOARD HANDLING P & T,81-10-19 DK ** IOCP05 EQU * CW A8,ECBBLK+6,A11 KB2 INPUT ? RF(NE) IOCP10 NO CM ECBBLK+6,A11 CF A14,KBINP2 TAKE CARE OF KB2 RF IOCP90 ** END DK P & T ** IOCP10 EQU * CW A8,ECBBLK+4,A11 DC? RF(NE) IOCP20 NO CM ECBBLK+4,A11 CF A14,DCINP TAKE CARE OF DC RF IOCP90 IOCP20 EQU * CM ECBBLK+8,A11 CF A14,ICINP TAKE CARE OF INTERTASK IOCP90 EQU * RTN A14 EJECT *************************************************************** * * MATCH MATCH TASKID AND PHYS. ADDRESS * *************************************************************** * REGISTERS * * **************************************************************** MATCH EQU * IFT COPCMD=1 LDK A1,NBRTSK GET NUMBER OF ENTRIES LD A3,6,A13 ADKL A3,TSKTAB START OF TABLE MATC10 EQU * CC A2,+2,A3 SAME ADDRESS? RF(E) MATC30 YES ADK A3,4 NEXT SUK A1,1 ALL CHECKED? RB(NZ) MATC10 NO MATC20 EQU * LDK A1,1 INDICATE NOT FOUND RF MATC90 MATC30 EQU * LCR A1,A3 CCK A1,VDUCOD COPY IN RIGHT DIRECTION? RB(NE) MATC20 NO LDK A1,0 LDR* A2,A3 MATC90 EQU * XIF RTN A14 EJECT ************************************************************ * * * INIT INITIALIZE THE TASK * * * ************************************************************ * REGISTERS * * A11= CREDIT WORK AREA * A13= RESERVED * ************************************************* INIT EQU * CF A14,COMINI COMMON INIT CF A14,ECBINI INIT OF ECB:S CF A14,OPEN OPEN DC LDKL A8,20 LKM DATA 6 CF A14,CONCT CONNECT DC CF A14,SETTYM SET REQUEST TIMEOUT LDK A2,NBRTSK NUMBER OF TASK ENTRIES LD A9,REGI,A11 RESTORE TASKTAB ADDRESS INIT10 EQU * SUK A2,1 RF(N) INIT20 ADKL A9,4 LCR A1,A9 ANK A1,/FF ANY TASK AT ALL? RB(Z) INIT10 NO CCK A1,'VV' DISPLAY TASK? RB(E) INIT10 YES SLL A1,8 LC A1,+1,A9 ST A1,PRTID,A11 INIT20 EQU * IFT OFLIN=1 LD A1,2,A14 LD A2,4,A14 ST A12,4,A14 ST A13,2,A14 STR A2,A14 ST A1,-2,A14 SUKL A14,4 UPDATE STACK POINTER CM OFFFLG,A11 CF A14,LMP6OF TURN OFF OFFLINE LAMP XIF LDK A4,0 LDKL A5,LBVDU+1 UNFORMATTED SCREEN LDK A6,0 CF A14,STOINF SAVE SCREEN INFORMATION CF A14,ERASE ERASE THE WHOLE SCREEN IFT NBRLIN=2 LD A1,MAIN,A11 DC LINE 1? RF(Z) INIT30 YES CF A14,LMP2ON INDICATE DC LINE 2 RF INIT40 INIT30 EQU * XIF CF A14,LMP1ON INDICATE DC LINE 1 INIT40 EQU * CF A14,CHKSTA CHECK IF LINE OK RTN A14 EJECT ********************************************************** * * * COMINI COMMON INIT ROUTINE * * * ********************************************************** * REGISTERS * * A11= CREDIT WORK AREA * A13= RESERVED * ********************************************************** COMINI EQU * CF A14,I:EVA0 LDR A11,A9 LOAD TASK AREA BASE LDR* A2,A11 GET TASKID LD A3,6,A13 COMMON BLOCK BASE LDR A1,A2 ANK A1,X'FF' SUK A1,X'30' GET OFFSET IN TASK TABLE SLL A1,2 TWO WORDS ENTRIES LDKL A4,TSKTAB ADR A4,A3 ADR A1,A4 POINT TO YOUR LABLE ST A1,REGI,A11 SAVE TASKTAB ADDRESS SC A2,+1,A1 SAVE TASKID SRL A2,8 SCR A2,A1 RTN A14 EJECT * * * ECB TABLE LAYOUT * * * * DISPLACEMENT I/O FILECODE * * 0 KB /20 * 2 PRINTER /30 * 4 SIGNAL/DISP. /40 * 6 VDU /42 * 8 INTERTASK R. /50 * 10 INTERTASK W. /51 * 12 DC LINE 1 /61 * 14 DC LINE 2 /62 * * * * EJECT ************************************************************* * * * ECBINI INIT OF ECB:S * * * ************************************************************* * REGISTERS * * A4 = NUMBER OF ENTRIES * A5 = NUMBER OF FC ALLOWED * A6 = DAT POINTER * A7 = ECB FC POINTER * A8 = DATA SET POINTER * A11= CREDIT WORK AREA * A13= RESERVED * ************************************************************ ECBINI EQU * LD A2,-8,A13 GET T:D ADDRESS LD A4,+4,A2 GET NUMBER OF ENTRIES LD A8,+6,A2 ADR A8,A13 LDR A6,A8 DAT POINTER SUKL A8,20 DATA SET POINTER ECBI10 EQU * LD A5,ECBIND NUMBER OF FC:S LDKL A7,ECBIND+2 FIRST FILE CODE LC A2,+1,A6 DATA SET FC ECBI20 EQU * CCR A2,A7 FC IN DAT = FC CONFIGURED? RF(E) ECBI30 YES ADK A7,2 NEXT SUK A5,1 NOT FOUND? RB(NZ) ECBI20 NOT YET LDKL A1,* DIAGNOSTIC ST A1,REGI,A11 LKM DATA 3 WRONG GENERATION ECBI30 EQU * SC A2,+1,A8 SAVE FC IN DATA SET LD A2,+2,A6 GET FIXED LENGTH IF ANY ST A2,+4,A8 SAVE IN DATA SET LD A2,+18,A8 GET FIXED BUFFER IF ANY ST A2,+2,A8 SAVE IN DATA SET LC A2,+1,A7 GET INDEX TO ECB TABLE ANK A2,/FF ADR A2,A11 ST A8,ECBTAB,A2 SAVE ECB ADDRESS ADK A6,4 SUKL A8,20 SUK A4,1 ALL DONE? RB(NZ) ECBI10 NO RTN A14 EJECT ************************************************************* * * * TSTDEV TEST KEYBOARD AND DISPLAY * * * ************************************************************* * REGISTERS * * A11= CREDIT WORK AREA * A13= RESERVED * ************************************************* TSTDEV EQU * CF A14,SOUND TURN ON SOUND ALARM AT VDU RTN A14 END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT DSPBSC REL 11.0 82-04-15DK 870150541100«, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0084 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0000, t01=0x0042}
0x0084…00ca Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0000, t01=0x0088}
0x00ca…0110 Head {h00=0x0042, h01=0x0050, text=»* MODULE DSPBSC * «, t00=0x0000, t01=0x00ce}
0x0110…0156 Head {h00=0x0042, h01=0x0050, text=»* MODULE HANDLING THE START UP OF THE * «, t00=0x0000, t01=0x0114}
0x0156…019c Head {h00=0x0042, h01=0x0050, text=»* VDUKB TASK, CONTROLLING SNA MODES * «, t00=0x0000, t01=0x015a}
0x019c…01e2 Head {h00=0x0042, h01=0x0050, text=»* AND MULTIPLE WAIT FOR KB AND DC. * «, t00=0x0001, t01=0x0010}
0x01e2…0222 Head {h00=0x003c, h01=0x0050, text=»* (EMULATION 3270 BSC) *«, t00=0x0001, t01=0x0056}
0x0222…0268 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0001, t01=0x0096}
0x0268…02ae Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0001, t01=0x00dc}
0x02ae…02bc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x0122}
0x02bc…0304 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0001, t01=0x0130}
0x0304…034c Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0001, t01=0x0178}
0x034c…0394 Head {h00=0x0044, h01=0x0050, text=»* LIST OF ROUTINES *«, t00=0x0002, t01=0x0030}
0x0394…03dc Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0002, t01=0x0078}
0x03dc…0424 Head {h00=0x0044, h01=0x0050, text=»* VDUKB MAIN ROUTINE *«, t00=0x0002, t01=0x00c0}
0x0424…044c Head {h00=0x0024, h01=0x0050, text=»* IOACT I/O ACTIVATION«, t00=0x0002, t01=0x0108}
0x044c…0474 Head {h00=0x0024, h01=0x0050, text=»* IOCPL I/O COMPLETION«, t00=0x0002, t01=0x0130}
0x0474…04a6 Head {h00=0x002e, h01=0x0050, text=»* MATCH MATCH ADDRESS AND TASKID«, t00=0x0002, t01=0x0158}
0x04a6…04ee Head {h00=0x0044, h01=0x0050, text=»* INIT INITIALIZE THE TASK *«, t00=0x0002, t01=0x018a}
0x04ee…051c Head {h00=0x002a, h01=0x0050, text=»* COMINI COMMON INIT ROUTINE «, t00=0x0003, t01=0x0042}
0x051c…0544 Head {h00=0x0024, h01=0x0050, text=»* ECBINI INIT OF ECB:S «, t00=0x0003, t01=0x0070}
0x0544…058c Head {h00=0x0044, h01=0x0050, text=»* TSTDEV TEST KEYBOARD AND DISPLAY *«, t00=0x0003, t01=0x0098}
0x058c…05d4 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0003, t01=0x00e0}
0x05d4…061c Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0003, t01=0x0128}
0x061c…062a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x0170}
0x062a…066c Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0003, t01=0x017e}
0x066c…06ae Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x0004, t01=0x0030}
0x06ae…06f0 Head {h00=0x003e, h01=0x0050, text=»* ENTRY POINTS *«, t00=0x0004, t01=0x0072}
0x06f0…0732 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x0004, t01=0x00b4}
0x0732…0774 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0004, t01=0x00f6}
0x0774…077c Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x0138}
0x077c…07b0 Head {h00=0x0030, h01=0x0050, text=» ENTRY VDUKB START LABEL FROM DATSNA(CREDIT)«, t00=0x0004, t01=0x0140}
0x07b0…07da Head {h00=0x0026, h01=0x0050, text=» ENTRY COMINI COMMON INIT ROUTINE «, t00=0x0004, t01=0x0174}
0x07da…07fe Head {h00=0x0020, h01=0x0050, text=» ENTRY ECBINI INIT OF ECB:S «, t00=0x0005, t01=0x000e}
0x07fe…0830 Head {h00=0x002e, h01=0x0050, text=» ENTRY MATCH MATCH TASID AND PHYS. ADDRESS«, t00=0x0005, t01=0x0032}
0x0830…0838 Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x0064}
0x0838…087a Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0005, t01=0x006c}
0x087a…08bc Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x0005, t01=0x00ae}
0x08bc…08fe Head {h00=0x003e, h01=0x0050, text=»* EXTERNAL REFERENCES *«, t00=0x0005, t01=0x00f0}
0x08fe…0940 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x0005, t01=0x0132}
0x0940…0982 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0005, t01=0x0174}
0x0982…098a Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x0026}
0x098a…09ba Head {h00=0x002c, h01=0x0050, text=» EXTRN I:EVA0 CREDIT EVALUATION ROUTINE «, t00=0x0006, t01=0x002e}
0x09ba…09de Head {h00=0x0020, h01=0x0050, text=» EXTRN OPEN OPEN DC (DCBSC) «, t00=0x0006, t01=0x005e}
0x09de…0a06 Head {h00=0x0024, h01=0x0050, text=» EXTRN CONCT CONNECT DC (DCBSC) «, t00=0x0006, t01=0x0082}
0x0a06…0a38 Head {h00=0x002e, h01=0x0050, text=» EXTRN SETTYM SET REQUEST TIMEOUT (DCBSC) «, t00=0x0006, t01=0x00aa}
0x0a38…0a6e Head {h00=0x0032, h01=0x0050, text=» EXTRN ERASE ERASE SCREEN AND VDU BUFFER (VDU)«, t00=0x0006, t01=0x00dc}
0x0a6e…0aa0 Head {h00=0x002e, h01=0x0050, text=» EXTRN TSTMES TEST IF ANY MESSAGE (DCSNA) «, t00=0x0006, t01=0x0112}
0x0aa0…0ad8 Head {h00=0x0034, h01=0x0050, text=» EXTRN READKB READ KEYBOARD WITH NO WAIT (KEYB) «, t00=0x0006, t01=0x0144}
0x0ad8…0b10 Head {h00=0x0034, h01=0x0050, text=» EXTRN KBINP MAIN ROUTINE IN KEYB-MODULE (KEYB) «, t00=0x0006, t01=0x017c}
0x0b10…0b4a Head {h00=0x0036, h01=0x0050, text=» EXTRN DCINP MAIN ROUTINE IN DCSNA-MODULE (DCSNA) «, t00=0x0007, t01=0x0024}
0x0b4a…0b78 Head {h00=0x002a, h01=0x0050, text=» EXTRN LMP6OF OFFLINE LAMP OFF (KEYB) «, t00=0x0007, t01=0x005e}
0x0b78…0b9e Head {h00=0x0022, h01=0x0050, text=» EXTRN LMP1ON DC LINE 1 (KEYB)«, t00=0x0007, t01=0x008c}
0x0b9e…0bc4 Head {h00=0x0022, h01=0x0050, text=» EXTRN LMP2ON DC LINE 2 (KEYB)«, t00=0x0007, t01=0x00b2}
0x0bc4…0bf6 Head {h00=0x002e, h01=0x0050, text=» EXTRN SOUND SOUND ALARM AT DISPLAY (VDU) «, t00=0x0007, t01=0x00d8}
0x0bf6…0c20 Head {h00=0x0026, h01=0x0050, text=» EXTRN LMP5ON ERROR LAMP ON (KEYB)«, t00=0x0007, t01=0x010a}
0x0c20…0c4c Head {h00=0x0028, h01=0x0050, text=» EXTRN LMP5OF ERROR LAMP OFF (KEYB) «, t00=0x0007, t01=0x0134}
0x0c4c…0c7e Head {h00=0x002e, h01=0x0050, text=» EXTRN RESKB RESET KEYBOARD BUFFER (KEYB) «, t00=0x0007, t01=0x0160}
0x0c7e…0cb2 (8, 0, 400) Head {h00=0x0030, h01=0x0050, text=» EXTRN STOINF SAVE SCREEN INFORMATION (VDU) «, t00=0x0008, t01=0x0004}
0x0cb2…0cde Head {h00=0x0028, h01=0x0050, text=» EXTRN ICVRED INTERTASK READ (KEYB) «, t00=0x0008, t01=0x0038}
0x0cde…0d0a Head {h00=0x0028, h01=0x0050, text=» EXTRN ICINP INTERTASK INPUT (KEYB) «, t00=0x0008, t01=0x0064}
0x0d0a…0d38 Head {h00=0x002a, h01=0x0050, text=» EXTRN CHKSTA CHECK DC STATUS (DCBSC) «, t00=0x0008, t01=0x0090}
0x0d38…0d72 Head {h00=0x0036, h01=0x0050, text=» EXTRN READK2 READ NUMERIC KEYB'RD, NO-WAIT (KEYB)«, t00=0x0008, t01=0x00be}
0x0d72…0da2 Head {h00=0x002c, h01=0x0050, text=» EXTRN KBINP2 ROUTINE FOR 2ND. KEYBOARD «, t00=0x0008, t01=0x00f8}
0x0da2…0db0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0128}
0x0db0…0df6 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0008, t01=0x0136}
0x0df6…0e3c Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0008, t01=0x017c}
0x0e3c…0e82 Head {h00=0x0042, h01=0x0050, text=»* CONDITIONAL ASSEMBLY PARAMETERS * «, t00=0x0009, t01=0x0032}
0x0e82…0ec8 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0009, t01=0x0078}
0x0ec8…0f0e Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0009, t01=0x00be}
0x0f0e…0f16 Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x0104}
0x0f16…0f3e Head {h00=0x0024, h01=0x0050, text=»X:B EQU 15 NUMBER OF TASKS (1- )«, t00=0x0009, t01=0x010c}
0x0f3e…0f54 Head {h00=0x0012, h01=0x0050, text=»NBRTSK EQU 16 «, t00=0x0009, t01=0x0134}
0x0f54…0f7e Head {h00=0x0026, h01=0x0050, text=»X:C EQU 0 OFFLINE HANDLING IF :=1 «, t00=0x0009, t01=0x014a}
0x0f7e…0f92 Head {h00=0x0010, h01=0x0050, text=»OFLIN EQU 0 «, t00=0x0009, t01=0x0174}
0x0f92…0fba Head {h00=0x0024, h01=0x0050, text=»X:D EQU 1 NUMBER OF LINES (1-2) «, t00=0x0009, t01=0x0188}
0x0fba…0fce Head {h00=0x0010, h01=0x0050, text=»NBRLIN EQU 2«, t00=0x000a, t01=0x0020}
0x0fce…0ffc Head {h00=0x002a, h01=0x0050, text=»X:M EQU 0 COPY COMMNAND INCLUDED IF:=1«, t00=0x000a, t01=0x0034}
0x0ffc…1010 Head {h00=0x0010, h01=0x0050, text=»COPCMD EQU 1«, t00=0x000a, t01=0x0062}
0x1010…1036 Head {h00=0x0022, h01=0x0050, text=»X:O EQU 0 TEST INCLUDED IF:=1 «, t00=0x000a, t01=0x0076}
0x1036…1048 Head {h00=0x000e, h01=0x0050, text=»TEST EQU 0«, t00=0x000a, t01=0x009c}
0x1048…1056 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x00ae}
0x1056…109a Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x000a, t01=0x00bc}
0x109a…10de Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x000a, t01=0x0100}
0x10de…1108 Head {h00=0x0026, h01=0x0050, text=»* DECLARATIONS OF DATA AND EQUATES«, t00=0x000a, t01=0x0144}
0x1108…114c Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x000a, t01=0x016e}
0x114c…1190 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x000b, t01=0x0022}
0x1190…1198 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0066}
0x1198…11a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x006e}
0x11a2…11bc Head {h00=0x0016, h01=0x0050, text=»* ECB INDEX TABLE «, t00=0x000b, t01=0x0078}
0x11bc…11c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0092}
0x11c6…11da Head {h00=0x0010, h01=0x0050, text=»ECBIND EQU *«, t00=0x000b, t01=0x009c}
0x11da…11fc Head {h00=0x001e, h01=0x0050, text=» DATA 9 NUMBER OF ENTRIES «, t00=0x000b, t01=0x00b0}
0x11fc…1218 Head {h00=0x0018, h01=0x0050, text=» DATA X'2000' ECB KB«, t00=0x000b, t01=0x00d2}
0x1218…123a Head {h00=0x001e, h01=0x0050, text=» DATA X'3002' ECB PRINTER «, t00=0x000b, t01=0x00ee}
0x123a…1262 Head {h00=0x0024, h01=0x0050, text=» DATA X'4004' ECB SIGNAL DISPLAY«, t00=0x000b, t01=0x0110}
0x1262…1280 Head {h00=0x001a, h01=0x0050, text=» DATA X'4206' ECB VDU «, t00=0x000b, t01=0x0138}
0x1280…12a8 Head {h00=0x0024, h01=0x0050, text=» DATA X'5008' ECB INTERTASK READ«, t00=0x000b, t01=0x0156}
0x12a8…12d2 Head {h00=0x0026, h01=0x0050, text=» DATA X'510A' ECB INTERTASK WRITE «, t00=0x000b, t01=0x017e}
0x12d2…12f4 Head {h00=0x001e, h01=0x0050, text=» DATA X'610C' ECB DC LINE1«, t00=0x000c, t01=0x0018}
0x12f4…131a Head {h00=0x0022, h01=0x0050, text=» DATA X'620E' ECB DC LINE2 DK «, t00=0x000c, t01=0x003a}
0x131a…1346 Head {h00=0x0028, h01=0x0050, text=» DATA X'2110' ECB FOR NUMERIC KB DK «, t00=0x000c, t01=0x0060}
0x1346…1350 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x008c}
0x1350…1378 Head {h00=0x0024, h01=0x0050, text=»* SCREEN SIZE ON DISPLAY«, t00=0x000c, t01=0x0096}
0x1378…1382 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00be}
0x1382…1398 Head {h00=0x0012, h01=0x0050, text=»LBVDU EQU 1920«, t00=0x000c, t01=0x00c8}
0x1398…13a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00de}
0x13a2…13b2 Head {h00=0x000c, h01=0x0050, text=»* MODES «, t00=0x000c, t01=0x00e8}
0x13b2…13bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00f8}
0x13bc…13ea Head {h00=0x002a, h01=0x0050, text=»HCPMOD EQU /4000 HARDCOPY OUTSTANDING «, t00=0x000c, t01=0x0102}
0x13ea…13f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0130}
0x13f4…1416 Head {h00=0x001e, h01=0x0050, text=»* TASK IDENTIFICATION CODE«, t00=0x000c, t01=0x013a}
0x1416…1420 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x015c}
0x1420…143e Head {h00=0x001a, h01=0x0050, text=»VDUCOD EQU 'VV' KB/VDU«, t00=0x000c, t01=0x0166}
0x143e…144c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0184}
0x144c…1456 (13, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0004}
0x1456…1476 Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x000d, t01=0x000e}
0x1476…1496 Head {h00=0x001c, h01=0x0050, text=»* TERMINAL WORKBLOCK TB1«, t00=0x000d, t01=0x002e}
0x1496…14a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x004e}
0x14a0…14c4 Head {h00=0x0020, h01=0x0050, text=»OFFFLG EQU 1962 OFFLINE FLAG«, t00=0x000d, t01=0x0058}
0x14c4…14f2 Head {h00=0x002a, h01=0x0050, text=»PRTID EQU OFFFLG+2 TASKID FOR HARDCOPY«, t00=0x000d, t01=0x007c}
0x14f2…1518 Head {h00=0x0022, h01=0x0050, text=»MAIN EQU PRTID+6 WHICH DC LINE«, t00=0x000d, t01=0x00aa}
0x1518…154a Head {h00=0x002e, h01=0x0050, text=»ECBBLK EQU MAIN+6 ECBBLK FOR MULTIPLE WAIT«, t00=0x000d, t01=0x00d0}
0x154a…156e Head {h00=0x0020, h01=0x0050, text=»REGI EQU ECBBLK+16 SAVE AREA«, t00=0x000d, t01=0x0102}
0x156e…1592 Head {h00=0x0020, h01=0x0050, text=»BSCMOD EQU REGI+32 BSC MODE «, t00=0x000d, t01=0x0126}
0x1592…15b8 Head {h00=0x0022, h01=0x0050, text=»ECBTAB EQU BSCMOD+2 ECB TABLE «, t00=0x000d, t01=0x014a}
0x15b8…15c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0170}
0x15c2…15e2 Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x000d, t01=0x017a}
0x15e2…1600 Head {h00=0x001a, h01=0x0050, text=»* COMMON WORKBLOCK CB1«, t00=0x000e, t01=0x000a}
0x1600…160a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0028}
0x160a…1638 Head {h00=0x002a, h01=0x0050, text=»MF1CU EQU 0 SYMBOLIC CLUSTER ADDDRESS «, t00=0x000e, t01=0x0032}
0x1638…164c Head {h00=0x0010, h01=0x0050, text=» IFF TEST=1 «, t00=0x000e, t01=0x0060}
0x164c…1672 Head {h00=0x0022, h01=0x0050, text=»TSKTAB EQU MF1CU+26 TASK TABLE«, t00=0x000e, t01=0x0074}
0x1672…167e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x009a}
0x167e…1692 Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x000e, t01=0x00a6}
0x1692…16ba Head {h00=0x0024, h01=0x0050, text=»TSKTAB EQU MF1CU+219 TASK TABLE «, t00=0x000e, t01=0x00ba}
0x16ba…16c6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x00e2}
0x16c6…16d4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x00ee}
0x16d4…1716 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x000e, t01=0x00fc}
0x1716…1758 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x000e, t01=0x013e}
0x1758…179a Head {h00=0x003e, h01=0x0050, text=»* VDUKB MAIN ROUTINE * «, t00=0x000e, t01=0x0180}
0x179a…17dc Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x000f, t01=0x0032}
0x17dc…181e Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x000f, t01=0x0074}
0x181e…1832 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x000f, t01=0x00b6}
0x1832…183c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00ca}
0x183c…1854 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x000f, t01=0x00d4}
0x1854…186c Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x000f, t01=0x00ec}
0x186c…1876 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0104}
0x1876…18ae Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x000f, t01=0x010e}
0x18ae…18c2 Head {h00=0x0010, h01=0x0050, text=»VDUKB EQU * «, t00=0x000f, t01=0x0146}
0x18c2…18ea Head {h00=0x0024, h01=0x0050, text=» CF A14,INIT INITIALIZE THE TASK«, t00=0x000f, t01=0x015a}
0x18ea…191a Head {h00=0x002c, h01=0x0050, text=» CF A14,TSTDEV TEST KEYBOARD AND DISPLAY«, t00=0x000f, t01=0x0182}
0x191a…192e Head {h00=0x0010, h01=0x0050, text=»VDU200 EQU *«, t00=0x0010, t01=0x0022}
0x192e…1954 Head {h00=0x0022, h01=0x0050, text=» CF A14,IOACT PREPARE ECB-BLK «, t00=0x0010, t01=0x0036}
0x1954…196c Head {h00=0x0014, h01=0x0050, text=» LDKL A7,ECBBLK «, t00=0x0010, t01=0x005c}
0x196c…1980 Head {h00=0x0010, h01=0x0050, text=» ADR A7,A11 «, t00=0x0010, t01=0x0074}
0x1980…198c Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0010, t01=0x0088}
0x198c…19aa Head {h00=0x001a, h01=0x0050, text=» DATA 7 MULTIPLE WAIT «, t00=0x0010, t01=0x0094}
0x19aa…19d4 Head {h00=0x0026, h01=0x0050, text=» CF A14,IOCPL TAKE CARE OF REQUEST«, t00=0x0010, t01=0x00b2}
0x19d4…19f8 Head {h00=0x0020, h01=0x0050, text=» RB VDU200 HERE WE GO AGAIN «, t00=0x0010, t01=0x00dc}
0x19f8…1a06 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0100}
0x1a06…1a10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x010e}
0x1a10…1a1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0118}
0x1a1a…1a40 Head {h00=0x0022, h01=0x0050, text=»* POSSIBLE LAYOUTS OF ECB-BLK «, t00=0x0010, t01=0x0122}
0x1a40…1a4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0148}
0x1a4a…1a54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0152}
0x1a54…1a5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x015c}
0x1a5e…1a68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0166}
0x1a68…1a8c Head {h00=0x0020, h01=0x0050, text=»* MODE /0000 /4000«, t00=0x0010, t01=0x0170}
0x1a8c…1a96 (17, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0004}
0x1a96…1aa0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x000e}
0x1aa0…1ac2 Head {h00=0x001e, h01=0x0050, text=»* BLK 2 3«, t00=0x0011, t01=0x0018}
0x1ac2…1ae6 Head {h00=0x0020, h01=0x0050, text=»* KB KB «, t00=0x0011, t01=0x003a}
0x1ae6…1b0a Head {h00=0x0020, h01=0x0050, text=»* DC DC «, t00=0x0011, t01=0x005e}
0x1b0a…1b2e Head {h00=0x0020, h01=0x0050, text=»* IC «, t00=0x0011, t01=0x0082}
0x1b2e…1b38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00a6}
0x1b38…1b42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00b0}
0x1b42…1b4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00ba}
0x1b4c…1b5a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x00c4}
0x1b5a…1b9e Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0011, t01=0x00d2}
0x1b9e…1be2 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0011, t01=0x0116}
0x1be2…1c0e Head {h00=0x0028, h01=0x0050, text=»* IOACT I/O ACTIVATION «, t00=0x0011, t01=0x015a}
0x1c0e…1c52 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0011, t01=0x0186}
0x1c52…1c96 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0012, t01=0x003a}
0x1c96…1cb6 Head {h00=0x001c, h01=0x0050, text=»* REGISTERS«, t00=0x0012, t01=0x007e}
0x1cb6…1cc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x009e}
0x1cc0…1cec Head {h00=0x0028, h01=0x0050, text=»* A4= NUMBER OF ENTRIES IN ECB BLOCK«, t00=0x0012, t01=0x00a8}
0x1cec…1d0c Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0012, t01=0x00d4}
0x1d0c…1d24 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0012, t01=0x00f4}
0x1d24…1d2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x010c}
0x1d2e…1d70 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0012, t01=0x0116}
0x1d70…1d84 Head {h00=0x0010, h01=0x0050, text=»IOACT EQU * «, t00=0x0012, t01=0x0158}
0x1d84…1dac Head {h00=0x0024, h01=0x0050, text=» LDK A4,1 COUNT NUMBER OF I-O'S «, t00=0x0012, t01=0x016c}
0x1dac…1dc6 (19, 0, 400) Head {h00=0x0016, h01=0x0050, text=» LD A1,BSCMOD,A11 «, t00=0x0013, t01=0x0004}
0x1dc6…1df6 Head {h00=0x002c, h01=0x0050, text=» LD A2,ECBBLK+4,A11 REQ. ALREADY OUTST.?«, t00=0x0013, t01=0x001e}
0x1df6…1e10 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IOAC10 YES«, t00=0x0013, t01=0x004e}
0x1e10…1e34 Head {h00=0x0020, h01=0x0050, text=» CF A14,TSTMES TEST MESSAGE «, t00=0x0013, t01=0x0068}
0x1e34…1e50 Head {h00=0x0018, h01=0x0050, text=» ST A8,ECBBLK+4,A11 «, t00=0x0013, t01=0x008c}
0x1e50…1e64 Head {h00=0x0010, h01=0x0050, text=»IOAC10 EQU *«, t00=0x0013, t01=0x00a8}
0x1e64…1e7a Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0013, t01=0x00bc}
0x1e7a…1ea8 Head {h00=0x002a, h01=0x0050, text=» ANKL A1,HCPMOD HARDCOPY OUTSTANDING? «, t00=0x0013, t01=0x00d2}
0x1ea8…1ec0 Head {h00=0x0014, h01=0x0050, text=» RF(Z) IOAC30 NO«, t00=0x0013, t01=0x0100}
0x1ec0…1ecc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0118}
0x1ecc…1ede Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0013, t01=0x0124}
0x1ede…1efa Head {h00=0x0018, h01=0x0050, text=» LD A2,ECBBLK+8,A11 «, t00=0x0013, t01=0x0136}
0x1efa…1f2e Head {h00=0x0030, h01=0x0050, text=» RF(NZ) IOAC30 INTERTASK ALREDY OUTSTANDING «, t00=0x0013, t01=0x0152}
0x1f2e…1f54 Head {h00=0x0022, h01=0x0050, text=» CF A14,ICVRED READ INTERATSK «, t00=0x0013, t01=0x0186}
0x1f54…1f70 Head {h00=0x0018, h01=0x0050, text=» ST A8,ECBBLK+8,A11 «, t00=0x0014, t01=0x001c}
0x1f70…1f84 Head {h00=0x0010, h01=0x0050, text=»IOAC30 EQU *«, t00=0x0014, t01=0x0038}
0x1f84…1f96 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0014, t01=0x004c}
0x1f96…1fc2 Head {h00=0x0028, h01=0x0050, text=» LD A2,ECBBLK+2,A11 KB OUTSTANDING? «, t00=0x0014, t01=0x005e}
0x1fc2…1fdc Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IOAC35 YES«, t00=0x0014, t01=0x008a}
0x1fdc…2000 Head {h00=0x0020, h01=0x0050, text=» CF A14,READKB READ KEYBOARD«, t00=0x0014, t01=0x00a4}
0x2000…201c Head {h00=0x0018, h01=0x0050, text=» ST A8,ECBBLK+2,A11 «, t00=0x0014, t01=0x00c8}
0x201c…2032 Head {h00=0x0012, h01=0x0050, text=»IOAC35 EQU * «, t00=0x0014, t01=0x00e4}
0x2032…2064 Head {h00=0x002e, h01=0x0050, text=»* SECOND KEYBOARD HANDLING 81-10-18 DK *«, t00=0x0014, t01=0x00fa}
0x2064…2076 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0014, t01=0x012c}
0x2076…20a2 Head {h00=0x0028, h01=0x0050, text=» LD A2,ECBBLK+6,A11 KB2 OUTSTANDING «, t00=0x0014, t01=0x013e}
0x20a2…20be Head {h00=0x0018, h01=0x0050, text=» RF(NZ) IOAC40 YES «, t00=0x0014, t01=0x016a}
0x20be…20ea Head {h00=0x0028, h01=0x0050, text=» CF A14,READK2 READ SECOND KEYBOARD «, t00=0x0014, t01=0x0186}
0x20ea…2106 Head {h00=0x0018, h01=0x0050, text=» ST A8,ECBBLK+6,A11 «, t00=0x0015, t01=0x0022}
0x2106…2124 Head {h00=0x001a, h01=0x0050, text=»** END DK **«, t00=0x0015, t01=0x003e}
0x2124…2138 Head {h00=0x0010, h01=0x0050, text=»IOAC40 EQU *«, t00=0x0015, t01=0x005c}
0x2138…2166 Head {h00=0x002a, h01=0x0050, text=» ST A4,ECBBLK,A11 SAVE NUMBER OF WAITS«, t00=0x0015, t01=0x0070}
0x2166…2176 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0015, t01=0x009e}
0x2176…2184 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x00ae}
0x2184…21c8 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0015, t01=0x00bc}
0x21c8…220c Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0015, t01=0x0100}
0x220c…2238 Head {h00=0x0028, h01=0x0050, text=»* IOCPL I/O COMPLETION «, t00=0x0015, t01=0x0144}
0x2238…227c Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0015, t01=0x0170}
0x227c…22c0 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0016, t01=0x0024}
0x22c0…22d4 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0016, t01=0x0068}
0x22d4…22de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x007c}
0x22de…22fe Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0016, t01=0x0086}
0x22fe…2316 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0016, t01=0x00a6}
0x2316…2320 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00be}
0x2320…2364 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0016, t01=0x00c8}
0x2364…2378 Head {h00=0x0010, h01=0x0050, text=»IOCPL EQU * «, t00=0x0016, t01=0x010c}
0x2378…239c Head {h00=0x0020, h01=0x0050, text=» CW A8,ECBBLK+2,A11 KB INPUT«, t00=0x0016, t01=0x0120}
0x239c…23b6 Head {h00=0x0016, h01=0x0050, text=» RF(NE) IOCP05 NO «, t00=0x0016, t01=0x0144}
0x23b6…23ce Head {h00=0x0014, h01=0x0050, text=» CM ECBBLK+2,A11«, t00=0x0016, t01=0x015e}
0x23ce…23f4 Head {h00=0x0022, h01=0x0050, text=» CF A14,KBINP TAKE CARE OF KB «, t00=0x0016, t01=0x0176}
0x23f4…2406 Head {h00=0x000e, h01=0x0050, text=» RF IOCP90«, t00=0x0017, t01=0x000c}
0x2406…2440 Head {h00=0x0036, h01=0x0050, text=»** SECOND KEYBOARD HANDLING P & T,81-10-19 DK **«, t00=0x0017, t01=0x001e}
0x2440…2456 Head {h00=0x0012, h01=0x0050, text=»IOCP05 EQU * «, t00=0x0017, t01=0x0058}
0x2456…247e Head {h00=0x0024, h01=0x0050, text=» CW A8,ECBBLK+6,A11 KB2 INPUT ? «, t00=0x0017, t01=0x006e}
0x247e…2498 Head {h00=0x0016, h01=0x0050, text=» RF(NE) IOCP10 NO «, t00=0x0017, t01=0x0096}
0x2498…24b2 Head {h00=0x0016, h01=0x0050, text=» CM ECBBLK+6,A11 «, t00=0x0017, t01=0x00b0}
0x24b2…24da Head {h00=0x0024, h01=0x0050, text=» CF A14,KBINP2 TAKE CARE OF KB2 «, t00=0x0017, t01=0x00ca}
0x24da…24ee Head {h00=0x0010, h01=0x0050, text=» RF IOCP90 «, t00=0x0017, t01=0x00f2}
0x24ee…250c Head {h00=0x001a, h01=0x0050, text=»** END DK P & T **«, t00=0x0017, t01=0x0106}
0x250c…2520 Head {h00=0x0010, h01=0x0050, text=»IOCP10 EQU *«, t00=0x0017, t01=0x0124}
0x2520…2540 Head {h00=0x001c, h01=0x0050, text=» CW A8,ECBBLK+4,A11 DC? «, t00=0x0017, t01=0x0138}
0x2540…255a Head {h00=0x0016, h01=0x0050, text=» RF(NE) IOCP20 NO «, t00=0x0017, t01=0x0158}
0x255a…2572 Head {h00=0x0014, h01=0x0050, text=» CM ECBBLK+4,A11«, t00=0x0017, t01=0x0172}
0x2572…2598 Head {h00=0x0022, h01=0x0050, text=» CF A14,DCINP TAKE CARE OF DC «, t00=0x0017, t01=0x018a}
0x2598…25aa Head {h00=0x000e, h01=0x0050, text=» RF IOCP90«, t00=0x0018, t01=0x0020}
0x25aa…25be Head {h00=0x0010, h01=0x0050, text=»IOCP20 EQU *«, t00=0x0018, t01=0x0032}
0x25be…25d6 Head {h00=0x0014, h01=0x0050, text=» CM ECBBLK+8,A11«, t00=0x0018, t01=0x0046}
0x25d6…2602 Head {h00=0x0028, h01=0x0050, text=» CF A14,ICINP TAKE CARE OF INTERTASK«, t00=0x0018, t01=0x005e}
0x2602…2616 Head {h00=0x0010, h01=0x0050, text=»IOCP90 EQU *«, t00=0x0018, t01=0x008a}
0x2616…2626 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0018, t01=0x009e}
0x2626…2634 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x00ae}
0x2634…267c Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0018, t01=0x00bc}
0x267c…2686 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0104}
0x2686…26b4 Head {h00=0x002a, h01=0x0050, text=»* MATCH MATCH TASKID AND PHYS. ADDRESS«, t00=0x0018, t01=0x010e}
0x26b4…26be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x013c}
0x26be…2706 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0018, t01=0x0146}
0x2706…2722 Head {h00=0x0018, h01=0x0050, text=»* REGISTERS «, t00=0x0018, t01=0x018e}
0x2722…272c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x001a}
0x272c…2736 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0024}
0x2736…277e Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0019, t01=0x002e}
0x277e…2792 Head {h00=0x0010, h01=0x0050, text=»MATCH EQU * «, t00=0x0019, t01=0x0076}
0x2792…27a8 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0019, t01=0x008a}
0x27a8…27d4 Head {h00=0x0028, h01=0x0050, text=» LDK A1,NBRTSK GET NUMBER OF ENTRIES«, t00=0x0019, t01=0x00a0}
0x27d4…27e8 Head {h00=0x0010, h01=0x0050, text=» LD A3,6,A13«, t00=0x0019, t01=0x00cc}
0x27e8…280e Head {h00=0x0022, h01=0x0050, text=» ADKL A3,TSKTAB START OF TABLE«, t00=0x0019, t01=0x00e0}
0x280e…2822 Head {h00=0x0010, h01=0x0050, text=»MATC10 EQU *«, t00=0x0019, t01=0x0106}
0x2822…2844 Head {h00=0x001e, h01=0x0050, text=» CC A2,+2,A3 SAME ADDRESS?«, t00=0x0019, t01=0x011a}
0x2844…285e Head {h00=0x0016, h01=0x0050, text=» RF(E) MATC30 YES «, t00=0x0019, t01=0x013c}
0x285e…2874 Head {h00=0x0012, h01=0x0050, text=» ADK A3,4 NEXT«, t00=0x0019, t01=0x0156}
0x2874…2892 Head {h00=0x001a, h01=0x0050, text=» SUK A1,1 ALL CHECKED?«, t00=0x0019, t01=0x016c}
0x2892…28ac Head {h00=0x0016, h01=0x0050, text=» RB(NZ) MATC10 NO «, t00=0x0019, t01=0x018a}
0x28ac…28c0 Head {h00=0x0010, h01=0x0050, text=»MATC20 EQU *«, t00=0x001a, t01=0x0014}
0x28c0…28e4 Head {h00=0x0020, h01=0x0050, text=» LDK A1,1 INDICATE NOT FOUND«, t00=0x001a, t01=0x0028}
0x28e4…28f6 Head {h00=0x000e, h01=0x0050, text=» RF MATC90«, t00=0x001a, t01=0x004c}
0x28f6…290a Head {h00=0x0010, h01=0x0050, text=»MATC30 EQU *«, t00=0x001a, t01=0x005e}
0x290a…291c Head {h00=0x000e, h01=0x0050, text=» LCR A1,A3«, t00=0x001a, t01=0x0072}
0x291c…294c Head {h00=0x002c, h01=0x0050, text=» CCK A1,VDUCOD COPY IN RIGHT DIRECTION? «, t00=0x001a, t01=0x0084}
0x294c…2966 Head {h00=0x0016, h01=0x0050, text=» RB(NE) MATC20 NO «, t00=0x001a, t01=0x00b4}
0x2966…2978 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x001a, t01=0x00ce}
0x2978…298c Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A3 «, t00=0x001a, t01=0x00e0}
0x298c…29a0 Head {h00=0x0010, h01=0x0050, text=»MATC90 EQU *«, t00=0x001a, t01=0x00f4}
0x29a0…29ac Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x0108}
0x29ac…29bc Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001a, t01=0x0114}
0x29bc…29ca Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0124}
0x29ca…2a0e Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x001a, t01=0x0132}
0x2a0e…2a52 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x001a, t01=0x0176}
0x2a52…2a96 Head {h00=0x0040, h01=0x0050, text=»* INIT INITIALIZE THE TASK *«, t00=0x001b, t01=0x002a}
0x2a96…2ada Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x001b, t01=0x006e}
0x2ada…2b1e Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x001b, t01=0x00b2}
0x2b1e…2b32 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x001b, t01=0x00f6}
0x2b32…2b3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x010a}
0x2b3c…2b5c Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x001b, t01=0x0114}
0x2b5c…2b74 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x001b, t01=0x0134}
0x2b74…2b7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x014c}
0x2b7e…2bb8 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x001b, t01=0x0156}
0x2bb8…2bca Head {h00=0x000e, h01=0x0050, text=»INIT EQU *«, t00=0x001b, t01=0x0190}
0x2bca…2bec Head {h00=0x001e, h01=0x0050, text=» CF A14,COMINI COMMON INIT«, t00=0x001c, t01=0x0012}
0x2bec…2c10 Head {h00=0x0020, h01=0x0050, text=» CF A14,ECBINI INIT OF ECB:S«, t00=0x001c, t01=0x0034}
0x2c10…2c2c Head {h00=0x0018, h01=0x0050, text=» CF A14,OPEN OPEN DC«, t00=0x001c, t01=0x0058}
0x2c2c…2c40 Head {h00=0x0010, h01=0x0050, text=» LDKL A8,20 «, t00=0x001c, t01=0x0074}
0x2c40…2c4c Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001c, t01=0x0088}
0x2c4c…2c5c Head {h00=0x000c, h01=0x0050, text=» DATA 6 «, t00=0x001c, t01=0x0094}
0x2c5c…2c7c Head {h00=0x001c, h01=0x0050, text=» CF A14,CONCT CONNECT DC«, t00=0x001c, t01=0x00a4}
0x2c7c…2ca6 Head {h00=0x0026, h01=0x0050, text=» CF A14,SETTYM SET REQUEST TIMEOUT«, t00=0x001c, t01=0x00c4}
0x2ca6…2cd4 Head {h00=0x002a, h01=0x0050, text=» LDK A2,NBRTSK NUMBER OF TASK ENTRIES «, t00=0x001c, t01=0x00ee}
0x2cd4…2d04 Head {h00=0x002c, h01=0x0050, text=» LD A9,REGI,A11 RESTORE TASKTAB ADDRESS «, t00=0x001c, t01=0x011c}
0x2d04…2d18 Head {h00=0x0010, h01=0x0050, text=»INIT10 EQU *«, t00=0x001c, t01=0x014c}
0x2d18…2d2a Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x001c, t01=0x0160}
0x2d2a…2d40 Head {h00=0x0012, h01=0x0050, text=» RF(N) INIT20 «, t00=0x001c, t01=0x0172}
0x2d40…2d52 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,4«, t00=0x001c, t01=0x0188}
0x2d52…2d64 Head {h00=0x000e, h01=0x0050, text=» LCR A1,A9«, t00=0x001d, t01=0x000a}
0x2d64…2d88 Head {h00=0x0020, h01=0x0050, text=» ANK A1,/FF ANY TASK AT ALL?«, t00=0x001d, t01=0x001c}
0x2d88…2da0 Head {h00=0x0014, h01=0x0050, text=» RB(Z) INIT10 NO«, t00=0x001d, t01=0x0040}
0x2da0…2dc2 Head {h00=0x001e, h01=0x0050, text=» CCK A1,'VV' DISPLAY TASK?«, t00=0x001d, t01=0x0058}
0x2dc2…2ddc Head {h00=0x0016, h01=0x0050, text=» RB(E) INIT10 YES «, t00=0x001d, t01=0x007a}
0x2ddc…2dee Head {h00=0x000e, h01=0x0050, text=» SLL A1,8 «, t00=0x001d, t01=0x0094}
0x2dee…2e02 Head {h00=0x0010, h01=0x0050, text=» LC A1,+1,A9«, t00=0x001d, t01=0x00a6}
0x2e02…2e1a Head {h00=0x0014, h01=0x0050, text=» ST A1,PRTID,A11«, t00=0x001d, t01=0x00ba}
0x2e1a…2e2e Head {h00=0x0010, h01=0x0050, text=»INIT20 EQU *«, t00=0x001d, t01=0x00d2}
0x2e2e…2e42 Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x001d, t01=0x00e6}
0x2e42…2e56 Head {h00=0x0010, h01=0x0050, text=» LD A1,2,A14«, t00=0x001d, t01=0x00fa}
0x2e56…2e6a Head {h00=0x0010, h01=0x0050, text=» LD A2,4,A14«, t00=0x001d, t01=0x010e}
0x2e6a…2e80 Head {h00=0x0012, h01=0x0050, text=» ST A12,4,A14 «, t00=0x001d, t01=0x0122}
0x2e80…2e96 Head {h00=0x0012, h01=0x0050, text=» ST A13,2,A14 «, t00=0x001d, t01=0x0138}
0x2e96…2eaa Head {h00=0x0010, h01=0x0050, text=» STR A2,A14 «, t00=0x001d, t01=0x014e}
0x2eaa…2ec0 Head {h00=0x0012, h01=0x0050, text=» ST A1,-2,A14 «, t00=0x001d, t01=0x0162}
0x2ec0…2ee8 Head {h00=0x0024, h01=0x0050, text=» SUKL A14,4 UPDATE STACK POINTER«, t00=0x001d, t01=0x0178}
0x2ee8…2efe Head {h00=0x0012, h01=0x0050, text=» CM OFFFLG,A11«, t00=0x001e, t01=0x0010}
0x2efe…2f2a Head {h00=0x0028, h01=0x0050, text=» CF A14,LMP6OF TURN OFF OFFLINE LAMP«, t00=0x001e, t01=0x0026}
0x2f2a…2f36 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x0052}
0x2f36…2f48 Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x001e, t01=0x005e}
0x2f48…2f74 Head {h00=0x0028, h01=0x0050, text=» LDKL A5,LBVDU+1 UNFORMATTED SCREEN «, t00=0x001e, t01=0x0070}
0x2f74…2f86 Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x001e, t01=0x009c}
0x2f86…2fb4 Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x001e, t01=0x00ae}
0x2fb4…2fe0 Head {h00=0x0028, h01=0x0050, text=» CF A14,ERASE ERASE THE WHOLE SCREEN«, t00=0x001e, t01=0x00dc}
0x2fe0…2ff6 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x001e, t01=0x0108}
0x2ff6…3018 Head {h00=0x001e, h01=0x0050, text=» LD A1,MAIN,A11 DC LINE 1?«, t00=0x001e, t01=0x011e}
0x3018…3032 Head {h00=0x0016, h01=0x0050, text=» RF(Z) INIT30 YES «, t00=0x001e, t01=0x0140}
0x3032…305c Head {h00=0x0026, h01=0x0050, text=» CF A14,LMP2ON INDICATE DC LINE 2 «, t00=0x001e, t01=0x015a}
0x305c…306e Head {h00=0x000e, h01=0x0050, text=» RF INIT40«, t00=0x001e, t01=0x0184}
0x306e…3082 Head {h00=0x0010, h01=0x0050, text=»INIT30 EQU *«, t00=0x001f, t01=0x0008}
0x3082…308e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x001c}
0x308e…30b8 Head {h00=0x0026, h01=0x0050, text=» CF A14,LMP1ON INDICATE DC LINE 1 «, t00=0x001f, t01=0x0028}
0x30b8…30cc Head {h00=0x0010, h01=0x0050, text=»INIT40 EQU *«, t00=0x001f, t01=0x0052}
0x30cc…30f4 Head {h00=0x0024, h01=0x0050, text=» CF A14,CHKSTA CHECK IF LINE OK «, t00=0x001f, t01=0x0066}
0x30f4…3104 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001f, t01=0x008e}
0x3104…3112 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x009e}
0x3112…3154 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x001f, t01=0x00ac}
0x3154…3196 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x001f, t01=0x00ee}
0x3196…31d8 Head {h00=0x003e, h01=0x0050, text=»* COMINI COMMON INIT ROUTINE *«, t00=0x001f, t01=0x0130}
0x31d8…321a Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x001f, t01=0x0172}
0x321a…325c Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0020, t01=0x0024}
0x325c…327e Head {h00=0x001e, h01=0x0050, text=»* REGISTERS «, t00=0x0020, t01=0x0066}
0x327e…3288 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0088}
0x3288…32a8 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0020, t01=0x0092}
0x32a8…32c0 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0020, t01=0x00b2}
0x32c0…32ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00ca}
0x32ca…330c Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0020, t01=0x00d4}
0x330c…3320 Head {h00=0x0010, h01=0x0050, text=»COMINI EQU *«, t00=0x0020, t01=0x0116}
0x3320…3336 Head {h00=0x0012, h01=0x0050, text=» CF A14,I:EVA0«, t00=0x0020, t01=0x012a}
0x3336…335e Head {h00=0x0024, h01=0x0050, text=» LDR A11,A9 LOAD TASK AREA BASE «, t00=0x0020, t01=0x0140}
0x335e…337e Head {h00=0x001c, h01=0x0050, text=» LDR* A2,A11 GET TASKID «, t00=0x0020, t01=0x0168}
0x337e…33a4 Head {h00=0x0022, h01=0x0050, text=» LD A3,6,A13 COMMON BLOCK BASE«, t00=0x0020, t01=0x0188}
0x33a4…33b6 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0021, t01=0x001e}
0x33b6…33cc Head {h00=0x0012, h01=0x0050, text=» ANK A1,X'FF' «, t00=0x0021, t01=0x0030}
0x33cc…33fa Head {h00=0x002a, h01=0x0050, text=» SUK A1,X'30' GET OFFSET IN TASK TABLE«, t00=0x0021, t01=0x0046}
0x33fa…341e Head {h00=0x0020, h01=0x0050, text=» SLL A1,2 TWO WORDS ENTRIES «, t00=0x0021, t01=0x0074}
0x341e…3436 Head {h00=0x0014, h01=0x0050, text=» LDKL A4,TSKTAB «, t00=0x0021, t01=0x0098}
0x3436…3448 Head {h00=0x000e, h01=0x0050, text=» ADR A4,A3«, t00=0x0021, t01=0x00b0}
0x3448…346e Head {h00=0x0022, h01=0x0050, text=» ADR A1,A4 POINT TO YOUR LABLE«, t00=0x0021, t01=0x00c2}
0x346e…349a Head {h00=0x0028, h01=0x0050, text=» ST A1,REGI,A11 SAVE TASKTAB ADDRESS«, t00=0x0021, t01=0x00e8}
0x349a…34ba Head {h00=0x001c, h01=0x0050, text=» SC A2,+1,A1 SAVE TASKID«, t00=0x0021, t01=0x0114}
0x34ba…34cc Head {h00=0x000e, h01=0x0050, text=» SRL A2,8 «, t00=0x0021, t01=0x0134}
0x34cc…34de Head {h00=0x000e, h01=0x0050, text=» SCR A2,A1«, t00=0x0021, t01=0x0146}
0x34de…34ee Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0021, t01=0x0158}
0x34ee…34fc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x0168}
0x34fc…3506 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0176}
0x3506…3510 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0180}
0x3510…352a Head {h00=0x0016, h01=0x0050, text=»* ECB TABLE LAYOUT«, t00=0x0021, t01=0x018a}
0x352a…3534 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0014}
0x3534…353e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x001e}
0x353e…3548 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0028}
0x3548…3580 Head {h00=0x0034, h01=0x0050, text=»* DISPLACEMENT I/O FILECODE «, t00=0x0022, t01=0x0032}
0x3580…358a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x006a}
0x358a…35c0 Head {h00=0x0032, h01=0x0050, text=»* 0 KB /20 «, t00=0x0022, t01=0x0074}
0x35c0…35f6 Head {h00=0x0032, h01=0x0050, text=»* 2 PRINTER /30 «, t00=0x0022, t01=0x00aa}
0x35f6…362c Head {h00=0x0032, h01=0x0050, text=»* 4 SIGNAL/DISP. /40 «, t00=0x0022, t01=0x00e0}
0x362c…3662 Head {h00=0x0032, h01=0x0050, text=»* 6 VDU /42 «, t00=0x0022, t01=0x0116}
0x3662…3698 Head {h00=0x0032, h01=0x0050, text=»* 8 INTERTASK R. /50 «, t00=0x0022, t01=0x014c}
0x3698…36ce Head {h00=0x0032, h01=0x0050, text=»* 10 INTERTASK W. /51 «, t00=0x0022, t01=0x0182}
0x36ce…3704 Head {h00=0x0032, h01=0x0050, text=»* 12 DC LINE 1 /61 «, t00=0x0023, t01=0x0028}
0x3704…373a Head {h00=0x0032, h01=0x0050, text=»* 14 DC LINE 2 /62 «, t00=0x0023, t01=0x005e}
0x373a…3744 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0094}
0x3744…374e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x009e}
0x374e…3758 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00a8}
0x3758…3762 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00b2}
0x3762…3770 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x00bc}
0x3770…37b6 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0023, t01=0x00ca}
0x37b6…37fc Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0023, t01=0x0110}
0x37fc…3842 Head {h00=0x0042, h01=0x0050, text=»* ECBINI INIT OF ECB:S * «, t00=0x0023, t01=0x0156}
0x3842…3888 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0024, t01=0x000c}
0x3888…38ce Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0024, t01=0x0052}
0x38ce…38ea Head {h00=0x0018, h01=0x0050, text=»* REGISTERS «, t00=0x0024, t01=0x0098}
0x38ea…38f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00b4}
0x38f4…3914 Head {h00=0x001c, h01=0x0050, text=»* A4 = NUMBER OF ENTRIES«, t00=0x0024, t01=0x00be}
0x3914…3938 Head {h00=0x0020, h01=0x0050, text=»* A5 = NUMBER OF FC ALLOWED «, t00=0x0024, t01=0x00de}
0x3938…3952 Head {h00=0x0016, h01=0x0050, text=»* A6 = DAT POINTER«, t00=0x0024, t01=0x0102}
0x3952…3970 Head {h00=0x001a, h01=0x0050, text=»* A7 = ECB FC POINTER «, t00=0x0024, t01=0x011c}
0x3970…3990 Head {h00=0x001c, h01=0x0050, text=»* A8 = DATA SET POINTER «, t00=0x0024, t01=0x013a}
0x3990…39b0 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0024, t01=0x015a}
0x39b0…39c8 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0024, t01=0x017a}
0x39c8…39d2 (37, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0004}
0x39d2…3a16 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0025, t01=0x000e}
0x3a16…3a2a Head {h00=0x0010, h01=0x0050, text=»ECBINI EQU *«, t00=0x0025, t01=0x0052}
0x3a2a…3a50 Head {h00=0x0022, h01=0x0050, text=» LD A2,-8,A13 GET T:D ADDRESS «, t00=0x0025, t01=0x0066}
0x3a50…3a7a Head {h00=0x0026, h01=0x0050, text=» LD A4,+4,A2 GET NUMBER OF ENTRIES«, t00=0x0025, t01=0x008c}
0x3a7a…3a8e Head {h00=0x0010, h01=0x0050, text=» LD A8,+6,A2«, t00=0x0025, t01=0x00b6}
0x3a8e…3aa2 Head {h00=0x0010, h01=0x0050, text=» ADR A8,A13 «, t00=0x0025, t01=0x00ca}
0x3aa2…3ac0 Head {h00=0x001a, h01=0x0050, text=» LDR A6,A8 DAT POINTER«, t00=0x0025, t01=0x00de}
0x3ac0…3ae4 Head {h00=0x0020, h01=0x0050, text=» SUKL A8,20 DATA SET POINTER«, t00=0x0025, t01=0x00fc}
0x3ae4…3af8 Head {h00=0x0010, h01=0x0050, text=»ECBI10 EQU *«, t00=0x0025, t01=0x0120}
0x3af8…3b1c Head {h00=0x0020, h01=0x0050, text=» LD A5,ECBIND NUMBER OF FC:S«, t00=0x0025, t01=0x0134}
0x3b1c…3b46 Head {h00=0x0026, h01=0x0050, text=» LDKL A7,ECBIND+2 FIRST FILE CODE «, t00=0x0025, t01=0x0158}
0x3b46…3b66 Head {h00=0x001c, h01=0x0050, text=» LC A2,+1,A6 DATA SET FC«, t00=0x0025, t01=0x0182}
0x3b66…3b7a Head {h00=0x0010, h01=0x0050, text=»ECBI20 EQU *«, t00=0x0026, t01=0x0012}
0x3b7a…3ba8 Head {h00=0x002a, h01=0x0050, text=» CCR A2,A7 FC IN DAT = FC CONFIGURED? «, t00=0x0026, t01=0x0026}
0x3ba8…3bc2 Head {h00=0x0016, h01=0x0050, text=» RF(E) ECBI30 YES «, t00=0x0026, t01=0x0054}
0x3bc2…3bd8 Head {h00=0x0012, h01=0x0050, text=» ADK A7,2 NEXT«, t00=0x0026, t01=0x006e}
0x3bd8…3bf4 Head {h00=0x0018, h01=0x0050, text=» SUK A5,1 NOT FOUND?«, t00=0x0026, t01=0x0084}
0x3bf4…3c12 Head {h00=0x001a, h01=0x0050, text=» RB(NZ) ECBI20 NOT YET«, t00=0x0026, t01=0x00a0}
0x3c12…3c30 Head {h00=0x001a, h01=0x0050, text=» LDKL A1,* DIAGNOSTIC «, t00=0x0026, t01=0x00be}
0x3c30…3c48 Head {h00=0x0014, h01=0x0050, text=» ST A1,REGI,A11 «, t00=0x0026, t01=0x00dc}
0x3c48…3c54 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0026, t01=0x00f4}
0x3c54…3c74 Head {h00=0x001c, h01=0x0050, text=» DATA 3 WRONG GENERATION«, t00=0x0026, t01=0x0100}
0x3c74…3c88 Head {h00=0x0010, h01=0x0050, text=»ECBI30 EQU *«, t00=0x0026, t01=0x0120}
0x3c88…3cb0 Head {h00=0x0024, h01=0x0050, text=» SC A2,+1,A8 SAVE FC IN DATA SET«, t00=0x0026, t01=0x0134}
0x3cb0…3cdc Head {h00=0x0028, h01=0x0050, text=» LD A2,+2,A6 GET FIXED LENGTH IF ANY«, t00=0x0026, t01=0x015c}
0x3cdc…3d02 Head {h00=0x0022, h01=0x0050, text=» ST A2,+4,A8 SAVE IN DATA SET «, t00=0x0026, t01=0x0188}
0x3d02…3d30 Head {h00=0x002a, h01=0x0050, text=» LD A2,+18,A8 GET FIXED BUFFER IF ANY «, t00=0x0027, t01=0x001e}
0x3d30…3d56 Head {h00=0x0022, h01=0x0050, text=» ST A2,+2,A8 SAVE IN DATA SET «, t00=0x0027, t01=0x004c}
0x3d56…3d82 Head {h00=0x0028, h01=0x0050, text=» LC A2,+1,A7 GET INDEX TO ECB TABLE «, t00=0x0027, t01=0x0072}
0x3d82…3d96 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0027, t01=0x009e}
0x3d96…3daa Head {h00=0x0010, h01=0x0050, text=» ADR A2,A11 «, t00=0x0027, t01=0x00b2}
0x3daa…3dd4 Head {h00=0x0026, h01=0x0050, text=» ST A8,ECBTAB,A2 SAVE ECB ADDRESS «, t00=0x0027, t01=0x00c6}
0x3dd4…3de6 Head {h00=0x000e, h01=0x0050, text=» ADK A6,4 «, t00=0x0027, t01=0x00f0}
0x3de6…3dfa Head {h00=0x0010, h01=0x0050, text=» SUKL A8,20 «, t00=0x0027, t01=0x0102}
0x3dfa…3e16 Head {h00=0x0018, h01=0x0050, text=» SUK A4,1 ALL DONE? «, t00=0x0027, t01=0x0116}
0x3e16…3e30 Head {h00=0x0016, h01=0x0050, text=» RB(NZ) ECBI10 NO «, t00=0x0027, t01=0x0132}
0x3e30…3e40 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0027, t01=0x014c}
0x3e40…3e4e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x015c}
0x3e4e…3e94 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0027, t01=0x016a}
0x3e94…3eda Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0028, t01=0x0020}
0x3eda…3f20 Head {h00=0x0042, h01=0x0050, text=»* TSTDEV TEST KEYBOARD AND DISPLAY * «, t00=0x0028, t01=0x0066}
0x3f20…3f66 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0028, t01=0x00ac}
0x3f66…3fac Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0028, t01=0x00f2}
0x3fac…3fc0 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0028, t01=0x0138}
0x3fc0…3fca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x014c}
0x3fca…3fea Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0028, t01=0x0156}
0x3fea…4002 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0028, t01=0x0176}
0x4002…400c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x018e}
0x400c…4046 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0029, t01=0x0008}
0x4046…405a Head {h00=0x0010, h01=0x0050, text=»TSTDEV EQU *«, t00=0x0029, t01=0x0042}
0x405a…408a Head {h00=0x002c, h01=0x0050, text=» CF A14,SOUND TURN ON SOUND ALARM AT VDU«, t00=0x0029, t01=0x0056}
0x408a…409a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0029, t01=0x0086}
0x409a…40a2 Head {h00=0x0004, h01=0x0050, t00=0x0029, t01=0x0096}
0x40a2…40ae Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0029, t01=0x009e}
0x40ae…40b2 Head {h00=0x4004, h01=0x0000}
0x40b2…40b6 00 29 00 aa ┆ ) ┆
0x40b6…40be (42, 1, 8) 20 04 00 00 00 2a 00 04 ┆ * ┆
0x40be…40c6 (43, 1, 8) 20 04 00 00 00 03 00 04 ┆ ┆
0x40c6…4116 (44, 0, 398) 51 55 5c 37 5c 53 54 41 52 54 20 4f 46 20 54 59 50 45 20 52 45 43 4f 52 44 20 00 1b 01 88 00 2c 00 50 4e 41 4e 53 41 5c 45 51 55 5c 32 5c 4e 41 2d 4e 53 41 20 52 45 43 4f 52 44 20 51 55 41 4c 49 46 49 45 52 20 50 4f 53 2e 00 1c 00 22 00 22 ┆QU 7 START OF TYPE RECORD , PNANSA EQU 2 NA-NSA RECORD QUALIFIER POS. " "┆
0x4116…4166 00 50 4e 41 4f 46 53 5c 45 51 55 5c 33 5c 53 54 41 52 54 20 4f 46 20 4e 41 20 4e 55 4d 42 45 52 00 1c 00 52 00 24 00 50 4e 53 41 4f 46 53 5c 45 51 55 5c 34 5c 53 54 41 52 54 20 4f 46 20 4e 53 41 20 52 45 43 4f 52 44 00 1c 00 78 00 26 00 50 ┆ PNAOFS EQU 3 START OF NA NUMBER R $ PNSAOFS EQU 4 START OF NSA RECORD x & P┆
0x4166…41b6 44 54 45 46 49 58 5c 45 51 55 5c 38 5c 46 49 58 20 50 41 52 54 20 4f 46 20 44 54 45 20 42 4c 4f 43 4b 00 1c 00 a0 00 0a 00 50 5c 45 4a 45 43 54 00 1c 00 ca 00 14 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 1c 00 d8 00 14 00 50 ┆DTEFIX EQU 8 FIX PART OF DTE BLOCK P EJECT P**************** P┆
0x41b6…4206 2a 20 53 4f 50 2d 48 41 4e 44 4c 49 4e 47 20 2a 00 1c 00 f0 00 14 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 1c 01 08 00 1e 00 50 53 4f 50 5c 45 51 55 5c 2f 32 45 5c 44 45 56 49 43 45 20 41 44 44 52 45 53 53 00 1c 01 20 00 04 ┆* SOP-HANDLING * P**************** PSOP EQU /2E DEVICE ADDRESS ┆
0x4206…4254 00 50 00 1c 01 42 00 2a 00 50 4c 4d 50 31 5c 45 51 55 5c 2f 34 30 30 5c 53 59 53 4c 4f 44 20 52 55 4e 53 5c 4c 41 4d 50 20 31 20 43 4f 44 45 20 00 1c 01 4a 00 1a 00 50 4c 4d 50 32 5c 45 51 55 5c 2f 32 30 30 5c 4e 4f 54 20 55 53 45 44 ┆ P B * PLMP1 EQU /400 SYSLOD RUNS LAMP 1 CODE J PLMP2 EQU /200 NOT USED┆