|
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: 17340 (0x43bc)
Notes: pts_type(SC)
Names: »DSPBSC.SC«
└─⟦7a1dcd5a9⟧ Bits:30009673 Philips computer tape "600134"
└─⟦this⟧ »PT3272/DSPBSC.SC«
IDENT DSPBSC REL 11.0 83-11-16DK 870150541100 DK2, DEV. STATUS AT CONNECT #1 HARDCOPY PROBLEM 82-06-25 DK1, POWER OFF ON TERM.. ************************************************************* * * * 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 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 . #1 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 LD A1,BSCMOD,A11 . #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,TSTDEV WAIT FOR TERM OPERABLE DK1 LDK A4,0 DEV STATUS= OPERABLE DK2 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 LDR A1,A1 CHECK RETURN CODE DK1 RF(Z) TSTD90 OK, GO ON.. DK1 LKM DATA 0 SWITCH TASKS RB TSTDEV TRY AGAIN DK1 TSTD90 EQU * DK1 RTN A14 END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT DSPBSC REL 11.0 83-11-16DK 870150541100«, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0064 Head {h00=0x0022, h01=0x0050, text=» DK2, DEV. STATUS AT CONNECT«, t00=0x0000, t01=0x0042}
0x0064…0082 Head {h00=0x001a, h01=0x0050, text=» #1 HARDCOPY PROBLEM«, t00=0x0000, t01=0x0068}
0x0082…0096 Head {h00=0x0010, h01=0x0050, text=» 82-06-25 «, t00=0x0000, t01=0x0086}
0x0096…00ba Head {h00=0x0020, h01=0x0050, text=» DK1, POWER OFF ON TERM.. «, t00=0x0000, t01=0x009a}
0x00ba…0100 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0000, t01=0x00be}
0x0100…0146 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0000, t01=0x0104}
0x0146…018c Head {h00=0x0042, h01=0x0050, text=»* MODULE DSPBSC * «, t00=0x0000, t01=0x014a}
0x018c…01d2 Head {h00=0x0042, h01=0x0050, text=»* MODULE HANDLING THE START UP OF THE * «, t00=0x0000, t01=0x0190}
0x01d2…0218 Head {h00=0x0042, h01=0x0050, text=»* VDUKB TASK, CONTROLLING SNA MODES * «, t00=0x0001, t01=0x0046}
0x0218…025e Head {h00=0x0042, h01=0x0050, text=»* AND MULTIPLE WAIT FOR KB AND DC. * «, t00=0x0001, t01=0x008c}
0x025e…029e Head {h00=0x003c, h01=0x0050, text=»* (EMULATION 3270 BSC) *«, t00=0x0001, t01=0x00d2}
0x029e…02e4 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0001, t01=0x0112}
0x02e4…032a Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0001, t01=0x0158}
0x032a…0338 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x000e}
0x0338…0380 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0002, t01=0x001c}
0x0380…03c8 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0002, t01=0x0064}
0x03c8…0410 Head {h00=0x0044, h01=0x0050, text=»* LIST OF ROUTINES *«, t00=0x0002, t01=0x00ac}
0x0410…0458 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0002, t01=0x00f4}
0x0458…04a0 Head {h00=0x0044, h01=0x0050, text=»* VDUKB MAIN ROUTINE *«, t00=0x0002, t01=0x013c}
0x04a0…04c8 Head {h00=0x0024, h01=0x0050, text=»* IOACT I/O ACTIVATION«, t00=0x0002, t01=0x0184}
0x04c8…04f0 Head {h00=0x0024, h01=0x0050, text=»* IOCPL I/O COMPLETION«, t00=0x0003, t01=0x001c}
0x04f0…0522 Head {h00=0x002e, h01=0x0050, text=»* MATCH MATCH ADDRESS AND TASKID«, t00=0x0003, t01=0x0044}
0x0522…056a Head {h00=0x0044, h01=0x0050, text=»* INIT INITIALIZE THE TASK *«, t00=0x0003, t01=0x0076}
0x056a…0598 Head {h00=0x002a, h01=0x0050, text=»* COMINI COMMON INIT ROUTINE «, t00=0x0003, t01=0x00be}
0x0598…05c0 Head {h00=0x0024, h01=0x0050, text=»* ECBINI INIT OF ECB:S «, t00=0x0003, t01=0x00ec}
0x05c0…0608 Head {h00=0x0044, h01=0x0050, text=»* TSTDEV TEST KEYBOARD AND DISPLAY *«, t00=0x0003, t01=0x0114}
0x0608…0650 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0003, t01=0x015c}
0x0650…0698 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0004, t01=0x0014}
0x0698…06a6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x005c}
0x06a6…06e8 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0004, t01=0x006a}
0x06e8…072a Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x0004, t01=0x00ac}
0x072a…076c Head {h00=0x003e, h01=0x0050, text=»* ENTRY POINTS *«, t00=0x0004, t01=0x00ee}
0x076c…07ae Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x0004, t01=0x0130}
0x07ae…07f0 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0004, t01=0x0172}
0x07f0…07f8 Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x0024}
0x07f8…082c Head {h00=0x0030, h01=0x0050, text=» ENTRY VDUKB START LABEL FROM DATSNA(CREDIT)«, t00=0x0005, t01=0x002c}
0x082c…0856 Head {h00=0x0026, h01=0x0050, text=» ENTRY COMINI COMMON INIT ROUTINE «, t00=0x0005, t01=0x0060}
0x0856…087a Head {h00=0x0020, h01=0x0050, text=» ENTRY ECBINI INIT OF ECB:S «, t00=0x0005, t01=0x008a}
0x087a…08ac Head {h00=0x002e, h01=0x0050, text=» ENTRY MATCH MATCH TASID AND PHYS. ADDRESS«, t00=0x0005, t01=0x00ae}
0x08ac…08b4 Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x00e0}
0x08b4…08f6 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0005, t01=0x00e8}
0x08f6…0938 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x0005, t01=0x012a}
0x0938…097a Head {h00=0x003e, h01=0x0050, text=»* EXTERNAL REFERENCES *«, t00=0x0005, t01=0x016c}
0x097a…09bc Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x0006, t01=0x001e}
0x09bc…09fe Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0006, t01=0x0060}
0x09fe…0a06 Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x00a2}
0x0a06…0a36 Head {h00=0x002c, h01=0x0050, text=» EXTRN I:EVA0 CREDIT EVALUATION ROUTINE «, t00=0x0006, t01=0x00aa}
0x0a36…0a5a Head {h00=0x0020, h01=0x0050, text=» EXTRN OPEN OPEN DC (DCBSC) «, t00=0x0006, t01=0x00da}
0x0a5a…0a82 Head {h00=0x0024, h01=0x0050, text=» EXTRN CONCT CONNECT DC (DCBSC) «, t00=0x0006, t01=0x00fe}
0x0a82…0ab4 Head {h00=0x002e, h01=0x0050, text=» EXTRN SETTYM SET REQUEST TIMEOUT (DCBSC) «, t00=0x0006, t01=0x0126}
0x0ab4…0aea Head {h00=0x0032, h01=0x0050, text=» EXTRN ERASE ERASE SCREEN AND VDU BUFFER (VDU)«, t00=0x0006, t01=0x0158}
0x0aea…0b1c Head {h00=0x002e, h01=0x0050, text=» EXTRN TSTMES TEST IF ANY MESSAGE (DCSNA) «, t00=0x0006, t01=0x018e}
0x0b1c…0b54 Head {h00=0x0034, h01=0x0050, text=» EXTRN READKB READ KEYBOARD WITH NO WAIT (KEYB) «, t00=0x0007, t01=0x0030}
0x0b54…0b8c Head {h00=0x0034, h01=0x0050, text=» EXTRN KBINP MAIN ROUTINE IN KEYB-MODULE (KEYB) «, t00=0x0007, t01=0x0068}
0x0b8c…0bc6 Head {h00=0x0036, h01=0x0050, text=» EXTRN DCINP MAIN ROUTINE IN DCSNA-MODULE (DCSNA) «, t00=0x0007, t01=0x00a0}
0x0bc6…0bf4 Head {h00=0x002a, h01=0x0050, text=» EXTRN LMP6OF OFFLINE LAMP OFF (KEYB) «, t00=0x0007, t01=0x00da}
0x0bf4…0c1a Head {h00=0x0022, h01=0x0050, text=» EXTRN LMP1ON DC LINE 1 (KEYB)«, t00=0x0007, t01=0x0108}
0x0c1a…0c40 Head {h00=0x0022, h01=0x0050, text=» EXTRN LMP2ON DC LINE 2 (KEYB)«, t00=0x0007, t01=0x012e}
0x0c40…0c72 Head {h00=0x002e, h01=0x0050, text=» EXTRN SOUND SOUND ALARM AT DISPLAY (VDU) «, t00=0x0007, t01=0x0154}
0x0c72…0c9c Head {h00=0x0026, h01=0x0050, text=» EXTRN LMP5ON ERROR LAMP ON (KEYB)«, t00=0x0007, t01=0x0186}
0x0c9c…0cc8 Head {h00=0x0028, h01=0x0050, text=» EXTRN LMP5OF ERROR LAMP OFF (KEYB) «, t00=0x0008, t01=0x0020}
0x0cc8…0cfa Head {h00=0x002e, h01=0x0050, text=» EXTRN RESKB RESET KEYBOARD BUFFER (KEYB) «, t00=0x0008, t01=0x004c}
0x0cfa…0d2e Head {h00=0x0030, h01=0x0050, text=» EXTRN STOINF SAVE SCREEN INFORMATION (VDU) «, t00=0x0008, t01=0x007e}
0x0d2e…0d5a Head {h00=0x0028, h01=0x0050, text=» EXTRN ICVRED INTERTASK READ (KEYB) «, t00=0x0008, t01=0x00b2}
0x0d5a…0d86 Head {h00=0x0028, h01=0x0050, text=» EXTRN ICINP INTERTASK INPUT (KEYB) «, t00=0x0008, t01=0x00de}
0x0d86…0db4 Head {h00=0x002a, h01=0x0050, text=» EXTRN CHKSTA CHECK DC STATUS (DCBSC) «, t00=0x0008, t01=0x010a}
0x0db4…0dee Head {h00=0x0036, h01=0x0050, text=» EXTRN READK2 READ NUMERIC KEYB'RD, NO-WAIT (KEYB)«, t00=0x0008, t01=0x0138}
0x0dee…0e1e Head {h00=0x002c, h01=0x0050, text=» EXTRN KBINP2 ROUTINE FOR 2ND. KEYBOARD «, t00=0x0008, t01=0x0172}
0x0e1e…0e2c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0012}
0x0e2c…0e72 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0009, t01=0x0020}
0x0e72…0eb8 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0009, t01=0x0066}
0x0eb8…0efe Head {h00=0x0042, h01=0x0050, text=»* CONDITIONAL ASSEMBLY PARAMETERS * «, t00=0x0009, t01=0x00ac}
0x0efe…0f44 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0009, t01=0x00f2}
0x0f44…0f8a Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0009, t01=0x0138}
0x0f8a…0f92 Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x017e}
0x0f92…0fba Head {h00=0x0024, h01=0x0050, text=»X:B EQU 15 NUMBER OF TASKS (1- )«, t00=0x0009, t01=0x0186}
0x0fba…0fd0 Head {h00=0x0012, h01=0x0050, text=»NBRTSK EQU 16 «, t00=0x000a, t01=0x001e}
0x0fd0…0ffa Head {h00=0x0026, h01=0x0050, text=»X:C EQU 0 OFFLINE HANDLING IF :=1 «, t00=0x000a, t01=0x0034}
0x0ffa…100e Head {h00=0x0010, h01=0x0050, text=»OFLIN EQU 0 «, t00=0x000a, t01=0x005e}
0x100e…1036 Head {h00=0x0024, h01=0x0050, text=»X:D EQU 1 NUMBER OF LINES (1-2) «, t00=0x000a, t01=0x0072}
0x1036…104a Head {h00=0x0010, h01=0x0050, text=»NBRLIN EQU 2«, t00=0x000a, t01=0x009a}
0x104a…1078 Head {h00=0x002a, h01=0x0050, text=»X:M EQU 0 COPY COMMNAND INCLUDED IF:=1«, t00=0x000a, t01=0x00ae}
0x1078…108c Head {h00=0x0010, h01=0x0050, text=»COPCMD EQU 1«, t00=0x000a, t01=0x00dc}
0x108c…10b2 Head {h00=0x0022, h01=0x0050, text=»X:O EQU 0 TEST INCLUDED IF:=1 «, t00=0x000a, t01=0x00f0}
0x10b2…10c4 Head {h00=0x000e, h01=0x0050, text=»TEST EQU 0«, t00=0x000a, t01=0x0116}
0x10c4…10d2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0128}
0x10d2…1116 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x000a, t01=0x0136}
0x1116…115a Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x000a, t01=0x017a}
0x115a…1184 Head {h00=0x0026, h01=0x0050, text=»* DECLARATIONS OF DATA AND EQUATES«, t00=0x000b, t01=0x002e}
0x1184…11c8 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x000b, t01=0x0058}
0x11c8…120c Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x000b, t01=0x009c}
0x120c…1214 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x00e0}
0x1214…121e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00e8}
0x121e…1238 Head {h00=0x0016, h01=0x0050, text=»* ECB INDEX TABLE «, t00=0x000b, t01=0x00f2}
0x1238…1242 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x010c}
0x1242…1256 Head {h00=0x0010, h01=0x0050, text=»ECBIND EQU *«, t00=0x000b, t01=0x0116}
0x1256…1278 Head {h00=0x001e, h01=0x0050, text=» DATA 9 NUMBER OF ENTRIES «, t00=0x000b, t01=0x012a}
0x1278…1294 Head {h00=0x0018, h01=0x0050, text=» DATA X'2000' ECB KB«, t00=0x000b, t01=0x014c}
0x1294…12b6 Head {h00=0x001e, h01=0x0050, text=» DATA X'3002' ECB PRINTER «, t00=0x000b, t01=0x0168}
0x12b6…12de Head {h00=0x0024, h01=0x0050, text=» DATA X'4004' ECB SIGNAL DISPLAY«, t00=0x000b, t01=0x018a}
0x12de…12fc Head {h00=0x001a, h01=0x0050, text=» DATA X'4206' ECB VDU «, t00=0x000c, t01=0x0022}
0x12fc…1324 Head {h00=0x0024, h01=0x0050, text=» DATA X'5008' ECB INTERTASK READ«, t00=0x000c, t01=0x0040}
0x1324…134e Head {h00=0x0026, h01=0x0050, text=» DATA X'510A' ECB INTERTASK WRITE «, t00=0x000c, t01=0x0068}
0x134e…1370 Head {h00=0x001e, h01=0x0050, text=» DATA X'610C' ECB DC LINE1«, t00=0x000c, t01=0x0092}
0x1370…1396 Head {h00=0x0022, h01=0x0050, text=» DATA X'620E' ECB DC LINE2 DK «, t00=0x000c, t01=0x00b4}
0x1396…13c2 Head {h00=0x0028, h01=0x0050, text=» DATA X'2110' ECB FOR NUMERIC KB DK «, t00=0x000c, t01=0x00da}
0x13c2…13cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0106}
0x13cc…13f4 Head {h00=0x0024, h01=0x0050, text=»* SCREEN SIZE ON DISPLAY«, t00=0x000c, t01=0x0110}
0x13f4…13fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0138}
0x13fe…1414 Head {h00=0x0012, h01=0x0050, text=»LBVDU EQU 1920«, t00=0x000c, t01=0x0142}
0x1414…141e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0158}
0x141e…142e Head {h00=0x000c, h01=0x0050, text=»* MODES «, t00=0x000c, t01=0x0162}
0x142e…1438 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0172}
0x1438…1466 Head {h00=0x002a, h01=0x0050, text=»HCPMOD EQU /4000 HARDCOPY OUTSTANDING «, t00=0x000c, t01=0x017c}
0x1466…1470 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x001a}
0x1470…1492 Head {h00=0x001e, h01=0x0050, text=»* TASK IDENTIFICATION CODE«, t00=0x000d, t01=0x0024}
0x1492…149c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0046}
0x149c…14ba Head {h00=0x001a, h01=0x0050, text=»VDUCOD EQU 'VV' KB/VDU«, t00=0x000d, t01=0x0050}
0x14ba…14c8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x006e}
0x14c8…14d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x007c}
0x14d2…14f2 Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x000d, t01=0x0086}
0x14f2…1512 Head {h00=0x001c, h01=0x0050, text=»* TERMINAL WORKBLOCK TB1«, t00=0x000d, t01=0x00a6}
0x1512…151c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00c6}
0x151c…1540 Head {h00=0x0020, h01=0x0050, text=»OFFFLG EQU 1962 OFFLINE FLAG«, t00=0x000d, t01=0x00d0}
0x1540…156e Head {h00=0x002a, h01=0x0050, text=»PRTID EQU OFFFLG+2 TASKID FOR HARDCOPY«, t00=0x000d, t01=0x00f4}
0x156e…1594 Head {h00=0x0022, h01=0x0050, text=»MAIN EQU PRTID+6 WHICH DC LINE«, t00=0x000d, t01=0x0122}
0x1594…15c6 Head {h00=0x002e, h01=0x0050, text=»ECBBLK EQU MAIN+6 ECBBLK FOR MULTIPLE WAIT«, t00=0x000d, t01=0x0148}
0x15c6…15ea Head {h00=0x0020, h01=0x0050, text=»REGI EQU ECBBLK+16 SAVE AREA«, t00=0x000d, t01=0x017a}
0x15ea…160e Head {h00=0x0020, h01=0x0050, text=»BSCMOD EQU REGI+32 BSC MODE «, t00=0x000e, t01=0x000e}
0x160e…1634 Head {h00=0x0022, h01=0x0050, text=»ECBTAB EQU BSCMOD+2 ECB TABLE «, t00=0x000e, t01=0x0032}
0x1634…163e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0058}
0x163e…165e Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x000e, t01=0x0062}
0x165e…167c Head {h00=0x001a, h01=0x0050, text=»* COMMON WORKBLOCK CB1«, t00=0x000e, t01=0x0082}
0x167c…1686 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00a0}
0x1686…16b4 Head {h00=0x002a, h01=0x0050, text=»MF1CU EQU 0 SYMBOLIC CLUSTER ADDDRESS «, t00=0x000e, t01=0x00aa}
0x16b4…16c8 Head {h00=0x0010, h01=0x0050, text=» IFF TEST=1 «, t00=0x000e, t01=0x00d8}
0x16c8…16ee Head {h00=0x0022, h01=0x0050, text=»TSKTAB EQU MF1CU+26 TASK TABLE«, t00=0x000e, t01=0x00ec}
0x16ee…16fa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x0112}
0x16fa…170e Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x000e, t01=0x011e}
0x170e…1736 Head {h00=0x0024, h01=0x0050, text=»TSKTAB EQU MF1CU+219 TASK TABLE «, t00=0x000e, t01=0x0132}
0x1736…1742 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x015a}
0x1742…1750 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x0166}
0x1750…1792 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x000e, t01=0x0174}
0x1792…17d4 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x000f, t01=0x0026}
0x17d4…1816 Head {h00=0x003e, h01=0x0050, text=»* VDUKB MAIN ROUTINE * «, t00=0x000f, t01=0x0068}
0x1816…1858 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x000f, t01=0x00aa}
0x1858…189a Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x000f, t01=0x00ec}
0x189a…18ae Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x000f, t01=0x012e}
0x18ae…18b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0142}
0x18b8…18d0 Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x000f, t01=0x014c}
0x18d0…18e8 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x000f, t01=0x0164}
0x18e8…18f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x017c}
0x18f2…192a Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x000f, t01=0x0186}
0x192a…193e Head {h00=0x0010, h01=0x0050, text=»VDUKB EQU * «, t00=0x0010, t01=0x002e}
0x193e…1966 Head {h00=0x0024, h01=0x0050, text=» CF A14,INIT INITIALIZE THE TASK«, t00=0x0010, t01=0x0042}
0x1966…197a Head {h00=0x0010, h01=0x0050, text=»VDU200 EQU *«, t00=0x0010, t01=0x006a}
0x197a…19a0 Head {h00=0x0022, h01=0x0050, text=» CF A14,IOACT PREPARE ECB-BLK «, t00=0x0010, t01=0x007e}
0x19a0…19b8 Head {h00=0x0014, h01=0x0050, text=» LDKL A7,ECBBLK «, t00=0x0010, t01=0x00a4}
0x19b8…19cc Head {h00=0x0010, h01=0x0050, text=» ADR A7,A11 «, t00=0x0010, t01=0x00bc}
0x19cc…19d8 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0010, t01=0x00d0}
0x19d8…19f6 Head {h00=0x001a, h01=0x0050, text=» DATA 7 MULTIPLE WAIT «, t00=0x0010, t01=0x00dc}
0x19f6…1a20 Head {h00=0x0026, h01=0x0050, text=» CF A14,IOCPL TAKE CARE OF REQUEST«, t00=0x0010, t01=0x00fa}
0x1a20…1a44 Head {h00=0x0020, h01=0x0050, text=» RB VDU200 HERE WE GO AGAIN «, t00=0x0010, t01=0x0124}
0x1a44…1a52 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0148}
0x1a52…1a5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0156}
0x1a5c…1a66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0160}
0x1a66…1a8c Head {h00=0x0022, h01=0x0050, text=»* POSSIBLE LAYOUTS OF ECB-BLK «, t00=0x0010, t01=0x016a}
0x1a8c…1a96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0190}
0x1a96…1aa0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x000a}
0x1aa0…1aaa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0014}
0x1aaa…1ab4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x001e}
0x1ab4…1ad8 Head {h00=0x0020, h01=0x0050, text=»* MODE /0000 /4000«, t00=0x0011, t01=0x0028}
0x1ad8…1ae2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x004c}
0x1ae2…1aec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0056}
0x1aec…1b0e Head {h00=0x001e, h01=0x0050, text=»* BLK 2 3«, t00=0x0011, t01=0x0060}
0x1b0e…1b32 Head {h00=0x0020, h01=0x0050, text=»* KB KB «, t00=0x0011, t01=0x0082}
0x1b32…1b56 Head {h00=0x0020, h01=0x0050, text=»* DC DC «, t00=0x0011, t01=0x00a6}
0x1b56…1b7a Head {h00=0x0020, h01=0x0050, text=»* IC «, t00=0x0011, t01=0x00ca}
0x1b7a…1b84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00ee}
0x1b84…1b8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00f8}
0x1b8e…1b98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0102}
0x1b98…1ba6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x010c}
0x1ba6…1bea Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0011, t01=0x011a}
0x1bea…1c2e Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0011, t01=0x015e}
0x1c2e…1c5a Head {h00=0x0028, h01=0x0050, text=»* IOACT I/O ACTIVATION «, t00=0x0012, t01=0x0012}
0x1c5a…1c9e Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0012, t01=0x003e}
0x1c9e…1ce2 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0012, t01=0x0082}
0x1ce2…1d02 Head {h00=0x001c, h01=0x0050, text=»* REGISTERS«, t00=0x0012, t01=0x00c6}
0x1d02…1d0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00e6}
0x1d0c…1d38 Head {h00=0x0028, h01=0x0050, text=»* A4= NUMBER OF ENTRIES IN ECB BLOCK«, t00=0x0012, t01=0x00f0}
0x1d38…1d58 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0012, t01=0x011c}
0x1d58…1d70 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0012, t01=0x013c}
0x1d70…1d7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0154}
0x1d7a…1dbc Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0012, t01=0x015e}
0x1dbc…1dd0 Head {h00=0x0010, h01=0x0050, text=»IOACT EQU * «, t00=0x0013, t01=0x0010}
0x1dd0…1df8 Head {h00=0x0024, h01=0x0050, text=» LDK A4,1 COUNT NUMBER OF I-O'S «, t00=0x0013, t01=0x0024}
0x1df8…1e08 Head {h00=0x000c, h01=0x0050, text=» . #1 «, t00=0x0013, t01=0x004c}
0x1e08…1e38 Head {h00=0x002c, h01=0x0050, text=» LD A2,ECBBLK+4,A11 REQ. ALREADY OUTST.?«, t00=0x0013, t01=0x005c}
0x1e38…1e52 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IOAC10 YES«, t00=0x0013, t01=0x008c}
0x1e52…1e76 Head {h00=0x0020, h01=0x0050, text=» CF A14,TSTMES TEST MESSAGE «, t00=0x0013, t01=0x00a6}
0x1e76…1e92 Head {h00=0x0018, h01=0x0050, text=» ST A8,ECBBLK+4,A11 «, t00=0x0013, t01=0x00ca}
0x1e92…1ea6 Head {h00=0x0010, h01=0x0050, text=»IOAC10 EQU *«, t00=0x0013, t01=0x00e6}
0x1ea6…1ebc Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0013, t01=0x00fa}
0x1ebc…1eda Head {h00=0x001a, h01=0x0050, text=» LD A1,BSCMOD,A11 . #1«, t00=0x0013, t01=0x0110}
0x1eda…1f08 Head {h00=0x002a, h01=0x0050, text=» ANKL A1,HCPMOD HARDCOPY OUTSTANDING? «, t00=0x0013, t01=0x012e}
0x1f08…1f20 Head {h00=0x0014, h01=0x0050, text=» RF(Z) IOAC30 NO«, t00=0x0013, t01=0x015c}
0x1f20…1f2c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0174}
0x1f2c…1f3e Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0013, t01=0x0180}
0x1f3e…1f5a (20, 0, 400) Head {h00=0x0018, h01=0x0050, text=» LD A2,ECBBLK+8,A11 «, t00=0x0014, t01=0x0004}
0x1f5a…1f8e Head {h00=0x0030, h01=0x0050, text=» RF(NZ) IOAC30 INTERTASK ALREDY OUTSTANDING «, t00=0x0014, t01=0x0020}
0x1f8e…1fb4 Head {h00=0x0022, h01=0x0050, text=» CF A14,ICVRED READ INTERATSK «, t00=0x0014, t01=0x0054}
0x1fb4…1fd0 Head {h00=0x0018, h01=0x0050, text=» ST A8,ECBBLK+8,A11 «, t00=0x0014, t01=0x007a}
0x1fd0…1fe4 Head {h00=0x0010, h01=0x0050, text=»IOAC30 EQU *«, t00=0x0014, t01=0x0096}
0x1fe4…1ff6 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0014, t01=0x00aa}
0x1ff6…2022 Head {h00=0x0028, h01=0x0050, text=» LD A2,ECBBLK+2,A11 KB OUTSTANDING? «, t00=0x0014, t01=0x00bc}
0x2022…203c Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IOAC35 YES«, t00=0x0014, t01=0x00e8}
0x203c…2060 Head {h00=0x0020, h01=0x0050, text=» CF A14,READKB READ KEYBOARD«, t00=0x0014, t01=0x0102}
0x2060…207c Head {h00=0x0018, h01=0x0050, text=» ST A8,ECBBLK+2,A11 «, t00=0x0014, t01=0x0126}
0x207c…2092 Head {h00=0x0012, h01=0x0050, text=»IOAC35 EQU * «, t00=0x0014, t01=0x0142}
0x2092…20c4 Head {h00=0x002e, h01=0x0050, text=»* SECOND KEYBOARD HANDLING 81-10-18 DK *«, t00=0x0014, t01=0x0158}
0x20c4…20d6 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0014, t01=0x018a}
0x20d6…2102 Head {h00=0x0028, h01=0x0050, text=» LD A2,ECBBLK+6,A11 KB2 OUTSTANDING «, t00=0x0015, t01=0x000c}
0x2102…211e Head {h00=0x0018, h01=0x0050, text=» RF(NZ) IOAC40 YES «, t00=0x0015, t01=0x0038}
0x211e…214a Head {h00=0x0028, h01=0x0050, text=» CF A14,READK2 READ SECOND KEYBOARD «, t00=0x0015, t01=0x0054}
0x214a…2166 Head {h00=0x0018, h01=0x0050, text=» ST A8,ECBBLK+6,A11 «, t00=0x0015, t01=0x0080}
0x2166…2184 Head {h00=0x001a, h01=0x0050, text=»** END DK **«, t00=0x0015, t01=0x009c}
0x2184…2198 Head {h00=0x0010, h01=0x0050, text=»IOAC40 EQU *«, t00=0x0015, t01=0x00ba}
0x2198…21c6 Head {h00=0x002a, h01=0x0050, text=» ST A4,ECBBLK,A11 SAVE NUMBER OF WAITS«, t00=0x0015, t01=0x00ce}
0x21c6…21d6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0015, t01=0x00fc}
0x21d6…21e4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x010c}
0x21e4…2228 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0015, t01=0x011a}
0x2228…226c Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0015, t01=0x015e}
0x226c…2298 Head {h00=0x0028, h01=0x0050, text=»* IOCPL I/O COMPLETION «, t00=0x0016, t01=0x0012}
0x2298…22dc Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0016, t01=0x003e}
0x22dc…2320 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0016, t01=0x0082}
0x2320…2334 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0016, t01=0x00c6}
0x2334…233e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00da}
0x233e…235e Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0016, t01=0x00e4}
0x235e…2376 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0016, t01=0x0104}
0x2376…2380 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x011c}
0x2380…23c4 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0016, t01=0x0126}
0x23c4…23d8 Head {h00=0x0010, h01=0x0050, text=»IOCPL EQU * «, t00=0x0016, t01=0x016a}
0x23d8…23fc Head {h00=0x0020, h01=0x0050, text=» CW A8,ECBBLK+2,A11 KB INPUT«, t00=0x0016, t01=0x017e}
0x23fc…2416 Head {h00=0x0016, h01=0x0050, text=» RF(NE) IOCP05 NO «, t00=0x0017, t01=0x0012}
0x2416…242e Head {h00=0x0014, h01=0x0050, text=» CM ECBBLK+2,A11«, t00=0x0017, t01=0x002c}
0x242e…2454 Head {h00=0x0022, h01=0x0050, text=» CF A14,KBINP TAKE CARE OF KB «, t00=0x0017, t01=0x0044}
0x2454…2466 Head {h00=0x000e, h01=0x0050, text=» RF IOCP90«, t00=0x0017, t01=0x006a}
0x2466…24a0 Head {h00=0x0036, h01=0x0050, text=»** SECOND KEYBOARD HANDLING P & T,81-10-19 DK **«, t00=0x0017, t01=0x007c}
0x24a0…24b6 Head {h00=0x0012, h01=0x0050, text=»IOCP05 EQU * «, t00=0x0017, t01=0x00b6}
0x24b6…24de Head {h00=0x0024, h01=0x0050, text=» CW A8,ECBBLK+6,A11 KB2 INPUT ? «, t00=0x0017, t01=0x00cc}
0x24de…24f8 Head {h00=0x0016, h01=0x0050, text=» RF(NE) IOCP10 NO «, t00=0x0017, t01=0x00f4}
0x24f8…2512 Head {h00=0x0016, h01=0x0050, text=» CM ECBBLK+6,A11 «, t00=0x0017, t01=0x010e}
0x2512…253a Head {h00=0x0024, h01=0x0050, text=» CF A14,KBINP2 TAKE CARE OF KB2 «, t00=0x0017, t01=0x0128}
0x253a…254e Head {h00=0x0010, h01=0x0050, text=» RF IOCP90 «, t00=0x0017, t01=0x0150}
0x254e…256c Head {h00=0x001a, h01=0x0050, text=»** END DK P & T **«, t00=0x0017, t01=0x0164}
0x256c…2580 Head {h00=0x0010, h01=0x0050, text=»IOCP10 EQU *«, t00=0x0017, t01=0x0182}
0x2580…25a0 Head {h00=0x001c, h01=0x0050, text=» CW A8,ECBBLK+4,A11 DC? «, t00=0x0018, t01=0x0008}
0x25a0…25ba Head {h00=0x0016, h01=0x0050, text=» RF(NE) IOCP20 NO «, t00=0x0018, t01=0x0028}
0x25ba…25d2 Head {h00=0x0014, h01=0x0050, text=» CM ECBBLK+4,A11«, t00=0x0018, t01=0x0042}
0x25d2…25f8 Head {h00=0x0022, h01=0x0050, text=» CF A14,DCINP TAKE CARE OF DC «, t00=0x0018, t01=0x005a}
0x25f8…260a Head {h00=0x000e, h01=0x0050, text=» RF IOCP90«, t00=0x0018, t01=0x0080}
0x260a…261e Head {h00=0x0010, h01=0x0050, text=»IOCP20 EQU *«, t00=0x0018, t01=0x0092}
0x261e…2636 Head {h00=0x0014, h01=0x0050, text=» CM ECBBLK+8,A11«, t00=0x0018, t01=0x00a6}
0x2636…2662 Head {h00=0x0028, h01=0x0050, text=» CF A14,ICINP TAKE CARE OF INTERTASK«, t00=0x0018, t01=0x00be}
0x2662…2676 Head {h00=0x0010, h01=0x0050, text=»IOCP90 EQU *«, t00=0x0018, t01=0x00ea}
0x2676…2686 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0018, t01=0x00fe}
0x2686…2694 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x010e}
0x2694…26dc Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0018, t01=0x011c}
0x26dc…26e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0164}
0x26e6…2714 Head {h00=0x002a, h01=0x0050, text=»* MATCH MATCH TASKID AND PHYS. ADDRESS«, t00=0x0018, t01=0x016e}
0x2714…271e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x000c}
0x271e…2766 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0019, t01=0x0016}
0x2766…2782 Head {h00=0x0018, h01=0x0050, text=»* REGISTERS «, t00=0x0019, t01=0x005e}
0x2782…278c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x007a}
0x278c…2796 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0084}
0x2796…27de Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0019, t01=0x008e}
0x27de…27f2 Head {h00=0x0010, h01=0x0050, text=»MATCH EQU * «, t00=0x0019, t01=0x00d6}
0x27f2…2808 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0019, t01=0x00ea}
0x2808…2834 Head {h00=0x0028, h01=0x0050, text=» LDK A1,NBRTSK GET NUMBER OF ENTRIES«, t00=0x0019, t01=0x0100}
0x2834…2848 Head {h00=0x0010, h01=0x0050, text=» LD A3,6,A13«, t00=0x0019, t01=0x012c}
0x2848…286e Head {h00=0x0022, h01=0x0050, text=» ADKL A3,TSKTAB START OF TABLE«, t00=0x0019, t01=0x0140}
0x286e…2882 Head {h00=0x0010, h01=0x0050, text=»MATC10 EQU *«, t00=0x0019, t01=0x0166}
0x2882…28a4 Head {h00=0x001e, h01=0x0050, text=» CC A2,+2,A3 SAME ADDRESS?«, t00=0x0019, t01=0x017a}
0x28a4…28be Head {h00=0x0016, h01=0x0050, text=» RF(E) MATC30 YES «, t00=0x001a, t01=0x000c}
0x28be…28d4 Head {h00=0x0012, h01=0x0050, text=» ADK A3,4 NEXT«, t00=0x001a, t01=0x0026}
0x28d4…28f2 Head {h00=0x001a, h01=0x0050, text=» SUK A1,1 ALL CHECKED?«, t00=0x001a, t01=0x003c}
0x28f2…290c Head {h00=0x0016, h01=0x0050, text=» RB(NZ) MATC10 NO «, t00=0x001a, t01=0x005a}
0x290c…2920 Head {h00=0x0010, h01=0x0050, text=»MATC20 EQU *«, t00=0x001a, t01=0x0074}
0x2920…2944 Head {h00=0x0020, h01=0x0050, text=» LDK A1,1 INDICATE NOT FOUND«, t00=0x001a, t01=0x0088}
0x2944…2956 Head {h00=0x000e, h01=0x0050, text=» RF MATC90«, t00=0x001a, t01=0x00ac}
0x2956…296a Head {h00=0x0010, h01=0x0050, text=»MATC30 EQU *«, t00=0x001a, t01=0x00be}
0x296a…297c Head {h00=0x000e, h01=0x0050, text=» LCR A1,A3«, t00=0x001a, t01=0x00d2}
0x297c…29ac Head {h00=0x002c, h01=0x0050, text=» CCK A1,VDUCOD COPY IN RIGHT DIRECTION? «, t00=0x001a, t01=0x00e4}
0x29ac…29c6 Head {h00=0x0016, h01=0x0050, text=» RB(NE) MATC20 NO «, t00=0x001a, t01=0x0114}
0x29c6…29d8 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x001a, t01=0x012e}
0x29d8…29ec Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A3 «, t00=0x001a, t01=0x0140}
0x29ec…2a00 Head {h00=0x0010, h01=0x0050, text=»MATC90 EQU *«, t00=0x001a, t01=0x0154}
0x2a00…2a0c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x0168}
0x2a0c…2a1c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001a, t01=0x0174}
0x2a1c…2a2a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0184}
0x2a2a…2a6e (27, 0, 398) Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x001b, t01=0x0004}
0x2a6e…2ab2 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x001b, t01=0x0048}
0x2ab2…2af6 Head {h00=0x0040, h01=0x0050, text=»* INIT INITIALIZE THE TASK *«, t00=0x001b, t01=0x008c}
0x2af6…2b3a Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x001b, t01=0x00d0}
0x2b3a…2b7e Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x001b, t01=0x0114}
0x2b7e…2b92 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x001b, t01=0x0158}
0x2b92…2b9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x016c}
0x2b9c…2bbc Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x001b, t01=0x0176}
0x2bbc…2bd4 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x001c, t01=0x0008}
0x2bd4…2bde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0020}
0x2bde…2c18 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x001c, t01=0x002a}
0x2c18…2c2a Head {h00=0x000e, h01=0x0050, text=»INIT EQU *«, t00=0x001c, t01=0x0064}
0x2c2a…2c4c Head {h00=0x001e, h01=0x0050, text=» CF A14,COMINI COMMON INIT«, t00=0x001c, t01=0x0076}
0x2c4c…2c70 Head {h00=0x0020, h01=0x0050, text=» CF A14,ECBINI INIT OF ECB:S«, t00=0x001c, t01=0x0098}
0x2c70…2c8c Head {h00=0x0018, h01=0x0050, text=» CF A14,OPEN OPEN DC«, t00=0x001c, t01=0x00bc}
0x2c8c…2ca0 Head {h00=0x0010, h01=0x0050, text=» LDKL A8,20 «, t00=0x001c, t01=0x00d8}
0x2ca0…2cac Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001c, t01=0x00ec}
0x2cac…2cbc Head {h00=0x000c, h01=0x0050, text=» DATA 6 «, t00=0x001c, t01=0x00f8}
0x2cbc…2cee Head {h00=0x002e, h01=0x0050, text=» CF A14,TSTDEV WAIT FOR TERM OPERABLE DK1 «, t00=0x001c, t01=0x0108}
0x2cee…2d18 Head {h00=0x0026, h01=0x0050, text=» LDK A4,0 DEV STATUS= OPERABLE DK2«, t00=0x001c, t01=0x013a}
0x2d18…2d38 Head {h00=0x001c, h01=0x0050, text=» CF A14,CONCT CONNECT DC«, t00=0x001c, t01=0x0164}
0x2d38…2d62 Head {h00=0x0026, h01=0x0050, text=» CF A14,SETTYM SET REQUEST TIMEOUT«, t00=0x001c, t01=0x0184}
0x2d62…2d90 Head {h00=0x002a, h01=0x0050, text=» LDK A2,NBRTSK NUMBER OF TASK ENTRIES «, t00=0x001d, t01=0x001e}
0x2d90…2dc0 Head {h00=0x002c, h01=0x0050, text=» LD A9,REGI,A11 RESTORE TASKTAB ADDRESS «, t00=0x001d, t01=0x004c}
0x2dc0…2dd4 Head {h00=0x0010, h01=0x0050, text=»INIT10 EQU *«, t00=0x001d, t01=0x007c}
0x2dd4…2de6 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x001d, t01=0x0090}
0x2de6…2dfc Head {h00=0x0012, h01=0x0050, text=» RF(N) INIT20 «, t00=0x001d, t01=0x00a2}
0x2dfc…2e0e Head {h00=0x000e, h01=0x0050, text=» ADKL A9,4«, t00=0x001d, t01=0x00b8}
0x2e0e…2e20 Head {h00=0x000e, h01=0x0050, text=» LCR A1,A9«, t00=0x001d, t01=0x00ca}
0x2e20…2e44 Head {h00=0x0020, h01=0x0050, text=» ANK A1,/FF ANY TASK AT ALL?«, t00=0x001d, t01=0x00dc}
0x2e44…2e5c Head {h00=0x0014, h01=0x0050, text=» RB(Z) INIT10 NO«, t00=0x001d, t01=0x0100}
0x2e5c…2e7e Head {h00=0x001e, h01=0x0050, text=» CCK A1,'VV' DISPLAY TASK?«, t00=0x001d, t01=0x0118}
0x2e7e…2e98 Head {h00=0x0016, h01=0x0050, text=» RB(E) INIT10 YES «, t00=0x001d, t01=0x013a}
0x2e98…2eaa Head {h00=0x000e, h01=0x0050, text=» SLL A1,8 «, t00=0x001d, t01=0x0154}
0x2eaa…2ebe Head {h00=0x0010, h01=0x0050, text=» LC A1,+1,A9«, t00=0x001d, t01=0x0166}
0x2ebe…2ed6 Head {h00=0x0014, h01=0x0050, text=» ST A1,PRTID,A11«, t00=0x001d, t01=0x017a}
0x2ed6…2eea (30, 0, 400) Head {h00=0x0010, h01=0x0050, text=»INIT20 EQU *«, t00=0x001e, t01=0x0004}
0x2eea…2efe Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x001e, t01=0x0018}
0x2efe…2f12 Head {h00=0x0010, h01=0x0050, text=» LD A1,2,A14«, t00=0x001e, t01=0x002c}
0x2f12…2f26 Head {h00=0x0010, h01=0x0050, text=» LD A2,4,A14«, t00=0x001e, t01=0x0040}
0x2f26…2f3c Head {h00=0x0012, h01=0x0050, text=» ST A12,4,A14 «, t00=0x001e, t01=0x0054}
0x2f3c…2f52 Head {h00=0x0012, h01=0x0050, text=» ST A13,2,A14 «, t00=0x001e, t01=0x006a}
0x2f52…2f66 Head {h00=0x0010, h01=0x0050, text=» STR A2,A14 «, t00=0x001e, t01=0x0080}
0x2f66…2f7c Head {h00=0x0012, h01=0x0050, text=» ST A1,-2,A14 «, t00=0x001e, t01=0x0094}
0x2f7c…2fa4 Head {h00=0x0024, h01=0x0050, text=» SUKL A14,4 UPDATE STACK POINTER«, t00=0x001e, t01=0x00aa}
0x2fa4…2fba Head {h00=0x0012, h01=0x0050, text=» CM OFFFLG,A11«, t00=0x001e, t01=0x00d2}
0x2fba…2fe6 Head {h00=0x0028, h01=0x0050, text=» CF A14,LMP6OF TURN OFF OFFLINE LAMP«, t00=0x001e, t01=0x00e8}
0x2fe6…2ff2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x0114}
0x2ff2…3004 Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x001e, t01=0x0120}
0x3004…3030 Head {h00=0x0028, h01=0x0050, text=» LDKL A5,LBVDU+1 UNFORMATTED SCREEN «, t00=0x001e, t01=0x0132}
0x3030…3042 Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x001e, t01=0x015e}
0x3042…3070 Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x001e, t01=0x0170}
0x3070…309c Head {h00=0x0028, h01=0x0050, text=» CF A14,ERASE ERASE THE WHOLE SCREEN«, t00=0x001f, t01=0x000e}
0x309c…30b2 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x001f, t01=0x003a}
0x30b2…30d4 Head {h00=0x001e, h01=0x0050, text=» LD A1,MAIN,A11 DC LINE 1?«, t00=0x001f, t01=0x0050}
0x30d4…30ee Head {h00=0x0016, h01=0x0050, text=» RF(Z) INIT30 YES «, t00=0x001f, t01=0x0072}
0x30ee…3118 Head {h00=0x0026, h01=0x0050, text=» CF A14,LMP2ON INDICATE DC LINE 2 «, t00=0x001f, t01=0x008c}
0x3118…312a Head {h00=0x000e, h01=0x0050, text=» RF INIT40«, t00=0x001f, t01=0x00b6}
0x312a…313e Head {h00=0x0010, h01=0x0050, text=»INIT30 EQU *«, t00=0x001f, t01=0x00c8}
0x313e…314a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x00dc}
0x314a…3174 Head {h00=0x0026, h01=0x0050, text=» CF A14,LMP1ON INDICATE DC LINE 1 «, t00=0x001f, t01=0x00e8}
0x3174…3188 Head {h00=0x0010, h01=0x0050, text=»INIT40 EQU *«, t00=0x001f, t01=0x0112}
0x3188…31b0 Head {h00=0x0024, h01=0x0050, text=» CF A14,CHKSTA CHECK IF LINE OK «, t00=0x001f, t01=0x0126}
0x31b0…31c0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001f, t01=0x014e}
0x31c0…31ce Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x015e}
0x31ce…3210 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x001f, t01=0x016c}
0x3210…3252 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x0020, t01=0x001e}
0x3252…3294 Head {h00=0x003e, h01=0x0050, text=»* COMINI COMMON INIT ROUTINE *«, t00=0x0020, t01=0x0060}
0x3294…32d6 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x0020, t01=0x00a2}
0x32d6…3318 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0020, t01=0x00e4}
0x3318…333a Head {h00=0x001e, h01=0x0050, text=»* REGISTERS «, t00=0x0020, t01=0x0126}
0x333a…3344 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0148}
0x3344…3364 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0020, t01=0x0152}
0x3364…337c Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0020, t01=0x0172}
0x337c…3386 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x018a}
0x3386…33c8 (33, 0, 400) Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0021, t01=0x0004}
0x33c8…33dc Head {h00=0x0010, h01=0x0050, text=»COMINI EQU *«, t00=0x0021, t01=0x0046}
0x33dc…33f2 Head {h00=0x0012, h01=0x0050, text=» CF A14,I:EVA0«, t00=0x0021, t01=0x005a}
0x33f2…341a Head {h00=0x0024, h01=0x0050, text=» LDR A11,A9 LOAD TASK AREA BASE «, t00=0x0021, t01=0x0070}
0x341a…343a Head {h00=0x001c, h01=0x0050, text=» LDR* A2,A11 GET TASKID «, t00=0x0021, t01=0x0098}
0x343a…3460 Head {h00=0x0022, h01=0x0050, text=» LD A3,6,A13 COMMON BLOCK BASE«, t00=0x0021, t01=0x00b8}
0x3460…3472 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0021, t01=0x00de}
0x3472…3488 Head {h00=0x0012, h01=0x0050, text=» ANK A1,X'FF' «, t00=0x0021, t01=0x00f0}
0x3488…34b6 Head {h00=0x002a, h01=0x0050, text=» SUK A1,X'30' GET OFFSET IN TASK TABLE«, t00=0x0021, t01=0x0106}
0x34b6…34da Head {h00=0x0020, h01=0x0050, text=» SLL A1,2 TWO WORDS ENTRIES «, t00=0x0021, t01=0x0134}
0x34da…34f2 Head {h00=0x0014, h01=0x0050, text=» LDKL A4,TSKTAB «, t00=0x0021, t01=0x0158}
0x34f2…3504 Head {h00=0x000e, h01=0x0050, text=» ADR A4,A3«, t00=0x0021, t01=0x0170}
0x3504…352a Head {h00=0x0022, h01=0x0050, text=» ADR A1,A4 POINT TO YOUR LABLE«, t00=0x0021, t01=0x0182}
0x352a…3556 Head {h00=0x0028, h01=0x0050, text=» ST A1,REGI,A11 SAVE TASKTAB ADDRESS«, t00=0x0022, t01=0x0018}
0x3556…3576 Head {h00=0x001c, h01=0x0050, text=» SC A2,+1,A1 SAVE TASKID«, t00=0x0022, t01=0x0044}
0x3576…3588 Head {h00=0x000e, h01=0x0050, text=» SRL A2,8 «, t00=0x0022, t01=0x0064}
0x3588…359a Head {h00=0x000e, h01=0x0050, text=» SCR A2,A1«, t00=0x0022, t01=0x0076}
0x359a…35aa Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0022, t01=0x0088}
0x35aa…35b8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x0098}
0x35b8…35c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00a6}
0x35c2…35cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00b0}
0x35cc…35e6 Head {h00=0x0016, h01=0x0050, text=»* ECB TABLE LAYOUT«, t00=0x0022, t01=0x00ba}
0x35e6…35f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00d4}
0x35f0…35fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00de}
0x35fa…3604 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00e8}
0x3604…363c Head {h00=0x0034, h01=0x0050, text=»* DISPLACEMENT I/O FILECODE «, t00=0x0022, t01=0x00f2}
0x363c…3646 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x012a}
0x3646…367c Head {h00=0x0032, h01=0x0050, text=»* 0 KB /20 «, t00=0x0022, t01=0x0134}
0x367c…36b2 Head {h00=0x0032, h01=0x0050, text=»* 2 PRINTER /30 «, t00=0x0022, t01=0x016a}
0x36b2…36e8 Head {h00=0x0032, h01=0x0050, text=»* 4 SIGNAL/DISP. /40 «, t00=0x0023, t01=0x0010}
0x36e8…371e Head {h00=0x0032, h01=0x0050, text=»* 6 VDU /42 «, t00=0x0023, t01=0x0046}
0x371e…3754 Head {h00=0x0032, h01=0x0050, text=»* 8 INTERTASK R. /50 «, t00=0x0023, t01=0x007c}
0x3754…378a Head {h00=0x0032, h01=0x0050, text=»* 10 INTERTASK W. /51 «, t00=0x0023, t01=0x00b2}
0x378a…37c0 Head {h00=0x0032, h01=0x0050, text=»* 12 DC LINE 1 /61 «, t00=0x0023, t01=0x00e8}
0x37c0…37f6 Head {h00=0x0032, h01=0x0050, text=»* 14 DC LINE 2 /62 «, t00=0x0023, t01=0x011e}
0x37f6…3800 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0154}
0x3800…380a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x015e}
0x380a…3814 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0168}
0x3814…381e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0172}
0x381e…382c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x017c}
0x382c…3872 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0023, t01=0x018a}
0x3872…38b8 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0024, t01=0x0040}
0x38b8…38fe Head {h00=0x0042, h01=0x0050, text=»* ECBINI INIT OF ECB:S * «, t00=0x0024, t01=0x0086}
0x38fe…3944 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0024, t01=0x00cc}
0x3944…398a Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0024, t01=0x0112}
0x398a…39a6 Head {h00=0x0018, h01=0x0050, text=»* REGISTERS «, t00=0x0024, t01=0x0158}
0x39a6…39b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0174}
0x39b0…39d0 Head {h00=0x001c, h01=0x0050, text=»* A4 = NUMBER OF ENTRIES«, t00=0x0024, t01=0x017e}
0x39d0…39f4 Head {h00=0x0020, h01=0x0050, text=»* A5 = NUMBER OF FC ALLOWED «, t00=0x0025, t01=0x000e}
0x39f4…3a0e Head {h00=0x0016, h01=0x0050, text=»* A6 = DAT POINTER«, t00=0x0025, t01=0x0032}
0x3a0e…3a2c Head {h00=0x001a, h01=0x0050, text=»* A7 = ECB FC POINTER «, t00=0x0025, t01=0x004c}
0x3a2c…3a4c Head {h00=0x001c, h01=0x0050, text=»* A8 = DATA SET POINTER «, t00=0x0025, t01=0x006a}
0x3a4c…3a6c Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0025, t01=0x008a}
0x3a6c…3a84 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0025, t01=0x00aa}
0x3a84…3a8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00c2}
0x3a8e…3ad2 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0025, t01=0x00cc}
0x3ad2…3ae6 Head {h00=0x0010, h01=0x0050, text=»ECBINI EQU *«, t00=0x0025, t01=0x0110}
0x3ae6…3b0c Head {h00=0x0022, h01=0x0050, text=» LD A2,-8,A13 GET T:D ADDRESS «, t00=0x0025, t01=0x0124}
0x3b0c…3b36 Head {h00=0x0026, h01=0x0050, text=» LD A4,+4,A2 GET NUMBER OF ENTRIES«, t00=0x0025, t01=0x014a}
0x3b36…3b4a Head {h00=0x0010, h01=0x0050, text=» LD A8,+6,A2«, t00=0x0025, t01=0x0174}
0x3b4a…3b5e Head {h00=0x0010, h01=0x0050, text=» ADR A8,A13 «, t00=0x0025, t01=0x0188}
0x3b5e…3b7c Head {h00=0x001a, h01=0x0050, text=» LDR A6,A8 DAT POINTER«, t00=0x0026, t01=0x000c}
0x3b7c…3ba0 Head {h00=0x0020, h01=0x0050, text=» SUKL A8,20 DATA SET POINTER«, t00=0x0026, t01=0x002a}
0x3ba0…3bb4 Head {h00=0x0010, h01=0x0050, text=»ECBI10 EQU *«, t00=0x0026, t01=0x004e}
0x3bb4…3bd8 Head {h00=0x0020, h01=0x0050, text=» LD A5,ECBIND NUMBER OF FC:S«, t00=0x0026, t01=0x0062}
0x3bd8…3c02 Head {h00=0x0026, h01=0x0050, text=» LDKL A7,ECBIND+2 FIRST FILE CODE «, t00=0x0026, t01=0x0086}
0x3c02…3c22 Head {h00=0x001c, h01=0x0050, text=» LC A2,+1,A6 DATA SET FC«, t00=0x0026, t01=0x00b0}
0x3c22…3c36 Head {h00=0x0010, h01=0x0050, text=»ECBI20 EQU *«, t00=0x0026, t01=0x00d0}
0x3c36…3c64 Head {h00=0x002a, h01=0x0050, text=» CCR A2,A7 FC IN DAT = FC CONFIGURED? «, t00=0x0026, t01=0x00e4}
0x3c64…3c7e Head {h00=0x0016, h01=0x0050, text=» RF(E) ECBI30 YES «, t00=0x0026, t01=0x0112}
0x3c7e…3c94 Head {h00=0x0012, h01=0x0050, text=» ADK A7,2 NEXT«, t00=0x0026, t01=0x012c}
0x3c94…3cb0 Head {h00=0x0018, h01=0x0050, text=» SUK A5,1 NOT FOUND?«, t00=0x0026, t01=0x0142}
0x3cb0…3cce Head {h00=0x001a, h01=0x0050, text=» RB(NZ) ECBI20 NOT YET«, t00=0x0026, t01=0x015e}
0x3cce…3cec Head {h00=0x001a, h01=0x0050, text=» LDKL A1,* DIAGNOSTIC «, t00=0x0026, t01=0x017c}
0x3cec…3d04 Head {h00=0x0014, h01=0x0050, text=» ST A1,REGI,A11 «, t00=0x0027, t01=0x000a}
0x3d04…3d10 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0027, t01=0x0022}
0x3d10…3d30 Head {h00=0x001c, h01=0x0050, text=» DATA 3 WRONG GENERATION«, t00=0x0027, t01=0x002e}
0x3d30…3d44 Head {h00=0x0010, h01=0x0050, text=»ECBI30 EQU *«, t00=0x0027, t01=0x004e}
0x3d44…3d6c Head {h00=0x0024, h01=0x0050, text=» SC A2,+1,A8 SAVE FC IN DATA SET«, t00=0x0027, t01=0x0062}
0x3d6c…3d98 Head {h00=0x0028, h01=0x0050, text=» LD A2,+2,A6 GET FIXED LENGTH IF ANY«, t00=0x0027, t01=0x008a}
0x3d98…3dbe Head {h00=0x0022, h01=0x0050, text=» ST A2,+4,A8 SAVE IN DATA SET «, t00=0x0027, t01=0x00b6}
0x3dbe…3dec Head {h00=0x002a, h01=0x0050, text=» LD A2,+18,A8 GET FIXED BUFFER IF ANY «, t00=0x0027, t01=0x00dc}
0x3dec…3e12 Head {h00=0x0022, h01=0x0050, text=» ST A2,+2,A8 SAVE IN DATA SET «, t00=0x0027, t01=0x010a}
0x3e12…3e3e Head {h00=0x0028, h01=0x0050, text=» LC A2,+1,A7 GET INDEX TO ECB TABLE «, t00=0x0027, t01=0x0130}
0x3e3e…3e52 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0027, t01=0x015c}
0x3e52…3e66 Head {h00=0x0010, h01=0x0050, text=» ADR A2,A11 «, t00=0x0027, t01=0x0170}
0x3e66…3e90 Head {h00=0x0026, h01=0x0050, text=» ST A8,ECBTAB,A2 SAVE ECB ADDRESS «, t00=0x0027, t01=0x0184}
0x3e90…3ea2 Head {h00=0x000e, h01=0x0050, text=» ADK A6,4 «, t00=0x0028, t01=0x001e}
0x3ea2…3eb6 Head {h00=0x0010, h01=0x0050, text=» SUKL A8,20 «, t00=0x0028, t01=0x0030}
0x3eb6…3ed2 Head {h00=0x0018, h01=0x0050, text=» SUK A4,1 ALL DONE? «, t00=0x0028, t01=0x0044}
0x3ed2…3eec Head {h00=0x0016, h01=0x0050, text=» RB(NZ) ECBI10 NO «, t00=0x0028, t01=0x0060}
0x3eec…3efc Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0028, t01=0x007a}
0x3efc…3f0a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x008a}
0x3f0a…3f50 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0028, t01=0x0098}
0x3f50…3f96 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0028, t01=0x00de}
0x3f96…3fdc Head {h00=0x0042, h01=0x0050, text=»* TSTDEV TEST KEYBOARD AND DISPLAY * «, t00=0x0028, t01=0x0124}
0x3fdc…4022 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0028, t01=0x016a}
0x4022…4068 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0029, t01=0x0020}
0x4068…407c Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0029, t01=0x0066}
0x407c…4086 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x007a}
0x4086…40a6 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0029, t01=0x0084}
0x40a6…40be Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0029, t01=0x00a4}
0x40be…40c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00bc}
0x40c8…4102 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0029, t01=0x00c6}
0x4102…4116 Head {h00=0x0010, h01=0x0050, text=»TSTDEV EQU *«, t00=0x0029, t01=0x0100}
0x4116…4146 Head {h00=0x002c, h01=0x0050, text=» CF A14,SOUND TURN ON SOUND ALARM AT VDU«, t00=0x0029, t01=0x0114}
0x4146…416e Head {h00=0x0024, h01=0x0050, text=» LDR A1,A1 CHECK RETURN CODE DK1«, t00=0x0029, t01=0x0144}
0x416e…4194 Head {h00=0x0022, h01=0x0050, text=» RF(Z) TSTD90 OK, GO ON.. DK1 «, t00=0x0029, t01=0x016c}
0x4194…41a2 (42, 2, 144) Head {h00=0x000a, h01=0x0050, text=» LKM «, t00=0x002a, t01=0x0004}
0x41a2…41be Head {h00=0x0018, h01=0x0050, text=» DATA 0 SWITCH TASKS«, t00=0x002a, t01=0x0012}
0x41be…41de Head {h00=0x001c, h01=0x0050, text=» RB TSTDEV TRY AGAIN DK1«, t00=0x002a, t01=0x002e}
0x41de…41f8 Head {h00=0x0016, h01=0x0050, text=»TSTD90 EQU * DK1 «, t00=0x002a, t01=0x004e}
0x41f8…4208 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002a, t01=0x0068}
0x4208…4210 Head {h00=0x0004, h01=0x0050, t00=0x002a, t01=0x0078}
0x4210…421c Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x002a, t01=0x0080}
0x421c…4220 Head {h00=0x4004, h01=0x0000}
0x4220…4224 00 2a 00 8c ┆ * ┆
0x4224…422c (43, 1, 8) 20 04 00 00 00 2b 00 04 ┆ + ┆
0x422c…43bc (44, 0, 400) 0x00[0x190]