|
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: 10788 (0x2a24)
Notes: pts_type(SC)
Names: »DRLP01.SC«
└─⟦efe3a1cfc⟧ Bits:30009667 Philips computer tape "600113"
└─⟦this⟧ »TOSSWORK/DRLP01.SC«
IDENT DRLP01 REL 8.2 78-09-15 870105040820 UPDATE #0 77-12-14 ********************************************************** * * PHILIPS TERMINAL SYSTEM PTS * * DRLP01 = DRIVER LINE PRINTER * * * * * * ********************************************************** * * * THIS DRIVER HANDLES ONE LINE PRINTER PTS 6881 CONNECTED * TO CPU VIA CHLP ON MULTIPLEX CHANNEL OR PROGRAMMED * CHANNEL EJECT * * ************************ * ENTRIES * ************************ * ENTRY LPADR ADDRESS-BLOCK ENTRY ACLP ACTIVATION DRIVER ENTRY IHLP INTERRUPT HANDLER ENTRY LPON RECOVERY ROUTINE ENTRY DWLP01 DWT FOR LINE PRINTER * * **************************************** * EXTERNAL TOSS MODULE ENTRIES * **************************************** * EXTRN TDISP DISPATCHER EXTRN TENDIO END I/O EXTRN SAVE8 SAVE 8 REGS ON STACK EXTRN DISIOE REQUEST ERROR EXTRN DWTST DWT-STATUS EXTRN DWTOR ORDER EXTRN DWTECB ECB-ADDRESS EXTRN INTSAV SAVE AREA LAST INTERRUPT * * ***************************** * CONSTANTS * ***************************** * DWALP EQU /0F MUXLP EQU DWALP+DWALP MUX-ADDRESS DWTBC EQU /3 DWTA3 EQU /12 DWTA4 EQU /14 DWTA5 EQU /16 DWTSB2 EQU /1E * EJECT * ********************************** * CONDITIONAL ASSEMBLY * ********************************** * * PROGRAMMED CHANNEL MAY BE USED INSTEAD OF * MULTIPLEX CHANNEL BY SETTING X:A=1 X:A EQU 0 CHAN EQU X:A EJECT * * *********************** * ORDERS * *********************** * * ORDER /00: TEST STATUS. * A TST INSTRUCTION IS EXECUTED TO SEE * IF LINE PRINTER IS OPERABLE. * * ORDER /05: BASIC WRITE. * * THE REQUESTED NUMBER OF CHARACTERS ARE * SENT TO THE LINE PRINTER WITHOUT ANY CHECK. * * ORDER /06: STANDARD WRITE. * FIRST WORD IN ECB-BUFFER CONTAINS A CONTROL * CHARACTER. * /2B: PRINT LINE WITHOUT ADVANCING PAPER * /30: ADVANCE TWO LINES BEFORE PRINTING * /31: SKIP TO TOP OF FORM BEFORE PRINTING * OTHER CHARACTERS GIVES A LINE FEED BEFORE * PRINTING. * * * CHARACTERS IN BUFFER SHOULD BE WITHIN THE * INTERVAL /20-/5F. NO CHECK IS CARRIED OUT * BY DRIVER. AT THE END OF ECB-BUFFER ONE BYTE * MUST BE RESERVED FOR THE DRIVER TO STORE A * PRINT CHARACTER. * EJECT * * ************************************ * NORMAL REGISTER USAGE * ************************************ * * A1 = RETURN CODE * A2 = WORK REGISTER * A3 = WORK REGISTER * A4 = BUFFER ADDRESS * A5 = STACK BASE * A6 = DWT-ADDRESS * A7 = ORDER * A8 = ECB-ADDRESS * * * ******************************** * TABLES * ******************************** * * LPADR DATA ACLP ACTIVATION DRIVER * EJECT * * * A C T I V A T I O N * ACLP EQU * LDK A1,/0D CARRIAGE RETURN LDR A7,A7 ORDER 0 ? RF(NE) ACLP05 NO LDKL A4,DWTBC BYTE COUNTER ADR A4,A6 ADD DWT-ADDRESS SCR A1,A4 STORE CARRIAGE RETURN LDK A2,1 RF ACLP30 ACLP05 LD A4,2,A8 BUFFER ADDRESS LD A2,4,A8 REQ. LENGTH SUK A7,5 ORDER 5 ? RF(E) ACLP30 SUK A7,1 ORDER 6 ? RF(E) ACLP10 ACERR ABL DISIOE ACLP10 EQU * CWK A2,2 REQ. LENGTH < 2 ? RF(NL) ACLP12 NO LDK A2,2 YES , SAME ACTIONS AS FOR REQ. LENGTH = 2 ACLP12 EQU * LDR A3,A4 BUFFER ADDRESS ADR A3,A2 ADDED WITH REQ. LENGTH SCR A1,A3 STORE PRINT CHARACTER ADK A2,1 LCR A3,A4 SLL A3,8 LC A3,1,A4 GET CONTROL CHARACTER ST A3,CONCHA ANK A3,/FF SUK A3,/2B SUPER POSITIONING ? RF(NE) ACLP15 NO SUK A2,2 DECREMENT REQ. LENGTH ADK A4,2 INCREMENT BUFFER ADDRESS RF ACLP30 ACLP15 LDK A1,/0A LINE FEED SC A1,1,A4 SECOND CHARACTER IN BUFFER SUK A3,5 TWO LINE FEEDS ? RF(E) ACLP20 YES LDK A1,/0C TOP OF FORM SUK A3,1 WANTED ? RF(E) ACLP20 YES LDK A1,/0D CARRIAGE RETURN ACLP20 SCR A1,A4 STORE FIRST CHARACTER IN BUFFER ACLP30 CF A5,CIOSTA SEND BUFFER SUK A7,6 ORDER 6 ? RF(NE) ENDIO LDR A2,A2 RF(NN) ACLP35 IM 6,A8 ADD FOR EXTRA CHAR. AT BUFFER END (/0D) ACLP35 EQU * LD A4,2,A8 BUFFER ADDRESS LDKL A3,0 CONCHA EQU *-2 SC A3,1,A4 RESET CONTROL CHARACTER IN BUFFER SRL A3,8 SCR A3,A4 ALSO RESET FIRST BYTE ENDIO CF A15,TENDIO END REQUEST EXIT ABL TDISP EJECT * * * CIOSTA * SUBROUTINE TO SEND BUFFER * CIOSTA EQU * ST A5,DWTA5,A6 SAVE A5 IFT CHAN=0 ORKL A2,/4000 INDICATE CHARACTER MODE, OUTPUT AND IN RIGHT BYTE NUMBER OF CHARACTERS TO SEND WER A2,MUXLP FIRST WRITE EXTERNAL REGISTER LDR A2,A4 BUFFER ADDRESS WER A2,MUXLP+1 SECOND WRITE EXTERNAL REGISTER XIF IFT CHAN=1 ST A4,DWTA3,A6 SAVE BUFFER ADDRESS ADR A4,A2 ST A4,DWTA4,A6 SAVE BUFFER END ADDRESS+1 XIF CIO A2,1,DWALP CIO START RB EXIT EJECT * * * RECOVERY ROUTINE * LPON CF A15,SAVE8 LDK A1,1 NOT OPERABLE LDKL A6,DWLP01 DWT-ADDRESS LD A2,DWTST,A6 DWT STATUS RB(N) EXIT LP FREE RF IHLP30 EJECT * * * I N T E R R U P T * IHLP EQU * ST P,INTSAV SAVE LAST INTERRUPT IFT CHAN=0 CF A15,SAVE8 SAVE REGISTERS XIF IFT CHAN=1 STR A1,A15 STR A2,A15 LDKL A2,DWLP01 DWT-ADDRESS LD A1,DWTA3,A2 POINTER AT NEXT BYTE IN BUFFER LCR A2,A1 NEXT BYTE OTR A2,0,DWALP WRITE ONE BYTE RF(NA) IHLP20 NOT ACCEPTED LDKL A2,DWLP01 DWT-ADDRESS ADK A1,1 ST A1,DWTA3,A2 UPDATE POINTER CW A1,DWTA4,A2 RF(NE) IHLP10 NOT LAST BYTE CIO A2,0,DWALP CIO HALT IHLP10 EQU * LDR* A2,A15 LDR* A1,A15 RTN A15 * * * IHLP20 STR A3,A15 STR A4,A15 STR A5,A15 STR A6,A15 STR A7,A15 STR A8,A15 XIF SST A1,DWALP TO INACTIVE LDKL A6,DWLP01 DWT-ADDRESS IHLP30 EQU * LD A7,DWTOR,A6 ORDER ANK A7,/FF LD A8,DWTECB,A6 ECB-ADDRESS IFT CHAN=0 RER A3,MUXLP GET NUMBER OF NOT TRANSFERED CHAR. ANKL A3,/FFF LD A2,4,A8 CALCULATE NUMB. OF TRANSFERED CHARACTERS SUR A2,A3 XIF IFT CHAN=1 LD A2,DWTA3,A6 GET BUFFER-POINTER CWK A7,6 ORDER 6? RF(NE) IHLP35 ADK A2,1 YES IHLP35 EQU * SU A2,2,A8 CALCULATE NUMB. OF TRANSFERED CHARACTERS XIF ST A2,6,A8 STORE EFF. LENGTH LD A5,DWTA5,A6 GET STACK VALUE RTN A5 EJECT * * * D W L P 0 1 * * DEVICE WORK TABLE FOR LINE PRINTER * DWLP01 EQU * DATA 0 CHANNEL PARAMETER DATA /8000 STATUS DATA 0,0 LAST OUTPUT, ORDER AND ECB-ADDRESS DATA LPADR ADDRESS TO ADDRESS-BLOCK DATA 0 TTAB-ADDRESS DATA 0 WAIT/ACTIVATE INDICATOR DATA 0 TERMINAL QUEUE 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 DWT-STACK END
0x0000…0036 (0, 0, 398) Head {h00=0x0032, h01=0x0050, text=» IDENT DRLP01 REL 8.2 78-09-15 870105040820 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0060 Head {h00=0x001e, h01=0x0050, text=» UPDATE #0 77-12-14 «, t00=0x0000, t01=0x0042}
0x0060…00a2 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0000, t01=0x0064}
0x00a2…00ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00a6}
0x00ac…00d4 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x00b0}
0x00d4…00de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00d8}
0x00de…0106 Head {h00=0x0024, h01=0x0050, text=»* DRLP01 = DRIVER LINE PRINTER«, t00=0x0000, t01=0x00e2}
0x0106…0110 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x010a}
0x0110…011a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0114}
0x011a…0124 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x011e}
0x0124…012e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0128}
0x012e…0138 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0132}
0x0138…0142 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x013c}
0x0142…0184 Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0000, t01=0x0146}
0x0184…018e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0188}
0x018e…0198 (1, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0004}
0x0198…01dc Head {h00=0x0040, h01=0x0050, text=»* THIS DRIVER HANDLES ONE LINE PRINTER PTS 6881 CONNECTED«, t00=0x0001, t01=0x000e}
0x01dc…021c Head {h00=0x003c, h01=0x0050, text=»* TO CPU VIA CHLP ON MULTIPLEX CHANNEL OR PROGRAMMED «, t00=0x0001, t01=0x0052}
0x021c…0230 Head {h00=0x0010, h01=0x0050, text=»* CHANNEL«, t00=0x0001, t01=0x0092}
0x0230…023e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x00a6}
0x023e…0248 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00b4}
0x0248…0252 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00be}
0x0252…0272 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0001, t01=0x00c8}
0x0272…0292 Head {h00=0x001c, h01=0x0050, text=»* ENTRIES *«, t00=0x0001, t01=0x00e8}
0x0292…02b2 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0001, t01=0x0108}
0x02b2…02bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0128}
0x02bc…02de Head {h00=0x001e, h01=0x0050, text=» ENTRY LPADR ADDRESS-BLOCK«, t00=0x0001, t01=0x0132}
0x02de…0304 Head {h00=0x0022, h01=0x0050, text=» ENTRY ACLP ACTIVATION DRIVER «, t00=0x0001, t01=0x0154}
0x0304…032a Head {h00=0x0022, h01=0x0050, text=» ENTRY IHLP INTERRUPT HANDLER «, t00=0x0001, t01=0x017a}
0x032a…034e Head {h00=0x0020, h01=0x0050, text=» ENTRY LPON RECOVERY ROUTINE«, t00=0x0002, t01=0x0010}
0x034e…0378 Head {h00=0x0026, h01=0x0050, text=» ENTRY DWLP01 DWT FOR LINE PRINTER«, t00=0x0002, t01=0x0034}
0x0378…0382 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x005e}
0x0382…038c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0068}
0x038c…03bc Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0002, t01=0x0072}
0x03bc…03ec Head {h00=0x002c, h01=0x0050, text=»* EXTERNAL TOSS MODULE ENTRIES *«, t00=0x0002, t01=0x00a2}
0x03ec…041c Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0002, t01=0x00d2}
0x041c…0426 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0102}
0x0426…0446 Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0002, t01=0x010c}
0x0446…0464 Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x0002, t01=0x012c}
0x0464…048e Head {h00=0x0026, h01=0x0050, text=» EXTRN SAVE8 SAVE 8 REGS ON STACK «, t00=0x0002, t01=0x014a}
0x048e…04b2 Head {h00=0x0020, h01=0x0050, text=» EXTRN DISIOE REQUEST ERROR «, t00=0x0002, t01=0x0174}
0x04b2…04d2 Head {h00=0x001c, h01=0x0050, text=» EXTRN DWTST DWT-STATUS «, t00=0x0003, t01=0x0008}
0x04d2…04ec Head {h00=0x0016, h01=0x0050, text=» EXTRN DWTOR ORDER«, t00=0x0003, t01=0x0028}
0x04ec…050e Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTECB ECB-ADDRESS «, t00=0x0003, t01=0x0042}
0x050e…053c Head {h00=0x002a, h01=0x0050, text=» EXTRN INTSAV SAVE AREA LAST INTERRUPT«, t00=0x0003, t01=0x0064}
0x053c…0546 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0092}
0x0546…0550 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x009c}
0x0550…0576 Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x0003, t01=0x00a6}
0x0576…059c Head {h00=0x0022, h01=0x0050, text=»* CONSTANTS * «, t00=0x0003, t01=0x00cc}
0x059c…05c2 Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x0003, t01=0x00f2}
0x05c2…05cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0118}
0x05cc…05e2 Head {h00=0x0012, h01=0x0050, text=»DWALP EQU /0F «, t00=0x0003, t01=0x0122}
0x05e2…060c Head {h00=0x0026, h01=0x0050, text=»MUXLP EQU DWALP+DWALP MUX-ADDRESS «, t00=0x0003, t01=0x0138}
0x060c…0620 Head {h00=0x0010, h01=0x0050, text=»DWTBC EQU /3«, t00=0x0003, t01=0x0162}
0x0620…0636 Head {h00=0x0012, h01=0x0050, text=»DWTA3 EQU /12 «, t00=0x0003, t01=0x0176}
0x0636…064c Head {h00=0x0012, h01=0x0050, text=»DWTA4 EQU /14 «, t00=0x0003, t01=0x018c}
0x064c…0662 Head {h00=0x0012, h01=0x0050, text=»DWTA5 EQU /16 «, t00=0x0004, t01=0x0012}
0x0662…0678 Head {h00=0x0012, h01=0x0050, text=»DWTSB2 EQU /1E«, t00=0x0004, t01=0x0028}
0x0678…0682 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x003e}
0x0682…0690 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0048}
0x0690…069a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0056}
0x069a…06c4 Head {h00=0x0026, h01=0x0050, text=»**********************************«, t00=0x0004, t01=0x0060}
0x06c4…06ee Head {h00=0x0026, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x0004, t01=0x008a}
0x06ee…0718 Head {h00=0x0026, h01=0x0050, text=»**********************************«, t00=0x0004, t01=0x00b4}
0x0718…0722 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00de}
0x0722…0758 Head {h00=0x0032, h01=0x0050, text=»* PROGRAMMED CHANNEL MAY BE USED INSTEAD OF«, t00=0x0004, t01=0x00e8}
0x0758…0788 Head {h00=0x002c, h01=0x0050, text=»* MULTIPLEX CHANNEL BY SETTING X:A=1 «, t00=0x0004, t01=0x011e}
0x0788…079a Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x0004, t01=0x014e}
0x079a…07ae Head {h00=0x0010, h01=0x0050, text=»CHAN EQU X:A«, t00=0x0004, t01=0x0160}
0x07ae…07bc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0174}
0x07bc…07c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0182}
0x07c6…07d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x018c}
0x07d0…07f0 Head {h00=0x001c, h01=0x0050, text=»*********************** «, t00=0x0005, t01=0x0008}
0x07f0…0810 Head {h00=0x001c, h01=0x0050, text=»* ORDERS * «, t00=0x0005, t01=0x0028}
0x0810…0830 Head {h00=0x001c, h01=0x0050, text=»*********************** «, t00=0x0005, t01=0x0048}
0x0830…083a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0068}
0x083a…085e Head {h00=0x0020, h01=0x0050, text=»* ORDER /00: TEST STATUS.«, t00=0x0005, t01=0x0072}
0x085e…089a Head {h00=0x0038, h01=0x0050, text=»* A TST INSTRUCTION IS EXECUTED TO SEE«, t00=0x0005, t01=0x0096}
0x089a…08ce Head {h00=0x0030, h01=0x0050, text=»* IF LINE PRINTER IS OPERABLE.«, t00=0x0005, t01=0x00d2}
0x08ce…08d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0106}
0x08d8…08fc Head {h00=0x0020, h01=0x0050, text=»* ORDER /05: BASIC WRITE.«, t00=0x0005, t01=0x0110}
0x08fc…0906 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0134}
0x0906…0944 Head {h00=0x003a, h01=0x0050, text=»* THE REQUESTED NUMBER OF CHARACTERS ARE«, t00=0x0005, t01=0x013e}
0x0944…0988 Head {h00=0x0040, h01=0x0050, text=»* SENT TO THE LINE PRINTER WITHOUT ANY CHECK. «, t00=0x0005, t01=0x017c}
0x0988…0992 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0030}
0x0992…09ba Head {h00=0x0024, h01=0x0050, text=»* ORDER /06: STANDARD WRITE. «, t00=0x0006, t01=0x003a}
0x09ba…09fe Head {h00=0x0040, h01=0x0050, text=»* FIRST WORD IN ECB-BUFFER CONTAINS A CONTROL «, t00=0x0006, t01=0x0062}
0x09fe…0a20 Head {h00=0x001e, h01=0x0050, text=»* CHARACTER.«, t00=0x0006, t01=0x00a6}
0x0a20…0a60 Head {h00=0x003c, h01=0x0050, text=»* /2B: PRINT LINE WITHOUT ADVANCING PAPER «, t00=0x0006, t01=0x00c8}
0x0a60…0a9e Head {h00=0x003a, h01=0x0050, text=»* /30: ADVANCE TWO LINES BEFORE PRINTING«, t00=0x0006, t01=0x0108}
0x0a9e…0ade Head {h00=0x003c, h01=0x0050, text=»* /31: SKIP TO TOP OF FORM BEFORE PRINTING«, t00=0x0006, t01=0x0146}
0x0ade…0b20 Head {h00=0x003e, h01=0x0050, text=»* OTHER CHARACTERS GIVES A LINE FEED BEFORE «, t00=0x0006, t01=0x0186}
0x0b20…0b42 Head {h00=0x001e, h01=0x0050, text=»* PRINTING. «, t00=0x0007, t01=0x0038}
0x0b42…0b4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x005a}
0x0b4c…0b56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0064}
0x0b56…0b98 Head {h00=0x003e, h01=0x0050, text=»* CHARACTERS IN BUFFER SHOULD BE WITHIN THE «, t00=0x0007, t01=0x006e}
0x0b98…0bda Head {h00=0x003e, h01=0x0050, text=»* INTERVAL /20-/5F. NO CHECK IS CARRIED OUT «, t00=0x0007, t01=0x00b0}
0x0bda…0c20 Head {h00=0x0042, h01=0x0050, text=»* BY DRIVER. AT THE END OF ECB-BUFFER ONE BYTE «, t00=0x0007, t01=0x00f2}
0x0c20…0c62 Head {h00=0x003e, h01=0x0050, text=»* MUST BE RESERVED FOR THE DRIVER TO STORE A«, t00=0x0007, t01=0x0138}
0x0c62…0c8a Head {h00=0x0024, h01=0x0050, text=»* PRINT CHARACTER.«, t00=0x0007, t01=0x017a}
0x0c8a…0c94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0012}
0x0c94…0ca2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x001c}
0x0ca2…0cac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x002a}
0x0cac…0cb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0034}
0x0cb6…0ce2 Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x0008, t01=0x003e}
0x0ce2…0d0e Head {h00=0x0028, h01=0x0050, text=»* NORMAL REGISTER USAGE *«, t00=0x0008, t01=0x006a}
0x0d0e…0d3a Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x0008, t01=0x0096}
0x0d3a…0d44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00c2}
0x0d44…0d62 Head {h00=0x001a, h01=0x0050, text=»* A1 = RETURN CODE «, t00=0x0008, t01=0x00cc}
0x0d62…0d82 Head {h00=0x001c, h01=0x0050, text=»* A2 = WORK REGISTER «, t00=0x0008, t01=0x00ea}
0x0d82…0da2 Head {h00=0x001c, h01=0x0050, text=»* A3 = WORK REGISTER «, t00=0x0008, t01=0x010a}
0x0da2…0dc2 Head {h00=0x001c, h01=0x0050, text=»* A4 = BUFFER ADDRESS«, t00=0x0008, t01=0x012a}
0x0dc2…0dde Head {h00=0x0018, h01=0x0050, text=»* A5 = STACK BASE«, t00=0x0008, t01=0x014a}
0x0dde…0dfc Head {h00=0x001a, h01=0x0050, text=»* A6 = DWT-ADDRESS «, t00=0x0008, t01=0x0166}
0x0dfc…0e14 Head {h00=0x0014, h01=0x0050, text=»* A7 = ORDER «, t00=0x0008, t01=0x0184}
0x0e14…0e32 Head {h00=0x001a, h01=0x0050, text=»* A8 = ECB-ADDRESS «, t00=0x0009, t01=0x000c}
0x0e32…0e3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x002a}
0x0e3c…0e46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0034}
0x0e46…0e50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x003e}
0x0e50…0e78 Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0009, t01=0x0048}
0x0e78…0ea0 Head {h00=0x0024, h01=0x0050, text=»* TABLES *«, t00=0x0009, t01=0x0070}
0x0ea0…0ec8 Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0009, t01=0x0098}
0x0ec8…0ed2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00c0}
0x0ed2…0edc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00ca}
0x0edc…0f06 Head {h00=0x0026, h01=0x0050, text=»LPADR DATA ACLP ACTIVATION DRIVER «, t00=0x0009, t01=0x00d4}
0x0f06…0f10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00fe}
0x0f10…0f1e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0108}
0x0f1e…0f28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0116}
0x0f28…0f32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0120}
0x0f32…0f52 Head {h00=0x001c, h01=0x0050, text=»* A C T I V A T I O N«, t00=0x0009, t01=0x012a}
0x0f52…0f5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x014a}
0x0f5c…0f6e Head {h00=0x000e, h01=0x0050, text=»ACLP EQU *«, t00=0x0009, t01=0x0154}
0x0f6e…0f92 Head {h00=0x0020, h01=0x0050, text=» LDK A1,/0D CARRIAGE RETURN «, t00=0x0009, t01=0x0166}
0x0f92…0fae Head {h00=0x0018, h01=0x0050, text=» LDR A7,A7 ORDER 0 ?«, t00=0x0009, t01=0x018a}
0x0fae…0fc8 Head {h00=0x0016, h01=0x0050, text=» RF(NE) ACLP05 NO «, t00=0x000a, t01=0x0016}
0x0fc8…0fec Head {h00=0x0020, h01=0x0050, text=» LDKL A4,DWTBC BYTE COUNTER «, t00=0x000a, t01=0x0030}
0x0fec…100e Head {h00=0x001e, h01=0x0050, text=» ADR A4,A6 ADD DWT-ADDRESS«, t00=0x000a, t01=0x0054}
0x100e…1036 Head {h00=0x0024, h01=0x0050, text=» SCR A1,A4 STORE CARRIAGE RETURN«, t00=0x000a, t01=0x0076}
0x1036…1048 Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x000a, t01=0x009e}
0x1048…105a Head {h00=0x000e, h01=0x0050, text=» RF ACLP30«, t00=0x000a, t01=0x00b0}
0x105a…1082 Head {h00=0x0024, h01=0x0050, text=»ACLP05 LD A4,2,A8 BUFFER ADDRESS«, t00=0x000a, t01=0x00c2}
0x1082…10a2 Head {h00=0x001c, h01=0x0050, text=» LD A2,4,A8 REQ. LENGTH «, t00=0x000a, t01=0x00ea}
0x10a2…10be Head {h00=0x0018, h01=0x0050, text=» SUK A7,5 ORDER 5 ? «, t00=0x000a, t01=0x010a}
0x10be…10d4 Head {h00=0x0012, h01=0x0050, text=» RF(E) ACLP30 «, t00=0x000a, t01=0x0126}
0x10d4…10f0 Head {h00=0x0018, h01=0x0050, text=» SUK A7,1 ORDER 6 ? «, t00=0x000a, t01=0x013c}
0x10f0…1106 Head {h00=0x0012, h01=0x0050, text=» RF(E) ACLP10 «, t00=0x000a, t01=0x0158}
0x1106…111e Head {h00=0x0014, h01=0x0050, text=»ACERR ABL DISIOE«, t00=0x000a, t01=0x016e}
0x111e…1126 Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x0186}
0x1126…113a Head {h00=0x0010, h01=0x0050, text=»ACLP10 EQU *«, t00=0x000a, t01=0x018e}
0x113a…115e Head {h00=0x0020, h01=0x0050, text=» CWK A2,2 REQ. LENGTH < 2 ? «, t00=0x000b, t01=0x0012}
0x115e…1178 Head {h00=0x0016, h01=0x0050, text=» RF(NL) ACLP12 NO «, t00=0x000b, t01=0x0036}
0x1178…11b4 Head {h00=0x0038, h01=0x0050, text=» LDK A2,2 YES , SAME ACTIONS AS FOR REQ. LENGTH = 2 «, t00=0x000b, t01=0x0050}
0x11b4…11c8 Head {h00=0x0010, h01=0x0050, text=»ACLP12 EQU *«, t00=0x000b, t01=0x008c}
0x11c8…11ea Head {h00=0x001e, h01=0x0050, text=» LDR A3,A4 BUFFER ADDRESS «, t00=0x000b, t01=0x00a0}
0x11ea…1214 Head {h00=0x0026, h01=0x0050, text=» ADR A3,A2 ADDED WITH REQ. LENGTH «, t00=0x000b, t01=0x00c2}
0x1214…123c Head {h00=0x0024, h01=0x0050, text=» SCR A1,A3 STORE PRINT CHARACTER«, t00=0x000b, t01=0x00ec}
0x123c…124e Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x000b, t01=0x0114}
0x124e…1260 Head {h00=0x000e, h01=0x0050, text=» LCR A3,A4«, t00=0x000b, t01=0x0126}
0x1260…1272 Head {h00=0x000e, h01=0x0050, text=» SLL A3,8 «, t00=0x000b, t01=0x0138}
0x1272…129c Head {h00=0x0026, h01=0x0050, text=» LC A3,1,A4 GET CONTROL CHARACTER «, t00=0x000b, t01=0x014a}
0x129c…12b2 Head {h00=0x0012, h01=0x0050, text=» ST A3,CONCHA «, t00=0x000b, t01=0x0174}
0x12b2…12c6 Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x000b, t01=0x018a}
0x12c6…12ee Head {h00=0x0024, h01=0x0050, text=» SUK A3,/2B SUPER POSITIONING ? «, t00=0x000c, t01=0x000e}
0x12ee…1308 Head {h00=0x0016, h01=0x0050, text=» RF(NE) ACLP15 NO «, t00=0x000c, t01=0x0036}
0x1308…1330 Head {h00=0x0024, h01=0x0050, text=» SUK A2,2 DECREMENT REQ. LENGTH «, t00=0x000c, t01=0x0050}
0x1330…135a Head {h00=0x0026, h01=0x0050, text=» ADK A4,2 INCREMENT BUFFER ADDRESS«, t00=0x000c, t01=0x0078}
0x135a…136c Head {h00=0x000e, h01=0x0050, text=» RF ACLP30«, t00=0x000c, t01=0x00a2}
0x136c…1390 Head {h00=0x0020, h01=0x0050, text=»ACLP15 LDK A1,/0A LINE FEED «, t00=0x000c, t01=0x00b4}
0x1390…13be Head {h00=0x002a, h01=0x0050, text=» SC A1,1,A4 SECOND CHARACTER IN BUFFER«, t00=0x000c, t01=0x00d8}
0x13be…13e0 Head {h00=0x001e, h01=0x0050, text=» SUK A3,5 TWO LINE FEEDS ?«, t00=0x000c, t01=0x0106}
0x13e0…13fa Head {h00=0x0016, h01=0x0050, text=» RF(E) ACLP20 YES «, t00=0x000c, t01=0x0128}
0x13fa…141a Head {h00=0x001c, h01=0x0050, text=» LDK A1,/0C TOP OF FORM «, t00=0x000c, t01=0x0142}
0x141a…1434 Head {h00=0x0016, h01=0x0050, text=» SUK A3,1 WANTED ?«, t00=0x000c, t01=0x0162}
0x1434…144e Head {h00=0x0016, h01=0x0050, text=» RF(E) ACLP20 YES «, t00=0x000c, t01=0x017c}
0x144e…1472 Head {h00=0x0020, h01=0x0050, text=» LDK A1,/0D CARRIAGE RETURN «, t00=0x000d, t01=0x0008}
0x1472…14aa Head {h00=0x0034, h01=0x0050, text=»ACLP20 SCR A1,A4 STORE FIRST CHARACTER IN BUFFER«, t00=0x000d, t01=0x002c}
0x14aa…14d2 Head {h00=0x0024, h01=0x0050, text=»ACLP30 CF A5,CIOSTA SEND BUFFER «, t00=0x000d, t01=0x0064}
0x14d2…14ee Head {h00=0x0018, h01=0x0050, text=» SUK A7,6 ORDER 6 ? «, t00=0x000d, t01=0x008c}
0x14ee…1504 Head {h00=0x0012, h01=0x0050, text=» RF(NE) ENDIO «, t00=0x000d, t01=0x00a8}
0x1504…1516 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x000d, t01=0x00be}
0x1516…152c Head {h00=0x0012, h01=0x0050, text=» RF(NN) ACLP35«, t00=0x000d, t01=0x00d0}
0x152c…1564 Head {h00=0x0034, h01=0x0050, text=» IM 6,A8 ADD FOR EXTRA CHAR. AT BUFFER END (/0D)«, t00=0x000d, t01=0x00e6}
0x1564…1578 Head {h00=0x0010, h01=0x0050, text=»ACLP35 EQU *«, t00=0x000d, t01=0x011e}
0x1578…159a Head {h00=0x001e, h01=0x0050, text=» LD A4,2,A8 BUFFER ADDRESS«, t00=0x000d, t01=0x0132}
0x159a…15ac Head {h00=0x000e, h01=0x0050, text=» LDKL A3,0«, t00=0x000d, t01=0x0154}
0x15ac…15c2 Head {h00=0x0012, h01=0x0050, text=»CONCHA EQU *-2«, t00=0x000d, t01=0x0166}
0x15c2…15f8 Head {h00=0x0032, h01=0x0050, text=» SC A3,1,A4 RESET CONTROL CHARACTER IN BUFFER «, t00=0x000d, t01=0x017c}
0x15f8…160a Head {h00=0x000e, h01=0x0050, text=» SRL A3,8 «, t00=0x000e, t01=0x0022}
0x160a…1632 Head {h00=0x0024, h01=0x0050, text=» SCR A3,A4 ALSO RESET FIRST BYTE«, t00=0x000e, t01=0x0034}
0x1632…165a Head {h00=0x0024, h01=0x0050, text=»ENDIO CF A15,TENDIO END REQUEST «, t00=0x000e, t01=0x005c}
0x165a…1670 Head {h00=0x0012, h01=0x0050, text=»EXIT ABL TDISP«, t00=0x000e, t01=0x0084}
0x1670…167e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x009a}
0x167e…1688 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00a8}
0x1688…1692 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00b2}
0x1692…16a6 Head {h00=0x0010, h01=0x0050, text=»* CIOSTA «, t00=0x000e, t01=0x00bc}
0x16a6…16cc Head {h00=0x0022, h01=0x0050, text=»* SUBROUTINE TO SEND BUFFER«, t00=0x000e, t01=0x00d0}
0x16cc…16d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00f6}
0x16d6…16ea Head {h00=0x0010, h01=0x0050, text=»CIOSTA EQU *«, t00=0x000e, t01=0x0100}
0x16ea…170a Head {h00=0x001c, h01=0x0050, text=» ST A5,DWTA5,A6 SAVE A5 «, t00=0x000e, t01=0x0114}
0x170a…171e Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x000e, t01=0x0134}
0x171e…1758 Head {h00=0x0036, h01=0x0050, text=» ORKL A2,/4000 INDICATE CHARACTER MODE, OUTPUT AND«, t00=0x000e, t01=0x0148}
0x1758…177a Head {h00=0x001e, h01=0x0050, text=» IN RIGHT BYTE NUMBER OF«, t00=0x000e, t01=0x0182}
0x177a…1798 Head {h00=0x001a, h01=0x0050, text=» CHARACTERS TO SEND «, t00=0x000f, t01=0x0014}
0x1798…17cc Head {h00=0x0030, h01=0x0050, text=» WER A2,MUXLP FIRST WRITE EXTERNAL REGISTER «, t00=0x000f, t01=0x0032}
0x17cc…17ee Head {h00=0x001e, h01=0x0050, text=» LDR A2,A4 BUFFER ADDRESS «, t00=0x000f, t01=0x0066}
0x17ee…1824 Head {h00=0x0032, h01=0x0050, text=» WER A2,MUXLP+1 SECOND WRITE EXTERNAL REGISTER«, t00=0x000f, t01=0x0088}
0x1824…1830 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x00be}
0x1830…1844 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x000f, t01=0x00ca}
0x1844…1870 Head {h00=0x0028, h01=0x0050, text=» ST A4,DWTA3,A6 SAVE BUFFER ADDRESS «, t00=0x000f, t01=0x00de}
0x1870…1882 Head {h00=0x000e, h01=0x0050, text=» ADR A4,A2«, t00=0x000f, t01=0x010a}
0x1882…18b4 Head {h00=0x002e, h01=0x0050, text=» ST A4,DWTA4,A6 SAVE BUFFER END ADDRESS+1 «, t00=0x000f, t01=0x011c}
0x18b4…18c0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x014e}
0x18c0…18e2 Head {h00=0x001e, h01=0x0050, text=» CIO A2,1,DWALP CIO START «, t00=0x000f, t01=0x015a}
0x18e2…18f2 Head {h00=0x000c, h01=0x0050, text=» RB EXIT«, t00=0x000f, t01=0x017c}
0x18f2…1900 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x018c}
0x1900…190a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x000a}
0x190a…1914 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0014}
0x1914…1932 Head {h00=0x001a, h01=0x0050, text=»* RECOVERY ROUTINE «, t00=0x0010, t01=0x001e}
0x1932…193c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x003c}
0x193c…1956 Head {h00=0x0016, h01=0x0050, text=»LPON CF A15,SAVE8 «, t00=0x0010, t01=0x0046}
0x1956…1974 Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 NOT OPERABLE«, t00=0x0010, t01=0x0060}
0x1974…1998 Head {h00=0x0020, h01=0x0050, text=» LDKL A6,DWLP01 DWT-ADDRESS «, t00=0x0010, t01=0x007e}
0x1998…19ba Head {h00=0x001e, h01=0x0050, text=» LD A2,DWTST,A6 DWT STATUS«, t00=0x0010, t01=0x00a2}
0x19ba…19d6 Head {h00=0x0018, h01=0x0050, text=» RB(N) EXIT LP FREE «, t00=0x0010, t01=0x00c4}
0x19d6…19e8 Head {h00=0x000e, h01=0x0050, text=» RF IHLP30«, t00=0x0010, t01=0x00e0}
0x19e8…19f6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x00f2}
0x19f6…1a00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0100}
0x1a00…1a0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x010a}
0x1a0a…1a28 Head {h00=0x001a, h01=0x0050, text=»* I N T E R R U P T«, t00=0x0010, t01=0x0114}
0x1a28…1a32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0132}
0x1a32…1a44 Head {h00=0x000e, h01=0x0050, text=»IHLP EQU *«, t00=0x0010, t01=0x013c}
0x1a44…1a6c Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x0010, t01=0x014e}
0x1a6c…1a80 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0010, t01=0x0176}
0x1a80…1aa4 Head {h00=0x0020, h01=0x0050, text=» CF A15,SAVE8 SAVE REGISTERS«, t00=0x0010, t01=0x018a}
0x1aa4…1ab0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0011, t01=0x001e}
0x1ab0…1ac4 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x0011, t01=0x002a}
0x1ac4…1ad8 Head {h00=0x0010, h01=0x0050, text=» STR A1,A15 «, t00=0x0011, t01=0x003e}
0x1ad8…1aec Head {h00=0x0010, h01=0x0050, text=» STR A2,A15 «, t00=0x0011, t01=0x0052}
0x1aec…1b10 Head {h00=0x0020, h01=0x0050, text=» LDKL A2,DWLP01 DWT-ADDRESS «, t00=0x0011, t01=0x0066}
0x1b10…1b46 Head {h00=0x0032, h01=0x0050, text=» LD A1,DWTA3,A2 POINTER AT NEXT BYTE IN BUFFER«, t00=0x0011, t01=0x008a}
0x1b46…1b62 Head {h00=0x0018, h01=0x0050, text=» LCR A2,A1 NEXT BYTE«, t00=0x0011, t01=0x00c0}
0x1b62…1b88 Head {h00=0x0022, h01=0x0050, text=» OTR A2,0,DWALP WRITE ONE BYTE«, t00=0x0011, t01=0x00dc}
0x1b88…1bac Head {h00=0x0020, h01=0x0050, text=» RF(NA) IHLP20 NOT ACCEPTED «, t00=0x0011, t01=0x0102}
0x1bac…1bd0 Head {h00=0x0020, h01=0x0050, text=» LDKL A2,DWLP01 DWT-ADDRESS «, t00=0x0011, t01=0x0126}
0x1bd0…1be2 Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0011, t01=0x014a}
0x1be2…1c08 Head {h00=0x0022, h01=0x0050, text=» ST A1,DWTA3,A2 UPDATE POINTER«, t00=0x0011, t01=0x015c}
0x1c08…1c20 Head {h00=0x0014, h01=0x0050, text=» CW A1,DWTA4,A2 «, t00=0x0011, t01=0x0182}
0x1c20…1c44 Head {h00=0x0020, h01=0x0050, text=» RF(NE) IHLP10 NOT LAST BYTE«, t00=0x0012, t01=0x000a}
0x1c44…1c64 Head {h00=0x001c, h01=0x0050, text=» CIO A2,0,DWALP CIO HALT«, t00=0x0012, t01=0x002e}
0x1c64…1c78 Head {h00=0x0010, h01=0x0050, text=»IHLP10 EQU *«, t00=0x0012, t01=0x004e}
0x1c78…1c8c Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A15«, t00=0x0012, t01=0x0062}
0x1c8c…1ca0 Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A15«, t00=0x0012, t01=0x0076}
0x1ca0…1cb0 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0012, t01=0x008a}
0x1cb0…1cba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x009a}
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…1ce8 Head {h00=0x0016, h01=0x0050, text=»IHLP20 STR A3,A15 «, t00=0x0012, t01=0x00b8}
0x1ce8…1cfc Head {h00=0x0010, h01=0x0050, text=» STR A4,A15 «, t00=0x0012, t01=0x00d2}
0x1cfc…1d10 Head {h00=0x0010, h01=0x0050, text=» STR A5,A15 «, t00=0x0012, t01=0x00e6}
0x1d10…1d24 Head {h00=0x0010, h01=0x0050, text=» STR A6,A15 «, t00=0x0012, t01=0x00fa}
0x1d24…1d38 Head {h00=0x0010, h01=0x0050, text=» STR A7,A15 «, t00=0x0012, t01=0x010e}
0x1d38…1d4c Head {h00=0x0010, h01=0x0050, text=» STR A8,A15 «, t00=0x0012, t01=0x0122}
0x1d4c…1d58 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0136}
0x1d58…1d7a Head {h00=0x001e, h01=0x0050, text=» SST A1,DWALP TO INACTIVE «, t00=0x0012, t01=0x0142}
0x1d7a…1d9e Head {h00=0x0020, h01=0x0050, text=» LDKL A6,DWLP01 DWT-ADDRESS «, t00=0x0012, t01=0x0164}
0x1d9e…1db2 Head {h00=0x0010, h01=0x0050, text=»IHLP30 EQU *«, t00=0x0012, t01=0x0188}
0x1db2…1dd0 Head {h00=0x001a, h01=0x0050, text=» LD A7,DWTOR,A6 ORDER «, t00=0x0013, t01=0x000c}
0x1dd0…1de4 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x0013, t01=0x002a}
0x1de4…1e08 Head {h00=0x0020, h01=0x0050, text=» LD A8,DWTECB,A6 ECB-ADDRESS«, t00=0x0013, t01=0x003e}
0x1e08…1e1c Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=0 «, t00=0x0013, t01=0x0062}
0x1e1c…1e54 Head {h00=0x0034, h01=0x0050, text=» RER A3,MUXLP GET NUMBER OF NOT TRANSFERED CHAR.«, t00=0x0013, t01=0x0076}
0x1e54…1e6a Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/FFF «, t00=0x0013, t01=0x00ae}
0x1e6a…1ea6 Head {h00=0x0038, h01=0x0050, text=» LD A2,4,A8 CALCULATE NUMB. OF TRANSFERED CHARACTERS«, t00=0x0013, t01=0x00c4}
0x1ea6…1eb8 Head {h00=0x000e, h01=0x0050, text=» SUR A2,A3«, t00=0x0013, t01=0x0100}
0x1eb8…1ec4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0112}
0x1ec4…1ed8 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x0013, t01=0x011e}
0x1ed8…1f02 Head {h00=0x0026, h01=0x0050, text=» LD A2,DWTA3,A6 GET BUFFER-POINTER«, t00=0x0013, t01=0x0132}
0x1f02…1f1c Head {h00=0x0016, h01=0x0050, text=» CWK A7,6 ORDER 6?«, t00=0x0013, t01=0x015c}
0x1f1c…1f32 Head {h00=0x0012, h01=0x0050, text=» RF(NE) IHLP35«, t00=0x0013, t01=0x0176}
0x1f32…1f48 Head {h00=0x0012, h01=0x0050, text=» ADK A2,1 YES «, t00=0x0013, t01=0x018c}
0x1f48…1f5c Head {h00=0x0010, h01=0x0050, text=»IHLP35 EQU *«, t00=0x0014, t01=0x0012}
0x1f5c…1f98 Head {h00=0x0038, h01=0x0050, text=» SU A2,2,A8 CALCULATE NUMB. OF TRANSFERED CHARACTERS«, t00=0x0014, t01=0x0026}
0x1f98…1fa4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x0062}
0x1fa4…1fca Head {h00=0x0022, h01=0x0050, text=» ST A2,6,A8 STORE EFF. LENGTH «, t00=0x0014, t01=0x006e}
0x1fca…1ff2 Head {h00=0x0024, h01=0x0050, text=» LD A5,DWTA5,A6 GET STACK VALUE «, t00=0x0014, t01=0x0094}
0x1ff2…2002 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0014, t01=0x00bc}
0x2002…2010 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x00cc}
0x2010…201a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00da}
0x201a…2024 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00e4}
0x2024…203c Head {h00=0x0014, h01=0x0050, text=»* D W L P 0 1«, t00=0x0014, t01=0x00ee}
0x203c…2046 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0106}
0x2046…2076 Head {h00=0x002c, h01=0x0050, text=»* DEVICE WORK TABLE FOR LINE PRINTER «, t00=0x0014, t01=0x0110}
0x2076…2080 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0140}
0x2080…2094 Head {h00=0x0010, h01=0x0050, text=»DWLP01 EQU *«, t00=0x0014, t01=0x014a}
0x2094…20b6 Head {h00=0x001e, h01=0x0050, text=» DATA 0 CHANNEL PARAMETER «, t00=0x0014, t01=0x015e}
0x20b6…20d0 Head {h00=0x0016, h01=0x0050, text=» DATA /8000 STATUS«, t00=0x0014, t01=0x0180}
0x20d0…2104 Head {h00=0x0030, h01=0x0050, text=» DATA 0,0 LAST OUTPUT, ORDER AND ECB-ADDRESS«, t00=0x0015, t01=0x000a}
0x2104…2130 Head {h00=0x0028, h01=0x0050, text=» DATA LPADR ADDRESS TO ADDRESS-BLOCK«, t00=0x0015, t01=0x003e}
0x2130…214c Head {h00=0x0018, h01=0x0050, text=» DATA 0 TTAB-ADDRESS«, t00=0x0015, t01=0x006a}
0x214c…2174 Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x0015, t01=0x0086}
0x2174…2192 Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x0015, t01=0x00ae}
0x2192…21b4 Head {h00=0x001e, h01=0x0050, text=» DATA 0 OUTPUT QUEUE LINK «, t00=0x0015, t01=0x00cc}
0x21b4…21d4 Head {h00=0x001c, h01=0x0050, text=» DATA 0 SAVE AREA FOR A3«, t00=0x0015, t01=0x00ee}
0x21d4…21f4 Head {h00=0x001c, h01=0x0050, text=» DATA 0 SAVE AREA FOR A4«, t00=0x0015, t01=0x010e}
0x21f4…2214 Head {h00=0x001c, h01=0x0050, text=» DATA 0 SAVE AREA FOR A5«, t00=0x0015, t01=0x012e}
0x2214…222c Head {h00=0x0014, h01=0x0050, text=» RES 4 DWT-STACK«, t00=0x0015, t01=0x014e}
0x222c…2238 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0015, t01=0x0166}
0x2238…223c Head {h00=0x4004, h01=0x0000}
0x223c…2240 00 15 01 72 ┆ r┆
0x2240…2248 (22, 1, 8) 20 04 00 00 00 16 00 04 ┆ ┆
0x2248…2256 (23, 0, 14) 06 c8 06 d0 06 d8 06 e0 06 e8 06 f0 06 f8 ┆ ┆
0x2256…22a6 (24, 0, 398) 00 32 00 50 5c 49 44 45 4e 54 20 44 52 54 50 30 31 20 5c 52 45 4c 20 38 2e 31 20 37 38 2d 30 34 2d 32 31 20 20 38 37 30 31 30 35 30 34 30 38 31 30 20 00 00 00 04 00 04 00 50 00 00 00 3a 00 06 00 50 2a 20 00 00 00 42 00 3c 00 50 2a 2a 2a 2a ┆ 2 P IDENT DRTP01 REL 8.1 78-04-21 870105040810 P : P* B < P****┆
0x22a6…22f6 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 00 00 4c 00 06 00 50 2a 20 00 00 00 8c 00 24 00 50 2a 20 20 20 50 48 49 4c 49 50 ┆*************************************************** L P* $ P* PHILIP┆
0x22f6…2346 53 20 54 45 52 4d 49 4e 41 4c 20 53 59 53 54 45 4d 20 50 54 53 20 00 00 00 96 00 06 00 50 2a 20 00 00 00 be 00 30 00 50 2a 20 20 20 44 52 54 50 30 31 20 3d 20 44 52 49 56 45 52 20 54 45 4c 4c 45 52 20 54 45 52 4d 49 4e 41 4c 20 50 52 49 4e ┆S TERMINAL SYSTEM PTS P* 0 P* DRTP01 = DRIVER TELLER TERMINAL PRIN┆
0x2346…2396 54 45 52 20 00 00 00 c8 00 06 00 50 2a 20 00 00 00 fc 00 06 00 50 2a 20 00 00 01 06 00 06 00 50 2a 20 00 00 01 10 00 06 00 50 2a 20 00 00 01 1a 00 06 00 50 2a 20 00 00 01 24 00 06 00 50 2a 20 00 00 01 2e 00 3c 00 50 2a 2a 2a 2a 2a 2a 2a 2a ┆TER P* P* P* P* P* $ P* . < P********┆
0x2396…23e4 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 00 01 38 00 06 00 50 2a 20 00 00 01 78 00 06 00 50 2a 20 00 00 01 82 00 06 00 50 2a 20 ┆*********************************************** 8 P* x P* P* ┆
0x23e4…2434 (25, 0, 400) 00 00 01 8c 00 3e 00 50 2a 20 20 20 54 48 49 53 20 44 52 49 56 45 52 20 48 41 4e 44 4c 45 53 20 54 45 4c 4c 45 52 20 54 45 52 4d 49 4e 41 4c 20 50 52 49 4e 54 45 52 53 20 50 54 53 20 36 32 32 31 2c 00 01 00 08 00 36 00 50 2a 20 20 20 36 32 ┆ > P* THIS DRIVER HANDLES TELLER TERMINAL PRINTERS PTS 6221, 6 P* 62┆
0x2434…2484 32 32 20 4f 52 20 36 32 32 33 20 43 4f 4e 4e 45 43 54 45 44 20 54 4f 20 43 50 55 20 56 49 41 20 43 48 4c 54 20 4f 52 20 43 48 52 54 00 01 00 4a 00 06 00 50 2a 20 00 01 00 84 00 06 00 50 2a 20 00 01 00 8e 00 34 00 50 2a 20 20 20 54 48 49 53 ┆22 OR 6223 CONNECTED TO CPU VIA CHLT OR CHRT J P* P* 4 P* THIS┆
0x2484…24d4 20 44 52 49 56 45 52 20 43 4f 4e 53 49 53 54 53 20 4f 46 20 54 48 45 20 46 4f 4c 4c 4f 57 49 4e 47 20 50 41 52 54 53 3a 00 01 00 98 00 06 00 50 2a 20 00 01 00 d0 00 24 00 50 2a 20 20 20 41 20 43 20 54 20 50 20 3a 5c 20 20 41 43 54 49 56 41 ┆ DRIVER CONSISTS OF THE FOLLOWING PARTS: P* $ P* A C T P : ACTIVA┆
0x24d4…2524 54 49 4f 4e 20 50 41 52 54 20 00 01 00 da 00 06 00 50 2a 20 00 01 01 02 00 26 00 50 2a 20 20 20 49 20 48 20 54 20 50 20 3a 5c 20 20 49 4e 54 45 52 52 55 50 54 20 48 41 4e 44 4c 45 52 20 00 01 01 0c 00 06 00 50 2a 20 00 01 01 36 00 24 00 50 ┆TION PART P* & P* I H T P : INTERRUPT HANDLER P* 6 $ P┆
0x2524…2574 2a 20 20 20 52 20 43 20 54 20 50 20 3a 5c 20 20 52 45 43 4f 56 45 52 59 20 52 4f 55 54 49 4e 45 00 01 01 40 00 06 00 50 2a 20 00 01 01 68 00 06 00 50 2a 20 00 01 01 72 00 36 00 50 2a 20 20 20 54 48 45 20 44 52 49 56 45 52 20 43 4f 4e 54 41 ┆* R C T P : RECOVERY ROUTINE @ P* h P* r 6 P* THE DRIVER CONTA┆
0x2574…25c4 (26, 0, 400) 49 4e 53 20 54 48 45 20 46 4f 4c 4c 4f 57 49 4e 47 20 53 55 42 52 4f 55 54 49 4e 45 53 3a 00 01 01 7c 00 06 00 50 2a 20 00 02 00 26 00 42 00 50 2a 20 20 20 50 20 52 20 42 20 55 20 46 20 3a 5c 20 20 47 45 54 20 43 48 41 52 41 43 54 45 52 53 ┆INS THE FOLLOWING SUBROUTINES: | P* & B P* P R B U F : GET CHARACTERS┆
0x25c4…2614 20 46 52 4f 4d 20 45 43 42 2d 42 55 46 46 45 52 20 41 4e 44 20 53 45 4e 44 20 54 48 45 4d 00 02 00 30 00 06 00 50 2a 20 00 02 00 76 00 36 00 50 2a 20 20 20 42 20 43 20 44 20 54 20 42 20 59 20 3a 5c 20 20 43 4f 4e 56 45 52 54 20 46 52 4f 4d ┆ FROM ECB-BUFFER AND SEND THEM 0 P* v 6 P* B C D T B Y : CONVERT FROM┆
0x2614…2664 20 42 49 4e 41 52 59 20 54 4f 20 44 45 43 49 4d 41 4c 00 02 00 80 00 06 00 50 2a 20 00 02 00 ba 00 44 00 50 2a 20 20 20 42 20 55 20 46 20 43 20 48 20 52 20 3a 5c 20 20 53 45 4e 44 20 54 48 45 20 4e 55 4d 42 45 52 20 4f 46 20 43 48 41 52 41 ┆ BINARY TO DECIMAL P* D P* B U F C H R : SEND THE NUMBER OF CHARA┆
0x2664…26b4 43 54 45 52 53 20 47 49 56 45 4e 20 49 4e 20 46 49 52 53 54 00 02 00 c4 00 24 00 50 2a 5c 5c 20 20 43 48 41 52 41 43 54 45 52 20 49 4e 20 4f 55 54 50 55 54 20 42 55 46 46 45 52 20 00 02 01 0c 00 06 00 50 2a 20 00 02 01 34 00 0a 00 50 5c 45 ┆CTERS GIVEN IN FIRST $ P* CHARACTER IN OUTPUT BUFFER P* 4 P E┆
0x26b4…2704 4a 45 43 54 00 02 01 3e 00 06 00 50 2a 20 00 02 01 4c 00 2a 00 50 2a 20 20 20 54 48 45 20 46 4f 4c 4c 4f 57 49 4e 47 20 4f 52 44 45 52 53 20 41 52 45 20 54 52 45 41 54 45 44 3a 20 00 02 01 56 00 06 00 50 2a 20 00 02 01 84 00 20 00 50 2a 20 ┆JECT > P* L * P* THE FOLLOWING ORDERS ARE TREATED: V P* P* ┆
0x2704…2754 (27, 0, 400) 20 20 4f 52 44 45 52 20 30 30 20 3a 5c 20 20 54 45 53 54 20 53 54 41 54 55 53 00 02 01 8e 00 22 00 50 2a 20 20 20 4f 52 44 45 52 20 30 36 20 3a 5c 20 20 57 52 49 54 45 20 4a 4f 55 52 4e 41 4c 00 03 00 22 00 26 00 50 2a 20 20 20 4f 52 44 45 ┆ ORDER 00 : TEST STATUS " P* ORDER 06 : WRITE JOURNAL " & P* ORDE┆
0x2754…27a4 52 20 30 37 20 3a 5c 20 20 57 52 49 54 45 20 54 41 4c 4c 59 20 52 4f 4c 4c 20 00 03 00 48 00 2c 00 50 2a 20 20 20 4f 52 44 45 52 20 30 38 20 3a 5c 20 20 57 52 49 54 45 20 56 4f 55 43 48 45 52 2f 50 41 53 53 42 4f 4f 4b 20 00 03 00 72 00 06 ┆R 07 : WRITE TALLY ROLL H , P* ORDER 08 : WRITE VOUCHER/PASSBOOK r ┆
0x27a4…27f4 00 50 2a 20 00 03 00 a2 00 06 00 50 2a 20 00 03 00 ac 00 1e 00 50 2a 20 20 20 4e 4f 52 4d 41 4c 20 52 45 47 49 53 54 45 52 20 55 53 41 47 45 3a 00 03 00 b6 00 06 00 50 2a 20 00 03 00 d8 00 22 00 50 2a 20 20 20 52 45 47 49 53 54 45 52 20 41 ┆ P* P* P* NORMAL REGISTER USAGE: P* " P* REGISTER A┆
0x27f4…2844 31 3a 5c 57 4f 52 4b 20 52 45 47 49 53 54 45 52 00 03 00 e2 00 22 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 41 32 3a 5c 49 4e 50 55 54 2f 4f 55 54 50 55 54 20 00 03 01 08 00 24 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 41 33 3a 5c 42 ┆1: WORK REGISTER " P* A2: INPUT/OUTPUT $ P* A3: B┆
0x2844…2894 55 46 46 45 52 20 50 4f 49 4e 54 45 52 20 00 03 01 2e 00 24 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 41 34 3a 5c 4f 55 54 50 55 54 20 43 4f 55 4e 54 45 52 20 00 03 01 56 00 22 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 41 35 3a 5c 53 ┆UFFER POINTER . $ P* A4: OUTPUT COUNTER V " P* A5: S┆
0x2894…28e4 (28, 0, 400) 54 41 43 4b 20 50 4f 49 4e 54 45 52 00 03 01 7e 00 20 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 41 36 3a 5c 44 57 54 2d 41 44 44 52 45 53 53 00 04 00 14 00 1a 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 41 37 3a 5c 4f 52 44 45 52 00 04 ┆TACK POINTER ~ P* A6: DWT-ADDRESS P* A7: ORDER ┆
0x28e4…2934 00 38 00 20 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 41 38 3a 5c 45 43 42 2d 41 44 44 52 45 53 53 00 04 00 56 00 06 00 50 2a 20 00 04 00 7a 00 06 00 50 2a 20 00 04 00 84 00 1a 00 50 2a 20 20 20 53 59 53 54 45 4d 20 41 44 41 50 54 41 54 ┆ 8 P* A8: ECB-ADDRESS V P* z P* P* SYSTEM ADAPTAT┆
0x2934…2984 49 4f 4e 3a 00 04 00 8e 00 06 00 50 2a 20 00 04 00 ac 00 44 00 50 2a 20 20 20 42 59 20 4d 45 41 4e 53 20 4f 46 20 43 4f 4e 44 49 54 49 4f 4e 41 4c 20 41 53 53 45 4d 42 4c 59 20 54 48 45 20 46 4f 4c 4c 4f 57 49 4e 47 20 46 55 4e 43 54 49 4f ┆ION: P* D P* BY MEANS OF CONDITIONAL ASSEMBLY THE FOLLOWING FUNCTIO┆
0x2984…29d4 4e 53 20 43 41 4e 00 04 00 b6 00 14 00 50 2a 20 20 20 42 45 20 45 58 43 4c 55 44 45 44 3a 00 04 00 fe 00 06 00 50 2a 20 00 04 01 16 00 1c 00 50 2a 20 20 20 4f 52 44 45 52 20 30 37 20 20 28 50 54 53 20 36 32 32 33 29 00 04 01 20 00 34 00 50 ┆NS CAN P* BE EXCLUDED: P* P* ORDER 07 (PTS 6223) 4 P┆
0x29d4…2a24 2a 20 20 20 43 55 54 2f 50 45 52 46 4f 52 41 54 45 20 4a 4f 55 52 4e 41 4c 20 54 41 50 45 20 20 28 50 54 53 20 36 32 32 31 2c 36 32 32 32 29 20 00 04 01 40 00 30 00 50 2a 20 20 20 41 43 43 41 50 54 41 4e 43 45 20 4f 46 20 53 50 45 43 49 41 ┆* CUT/PERFORATE JOURNAL TAPE (PTS 6221,6222) @ 0 P* ACCAPTANCE OF SPECIA┆