|
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: 11064 (0x2b38)
Notes: pts_type(SC)
Names: »DRLP01.SC«
└─⟦13e5fd45a⟧ Bits:30009699 Philips computer tape "600507"
└─⟦this⟧ »TOSSWORK/DRLP01.SC«
└─⟦bc20f3abf⟧ Bits:30009670 Philips computer tape "600126"
└─⟦this⟧ »TOSSWORK/DRLP01.SC«
IDENT DRLP01 REL 11.0 81-01-26 870105041100 =1,WHEN CHAN=1 DRIVER WILL SERVE BOTH MUX AND PC REL 10.0 80-03-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 DRLP01 * * ************************ * 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 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 DWTSB2 STACK BASE 2 IN DWT EXTRN INTSAV SAVE AREA LAST INTERRUPT EXTRN PFPOST PWF POST PROCESSING FLAG EJECT DRLP01 * * ***************************** * CONSTANTS * ***************************** * * DWALP EQU /0F MUXLP EQU DWALP+DWALP MUX ADDRESS * EJECT DRLP01 * * ***************************************** * * CONDITIONAL ASSEMBLY * ***************************************** * * IF X:A=0 THE DRIVER WILL ONLY SERVE MUX =1 * IF X:A=1 THE DRIVER WILL SERVE BOTH MUX AND PC =1 * X:A EQU 0 CHAN EQU X:A * * A PROGRAM VERSION USING TOSS MMU PAGING * IS OBTAINED BY SETTING MMUPAG EQU 1. * MMUPAG EQU 0 * * * A PROGRAM VERSION USING THE EXTENDED INSTRUCTION * SET IS OBTAINED BY SETTING CPU852 EQU 0. * CPU852 EQU 1 * * MMU BUFFER SIZE * X:B EQU 67 DVBLEN EQU X:B * * MMU DEVICE INDEX * X:C EQU 2 DEVIND EQU X:C LINE PRINTER DEVICE INDEX * EJECT DRLP01 * * *********************** * 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 DRLP01 * * ************************************ * 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 * ******************************** * * DATA DVBLEN+DVBLEN MMU BUFFER LENGTH DATA DEVIND DEVICE INDEX LPADR DATA ACLP ACTIVATION DRIVER DATA 0 ABORT ROUTINE ADDRESS * EJECT DRLP01 * * * 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 * EJECT DRLP01 * * 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 ECR A3,A3 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 * EJECT DRLP01 * * 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 ECR A3,A3 SCR A3,A4 ALSO RESET FIRST BYTE * ENDIO CF A15,TENDIO END REQUEST EXIT ABL TDISP * EJECT DRLP01 * * * CIOSTA * SUBROUTINE TO SEND BUFFER * * CIOSTA EQU * ST A5,DWTA5,A6 SAVE A5 IFT CHAN=1 =1 NGR A1,A2 NEGATE BUFFER LENGTH =1 ST A1,DWTA3,A6 END OF BUFFER INDICATOR =1 ST A4,DWTA4,A6 BUFFER POINTER =1 XIF =1 ORKL A2,/4000 INDICATE CHARACTER MODE, OUTPUT AND IN RIGHT BYTE NUMBER OF CHARACTERS TO SEND WER A2,MUXLP FIRST WRITE EXTERNAL REGISTER WER A4,MUXLP+1 SECOND WRITE EXTERNAL REGISTER * LD A1,PFPOST RB(NZ) EXIT PFINIT PENDING CIO A2,1,DWALP CIO START RB(Z) EXIT LDK A1,1 ERROR RB ENDIO * EJECT DRLP01 * * * RECOVERY ROUTINE * * LPON 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 * LDK A1,1 NOT OPERABLE LDKL A6,DWLP01 DWT ADDRESS LD A2,DWTST,A6 DWT STATUS RB(N) EXIT LP FREE RF IHLP30 * EJECT DRLP01 * * * I N T E R R U P T * * IHLP EQU * ST P,INTSAV SAVE LAST INTERRUPT * IFT CHAN=1 STR A1,A15 STR A2,A15 LDKL A1,DWLP01 DWT ADDRESS =1 LC* A2,DWTA4,A1 NEXT BYTE TO PRINT =1 OTR A2,0,DWALP WRITE ONE BYTE RF(NA) IHLP20 NOT ACCEPTED IM DWTA4,A1 INCREMENT BUFFER POINTER =1 IM DWTA3,A1 INCREMENT END OF BUFFER INDICATOR =1 RF(N) IHLP10 NOT LAST BYTE =1 CIO A2,0,DWALP CIO HALT IHLP10 EQU * LDR* A2,A15 LDR* A1,A15 RTN A15 EJECT * * * IHLP20 EQU * =1 LDR* A2,A15 =1 LDR* A1,A15 =1 XIF * IFT CPU852=1 =1 CF A15,SAVE8 SAVE A1-A8 ON STACK =1 XIF =1 * IFT CPU852=0 =1 MSR 8,A15 SAVE A1-A8 ON STACK =1 XIF =1 * SST A1,DWALP GET STATUS LDKL A6,DWLP01 DWT ADDRESS * IHLP30 EQU * LD A7,DWTOR,A6 ORDER ANK A7,/FF LD A8,DWTECB,A6 ECB ADDRESS * LD A2,4,A8 =1 ST A2,6,A8 STORE EFF. LENGTH LD A5,DWTA5,A6 GET STACK VALUE RTN A5 * EJECT DRLP01 * * D W L P 0 1 * * DEVICE WORK TABLE FOR LINE PRINTER * DWLP01 EQU * DATA 0 CHANNEL PARAMETER DATA /8000 STATUS DATA 0 ECB ADDRESS DATA 0 ORDER DATA LPADR ADDRESS 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 DWT STACK * IFT MMUPAG=1 DEVECB EQU * DATA 0 DATA LP:BUF DATA 0,0,0,0 LP:BUF RES DVBLEN+1 XIF * END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT DRLP01 REL 11.0 81-01-26 870105041100 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…007a Head {h00=0x0038, h01=0x0050, text=» =1,WHEN CHAN=1 DRIVER WILL SERVE BOTH MUX AND PC «, t00=0x0000, t01=0x0042}
0x007a…0096 Head {h00=0x0018, h01=0x0050, text=» REL 10.0 80-03-14«, t00=0x0000, t01=0x007e}
0x0096…00a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x009a}
0x00a0…00aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00a4}
0x00aa…00ec Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0000, t01=0x00ae}
0x00ec…00f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f0}
0x00f6…011e Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x00fa}
0x011e…0128 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0122}
0x0128…0150 Head {h00=0x0024, h01=0x0050, text=»* DRLP01 = DRIVER LINE PRINTER«, t00=0x0000, t01=0x012c}
0x0150…015a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0154}
0x015a…0164 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x015e}
0x0164…016e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0168}
0x016e…0178 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0172}
0x0178…0182 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x017c}
0x0182…018c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0186}
0x018c…01ce Head {h00=0x003e, h01=0x0050, text=»**********************************************************«, t00=0x0000, t01=0x0190}
0x01ce…01d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0042}
0x01d8…01e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x004c}
0x01e2…0226 Head {h00=0x0040, h01=0x0050, text=»* THIS DRIVER HANDLES ONE LINE PRINTER PTS 6881 CONNECTED«, t00=0x0001, t01=0x0056}
0x0226…0266 Head {h00=0x003c, h01=0x0050, text=»* TO CPU VIA CHLP ON MULTIPLEX CHANNEL OR PROGRAMMED «, t00=0x0001, t01=0x009a}
0x0266…027a Head {h00=0x0010, h01=0x0050, text=»* CHANNEL«, t00=0x0001, t01=0x00da}
0x027a…0284 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ee}
0x0284…029c Head {h00=0x0014, h01=0x0050, text=» EJECT DRLP01 «, t00=0x0001, t01=0x00f8}
0x029c…02a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0110}
0x02a6…02b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x011a}
0x02b0…02d0 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0001, t01=0x0124}
0x02d0…02f0 Head {h00=0x001c, h01=0x0050, text=»* ENTRIES *«, t00=0x0001, t01=0x0144}
0x02f0…0310 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0001, t01=0x0164}
0x0310…031a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0184}
0x031a…0324 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x018e}
0x0324…0346 Head {h00=0x001e, h01=0x0050, text=» ENTRY LPADR ADDRESS BLOCK«, t00=0x0002, t01=0x0008}
0x0346…036c Head {h00=0x0022, h01=0x0050, text=» ENTRY ACLP ACTIVATION DRIVER «, t00=0x0002, t01=0x002a}
0x036c…0392 Head {h00=0x0022, h01=0x0050, text=» ENTRY IHLP INTERRUPT HANDLER «, t00=0x0002, t01=0x0050}
0x0392…03b6 Head {h00=0x0020, h01=0x0050, text=» ENTRY LPON RECOVERY ROUTINE«, t00=0x0002, t01=0x0076}
0x03b6…03e0 Head {h00=0x0026, h01=0x0050, text=» ENTRY DWLP01 DWT FOR LINE PRINTER«, t00=0x0002, t01=0x009a}
0x03e0…03e8 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x00c4}
0x03e8…03f0 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x00cc}
0x03f0…03f8 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x00d4}
0x03f8…0402 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00dc}
0x0402…040c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00e6}
0x040c…043c Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0002, t01=0x00f0}
0x043c…046c Head {h00=0x002c, h01=0x0050, text=»* EXTERNAL TOSS MODULE ENTRIES *«, t00=0x0002, t01=0x0120}
0x046c…049c Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0002, t01=0x0150}
0x049c…04a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0180}
0x04a6…04b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x018a}
0x04b0…04d0 (3, 0, 400) Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0003, t01=0x0004}
0x04d0…04ee Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x0003, t01=0x0024}
0x04ee…0518 Head {h00=0x0026, h01=0x0050, text=» EXTRN SAVE8 SAVE 8 REGS ON STACK «, t00=0x0003, t01=0x0042}
0x0518…053c Head {h00=0x0020, h01=0x0050, text=» EXTRN DISIOE REQUEST ERROR «, t00=0x0003, t01=0x006c}
0x053c…0558 Head {h00=0x0018, h01=0x0013, text=» EXTRN DWTST STATUS «, t00=0x0003, t01=0x0090}
0x0558…057a Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTBC BYTE COUNTER «, t00=0x0003, t01=0x00ac}
0x057a…059c Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTECB ECB ADDRESS «, t00=0x0003, t01=0x00ce}
0x059c…05c4 Head {h00=0x0024, h01=0x0020, text=» EXTRN DWTOR DWT INDEX AND ORDER«, t00=0x0003, t01=0x00f0}
0x05c4…05e6 Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTA3 SAVE AREA A3 «, t00=0x0003, t01=0x0118}
0x05e6…0608 Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTA4 SAVE AREA A4 «, t00=0x0003, t01=0x013a}
0x0608…062a Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTA5 SAVE AREA A5 «, t00=0x0003, t01=0x015c}
0x062a…0654 Head {h00=0x0026, h01=0x0021, text=» EXTRN DWTSB2 STACK BASE 2 IN DWT «, t00=0x0003, t01=0x017e}
0x0654…0682 Head {h00=0x002a, h01=0x0050, text=» EXTRN INTSAV SAVE AREA LAST INTERRUPT«, t00=0x0004, t01=0x0018}
0x0682…06b0 Head {h00=0x002a, h01=0x0050, text=» EXTRN PFPOST PWF POST PROCESSING FLAG«, t00=0x0004, t01=0x0046}
0x06b0…06c8 Head {h00=0x0014, h01=0x0050, text=» EJECT DRLP01 «, t00=0x0004, t01=0x0074}
0x06c8…06d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x008c}
0x06d2…06dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0096}
0x06dc…0702 Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x0004, t01=0x00a0}
0x0702…0728 Head {h00=0x0022, h01=0x0050, text=»* CONSTANTS * «, t00=0x0004, t01=0x00c6}
0x0728…074e Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x0004, t01=0x00ec}
0x074e…0758 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0112}
0x0758…0762 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x011c}
0x0762…0778 Head {h00=0x0012, h01=0x0050, text=»DWALP EQU /0F «, t00=0x0004, t01=0x0126}
0x0778…07a2 Head {h00=0x0026, h01=0x0050, text=»MUXLP EQU DWALP+DWALP MUX ADDRESS «, t00=0x0004, t01=0x013c}
0x07a2…07ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0166}
0x07ac…07c4 Head {h00=0x0014, h01=0x0050, text=» EJECT DRLP01 «, t00=0x0004, t01=0x0170}
0x07c4…07ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0188}
0x07ce…07d8 (5, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0004}
0x07d8…080a Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0005, t01=0x000e}
0x080a…0814 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0040}
0x0814…0832 Head {h00=0x001a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x0005, t01=0x004a}
0x0832…083c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0068}
0x083c…086e Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0005, t01=0x0072}
0x086e…0878 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00a4}
0x0878…08ac Head {h00=0x0030, h01=0x0050, text=»* IF X:A=0 THE DRIVER WILL ONLY SERVE MUX =1«, t00=0x0005, t01=0x00ae}
0x08ac…08e8 Head {h00=0x0038, h01=0x0050, text=»* IF X:A=1 THE DRIVER WILL SERVE BOTH MUX AND PC =1 «, t00=0x0005, t01=0x00e2}
0x08e8…08f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x011e}
0x08f2…0904 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x0005, t01=0x0128}
0x0904…0918 Head {h00=0x0010, h01=0x0050, text=»CHAN EQU X:A«, t00=0x0005, t01=0x013a}
0x0918…0922 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x014e}
0x0922…0954 Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0005, t01=0x0158}
0x0954…0982 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0005, t01=0x018a}
0x0982…098c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0028}
0x098c…09a0 Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0006, t01=0x0032}
0x09a0…09aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0046}
0x09aa…09b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0050}
0x09b4…09ee Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0006, t01=0x005a}
0x09ee…0a20 Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0006, t01=0x0094}
0x0a20…0a2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00c6}
0x0a2a…0a3e Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x0006, t01=0x00d0}
0x0a3e…0a48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00e4}
0x0a48…0a64 Head {h00=0x0018, h01=0x0050, text=»* MMU BUFFER SIZE «, t00=0x0006, t01=0x00ee}
0x0a64…0a6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x010a}
0x0a6e…0a80 Head {h00=0x000e, h01=0x0050, text=»X:B EQU 67«, t00=0x0006, t01=0x0114}
0x0a80…0a96 Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU X:B«, t00=0x0006, t01=0x0126}
0x0a96…0aa0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x013c}
0x0aa0…0abc Head {h00=0x0018, h01=0x0050, text=»* MMU DEVICE INDEX«, t00=0x0006, t01=0x0146}
0x0abc…0ac6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0162}
0x0ac6…0ad8 Head {h00=0x000e, h01=0x0050, text=»X:C EQU 2 «, t00=0x0006, t01=0x016c}
0x0ad8…0b08 Head {h00=0x002c, h01=0x0050, text=»DEVIND EQU X:C LINE PRINTER DEVICE INDEX«, t00=0x0006, t01=0x017e}
0x0b08…0b12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x001e}
0x0b12…0b2a Head {h00=0x0014, h01=0x0050, text=» EJECT DRLP01 «, t00=0x0007, t01=0x0028}
0x0b2a…0b34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0040}
0x0b34…0b3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x004a}
0x0b3e…0b5e Head {h00=0x001c, h01=0x0050, text=»*********************** «, t00=0x0007, t01=0x0054}
0x0b5e…0b7e Head {h00=0x001c, h01=0x0050, text=»* ORDERS * «, t00=0x0007, t01=0x0074}
0x0b7e…0b9e Head {h00=0x001c, h01=0x0050, text=»*********************** «, t00=0x0007, t01=0x0094}
0x0b9e…0ba8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00b4}
0x0ba8…0bcc Head {h00=0x0020, h01=0x0050, text=»* ORDER /00: TEST STATUS.«, t00=0x0007, t01=0x00be}
0x0bcc…0c08 Head {h00=0x0038, h01=0x0050, text=»* A TST INSTRUCTION IS EXECUTED TO SEE«, t00=0x0007, t01=0x00e2}
0x0c08…0c3c Head {h00=0x0030, h01=0x0050, text=»* IF LINE PRINTER IS OPERABLE.«, t00=0x0007, t01=0x011e}
0x0c3c…0c46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0152}
0x0c46…0c6a Head {h00=0x0020, h01=0x0050, text=»* ORDER /05: BASIC WRITE.«, t00=0x0007, t01=0x015c}
0x0c6a…0c74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0180}
0x0c74…0cb2 Head {h00=0x003a, h01=0x0050, text=»* THE REQUESTED NUMBER OF CHARACTERS ARE«, t00=0x0007, t01=0x018a}
0x0cb2…0cf6 Head {h00=0x0040, h01=0x0050, text=»* SENT TO THE LINE PRINTER WITHOUT ANY CHECK. «, t00=0x0008, t01=0x0038}
0x0cf6…0d00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x007c}
0x0d00…0d28 Head {h00=0x0024, h01=0x0050, text=»* ORDER /06: STANDARD WRITE. «, t00=0x0008, t01=0x0086}
0x0d28…0d6c Head {h00=0x0040, h01=0x0050, text=»* FIRST WORD IN ECB BUFFER CONTAINS A CONTROL «, t00=0x0008, t01=0x00ae}
0x0d6c…0d8e Head {h00=0x001e, h01=0x0050, text=»* CHARACTER.«, t00=0x0008, t01=0x00f2}
0x0d8e…0dce Head {h00=0x003c, h01=0x0050, text=»* /2B: PRINT LINE WITHOUT ADVANCING PAPER «, t00=0x0008, t01=0x0114}
0x0dce…0e0c Head {h00=0x003a, h01=0x0050, text=»* /30: ADVANCE TWO LINES BEFORE PRINTING«, t00=0x0008, t01=0x0154}
0x0e0c…0e4c (9, 0, 400) Head {h00=0x003c, h01=0x0050, text=»* /31: SKIP TO TOP OF FORM BEFORE PRINTING«, t00=0x0009, t01=0x0004}
0x0e4c…0e8e Head {h00=0x003e, h01=0x0050, text=»* OTHER CHARACTERS GIVES A LINE FEED BEFORE «, t00=0x0009, t01=0x0044}
0x0e8e…0eb0 Head {h00=0x001e, h01=0x0050, text=»* PRINTING. «, t00=0x0009, t01=0x0086}
0x0eb0…0eba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00a8}
0x0eba…0ec4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00b2}
0x0ec4…0f06 Head {h00=0x003e, h01=0x0050, text=»* CHARACTERS IN BUFFER SHOULD BE WITHIN THE «, t00=0x0009, t01=0x00bc}
0x0f06…0f48 Head {h00=0x003e, h01=0x0050, text=»* INTERVAL /20-/5F. NO CHECK IS CARRIED OUT «, t00=0x0009, t01=0x00fe}
0x0f48…0f8e Head {h00=0x0042, h01=0x0050, text=»* BY DRIVER. AT THE END OF ECB BUFFER ONE BYTE «, t00=0x0009, t01=0x0140}
0x0f8e…0fd0 Head {h00=0x003e, h01=0x0050, text=»* MUST BE RESERVED FOR THE DRIVER TO STORE A«, t00=0x0009, t01=0x0186}
0x0fd0…0ff8 Head {h00=0x0024, h01=0x0050, text=»* PRINT CHARACTER.«, t00=0x000a, t01=0x0038}
0x0ff8…1002 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0060}
0x1002…101a Head {h00=0x0014, h01=0x0050, text=» EJECT DRLP01 «, t00=0x000a, t01=0x006a}
0x101a…1024 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0082}
0x1024…102e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x008c}
0x102e…105a Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x000a, t01=0x0096}
0x105a…1086 Head {h00=0x0028, h01=0x0050, text=»* NORMAL REGISTER USAGE *«, t00=0x000a, t01=0x00c2}
0x1086…10b2 Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x000a, t01=0x00ee}
0x10b2…10bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x011a}
0x10bc…10c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0124}
0x10c6…10e4 Head {h00=0x001a, h01=0x0050, text=»* A1 = RETURN CODE «, t00=0x000a, t01=0x012e}
0x10e4…1104 Head {h00=0x001c, h01=0x0050, text=»* A2 = WORK REGISTER «, t00=0x000a, t01=0x014c}
0x1104…1124 Head {h00=0x001c, h01=0x0050, text=»* A3 = WORK REGISTER «, t00=0x000a, t01=0x016c}
0x1124…1144 Head {h00=0x001c, h01=0x0050, text=»* A4 = BUFFER ADDRESS«, t00=0x000a, t01=0x018c}
0x1144…1160 Head {h00=0x0018, h01=0x0050, text=»* A5 = STACK BASE«, t00=0x000b, t01=0x001c}
0x1160…117e Head {h00=0x001a, h01=0x0050, text=»* A6 = DWT ADDRESS «, t00=0x000b, t01=0x0038}
0x117e…1196 Head {h00=0x0014, h01=0x0050, text=»* A7 = ORDER «, t00=0x000b, t01=0x0056}
0x1196…11b4 Head {h00=0x001a, h01=0x0050, text=»* A8 = ECB ADDRESS «, t00=0x000b, t01=0x006e}
0x11b4…11be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x008c}
0x11be…11c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0096}
0x11c8…11f0 Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x000b, t01=0x00a0}
0x11f0…1218 Head {h00=0x0024, h01=0x0050, text=»* TABLES *«, t00=0x000b, t01=0x00c8}
0x1218…1240 Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x000b, t01=0x00f0}
0x1240…124a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0118}
0x124a…1254 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0122}
0x1254…1282 Head {h00=0x002a, h01=0x0050, text=» DATA DVBLEN+DVBLEN MMU BUFFER LENGTH «, t00=0x000b, t01=0x012c}
0x1282…12a4 Head {h00=0x001e, h01=0x0050, text=» DATA DEVIND DEVICE INDEX «, t00=0x000b, t01=0x015a}
0x12a4…12ce Head {h00=0x0026, h01=0x0050, text=»LPADR DATA ACLP ACTIVATION DRIVER «, t00=0x000b, t01=0x017c}
0x12ce…12f4 Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x000c, t01=0x0016}
0x12f4…12fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x003c}
0x12fe…1316 Head {h00=0x0014, h01=0x0050, text=» EJECT DRLP01 «, t00=0x000c, t01=0x0046}
0x1316…1320 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x005e}
0x1320…132a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0068}
0x132a…134a Head {h00=0x001c, h01=0x0050, text=»* A C T I V A T I O N«, t00=0x000c, t01=0x0072}
0x134a…1354 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0092}
0x1354…135e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x009c}
0x135e…1370 Head {h00=0x000e, h01=0x0050, text=»ACLP EQU *«, t00=0x000c, t01=0x00a6}
0x1370…1394 Head {h00=0x0020, h01=0x0050, text=» LDK A1,/0D CARRIAGE RETURN «, t00=0x000c, t01=0x00b8}
0x1394…13b0 Head {h00=0x0018, h01=0x0050, text=» LDR A7,A7 ORDER 0 ?«, t00=0x000c, t01=0x00dc}
0x13b0…13ca Head {h00=0x0016, h01=0x0050, text=» RF(NE) ACLP05 NO «, t00=0x000c, t01=0x00f8}
0x13ca…13ee Head {h00=0x0020, h01=0x0050, text=» LDKL A4,DWTBC BYTE COUNTER «, t00=0x000c, t01=0x0112}
0x13ee…1410 Head {h00=0x001e, h01=0x0050, text=» ADR A4,A6 ADD DWT ADDRESS«, t00=0x000c, t01=0x0136}
0x1410…1438 Head {h00=0x0024, h01=0x0050, text=» SCR A1,A4 STORE CARRIAGE RETURN«, t00=0x000c, t01=0x0158}
0x1438…144a Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x000c, t01=0x0180}
0x144a…145c (13, 0, 400) Head {h00=0x000e, h01=0x0050, text=» RF ACLP30«, t00=0x000d, t01=0x0004}
0x145c…1466 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0016}
0x1466…148e Head {h00=0x0024, h01=0x0050, text=»ACLP05 LD A4,2,A8 BUFFER ADDRESS«, t00=0x000d, t01=0x0020}
0x148e…14ae Head {h00=0x001c, h01=0x0050, text=» LD A2,4,A8 REQ. LENGTH «, t00=0x000d, t01=0x0048}
0x14ae…14ca Head {h00=0x0018, h01=0x0050, text=» SUK A7,5 ORDER 5 ? «, t00=0x000d, t01=0x0068}
0x14ca…14e0 Head {h00=0x0012, h01=0x0050, text=» RF(E) ACLP30 «, t00=0x000d, t01=0x0084}
0x14e0…14fc Head {h00=0x0018, h01=0x0050, text=» SUK A7,1 ORDER 6 ? «, t00=0x000d, t01=0x009a}
0x14fc…1512 Head {h00=0x0012, h01=0x0050, text=» RF(E) ACLP10 «, t00=0x000d, t01=0x00b6}
0x1512…151c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00cc}
0x151c…1534 Head {h00=0x0014, h01=0x0050, text=»ACERR ABL DISIOE«, t00=0x000d, t01=0x00d6}
0x1534…153e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00ee}
0x153e…1556 Head {h00=0x0014, h01=0x0050, text=» EJECT DRLP01 «, t00=0x000d, t01=0x00f8}
0x1556…1560 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0110}
0x1560…156a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x011a}
0x156a…157e Head {h00=0x0010, h01=0x0050, text=»ACLP10 EQU *«, t00=0x000d, t01=0x0124}
0x157e…15a2 Head {h00=0x0020, h01=0x0050, text=» CWK A2,2 REQ. LENGTH < 2 ? «, t00=0x000d, t01=0x0138}
0x15a2…15bc Head {h00=0x0016, h01=0x0050, text=» RF(NL) ACLP12 NO «, t00=0x000d, t01=0x015c}
0x15bc…15f6 Head {h00=0x0036, h01=0x0050, text=» LDK A2,2 YES , SAME ACTIONS AS FOR REQ. LENGTH=2 «, t00=0x000d, t01=0x0176}
0x15f6…1600 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0020}
0x1600…1614 Head {h00=0x0010, h01=0x0050, text=»ACLP12 EQU *«, t00=0x000e, t01=0x002a}
0x1614…1636 Head {h00=0x001e, h01=0x0050, text=» LDR A3,A4 BUFFER ADDRESS «, t00=0x000e, t01=0x003e}
0x1636…1660 Head {h00=0x0026, h01=0x0050, text=» ADR A3,A2 ADDED WITH REQ. LENGTH «, t00=0x000e, t01=0x0060}
0x1660…1688 Head {h00=0x0024, h01=0x0050, text=» SCR A1,A3 STORE PRINT CHARACTER«, t00=0x000e, t01=0x008a}
0x1688…169a Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x000e, t01=0x00b2}
0x169a…16ac Head {h00=0x000e, h01=0x0050, text=» LCR A3,A4«, t00=0x000e, t01=0x00c4}
0x16ac…16be Head {h00=0x000e, h01=0x0050, text=» ECR A3,A3«, t00=0x000e, t01=0x00d6}
0x16be…16e8 Head {h00=0x0026, h01=0x0050, text=» LC A3,1,A4 GET CONTROL CHARACTER «, t00=0x000e, t01=0x00e8}
0x16e8…16fe Head {h00=0x0012, h01=0x0050, text=» ST A3,CONCHA «, t00=0x000e, t01=0x0112}
0x16fe…1712 Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x000e, t01=0x0128}
0x1712…173a Head {h00=0x0024, h01=0x0050, text=» SUK A3,/2B SUPER POSITIONING ? «, t00=0x000e, t01=0x013c}
0x173a…1754 Head {h00=0x0016, h01=0x0050, text=» RF(NE) ACLP15 NO «, t00=0x000e, t01=0x0164}
0x1754…177c Head {h00=0x0024, h01=0x0050, text=» SUK A2,2 DECREMENT REQ. LENGTH «, t00=0x000e, t01=0x017e}
0x177c…17a6 Head {h00=0x0026, h01=0x0050, text=» ADK A4,2 INCREMENT BUFFER ADDRESS«, t00=0x000f, t01=0x0016}
0x17a6…17b8 Head {h00=0x000e, h01=0x0050, text=» RF ACLP30«, t00=0x000f, t01=0x0040}
0x17b8…17c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0052}
0x17c2…17e6 Head {h00=0x0020, h01=0x0050, text=»ACLP15 LDK A1,/0A LINE FEED «, t00=0x000f, t01=0x005c}
0x17e6…1814 Head {h00=0x002a, h01=0x0050, text=» SC A1,1,A4 SECOND CHARACTER IN BUFFER«, t00=0x000f, t01=0x0080}
0x1814…1836 Head {h00=0x001e, h01=0x0050, text=» SUK A3,5 TWO LINE FEEDS ?«, t00=0x000f, t01=0x00ae}
0x1836…1850 Head {h00=0x0016, h01=0x0050, text=» RF(E) ACLP20 YES «, t00=0x000f, t01=0x00d0}
0x1850…1870 Head {h00=0x001c, h01=0x0050, text=» LDK A1,/0C TOP OF FORM «, t00=0x000f, t01=0x00ea}
0x1870…188a Head {h00=0x0016, h01=0x0050, text=» SUK A3,1 WANTED ?«, t00=0x000f, t01=0x010a}
0x188a…18a4 Head {h00=0x0016, h01=0x0050, text=» RF(E) ACLP20 YES «, t00=0x000f, t01=0x0124}
0x18a4…18c8 Head {h00=0x0020, h01=0x0050, text=» LDK A1,/0D CARRIAGE RETURN «, t00=0x000f, t01=0x013e}
0x18c8…18d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0162}
0x18d2…18ea Head {h00=0x0014, h01=0x0050, text=» EJECT DRLP01 «, t00=0x000f, t01=0x016c}
0x18ea…18f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0184}
0x18f4…18fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x018e}
0x18fe…1936 Head {h00=0x0034, h01=0x0050, text=»ACLP20 SCR A1,A4 STORE FIRST CHARACTER IN BUFFER«, t00=0x0010, t01=0x0008}
0x1936…195e Head {h00=0x0024, h01=0x0050, text=»ACLP30 CF A5,CIOSTA SEND BUFFER «, t00=0x0010, t01=0x0040}
0x195e…197a Head {h00=0x0018, h01=0x0050, text=» SUK A7,6 ORDER 6 ? «, t00=0x0010, t01=0x0068}
0x197a…1990 Head {h00=0x0012, h01=0x0050, text=» RF(NE) ENDIO «, t00=0x0010, t01=0x0084}
0x1990…19a2 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x0010, t01=0x009a}
0x19a2…19b8 Head {h00=0x0012, h01=0x0050, text=» RF(NN) ACLP35«, t00=0x0010, t01=0x00ac}
0x19b8…19f0 Head {h00=0x0034, h01=0x0050, text=» IM 6,A8 ADD FOR EXTRA CHAR. AT BUFFER END (/0D)«, t00=0x0010, t01=0x00c2}
0x19f0…19fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00fa}
0x19fa…1a0e Head {h00=0x0010, h01=0x0050, text=»ACLP35 EQU *«, t00=0x0010, t01=0x0104}
0x1a0e…1a30 Head {h00=0x001e, h01=0x0050, text=» LD A4,2,A8 BUFFER ADDRESS«, t00=0x0010, t01=0x0118}
0x1a30…1a42 Head {h00=0x000e, h01=0x0050, text=» LDKL A3,0«, t00=0x0010, t01=0x013a}
0x1a42…1a58 Head {h00=0x0012, h01=0x0050, text=»CONCHA EQU *-2«, t00=0x0010, t01=0x014c}
0x1a58…1a8e Head {h00=0x0032, h01=0x0050, text=» SC A3,1,A4 RESET CONTROL CHARACTER IN BUFFER «, t00=0x0010, t01=0x0162}
0x1a8e…1aa0 Head {h00=0x000e, h01=0x0050, text=» ECR A3,A3«, t00=0x0011, t01=0x0008}
0x1aa0…1ac8 Head {h00=0x0024, h01=0x0050, text=» SCR A3,A4 ALSO RESET FIRST BYTE«, t00=0x0011, t01=0x001a}
0x1ac8…1ad2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0042}
0x1ad2…1afa Head {h00=0x0024, h01=0x0050, text=»ENDIO CF A15,TENDIO END REQUEST «, t00=0x0011, t01=0x004c}
0x1afa…1b10 Head {h00=0x0012, h01=0x0050, text=»EXIT ABL TDISP«, t00=0x0011, t01=0x0074}
0x1b10…1b1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x008a}
0x1b1a…1b32 Head {h00=0x0014, h01=0x0050, text=» EJECT DRLP01 «, t00=0x0011, t01=0x0094}
0x1b32…1b3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00ac}
0x1b3c…1b46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00b6}
0x1b46…1b5a Head {h00=0x0010, h01=0x0050, text=»* CIOSTA «, t00=0x0011, t01=0x00c0}
0x1b5a…1b80 Head {h00=0x0022, h01=0x0050, text=»* SUBROUTINE TO SEND BUFFER«, t00=0x0011, t01=0x00d4}
0x1b80…1b8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00fa}
0x1b8a…1b94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0104}
0x1b94…1ba8 Head {h00=0x0010, h01=0x0050, text=»CIOSTA EQU *«, t00=0x0011, t01=0x010e}
0x1ba8…1bc8 Head {h00=0x001c, h01=0x0050, text=» ST A5,DWTA5,A6 SAVE A5 «, t00=0x0011, t01=0x0122}
0x1bc8…1be0 Head {h00=0x0014, h01=0x0050, text=» IFT CHAN=1 =1 «, t00=0x0011, t01=0x0142}
0x1be0…1c0a Head {h00=0x0026, h01=0x0050, text=» NGR A1,A2 NEGATE BUFFER LENGTH =1«, t00=0x0011, t01=0x015a}
0x1c0a…1c3c Head {h00=0x002e, h01=0x0050, text=» ST A1,DWTA3,A6 END OF BUFFER INDICATOR =1«, t00=0x0011, t01=0x0184}
0x1c3c…1c66 Head {h00=0x0026, h01=0x0050, text=» ST A4,DWTA4,A6 BUFFER POINTER =1 «, t00=0x0012, t01=0x0026}
0x1c66…1c78 Head {h00=0x000e, h01=0x0050, text=» XIF =1 «, t00=0x0012, t01=0x0050}
0x1c78…1cb2 Head {h00=0x0036, h01=0x0050, text=» ORKL A2,/4000 INDICATE CHARACTER MODE, OUTPUT AND«, t00=0x0012, t01=0x0062}
0x1cb2…1cd4 Head {h00=0x001e, h01=0x0050, text=» IN RIGHT BYTE NUMBER OF«, t00=0x0012, t01=0x009c}
0x1cd4…1cf2 Head {h00=0x001a, h01=0x0050, text=» CHARACTERS TO SEND «, t00=0x0012, t01=0x00be}
0x1cf2…1d26 Head {h00=0x0030, h01=0x0050, text=» WER A2,MUXLP FIRST WRITE EXTERNAL REGISTER «, t00=0x0012, t01=0x00dc}
0x1d26…1d5c Head {h00=0x0032, h01=0x0050, text=» WER A4,MUXLP+1 SECOND WRITE EXTERNAL REGISTER«, t00=0x0012, t01=0x0110}
0x1d5c…1d66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0146}
0x1d66…1d7c Head {h00=0x0012, h01=0x0050, text=» LD A1,PFPOST «, t00=0x0012, t01=0x0150}
0x1d7c…1da0 Head {h00=0x0020, h01=0x0050, text=» RB(NZ) EXIT PFINIT PENDING «, t00=0x0012, t01=0x0166}
0x1da0…1dc2 Head {h00=0x001e, h01=0x0050, text=» CIO A2,1,DWALP CIO START «, t00=0x0012, t01=0x018a}
0x1dc2…1dd6 Head {h00=0x0010, h01=0x0050, text=» RB(Z) EXIT «, t00=0x0013, t01=0x001c}
0x1dd6…1dee Head {h00=0x0014, h01=0x0050, text=» LDK A1,1 ERROR «, t00=0x0013, t01=0x0030}
0x1dee…1e00 Head {h00=0x000e, h01=0x0050, text=» RB ENDIO «, t00=0x0013, t01=0x0048}
0x1e00…1e0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x005a}
0x1e0a…1e22 Head {h00=0x0014, h01=0x0050, text=» EJECT DRLP01 «, t00=0x0013, t01=0x0064}
0x1e22…1e2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x007c}
0x1e2c…1e36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0086}
0x1e36…1e54 Head {h00=0x001a, h01=0x0050, text=»* RECOVERY ROUTINE «, t00=0x0013, t01=0x0090}
0x1e54…1e5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00ae}
0x1e5e…1e68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00b8}
0x1e68…1e7a Head {h00=0x000e, h01=0x0050, text=»LPON EQU *«, t00=0x0013, t01=0x00c2}
0x1e7a…1e90 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0013, t01=0x00d4}
0x1e90…1eba Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0013, t01=0x00ea}
0x1eba…1ec6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0114}
0x1ec6…1ed0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0120}
0x1ed0…1ee6 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0013, t01=0x012a}
0x1ee6…1f0c Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0013, t01=0x0140}
0x1f0c…1f18 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0166}
0x1f18…1f22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0172}
0x1f22…1f40 Head {h00=0x001a, h01=0x0050, text=» LDK A1,1 NOT OPERABLE«, t00=0x0013, t01=0x017c}
0x1f40…1f64 Head {h00=0x0020, h01=0x0050, text=» LDKL A6,DWLP01 DWT ADDRESS «, t00=0x0014, t01=0x000a}
0x1f64…1f86 Head {h00=0x001e, h01=0x0050, text=» LD A2,DWTST,A6 DWT STATUS«, t00=0x0014, t01=0x002e}
0x1f86…1fa2 Head {h00=0x0018, h01=0x0050, text=» RB(N) EXIT LP FREE «, t00=0x0014, t01=0x0050}
0x1fa2…1fb4 Head {h00=0x000e, h01=0x0050, text=» RF IHLP30«, t00=0x0014, t01=0x006c}
0x1fb4…1fbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x007e}
0x1fbe…1fd6 Head {h00=0x0014, h01=0x0050, text=» EJECT DRLP01 «, t00=0x0014, t01=0x0088}
0x1fd6…1fe0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00a0}
0x1fe0…1fea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00aa}
0x1fea…2008 Head {h00=0x001a, h01=0x0050, text=»* I N T E R R U P T«, t00=0x0014, t01=0x00b4}
0x2008…2012 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00d2}
0x2012…201c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00dc}
0x201c…202e Head {h00=0x000e, h01=0x0050, text=»IHLP EQU *«, t00=0x0014, t01=0x00e6}
0x202e…2056 Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x0014, t01=0x00f8}
0x2056…2060 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0120}
0x2060…2074 Head {h00=0x0010, h01=0x0050, text=» IFT CHAN=1 «, t00=0x0014, t01=0x012a}
0x2074…2088 Head {h00=0x0010, h01=0x0050, text=» STR A1,A15 «, t00=0x0014, t01=0x013e}
0x2088…209c Head {h00=0x0010, h01=0x0050, text=» STR A2,A15 «, t00=0x0014, t01=0x0152}
0x209c…20c2 Head {h00=0x0022, h01=0x0050, text=» LDKL A1,DWLP01 DWT ADDRESS =1«, t00=0x0014, t01=0x0166}
0x20c2…20f0 Head {h00=0x002a, h01=0x0050, text=» LC* A2,DWTA4,A1 NEXT BYTE TO PRINT =1«, t00=0x0014, t01=0x018c}
0x20f0…2116 Head {h00=0x0022, h01=0x0050, text=» OTR A2,0,DWALP WRITE ONE BYTE«, t00=0x0015, t01=0x002a}
0x2116…213a Head {h00=0x0020, h01=0x0050, text=» RF(NA) IHLP20 NOT ACCEPTED «, t00=0x0015, t01=0x0050}
0x213a…216a Head {h00=0x002c, h01=0x0050, text=» IM DWTA4,A1 INCREMENT BUFFER POINTER =1«, t00=0x0015, t01=0x0074}
0x216a…21a4 Head {h00=0x0036, h01=0x0050, text=» IM DWTA3,A1 INCREMENT END OF BUFFER INDICATOR =1 «, t00=0x0015, t01=0x00a4}
0x21a4…21ca Head {h00=0x0022, h01=0x0050, text=» RF(N) IHLP10 NOT LAST BYTE =1«, t00=0x0015, t01=0x00de}
0x21ca…21ea Head {h00=0x001c, h01=0x0050, text=» CIO A2,0,DWALP CIO HALT«, t00=0x0015, t01=0x0104}
0x21ea…21fe Head {h00=0x0010, h01=0x0050, text=»IHLP10 EQU *«, t00=0x0015, t01=0x0124}
0x21fe…2212 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A15«, t00=0x0015, t01=0x0138}
0x2212…2226 Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A15«, t00=0x0015, t01=0x014c}
0x2226…2236 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0015, t01=0x0160}
0x2236…2244 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x0170}
0x2244…224e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x017e}
0x224e…2258 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0188}
0x2258…2262 (22, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0004}
0x2262…227a Head {h00=0x0014, h01=0x0050, text=»IHLP20 EQU * =1«, t00=0x0016, t01=0x000e}
0x227a…2292 Head {h00=0x0014, h01=0x0050, text=» LDR* A2,A15 =1«, t00=0x0016, t01=0x0026}
0x2292…22aa Head {h00=0x0014, h01=0x0050, text=» LDR* A1,A15 =1«, t00=0x0016, t01=0x003e}
0x22aa…22b6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0016, t01=0x0056}
0x22b6…22c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0062}
0x22c0…22da Head {h00=0x0016, h01=0x0050, text=» IFT CPU852=1 =1 «, t00=0x0016, t01=0x006c}
0x22da…2306 Head {h00=0x0028, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK =1«, t00=0x0016, t01=0x0086}
0x2306…2318 Head {h00=0x000e, h01=0x0050, text=» XIF =1 «, t00=0x0016, t01=0x00b2}
0x2318…2322 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00c4}
0x2322…233c Head {h00=0x0016, h01=0x0050, text=» IFT CPU852=0 =1 «, t00=0x0016, t01=0x00ce}
0x233c…2366 Head {h00=0x0026, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK =1 «, t00=0x0016, t01=0x00e8}
0x2366…2378 Head {h00=0x000e, h01=0x0050, text=» XIF =1 «, t00=0x0016, t01=0x0112}
0x2378…2382 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0124}
0x2382…23a2 Head {h00=0x001c, h01=0x0050, text=» SST A1,DWALP GET STATUS«, t00=0x0016, t01=0x012e}
0x23a2…23c6 Head {h00=0x0020, h01=0x0050, text=» LDKL A6,DWLP01 DWT ADDRESS «, t00=0x0016, t01=0x014e}
0x23c6…23d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0172}
0x23d0…23e4 Head {h00=0x0010, h01=0x0050, text=»IHLP30 EQU *«, t00=0x0016, t01=0x017c}
0x23e4…2402 Head {h00=0x001a, h01=0x0050, text=» LD A7,DWTOR,A6 ORDER «, t00=0x0016, t01=0x0190}
0x2402…2416 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x0017, t01=0x001e}
0x2416…243a Head {h00=0x0020, h01=0x0050, text=» LD A8,DWTECB,A6 ECB ADDRESS«, t00=0x0017, t01=0x0032}
0x243a…2444 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0056}
0x2444…245c Head {h00=0x0014, h01=0x0050, text=» LD A2,4,A8 =1 «, t00=0x0017, t01=0x0060}
0x245c…2482 Head {h00=0x0022, h01=0x0050, text=» ST A2,6,A8 STORE EFF. LENGTH «, t00=0x0017, t01=0x0078}
0x2482…24aa Head {h00=0x0024, h01=0x0050, text=» LD A5,DWTA5,A6 GET STACK VALUE «, t00=0x0017, t01=0x009e}
0x24aa…24ba Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0017, t01=0x00c6}
0x24ba…24c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00d6}
0x24c4…24dc Head {h00=0x0014, h01=0x0050, text=» EJECT DRLP01 «, t00=0x0017, t01=0x00e0}
0x24dc…24e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00f8}
0x24e6…24fe Head {h00=0x0014, h01=0x0050, text=»* D W L P 0 1«, t00=0x0017, t01=0x0102}
0x24fe…2508 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x011a}
0x2508…2538 Head {h00=0x002c, h01=0x0050, text=»* DEVICE WORK TABLE FOR LINE PRINTER «, t00=0x0017, t01=0x0124}
0x2538…2542 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0154}
0x2542…2556 Head {h00=0x0010, h01=0x0050, text=»DWLP01 EQU *«, t00=0x0017, t01=0x015e}
0x2556…2578 Head {h00=0x001e, h01=0x0050, text=» DATA 0 CHANNEL PARAMETER «, t00=0x0017, t01=0x0172}
0x2578…2592 (24, 0, 400) Head {h00=0x0016, h01=0x0050, text=» DATA /8000 STATUS«, t00=0x0018, t01=0x0004}
0x2592…25ae Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x0018, t01=0x001e}
0x25ae…25c4 Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x0018, t01=0x003a}
0x25c4…25f0 Head {h00=0x0028, h01=0x0050, text=» DATA LPADR ADDRESS TO ADDRESS BLOCK«, t00=0x0018, t01=0x0050}
0x25f0…260c Head {h00=0x0018, h01=0x0050, text=» DATA 0 TTAB ADDRESS«, t00=0x0018, t01=0x007c}
0x260c…2634 Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x0018, t01=0x0098}
0x2634…2652 Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x0018, t01=0x00c0}
0x2652…2668 Head {h00=0x0012, h01=0x000d, text=» IFT MMUPAG=1 «, t00=0x0018, t01=0x00de}
0x2668…2692 Head {h00=0x0026, h01=0x0022, text=» DATA 0 SAVE AREA USER ECB ADDRESS«, t00=0x0018, t01=0x00f4}
0x2692…26b6 Head {h00=0x0020, h01=0x001c, text=» DATA DEVECB MMU ECB ADDRESS«, t00=0x0018, t01=0x011e}
0x26b6…26c2 Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x0018, t01=0x0142}
0x26c2…26e4 Head {h00=0x001e, h01=0x0050, text=» DATA 0 OUTPUT QUEUE LINK «, t00=0x0018, t01=0x014e}
0x26e4…2704 Head {h00=0x001c, h01=0x0050, text=» DATA 0 SAVE AREA FOR A3«, t00=0x0018, t01=0x0170}
0x2704…2724 Head {h00=0x001c, h01=0x0050, text=» DATA 0 SAVE AREA FOR A4«, t00=0x0018, t01=0x0190}
0x2724…2744 Head {h00=0x001c, h01=0x0050, text=» DATA 0 SAVE AREA FOR A5«, t00=0x0019, t01=0x0020}
0x2744…275c Head {h00=0x0014, h01=0x0050, text=» RES 4 DWT STACK«, t00=0x0019, t01=0x0040}
0x275c…2766 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0058}
0x2766…277c Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0019, t01=0x0062}
0x277c…2790 Head {h00=0x0010, h01=0x0050, text=»DEVECB EQU *«, t00=0x0019, t01=0x0078}
0x2790…27a0 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0019, t01=0x008c}
0x27a0…27b4 Head {h00=0x0010, h01=0x0050, text=» DATA LP:BUF«, t00=0x0019, t01=0x009c}
0x27b4…27ca Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0019, t01=0x00b0}
0x27ca…27e6 Head {h00=0x0018, h01=0x0050, text=»LP:BUF RES DVBLEN+1 «, t00=0x0019, t01=0x00c6}
0x27e6…27f2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x00e2}
0x27f2…27fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00ee}
0x27fc…2808 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0019, t01=0x00f8}
0x2808…280c Head {h00=0x4004, h01=0x0000}
0x280c…2810 00 19 01 04 ┆ ┆
0x2810…2818 (26, 1, 8) 20 04 00 00 00 1a 00 04 ┆ ┆
0x2818…2868 (27, 0, 400) 57 54 57 48 41 2c 41 34 00 12 01 88 00 1c 00 50 5c 49 4d 5c 44 57 54 43 4f 50 2c 41 36 5c 4e 45 58 54 20 48 45 41 44 20 00 13 00 10 00 0e 00 50 5c 41 44 4b 5c 41 34 2c 34 20 00 13 00 30 00 0e 00 50 5c 4c 44 52 5c 41 31 2c 41 34 00 13 00 42 ┆WTWHA,A4 P IM DWTCOP,A6 NEXT HEAD P ADK A4,4 0 P LDR A1,A4 B┆
0x2868…28b8 00 0e 00 50 5c 53 55 52 5c 41 31 2c 41 36 00 13 00 54 00 1a 00 50 5c 53 55 4b 5c 41 31 2c 44 57 54 43 4f 50 2d 44 57 54 57 48 41 20 00 13 00 66 00 1c 00 50 5c 52 42 28 4c 29 5c 46 4f 52 3a 36 30 5c 4e 45 58 54 20 48 45 41 44 20 00 13 00 84 ┆ P SUR A1,A6 T P SUK A1,DWTCOP-DWTWHA f P RB(L) FOR:60 NEXT HEAD ┆
0x28b8…2908 00 1e 00 50 5c 4c 44 4b 4c 5c 41 31 2c 2f 38 30 30 5c 49 4e 54 45 52 55 50 54 20 42 49 54 00 13 00 a4 00 18 00 50 5c 4f 52 53 5c 41 31 2c 44 57 54 57 48 41 2b 31 36 2c 41 36 00 13 00 c6 00 24 00 50 5c 43 46 5c 41 35 2c 48 4f 4d 45 41 44 5c ┆ P LDKL A1,/800 INTERUPT BIT P ORS A1,DWTWHA+16,A6 $ P CF A5,HOMEAD ┆
0x2908…2958 57 52 49 54 45 20 53 45 43 54 4f 52 20 4d 41 52 4b 53 00 13 00 e2 00 20 00 50 5c 49 4d 5c 44 57 54 53 45 4b 2c 41 36 5c 4e 45 58 54 20 43 59 4c 49 4e 44 45 52 20 00 13 01 0a 00 14 00 50 5c 4c 44 5c 41 31 2c 44 57 54 53 45 4b 2c 41 36 00 13 ┆WRITE SECTOR MARKS P IM DWTSEK,A6 NEXT CYLINDER P LD A1,DWTSEK,A6 ┆
0x2958…29a8 01 2e 00 40 00 50 5c 53 55 4b 4c 5c 41 31 2c 53 45 45 4b 43 4f 2b 4d 41 58 43 59 4c 5c 53 45 45 4b 20 4f 52 44 45 52 20 43 4f 44 45 20 2b 20 4d 41 58 20 43 59 4c 49 4e 44 45 52 20 4e 55 4d 42 45 52 00 13 01 46 00 20 00 50 5c 52 42 28 4e 5a ┆ . @ P SUKL A1,SEEKCO+MAXCYL SEEK ORDER CODE + MAX CYLINDER NUMBER F P RB(NZ┆
0x29a8…29f8 (28, 0, 400) 29 5c 46 4f 52 3a 31 30 5c 4e 45 58 54 20 43 59 4c 49 4e 44 45 52 00 13 01 8a 00 1a 00 50 5c 4c 44 4b 4c 5c 41 32 2c 4d 41 58 43 59 4c 2d 31 5c 38 32 31 20 00 14 00 1e 00 12 00 50 5c 49 46 54 5c 4e 55 4e 49 54 53 3d 31 20 00 14 00 3c 00 24 ┆) FOR:10 NEXT CYLINDER P LDKL A2,MAXCYL-1 821 P IFT NUNITS=1 < $┆
0x29f8…2a48 00 50 5c 53 54 5c 41 32 2c 44 57 54 43 59 4c 2c 41 36 5c 43 59 4c 49 4e 44 45 52 20 4e 55 4d 42 45 52 00 14 00 52 00 08 00 50 5c 58 49 46 00 14 00 7a 00 12 00 50 5c 49 46 54 5c 4e 55 4e 49 54 53 3d 32 20 00 14 00 86 00 12 00 50 5c 43 46 5c ┆ P ST A2,DWTCYL,A6 CYLINDER NUMBER R P XIF z P IFT NUNITS=2 P CF ┆
0x2a48…2a98 41 31 35 2c 49 4e 58 44 57 54 00 14 00 9c 00 24 00 50 5c 53 54 5c 41 32 2c 44 57 54 43 59 4c 2c 41 34 5c 43 59 4c 49 4e 44 45 52 20 4e 55 4d 42 45 52 00 14 00 b2 00 08 00 50 5c 58 49 46 00 14 00 da 00 1c 00 50 5c 52 42 5c 44 45 4e 44 49 4f ┆A15,INXDWT $ P ST A2,DWTCYL,A4 CYLINDER NUMBER P XIF P RB DENDIO┆
0x2a98…2ae8 5c 50 45 52 46 4f 52 4d 20 45 4e 44 49 4f 00 14 00 e6 00 06 00 50 2a 20 00 14 01 06 00 12 00 50 5c 45 4a 45 43 54 5c 5c 44 52 43 44 30 31 00 14 01 10 00 06 00 03 2a 20 00 14 01 26 00 06 00 03 2a 20 00 14 01 30 00 30 00 2c 2a 2a 2a 2a 2a 2a ┆ PERFORM ENDIO P* P EJECT DRCD01 * & * 0 0 ,******┆
0x2ae8…2b38 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 00 14 01 3a 00 30 00 2c 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆************************************** : 0 ,* ┆