|
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: 17260 (0x436c)
Notes: pts_type(SC)
Names: »DSPBSC.SC«
└─⟦928b1fd3e⟧ Bits:30009671 Philips computer tape "600131"
└─⟦this⟧ »PT3272/DSPBSC.SC«
IDENT DSPBSC REL 11.0 82-07-08DK 870150541100 #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 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 82-07-08DK 870150541100«, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…005c Head {h00=0x001a, h01=0x0050, text=» #1 HARDCOPY PROBLEM«, t00=0x0000, t01=0x0042}
0x005c…0070 Head {h00=0x0010, h01=0x0050, text=» 82-06-25 «, t00=0x0000, t01=0x0060}
0x0070…0094 Head {h00=0x0020, h01=0x0050, text=» DK1, POWER OFF ON TERM.. «, t00=0x0000, t01=0x0074}
0x0094…00da Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0000, t01=0x0098}
0x00da…0120 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0000, t01=0x00de}
0x0120…0166 Head {h00=0x0042, h01=0x0050, text=»* MODULE DSPBSC * «, t00=0x0000, t01=0x0124}
0x0166…01ac Head {h00=0x0042, h01=0x0050, text=»* MODULE HANDLING THE START UP OF THE * «, t00=0x0000, t01=0x016a}
0x01ac…01f2 Head {h00=0x0042, h01=0x0050, text=»* VDUKB TASK, CONTROLLING SNA MODES * «, t00=0x0001, t01=0x0020}
0x01f2…0238 Head {h00=0x0042, h01=0x0050, text=»* AND MULTIPLE WAIT FOR KB AND DC. * «, t00=0x0001, t01=0x0066}
0x0238…0278 Head {h00=0x003c, h01=0x0050, text=»* (EMULATION 3270 BSC) *«, t00=0x0001, t01=0x00ac}
0x0278…02be Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0001, t01=0x00ec}
0x02be…0304 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0001, t01=0x0132}
0x0304…0312 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x0178}
0x0312…035a Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0001, t01=0x0186}
0x035a…03a2 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0002, t01=0x003e}
0x03a2…03ea Head {h00=0x0044, h01=0x0050, text=»* LIST OF ROUTINES *«, t00=0x0002, t01=0x0086}
0x03ea…0432 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0002, t01=0x00ce}
0x0432…047a Head {h00=0x0044, h01=0x0050, text=»* VDUKB MAIN ROUTINE *«, t00=0x0002, t01=0x0116}
0x047a…04a2 Head {h00=0x0024, h01=0x0050, text=»* IOACT I/O ACTIVATION«, t00=0x0002, t01=0x015e}
0x04a2…04ca Head {h00=0x0024, h01=0x0050, text=»* IOCPL I/O COMPLETION«, t00=0x0002, t01=0x0186}
0x04ca…04fc Head {h00=0x002e, h01=0x0050, text=»* MATCH MATCH ADDRESS AND TASKID«, t00=0x0003, t01=0x001e}
0x04fc…0544 Head {h00=0x0044, h01=0x0050, text=»* INIT INITIALIZE THE TASK *«, t00=0x0003, t01=0x0050}
0x0544…0572 Head {h00=0x002a, h01=0x0050, text=»* COMINI COMMON INIT ROUTINE «, t00=0x0003, t01=0x0098}
0x0572…059a Head {h00=0x0024, h01=0x0050, text=»* ECBINI INIT OF ECB:S «, t00=0x0003, t01=0x00c6}
0x059a…05e2 Head {h00=0x0044, h01=0x0050, text=»* TSTDEV TEST KEYBOARD AND DISPLAY *«, t00=0x0003, t01=0x00ee}
0x05e2…062a Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0003, t01=0x0136}
0x062a…0672 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0003, t01=0x017e}
0x0672…0680 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0036}
0x0680…06c2 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0004, t01=0x0044}
0x06c2…0704 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x0004, t01=0x0086}
0x0704…0746 Head {h00=0x003e, h01=0x0050, text=»* ENTRY POINTS *«, t00=0x0004, t01=0x00c8}
0x0746…0788 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x0004, t01=0x010a}
0x0788…07ca Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0004, t01=0x014c}
0x07ca…07d2 Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x018e}
0x07d2…0806 Head {h00=0x0030, h01=0x0050, text=» ENTRY VDUKB START LABEL FROM DATSNA(CREDIT)«, t00=0x0005, t01=0x0008}
0x0806…0830 Head {h00=0x0026, h01=0x0050, text=» ENTRY COMINI COMMON INIT ROUTINE «, t00=0x0005, t01=0x003c}
0x0830…0854 Head {h00=0x0020, h01=0x0050, text=» ENTRY ECBINI INIT OF ECB:S «, t00=0x0005, t01=0x0066}
0x0854…0886 Head {h00=0x002e, h01=0x0050, text=» ENTRY MATCH MATCH TASID AND PHYS. ADDRESS«, t00=0x0005, t01=0x008a}
0x0886…088e Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x00bc}
0x088e…08d0 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0005, t01=0x00c4}
0x08d0…0912 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x0005, t01=0x0106}
0x0912…0954 Head {h00=0x003e, h01=0x0050, text=»* EXTERNAL REFERENCES *«, t00=0x0005, t01=0x0148}
0x0954…0996 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x0005, t01=0x018a}
0x0996…09d8 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0006, t01=0x003c}
0x09d8…09e0 Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x007e}
0x09e0…0a10 Head {h00=0x002c, h01=0x0050, text=» EXTRN I:EVA0 CREDIT EVALUATION ROUTINE «, t00=0x0006, t01=0x0086}
0x0a10…0a34 Head {h00=0x0020, h01=0x0050, text=» EXTRN OPEN OPEN DC (DCBSC) «, t00=0x0006, t01=0x00b6}
0x0a34…0a5c Head {h00=0x0024, h01=0x0050, text=» EXTRN CONCT CONNECT DC (DCBSC) «, t00=0x0006, t01=0x00da}
0x0a5c…0a8e Head {h00=0x002e, h01=0x0050, text=» EXTRN SETTYM SET REQUEST TIMEOUT (DCBSC) «, t00=0x0006, t01=0x0102}
0x0a8e…0ac4 Head {h00=0x0032, h01=0x0050, text=» EXTRN ERASE ERASE SCREEN AND VDU BUFFER (VDU)«, t00=0x0006, t01=0x0134}
0x0ac4…0af6 Head {h00=0x002e, h01=0x0050, text=» EXTRN TSTMES TEST IF ANY MESSAGE (DCSNA) «, t00=0x0006, t01=0x016a}
0x0af6…0b2e Head {h00=0x0034, h01=0x0050, text=» EXTRN READKB READ KEYBOARD WITH NO WAIT (KEYB) «, t00=0x0007, t01=0x000c}
0x0b2e…0b66 Head {h00=0x0034, h01=0x0050, text=» EXTRN KBINP MAIN ROUTINE IN KEYB-MODULE (KEYB) «, t00=0x0007, t01=0x0044}
0x0b66…0ba0 Head {h00=0x0036, h01=0x0050, text=» EXTRN DCINP MAIN ROUTINE IN DCSNA-MODULE (DCSNA) «, t00=0x0007, t01=0x007c}
0x0ba0…0bce Head {h00=0x002a, h01=0x0050, text=» EXTRN LMP6OF OFFLINE LAMP OFF (KEYB) «, t00=0x0007, t01=0x00b6}
0x0bce…0bf4 Head {h00=0x0022, h01=0x0050, text=» EXTRN LMP1ON DC LINE 1 (KEYB)«, t00=0x0007, t01=0x00e4}
0x0bf4…0c1a Head {h00=0x0022, h01=0x0050, text=» EXTRN LMP2ON DC LINE 2 (KEYB)«, t00=0x0007, t01=0x010a}
0x0c1a…0c4c Head {h00=0x002e, h01=0x0050, text=» EXTRN SOUND SOUND ALARM AT DISPLAY (VDU) «, t00=0x0007, t01=0x0130}
0x0c4c…0c76 Head {h00=0x0026, h01=0x0050, text=» EXTRN LMP5ON ERROR LAMP ON (KEYB)«, t00=0x0007, t01=0x0162}
0x0c76…0ca2 Head {h00=0x0028, h01=0x0050, text=» EXTRN LMP5OF ERROR LAMP OFF (KEYB) «, t00=0x0007, t01=0x018c}
0x0ca2…0cd4 Head {h00=0x002e, h01=0x0050, text=» EXTRN RESKB RESET KEYBOARD BUFFER (KEYB) «, t00=0x0008, t01=0x0028}
0x0cd4…0d08 Head {h00=0x0030, h01=0x0050, text=» EXTRN STOINF SAVE SCREEN INFORMATION (VDU) «, t00=0x0008, t01=0x005a}
0x0d08…0d34 Head {h00=0x0028, h01=0x0050, text=» EXTRN ICVRED INTERTASK READ (KEYB) «, t00=0x0008, t01=0x008e}
0x0d34…0d60 Head {h00=0x0028, h01=0x0050, text=» EXTRN ICINP INTERTASK INPUT (KEYB) «, t00=0x0008, t01=0x00ba}
0x0d60…0d8e Head {h00=0x002a, h01=0x0050, text=» EXTRN CHKSTA CHECK DC STATUS (DCBSC) «, t00=0x0008, t01=0x00e6}
0x0d8e…0dc8 Head {h00=0x0036, h01=0x0050, text=» EXTRN READK2 READ NUMERIC KEYB'RD, NO-WAIT (KEYB)«, t00=0x0008, t01=0x0114}
0x0dc8…0df8 Head {h00=0x002c, h01=0x0050, text=» EXTRN KBINP2 ROUTINE FOR 2ND. KEYBOARD «, t00=0x0008, t01=0x014e}
0x0df8…0e06 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x017e}
0x0e06…0e4c Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0008, t01=0x018c}
0x0e4c…0e92 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0009, t01=0x0042}
0x0e92…0ed8 Head {h00=0x0042, h01=0x0050, text=»* CONDITIONAL ASSEMBLY PARAMETERS * «, t00=0x0009, t01=0x0088}
0x0ed8…0f1e Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0009, t01=0x00ce}
0x0f1e…0f64 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0009, t01=0x0114}
0x0f64…0f6c Head {h00=0x0004, h01=0x0050, t00=0x0009, t01=0x015a}
0x0f6c…0f94 Head {h00=0x0024, h01=0x0050, text=»X:B EQU 15 NUMBER OF TASKS (1- )«, t00=0x0009, t01=0x0162}
0x0f94…0faa Head {h00=0x0012, h01=0x0050, text=»NBRTSK EQU 16 «, t00=0x0009, t01=0x018a}
0x0faa…0fd4 Head {h00=0x0026, h01=0x0050, text=»X:C EQU 0 OFFLINE HANDLING IF :=1 «, t00=0x000a, t01=0x0010}
0x0fd4…0fe8 Head {h00=0x0010, h01=0x0050, text=»OFLIN EQU 0 «, t00=0x000a, t01=0x003a}
0x0fe8…1010 Head {h00=0x0024, h01=0x0050, text=»X:D EQU 1 NUMBER OF LINES (1-2) «, t00=0x000a, t01=0x004e}
0x1010…1024 Head {h00=0x0010, h01=0x0050, text=»NBRLIN EQU 2«, t00=0x000a, t01=0x0076}
0x1024…1052 Head {h00=0x002a, h01=0x0050, text=»X:M EQU 0 COPY COMMNAND INCLUDED IF:=1«, t00=0x000a, t01=0x008a}
0x1052…1066 Head {h00=0x0010, h01=0x0050, text=»COPCMD EQU 1«, t00=0x000a, t01=0x00b8}
0x1066…108c Head {h00=0x0022, h01=0x0050, text=»X:O EQU 0 TEST INCLUDED IF:=1 «, t00=0x000a, t01=0x00cc}
0x108c…109e Head {h00=0x000e, h01=0x0050, text=»TEST EQU 0«, t00=0x000a, t01=0x00f2}
0x109e…10ac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0104}
0x10ac…10f0 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x000a, t01=0x0112}
0x10f0…1134 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x000a, t01=0x0156}
0x1134…115e Head {h00=0x0026, h01=0x0050, text=»* DECLARATIONS OF DATA AND EQUATES«, t00=0x000b, t01=0x000a}
0x115e…11a2 Head {h00=0x0040, h01=0x0050, text=»* * «, t00=0x000b, t01=0x0034}
0x11a2…11e6 Head {h00=0x0040, h01=0x0050, text=»*********************************************************** «, t00=0x000b, t01=0x0078}
0x11e6…11ee Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x00bc}
0x11ee…11f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00c4}
0x11f8…1212 Head {h00=0x0016, h01=0x0050, text=»* ECB INDEX TABLE «, t00=0x000b, t01=0x00ce}
0x1212…121c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00e8}
0x121c…1230 Head {h00=0x0010, h01=0x0050, text=»ECBIND EQU *«, t00=0x000b, t01=0x00f2}
0x1230…1252 Head {h00=0x001e, h01=0x0050, text=» DATA 9 NUMBER OF ENTRIES «, t00=0x000b, t01=0x0106}
0x1252…126e Head {h00=0x0018, h01=0x0050, text=» DATA X'2000' ECB KB«, t00=0x000b, t01=0x0128}
0x126e…1290 Head {h00=0x001e, h01=0x0050, text=» DATA X'3002' ECB PRINTER «, t00=0x000b, t01=0x0144}
0x1290…12b8 Head {h00=0x0024, h01=0x0050, text=» DATA X'4004' ECB SIGNAL DISPLAY«, t00=0x000b, t01=0x0166}
0x12b8…12d6 Head {h00=0x001a, h01=0x0050, text=» DATA X'4206' ECB VDU «, t00=0x000b, t01=0x018e}
0x12d6…12fe Head {h00=0x0024, h01=0x0050, text=» DATA X'5008' ECB INTERTASK READ«, t00=0x000c, t01=0x001c}
0x12fe…1328 Head {h00=0x0026, h01=0x0050, text=» DATA X'510A' ECB INTERTASK WRITE «, t00=0x000c, t01=0x0044}
0x1328…134a Head {h00=0x001e, h01=0x0050, text=» DATA X'610C' ECB DC LINE1«, t00=0x000c, t01=0x006e}
0x134a…1370 Head {h00=0x0022, h01=0x0050, text=» DATA X'620E' ECB DC LINE2 DK «, t00=0x000c, t01=0x0090}
0x1370…139c Head {h00=0x0028, h01=0x0050, text=» DATA X'2110' ECB FOR NUMERIC KB DK «, t00=0x000c, t01=0x00b6}
0x139c…13a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00e2}
0x13a6…13ce Head {h00=0x0024, h01=0x0050, text=»* SCREEN SIZE ON DISPLAY«, t00=0x000c, t01=0x00ec}
0x13ce…13d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0114}
0x13d8…13ee Head {h00=0x0012, h01=0x0050, text=»LBVDU EQU 1920«, t00=0x000c, t01=0x011e}
0x13ee…13f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0134}
0x13f8…1408 Head {h00=0x000c, h01=0x0050, text=»* MODES «, t00=0x000c, t01=0x013e}
0x1408…1412 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x014e}
0x1412…1440 Head {h00=0x002a, h01=0x0050, text=»HCPMOD EQU /4000 HARDCOPY OUTSTANDING «, t00=0x000c, t01=0x0158}
0x1440…144a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0186}
0x144a…146c Head {h00=0x001e, h01=0x0050, text=»* TASK IDENTIFICATION CODE«, t00=0x000c, t01=0x0190}
0x146c…1476 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0022}
0x1476…1494 Head {h00=0x001a, h01=0x0050, text=»VDUCOD EQU 'VV' KB/VDU«, t00=0x000d, t01=0x002c}
0x1494…14a2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x004a}
0x14a2…14ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0058}
0x14ac…14cc Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x000d, t01=0x0062}
0x14cc…14ec Head {h00=0x001c, h01=0x0050, text=»* TERMINAL WORKBLOCK TB1«, t00=0x000d, t01=0x0082}
0x14ec…14f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00a2}
0x14f6…151a Head {h00=0x0020, h01=0x0050, text=»OFFFLG EQU 1962 OFFLINE FLAG«, t00=0x000d, t01=0x00ac}
0x151a…1548 Head {h00=0x002a, h01=0x0050, text=»PRTID EQU OFFFLG+2 TASKID FOR HARDCOPY«, t00=0x000d, t01=0x00d0}
0x1548…156e Head {h00=0x0022, h01=0x0050, text=»MAIN EQU PRTID+6 WHICH DC LINE«, t00=0x000d, t01=0x00fe}
0x156e…15a0 Head {h00=0x002e, h01=0x0050, text=»ECBBLK EQU MAIN+6 ECBBLK FOR MULTIPLE WAIT«, t00=0x000d, t01=0x0124}
0x15a0…15c4 Head {h00=0x0020, h01=0x0050, text=»REGI EQU ECBBLK+16 SAVE AREA«, t00=0x000d, t01=0x0156}
0x15c4…15e8 Head {h00=0x0020, h01=0x0050, text=»BSCMOD EQU REGI+32 BSC MODE «, t00=0x000d, t01=0x017a}
0x15e8…160e Head {h00=0x0022, h01=0x0050, text=»ECBTAB EQU BSCMOD+2 ECB TABLE «, t00=0x000e, t01=0x000e}
0x160e…1618 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0034}
0x1618…1638 Head {h00=0x001c, h01=0x0050, text=»* RELATIVE ADDRESSES IN «, t00=0x000e, t01=0x003e}
0x1638…1656 Head {h00=0x001a, h01=0x0050, text=»* COMMON WORKBLOCK CB1«, t00=0x000e, t01=0x005e}
0x1656…1660 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x007c}
0x1660…168e Head {h00=0x002a, h01=0x0050, text=»MF1CU EQU 0 SYMBOLIC CLUSTER ADDDRESS «, t00=0x000e, t01=0x0086}
0x168e…16a2 Head {h00=0x0010, h01=0x0050, text=» IFF TEST=1 «, t00=0x000e, t01=0x00b4}
0x16a2…16c8 Head {h00=0x0022, h01=0x0050, text=»TSKTAB EQU MF1CU+26 TASK TABLE«, t00=0x000e, t01=0x00c8}
0x16c8…16d4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x00ee}
0x16d4…16e8 Head {h00=0x0010, h01=0x0050, text=» IFT TEST=1 «, t00=0x000e, t01=0x00fa}
0x16e8…1710 Head {h00=0x0024, h01=0x0050, text=»TSKTAB EQU MF1CU+219 TASK TABLE «, t00=0x000e, t01=0x010e}
0x1710…171c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x0136}
0x171c…172a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x0142}
0x172a…176c Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x000e, t01=0x0150}
0x176c…17ae (15, 0, 400) Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x000f, t01=0x0004}
0x17ae…17f0 Head {h00=0x003e, h01=0x0050, text=»* VDUKB MAIN ROUTINE * «, t00=0x000f, t01=0x0046}
0x17f0…1832 Head {h00=0x003e, h01=0x0050, text=»* * «, t00=0x000f, t01=0x0088}
0x1832…1874 Head {h00=0x003e, h01=0x0050, text=»********************************************************* «, t00=0x000f, t01=0x00ca}
0x1874…1888 Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x000f, t01=0x010c}
0x1888…1892 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0120}
0x1892…18aa Head {h00=0x0014, h01=0x0050, text=»* A11= RESERVED «, t00=0x000f, t01=0x012a}
0x18aa…18c2 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x000f, t01=0x0142}
0x18c2…18cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x015a}
0x18cc…1904 Head {h00=0x0034, h01=0x0050, text=»************************************************«, t00=0x000f, t01=0x0164}
0x1904…1918 Head {h00=0x0010, h01=0x0050, text=»VDUKB EQU * «, t00=0x0010, t01=0x000c}
0x1918…1940 Head {h00=0x0024, h01=0x0050, text=» CF A14,INIT INITIALIZE THE TASK«, t00=0x0010, t01=0x0020}
0x1940…1954 Head {h00=0x0010, h01=0x0050, text=»VDU200 EQU *«, t00=0x0010, t01=0x0048}
0x1954…197a Head {h00=0x0022, h01=0x0050, text=» CF A14,IOACT PREPARE ECB-BLK «, t00=0x0010, t01=0x005c}
0x197a…1992 Head {h00=0x0014, h01=0x0050, text=» LDKL A7,ECBBLK «, t00=0x0010, t01=0x0082}
0x1992…19a6 Head {h00=0x0010, h01=0x0050, text=» ADR A7,A11 «, t00=0x0010, t01=0x009a}
0x19a6…19b2 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0010, t01=0x00ae}
0x19b2…19d0 Head {h00=0x001a, h01=0x0050, text=» DATA 7 MULTIPLE WAIT «, t00=0x0010, t01=0x00ba}
0x19d0…19fa Head {h00=0x0026, h01=0x0050, text=» CF A14,IOCPL TAKE CARE OF REQUEST«, t00=0x0010, t01=0x00d8}
0x19fa…1a1e Head {h00=0x0020, h01=0x0050, text=» RB VDU200 HERE WE GO AGAIN «, t00=0x0010, t01=0x0102}
0x1a1e…1a2c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0126}
0x1a2c…1a36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0134}
0x1a36…1a40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x013e}
0x1a40…1a66 Head {h00=0x0022, h01=0x0050, text=»* POSSIBLE LAYOUTS OF ECB-BLK «, t00=0x0010, t01=0x0148}
0x1a66…1a70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x016e}
0x1a70…1a7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0178}
0x1a7a…1a84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0182}
0x1a84…1a8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x018c}
0x1a8e…1ab2 Head {h00=0x0020, h01=0x0050, text=»* MODE /0000 /4000«, t00=0x0011, t01=0x0008}
0x1ab2…1abc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x002c}
0x1abc…1ac6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0036}
0x1ac6…1ae8 Head {h00=0x001e, h01=0x0050, text=»* BLK 2 3«, t00=0x0011, t01=0x0040}
0x1ae8…1b0c Head {h00=0x0020, h01=0x0050, text=»* KB KB «, t00=0x0011, t01=0x0062}
0x1b0c…1b30 Head {h00=0x0020, h01=0x0050, text=»* DC DC «, t00=0x0011, t01=0x0086}
0x1b30…1b54 Head {h00=0x0020, h01=0x0050, text=»* IC «, t00=0x0011, t01=0x00aa}
0x1b54…1b5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00ce}
0x1b5e…1b68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00d8}
0x1b68…1b72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00e2}
0x1b72…1b80 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x00ec}
0x1b80…1bc4 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0011, t01=0x00fa}
0x1bc4…1c08 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0011, t01=0x013e}
0x1c08…1c34 Head {h00=0x0028, h01=0x0050, text=»* IOACT I/O ACTIVATION «, t00=0x0011, t01=0x0182}
0x1c34…1c78 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0012, t01=0x001e}
0x1c78…1cbc Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0012, t01=0x0062}
0x1cbc…1cdc Head {h00=0x001c, h01=0x0050, text=»* REGISTERS«, t00=0x0012, t01=0x00a6}
0x1cdc…1ce6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00c6}
0x1ce6…1d12 Head {h00=0x0028, h01=0x0050, text=»* A4= NUMBER OF ENTRIES IN ECB BLOCK«, t00=0x0012, t01=0x00d0}
0x1d12…1d32 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0012, t01=0x00fc}
0x1d32…1d4a Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0012, t01=0x011c}
0x1d4a…1d54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0134}
0x1d54…1d96 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0012, t01=0x013e}
0x1d96…1daa Head {h00=0x0010, h01=0x0050, text=»IOACT EQU * «, t00=0x0012, t01=0x0180}
0x1daa…1dd2 (19, 0, 400) Head {h00=0x0024, h01=0x0050, text=» LDK A4,1 COUNT NUMBER OF I-O'S «, t00=0x0013, t01=0x0004}
0x1dd2…1de2 Head {h00=0x000c, h01=0x0050, text=» . #1 «, t00=0x0013, t01=0x002c}
0x1de2…1e12 Head {h00=0x002c, h01=0x0050, text=» LD A2,ECBBLK+4,A11 REQ. ALREADY OUTST.?«, t00=0x0013, t01=0x003c}
0x1e12…1e2c Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IOAC10 YES«, t00=0x0013, t01=0x006c}
0x1e2c…1e50 Head {h00=0x0020, h01=0x0050, text=» CF A14,TSTMES TEST MESSAGE «, t00=0x0013, t01=0x0086}
0x1e50…1e6c Head {h00=0x0018, h01=0x0050, text=» ST A8,ECBBLK+4,A11 «, t00=0x0013, t01=0x00aa}
0x1e6c…1e80 Head {h00=0x0010, h01=0x0050, text=»IOAC10 EQU *«, t00=0x0013, t01=0x00c6}
0x1e80…1e96 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0013, t01=0x00da}
0x1e96…1eb4 Head {h00=0x001a, h01=0x0050, text=» LD A1,BSCMOD,A11 . #1«, t00=0x0013, t01=0x00f0}
0x1eb4…1ee2 Head {h00=0x002a, h01=0x0050, text=» ANKL A1,HCPMOD HARDCOPY OUTSTANDING? «, t00=0x0013, t01=0x010e}
0x1ee2…1efa Head {h00=0x0014, h01=0x0050, text=» RF(Z) IOAC30 NO«, t00=0x0013, t01=0x013c}
0x1efa…1f06 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0154}
0x1f06…1f18 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0013, t01=0x0160}
0x1f18…1f34 Head {h00=0x0018, h01=0x0050, text=» LD A2,ECBBLK+8,A11 «, t00=0x0013, t01=0x0172}
0x1f34…1f68 Head {h00=0x0030, h01=0x0050, text=» RF(NZ) IOAC30 INTERTASK ALREDY OUTSTANDING «, t00=0x0013, t01=0x018e}
0x1f68…1f8e Head {h00=0x0022, h01=0x0050, text=» CF A14,ICVRED READ INTERATSK «, t00=0x0014, t01=0x0032}
0x1f8e…1faa Head {h00=0x0018, h01=0x0050, text=» ST A8,ECBBLK+8,A11 «, t00=0x0014, t01=0x0058}
0x1faa…1fbe Head {h00=0x0010, h01=0x0050, text=»IOAC30 EQU *«, t00=0x0014, t01=0x0074}
0x1fbe…1fd0 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0014, t01=0x0088}
0x1fd0…1ffc Head {h00=0x0028, h01=0x0050, text=» LD A2,ECBBLK+2,A11 KB OUTSTANDING? «, t00=0x0014, t01=0x009a}
0x1ffc…2016 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IOAC35 YES«, t00=0x0014, t01=0x00c6}
0x2016…203a Head {h00=0x0020, h01=0x0050, text=» CF A14,READKB READ KEYBOARD«, t00=0x0014, t01=0x00e0}
0x203a…2056 Head {h00=0x0018, h01=0x0050, text=» ST A8,ECBBLK+2,A11 «, t00=0x0014, t01=0x0104}
0x2056…206c Head {h00=0x0012, h01=0x0050, text=»IOAC35 EQU * «, t00=0x0014, t01=0x0120}
0x206c…209e Head {h00=0x002e, h01=0x0050, text=»* SECOND KEYBOARD HANDLING 81-10-18 DK *«, t00=0x0014, t01=0x0136}
0x209e…20b0 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0014, t01=0x0168}
0x20b0…20dc Head {h00=0x0028, h01=0x0050, text=» LD A2,ECBBLK+6,A11 KB2 OUTSTANDING «, t00=0x0014, t01=0x017a}
0x20dc…20f8 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) IOAC40 YES «, t00=0x0015, t01=0x0016}
0x20f8…2124 Head {h00=0x0028, h01=0x0050, text=» CF A14,READK2 READ SECOND KEYBOARD «, t00=0x0015, t01=0x0032}
0x2124…2140 Head {h00=0x0018, h01=0x0050, text=» ST A8,ECBBLK+6,A11 «, t00=0x0015, t01=0x005e}
0x2140…215e Head {h00=0x001a, h01=0x0050, text=»** END DK **«, t00=0x0015, t01=0x007a}
0x215e…2172 Head {h00=0x0010, h01=0x0050, text=»IOAC40 EQU *«, t00=0x0015, t01=0x0098}
0x2172…21a0 Head {h00=0x002a, h01=0x0050, text=» ST A4,ECBBLK,A11 SAVE NUMBER OF WAITS«, t00=0x0015, t01=0x00ac}
0x21a0…21b0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0015, t01=0x00da}
0x21b0…21be Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x00ea}
0x21be…2202 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0015, t01=0x00f8}
0x2202…2246 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0015, t01=0x013c}
0x2246…2272 Head {h00=0x0028, h01=0x0050, text=»* IOCPL I/O COMPLETION «, t00=0x0015, t01=0x0180}
0x2272…22b6 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x0016, t01=0x001c}
0x22b6…22fa Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0016, t01=0x0060}
0x22fa…230e Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0016, t01=0x00a4}
0x230e…2318 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00b8}
0x2318…2338 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0016, t01=0x00c2}
0x2338…2350 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0016, t01=0x00e2}
0x2350…235a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00fa}
0x235a…239e Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0016, t01=0x0104}
0x239e…23b2 Head {h00=0x0010, h01=0x0050, text=»IOCPL EQU * «, t00=0x0016, t01=0x0148}
0x23b2…23d6 Head {h00=0x0020, h01=0x0050, text=» CW A8,ECBBLK+2,A11 KB INPUT«, t00=0x0016, t01=0x015c}
0x23d6…23f0 Head {h00=0x0016, h01=0x0050, text=» RF(NE) IOCP05 NO «, t00=0x0016, t01=0x0180}
0x23f0…2408 Head {h00=0x0014, h01=0x0050, text=» CM ECBBLK+2,A11«, t00=0x0017, t01=0x000a}
0x2408…242e Head {h00=0x0022, h01=0x0050, text=» CF A14,KBINP TAKE CARE OF KB «, t00=0x0017, t01=0x0022}
0x242e…2440 Head {h00=0x000e, h01=0x0050, text=» RF IOCP90«, t00=0x0017, t01=0x0048}
0x2440…247a Head {h00=0x0036, h01=0x0050, text=»** SECOND KEYBOARD HANDLING P & T,81-10-19 DK **«, t00=0x0017, t01=0x005a}
0x247a…2490 Head {h00=0x0012, h01=0x0050, text=»IOCP05 EQU * «, t00=0x0017, t01=0x0094}
0x2490…24b8 Head {h00=0x0024, h01=0x0050, text=» CW A8,ECBBLK+6,A11 KB2 INPUT ? «, t00=0x0017, t01=0x00aa}
0x24b8…24d2 Head {h00=0x0016, h01=0x0050, text=» RF(NE) IOCP10 NO «, t00=0x0017, t01=0x00d2}
0x24d2…24ec Head {h00=0x0016, h01=0x0050, text=» CM ECBBLK+6,A11 «, t00=0x0017, t01=0x00ec}
0x24ec…2514 Head {h00=0x0024, h01=0x0050, text=» CF A14,KBINP2 TAKE CARE OF KB2 «, t00=0x0017, t01=0x0106}
0x2514…2528 Head {h00=0x0010, h01=0x0050, text=» RF IOCP90 «, t00=0x0017, t01=0x012e}
0x2528…2546 Head {h00=0x001a, h01=0x0050, text=»** END DK P & T **«, t00=0x0017, t01=0x0142}
0x2546…255a Head {h00=0x0010, h01=0x0050, text=»IOCP10 EQU *«, t00=0x0017, t01=0x0160}
0x255a…257a Head {h00=0x001c, h01=0x0050, text=» CW A8,ECBBLK+4,A11 DC? «, t00=0x0017, t01=0x0174}
0x257a…2594 (24, 0, 400) Head {h00=0x0016, h01=0x0050, text=» RF(NE) IOCP20 NO «, t00=0x0018, t01=0x0004}
0x2594…25ac Head {h00=0x0014, h01=0x0050, text=» CM ECBBLK+4,A11«, t00=0x0018, t01=0x001e}
0x25ac…25d2 Head {h00=0x0022, h01=0x0050, text=» CF A14,DCINP TAKE CARE OF DC «, t00=0x0018, t01=0x0036}
0x25d2…25e4 Head {h00=0x000e, h01=0x0050, text=» RF IOCP90«, t00=0x0018, t01=0x005c}
0x25e4…25f8 Head {h00=0x0010, h01=0x0050, text=»IOCP20 EQU *«, t00=0x0018, t01=0x006e}
0x25f8…2610 Head {h00=0x0014, h01=0x0050, text=» CM ECBBLK+8,A11«, t00=0x0018, t01=0x0082}
0x2610…263c Head {h00=0x0028, h01=0x0050, text=» CF A14,ICINP TAKE CARE OF INTERTASK«, t00=0x0018, t01=0x009a}
0x263c…2650 Head {h00=0x0010, h01=0x0050, text=»IOCP90 EQU *«, t00=0x0018, t01=0x00c6}
0x2650…2660 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0018, t01=0x00da}
0x2660…266e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x00ea}
0x266e…26b6 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0018, t01=0x00f8}
0x26b6…26c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0140}
0x26c0…26ee Head {h00=0x002a, h01=0x0050, text=»* MATCH MATCH TASKID AND PHYS. ADDRESS«, t00=0x0018, t01=0x014a}
0x26ee…26f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0178}
0x26f8…2740 Head {h00=0x0044, h01=0x0050, text=»*************************************************************** «, t00=0x0018, t01=0x0182}
0x2740…275c Head {h00=0x0018, h01=0x0050, text=»* REGISTERS «, t00=0x0019, t01=0x003a}
0x275c…2766 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0056}
0x2766…2770 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0060}
0x2770…27b8 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0019, t01=0x006a}
0x27b8…27cc Head {h00=0x0010, h01=0x0050, text=»MATCH EQU * «, t00=0x0019, t01=0x00b2}
0x27cc…27e2 Head {h00=0x0012, h01=0x0050, text=» IFT COPCMD=1 «, t00=0x0019, t01=0x00c6}
0x27e2…280e Head {h00=0x0028, h01=0x0050, text=» LDK A1,NBRTSK GET NUMBER OF ENTRIES«, t00=0x0019, t01=0x00dc}
0x280e…2822 Head {h00=0x0010, h01=0x0050, text=» LD A3,6,A13«, t00=0x0019, t01=0x0108}
0x2822…2848 Head {h00=0x0022, h01=0x0050, text=» ADKL A3,TSKTAB START OF TABLE«, t00=0x0019, t01=0x011c}
0x2848…285c Head {h00=0x0010, h01=0x0050, text=»MATC10 EQU *«, t00=0x0019, t01=0x0142}
0x285c…287e Head {h00=0x001e, h01=0x0050, text=» CC A2,+2,A3 SAME ADDRESS?«, t00=0x0019, t01=0x0156}
0x287e…2898 Head {h00=0x0016, h01=0x0050, text=» RF(E) MATC30 YES «, t00=0x0019, t01=0x0178}
0x2898…28ae (26, 0, 400) Head {h00=0x0012, h01=0x0050, text=» ADK A3,4 NEXT«, t00=0x001a, t01=0x0004}
0x28ae…28cc Head {h00=0x001a, h01=0x0050, text=» SUK A1,1 ALL CHECKED?«, t00=0x001a, t01=0x001a}
0x28cc…28e6 Head {h00=0x0016, h01=0x0050, text=» RB(NZ) MATC10 NO «, t00=0x001a, t01=0x0038}
0x28e6…28fa Head {h00=0x0010, h01=0x0050, text=»MATC20 EQU *«, t00=0x001a, t01=0x0052}
0x28fa…291e Head {h00=0x0020, h01=0x0050, text=» LDK A1,1 INDICATE NOT FOUND«, t00=0x001a, t01=0x0066}
0x291e…2930 Head {h00=0x000e, h01=0x0050, text=» RF MATC90«, t00=0x001a, t01=0x008a}
0x2930…2944 Head {h00=0x0010, h01=0x0050, text=»MATC30 EQU *«, t00=0x001a, t01=0x009c}
0x2944…2956 Head {h00=0x000e, h01=0x0050, text=» LCR A1,A3«, t00=0x001a, t01=0x00b0}
0x2956…2986 Head {h00=0x002c, h01=0x0050, text=» CCK A1,VDUCOD COPY IN RIGHT DIRECTION? «, t00=0x001a, t01=0x00c2}
0x2986…29a0 Head {h00=0x0016, h01=0x0050, text=» RB(NE) MATC20 NO «, t00=0x001a, t01=0x00f2}
0x29a0…29b2 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x001a, t01=0x010c}
0x29b2…29c6 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A3 «, t00=0x001a, t01=0x011e}
0x29c6…29da Head {h00=0x0010, h01=0x0050, text=»MATC90 EQU *«, t00=0x001a, t01=0x0132}
0x29da…29e6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x0146}
0x29e6…29f6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001a, t01=0x0152}
0x29f6…2a04 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0162}
0x2a04…2a48 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x001a, t01=0x0170}
0x2a48…2a8c Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x001b, t01=0x0024}
0x2a8c…2ad0 Head {h00=0x0040, h01=0x0050, text=»* INIT INITIALIZE THE TASK *«, t00=0x001b, t01=0x0068}
0x2ad0…2b14 Head {h00=0x0040, h01=0x0050, text=»* *«, t00=0x001b, t01=0x00ac}
0x2b14…2b58 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x001b, t01=0x00f0}
0x2b58…2b6c Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x001b, t01=0x0134}
0x2b6c…2b76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0148}
0x2b76…2b96 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x001b, t01=0x0152}
0x2b96…2bae Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x001b, t01=0x0172}
0x2bae…2bb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x018a}
0x2bb8…2bf2 (28, 0, 400) Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x001c, t01=0x0004}
0x2bf2…2c04 Head {h00=0x000e, h01=0x0050, text=»INIT EQU *«, t00=0x001c, t01=0x003e}
0x2c04…2c26 Head {h00=0x001e, h01=0x0050, text=» CF A14,COMINI COMMON INIT«, t00=0x001c, t01=0x0050}
0x2c26…2c4a Head {h00=0x0020, h01=0x0050, text=» CF A14,ECBINI INIT OF ECB:S«, t00=0x001c, t01=0x0072}
0x2c4a…2c66 Head {h00=0x0018, h01=0x0050, text=» CF A14,OPEN OPEN DC«, t00=0x001c, t01=0x0096}
0x2c66…2c7a Head {h00=0x0010, h01=0x0050, text=» LDKL A8,20 «, t00=0x001c, t01=0x00b2}
0x2c7a…2c86 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001c, t01=0x00c6}
0x2c86…2c96 Head {h00=0x000c, h01=0x0050, text=» DATA 6 «, t00=0x001c, t01=0x00d2}
0x2c96…2cc8 Head {h00=0x002e, h01=0x0050, text=» CF A14,TSTDEV WAIT FOR TERM OPERABLE DK1 «, t00=0x001c, t01=0x00e2}
0x2cc8…2ce8 Head {h00=0x001c, h01=0x0050, text=» CF A14,CONCT CONNECT DC«, t00=0x001c, t01=0x0114}
0x2ce8…2d12 Head {h00=0x0026, h01=0x0050, text=» CF A14,SETTYM SET REQUEST TIMEOUT«, t00=0x001c, t01=0x0134}
0x2d12…2d40 Head {h00=0x002a, h01=0x0050, text=» LDK A2,NBRTSK NUMBER OF TASK ENTRIES «, t00=0x001c, t01=0x015e}
0x2d40…2d70 Head {h00=0x002c, h01=0x0050, text=» LD A9,REGI,A11 RESTORE TASKTAB ADDRESS «, t00=0x001c, t01=0x018c}
0x2d70…2d84 Head {h00=0x0010, h01=0x0050, text=»INIT10 EQU *«, t00=0x001d, t01=0x002c}
0x2d84…2d96 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x001d, t01=0x0040}
0x2d96…2dac Head {h00=0x0012, h01=0x0050, text=» RF(N) INIT20 «, t00=0x001d, t01=0x0052}
0x2dac…2dbe Head {h00=0x000e, h01=0x0050, text=» ADKL A9,4«, t00=0x001d, t01=0x0068}
0x2dbe…2dd0 Head {h00=0x000e, h01=0x0050, text=» LCR A1,A9«, t00=0x001d, t01=0x007a}
0x2dd0…2df4 Head {h00=0x0020, h01=0x0050, text=» ANK A1,/FF ANY TASK AT ALL?«, t00=0x001d, t01=0x008c}
0x2df4…2e0c Head {h00=0x0014, h01=0x0050, text=» RB(Z) INIT10 NO«, t00=0x001d, t01=0x00b0}
0x2e0c…2e2e Head {h00=0x001e, h01=0x0050, text=» CCK A1,'VV' DISPLAY TASK?«, t00=0x001d, t01=0x00c8}
0x2e2e…2e48 Head {h00=0x0016, h01=0x0050, text=» RB(E) INIT10 YES «, t00=0x001d, t01=0x00ea}
0x2e48…2e5a Head {h00=0x000e, h01=0x0050, text=» SLL A1,8 «, t00=0x001d, t01=0x0104}
0x2e5a…2e6e Head {h00=0x0010, h01=0x0050, text=» LC A1,+1,A9«, t00=0x001d, t01=0x0116}
0x2e6e…2e86 Head {h00=0x0014, h01=0x0050, text=» ST A1,PRTID,A11«, t00=0x001d, t01=0x012a}
0x2e86…2e9a Head {h00=0x0010, h01=0x0050, text=»INIT20 EQU *«, t00=0x001d, t01=0x0142}
0x2e9a…2eae Head {h00=0x0010, h01=0x0050, text=» IFT OFLIN=1«, t00=0x001d, t01=0x0156}
0x2eae…2ec2 Head {h00=0x0010, h01=0x0050, text=» LD A1,2,A14«, t00=0x001d, t01=0x016a}
0x2ec2…2ed6 Head {h00=0x0010, h01=0x0050, text=» LD A2,4,A14«, t00=0x001d, t01=0x017e}
0x2ed6…2eec (30, 0, 400) Head {h00=0x0012, h01=0x0050, text=» ST A12,4,A14 «, t00=0x001e, t01=0x0004}
0x2eec…2f02 Head {h00=0x0012, h01=0x0050, text=» ST A13,2,A14 «, t00=0x001e, t01=0x001a}
0x2f02…2f16 Head {h00=0x0010, h01=0x0050, text=» STR A2,A14 «, t00=0x001e, t01=0x0030}
0x2f16…2f2c Head {h00=0x0012, h01=0x0050, text=» ST A1,-2,A14 «, t00=0x001e, t01=0x0044}
0x2f2c…2f54 Head {h00=0x0024, h01=0x0050, text=» SUKL A14,4 UPDATE STACK POINTER«, t00=0x001e, t01=0x005a}
0x2f54…2f6a Head {h00=0x0012, h01=0x0050, text=» CM OFFFLG,A11«, t00=0x001e, t01=0x0082}
0x2f6a…2f96 Head {h00=0x0028, h01=0x0050, text=» CF A14,LMP6OF TURN OFF OFFLINE LAMP«, t00=0x001e, t01=0x0098}
0x2f96…2fa2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x00c4}
0x2fa2…2fb4 Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x001e, t01=0x00d0}
0x2fb4…2fe0 Head {h00=0x0028, h01=0x0050, text=» LDKL A5,LBVDU+1 UNFORMATTED SCREEN «, t00=0x001e, t01=0x00e2}
0x2fe0…2ff2 Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x001e, t01=0x010e}
0x2ff2…3020 Head {h00=0x002a, h01=0x0050, text=» CF A14,STOINF SAVE SCREEN INFORMATION«, t00=0x001e, t01=0x0120}
0x3020…304c Head {h00=0x0028, h01=0x0050, text=» CF A14,ERASE ERASE THE WHOLE SCREEN«, t00=0x001e, t01=0x014e}
0x304c…3062 Head {h00=0x0012, h01=0x0050, text=» IFT NBRLIN=2 «, t00=0x001e, t01=0x017a}
0x3062…3084 Head {h00=0x001e, h01=0x0050, text=» LD A1,MAIN,A11 DC LINE 1?«, t00=0x001e, t01=0x0190}
0x3084…309e Head {h00=0x0016, h01=0x0050, text=» RF(Z) INIT30 YES «, t00=0x001f, t01=0x0022}
0x309e…30c8 Head {h00=0x0026, h01=0x0050, text=» CF A14,LMP2ON INDICATE DC LINE 2 «, t00=0x001f, t01=0x003c}
0x30c8…30da Head {h00=0x000e, h01=0x0050, text=» RF INIT40«, t00=0x001f, t01=0x0066}
0x30da…30ee Head {h00=0x0010, h01=0x0050, text=»INIT30 EQU *«, t00=0x001f, t01=0x0078}
0x30ee…30fa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x008c}
0x30fa…3124 Head {h00=0x0026, h01=0x0050, text=» CF A14,LMP1ON INDICATE DC LINE 1 «, t00=0x001f, t01=0x0098}
0x3124…3138 Head {h00=0x0010, h01=0x0050, text=»INIT40 EQU *«, t00=0x001f, t01=0x00c2}
0x3138…3160 Head {h00=0x0024, h01=0x0050, text=» CF A14,CHKSTA CHECK IF LINE OK «, t00=0x001f, t01=0x00d6}
0x3160…3170 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001f, t01=0x00fe}
0x3170…317e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x010e}
0x317e…31c0 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x001f, t01=0x011c}
0x31c0…3202 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x001f, t01=0x015e}
0x3202…3244 Head {h00=0x003e, h01=0x0050, text=»* COMINI COMMON INIT ROUTINE *«, t00=0x0020, t01=0x0010}
0x3244…3286 Head {h00=0x003e, h01=0x0050, text=»* *«, t00=0x0020, t01=0x0052}
0x3286…32c8 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0020, t01=0x0094}
0x32c8…32ea Head {h00=0x001e, h01=0x0050, text=»* REGISTERS «, t00=0x0020, t01=0x00d6}
0x32ea…32f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00f8}
0x32f4…3314 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0020, t01=0x0102}
0x3314…332c Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0020, t01=0x0122}
0x332c…3336 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x013a}
0x3336…3378 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0020, t01=0x0144}
0x3378…338c Head {h00=0x0010, h01=0x0050, text=»COMINI EQU *«, t00=0x0020, t01=0x0186}
0x338c…33a2 Head {h00=0x0012, h01=0x0050, text=» CF A14,I:EVA0«, t00=0x0021, t01=0x000a}
0x33a2…33ca Head {h00=0x0024, h01=0x0050, text=» LDR A11,A9 LOAD TASK AREA BASE «, t00=0x0021, t01=0x0020}
0x33ca…33ea Head {h00=0x001c, h01=0x0050, text=» LDR* A2,A11 GET TASKID «, t00=0x0021, t01=0x0048}
0x33ea…3410 Head {h00=0x0022, h01=0x0050, text=» LD A3,6,A13 COMMON BLOCK BASE«, t00=0x0021, t01=0x0068}
0x3410…3422 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0021, t01=0x008e}
0x3422…3438 Head {h00=0x0012, h01=0x0050, text=» ANK A1,X'FF' «, t00=0x0021, t01=0x00a0}
0x3438…3466 Head {h00=0x002a, h01=0x0050, text=» SUK A1,X'30' GET OFFSET IN TASK TABLE«, t00=0x0021, t01=0x00b6}
0x3466…348a Head {h00=0x0020, h01=0x0050, text=» SLL A1,2 TWO WORDS ENTRIES «, t00=0x0021, t01=0x00e4}
0x348a…34a2 Head {h00=0x0014, h01=0x0050, text=» LDKL A4,TSKTAB «, t00=0x0021, t01=0x0108}
0x34a2…34b4 Head {h00=0x000e, h01=0x0050, text=» ADR A4,A3«, t00=0x0021, t01=0x0120}
0x34b4…34da Head {h00=0x0022, h01=0x0050, text=» ADR A1,A4 POINT TO YOUR LABLE«, t00=0x0021, t01=0x0132}
0x34da…3506 Head {h00=0x0028, h01=0x0050, text=» ST A1,REGI,A11 SAVE TASKTAB ADDRESS«, t00=0x0021, t01=0x0158}
0x3506…3526 Head {h00=0x001c, h01=0x0050, text=» SC A2,+1,A1 SAVE TASKID«, t00=0x0021, t01=0x0184}
0x3526…3538 Head {h00=0x000e, h01=0x0050, text=» SRL A2,8 «, t00=0x0022, t01=0x0014}
0x3538…354a Head {h00=0x000e, h01=0x0050, text=» SCR A2,A1«, t00=0x0022, t01=0x0026}
0x354a…355a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0022, t01=0x0038}
0x355a…3568 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x0048}
0x3568…3572 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0056}
0x3572…357c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0060}
0x357c…3596 Head {h00=0x0016, h01=0x0050, text=»* ECB TABLE LAYOUT«, t00=0x0022, t01=0x006a}
0x3596…35a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0084}
0x35a0…35aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x008e}
0x35aa…35b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0098}
0x35b4…35ec Head {h00=0x0034, h01=0x0050, text=»* DISPLACEMENT I/O FILECODE «, t00=0x0022, t01=0x00a2}
0x35ec…35f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00da}
0x35f6…362c Head {h00=0x0032, h01=0x0050, text=»* 0 KB /20 «, t00=0x0022, t01=0x00e4}
0x362c…3662 Head {h00=0x0032, h01=0x0050, text=»* 2 PRINTER /30 «, t00=0x0022, t01=0x011a}
0x3662…3698 Head {h00=0x0032, h01=0x0050, text=»* 4 SIGNAL/DISP. /40 «, t00=0x0022, t01=0x0150}
0x3698…36ce Head {h00=0x0032, h01=0x0050, text=»* 6 VDU /42 «, t00=0x0022, t01=0x0186}
0x36ce…3704 Head {h00=0x0032, h01=0x0050, text=»* 8 INTERTASK R. /50 «, t00=0x0023, t01=0x002c}
0x3704…373a Head {h00=0x0032, h01=0x0050, text=»* 10 INTERTASK W. /51 «, t00=0x0023, t01=0x0062}
0x373a…3770 Head {h00=0x0032, h01=0x0050, text=»* 12 DC LINE 1 /61 «, t00=0x0023, t01=0x0098}
0x3770…37a6 Head {h00=0x0032, h01=0x0050, text=»* 14 DC LINE 2 /62 «, t00=0x0023, t01=0x00ce}
0x37a6…37b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0104}
0x37b0…37ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x010e}
0x37ba…37c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0118}
0x37c4…37ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0122}
0x37ce…37dc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x012c}
0x37dc…3822 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0023, t01=0x013a}
0x3822…3868 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0023, t01=0x0180}
0x3868…38ae Head {h00=0x0042, h01=0x0050, text=»* ECBINI INIT OF ECB:S * «, t00=0x0024, t01=0x0036}
0x38ae…38f4 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0024, t01=0x007c}
0x38f4…393a Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0024, t01=0x00c2}
0x393a…3956 Head {h00=0x0018, h01=0x0050, text=»* REGISTERS «, t00=0x0024, t01=0x0108}
0x3956…3960 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0124}
0x3960…3980 Head {h00=0x001c, h01=0x0050, text=»* A4 = NUMBER OF ENTRIES«, t00=0x0024, t01=0x012e}
0x3980…39a4 Head {h00=0x0020, h01=0x0050, text=»* A5 = NUMBER OF FC ALLOWED «, t00=0x0024, t01=0x014e}
0x39a4…39be Head {h00=0x0016, h01=0x0050, text=»* A6 = DAT POINTER«, t00=0x0024, t01=0x0172}
0x39be…39dc Head {h00=0x001a, h01=0x0050, text=»* A7 = ECB FC POINTER «, t00=0x0024, t01=0x018c}
0x39dc…39fc Head {h00=0x001c, h01=0x0050, text=»* A8 = DATA SET POINTER «, t00=0x0025, t01=0x001a}
0x39fc…3a1c Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0025, t01=0x003a}
0x3a1c…3a34 Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0025, t01=0x005a}
0x3a34…3a3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0072}
0x3a3e…3a82 Head {h00=0x0040, h01=0x0050, text=»************************************************************«, t00=0x0025, t01=0x007c}
0x3a82…3a96 Head {h00=0x0010, h01=0x0050, text=»ECBINI EQU *«, t00=0x0025, t01=0x00c0}
0x3a96…3abc Head {h00=0x0022, h01=0x0050, text=» LD A2,-8,A13 GET T:D ADDRESS «, t00=0x0025, t01=0x00d4}
0x3abc…3ae6 Head {h00=0x0026, h01=0x0050, text=» LD A4,+4,A2 GET NUMBER OF ENTRIES«, t00=0x0025, t01=0x00fa}
0x3ae6…3afa Head {h00=0x0010, h01=0x0050, text=» LD A8,+6,A2«, t00=0x0025, t01=0x0124}
0x3afa…3b0e Head {h00=0x0010, h01=0x0050, text=» ADR A8,A13 «, t00=0x0025, t01=0x0138}
0x3b0e…3b2c Head {h00=0x001a, h01=0x0050, text=» LDR A6,A8 DAT POINTER«, t00=0x0025, t01=0x014c}
0x3b2c…3b50 Head {h00=0x0020, h01=0x0050, text=» SUKL A8,20 DATA SET POINTER«, t00=0x0025, t01=0x016a}
0x3b50…3b64 Head {h00=0x0010, h01=0x0050, text=»ECBI10 EQU *«, t00=0x0025, t01=0x018e}
0x3b64…3b88 Head {h00=0x0020, h01=0x0050, text=» LD A5,ECBIND NUMBER OF FC:S«, t00=0x0026, t01=0x0012}
0x3b88…3bb2 Head {h00=0x0026, h01=0x0050, text=» LDKL A7,ECBIND+2 FIRST FILE CODE «, t00=0x0026, t01=0x0036}
0x3bb2…3bd2 Head {h00=0x001c, h01=0x0050, text=» LC A2,+1,A6 DATA SET FC«, t00=0x0026, t01=0x0060}
0x3bd2…3be6 Head {h00=0x0010, h01=0x0050, text=»ECBI20 EQU *«, t00=0x0026, t01=0x0080}
0x3be6…3c14 Head {h00=0x002a, h01=0x0050, text=» CCR A2,A7 FC IN DAT = FC CONFIGURED? «, t00=0x0026, t01=0x0094}
0x3c14…3c2e Head {h00=0x0016, h01=0x0050, text=» RF(E) ECBI30 YES «, t00=0x0026, t01=0x00c2}
0x3c2e…3c44 Head {h00=0x0012, h01=0x0050, text=» ADK A7,2 NEXT«, t00=0x0026, t01=0x00dc}
0x3c44…3c60 Head {h00=0x0018, h01=0x0050, text=» SUK A5,1 NOT FOUND?«, t00=0x0026, t01=0x00f2}
0x3c60…3c7e Head {h00=0x001a, h01=0x0050, text=» RB(NZ) ECBI20 NOT YET«, t00=0x0026, t01=0x010e}
0x3c7e…3c9c Head {h00=0x001a, h01=0x0050, text=» LDKL A1,* DIAGNOSTIC «, t00=0x0026, t01=0x012c}
0x3c9c…3cb4 Head {h00=0x0014, h01=0x0050, text=» ST A1,REGI,A11 «, t00=0x0026, t01=0x014a}
0x3cb4…3cc0 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0026, t01=0x0162}
0x3cc0…3ce0 Head {h00=0x001c, h01=0x0050, text=» DATA 3 WRONG GENERATION«, t00=0x0026, t01=0x016e}
0x3ce0…3cf4 Head {h00=0x0010, h01=0x0050, text=»ECBI30 EQU *«, t00=0x0026, t01=0x018e}
0x3cf4…3d1c Head {h00=0x0024, h01=0x0050, text=» SC A2,+1,A8 SAVE FC IN DATA SET«, t00=0x0027, t01=0x0012}
0x3d1c…3d48 Head {h00=0x0028, h01=0x0050, text=» LD A2,+2,A6 GET FIXED LENGTH IF ANY«, t00=0x0027, t01=0x003a}
0x3d48…3d6e Head {h00=0x0022, h01=0x0050, text=» ST A2,+4,A8 SAVE IN DATA SET «, t00=0x0027, t01=0x0066}
0x3d6e…3d9c Head {h00=0x002a, h01=0x0050, text=» LD A2,+18,A8 GET FIXED BUFFER IF ANY «, t00=0x0027, t01=0x008c}
0x3d9c…3dc2 Head {h00=0x0022, h01=0x0050, text=» ST A2,+2,A8 SAVE IN DATA SET «, t00=0x0027, t01=0x00ba}
0x3dc2…3dee Head {h00=0x0028, h01=0x0050, text=» LC A2,+1,A7 GET INDEX TO ECB TABLE «, t00=0x0027, t01=0x00e0}
0x3dee…3e02 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0027, t01=0x010c}
0x3e02…3e16 Head {h00=0x0010, h01=0x0050, text=» ADR A2,A11 «, t00=0x0027, t01=0x0120}
0x3e16…3e40 Head {h00=0x0026, h01=0x0050, text=» ST A8,ECBTAB,A2 SAVE ECB ADDRESS «, t00=0x0027, t01=0x0134}
0x3e40…3e52 Head {h00=0x000e, h01=0x0050, text=» ADK A6,4 «, t00=0x0027, t01=0x015e}
0x3e52…3e66 Head {h00=0x0010, h01=0x0050, text=» SUKL A8,20 «, t00=0x0027, t01=0x0170}
0x3e66…3e82 Head {h00=0x0018, h01=0x0050, text=» SUK A4,1 ALL DONE? «, t00=0x0027, t01=0x0184}
0x3e82…3e9c Head {h00=0x0016, h01=0x0050, text=» RB(NZ) ECBI10 NO «, t00=0x0028, t01=0x0010}
0x3e9c…3eac Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0028, t01=0x002a}
0x3eac…3eba Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x003a}
0x3eba…3f00 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0028, t01=0x0048}
0x3f00…3f46 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0028, t01=0x008e}
0x3f46…3f8c Head {h00=0x0042, h01=0x0050, text=»* TSTDEV TEST KEYBOARD AND DISPLAY * «, t00=0x0028, t01=0x00d4}
0x3f8c…3fd2 Head {h00=0x0042, h01=0x0050, text=»* * «, t00=0x0028, t01=0x011a}
0x3fd2…4018 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0028, t01=0x0160}
0x4018…402c Head {h00=0x0010, h01=0x0050, text=»* REGISTERS«, t00=0x0029, t01=0x0016}
0x402c…4036 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x002a}
0x4036…4056 Head {h00=0x001c, h01=0x0050, text=»* A11= CREDIT WORK AREA «, t00=0x0029, t01=0x0034}
0x4056…406e Head {h00=0x0014, h01=0x0050, text=»* A13= RESERVED «, t00=0x0029, t01=0x0054}
0x406e…4078 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x006c}
0x4078…40b2 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0029, t01=0x0076}
0x40b2…40c6 Head {h00=0x0010, h01=0x0050, text=»TSTDEV EQU *«, t00=0x0029, t01=0x00b0}
0x40c6…40f6 Head {h00=0x002c, h01=0x0050, text=» CF A14,SOUND TURN ON SOUND ALARM AT VDU«, t00=0x0029, t01=0x00c4}
0x40f6…411e Head {h00=0x0024, h01=0x0050, text=» LDR A1,A1 CHECK RETURN CODE DK1«, t00=0x0029, t01=0x00f4}
0x411e…4144 Head {h00=0x0022, h01=0x0050, text=» RF(Z) TSTD90 OK, GO ON.. DK1 «, t00=0x0029, t01=0x011c}
0x4144…4152 Head {h00=0x000a, h01=0x0050, text=» LKM «, t00=0x0029, t01=0x0142}
0x4152…416e Head {h00=0x0018, h01=0x0050, text=» DATA 0 SWITCH TASKS«, t00=0x0029, t01=0x0150}
0x416e…418e Head {h00=0x001c, h01=0x0050, text=» RB TSTDEV TRY AGAIN DK1«, t00=0x0029, t01=0x016c}
0x418e…41a8 Head {h00=0x0016, h01=0x0050, text=»TSTD90 EQU * DK1 «, t00=0x0029, t01=0x018c}
0x41a8…41b8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002a, t01=0x0016}
0x41b8…41c0 Head {h00=0x0004, h01=0x0050, t00=0x002a, t01=0x0026}
0x41c0…41cc Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x002a, t01=0x002e}
0x41cc…41d0 Head {h00=0x4004, h01=0x0000}
0x41d0…41d4 00 2a 00 3a ┆ * :┆
0x41d4…41dc (43, 1, 8) 20 04 00 00 00 2b 00 04 ┆ + ┆
0x41dc…422c (44, 0, 400) e1 32 21 ff 81 92 91 a0 00 01 85 06 95 04 84 94 f0 3a 85 36 e3 32 f6 a1 34 9e 57 26 81 80 82 0c 22 0f 23 f0 88 20 34 6c 3b 62 93 16 81 cc 00 02 99 a0 00 02 03 01 aa 20 3b c0 f0 09 94 a0 00 01 f0 3a 83 08 3b 66 22 0f 23 3f 5f 22 83 a0 ff a0 ┆ 2! : 6 2 4 W& " # 4l;b ; : ;f" #?_" ┆
0x422c…427c 57 02 b3 8e 82 0c 22 10 54 12 81 26 83 8e 54 02 99 05 80 d6 00 02 91 2b f0 81 f0 3a 87 18 80 8a e1 2a e2 26 b1 08 21 40 50 02 01 60 31 60 93 84 50 12 f6 a1 36 f2 51 0c 81 18 86 14 85 04 81 0a 82 86 81 84 84 20 ff ff 84 5b ff fe 04 00 84 3b ┆W " T & T + : * & !@P `1` P 6 Q [ ;┆
0x427c…42cc 1e 01 1d 01 1f 01 e1 38 83 04 b6 0b 56 04 ea 98 57 02 ee 0a 51 0a 50 02 03 00 01 00 e1 5b ff fe 21 f0 19 f0 58 0a 11 f0 23 0f 1b 0f 50 02 13 0f 93 10 e2 34 84 08 b5 07 56 04 e9 94 57 02 ed 06 51 0a 50 02 04 00 02 00 e2 5b ff ff 22 f0 1a f0 ┆ 8 V W Q P [ ! X # P 4 V W Q P [ " ┆
0x42cc…431c 58 0a 12 f0 24 0f 1c 0f 50 02 14 0f 83 8e 54 46 93 10 eb 20 00 0a 52 02 13 06 93 04 93 08 eb 20 00 a0 52 02 13 60 ab 3b 84 0c 3c 28 82 1c 9a 02 82 08 51 18 50 04 23 ff 57 0e 82 0c 22 0f e1 3c 21 f0 a9 08 e1 3d 23 f0 54 36 57 02 e3 3d 82 5a ┆X $ P TF R R ` ; <( Q P # W " <! =# T6W = Z┆
0x431c…436c ff fe 50 12 5f a6 9b 10 56 02 1b 06 93 04 9b 08 5e 3c 1b 60 5f 40 03 00 82 1c 9a 02 1f 01 1a 01 52 0a 51 04 e3 3c 23 f0 e3 3d 5f 10 84 10 50 02 04 03 03 00 82 3a 22 ff 00 08 10 00 00 00 00 00 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ P _ V ^< `_@ R Q <# =_ P :" ┆