|
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: 20404 (0x4fb4)
Notes: pts_type(SC)
Names: »DRTW01.SC«
└─⟦f350e1b7a⟧ Bits:30009678 Philips computer tape "600219"
└─⟦this⟧ »MONGEN/DRTW01.SC«
IDENT DRTW01 REL 11.0 81-06-12 870105041100 =4,COND. FOR BSP,CANC AND EOR REL 11.0 81-04-15 =3,ONLY CREDIT-INDEX FOR EOR-KEY IN KTAB REL 11.0 81-01-26 =2,BOTH KEYTABLE AND STANDARD EOR-KEY WAS CHECKED REL 11.0 80-11-19 =1, PROBLEM WITH CHANGED DWT-LAYOUT REL 10.0 80-03-14 ************************************************** * * PHILIPS TERMINAL SYSTE PTS * * DRTW01 = DRIVER TYPEWRITER PTS 6862 * * * * * * ************************************************** * * THIS DRIVER HANDLES INPUT AND OUTPUT TO TYPEWRITERS * PTS 6862 * * EJECT * * *********** * ENTRIES * *********** * ENTRY TWAD ADDRESS BLOCK ENTRY IHTW ENTRY TWON ENTRY DWTW01 * ************* * EXTERNALS * ************* * EXTRN DISIOE REQUEST ERROR EXTRN TDISP DISPATCH EXTRN DISEND DISPATCH AND ENDIO EXTRN SETIME SET TIME BEFORE TIME-OUT EXTRN SAVE8 SAVE REGISTERS A1-A8 ON STACK EXTRN DWTST STATUS EXTRN DWTBC BYTE COUNTER EXTRN DWTECB ECB ADDRESS EXTRN DWTOR DWT INDEX AND ORDER EXTRN DWTA3 SAVE AREA A3 EXTRN DWTA4 SAVE AREA A4 EXTRN DWTA5 SAVE AREA A5 EXTRN DWTSB1 STACK BASE 1 IN DWT EXTRN DWTSB2 STACK BASE 2 IN DWT EXTRN DWTTP TIMER POINTER EXTRN INTSAV SAVE AREA LAST INTRRUPT EXTRN PFPOST PWF POST PROCESSING FLAG EJECT * * ******************** * I/O-INSTRUCTIONS ******************** * * TWSTRT EQU /42C0 CIO-START TWHLT EQU /4280 CIO-HALT TWINR EQU /4A00 INPUT TWOTR EQU /4200 OUTPUT TWSST EQU /4AC0 SENSE STATUS * * EJECT * * ************* * CONSTANTS * ************* * * CR EQU /0D CARRIAGE RETURN LF EQU /0A LINE FEED LNGERR EQU /8 INCORRECT LENGTH TPERR EQU /2 THROUGHPUT ERROR TIME EQU 300 TIME BEFORE TIME-OUT * * ************************ * CONDITIONAL ASSEMBLY* ************************ * * X:A EQU 0 X:B EQU 0 X:C EQU 60 X:D EQU 10 X:E EQU 6 X:F EQU /5F5E =4 X:G EQU /0D00 =4 TIMOUT EQU X:A POWUP EQU X:B DVBLEN EQU X:C DVBKTB EQU X:D DEVIND EQU X:E =3 * * A PROGRAM VERSION USING TOSS MMU PAGING * IS OBTAINED BY SETTING MMUPAG EQU 1. * MMUPAG EQU 1 * * * A PROGRAM VERSION USING THE EXTENDED INSTRUCTION * SET IS OBTAINED BY SETTING CPU852 EQU 0. * CPU852 EQU 0 * EJECT * * ********************* * DWT-DISPLACEMENTS * ********************* * * DWTDRD EQU /10 START OF DRIVER DEFINED PART * IFT MMUPAG=0 START EQU DWTDRD XIF * IFT MMUPAG=1 START EQU DWTDRD+4 XIF * DWTHP EQU START+/18 TWCLR EQU START+/15 TWEOF EQU START+/16 TWBSP EQU START+/14 DWTA2 EQU START+/1A DATA DVBKTB+DVBKTB MMU KEY TABLE SIZE DATA DVBLEN+DVBLEN MMU BUFFER SIZE DATA DEVIND DEVICE INDEX TWAD EQU * DATA TWA ACTIVATION PART DATA 0 ABORT ROUTINE ADDRESS EJECT * * * ACTIVATION PART: CHECK VALIDITY OF ORDERS * * TWA EQU * LDK A3,0 LD A2,4,A8 GET REQUESTED LENGTH ABL(Z) IHTW50 REQUESTED LENGTH =0 * * LDR A2,A7 COPY ORDER RF(NP) TWAERR REQUEST ERROR SUK A2,4 RF(Z) TWAERR REQUEST ERROR RF(N) TWAIN INPUT REQUEST SUK A2,2 RF(NP) TWAOUT OUTPUT REQUEST * * TWAERR ABL DISIOE REQUEST ERROR EJECT * * TWAIN EQU * IFT TIMOUT=1 LD A2,DWTTP,A6 GET TIMER POINTER RF(Z) TWA010 NO TIMING ON THIS DEVICE LDR A1,A6 SAVE DWT-ADDRESS CF A15,SETIME DATA TWTUT,TIME ST A4,DWTTP,A6 SAVE TIMER BLOCK-ADDRESS XIF TWA010 EQU * IFT POWUP=1 LD A2,DWTST,A6 GET DWT-STATUS ANKL A2,/200 RF(Z) TWA020 NOT FIRST READ AFTER POEWR UP XRS A2,DWTST,A6 RESET POINTER LDKL A2,-2 ST A2,10,A8 INDICATE POWER UP ABL IHTW35 PERFORM ENDIO XIF TWA020 LDK A2,/21 * * READ CF A5,STRTIO EXECUTE CIO-START RF RED030 RED020 CF A5,STREG SAVE REGISTERS EJECT * * RETURN AFTER INTERRUPT * * RED030 EQU * IFT TIMOUT=1 LDR A1,A1 RF(NZ) RED037 XIF SUK A7,1 RF(P) RED050 ORDERS 02/03 * * RED035 CF A5,STORE STORE CHARACTER IN BUFFER CW A3,4,A8 RB(L) RED020 GET NEXT CHARACTER LDR A7,A7 RF(Z) RED040 BASIC READ * * LDK A1,LNGERR OVERFLOW RED037 ORS A1,8,A8 SET RETURN CODE * * EJECT RED040 EQU * IFT TIMOUT=1 LD A7,DWTOR,A6 GET ORDER ANK A7,/FF MASK ORDER CWK A7,4 RF(G) RED045 WRITE ORDER LD A4,DWTTP,A6 TIMER POINTER RF(Z) RED045 NO TIMIMG ON THIS DEVICE CM* DWTTP,A6 RESET TIMER XIF RED045 EQU * CF A5,HLTIO EXECUTE CIO-HALT ABL IHTW40 PERFORM TENDIO EJECT * * * * ORDERS 02,03 * * RED050 EQU * LD A1,10,A8 GET CONTROL WORD RF(Z) RED080 NO KEYTABLE LCR A4,A1 GET NUMBER OF KEYS ANK A4,/FF ADR A1,A4 ADDRESS TO LAST KEY ADK A1,1 RED060 SUK A4,1 RF(N) RED085 KEY NOT IN KEYTABLE =2 SUK A1,1 DECREMENT ADDRESS CCR A2,A1 CHECK IF IN KEYTABLE RB(NE) RED060 NOT IN KEYTABLE ADK A4,1 MAKE INDEX =3 ST A4,10,A8 STORE INDEX IN CONTROL WORD RED070 CF A5,STORE STORE KEY IN ECB-BUFFER =2 RB RED040 EXECUTE CIO-HALT RED080 CC A2,TWEOF,A6 RB(E) RED070 STANDARD EOR-KEY RED085 EQU * =2 CC A2,TWBSP,A6 RF(E) RED110 BACKSPACE CC A2,TWCLR,A6 RF(E) RED110 CLEAR EJECT * * * CHARACTER NOT FOUND IN KEYTABLE * * * RED090 LDR A4,A2 COPY CHARACTER ANK A4,/FF MASK LDR A1,A7 SUK A1,1 RF(Z) RED100 ORDER 02 SUK A4,/30 ORDER 03 RF(N) CODERR LESS THAN /30 SUK A4,/9 RF(P) CODERR GREATER THAN /39 RF RED110 * * RED100 SUK A4,/20 RF(N) CODERR LESS THAN /20 SUK A4,/3F RF(NP) RED110 CORRECT CHARACTER * * CODERR LDK A1,4 CODE CHECK ERROR ORS A1,8,A8 CF A5,STORE STORE CHARACTER IN ECB-BUFFER RB RED040 EXECUTE CIO-HALT * * EJECT * * * RED110 CC A2,TWBSP,A6 RF(E) RED120 BACKSPACE CC A2,TWCLR,A6 RB(NE) RED035 * * LDK A3,0 CLEAR ECB-BUFFER RB RED020 GET NEXT CHARACTER * * RED120 SUK A3,1 BACKSPACE RB(NN) RED020 GET NEXT CHARACTER ADK A3,1 RB RED020 GET NEXT CHARACTER * * * EJECT * * * W R I T E * * ORDERS 05 AND 06: BASIC AND STANDARD WRITE * * WRITE EQU * TWAOUT EQU * INH LDK A4,0 LDK A2,0 CF A5,STRTIO EXECUTE CIO-START * * CWK A7,5 RF(Z) WRT050 ORDER 05 * * LD A3,2,A8 GET BUFFER ADDRESS LC A3,1,A3 CONTROL CHARACTER ANK A3,/FF SUK A3,/2B RF(Z) WRT030 NO CR OR LF * * ST A4,DWTHP,A6 HEAD POSITION INDICATOR LDK A4,2 LDK A2,CR SEND CARRIAGE RETURN EJECT * * * WRT010 CF A5,OTR SEND CHARACTER * * SUK A4,1 RF(NP) WRT020 WRT015 LDK A2,LF SEND LF RB WRT010 * WRT020 SUK A3,5 RB(Z) WRT015 SEND SECOND LF SUK A3,1 RF(NZ) WRT030 LDK A2,/0C SEND FORM FEED RB WRT010 WRT030 LDK A3,2 BUFFER POINTER RF WRT050 GET CHARACTER * * * WRT040 EQU * CF A5,OTR SEND CHARACTER IM DWTST,A6 INCREMENT BYTE COUNTER EJECT * * * WRT050 CF A5,GETCHR GET CHARACTER FROM ECB-BUFFER LDR A1,A1 RB(Z) RED040 LAST CHARACTER CWK A7,5 RB(Z) WRT040 BASIC WRITE * * LDR A1,A2 ORDER 06: STANDARD WRITE ANK A1,/FF SUK A1,/07 RB(Z) WRT040 BELL * SUK A1,/A RF(E) WRTTAB TABULATION * SUK A1,/F RF(L) ERRCOD LESS THAN /20 SUK A1,/3F RB(NP) WRT040 BETWEEN /20-/5F SUK A1,/20 RF(NP) WRT060 BETWEEN /60-/7F * * ERRCOD LDK A1,4 ORS A1,8,A8 RB WRT050 GET NEXT CHARACTER * * WRT060 SUK A2,/20 RB WRT040 * * EJECT * * * T A B U L A T I O N * * WRTTAB EQU * CF A5,GETCHR GET FIRST TAB.POSITION CHARACTER LDR A4,A2 COPY CF A5,GETCHR GET SECOND TAB. POSITION CHARACTER ANK A2,/F ANK A4,/F RF(Z) TAB020 TAB010 ADK A2,/A SUK A4,1 RB(NZ) TAB010 * TAB020 SU A2,DWTHP,A6 LC A4,DWTBC,A6 GET NUMBER OF OUTPUT CHARACTERS SUR A2,A4 NUMBER OF SPACES TO BE SENT RB(NP) WRT050 NO SPACES SHOULD BE SENT LDR A4,A2 TAB030 LDK A2,/20 SEND BALNKS TAB040 CF A5,OTR SEND CHARACTER IM DWTST,A6 INCREMENT BYTE COUNTER SUK A4,1 RB(NZ) TAB030 SEND ANOTHER SPACE LDR A3,A3 RB(NZ) WRT050 NOT RECOVERY SC A4,DWTBC,A6 RESET BYTE COUNTER LDK A3,2 PRESET BUFFER INDEX RB WRT050 GET NEXT CHARACTER EJECT * * * RECOVERY ROUTINE * * * TWON EQU * IFT CPU852=1 CF A15,SAVE8 SAVE A1-A8 ON STACK XIF * IFT CPU852=0 MSR 8,A15 SAVE A1-A8 ON STACK XIF * LDKL A6,DWTW01 GET DWT-ADDRESS IFT POWUP=1 LDKL A1,/200 ORS A1,DWTST,A6 INDICATE POWER UP XIF LD A1,DWTST,A6 RF(N) EXIT DEVICE NOT BUSY TWON10 LD A3,DWTA3,A6 LD A7,DWTOR,A6 GET ORDER ANK A7,/FF LD A8,DWTECB,A6 ECB-ADDRESS LDKL A5,DWTSB2 ADR A5,A6 GET STACK BASE SUK A7,4 ABL(N) TWA010 ORDERS 01,02,03 SUK A7,1 RF(Z) TWON20 ORDER 05 INH LDK A2,0 CF A5,STRTIO EXECUTE CIO-START LDK A2,CR LDK A3,0 LD A4,DWTHP,A6 ADK A4,1 RB TAB040 REPRINT LAST REQUEST * TWON20 LDK A1,TPERR ORDER 05 ABL DISEND * * EJECT * * * I H T W * * INTERRUPT HANDLER: PROCESS OF INTERRUPT * * IHTW EQU * ST P,INTSAV SAVE LAST INTERRUPT IFT CPU852=1 CF A15,SAVE8 SAVE A1-A8 ON STACK XIF * IFT CPU852=0 MSR 8,A15 SAVE A1-A8 ON STACK XIF * LDKL A6,DWTW01 LDREG EQU * LD A3,DWTST,A6 RF(N) SKIP DEVICE NOT BUSY IHTW10 LDR* A2,A6 GET DEVICE ADDRESS ORKL A2,TWSST EXR A2 EXECUTE SST RF(A) IHTW30 ENDIO LD A7,DWTOR,A6 GET ORDER ANK A7,/FF SUK A7,4 RF(P) IHTW30 LDR* A2,A6 GET DEVICE ADDRESS ORKL A2,TWINR EXR A2 EXECUTE INR ANK A2,/7F MASK INPUT-CHARACTER EJECT * IFT TIMOUT=1 LD A1,DWTTP,A6 GET TIMER POINTER RF(Z) IHTW30 NO TIMING ON THIS DEVICE LDKL A1,-TIME ST* A1,DWTTP,A6 XIF * * IHTW30 LDK A1,0 RF LDREGE RESTORE REGISTERS IHTW35 EQU * IFT POWUP+TIMOUT=2 LD A1,DWTTP,A6 TIMER POINTER RF(Z) IHTW40 NO TIMING ON THIS DEVICE CM* DWTTP,A6 RESET TIMER XIF EJECT * * IHTW40 EQU * * * IHTW50 ST A3,6,A8 SAVE EFFECTIVE LENGTH IHTW55 SUK A7,4 RF(NP) IHTW60 READ ORDER * * LC A3,DWTBC,A6 GET BYTE COUNTER ADS A3,DWTHP,A6 UPDATE HEAD POSITION LDK A3,0 SC A3,DWTBC,A6 CLEAR BYTE COUNTER * IHTW60 EQU * =3 LDK A1,0 ABL DISEND PERFORM TENDIO * * SKIP LDR* A2,A6 ORKL A2,TWSST EXR A2 SST RF(A) EXIT LDR* A2,A6 ORKL A2,TWHLT EXR A2 CIO HALT RF EXIT EJECT * * * * I/O COMMANDS * * STRTIO LDKL A1,TWSTRT EXECUTE CIO-START RF EXECIO HLTIO LDKL A1,TWHLT CIO-HALT RF EXECIO OTR LDKL A1,TWOTR OTR * * EXECIO LD A7,PFPOST RF(NZ) STREG PFINIT PENDING ORR* A1,A6 GET I/O-COMMAND EXR A1 EXECUTE COMMAND RF(NA) HALT STREG EQU * LDKL A1,/100 ORS A1,DWTST,A6 INDICATE INTERRUPTS ALLOWED ST A3,DWTA3,A6 SAVE REGISTER A3 ST A4,DWTA4,A6 A4 ST A5,DWTA5,A6 A5 EXIT ABL TDISP HALT ST A2,DWTA2,A6 CF A5,HLTIO EXECUTE CIO-HALT LD A2,DWTA2,A6 RB STRTIO RESTART REQUEST * * EJECT * * * * STORE CHARACTER IN ECB-BUFFER * * STORE LD A4,2,A8 GET BUFFER ADDRESS ADR A4,A3 GET CHARACTER ADDRESS SCR A2,A4 STORE CHARACTER ADK A3,1 INCREMENT BUFFER INDEX RTN A5 * * * IFT TIMOUT=1 * * * TIMOUT ROUTINE * * TWTUT EQU * LDR A6,A1 GET DWT-ADDRESS LDK A1,/40 TIME OUT RETURN CODE XIF * * EJECT * * * L D R E G E * * RESTORE A3-A5 FROM DWT AND RETURN TO USER VIA A5 * * LDREGE EQU * LD A3,DWTA3,A6 RELOAD REGISTER A3 LD A4,DWTA4,A6 A4 LD A5,DWTA5,A6 A5 LD A7,DWTOR,A6 ANK A7,/FF LD A8,DWTECB,A6 RTN A5 RETURN VIA A5-STACK EJECT * * * G E T C H R * * SUBROUTINE TO GET ONE CHARACTER FROM ECB-BUFFER * * ON ENTRY: * * A3 = BUFFER INDEX * A8 = ECB-ADDRESS * * ON EXIT: * * A2 = CHARACTER * A1 = 0 IF LAST CHARACTER ELSE # 0 * * IF LAST CHARACTER IS REACHED A3 IS STORED IN ECB EFFECTIVE LENGTH * * GETCHR EQU * LD A1,4,A8 REQUESTED LENGTH SUR A1,A3 RF(NP) GCH010 LAST CHARACTER REACHED LD A1,2,A8 GET BUFFER ADDRESS ADR A1,A3 LCR A2,A1 CHAR. TO A2 ANK A2,/FF ADK A3,1 INCREMENT BUFFER INDEX RTN A5 GCH010 ST A3,6,A8 STORE EFFECTIVE LENGTH RTN A5 EJECT * * DEVICE WORK TABLE FOR TYPEWRITER * * DWTW01 EQU * TABLE ENTRY DATA /0010 CHANNEL PARAMETER DATA /8000 STATUS./8000 MEANS DEVICE READY DATA 0 ECB ADDRESS DATA 0 ORDER DATA TWAD POINTER TO ADDRESS BLOCK DATA 0 TTAB-ADDRESS DATA 0 WAIT/ACTIVATE INDICATOR DATA 0 TERMINAL QUEUE IFT MMUPAG=1 DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB ADDRESS XIF DATA 0 OUTPUT QUEUE LINK DATA 0 SAVE AREA FOR A3 DATA 0 SAVE AREA FOR A4 DATA 0 SAVE AREA FOR A5 RES 4 STACK BASE DATA 1 TIMER POINTER DATA 0 ECHO DEVICE DATA /FF5F LEFT BYTE BACKSPACE KEY =4 RIGHT BYTE CANCEL KEY DATA /FF00 LEFT BYTE STANDARD EOR =4 RIGHT BYTE DOUBLE ZERO DATA 0 HEAD POSITION POINETR DATA 0 SAVE AREA FOR A2 DATA 0 ECHO DEV (CHANGED DWT-LAYOUT) =1 * EJECT DRTW01 * * IFT MMUPAG=1 DEVECB EQU * DATA 0 DATA TW:BUF DATA 0,0,0,0 RES DVBKTB+1 TW:BUF RES DVBLEN+1 XIF * * * END
0x0000…0036 (0, 0, 398) Head {h00=0x0032, h01=0x0050, text=» IDENT DRTW01 REL 11.0 81-06-12 870105041100 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0066 Head {h00=0x0024, h01=0x0050, text=» =4,COND. FOR BSP,CANC AND EOR«, t00=0x0000, t01=0x0042}
0x0066…0082 Head {h00=0x0018, h01=0x0050, text=» REL 11.0 81-04-15«, t00=0x0000, t01=0x006a}
0x0082…00b6 Head {h00=0x0030, h01=0x0050, text=» =3,ONLY CREDIT-INDEX FOR EOR-KEY IN KTAB «, t00=0x0000, t01=0x0086}
0x00b6…00d2 Head {h00=0x0018, h01=0x0050, text=» REL 11.0 81-01-26«, t00=0x0000, t01=0x00ba}
0x00d2…00fa Head {h00=0x0024, h01=0x0050, text=» =2,BOTH KEYTABLE AND STANDARD«, t00=0x0000, t01=0x00d6}
0x00fa…011c Head {h00=0x001e, h01=0x0050, text=» EOR-KEY WAS CHECKED «, t00=0x0000, t01=0x00fe}
0x011c…0138 Head {h00=0x0018, h01=0x0050, text=» REL 11.0 80-11-19«, t00=0x0000, t01=0x0120}
0x0138…0166 Head {h00=0x002a, h01=0x0050, text=» =1, PROBLEM WITH CHANGED DWT-LAYOUT«, t00=0x0000, t01=0x013c}
0x0166…0182 Head {h00=0x0018, h01=0x0050, text=» REL 10.0 80-03-14«, t00=0x0000, t01=0x016a}
0x0182…018a Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0186}
0x018a…0192 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x018e}
0x0192…019a Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0008}
0x019a…01d4 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0001, t01=0x0010}
0x01d4…01de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x004a}
0x01de…0206 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTE PTS «, t00=0x0001, t01=0x0054}
0x0206…0210 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x007c}
0x0210…0240 Head {h00=0x002c, h01=0x0050, text=»* DRTW01 = DRIVER TYPEWRITER PTS 6862 «, t00=0x0001, t01=0x0086}
0x0240…024a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00b6}
0x024a…0254 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00c0}
0x0254…025e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ca}
0x025e…0268 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00d4}
0x0268…0272 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00de}
0x0272…027c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00e8}
0x027c…02b6 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0001, t01=0x00f2}
0x02b6…02c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x012c}
0x02c0…0300 Head {h00=0x003c, h01=0x0050, text=»* THIS DRIVER HANDLES INPUT AND OUTPUT TO TYPEWRITERS «, t00=0x0001, t01=0x0136}
0x0300…0314 Head {h00=0x0010, h01=0x0050, text=»* PTS 6862«, t00=0x0001, t01=0x0176}
0x0314…031e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x018a}
0x031e…0328 (2, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0004}
0x0328…0336 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x000e}
0x0336…0340 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x001c}
0x0340…034a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0026}
0x034a…035e Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0002, t01=0x0030}
0x035e…0372 Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0002, t01=0x0044}
0x0372…0386 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0002, t01=0x0058}
0x0386…0390 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x006c}
0x0390…03b2 Head {h00=0x001e, h01=0x0050, text=» ENTRY TWAD ADDRESS BLOCK «, t00=0x0002, t01=0x0076}
0x03b2…03c6 Head {h00=0x0010, h01=0x0050, text=» ENTRY IHTW «, t00=0x0002, t01=0x0098}
0x03c6…03da Head {h00=0x0010, h01=0x0050, text=» ENTRY TWON «, t00=0x0002, t01=0x00ac}
0x03da…03f0 Head {h00=0x0012, h01=0x0050, text=» ENTRY DWTW01 «, t00=0x0002, t01=0x00c0}
0x03f0…03fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00d6}
0x03fa…0410 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0002, t01=0x00e0}
0x0410…0426 Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0002, t01=0x00f6}
0x0426…043c Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0002, t01=0x010c}
0x043c…0446 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0122}
0x0446…046a Head {h00=0x0020, h01=0x0050, text=» EXTRN DISIOE REQUEST ERROR «, t00=0x0002, t01=0x012c}
0x046a…0488 Head {h00=0x001a, h01=0x0050, text=» EXTRN TDISP DISPATCH «, t00=0x0002, t01=0x0150}
0x0488…04b0 Head {h00=0x0024, h01=0x0050, text=» EXTRN DISEND DISPATCH AND ENDIO«, t00=0x0002, t01=0x016e}
0x04b0…04de Head {h00=0x002a, h01=0x0050, text=» EXTRN SETIME SET TIME BEFORE TIME-OUT«, t00=0x0003, t01=0x0008}
0x04de…0510 Head {h00=0x002e, h01=0x0050, text=» EXTRN SAVE8 SAVE REGISTERS A1-A8 ON STACK«, t00=0x0003, t01=0x0036}
0x0510…052c Head {h00=0x0018, h01=0x0050, text=» EXTRN DWTST STATUS «, t00=0x0003, t01=0x0068}
0x052c…054e Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTBC BYTE COUNTER «, t00=0x0003, t01=0x0084}
0x054e…0570 Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTECB ECB ADDRESS «, t00=0x0003, t01=0x00a6}
0x0570…0598 Head {h00=0x0024, h01=0x0050, text=» EXTRN DWTOR DWT INDEX AND ORDER«, t00=0x0003, t01=0x00c8}
0x0598…05ba Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTA3 SAVE AREA A3 «, t00=0x0003, t01=0x00f0}
0x05ba…05dc Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTA4 SAVE AREA A4 «, t00=0x0003, t01=0x0112}
0x05dc…05fe Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTA5 SAVE AREA A5 «, t00=0x0003, t01=0x0134}
0x05fe…0628 Head {h00=0x0026, h01=0x0050, text=» EXTRN DWTSB1 STACK BASE 1 IN DWT «, t00=0x0003, t01=0x0156}
0x0628…0652 Head {h00=0x0026, h01=0x0050, text=» EXTRN DWTSB2 STACK BASE 2 IN DWT «, t00=0x0003, t01=0x0180}
0x0652…0674 Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTTP TIMER POINTER«, t00=0x0004, t01=0x001a}
0x0674…06a2 Head {h00=0x002a, h01=0x0050, text=» EXTRN INTSAV SAVE AREA LAST INTRRUPT «, t00=0x0004, t01=0x003c}
0x06a2…06d0 Head {h00=0x002a, h01=0x0050, text=» EXTRN PFPOST PWF POST PROCESSING FLAG«, t00=0x0004, t01=0x006a}
0x06d0…06de Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0098}
0x06de…06e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00a6}
0x06e8…06f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00b0}
0x06f2…070e Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0004, t01=0x00ba}
0x070e…0728 Head {h00=0x0016, h01=0x0050, text=»* I/O-INSTRUCTIONS«, t00=0x0004, t01=0x00d6}
0x0728…0744 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0004, t01=0x00f0}
0x0744…074e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x010c}
0x074e…0758 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0116}
0x0758…077a Head {h00=0x001e, h01=0x0050, text=»TWSTRT EQU /42C0 CIO-START«, t00=0x0004, t01=0x0120}
0x077a…079a Head {h00=0x001c, h01=0x0050, text=»TWHLT EQU /4280 CIO-HALT«, t00=0x0004, t01=0x0142}
0x079a…07b8 Head {h00=0x001a, h01=0x0050, text=»TWINR EQU /4A00 INPUT «, t00=0x0004, t01=0x0162}
0x07b8…07d6 Head {h00=0x001a, h01=0x0050, text=»TWOTR EQU /4200 OUTPUT«, t00=0x0004, t01=0x0180}
0x07d6…07fa Head {h00=0x0020, h01=0x0050, text=»TWSST EQU /4AC0 SENSE STATUS«, t00=0x0005, t01=0x000e}
0x07fa…0804 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0032}
0x0804…080e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x003c}
0x080e…081c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0046}
0x081c…0826 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0054}
0x0826…0830 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x005e}
0x0830…0846 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0005, t01=0x0068}
0x0846…085c Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x0005, t01=0x007e}
0x085c…0872 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0005, t01=0x0094}
0x0872…087c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00aa}
0x087c…0886 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00b4}
0x0886…08a8 Head {h00=0x001e, h01=0x0050, text=»CR EQU /0D CARRIAGE RETURN«, t00=0x0005, t01=0x00be}
0x08a8…08c4 Head {h00=0x0018, h01=0x0050, text=»LF EQU /0A LINE FEED«, t00=0x0005, t01=0x00e0}
0x08c4…08ea Head {h00=0x0022, h01=0x0050, text=»LNGERR EQU /8 INCORRECT LENGTH«, t00=0x0005, t01=0x00fc}
0x08ea…0910 Head {h00=0x0022, h01=0x0050, text=»TPERR EQU /2 THROUGHPUT ERROR «, t00=0x0005, t01=0x0122}
0x0910…093a Head {h00=0x0026, h01=0x0050, text=»TIME EQU 300 TIME BEFORE TIME-OUT «, t00=0x0005, t01=0x0148}
0x093a…0944 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0172}
0x0944…094e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x017c}
0x094e…096e Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0005, t01=0x0186}
0x096e…098e Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY*«, t00=0x0006, t01=0x0016}
0x098e…09ae Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0006, t01=0x0036}
0x09ae…09b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0056}
0x09b8…09c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0060}
0x09c2…09d4 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x0006, t01=0x006a}
0x09d4…09e6 Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x0006, t01=0x007c}
0x09e6…09f8 Head {h00=0x000e, h01=0x0050, text=»X:C EQU 60«, t00=0x0006, t01=0x008e}
0x09f8…0a0a Head {h00=0x000e, h01=0x0050, text=»X:D EQU 10«, t00=0x0006, t01=0x00a0}
0x0a0a…0a1c Head {h00=0x000e, h01=0x0050, text=»X:E EQU 6 «, t00=0x0006, t01=0x00b2}
0x0a1c…0a36 Head {h00=0x0016, h01=0x0050, text=»X:F EQU /5F5E =4 «, t00=0x0006, t01=0x00c4}
0x0a36…0a50 Head {h00=0x0016, h01=0x0050, text=»X:G EQU /0D00 =4 «, t00=0x0006, t01=0x00de}
0x0a50…0a58 Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x00f8}
0x0a58…0a70 Head {h00=0x0014, h01=0x0050, text=»TIMOUT EQU X:A «, t00=0x0006, t01=0x0100}
0x0a70…0a86 Head {h00=0x0012, h01=0x0050, text=»POWUP EQU X:B «, t00=0x0006, t01=0x0118}
0x0a86…0a9c Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU X:C«, t00=0x0006, t01=0x012e}
0x0a9c…0ab2 Head {h00=0x0012, h01=0x0050, text=»DVBKTB EQU X:D«, t00=0x0006, t01=0x0144}
0x0ab2…0ac8 Head {h00=0x0012, h01=0x0050, text=»DEVIND EQU X:E«, t00=0x0006, t01=0x015a}
0x0ac8…0ad0 Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x0170}
0x0ad0…0ade Head {h00=0x000a, h01=0x0050, text=» =3«, t00=0x0006, t01=0x0178}
0x0ade…0ae8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0186}
0x0ae8…0b1a Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0006, t01=0x0190}
0x0b1a…0b48 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0007, t01=0x0032}
0x0b48…0b52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0060}
0x0b52…0b66 Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 1«, t00=0x0007, t01=0x006a}
0x0b66…0b70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x007e}
0x0b70…0b7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0088}
0x0b7a…0bb4 Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0007, t01=0x0092}
0x0bb4…0be6 Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0007, t01=0x00cc}
0x0be6…0bf0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00fe}
0x0bf0…0c04 Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 0«, t00=0x0007, t01=0x0108}
0x0c04…0c0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x011c}
0x0c0e…0c1c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x0126}
0x0c1c…0c26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0134}
0x0c26…0c30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x013e}
0x0c30…0c4e Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0007, t01=0x0148}
0x0c4e…0c6c Head {h00=0x001a, h01=0x0050, text=»* DWT-DISPLACEMENTS * «, t00=0x0007, t01=0x0166}
0x0c6c…0c8a Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0007, t01=0x0184}
0x0c8a…0c94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0012}
0x0c94…0c9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x001c}
0x0c9e…0cd2 Head {h00=0x0030, h01=0x0050, text=»DWTDRD EQU /10 START OF DRIVER DEFINED PART «, t00=0x0008, t01=0x0026}
0x0cd2…0cdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x005a}
0x0cdc…0cf2 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0008, t01=0x0064}
0x0cf2…0d0a Head {h00=0x0014, h01=0x0050, text=»START EQU DWTDRD«, t00=0x0008, t01=0x007a}
0x0d0a…0d16 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x0092}
0x0d16…0d20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x009e}
0x0d20…0d36 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0008, t01=0x00a8}
0x0d36…0d50 Head {h00=0x0016, h01=0x0050, text=»START EQU DWTDRD+4«, t00=0x0008, t01=0x00be}
0x0d50…0d5c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0008, t01=0x00d8}
0x0d5c…0d66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00e4}
0x0d66…0d82 Head {h00=0x0018, h01=0x0050, text=»DWTHP EQU START+/18 «, t00=0x0008, t01=0x00ee}
0x0d82…0d9e Head {h00=0x0018, h01=0x0050, text=»TWCLR EQU START+/15 «, t00=0x0008, t01=0x010a}
0x0d9e…0dba Head {h00=0x0018, h01=0x0050, text=»TWEOF EQU START+/16 «, t00=0x0008, t01=0x0126}
0x0dba…0dd6 Head {h00=0x0018, h01=0x0050, text=»TWBSP EQU START+/14 «, t00=0x0008, t01=0x0142}
0x0dd6…0df2 Head {h00=0x0018, h01=0x0050, text=»DWTA2 EQU START+/1A «, t00=0x0008, t01=0x015e}
0x0df2…0e20 Head {h00=0x002a, h01=0x0050, text=» DATA DVBKTB+DVBKTB MMU KEY TABLE SIZE«, t00=0x0008, t01=0x017a}
0x0e20…0e4c Head {h00=0x0028, h01=0x0050, text=» DATA DVBLEN+DVBLEN MMU BUFFER SIZE «, t00=0x0009, t01=0x0018}
0x0e4c…0e6e Head {h00=0x001e, h01=0x0050, text=» DATA DEVIND DEVICE INDEX «, t00=0x0009, t01=0x0044}
0x0e6e…0e80 Head {h00=0x000e, h01=0x0050, text=»TWAD EQU *«, t00=0x0009, t01=0x0066}
0x0e80…0ea2 Head {h00=0x001e, h01=0x0050, text=» DATA TWA ACTIVATION PART «, t00=0x0009, t01=0x0078}
0x0ea2…0ec8 Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x0009, t01=0x009a}
0x0ec8…0ed6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x00c0}
0x0ed6…0ee0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00ce}
0x0ee0…0eea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00d8}
0x0eea…0f20 Head {h00=0x0032, h01=0x0050, text=»* ACTIVATION PART: CHECK VALIDITY OF ORDERS «, t00=0x0009, t01=0x00e2}
0x0f20…0f2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0118}
0x0f2a…0f34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0122}
0x0f34…0f46 Head {h00=0x000e, h01=0x0050, text=»TWA EQU * «, t00=0x0009, t01=0x012c}
0x0f46…0f58 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0009, t01=0x013e}
0x0f58…0f80 Head {h00=0x0024, h01=0x0050, text=» LD A2,4,A8 GET REQUESTED LENGTH«, t00=0x0009, t01=0x0150}
0x0f80…0faa Head {h00=0x0026, h01=0x0050, text=» ABL(Z) IHTW50 REQUESTED LENGTH =0«, t00=0x0009, t01=0x0178}
0x0faa…0fb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0012}
0x0fb4…0fbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x001c}
0x0fbe…0fdc Head {h00=0x001a, h01=0x0050, text=» LDR A2,A7 COPY ORDER «, t00=0x000a, t01=0x0026}
0x0fdc…1000 Head {h00=0x0020, h01=0x0050, text=» RF(NP) TWAERR REQUEST ERROR«, t00=0x000a, t01=0x0044}
0x1000…1012 Head {h00=0x000e, h01=0x0050, text=» SUK A2,4 «, t00=0x000a, t01=0x0068}
0x1012…1036 Head {h00=0x0020, h01=0x0050, text=» RF(Z) TWAERR REQUEST ERROR «, t00=0x000a, t01=0x007a}
0x1036…1058 Head {h00=0x001e, h01=0x0050, text=» RF(N) TWAIN INPUT REQUEST«, t00=0x000a, t01=0x009e}
0x1058…106a Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x000a, t01=0x00c0}
0x106a…1090 Head {h00=0x0022, h01=0x0050, text=» RF(NP) TWAOUT OUTPUT REQUEST «, t00=0x000a, t01=0x00d2}
0x1090…109a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00f8}
0x109a…10a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0102}
0x10a4…10cc Head {h00=0x0024, h01=0x0050, text=»TWAERR ABL DISIOE REQUEST ERROR «, t00=0x000a, t01=0x010c}
0x10cc…10da Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0134}
0x10da…10e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0142}
0x10e4…10ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x014c}
0x10ee…1102 Head {h00=0x0010, h01=0x0050, text=»TWAIN EQU * «, t00=0x000a, t01=0x0156}
0x1102…1118 Head {h00=0x0012, h01=0x0050, text=» IFT TIMOUT=1 «, t00=0x000a, t01=0x016a}
0x1118…1142 Head {h00=0x0026, h01=0x0050, text=» LD A2,DWTTP,A6 GET TIMER POINTER «, t00=0x000a, t01=0x0180}
0x1142…1170 Head {h00=0x002a, h01=0x0050, text=» RF(Z) TWA010 NO TIMING ON THIS DEVICE«, t00=0x000b, t01=0x001a}
0x1170…1194 Head {h00=0x0020, h01=0x0050, text=» LDR A1,A6 SAVE DWT-ADDRESS «, t00=0x000b, t01=0x0048}
0x1194…11aa Head {h00=0x0012, h01=0x0050, text=» CF A15,SETIME«, t00=0x000b, t01=0x006c}
0x11aa…11c2 Head {h00=0x0014, h01=0x0050, text=» DATA TWTUT,TIME«, t00=0x000b, t01=0x0082}
0x11c2…11f2 Head {h00=0x002c, h01=0x0050, text=» ST A4,DWTTP,A6 SAVE TIMER BLOCK-ADDRESS«, t00=0x000b, t01=0x009a}
0x11f2…11fe Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000b, t01=0x00ca}
0x11fe…1212 Head {h00=0x0010, h01=0x0050, text=»TWA010 EQU *«, t00=0x000b, t01=0x00d6}
0x1212…1226 Head {h00=0x0010, h01=0x0050, text=» IFT POWUP=1«, t00=0x000b, t01=0x00ea}
0x1226…124c Head {h00=0x0022, h01=0x0050, text=» LD A2,DWTST,A6 GET DWT-STATUS«, t00=0x000b, t01=0x00fe}
0x124c…1262 Head {h00=0x0012, h01=0x0050, text=» ANKL A2,/200 «, t00=0x000b, t01=0x0124}
0x1262…1296 Head {h00=0x0030, h01=0x0050, text=» RF(Z) TWA020 NOT FIRST READ AFTER POEWR UP «, t00=0x000b, t01=0x013a}
0x1296…12bc Head {h00=0x0022, h01=0x0050, text=» XRS A2,DWTST,A6 RESET POINTER«, t00=0x000b, t01=0x016e}
0x12bc…12d0 (12, 0, 400) Head {h00=0x0010, h01=0x0050, text=» LDKL A2,-2 «, t00=0x000c, t01=0x0004}
0x12d0…12f6 Head {h00=0x0022, h01=0x0050, text=» ST A2,10,A8 INDICATE POWER UP«, t00=0x000c, t01=0x0018}
0x12f6…1318 Head {h00=0x001e, h01=0x0050, text=» ABL IHTW35 PERFORM ENDIO «, t00=0x000c, t01=0x003e}
0x1318…1324 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x0060}
0x1324…133e Head {h00=0x0016, h01=0x0050, text=»TWA020 LDK A2,/21 «, t00=0x000c, t01=0x006c}
0x133e…1348 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0086}
0x1348…1352 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0090}
0x1352…137e Head {h00=0x0028, h01=0x0050, text=»READ CF A5,STRTIO EXECUTE CIO-START «, t00=0x000c, t01=0x009a}
0x137e…1390 Head {h00=0x000e, h01=0x0050, text=» RF RED030«, t00=0x000c, t01=0x00c6}
0x1390…13ba Head {h00=0x0026, h01=0x0050, text=»RED020 CF A5,STREG SAVE REGISTERS «, t00=0x000c, t01=0x00d8}
0x13ba…13c8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0102}
0x13c8…13d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0110}
0x13d2…13f4 Head {h00=0x001e, h01=0x0050, text=»* RETURN AFTER INTERRUPT«, t00=0x000c, t01=0x011a}
0x13f4…13fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x013c}
0x13fe…1408 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0146}
0x1408…141c Head {h00=0x0010, h01=0x0050, text=»RED030 EQU *«, t00=0x000c, t01=0x0150}
0x141c…1432 Head {h00=0x0012, h01=0x0050, text=» IFT TIMOUT=1 «, t00=0x000c, t01=0x0164}
0x1432…1444 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x000c, t01=0x017a}
0x1444…145a Head {h00=0x0012, h01=0x0050, text=» RF(NZ) RED037«, t00=0x000c, t01=0x018c}
0x145a…1466 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x0012}
0x1466…1478 Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x000d, t01=0x001e}
0x1478…149a Head {h00=0x001e, h01=0x0050, text=» RF(P) RED050 ORDERS 02/03«, t00=0x000d, t01=0x0030}
0x149a…14a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0052}
0x14a4…14ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x005c}
0x14ae…14e2 Head {h00=0x0030, h01=0x0050, text=»RED035 CF A5,STORE STORE CHARACTER IN BUFFER«, t00=0x000d, t01=0x0066}
0x14e2…14f6 Head {h00=0x0010, h01=0x0050, text=» CW A3,4,A8 «, t00=0x000d, t01=0x009a}
0x14f6…151e Head {h00=0x0024, h01=0x0050, text=» RB(L) RED020 GET NEXT CHARACTER«, t00=0x000d, t01=0x00ae}
0x151e…1530 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A7«, t00=0x000d, t01=0x00d6}
0x1530…1550 Head {h00=0x001c, h01=0x0050, text=» RF(Z) RED040 BASIC READ«, t00=0x000d, t01=0x00e8}
0x1550…155a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0108}
0x155a…1564 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0112}
0x1564…1584 Head {h00=0x001c, h01=0x0050, text=» LDK A1,LNGERR OVERFLOW «, t00=0x000d, t01=0x011c}
0x1584…15ae Head {h00=0x0026, h01=0x0050, text=»RED037 ORS A1,8,A8 SET RETURN CODE«, t00=0x000d, t01=0x013c}
0x15ae…15b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0166}
0x15b8…15c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0170}
0x15c2…15d0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x017a}
0x15d0…15d8 Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x0188}
0x15d8…15ec Head {h00=0x0010, h01=0x0050, text=»RED040 EQU *«, t00=0x000d, t01=0x0190}
0x15ec…15f4 Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x0014}
0x15f4…160a Head {h00=0x0012, h01=0x0050, text=» IFT TIMOUT=1 «, t00=0x000e, t01=0x001c}
0x160a…162c Head {h00=0x001e, h01=0x0050, text=» LD A7,DWTOR,A6 GET ORDER «, t00=0x000e, t01=0x0032}
0x162c…164a Head {h00=0x001a, h01=0x0050, text=» ANK A7,/FF MASK ORDER«, t00=0x000e, t01=0x0054}
0x164a…165c Head {h00=0x000e, h01=0x0050, text=» CWK A7,4 «, t00=0x000e, t01=0x0072}
0x165c…167e Head {h00=0x001e, h01=0x0050, text=» RF(G) RED045 WRITE ORDER «, t00=0x000e, t01=0x0084}
0x167e…16a4 Head {h00=0x0022, h01=0x0050, text=» LD A4,DWTTP,A6 TIMER POINTER «, t00=0x000e, t01=0x00a6}
0x16a4…16d2 Head {h00=0x002a, h01=0x0050, text=» RF(Z) RED045 NO TIMIMG ON THIS DEVICE«, t00=0x000e, t01=0x00cc}
0x16d2…16f4 Head {h00=0x001e, h01=0x0050, text=» CM* DWTTP,A6 RESET TIMER «, t00=0x000e, t01=0x00fa}
0x16f4…1700 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x011c}
0x1700…1708 Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x0128}
0x1708…171c Head {h00=0x0010, h01=0x0050, text=»RED045 EQU *«, t00=0x000e, t01=0x0130}
0x171c…1742 Head {h00=0x0022, h01=0x0050, text=» CF A5,HLTIO EXECUTE CIO-HALT «, t00=0x000e, t01=0x0144}
0x1742…1764 Head {h00=0x001e, h01=0x0050, text=» ABL IHTW40 PERFORM TENDIO«, t00=0x000e, t01=0x016a}
0x1764…1772 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x018c}
0x1772…177c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x000a}
0x177c…1786 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0014}
0x1786…1790 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x001e}
0x1790…17a8 Head {h00=0x0014, h01=0x0050, text=»* ORDERS 02,03«, t00=0x000f, t01=0x0028}
0x17a8…17b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0040}
0x17b2…17bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x004a}
0x17bc…17d0 Head {h00=0x0010, h01=0x0050, text=»RED050 EQU *«, t00=0x000f, t01=0x0054}
0x17d0…17f6 Head {h00=0x0022, h01=0x0050, text=» LD A1,10,A8 GET CONTROL WORD «, t00=0x000f, t01=0x0068}
0x17f6…1818 Head {h00=0x001e, h01=0x0050, text=» RF(Z) RED080 NO KEYTABLE «, t00=0x000f, t01=0x008e}
0x1818…183e Head {h00=0x0022, h01=0x0050, text=» LCR A4,A1 GET NUMBER OF KEYS «, t00=0x000f, t01=0x00b0}
0x183e…1852 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x000f, t01=0x00d6}
0x1852…1878 Head {h00=0x0022, h01=0x0050, text=» ADR A1,A4 ADDRESS TO LAST KEY«, t00=0x000f, t01=0x00ea}
0x1878…188a Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x000f, t01=0x0110}
0x188a…18a2 Head {h00=0x0014, h01=0x0050, text=»RED060 SUK A4,1 «, t00=0x000f, t01=0x0122}
0x18a2…18ce Head {h00=0x0028, h01=0x0050, text=» RF(N) RED085 KEY NOT IN KEYTABLE =2«, t00=0x000f, t01=0x013a}
0x18ce…18f2 Head {h00=0x0020, h01=0x0050, text=» SUK A1,1 DECREMENT ADDRESS «, t00=0x000f, t01=0x0166}
0x18f2…191a Head {h00=0x0024, h01=0x0050, text=» CCR A2,A1 CHECK IF IN KEYTABLE «, t00=0x000f, t01=0x018a}
0x191a…1940 Head {h00=0x0022, h01=0x0050, text=» RB(NE) RED060 NOT IN KEYTABLE«, t00=0x0010, t01=0x0022}
0x1940…1960 Head {h00=0x001c, h01=0x0050, text=» ADK A4,1 MAKE INDEX =3 «, t00=0x0010, t01=0x0048}
0x1960…1990 Head {h00=0x002c, h01=0x0050, text=» ST A4,10,A8 STORE INDEX IN CONTROL WORD«, t00=0x0010, t01=0x0068}
0x1990…19c6 Head {h00=0x0032, h01=0x0050, text=»RED070 CF A5,STORE STORE KEY IN ECB-BUFFER =2 «, t00=0x0010, t01=0x0098}
0x19c6…19ea Head {h00=0x0020, h01=0x0050, text=» RB RED040 EXECUTE CIO-HALT «, t00=0x0010, t01=0x00ce}
0x19ea…1a08 Head {h00=0x001a, h01=0x0050, text=»RED080 CC A2,TWEOF,A6 «, t00=0x0010, t01=0x00f2}
0x1a08…1a2e Head {h00=0x0022, h01=0x0050, text=» RB(E) RED070 STANDARD EOR-KEY«, t00=0x0010, t01=0x0110}
0x1a2e…1a48 Head {h00=0x0016, h01=0x0050, text=»RED085 EQU * =2 «, t00=0x0010, t01=0x0136}
0x1a48…1a60 Head {h00=0x0014, h01=0x0050, text=» CC A2,TWBSP,A6 «, t00=0x0010, t01=0x0150}
0x1a60…1a80 Head {h00=0x001c, h01=0x0050, text=» RF(E) RED110 BACKSPACE «, t00=0x0010, t01=0x0168}
0x1a80…1a98 Head {h00=0x0014, h01=0x0050, text=» CC A2,TWCLR,A6 «, t00=0x0010, t01=0x0188}
0x1a98…1ab4 Head {h00=0x0018, h01=0x0050, text=» RF(E) RED110 CLEAR «, t00=0x0011, t01=0x0010}
0x1ab4…1ac2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x002c}
0x1ac2…1acc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x003a}
0x1acc…1ad6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0044}
0x1ad6…1b02 Head {h00=0x0028, h01=0x0050, text=»* CHARACTER NOT FOUND IN KEYTABLE «, t00=0x0011, t01=0x004e}
0x1b02…1b0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x007a}
0x1b0c…1b16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0084}
0x1b16…1b20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x008e}
0x1b20…1b48 Head {h00=0x0024, h01=0x0050, text=»RED090 LDR A4,A2 COPY CHARACTER «, t00=0x0011, t01=0x0098}
0x1b48…1b60 Head {h00=0x0014, h01=0x0050, text=» ANK A4,/FF MASK«, t00=0x0011, t01=0x00c0}
0x1b60…1b72 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A7«, t00=0x0011, t01=0x00d8}
0x1b72…1b84 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0011, t01=0x00ea}
0x1b84…1ba2 Head {h00=0x001a, h01=0x0050, text=» RF(Z) RED100 ORDER 02«, t00=0x0011, t01=0x00fc}
0x1ba2…1bbe Head {h00=0x0018, h01=0x0050, text=» SUK A4,/30 ORDER 03«, t00=0x0011, t01=0x011a}
0x1bbe…1be2 Head {h00=0x0020, h01=0x0050, text=» RF(N) CODERR LESS THAN /30 «, t00=0x0011, t01=0x0136}
0x1be2…1bf4 Head {h00=0x000e, h01=0x0050, text=» SUK A4,/9«, t00=0x0011, t01=0x015a}
0x1bf4…1c1a Head {h00=0x0022, h01=0x0050, text=» RF(P) CODERR GREATER THAN /39«, t00=0x0011, t01=0x016c}
0x1c1a…1c2c (18, 0, 400) Head {h00=0x000e, h01=0x0050, text=» RF RED110«, t00=0x0012, t01=0x0004}
0x1c2c…1c36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0016}
0x1c36…1c40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0020}
0x1c40…1c5a Head {h00=0x0016, h01=0x0050, text=»RED100 SUK A4,/20 «, t00=0x0012, t01=0x002a}
0x1c5a…1c7e Head {h00=0x0020, h01=0x0050, text=» RF(N) CODERR LESS THAN /20 «, t00=0x0012, t01=0x0044}
0x1c7e…1c92 Head {h00=0x0010, h01=0x0050, text=» SUK A4,/3F «, t00=0x0012, t01=0x0068}
0x1c92…1cba Head {h00=0x0024, h01=0x0050, text=» RF(NP) RED110 CORRECT CHARACTER«, t00=0x0012, t01=0x007c}
0x1cba…1cc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00a4}
0x1cc4…1cce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00ae}
0x1cce…1cf6 Head {h00=0x0024, h01=0x0050, text=»CODERR LDK A1,4 CODE CHECK ERROR«, t00=0x0012, t01=0x00b8}
0x1cf6…1d0a Head {h00=0x0010, h01=0x0050, text=» ORS A1,8,A8«, t00=0x0012, t01=0x00e0}
0x1d0a…1d3c Head {h00=0x002e, h01=0x0050, text=» CF A5,STORE STORE CHARACTER IN ECB-BUFFER«, t00=0x0012, t01=0x00f4}
0x1d3c…1d60 Head {h00=0x0020, h01=0x0050, text=» RB RED040 EXECUTE CIO-HALT «, t00=0x0012, t01=0x0126}
0x1d60…1d6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x014a}
0x1d6a…1d74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0154}
0x1d74…1d82 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x015e}
0x1d82…1d8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x016c}
0x1d8c…1d96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0176}
0x1d96…1da0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0180}
0x1da0…1dbe Head {h00=0x001a, h01=0x0050, text=»RED110 CC A2,TWBSP,A6 «, t00=0x0012, t01=0x018a}
0x1dbe…1dde Head {h00=0x001c, h01=0x0050, text=» RF(E) RED120 BACKSPACE «, t00=0x0013, t01=0x0018}
0x1dde…1df6 Head {h00=0x0014, h01=0x0050, text=» CC A2,TWCLR,A6 «, t00=0x0013, t01=0x0038}
0x1df6…1e0c Head {h00=0x0012, h01=0x0050, text=» RB(NE) RED035«, t00=0x0013, t01=0x0050}
0x1e0c…1e16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0066}
0x1e16…1e20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0070}
0x1e20…1e42 Head {h00=0x001e, h01=0x0050, text=» LDK A3,0 CLEAR ECB-BUFFER«, t00=0x0013, t01=0x007a}
0x1e42…1e68 Head {h00=0x0022, h01=0x0050, text=» RB RED020 GET NEXT CHARACTER «, t00=0x0013, t01=0x009c}
0x1e68…1e72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00c2}
0x1e72…1e7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00cc}
0x1e7c…1e9e Head {h00=0x001e, h01=0x0050, text=»RED120 SUK A3,1 BACKSPACE «, t00=0x0013, t01=0x00d6}
0x1e9e…1ec8 Head {h00=0x0026, h01=0x0050, text=» RB(NN) RED020 GET NEXT CHARACTER «, t00=0x0013, t01=0x00f8}
0x1ec8…1eda Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0013, t01=0x0122}
0x1eda…1f00 Head {h00=0x0022, h01=0x0050, text=» RB RED020 GET NEXT CHARACTER «, t00=0x0013, t01=0x0134}
0x1f00…1f0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x015a}
0x1f0a…1f14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0164}
0x1f14…1f1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x016e}
0x1f1e…1f2c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x0178}
0x1f2c…1f36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0186}
0x1f36…1f40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0190}
0x1f40…1f56 Head {h00=0x0012, h01=0x0050, text=»* W R I T E «, t00=0x0014, t01=0x000a}
0x1f56…1f60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0020}
0x1f60…1f98 Head {h00=0x0034, h01=0x0050, text=»* ORDERS 05 AND 06: BASIC AND STANDARD WRITE «, t00=0x0014, t01=0x002a}
0x1f98…1fa2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0062}
0x1fa2…1fac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x006c}
0x1fac…1fc0 Head {h00=0x0010, h01=0x0050, text=»WRITE EQU * «, t00=0x0014, t01=0x0076}
0x1fc0…1fd4 Head {h00=0x0010, h01=0x0050, text=»TWAOUT EQU *«, t00=0x0014, t01=0x008a}
0x1fd4…1fe0 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0014, t01=0x009e}
0x1fe0…1ff2 Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0014, t01=0x00aa}
0x1ff2…2004 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0014, t01=0x00bc}
0x2004…202c Head {h00=0x0024, h01=0x0050, text=» CF A5,STRTIO EXECUTE CIO-START «, t00=0x0014, t01=0x00ce}
0x202c…2036 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00f6}
0x2036…2040 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0100}
0x2040…2052 Head {h00=0x000e, h01=0x0050, text=» CWK A7,5 «, t00=0x0014, t01=0x010a}
0x2052…2070 Head {h00=0x001a, h01=0x0050, text=» RF(Z) WRT050 ORDER 05«, t00=0x0014, t01=0x011c}
0x2070…207a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x013a}
0x207a…2084 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0144}
0x2084…20aa Head {h00=0x0022, h01=0x0050, text=» LD A3,2,A8 GET BUFFER ADDRESS«, t00=0x0014, t01=0x014e}
0x20aa…20d0 Head {h00=0x0022, h01=0x0050, text=» LC A3,1,A3 CONTROL CHARACTER «, t00=0x0014, t01=0x0174}
0x20d0…20e4 Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x0015, t01=0x000a}
0x20e4…20f8 Head {h00=0x0010, h01=0x0050, text=» SUK A3,/2B «, t00=0x0015, t01=0x001e}
0x20f8…211a Head {h00=0x001e, h01=0x0050, text=» RF(Z) WRT030 NO CR OR LF «, t00=0x0015, t01=0x0032}
0x211a…2124 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0054}
0x2124…212e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x005e}
0x212e…215e Head {h00=0x002c, h01=0x0050, text=» ST A4,DWTHP,A6 HEAD POSITION INDICATOR «, t00=0x0015, t01=0x0068}
0x215e…2170 Head {h00=0x000e, h01=0x0050, text=» LDK A4,2 «, t00=0x0015, t01=0x0098}
0x2170…2198 Head {h00=0x0024, h01=0x0050, text=» LDK A2,CR SEND CARRIAGE RETURN «, t00=0x0015, t01=0x00aa}
0x2198…21a6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x00d2}
0x21a6…21b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00e0}
0x21b0…21ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00ea}
0x21ba…21c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00f4}
0x21c4…21ec Head {h00=0x0024, h01=0x0050, text=»WRT010 CF A5,OTR SEND CHARACTER «, t00=0x0015, t01=0x00fe}
0x21ec…21f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0126}
0x21f6…2200 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0130}
0x2200…2212 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0015, t01=0x013a}
0x2212…2228 Head {h00=0x0012, h01=0x0050, text=» RF(NP) WRT020«, t00=0x0015, t01=0x014c}
0x2228…2248 Head {h00=0x001c, h01=0x0050, text=»WRT015 LDK A2,LF SEND LF«, t00=0x0015, t01=0x0162}
0x2248…225a Head {h00=0x000e, h01=0x0050, text=» RB WRT010«, t00=0x0015, t01=0x0182}
0x225a…2264 (22, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0004}
0x2264…227c Head {h00=0x0014, h01=0x0050, text=»WRT020 SUK A3,5 «, t00=0x0016, t01=0x000e}
0x227c…22a0 Head {h00=0x0020, h01=0x0050, text=» RB(Z) WRT015 SEND SECOND LF«, t00=0x0016, t01=0x0026}
0x22a0…22b2 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0016, t01=0x004a}
0x22b2…22ca Head {h00=0x0014, h01=0x0050, text=» RF(NZ) WRT030 «, t00=0x0016, t01=0x005c}
0x22ca…22ec Head {h00=0x001e, h01=0x0050, text=» LDK A2,/0C SEND FORM FEED«, t00=0x0016, t01=0x0074}
0x22ec…22fe Head {h00=0x000e, h01=0x0050, text=» RB WRT010«, t00=0x0016, t01=0x0096}
0x22fe…2324 Head {h00=0x0022, h01=0x0050, text=»WRT030 LDK A3,2 BUFFER POINTER«, t00=0x0016, t01=0x00a8}
0x2324…2344 Head {h00=0x001c, h01=0x0050, text=» RF WRT050 GET CHARACTER«, t00=0x0016, t01=0x00ce}
0x2344…234e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00ee}
0x234e…2358 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00f8}
0x2358…2362 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0102}
0x2362…2376 Head {h00=0x0010, h01=0x0050, text=»WRT040 EQU *«, t00=0x0016, t01=0x010c}
0x2376…2398 Head {h00=0x001e, h01=0x0050, text=» CF A5,OTR SEND CHARACTER «, t00=0x0016, t01=0x0120}
0x2398…23c4 Head {h00=0x0028, h01=0x0050, text=» IM DWTST,A6 INCREMENT BYTE COUNTER «, t00=0x0016, t01=0x0142}
0x23c4…23d2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x016e}
0x23d2…23dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x017c}
0x23dc…23e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0186}
0x23e6…23f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0190}
0x23f0…242a Head {h00=0x0036, h01=0x0050, text=»WRT050 CF A5,GETCHR GET CHARACTER FROM ECB-BUFFER «, t00=0x0017, t01=0x000a}
0x242a…243e Head {h00=0x0010, h01=0x0050, text=» LDR A1,A1 «, t00=0x0017, t01=0x0044}
0x243e…2462 Head {h00=0x0020, h01=0x0050, text=» RB(Z) RED040 LAST CHARACTER«, t00=0x0017, t01=0x0058}
0x2462…2474 Head {h00=0x000e, h01=0x0050, text=» CWK A7,5 «, t00=0x0017, t01=0x007c}
0x2474…2496 Head {h00=0x001e, h01=0x0050, text=» RB(Z) WRT040 BASIC WRITE «, t00=0x0017, t01=0x008e}
0x2496…24a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00b0}
0x24a0…24aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00ba}
0x24aa…24d6 Head {h00=0x0028, h01=0x0050, text=» LDR A1,A2 ORDER 06: STANDARD WRITE «, t00=0x0017, t01=0x00c4}
0x24d6…24ea Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0017, t01=0x00f0}
0x24ea…24fe Head {h00=0x0010, h01=0x0050, text=» SUK A1,/07 «, t00=0x0017, t01=0x0104}
0x24fe…2518 Head {h00=0x0016, h01=0x0050, text=» RB(Z) WRT040 BELL«, t00=0x0017, t01=0x0118}
0x2518…2522 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0132}
0x2522…2534 Head {h00=0x000e, h01=0x0050, text=» SUK A1,/A«, t00=0x0017, t01=0x013c}
0x2534…2554 Head {h00=0x001c, h01=0x0050, text=» RF(E) WRTTAB TABULATION«, t00=0x0017, t01=0x014e}
0x2554…255e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x016e}
0x255e…2570 Head {h00=0x000e, h01=0x0050, text=» SUK A1,/F«, t00=0x0017, t01=0x0178}
0x2570…2594 Head {h00=0x0020, h01=0x0050, text=» RF(L) ERRCOD LESS THAN /20 «, t00=0x0017, t01=0x018a}
0x2594…25a8 Head {h00=0x0010, h01=0x0050, text=» SUK A1,/3F «, t00=0x0018, t01=0x001e}
0x25a8…25ce Head {h00=0x0022, h01=0x0050, text=» RB(NP) WRT040 BETWEEN /20-/5F«, t00=0x0018, t01=0x0032}
0x25ce…25e2 Head {h00=0x0010, h01=0x0050, text=» SUK A1,/20 «, t00=0x0018, t01=0x0058}
0x25e2…2608 Head {h00=0x0022, h01=0x0050, text=» RF(NP) WRT060 BETWEEN /60-/7F«, t00=0x0018, t01=0x006c}
0x2608…2612 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0092}
0x2612…261c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x009c}
0x261c…2634 Head {h00=0x0014, h01=0x0050, text=»ERRCOD LDK A1,4 «, t00=0x0018, t01=0x00a6}
0x2634…2648 Head {h00=0x0010, h01=0x0050, text=» ORS A1,8,A8«, t00=0x0018, t01=0x00be}
0x2648…266e Head {h00=0x0022, h01=0x0050, text=» RB WRT050 GET NEXT CHARACTER «, t00=0x0018, t01=0x00d2}
0x266e…2678 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00f8}
0x2678…2682 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0102}
0x2682…269c Head {h00=0x0016, h01=0x0050, text=»WRT060 SUK A2,/20 «, t00=0x0018, t01=0x010c}
0x269c…26ae Head {h00=0x000e, h01=0x0050, text=» RB WRT040«, t00=0x0018, t01=0x0126}
0x26ae…26b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0138}
0x26b8…26c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0142}
0x26c2…26d0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x014c}
0x26d0…26da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x015a}
0x26da…26e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0164}
0x26e4…2704 Head {h00=0x001c, h01=0x0050, text=»* T A B U L A T I O N «, t00=0x0018, t01=0x016e}
0x2704…270e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x018e}
0x270e…2718 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0008}
0x2718…272c Head {h00=0x0010, h01=0x0050, text=»WRTTAB EQU *«, t00=0x0019, t01=0x0012}
0x272c…2762 Head {h00=0x0032, h01=0x0050, text=» CF A5,GETCHR GET FIRST TAB.POSITION CHARACTER«, t00=0x0019, t01=0x0026}
0x2762…277a Head {h00=0x0014, h01=0x0050, text=» LDR A4,A2 COPY «, t00=0x0019, t01=0x005c}
0x277a…27b2 Head {h00=0x0034, h01=0x0050, text=» CF A5,GETCHR GET SECOND TAB. POSITION CHARACTER«, t00=0x0019, t01=0x0074}
0x27b2…27c4 Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x0019, t01=0x00ac}
0x27c4…27d6 Head {h00=0x000e, h01=0x0050, text=» ANK A4,/F«, t00=0x0019, t01=0x00be}
0x27d6…27ec Head {h00=0x0012, h01=0x0050, text=» RF(Z) TAB020 «, t00=0x0019, t01=0x00d0}
0x27ec…2804 Head {h00=0x0014, h01=0x0050, text=»TAB010 ADK A2,/A«, t00=0x0019, t01=0x00e6}
0x2804…2816 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0019, t01=0x00fe}
0x2816…282c Head {h00=0x0012, h01=0x0050, text=» RB(NZ) TAB010«, t00=0x0019, t01=0x0110}
0x282c…2836 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0126}
0x2836…2854 Head {h00=0x001a, h01=0x0050, text=»TAB020 SU A2,DWTHP,A6 «, t00=0x0019, t01=0x0130}
0x2854…288c Head {h00=0x0034, h01=0x0050, text=» LC A4,DWTBC,A6 GET NUMBER OF OUTPUT CHARACTERS «, t00=0x0019, t01=0x014e}
0x288c…28ba Head {h00=0x002a, h01=0x0050, text=» SUR A2,A4 NUMBER OF SPACES TO BE SENT«, t00=0x0019, t01=0x0186}
0x28ba…28ea Head {h00=0x002c, h01=0x0050, text=» RB(NP) WRT050 NO SPACES SHOULD BE SENT «, t00=0x001a, t01=0x0024}
0x28ea…28fc Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x001a, t01=0x0054}
0x28fc…2922 Head {h00=0x0022, h01=0x0050, text=»TAB030 LDK A2,/20 SEND BALNKS «, t00=0x001a, t01=0x0066}
0x2922…294a Head {h00=0x0024, h01=0x0050, text=»TAB040 CF A5,OTR SEND CHARACTER «, t00=0x001a, t01=0x008c}
0x294a…2976 Head {h00=0x0028, h01=0x0050, text=» IM DWTST,A6 INCREMENT BYTE COUNTER «, t00=0x001a, t01=0x00b4}
0x2976…2988 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x001a, t01=0x00e0}
0x2988…29b2 Head {h00=0x0026, h01=0x0050, text=» RB(NZ) TAB030 SEND ANOTHER SPACE «, t00=0x001a, t01=0x00f2}
0x29b2…29c4 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A3«, t00=0x001a, t01=0x011c}
0x29c4…29e8 Head {h00=0x0020, h01=0x0050, text=» RB(NZ) WRT050 NOT RECOVERY «, t00=0x001a, t01=0x012e}
0x29e8…2a12 Head {h00=0x0026, h01=0x0050, text=» SC A4,DWTBC,A6 RESET BYTE COUNTER«, t00=0x001a, t01=0x0152}
0x2a12…2a38 Head {h00=0x0022, h01=0x0050, text=» LDK A3,2 PRESET BUFFER INDEX «, t00=0x001a, t01=0x017c}
0x2a38…2a5e Head {h00=0x0022, h01=0x0050, text=» RB WRT050 GET NEXT CHARACTER «, t00=0x001b, t01=0x0012}
0x2a5e…2a6c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x0038}
0x2a6c…2a76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0046}
0x2a76…2a80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0050}
0x2a80…2a9c Head {h00=0x0018, h01=0x0050, text=»* RECOVERY ROUTINE«, t00=0x001b, t01=0x005a}
0x2a9c…2aa6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0076}
0x2aa6…2ab0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0080}
0x2ab0…2aba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x008a}
0x2aba…2acc Head {h00=0x000e, h01=0x0050, text=»TWON EQU *«, t00=0x001b, t01=0x0094}
0x2acc…2ae2 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x001b, t01=0x00a6}
0x2ae2…2b0c Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x001b, t01=0x00bc}
0x2b0c…2b18 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x00e6}
0x2b18…2b22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00f2}
0x2b22…2b38 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x001b, t01=0x00fc}
0x2b38…2b5e Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x001b, t01=0x0112}
0x2b5e…2b6a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x0138}
0x2b6a…2b74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0144}
0x2b74…2b9c Head {h00=0x0024, h01=0x0050, text=» LDKL A6,DWTW01 GET DWT-ADDRESS «, t00=0x001b, t01=0x014e}
0x2b9c…2bb0 Head {h00=0x0010, h01=0x0050, text=» IFT POWUP=1«, t00=0x001b, t01=0x0176}
0x2bb0…2bc6 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/200 «, t00=0x001b, t01=0x018a}
0x2bc6…2bf0 Head {h00=0x0026, h01=0x0050, text=» ORS A1,DWTST,A6 INDICATE POWER UP«, t00=0x001c, t01=0x0010}
0x2bf0…2bfc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x003a}
0x2bfc…2c14 Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTST,A6 «, t00=0x001c, t01=0x0046}
0x2c14…2c38 Head {h00=0x0020, h01=0x0050, text=» RF(N) EXIT DEVICE NOT BUSY «, t00=0x001c, t01=0x005e}
0x2c38…2c56 Head {h00=0x001a, h01=0x0050, text=»TWON10 LD A3,DWTA3,A6 «, t00=0x001c, t01=0x0082}
0x2c56…2c78 Head {h00=0x001e, h01=0x0050, text=» LD A7,DWTOR,A6 GET ORDER «, t00=0x001c, t01=0x00a0}
0x2c78…2c8c Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x001c, t01=0x00c2}
0x2c8c…2cb0 Head {h00=0x0020, h01=0x0050, text=» LD A8,DWTECB,A6 ECB-ADDRESS«, t00=0x001c, t01=0x00d6}
0x2cb0…2cc8 Head {h00=0x0014, h01=0x0050, text=» LDKL A5,DWTSB2 «, t00=0x001c, t01=0x00fa}
0x2cc8…2cea Head {h00=0x001e, h01=0x0050, text=» ADR A5,A6 GET STACK BASE «, t00=0x001c, t01=0x0112}
0x2cea…2cfc Head {h00=0x000e, h01=0x0050, text=» SUK A7,4 «, t00=0x001c, t01=0x0134}
0x2cfc…2d22 Head {h00=0x0022, h01=0x0050, text=» ABL(N) TWA010 ORDERS 01,02,03«, t00=0x001c, t01=0x0146}
0x2d22…2d34 Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x001c, t01=0x016c}
0x2d34…2d52 Head {h00=0x001a, h01=0x0050, text=» RF(Z) TWON20 ORDER 05«, t00=0x001c, t01=0x017e}
0x2d52…2d5e Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x001d, t01=0x000c}
0x2d5e…2d70 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x001d, t01=0x0018}
0x2d70…2d98 Head {h00=0x0024, h01=0x0050, text=» CF A5,STRTIO EXECUTE CIO-START «, t00=0x001d, t01=0x002a}
0x2d98…2daa Head {h00=0x000e, h01=0x0050, text=» LDK A2,CR«, t00=0x001d, t01=0x0052}
0x2daa…2dbc Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x001d, t01=0x0064}
0x2dbc…2dd4 Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTHP,A6 «, t00=0x001d, t01=0x0076}
0x2dd4…2de6 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x001d, t01=0x008e}
0x2de6…2e0e Head {h00=0x0024, h01=0x0050, text=» RB TAB040 REPRINT LAST REQUEST «, t00=0x001d, t01=0x00a0}
0x2e0e…2e18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00c8}
0x2e18…2e3c Head {h00=0x0020, h01=0x0050, text=»TWON20 LDK A1,TPERR ORDER 05«, t00=0x001d, t01=0x00d2}
0x2e3c…2e50 Head {h00=0x0010, h01=0x0050, text=» ABL DISEND «, t00=0x001d, t01=0x00f6}
0x2e50…2e5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x010a}
0x2e5a…2e64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0114}
0x2e64…2e72 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x011e}
0x2e72…2e7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x012c}
0x2e7c…2e86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0136}
0x2e86…2e9a Head {h00=0x0010, h01=0x0050, text=»* I H T W «, t00=0x001d, t01=0x0140}
0x2e9a…2ea4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0154}
0x2ea4…2ed8 Head {h00=0x0030, h01=0x0050, text=»* INTERRUPT HANDLER: PROCESS OF INTERRUPT «, t00=0x001d, t01=0x015e}
0x2ed8…2ee2 (30, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0004}
0x2ee2…2eec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x000e}
0x2eec…2efe Head {h00=0x000e, h01=0x0050, text=»IHTW EQU *«, t00=0x001e, t01=0x0018}
0x2efe…2f26 Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x001e, t01=0x002a}
0x2f26…2f3c Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x001e, t01=0x0052}
0x2f3c…2f66 Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x001e, t01=0x0068}
0x2f66…2f72 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x0092}
0x2f72…2f7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x009e}
0x2f7c…2f92 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x001e, t01=0x00a8}
0x2f92…2fb8 Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x001e, t01=0x00be}
0x2fb8…2fc4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x00e4}
0x2fc4…2fce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00f0}
0x2fce…2fe6 Head {h00=0x0014, h01=0x0050, text=» LDKL A6,DWTW01 «, t00=0x001e, t01=0x00fa}
0x2fe6…2ffa Head {h00=0x0010, h01=0x0050, text=»LDREG EQU * «, t00=0x001e, t01=0x0112}
0x2ffa…3012 Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTST,A6 «, t00=0x001e, t01=0x0126}
0x3012…3036 Head {h00=0x0020, h01=0x0050, text=» RF(N) SKIP DEVICE NOT BUSY «, t00=0x001e, t01=0x013e}
0x3036…3062 Head {h00=0x0028, h01=0x0050, text=»IHTW10 LDR* A2,A6 GET DEVICE ADDRESS«, t00=0x001e, t01=0x0162}
0x3062…3078 Head {h00=0x0012, h01=0x0050, text=» ORKL A2,TWSST«, t00=0x001e, t01=0x018e}
0x3078…3094 Head {h00=0x0018, h01=0x0050, text=» EXR A2 EXECUTE SST «, t00=0x001f, t01=0x0014}
0x3094…30b0 Head {h00=0x0018, h01=0x0050, text=» RF(A) IHTW30 ENDIO «, t00=0x001f, t01=0x0030}
0x30b0…30d2 Head {h00=0x001e, h01=0x0050, text=» LD A7,DWTOR,A6 GET ORDER «, t00=0x001f, t01=0x004c}
0x30d2…30e6 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x001f, t01=0x006e}
0x30e6…30f8 Head {h00=0x000e, h01=0x0050, text=» SUK A7,4 «, t00=0x001f, t01=0x0082}
0x30f8…310e Head {h00=0x0012, h01=0x0050, text=» RF(P) IHTW30 «, t00=0x001f, t01=0x0094}
0x310e…3134 Head {h00=0x0022, h01=0x0050, text=» LDR* A2,A6 GET DEVICE ADDRESS«, t00=0x001f, t01=0x00aa}
0x3134…314c Head {h00=0x0014, h01=0x0050, text=» ORKL A2,TWINR «, t00=0x001f, t01=0x00d0}
0x314c…3168 Head {h00=0x0018, h01=0x0050, text=» EXR A2 EXECUTE INR «, t00=0x001f, t01=0x00e8}
0x3168…3190 Head {h00=0x0024, h01=0x0050, text=» ANK A2,/7F MASK INPUT-CHARACTER«, t00=0x001f, t01=0x0104}
0x3190…319e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x012c}
0x319e…31a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x013a}
0x31a8…31be Head {h00=0x0012, h01=0x0050, text=» IFT TIMOUT=1 «, t00=0x001f, t01=0x0144}
0x31be…31e8 Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTTP,A6 GET TIMER POINTER «, t00=0x001f, t01=0x015a}
0x31e8…3216 Head {h00=0x002a, h01=0x0050, text=» RF(Z) IHTW30 NO TIMING ON THIS DEVICE«, t00=0x001f, t01=0x0184}
0x3216…322c Head {h00=0x0012, h01=0x0050, text=» LDKL A1,-TIME«, t00=0x0020, t01=0x0022}
0x322c…3244 Head {h00=0x0014, h01=0x0050, text=» ST* A1,DWTTP,A6«, t00=0x0020, t01=0x0038}
0x3244…3250 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x0050}
0x3250…325a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x005c}
0x325a…3264 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0066}
0x3264…327c Head {h00=0x0014, h01=0x0050, text=»IHTW30 LDK A1,0 «, t00=0x0020, t01=0x0070}
0x327c…32a0 Head {h00=0x0020, h01=0x0050, text=» RF LDREGE RESTORE REGISTERS«, t00=0x0020, t01=0x0088}
0x32a0…32a8 Head {h00=0x0004, h01=0x0050, t00=0x0020, t01=0x00ac}
0x32a8…32b0 Head {h00=0x0004, h01=0x0050, t00=0x0020, t01=0x00b4}
0x32b0…32c4 Head {h00=0x0010, h01=0x0050, text=»IHTW35 EQU *«, t00=0x0020, t01=0x00bc}
0x32c4…32e0 Head {h00=0x0018, h01=0x0050, text=» IFT POWUP+TIMOUT=2 «, t00=0x0020, t01=0x00d0}
0x32e0…32e8 Head {h00=0x0004, h01=0x0050, t00=0x0020, t01=0x00ec}
0x32e8…330e Head {h00=0x0022, h01=0x0050, text=» LD A1,DWTTP,A6 TIMER POINTER «, t00=0x0020, t01=0x00f4}
0x330e…333c Head {h00=0x002a, h01=0x0050, text=» RF(Z) IHTW40 NO TIMING ON THIS DEVICE«, t00=0x0020, t01=0x011a}
0x333c…335e Head {h00=0x001e, h01=0x0050, text=» CM* DWTTP,A6 RESET TIMER «, t00=0x0020, t01=0x0148}
0x335e…336a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x016a}
0x336a…3378 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x0176}
0x3378…3382 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0184}
0x3382…338c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x018e}
0x338c…33a0 Head {h00=0x0010, h01=0x0050, text=»IHTW40 EQU *«, t00=0x0021, t01=0x0008}
0x33a0…33aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x001c}
0x33aa…33b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0026}
0x33b4…33e4 Head {h00=0x002c, h01=0x0050, text=»IHTW50 ST A3,6,A8 SAVE EFFECTIVE LENGTH «, t00=0x0021, t01=0x0030}
0x33e4…33fc Head {h00=0x0014, h01=0x0050, text=»IHTW55 SUK A7,4 «, t00=0x0021, t01=0x0060}
0x33fc…341e Head {h00=0x001e, h01=0x0050, text=» RF(NP) IHTW60 READ ORDER «, t00=0x0021, t01=0x0078}
0x341e…3428 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x009a}
0x3428…3432 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00a4}
0x3432…345a Head {h00=0x0024, h01=0x0050, text=» LC A3,DWTBC,A6 GET BYTE COUNTER«, t00=0x0021, t01=0x00ae}
0x345a…3488 Head {h00=0x002a, h01=0x0050, text=» ADS A3,DWTHP,A6 UPDATE HEAD POSITION «, t00=0x0021, t01=0x00d6}
0x3488…349a Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0021, t01=0x0104}
0x349a…34c4 Head {h00=0x0026, h01=0x0050, text=» SC A3,DWTBC,A6 CLEAR BYTE COUNTER«, t00=0x0021, t01=0x0116}
0x34c4…34ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0140}
0x34ce…34e2 Head {h00=0x0010, h01=0x0050, text=»IHTW60 EQU *«, t00=0x0021, t01=0x014a}
0x34e2…34f0 Head {h00=0x000a, h01=0x0050, text=» =3«, t00=0x0021, t01=0x015e}
0x34f0…3502 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0021, t01=0x016c}
0x3502…3524 Head {h00=0x001e, h01=0x0050, text=» ABL DISEND PERFORM TENDIO«, t00=0x0021, t01=0x017e}
0x3524…352e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0010}
0x352e…3538 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x001a}
0x3538…3540 Head {h00=0x0004, h01=0x0050, t00=0x0022, t01=0x0024}
0x3540…3558 Head {h00=0x0014, h01=0x0050, text=»SKIP LDR* A2,A6 «, t00=0x0022, t01=0x002c}
0x3558…356e Head {h00=0x0012, h01=0x0050, text=» ORKL A2,TWSST«, t00=0x0022, t01=0x0044}
0x356e…3582 Head {h00=0x0010, h01=0x0050, text=» EXR A2 SST «, t00=0x0022, t01=0x005a}
0x3582…3596 Head {h00=0x0010, h01=0x0050, text=» RF(A) EXIT «, t00=0x0022, t01=0x006e}
0x3596…35aa Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A6 «, t00=0x0022, t01=0x0082}
0x35aa…35c0 Head {h00=0x0012, h01=0x0050, text=» ORKL A2,TWHLT«, t00=0x0022, t01=0x0096}
0x35c0…35d8 Head {h00=0x0014, h01=0x0050, text=» EXR A2 CIO HALT«, t00=0x0022, t01=0x00ac}
0x35d8…35e8 Head {h00=0x000c, h01=0x0050, text=» RF EXIT«, t00=0x0022, t01=0x00c4}
0x35e8…35f6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x00d4}
0x35f6…3600 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00e2}
0x3600…360a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00ec}
0x360a…3614 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00f6}
0x3614…362c Head {h00=0x0014, h01=0x0050, text=»* I/O COMMANDS«, t00=0x0022, t01=0x0100}
0x362c…3636 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0118}
0x3636…3640 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0122}
0x3640…3670 Head {h00=0x002c, h01=0x0050, text=»STRTIO LDKL A1,TWSTRT EXECUTE CIO-START «, t00=0x0022, t01=0x012c}
0x3670…3682 Head {h00=0x000e, h01=0x0050, text=» RF EXECIO«, t00=0x0022, t01=0x015c}
0x3682…36ae Head {h00=0x0028, h01=0x0050, text=»HLTIO LDKL A1,TWHLT CIO-HALT«, t00=0x0022, t01=0x016e}
0x36ae…36c0 Head {h00=0x000e, h01=0x0050, text=» RF EXECIO«, t00=0x0023, t01=0x000a}
0x36c0…36e6 Head {h00=0x0022, h01=0x0050, text=»OTR LDKL A1,TWOTR OTR «, t00=0x0023, t01=0x001c}
0x36e6…36f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0042}
0x36f0…36fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x004c}
0x36fa…3716 Head {h00=0x0018, h01=0x0050, text=»EXECIO LD A7,PFPOST «, t00=0x0023, t01=0x0056}
0x3716…373a Head {h00=0x0020, h01=0x0050, text=» RF(NZ) STREG PFINIT PENDING«, t00=0x0023, t01=0x0072}
0x373a…375e Head {h00=0x0020, h01=0x0050, text=» ORR* A1,A6 GET I/O-COMMAND «, t00=0x0023, t01=0x0096}
0x375e…377e Head {h00=0x001c, h01=0x0050, text=» EXR A1 EXECUTE COMMAND «, t00=0x0023, t01=0x00ba}
0x377e…3792 Head {h00=0x0010, h01=0x0050, text=» RF(NA) HALT«, t00=0x0023, t01=0x00da}
0x3792…37a6 Head {h00=0x0010, h01=0x0050, text=»STREG EQU * «, t00=0x0023, t01=0x00ee}
0x37a6…37bc Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/100 «, t00=0x0023, t01=0x0102}
0x37bc…37f0 Head {h00=0x0030, h01=0x0050, text=» ORS A1,DWTST,A6 INDICATE INTERRUPTS ALLOWED«, t00=0x0023, t01=0x0118}
0x37f0…3818 Head {h00=0x0024, h01=0x0050, text=» ST A3,DWTA3,A6 SAVE REGISTER A3«, t00=0x0023, t01=0x014c}
0x3818…3840 Head {h00=0x0024, h01=0x0050, text=» ST A4,DWTA4,A6 A4«, t00=0x0023, t01=0x0174}
0x3840…3868 Head {h00=0x0024, h01=0x0050, text=» ST A5,DWTA5,A6 A5«, t00=0x0024, t01=0x000c}
0x3868…387e Head {h00=0x0012, h01=0x0050, text=»EXIT ABL TDISP«, t00=0x0024, t01=0x0034}
0x387e…389a Head {h00=0x0018, h01=0x0050, text=»HALT ST A2,DWTA2,A6 «, t00=0x0024, t01=0x004a}
0x389a…38c0 Head {h00=0x0022, h01=0x0050, text=» CF A5,HLTIO EXECUTE CIO-HALT «, t00=0x0024, t01=0x0066}
0x38c0…38d8 Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTA2,A6 «, t00=0x0024, t01=0x008c}
0x38d8…38fa Head {h00=0x001e, h01=0x0050, text=» RB STRTIO RESTART REQUEST«, t00=0x0024, t01=0x00a4}
0x38fa…3904 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00c6}
0x3904…390e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00d0}
0x390e…391c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x00da}
0x391c…3926 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00e8}
0x3926…3930 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00f2}
0x3930…393a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00fc}
0x393a…3964 Head {h00=0x0026, h01=0x0050, text=»* STORE CHARACTER IN ECB-BUFFER «, t00=0x0024, t01=0x0106}
0x3964…396e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0130}
0x396e…3978 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x013a}
0x3978…39a4 Head {h00=0x0028, h01=0x0050, text=»STORE LD A4,2,A8 GET BUFFER ADDRESS «, t00=0x0024, t01=0x0144}
0x39a4…39cc Head {h00=0x0024, h01=0x0050, text=» ADR A4,A3 GET CHARACTER ADDRESS«, t00=0x0024, t01=0x0170}
0x39cc…39ee Head {h00=0x001e, h01=0x0050, text=» SCR A2,A4 STORE CHARACTER«, t00=0x0025, t01=0x0008}
0x39ee…3a16 Head {h00=0x0024, h01=0x0050, text=» ADK A3,1 INCREMENT BUFFER INDEX«, t00=0x0025, t01=0x002a}
0x3a16…3a26 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0025, t01=0x0052}
0x3a26…3a30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0062}
0x3a30…3a3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x006c}
0x3a3a…3a44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0076}
0x3a44…3a5a Head {h00=0x0012, h01=0x0050, text=» IFT TIMOUT=1 «, t00=0x0025, t01=0x0080}
0x3a5a…3a64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0096}
0x3a64…3a6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00a0}
0x3a6e…3a88 Head {h00=0x0016, h01=0x0050, text=»* TIMOUT ROUTINE«, t00=0x0025, t01=0x00aa}
0x3a88…3a92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00c4}
0x3a92…3a9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00ce}
0x3a9c…3ab0 Head {h00=0x0010, h01=0x0050, text=»TWTUT EQU * «, t00=0x0025, t01=0x00d8}
0x3ab0…3ad2 Head {h00=0x001e, h01=0x0050, text=» LDR A6,A1 GET DWT-ADDRESS«, t00=0x0025, t01=0x00ec}
0x3ad2…3afa Head {h00=0x0024, h01=0x0050, text=» LDK A1,/40 TIME OUT RETURN CODE«, t00=0x0025, t01=0x010e}
0x3afa…3b06 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x0136}
0x3b06…3b10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0142}
0x3b10…3b1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x014c}
0x3b1a…3b28 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x0156}
0x3b28…3b32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0164}
0x3b32…3b3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x016e}
0x3b3c…3b54 Head {h00=0x0014, h01=0x0050, text=»* L D R E G E «, t00=0x0025, t01=0x0178}
0x3b54…3b5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0190}
0x3b5e…3b9a Head {h00=0x0038, h01=0x0050, text=»* RESTORE A3-A5 FROM DWT AND RETURN TO USER VIA A5«, t00=0x0026, t01=0x000a}
0x3b9a…3ba4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0046}
0x3ba4…3bae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0050}
0x3bae…3bc2 Head {h00=0x0010, h01=0x0050, text=»LDREGE EQU *«, t00=0x0026, t01=0x005a}
0x3bc2…3bec Head {h00=0x0026, h01=0x0050, text=» LD A3,DWTA3,A6 RELOAD REGISTER A3«, t00=0x0026, t01=0x006e}
0x3bec…3c16 Head {h00=0x0026, h01=0x0050, text=» LD A4,DWTA4,A6 A4«, t00=0x0026, t01=0x0098}
0x3c16…3c40 Head {h00=0x0026, h01=0x0050, text=» LD A5,DWTA5,A6 A5«, t00=0x0026, t01=0x00c2}
0x3c40…3c58 Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTOR,A6 «, t00=0x0026, t01=0x00ec}
0x3c58…3c6c Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x0026, t01=0x0104}
0x3c6c…3c84 Head {h00=0x0014, h01=0x0050, text=» LD A8,DWTECB,A6«, t00=0x0026, t01=0x0118}
0x3c84…3ca8 Head {h00=0x0020, h01=0x0050, text=» RTN A5 RETURN VIA A5-STACK «, t00=0x0026, t01=0x0130}
0x3ca8…3cb6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x0154}
0x3cb6…3cc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0162}
0x3cc0…3cca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x016c}
0x3cca…3ce2 Head {h00=0x0014, h01=0x0050, text=»* G E T C H R«, t00=0x0026, t01=0x0176}
0x3ce2…3cec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x018e}
0x3cec…3d28 Head {h00=0x0038, h01=0x0050, text=»* SUBROUTINE TO GET ONE CHARACTER FROM ECB-BUFFER«, t00=0x0027, t01=0x0008}
0x3d28…3d32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0044}
0x3d32…3d48 Head {h00=0x0012, h01=0x0050, text=»* ON ENTRY:«, t00=0x0027, t01=0x004e}
0x3d48…3d52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0064}
0x3d52…3d70 Head {h00=0x001a, h01=0x0050, text=»* A3 = BUFFER INDEX«, t00=0x0027, t01=0x006e}
0x3d70…3d8e Head {h00=0x001a, h01=0x0050, text=»* A8 = ECB-ADDRESS «, t00=0x0027, t01=0x008c}
0x3d8e…3d98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00aa}
0x3d98…3dae Head {h00=0x0012, h01=0x0050, text=»* ON EXIT: «, t00=0x0027, t01=0x00b4}
0x3dae…3db8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00ca}
0x3db8…3dd4 Head {h00=0x0018, h01=0x0050, text=»* A2 = CHARACTER «, t00=0x0027, t01=0x00d4}
0x3dd4…3e02 Head {h00=0x002a, h01=0x0050, text=»* A1 = 0 IF LAST CHARACTER ELSE # 0«, t00=0x0027, t01=0x00f0}
0x3e02…3e0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x011e}
0x3e0c…3e5a Head {h00=0x004a, h01=0x0050, text=»* IF LAST CHARACTER IS REACHED A3 IS STORED IN ECB EFFECTIVE LENGTH«, t00=0x0027, t01=0x0128}
0x3e5a…3e64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0176}
0x3e64…3e6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0180}
0x3e6e…3e82 Head {h00=0x0010, h01=0x0050, text=»GETCHR EQU *«, t00=0x0027, t01=0x018a}
0x3e82…3ea6 Head {h00=0x0020, h01=0x0050, text=» LD A1,4,A8 REQUESTED LENGTH«, t00=0x0028, t01=0x000e}
0x3ea6…3eb8 Head {h00=0x000e, h01=0x0050, text=» SUR A1,A3«, t00=0x0028, t01=0x0032}
0x3eb8…3ee6 Head {h00=0x002a, h01=0x0050, text=» RF(NP) GCH010 LAST CHARACTER REACHED «, t00=0x0028, t01=0x0044}
0x3ee6…3f0c Head {h00=0x0022, h01=0x0050, text=» LD A1,2,A8 GET BUFFER ADDRESS«, t00=0x0028, t01=0x0072}
0x3f0c…3f1e Head {h00=0x000e, h01=0x0050, text=» ADR A1,A3«, t00=0x0028, t01=0x0098}
0x3f1e…3f3c Head {h00=0x001a, h01=0x0050, text=» LCR A2,A1 CHAR. TO A2«, t00=0x0028, t01=0x00aa}
0x3f3c…3f50 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0028, t01=0x00c8}
0x3f50…3f78 Head {h00=0x0024, h01=0x0050, text=» ADK A3,1 INCREMENT BUFFER INDEX«, t00=0x0028, t01=0x00dc}
0x3f78…3f88 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0028, t01=0x0104}
0x3f88…3fb8 Head {h00=0x002c, h01=0x0050, text=»GCH010 ST A3,6,A8 STORE EFFECTIVE LENGTH«, t00=0x0028, t01=0x0114}
0x3fb8…3fc8 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0028, t01=0x0144}
0x3fc8…3fd6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x0154}
0x3fd6…3fe0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0162}
0x3fe0…400c Head {h00=0x0028, h01=0x0050, text=»* DEVICE WORK TABLE FOR TYPEWRITER«, t00=0x0028, t01=0x016c}
0x400c…4016 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0008}
0x4016…4020 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0012}
0x4020…4040 Head {h00=0x001c, h01=0x0050, text=»DWTW01 EQU * TABLE ENTRY«, t00=0x0029, t01=0x001c}
0x4040…4066 Head {h00=0x0022, h01=0x0050, text=» DATA /0010 CHANNEL PARAMETER «, t00=0x0029, t01=0x003c}
0x4066…409a Head {h00=0x0030, h01=0x0050, text=» DATA /8000 STATUS./8000 MEANS DEVICE READY «, t00=0x0029, t01=0x0062}
0x409a…40b6 Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x0029, t01=0x0096}
0x40b6…40cc Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x0029, t01=0x00b2}
0x40cc…40f8 Head {h00=0x0028, h01=0x0050, text=» DATA TWAD POINTER TO ADDRESS BLOCK «, t00=0x0029, t01=0x00c8}
0x40f8…4114 Head {h00=0x0018, h01=0x0050, text=» DATA 0 TTAB-ADDRESS«, t00=0x0029, t01=0x00f4}
0x4114…413c Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x0029, t01=0x0110}
0x413c…415a Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x0029, t01=0x0138}
0x415a…4170 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0029, t01=0x0156}
0x4170…419a Head {h00=0x0026, h01=0x0050, text=» DATA 0 SAVE AREA USER ECB ADDRESS«, t00=0x0029, t01=0x016c}
0x419a…41be Head {h00=0x0020, h01=0x0050, text=» DATA DEVECB MMU ECB ADDRESS«, t00=0x002a, t01=0x0008}
0x41be…41ca Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x002c}
0x41ca…41ec Head {h00=0x001e, h01=0x0050, text=» DATA 0 OUTPUT QUEUE LINK «, t00=0x002a, t01=0x0038}
0x41ec…420c Head {h00=0x001c, h01=0x0050, text=» DATA 0 SAVE AREA FOR A3«, t00=0x002a, t01=0x005a}
0x420c…422c Head {h00=0x001c, h01=0x0050, text=» DATA 0 SAVE AREA FOR A4«, t00=0x002a, t01=0x007a}
0x422c…424c Head {h00=0x001c, h01=0x0050, text=» DATA 0 SAVE AREA FOR A5«, t00=0x002a, t01=0x009a}
0x424c…4266 Head {h00=0x0016, h01=0x0050, text=» RES 4 STACK BASE «, t00=0x002a, t01=0x00ba}
0x4266…4284 Head {h00=0x001a, h01=0x0050, text=» DATA 1 TIMER POINTER «, t00=0x002a, t01=0x00d4}
0x4284…42a0 Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECHO DEVICE «, t00=0x002a, t01=0x00f2}
0x42a0…42ce Head {h00=0x002a, h01=0x0050, text=» DATA /FF5F LEFT BYTE BACKSPACE KEY =4«, t00=0x002a, t01=0x010e}
0x42ce…42ee Head {h00=0x001c, h01=0x0050, text=» RIGHT BYTE CANCEL KEY«, t00=0x002a, t01=0x013c}
0x42ee…431c Head {h00=0x002a, h01=0x0050, text=» DATA /FF00 LEFT BYTE STANDARD EOR =4 «, t00=0x002a, t01=0x015c}
0x431c…433e Head {h00=0x001e, h01=0x0050, text=» RIGHT BYTE DOUBLE ZERO «, t00=0x002a, t01=0x018a}
0x433e…4364 Head {h00=0x0022, h01=0x0050, text=» DATA 0 HEAD POSITION POINETR «, t00=0x002b, t01=0x001c}
0x4364…4384 Head {h00=0x001c, h01=0x0050, text=» DATA 0 SAVE AREA FOR A2«, t00=0x002b, t01=0x0042}
0x4384…43b4 Head {h00=0x002c, h01=0x0050, text=» DATA 0 ECHO DEV (CHANGED DWT-LAYOUT) =1«, t00=0x002b, t01=0x0062}
0x43b4…43be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0092}
0x43be…43d6 Head {h00=0x0014, h01=0x0050, text=» EJECT DRTW01 «, t00=0x002b, t01=0x009c}
0x43d6…43e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00b4}
0x43e0…43ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00be}
0x43ea…4400 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x002b, t01=0x00c8}
0x4400…4414 Head {h00=0x0010, h01=0x0050, text=»DEVECB EQU *«, t00=0x002b, t01=0x00de}
0x4414…4424 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002b, t01=0x00f2}
0x4424…4438 Head {h00=0x0010, h01=0x0050, text=» DATA TW:BUF«, t00=0x002b, t01=0x0102}
0x4438…444e Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x002b, t01=0x0116}
0x444e…4464 Head {h00=0x0012, h01=0x0050, text=» RES DVBKTB+1 «, t00=0x002b, t01=0x012c}
0x4464…4480 Head {h00=0x0018, h01=0x0050, text=»TW:BUF RES DVBLEN+1 «, t00=0x002b, t01=0x0142}
0x4480…448c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002b, t01=0x015e}
0x448c…4496 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x016a}
0x4496…44a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0174}
0x44a0…44aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x017e}
0x44aa…44b6 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x002b, t01=0x0188}
0x44b6…44ba (44, 2, 8) Head {h00=0x4004, h01=0x0000}
0x44ba…44be 00 2c 00 04 ┆ , ┆
0x44be…44c6 (45, 1, 8) 20 04 00 00 00 2d 00 04 ┆ - ┆
0x44c6…4516 (46, 0, 398) 56 41 54 45 20 44 4d 20 54 41 53 4b 20 23 44 20 00 2d 01 72 00 06 00 50 2a 20 00 2e 00 18 00 06 00 50 2a 20 00 2e 00 22 00 24 00 50 2a 20 20 20 49 4e 50 55 54 3a 20 20 41 38 3d 44 49 53 50 41 54 43 48 20 41 44 44 52 45 53 53 20 00 2e 00 2c ┆VATE DM TASK #D - r P* . P* . " $ P* INPUT: A8=DISPATCH ADDRESS . ,┆
0x4516…4566 00 1e 00 50 2a 20 20 20 20 20 20 20 20 20 20 41 36 3d 46 44 42 20 41 44 44 52 45 53 53 20 00 2e 00 54 00 06 00 50 2a 20 00 2e 00 76 00 32 00 50 44 4d 58 41 43 44 5c 45 51 55 5c 2a 5c 45 58 49 54 20 52 55 4e 4e 49 4e 47 20 54 41 53 4b 20 41 ┆ P* A6=FDB ADDRESS . T P* . v 2 PDMXACD EQU * EXIT RUNNING TASK A┆
0x4566…45b6 4e 44 20 41 43 54 49 56 41 54 45 20 23 44 00 2e 00 80 00 12 00 50 5c 49 46 46 5c 53 44 4d 2b 41 44 4d 3d 30 00 2e 00 b6 00 20 00 50 5c 4c 44 5c 41 35 2c 50 52 55 4e 5c 52 55 4e 4e 49 4e 47 20 54 41 53 4b 20 49 44 20 00 2e 00 cc 00 08 00 50 ┆ND ACTIVATE #D . P IFF SDM+ADM=0 . P LD A5,PRUN RUNNING TASK ID . P┆
0x45b6…4606 5c 49 4e 48 00 2e 00 f0 00 10 00 50 5c 43 46 5c 41 31 35 2c 45 58 49 54 00 2e 00 fc 00 0c 00 50 5c 43 4d 5c 50 52 55 4e 00 2e 01 10 00 20 00 50 5c 4c 44 52 5c 41 32 2c 41 38 5c 44 49 53 50 41 54 43 48 20 41 44 44 52 45 53 53 20 00 2e 01 20 ┆ INH . P CF A15,EXIT . P CM PRUN . P LDR A2,A8 DISPATCH ADDRESS . ┆
0x4606…4654 00 0e 00 50 5c 52 42 5c 44 4d 41 43 54 44 00 2e 01 44 00 08 00 50 5c 58 49 46 00 2e 01 56 00 06 00 50 2a 20 00 2e 01 62 00 12 00 50 5c 45 4a 45 43 54 5c 5c 54 49 4f 44 4d 20 00 2e 01 6c 00 06 00 50 2a 20 00 2e 01 82 00 06 00 50 2a 20 ┆ P RB DMACTD . D P XIF . V P* . b P EJECT TIODM . l P* . P* ┆
0x4654…46a4 (47, 0, 400) 00 2e 01 8c 00 0e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 2f 00 08 00 0e 00 50 2a 20 44 4d 54 45 4e 44 20 2a 00 2f 00 1a 00 0e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 2f 00 2c 00 06 00 50 2a 20 00 2f 00 3e 00 12 00 50 2a 5c 43 4f 4d 4d 49 54 ┆ . P********** / P* DMTEND * / P********** / , P* / > P* COMMIT┆
0x46a4…46f4 20 45 4e 54 52 59 00 2f 00 48 00 10 00 50 2a 5c 45 4e 54 45 52 45 44 20 42 59 00 2f 00 5e 00 0a 00 50 2a 5c 4c 4b 4d 20 00 2f 00 72 00 0e 00 50 2a 5c 44 41 54 41 5c 31 36 20 00 2f 00 80 00 06 00 50 2a 20 00 2f 00 92 00 06 00 50 2a 20 00 2f ┆ ENTRY / H P* ENTERED BY / ^ P* LKM / r P* DATA 16 / P* / P* /┆
0x46f4…4744 00 9c 00 10 00 50 44 4d 54 45 4e 44 5c 45 51 55 5c 2a 00 2f 00 a6 00 0e 00 50 5c 49 46 54 5c 45 44 4d 3d 30 00 2f 00 ba 00 0e 00 50 5c 49 46 54 5c 53 44 4d 3d 31 00 2f 00 cc 00 26 00 50 5c 4c 44 52 5c 41 36 2c 41 35 5c 53 41 56 45 20 55 53 ┆ PDMTEND EQU * / P IFT EDM=0 / P IFT SDM=1 / & P LDR A6,A5 SAVE US┆
0x4744…4794 45 52 20 54 54 41 42 20 41 44 44 52 45 53 53 20 00 2f 00 de 00 1c 00 50 5c 4c 44 52 5c 41 33 2c 41 37 5c 4f 52 44 45 52 20 43 4f 44 45 5c 3d 32 00 2f 01 08 00 14 00 50 5c 41 4e 4b 5c 41 33 2c 2f 37 46 5c 5c 3d 32 20 00 2f 01 28 00 2c 00 50 ┆ER TTAB ADDRESS / P LDR A3,A7 ORDER CODE =2 / P ANK A3,/7F =2 / ( , P┆
0x4794…47e4 5c 52 46 28 4e 5a 29 5c 44 4d 54 45 52 52 5c 45 52 52 4f 52 3a 20 4f 52 44 45 52 20 4e 4f 54 20 41 4c 4c 4f 57 45 44 20 00 2f 01 40 00 20 00 50 5c 4c 44 5c 41 33 2c 53 43 54 54 43 54 5c 54 43 54 41 42 20 41 44 44 52 45 53 53 20 00 2f 01 70 ┆ RF(NZ) DMTERR ERROR: ORDER NOT ALLOWED / @ P LD A3,SCTTCT TCTAB ADDRESS / p┆
0x47e4…4834 (48, 0, 400) 00 10 00 50 44 4d 54 45 31 30 5c 45 51 55 5c 2a 00 30 00 04 00 16 00 50 5c 41 44 4b 5c 41 33 2c 32 5c 50 4f 49 4e 54 45 52 20 00 30 00 18 00 1e 00 50 5c 43 57 52 2a 5c 41 35 2c 41 33 5c 45 4e 54 52 59 20 49 4e 20 54 41 42 4c 45 00 30 00 32 ┆ PDMTE10 EQU * 0 P ADK A3,2 POINTER 0 P CWR* A5,A3 ENTRY IN TABLE 0 2┆
0x4834…4884 00 1c 00 50 5c 52 42 28 4e 45 29 5c 44 4d 54 45 31 30 5c 54 52 59 20 4e 45 58 54 20 00 30 00 54 00 26 00 50 5c 53 55 5c 41 33 2c 53 43 54 54 43 54 5c 52 45 4c 41 54 49 56 45 20 54 41 53 4b 20 4e 55 4d 42 45 52 00 30 00 74 00 12 00 50 2a 5c ┆ P RB(NE) DMTE10 TRY NEXT 0 T & P SU A3,SCTTCT RELATIVE TASK NUMBER 0 t P* ┆
0x4884…48d4 53 55 4b 5c 41 33 2c 32 5c 5c 3d 35 00 30 00 9e 00 0e 00 50 5c 53 52 4c 5c 41 33 2c 31 20 00 30 00 b4 00 14 00 50 5c 4c 44 4b 4c 5c 41 31 34 2c 53 54 41 43 4b 20 00 30 00 c6 00 12 00 50 5c 43 46 5c 41 31 34 2c 52 45 4c 50 52 4f 00 30 00 de ┆SUK A3,2 =5 0 P SRL A3,1 0 P LDKL A14,STACK 0 P CF A14,RELPRO 0 ┆
0x48d4…4924 00 10 00 50 44 4d 54 45 34 30 5c 45 51 55 5c 2a 00 30 00 f4 00 18 00 50 5c 4c 44 52 5c 41 35 2c 41 36 5c 54 54 41 42 20 55 53 45 52 00 30 01 08 00 26 00 50 5c 53 54 5c 41 37 2c 54 54 42 3a 53 41 2b 31 34 2c 41 35 5c 52 45 54 20 43 4f 44 45 ┆ PDMTE40 EQU * 0 P LDR A5,A6 TTAB USER 0 & P ST A7,TTB:SA+14,A5 RET CODE┆
0x4924…4974 20 49 4e 20 41 37 00 30 01 24 00 08 00 50 5c 49 4e 48 00 30 01 4e 00 1e 00 50 5c 43 46 5c 41 31 35 2c 51 54 4a 4f 42 5c 52 45 53 54 41 52 54 20 55 53 45 52 00 30 01 5a 00 0e 00 50 5c 41 42 4c 5c 54 44 49 53 50 00 30 01 7c 00 1e 00 50 44 4d ┆ IN A7 0 $ P INH 0 N P CF A15,QTJOB RESTART USER 0 Z P ABL TDISP 0 | PDM┆
0x4974…49c4 (49, 0, 400) 54 45 52 52 5c 45 51 55 5c 2a 5c 52 45 51 55 45 53 54 20 45 52 52 4f 52 00 30 01 8e 00 14 00 50 5c 4c 44 4b 4c 5c 41 37 2c 52 45 51 45 52 32 20 00 31 00 20 00 16 00 50 5c 52 42 5c 44 4d 54 45 34 30 5c 52 45 54 55 52 4e 20 00 31 00 38 00 06 ┆TERR EQU * REQUEST ERROR 0 P LDKL A7,REQER2 1 P RB DMTE40 RETURN 1 8 ┆
0x49c4…4a14 00 50 2a 20 00 31 00 52 00 10 00 50 5c 44 41 54 41 5c 30 2c 30 2c 30 20 00 31 00 5c 00 18 00 50 53 54 41 43 4b 5c 44 41 54 41 5c 30 5c 34 20 57 4f 52 44 53 00 31 00 70 00 06 00 50 2a 20 00 31 00 8c 00 08 00 50 5c 58 49 46 00 31 00 96 00 0e ┆ P* 1 R P DATA 0,0,0 1 PSTACK DATA 0 4 WORDS 1 p P* 1 P XIF 1 ┆
0x4a14…4a64 00 50 5c 49 46 54 5c 45 44 4d 3d 31 00 31 00 a2 00 20 00 50 5c 4c 44 52 5c 41 36 2c 41 35 5c 53 41 56 45 20 54 54 41 42 20 55 53 45 52 5c 3d 31 00 31 00 b4 00 32 00 50 5c 4c 44 52 5c 41 31 2c 41 35 5c 47 45 54 20 42 41 53 45 20 50 41 52 41 ┆ P IFT EDM=1 1 P LDR A6,A5 SAVE TTAB USER =1 1 2 P LDR A1,A5 GET BASE PARA┆
0x4a64…4ab4 4d 45 54 45 52 20 42 4c 4f 43 4b 20 41 44 44 52 45 53 53 5c 3d 31 00 31 00 d8 00 28 00 50 5c 41 44 5c 41 31 2c 54 54 42 3a 54 44 2c 41 31 5c 44 45 56 49 43 45 20 54 41 42 4c 45 20 4c 45 4e 47 54 48 00 31 01 0e 00 30 00 50 5c 41 44 4b 4c 5c ┆METER BLOCK ADDRESS =1 1 ( P AD A1,TTB:TD,A1 DEVICE TABLE LENGTH 1 0 P ADKL ┆
0x4ab4…4b04 41 31 2c 54 54 42 3a 54 44 5c 42 41 53 45 20 50 41 52 41 4d 45 54 45 52 20 42 4c 4f 43 4b 20 41 44 44 52 45 53 53 00 31 01 3a 00 10 00 50 5c 4c 44 52 2a 5c 41 32 2c 41 31 20 00 31 01 6e 00 1a 00 50 5c 4f 52 5c 41 32 2c 32 2c 41 31 5c 4f 52 ┆A1,TTB:TD BASE PARAMETER BLOCK ADDRESS 1 : P LDR* A2,A1 1 n P OR A2,2,A1 OR┆
0x4b04…4b54 (50, 0, 400) 44 45 52 20 57 4f 52 44 00 31 01 82 00 26 00 50 5c 41 42 4c 28 4e 5a 29 5c 4c 4b 4d 52 51 45 5c 4f 54 48 45 52 20 52 45 51 55 45 53 54 20 42 55 53 59 00 32 00 10 00 2c 00 50 5c 4c 44 4b 4c 5c 41 32 2c 2f 31 30 30 5c 43 4f 4d 4d 49 54 20 52 ┆DER WORD 1 & P ABL(NZ) LKMRQE OTHER REQUEST BUSY 2 , P LDKL A2,/100 COMMIT R┆
0x4b54…4ba4 4f 4c 4c 42 41 43 4b 20 41 43 54 49 56 41 54 49 4f 4e 00 32 00 3a 00 0e 00 50 5c 53 54 52 5c 41 32 2c 41 31 00 32 00 6a 00 20 00 50 5c 53 54 5c 41 37 2c 50 41 42 4f 52 44 2c 41 31 5c 4f 52 44 45 52 20 57 4f 52 44 20 00 32 00 7c 00 36 00 50 ┆OLLBACK ACTIVATION 2 : P STR A2,A1 2 j P ST A7,PABORD,A1 ORDER WORD 2 | 6 P┆
0x4ba4…4bf4 5c 53 54 5c 41 38 2c 50 41 42 42 41 2c 41 31 5c 54 52 41 4e 53 41 43 54 49 4f 4e 20 43 4f 4e 54 52 4f 4c 20 42 4c 4f 43 4b 20 41 44 44 52 45 53 53 20 00 32 00 a0 00 1e 00 50 5c 4c 44 4b 4c 5c 41 37 2c 27 24 45 27 5c 45 44 4d 20 54 41 53 4b ┆ ST A8,PABBA,A1 TRANSACTION CONTROL BLOCK ADDRESS 2 P LDKL A7,'$E' EDM TASK┆
0x4bf4…4c44 20 49 44 20 00 32 00 da 00 22 00 50 5c 41 42 4c 5c 54 49 4f 45 43 52 5c 41 43 54 49 56 41 54 45 20 45 44 4d 20 54 41 53 4b 20 00 32 00 fc 00 06 00 50 2a 20 00 32 01 22 00 06 00 50 2a 20 00 32 01 2c 00 08 00 50 5c 58 49 46 00 32 01 36 00 12 ┆ ID 2 " P ABL TIOECR ACTIVATE EDM TASK 2 P* 2 " P* 2 , P XIF 2 6 ┆
0x4c44…4c94 00 50 5c 49 46 54 5c 41 44 4d 30 30 30 3d 31 20 00 32 01 42 00 20 00 50 5c 43 4d 5c 54 54 42 3a 53 41 2b 31 34 2c 41 35 5c 52 45 54 55 52 4e 20 43 4f 44 45 00 32 01 58 00 08 00 50 5c 49 4e 48 00 32 01 7c 00 12 00 50 5c 43 46 5c 41 31 35 2c ┆ P IFT ADM000=1 2 B P CM TTB:SA+14,A5 RETURN CODE 2 X P INH 2 | P CF A15,┆
0x4c94…4ce4 (51, 0, 400) 51 54 4a 4f 42 20 00 32 01 88 00 0e 00 50 5c 41 42 4c 5c 54 44 49 53 50 00 33 00 0e 00 08 00 50 5c 58 49 46 00 33 00 20 00 0a 00 50 5c 45 4a 45 43 54 00 33 00 2c 00 04 00 50 00 33 00 3a 00 50 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆QTJOB 2 P ABL TDISP 3 P XIF 3 P EJECT 3 , P 3 : P P**************┆
0x4ce4…4d34 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 33 00 42 00 50 00 50 2a 20 20 20 43 20 4f 20 4d 20 ┆************************************************************* 3 B P P* C O M ┆
0x4d34…4d84 4d 20 4f 20 4e 20 20 20 53 20 55 20 42 20 52 20 4f 20 55 20 54 20 49 20 4e 20 45 20 53 20 20 20 46 20 4f 20 52 20 20 20 41 20 44 20 4d 20 20 20 41 20 4e 20 44 20 20 20 53 20 44 20 4d 20 20 20 2a 20 00 33 00 96 00 50 00 50 2a 2a 2a 2a 2a 2a ┆M O N S U B R O U T I N E S F O R A D M A N D S D M * 3 P P******┆
0x4d84…4dd4 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 33 00 ea 00 06 00 50 2a 20 ┆********************************************************************* 3 P* ┆
0x4dd4…4e24 00 33 01 3e 00 06 00 50 2a 20 00 33 01 48 00 06 00 50 2a 20 00 33 01 52 00 06 00 50 2a 20 00 33 01 5c 00 26 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 33 01 66 00 24 00 50 ┆ 3 > P* 3 H P* 3 R P* 3 & P********************************* 3 f $ P┆
0x4e24…4e74 (52, 0, 400) 2a 20 20 53 55 42 52 4f 55 54 49 4e 45 53 20 4e 4f 54 20 49 4e 20 53 59 53 54 45 4d 20 20 20 2a 00 33 01 90 00 24 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 34 00 28 00 06 00 50 ┆* SUBROUTINES NOT IN SYSTEM * 3 $ P******************************** 4 ( P┆
0x4e74…4ec4 2a 20 00 34 00 50 00 12 00 50 5c 49 46 54 5c 41 44 4d 2b 53 44 4d 3d 30 00 34 00 5a 00 10 00 50 44 4d 41 43 54 44 5c 45 51 55 5c 2a 00 34 00 70 00 10 00 50 46 4e 44 46 44 42 5c 45 51 55 5c 2a 00 34 00 84 00 10 00 50 4d 4f 56 3a 55 53 5c 45 ┆* 4 P P IFT ADM+SDM=0 4 Z PDMACTD EQU * 4 p PFNDFDB EQU * 4 PMOV:US E┆
0x4ec4…4f14 51 55 5c 2a 00 34 00 98 00 10 00 50 4d 4f 56 3a 53 55 5c 45 51 55 5c 2a 00 34 00 ac 00 10 00 50 46 49 4e 44 54 54 5c 45 51 55 5c 2a 00 34 00 c0 00 10 00 50 52 54 4e 41 31 34 5c 45 51 55 5c 2a 00 34 00 d4 00 10 00 50 53 45 54 43 52 4f 5c 45 ┆QU * 4 PMOV:SU EQU * 4 PFINDTT EQU * 4 PRTNA14 EQU * 4 PSETCRO E┆
0x4f14…4f64 51 55 5c 2a 00 34 00 e8 00 08 00 50 5c 58 49 46 00 34 00 fc 00 0e 00 50 5c 49 46 46 5c 53 44 4d 3d 31 00 34 01 08 00 10 00 50 43 41 53 5a 45 4e 5c 45 51 55 5c 2a 00 34 01 1a 00 10 00 50 43 4f 53 5a 45 4e 5c 45 51 55 5c 2a 00 34 01 2e 00 08 ┆QU * 4 P XIF 4 P IFF SDM=1 4 PCASZEN EQU * 4 PCOSZEN EQU * 4 . ┆
0x4f64…4fb4 00 50 5c 58 49 46 00 34 01 42 00 16 00 50 5c 49 46 54 5c 53 44 4d 2b 41 44 4d 43 44 45 3d 30 20 00 34 01 4e 00 10 00 50 45 4e 4c 46 41 43 5c 45 51 55 5c 2a 00 34 01 68 00 10 00 50 43 4f 4e 45 4e 4c 5c 45 51 55 5c 2a 00 34 01 7c 00 10 00 50 ┆ P XIF 4 B P IFT SDM+ADMCDE=0 4 N PENLFAC EQU * 4 h PCONENL EQU * 4 | P┆