|
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: 11066 (0x2b3a)
Notes: pts_type(SC)
Names: »DRSW01.SC«
└─⟦173d42e04⟧ Bits:30009663 Philips computer tape "600105"
└─⟦this⟧ »TOSSWORK/DRSW01.SC«
IDENT DRSW01 REL 10.0 80-03-14 870105041000 * * ******************************************************************* * * PHILIPS TERMINAL SYSTEM PTS * * DRSW01 = DRIVER SWITCH * * * * * * ******************************************************************* * * * THIS MODULE CONTAINS THE FOLLOWING FUNCTIONS * WHICH ARE COMMON PARTS FOR CHANNEL UNIT DRIVERS. * * * -OUTPUT SEND ONE CHARACTER,SAVE A3-A5 AND RETURN TO DISPATCHER * * -OUTLIN CHECK WHICH CHANNEL UNIT DRIVER TO USE * * -STREG SAVE A3-A5 AND RETURN TO DISPATCHER * * -LDREG IF INTERRUPT IS ALLOWED, RESTORE A3-A5 AND RETURN * TO USER VIA A5 * * -LDREGE RESTORE A3-A5 AND RETURN TO USER VIA A5 * * -GETCHR GET ONE CHARACTER FROM ECB-BUFFER * * -ECHO ECHO CHARACTER * * -ECHEND END OF ECHO * * EJECT * *********** * ENTRIES * *********** * * ENTRY OUTLIN SEND CHARACTER ENTRY OUTPUT SAVE REGISTERS, SEND CHAR. AND DISPATCH ENTRY LDREG RESTORE A3-A5 ANDRETURN ENTRY LDREGE WAY BACK FROM ECHO HANDLING ENTRY LDREGF RETURN ENTRY STREG SAVE REGISTERS A3-A5 IN DWT ENTRY GETCHR GET ONE CHARACTER FROM ECB-BUFFER ENTRY ECHRTN RETURN FROM ECHO ENTRY ECHO ECHO ROUTINE ENTRY ECHEND END OF ECHO EJECT * * ******************************** * EXTERNAL TOSS MODULE ENTRIES * ******************************** * EXTRN SAVE8 SAVE REGISTERS A1-A8 EXTRN TDISP DISPATCHER EXTRN TENDIO END I/O EXTRN OUTLRT DRIVER FOR LOCAL OR REMOTE TERMINALS EXTRN OUTSAL SALCUZ DRIVER EXTRN OUTASC ASCU4Z DRIVER EJECT * ****************** * DWT PARAMETERS * ****************** * * EXTRN DWTST STATUS EXTRN DWTOR ORDER EXTRN DWTECB ECB-ADDRESS EXTRN DWTADR ADDRESS TO ADDRESSBLOCK EXTRN DWTWAT WAIT/ACTIVATE INDICATOR EXTRN DWTA3 SAVE AREA A3 EXTRN DWTA4 SAVE AREA A4 EXTRN DWTA5 SAVE AREA A5 EXTRN DWTSB2 STACK BASE 2 EXTRN DWTECH ECHO DEVICE DWT * EXTRN ECHADR ECHO ADDRESS DISPLACEMENT * EJECT * ************************ * CONDITIONAL ASSEMBLY * ************************ * * ECHO FUNCTION CAN BE EXCLUDED * BY SETTING X:A=0 * X:A EQU 1 CECHO EQU X:A * * BY SETTING X:B=1 DRIVER FOR LOCAL OR * REMOTE TERMINALS CAN BE USED * X:B EQU 1 LRT EQU X:B * * BY SETTING X:C=1 SALCUZ DRIVER CAN BE USED * X:C EQU 1 SALCUZ EQU X:C * * * BY SETTING X:D=1 ASCU4Z DRIVER CAN BE USED * X:D EQU 1 ASCU4Z EQU X:D * * A PROGRAM VERSION USING THE EXTENDED INSTRUCTION SET * IS OBTAINED BY SETTING CPU852 EQU 0 * CPU852 EQU 1 * EJECT * * O U T L I N * * CHECK CHANNEL PARAMETER WHICH CHANNEL UNIT * DRIVER TO USE * * OUTLIN 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 * LDR* A1,A6 CHANNEL PARAMETER ANK A1,/F CHANNEL INDEX * IFT LRT=1 SUK A1,/C ABL(N) OUTLRT CULT OR CURT ADK A1,/C XIF * IFT ASCU4Z=1 LDR A7,A1 SUK A7,/C RF(N) OUTL10 SUK A7,/3 ABL(N) OUTASC ASCU4Z XIF * OUTL10 EQU * IFT SALCUZ=1 SUK A1,/F ABL(E) OUTSAL SALCUZ XIF RF EXIT EJECT * * O U T P U T * * SEND ONE CHARACTER VIA 'OUTLIN' INDICATE INTERRUPTS * ALLOWED AND SAVE A3-A5 IN DWT. * * OUTPUT EQU * ANK A2,/FF LDR A1,A2 SUK A1,/82 STX ? RF(E) OUTP05 YES SUK A1,/15 ETB ? RF(NE) OUTP10 NO OUTP05 EQU * LDR* A1,A6 CHANNEL PARAMETER ANK A1,/C LT? RF(E) LDRE10 YES SUK A1,/C RT? RF(E) LDRE10 NO OUTP10 EQU * CF A15,OUTLIN SEND ONE CHARACTER VIA CHANNEL UNIT EJECT * * * S T R E G * * INDICATE INTERRUPTS ALLOWED AND SAVE A3-A5 IN DWT * * STREG EQU * INH 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 EJECT * * L D R E G * * IF INTERRUPT ALLOWED RESTORE A3-A5 FROM DWT AND RETURN * VIA A5. ELSE GO TO DISPATCHER. * * LDREG EQU * LD A3,DWTST,A6 ANKL A3,/100 RB(Z) EXIT XRS A3,DWTST,A6 * * * L D R E G E * * RESTORE A3-A5 FROM DWT AND RETURN TO USER VIA A5 * * LDREGF EQU * LD A5,DWTA5,A6 A5 LDREGE EQU * LD A3,DWTA3,A6 RELOAD REGISTER A3 LD A4,DWTA4,A6 A4 LDRE10 LD A7,DWTOR,A6 GET ORDER 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 A2,2,A8 GET BUFFER ADDRESS ADR A2,A3 LCR A2,A2 CHAR. TO A2 ANK A2,/FF ADK A3,1 INCREMENT BUFFER INDEX RF GCH020 GCH010 ST A3,6,A8 STORE EFFECTIVE LENGTH GCH020 EQU * RTNA15 ADKL A15,2 RETURN AND ENABLE ENB LDR* P,A15 EJECT * * * E C H O , E C H E N D * * SUBROUTINE TO ECHO CHARACTER CONTAINING TWO PARTS, * ONE GENERAL AND ONE DEVICE-DEPENDENT * * PART ONE: FIND DWT-ADDRESS OF ECHO-DEVICE, * LOAD STACKBASE AND FIND ADDRESS * TO DEVICE-DEPENDENT ECHO-ROUTINE * * PART TWO: ECHO ONE OR MORE CHARACTERS * CORRESPONDING TO ONE CHARACTER * TO BE STORED IN INPUT ECB-BUFFER * * * PART ONE FOLLOWS AND PART TWO CAN BE FOUND * IN THE DRIVER MODULE CORRESPONDING TO ECHO * OUTPUT DEVICE * * RESTRICTIONS IN DEVICE DEPENDENT ECHO DRIVER * * A7 MUST NOT BE DESTROYED * THE ECHO-ROUTINE SHOULD BE TERMINATED WITH A * JUMP TO 'ECHRTN'. * ECHEND EQU * * IFT CECHO=1 * LDKL A7,/8000 INDICATE END I/O XIF ECHO EQU * IFT CECHO=1 ST A3,DWTA3,A6 SAVE A3-A5 IN DWT ST A4,DWTA4,A6 ST A5,DWTA5,A6 LD A1,DWTST,A6 STATUS SLL A1,2 RF(NN) RETUR NO ECHO REQUESTED LDR A4,A6 SAVE DWT-ADDRESS OF INPUT DEVICE LD A6,DWTECH,A6 DWT-ADDRESS OF OUTPUT DEVICE ST A4,DWTWAT,A6 SAVE DWT-ADDRESS OF INPUT DEVICE LDKL A5,DWTSB2 ADR A5,A6 STACKBASE-ADDRESS IN A5 LD A1,DWTADR,A6 ADDRESS TO ADDRESS-BLOCK ABI ECHADR,A1 GO TO ECHO-ROUTINE DEVICE-DEPENDENT XIF ECHRTN EQU * IFT CECHO=1 LDR A7,A7 END? RF(NN) ERETUR NO CF A15,TENDIO END I/O OUTPUT DEVICE ERETUR LD A6,DWTWAT,A6 RELOAD DWT-ADDRESS OF INPUT DEVICE RETUR ABL LDREGF RELOAD A3-A5 AND RETURN VIA A5 * END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT DRSW01 REL 10.0 80-03-14 870105041000 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0046 Head {h00=0x0004, h01=0x0002, t00=0x0000, t01=0x0042}
0x0046…004e Head {h00=0x0004, h01=0x0002, t00=0x0000, t01=0x004a}
0x004e…0058 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x0052}
0x0058…0062 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x005c}
0x0062…00ae Head {h00=0x0048, h01=0x0043, text=»******************************************************************* «, t00=0x0000, t01=0x0066}
0x00ae…00b8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x00b2}
0x00b8…00e0 Head {h00=0x0024, h01=0x001f, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x00bc}
0x00e0…00ea Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x00e4}
0x00ea…010c Head {h00=0x001e, h01=0x0050, text=»* DRSW01 = DRIVER SWITCH«, t00=0x0000, t01=0x00ee}
0x010c…0116 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x0110}
0x0116…0120 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x011a}
0x0120…012a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x0124}
0x012a…0134 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x012e}
0x0134…013e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x0138}
0x013e…0148 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x0142}
0x0148…0194 Head {h00=0x0048, h01=0x0043, text=»******************************************************************* «, t00=0x0000, t01=0x014c}
0x0194…019e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x0008}
0x019e…01a8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x0012}
0x01a8…01e0 Head {h00=0x0034, h01=0x0030, text=»* THIS MODULE CONTAINS THE FOLLOWING FUNCTIONS«, t00=0x0001, t01=0x001c}
0x01e0…021c Head {h00=0x0038, h01=0x0050, text=»* WHICH ARE COMMON PARTS FOR CHANNEL UNIT DRIVERS.«, t00=0x0001, t01=0x0054}
0x021c…0226 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0090}
0x0226…0230 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x009a}
0x0230…027c Head {h00=0x0048, h01=0x0044, text=»* -OUTPUT SEND ONE CHARACTER,SAVE A3-A5 AND RETURN TO DISPATCHER«, t00=0x0001, t01=0x00a4}
0x027c…0286 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x00f0}
0x0286…02c2 Head {h00=0x0038, h01=0x0034, text=»* -OUTLIN CHECK WHICH CHANNEL UNIT DRIVER TO USE«, t00=0x0001, t01=0x00fa}
0x02c2…02cc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x0136}
0x02cc…0306 Head {h00=0x0036, h01=0x0031, text=»* -STREG SAVE A3-A5 AND RETURN TO DISPATCHER «, t00=0x0001, t01=0x0140}
0x0306…0310 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x017a}
0x0310…0358 Head {h00=0x0044, h01=0x0040, text=»* -LDREG IF INTERRUPT IS ALLOWED, RESTORE A3-A5 AND RETURN «, t00=0x0001, t01=0x0184}
0x0358…037c Head {h00=0x0020, h01=0x001c, text=»* TO USER VIA A5«, t00=0x0002, t01=0x003c}
0x037c…0386 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x0060}
0x0386…03c4 Head {h00=0x003a, h01=0x0035, text=»* -LDREGE RESTORE A3-A5 AND RETURN TO USER VIA A5 «, t00=0x0002, t01=0x006a}
0x03c4…03ce Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x00a8}
0x03ce…0406 Head {h00=0x0034, h01=0x002f, text=»* -GETCHR GET ONE CHARACTER FROM ECB-BUFFER «, t00=0x0002, t01=0x00b2}
0x0406…0410 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x00ea}
0x0410…0434 Head {h00=0x0020, h01=0x001c, text=»* -ECHO ECHO CHARACTER«, t00=0x0002, t01=0x00f4}
0x0434…043e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x0118}
0x043e…0460 Head {h00=0x001e, h01=0x0019, text=»* -ECHEND END OF ECHO «, t00=0x0002, t01=0x0122}
0x0460…046a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x0144}
0x046a…0474 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x014e}
0x0474…0482 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0002, t01=0x0158}
0x0482…048c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x0166}
0x048c…04a0 Head {h00=0x0010, h01=0x000b, text=»*********** «, t00=0x0002, t01=0x0170}
0x04a0…04b4 Head {h00=0x0010, h01=0x000b, text=»* ENTRIES * «, t00=0x0002, t01=0x0184}
0x04b4…04c8 Head {h00=0x0010, h01=0x000b, text=»*********** «, t00=0x0003, t01=0x0008}
0x04c8…04d2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x001c}
0x04d2…04dc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x0026}
0x04dc…0500 Head {h00=0x0020, h01=0x0050, text=» ENTRY OUTLIN SEND CHARACTER«, t00=0x0003, t01=0x0030}
0x0500…053e Head {h00=0x003a, h01=0x0050, text=» ENTRY OUTPUT SAVE REGISTERS, SEND CHAR. AND DISPATCH «, t00=0x0003, t01=0x0054}
0x053e…056a Head {h00=0x0028, h01=0x0050, text=» ENTRY LDREG RESTORE A3-A5 ANDRETURN«, t00=0x0003, t01=0x0092}
0x056a…059c Head {h00=0x002e, h01=0x0050, text=» ENTRY LDREGE WAY BACK FROM ECHO HANDLING «, t00=0x0003, t01=0x00be}
0x059c…05b8 Head {h00=0x0018, h01=0x0050, text=» ENTRY LDREGF RETURN«, t00=0x0003, t01=0x00f0}
0x05b8…05e8 Head {h00=0x002c, h01=0x0050, text=» ENTRY STREG SAVE REGISTERS A3-A5 IN DWT«, t00=0x0003, t01=0x010c}
0x05e8…0620 Head {h00=0x0034, h01=0x0050, text=» ENTRY GETCHR GET ONE CHARACTER FROM ECB-BUFFER «, t00=0x0003, t01=0x013c}
0x0620…0646 Head {h00=0x0022, h01=0x0050, text=» ENTRY ECHRTN RETURN FROM ECHO«, t00=0x0003, t01=0x0174}
0x0646…0666 Head {h00=0x001c, h01=0x0050, text=» ENTRY ECHO ECHO ROUTINE«, t00=0x0004, t01=0x000a}
0x0666…0688 Head {h00=0x001e, h01=0x0050, text=» ENTRY ECHEND END OF ECHO «, t00=0x0004, t01=0x002a}
0x0688…0696 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0004, t01=0x004c}
0x0696…06a0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0004, t01=0x005a}
0x06a0…06aa Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0004, t01=0x0064}
0x06aa…06d2 Head {h00=0x0024, h01=0x0020, text=»********************************«, t00=0x0004, t01=0x006e}
0x06d2…06fa Head {h00=0x0024, h01=0x0020, text=»* EXTERNAL TOSS MODULE ENTRIES *«, t00=0x0004, t01=0x0096}
0x06fa…0722 Head {h00=0x0024, h01=0x0020, text=»********************************«, t00=0x0004, t01=0x00be}
0x0722…072c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0004, t01=0x00e6}
0x072c…0756 Head {h00=0x0026, h01=0x0050, text=» EXTRN SAVE8 SAVE REGISTERS A1-A8 «, t00=0x0004, t01=0x00f0}
0x0756…0776 Head {h00=0x001c, h01=0x0017, text=» EXTRN TDISP DISPATCHER «, t00=0x0004, t01=0x011a}
0x0776…0794 Head {h00=0x001a, h01=0x0015, text=» EXTRN TENDIO END I/O «, t00=0x0004, t01=0x013a}
0x0794…07ce Head {h00=0x0036, h01=0x0050, text=» EXTRN OUTLRT DRIVER FOR LOCAL OR REMOTE TERMINALS«, t00=0x0004, t01=0x0158}
0x07ce…07f2 (5, 0, 400) Head {h00=0x0020, h01=0x0050, text=» EXTRN OUTSAL SALCUZ DRIVER «, t00=0x0005, t01=0x0004}
0x07f2…0816 Head {h00=0x0020, h01=0x0050, text=» EXTRN OUTASC ASCU4Z DRIVER «, t00=0x0005, t01=0x0028}
0x0816…0824 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0005, t01=0x004c}
0x0824…082e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0005, t01=0x005a}
0x082e…0848 Head {h00=0x0016, h01=0x0012, text=»******************«, t00=0x0005, t01=0x0064}
0x0848…0862 Head {h00=0x0016, h01=0x0012, text=»* DWT PARAMETERS *«, t00=0x0005, t01=0x007e}
0x0862…087c Head {h00=0x0016, h01=0x0012, text=»******************«, t00=0x0005, t01=0x0098}
0x087c…0886 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0005, t01=0x00b2}
0x0886…0890 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0005, t01=0x00bc}
0x0890…08ac Head {h00=0x0018, h01=0x0013, text=» EXTRN DWTST STATUS «, t00=0x0005, t01=0x00c6}
0x08ac…08c6 Head {h00=0x0016, h01=0x0012, text=» EXTRN DWTOR ORDER«, t00=0x0005, t01=0x00e2}
0x08c6…08e8 Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTECB ECB-ADDRESS «, t00=0x0005, t01=0x00fc}
0x08e8…0916 Head {h00=0x002a, h01=0x0025, text=» EXTRN DWTADR ADDRESS TO ADDRESSBLOCK «, t00=0x0005, t01=0x011e}
0x0916…0944 Head {h00=0x002a, h01=0x0025, text=» EXTRN DWTWAT WAIT/ACTIVATE INDICATOR «, t00=0x0005, t01=0x014c}
0x0944…0966 Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTA3 SAVE AREA A3 «, t00=0x0005, t01=0x017a}
0x0966…0988 Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTA4 SAVE AREA A4 «, t00=0x0006, t01=0x000c}
0x0988…09aa Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTA5 SAVE AREA A5 «, t00=0x0006, t01=0x002e}
0x09aa…09cc Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTSB2 STACK BASE 2«, t00=0x0006, t01=0x0050}
0x09cc…09f2 Head {h00=0x0022, h01=0x0050, text=» EXTRN DWTECH ECHO DEVICE DWT «, t00=0x0006, t01=0x0072}
0x09f2…09fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0098}
0x09fc…0a2c Head {h00=0x002c, h01=0x0050, text=» EXTRN ECHADR ECHO ADDRESS DISPLACEMENT «, t00=0x0006, t01=0x00a2}
0x0a2c…0a36 Head {h00=0x0006, h01=0x0004, text=»* «, t00=0x0006, t01=0x00d2}
0x0a36…0a44 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x00dc}
0x0a44…0a4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00ea}
0x0a4e…0a6e Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0006, t01=0x00f4}
0x0a6e…0a8e Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x0006, t01=0x0114}
0x0a8e…0aae Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0006, t01=0x0134}
0x0aae…0ab8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0154}
0x0ab8…0ae2 Head {h00=0x0026, h01=0x0050, text=»* ECHO FUNCTION CAN BE EXCLUDED «, t00=0x0006, t01=0x015e}
0x0ae2…0afe Head {h00=0x0018, h01=0x0050, text=»* BY SETTING X:A=0«, t00=0x0006, t01=0x0188}
0x0afe…0b08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0014}
0x0b08…0b1a Head {h00=0x000e, h01=0x0050, text=»X:A EQU 1 «, t00=0x0007, t01=0x001e}
0x0b1a…0b30 Head {h00=0x0012, h01=0x0050, text=»CECHO EQU X:A «, t00=0x0007, t01=0x0030}
0x0b30…0b3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0046}
0x0b3a…0b6a Head {h00=0x002c, h01=0x0050, text=»* BY SETTING X:B=1 DRIVER FOR LOCAL OR«, t00=0x0007, t01=0x0050}
0x0b6a…0b92 Head {h00=0x0024, h01=0x0050, text=»* REMOTE TERMINALS CAN BE USED«, t00=0x0007, t01=0x0080}
0x0b92…0b9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00a8}
0x0b9c…0bae Head {h00=0x000e, h01=0x0050, text=»X:B EQU 1 «, t00=0x0007, t01=0x00b2}
0x0bae…0bc2 Head {h00=0x0010, h01=0x0050, text=»LRT EQU X:B «, t00=0x0007, t01=0x00c4}
0x0bc2…0bcc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00d8}
0x0bcc…0c02 Head {h00=0x0032, h01=0x0050, text=»* BY SETTING X:C=1 SALCUZ DRIVER CAN BE USED«, t00=0x0007, t01=0x00e2}
0x0c02…0c0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0118}
0x0c0c…0c1e Head {h00=0x000e, h01=0x0050, text=»X:C EQU 1 «, t00=0x0007, t01=0x0122}
0x0c1e…0c34 Head {h00=0x0012, h01=0x0050, text=»SALCUZ EQU X:C«, t00=0x0007, t01=0x0134}
0x0c34…0c3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x014a}
0x0c3e…0c48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0154}
0x0c48…0c7e Head {h00=0x0032, h01=0x0050, text=»* BY SETTING X:D=1 ASCU4Z DRIVER CAN BE USED«, t00=0x0007, t01=0x015e}
0x0c7e…0c88 (8, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0004}
0x0c88…0c9a Head {h00=0x000e, h01=0x0050, text=»X:D EQU 1 «, t00=0x0008, t01=0x000e}
0x0c9a…0cb0 Head {h00=0x0012, h01=0x0050, text=»ASCU4Z EQU X:D«, t00=0x0008, t01=0x0020}
0x0cb0…0cba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0036}
0x0cba…0cfa Head {h00=0x003c, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION SET«, t00=0x0008, t01=0x0040}
0x0cfa…0d2a Head {h00=0x002c, h01=0x0050, text=»* IS OBTAINED BY SETTING CPU852 EQU 0 «, t00=0x0008, t01=0x0080}
0x0d2a…0d34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00b0}
0x0d34…0d48 Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x0008, t01=0x00ba}
0x0d48…0d52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00ce}
0x0d52…0d60 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x00d8}
0x0d60…0d6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00e6}
0x0d6a…0d82 Head {h00=0x0014, h01=0x0050, text=»* O U T L I N «, t00=0x0008, t01=0x00f0}
0x0d82…0d8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0108}
0x0d8c…0dc2 Head {h00=0x0032, h01=0x0050, text=»* CHECK CHANNEL PARAMETER WHICH CHANNEL UNIT«, t00=0x0008, t01=0x0112}
0x0dc2…0ddc Head {h00=0x0016, h01=0x0050, text=»* DRIVER TO USE «, t00=0x0008, t01=0x0148}
0x0ddc…0de6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0162}
0x0de6…0df0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x016c}
0x0df0…0e04 Head {h00=0x0010, h01=0x0050, text=»OUTLIN EQU *«, t00=0x0008, t01=0x0176}
0x0e04…0e1a Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0008, t01=0x018a}
0x0e1a…0e44 Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0009, t01=0x0010}
0x0e44…0e50 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0009, t01=0x003a}
0x0e50…0e5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0046}
0x0e5a…0e70 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0009, t01=0x0050}
0x0e70…0e96 Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0009, t01=0x0066}
0x0e96…0ea2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0009, t01=0x008c}
0x0ea2…0eac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0098}
0x0eac…0ed2 Head {h00=0x0022, h01=0x0050, text=» LDR* A1,A6 CHANNEL PARAMETER «, t00=0x0009, t01=0x00a2}
0x0ed2…0ef2 Head {h00=0x001c, h01=0x0050, text=» ANK A1,/F CHANNEL INDEX«, t00=0x0009, t01=0x00c8}
0x0ef2…0efc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00e8}
0x0efc…0f0e Head {h00=0x000e, h01=0x0050, text=» IFT LRT=1«, t00=0x0009, t01=0x00f2}
0x0f0e…0f20 Head {h00=0x000e, h01=0x0050, text=» SUK A1,/C«, t00=0x0009, t01=0x0104}
0x0f20…0f44 Head {h00=0x0020, h01=0x0050, text=» ABL(N) OUTLRT CULT OR CURT «, t00=0x0009, t01=0x0116}
0x0f44…0f56 Head {h00=0x000e, h01=0x0050, text=» ADK A1,/C«, t00=0x0009, t01=0x013a}
0x0f56…0f62 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0009, t01=0x014c}
0x0f62…0f6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0158}
0x0f6c…0f82 Head {h00=0x0012, h01=0x0050, text=» IFT ASCU4Z=1 «, t00=0x0009, t01=0x0162}
0x0f82…0f94 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A1«, t00=0x0009, t01=0x0178}
0x0f94…0fa6 Head {h00=0x000e, h01=0x0050, text=» SUK A7,/C«, t00=0x0009, t01=0x018a}
0x0fa6…0fbc Head {h00=0x0012, h01=0x0050, text=» RF(N) OUTL10 «, t00=0x000a, t01=0x000c}
0x0fbc…0fce Head {h00=0x000e, h01=0x0050, text=» SUK A7,/3«, t00=0x000a, t01=0x0022}
0x0fce…0fec Head {h00=0x001a, h01=0x0050, text=» ABL(N) OUTASC ASCU4Z «, t00=0x000a, t01=0x0034}
0x0fec…0ff8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000a, t01=0x0052}
0x0ff8…1002 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x005e}
0x1002…1016 Head {h00=0x0010, h01=0x0050, text=»OUTL10 EQU *«, t00=0x000a, t01=0x0068}
0x1016…102c Head {h00=0x0012, h01=0x0050, text=» IFT SALCUZ=1 «, t00=0x000a, t01=0x007c}
0x102c…103e Head {h00=0x000e, h01=0x0050, text=» SUK A1,/F«, t00=0x000a, t01=0x0092}
0x103e…105c Head {h00=0x001a, h01=0x0050, text=» ABL(E) OUTSAL SALCUZ «, t00=0x000a, t01=0x00a4}
0x105c…1068 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000a, t01=0x00c2}
0x1068…1078 Head {h00=0x000c, h01=0x0050, text=» RF EXIT«, t00=0x000a, t01=0x00ce}
0x1078…1086 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x00de}
0x1086…1090 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00ec}
0x1090…10a8 Head {h00=0x0014, h01=0x0050, text=»* O U T P U T «, t00=0x000a, t01=0x00f6}
0x10a8…10b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x010e}
0x10b2…10f2 Head {h00=0x003c, h01=0x0050, text=»* SEND ONE CHARACTER VIA 'OUTLIN' INDICATE INTERRUPTS «, t00=0x000a, t01=0x0118}
0x10f2…111c Head {h00=0x0026, h01=0x0050, text=»* ALLOWED AND SAVE A3-A5 IN DWT.«, t00=0x000a, t01=0x0158}
0x111c…1126 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0182}
0x1126…1130 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x018c}
0x1130…1144 Head {h00=0x0010, h01=0x0050, text=»OUTPUT EQU *«, t00=0x000b, t01=0x0008}
0x1144…1158 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x000b, t01=0x001c}
0x1158…116a Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x000b, t01=0x0030}
0x116a…1184 Head {h00=0x0016, h01=0x0050, text=» SUK A1,/82 STX ? «, t00=0x000b, t01=0x0042}
0x1184…119e Head {h00=0x0016, h01=0x0050, text=» RF(E) OUTP05 YES «, t00=0x000b, t01=0x005c}
0x119e…11b8 Head {h00=0x0016, h01=0x0050, text=» SUK A1,/15 ETB ? «, t00=0x000b, t01=0x0076}
0x11b8…11d2 Head {h00=0x0016, h01=0x0050, text=» RF(NE) OUTP10 NO «, t00=0x000b, t01=0x0090}
0x11d2…11e6 Head {h00=0x0010, h01=0x0050, text=»OUTP05 EQU *«, t00=0x000b, t01=0x00aa}
0x11e6…120c Head {h00=0x0022, h01=0x0050, text=» LDR* A1,A6 CHANNEL PARAMETER «, t00=0x000b, t01=0x00be}
0x120c…1222 Head {h00=0x0012, h01=0x0050, text=» ANK A1,/C LT?«, t00=0x000b, t01=0x00e4}
0x1222…123c Head {h00=0x0016, h01=0x0050, text=» RF(E) LDRE10 YES «, t00=0x000b, t01=0x00fa}
0x123c…1252 Head {h00=0x0012, h01=0x0050, text=» SUK A1,/C RT?«, t00=0x000b, t01=0x0114}
0x1252…126a Head {h00=0x0014, h01=0x0050, text=» RF(E) LDRE10 NO«, t00=0x000b, t01=0x012a}
0x126a…127e Head {h00=0x0010, h01=0x0050, text=»OUTP10 EQU *«, t00=0x000b, t01=0x0142}
0x127e…12b8 Head {h00=0x0036, h01=0x0050, text=» CF A15,OUTLIN SEND ONE CHARACTER VIA CHANNEL UNIT«, t00=0x000b, t01=0x0156}
0x12b8…12c6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0190}
0x12c6…12d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x000e}
0x12d0…12da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0018}
0x12da…12f0 Head {h00=0x0012, h01=0x0050, text=»* S T R E G «, t00=0x000c, t01=0x0022}
0x12f0…12fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0038}
0x12fa…1338 Head {h00=0x003a, h01=0x0050, text=»* INDICATE INTERRUPTS ALLOWED AND SAVE A3-A5 IN DWT «, t00=0x000c, t01=0x0042}
0x1338…1342 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0080}
0x1342…134c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x008a}
0x134c…1360 Head {h00=0x0010, h01=0x0050, text=»STREG EQU * «, t00=0x000c, t01=0x0094}
0x1360…136c Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x000c, t01=0x00a8}
0x136c…1382 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/100 «, t00=0x000c, t01=0x00b4}
0x1382…13b6 Head {h00=0x0030, h01=0x0050, text=» ORS A1,DWTST,A6 INDICATE INTERRUPTS ALLOWED«, t00=0x000c, t01=0x00ca}
0x13b6…13de Head {h00=0x0024, h01=0x0050, text=» ST A3,DWTA3,A6 SAVE REGISTER A3«, t00=0x000c, t01=0x00fe}
0x13de…1406 Head {h00=0x0024, h01=0x0050, text=» ST A4,DWTA4,A6 A4«, t00=0x000c, t01=0x0126}
0x1406…142e Head {h00=0x0024, h01=0x0050, text=» ST A5,DWTA5,A6 A5«, t00=0x000c, t01=0x014e}
0x142e…1444 Head {h00=0x0012, h01=0x0050, text=»EXIT ABL TDISP«, t00=0x000c, t01=0x0176}
0x1444…1452 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x018c}
0x1452…145c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x000a}
0x145c…1472 Head {h00=0x0012, h01=0x0050, text=»* L D R E G «, t00=0x000d, t01=0x0014}
0x1472…147c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x002a}
0x147c…14be Head {h00=0x003e, h01=0x0050, text=»* IF INTERRUPT ALLOWED RESTORE A3-A5 FROM DWT AND RETURN«, t00=0x000d, t01=0x0034}
0x14be…14e8 Head {h00=0x0026, h01=0x0050, text=»* VIA A5. ELSE GO TO DISPATCHER.«, t00=0x000d, t01=0x0076}
0x14e8…14f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00a0}
0x14f2…14fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00aa}
0x14fc…1510 Head {h00=0x0010, h01=0x0050, text=»LDREG EQU * «, t00=0x000d, t01=0x00b4}
0x1510…1528 Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTST,A6 «, t00=0x000d, t01=0x00c8}
0x1528…153e Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/100 «, t00=0x000d, t01=0x00e0}
0x153e…1552 Head {h00=0x0010, h01=0x0050, text=» RB(Z) EXIT «, t00=0x000d, t01=0x00f6}
0x1552…156a Head {h00=0x0014, h01=0x0050, text=» XRS A3,DWTST,A6«, t00=0x000d, t01=0x010a}
0x156a…1574 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0122}
0x1574…157e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x012c}
0x157e…1596 Head {h00=0x0014, h01=0x0050, text=»* L D R E G E «, t00=0x000d, t01=0x0136}
0x1596…15a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x014e}
0x15a0…15dc Head {h00=0x0038, h01=0x0050, text=»* RESTORE A3-A5 FROM DWT AND RETURN TO USER VIA A5«, t00=0x000d, t01=0x0158}
0x15dc…15e6 (14, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0004}
0x15e6…15f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x000e}
0x15f0…1604 Head {h00=0x0010, h01=0x0050, text=»LDREGF EQU *«, t00=0x000e, t01=0x0018}
0x1604…162e Head {h00=0x0026, h01=0x0050, text=» LD A5,DWTA5,A6 A5«, t00=0x000e, t01=0x002c}
0x162e…1642 Head {h00=0x0010, h01=0x0050, text=»LDREGE EQU *«, t00=0x000e, t01=0x0056}
0x1642…166c Head {h00=0x0026, h01=0x0050, text=» LD A3,DWTA3,A6 RELOAD REGISTER A3«, t00=0x000e, t01=0x006a}
0x166c…1696 Head {h00=0x0026, h01=0x0050, text=» LD A4,DWTA4,A6 A4«, t00=0x000e, t01=0x0094}
0x1696…16be Head {h00=0x0024, h01=0x0050, text=»LDRE10 LD A7,DWTOR,A6 GET ORDER «, t00=0x000e, t01=0x00be}
0x16be…16d2 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x000e, t01=0x00e6}
0x16d2…16ea Head {h00=0x0014, h01=0x0050, text=» LD A8,DWTECB,A6«, t00=0x000e, t01=0x00fa}
0x16ea…170e Head {h00=0x0020, h01=0x0050, text=» RTN A5 RETURN VIA A5-STACK «, t00=0x000e, t01=0x0112}
0x170e…171c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x0136}
0x171c…1726 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0144}
0x1726…1730 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x014e}
0x1730…1748 Head {h00=0x0014, h01=0x0050, text=»* G E T C H R«, t00=0x000e, t01=0x0158}
0x1748…1752 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0170}
0x1752…178e Head {h00=0x0038, h01=0x0050, text=»* SUBROUTINE TO GET ONE CHARACTER FROM ECB-BUFFER«, t00=0x000e, t01=0x017a}
0x178e…1798 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0026}
0x1798…17ae Head {h00=0x0012, h01=0x0050, text=»* ON ENTRY:«, t00=0x000f, t01=0x0030}
0x17ae…17b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0046}
0x17b8…17d6 Head {h00=0x001a, h01=0x0050, text=»* A3 = BUFFER INDEX«, t00=0x000f, t01=0x0050}
0x17d6…17f4 Head {h00=0x001a, h01=0x0050, text=»* A8 = ECB-ADDRESS «, t00=0x000f, t01=0x006e}
0x17f4…17fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x008c}
0x17fe…1814 Head {h00=0x0012, h01=0x0050, text=»* ON EXIT: «, t00=0x000f, t01=0x0096}
0x1814…181e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00ac}
0x181e…183a Head {h00=0x0018, h01=0x0050, text=»* A2 = CHARACTER «, t00=0x000f, t01=0x00b6}
0x183a…1868 Head {h00=0x002a, h01=0x0050, text=»* A1 = 0 IF LAST CHARACTER ELSE # 0«, t00=0x000f, t01=0x00d2}
0x1868…1872 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0100}
0x1872…18c0 Head {h00=0x004a, h01=0x0050, text=»* IF LAST CHARACTER IS REACHED A3 IS STORED IN ECB EFFECTIVE LENGTH«, t00=0x000f, t01=0x010a}
0x18c0…18ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0158}
0x18ca…18d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0162}
0x18d4…18e8 Head {h00=0x0010, h01=0x0050, text=»GETCHR EQU *«, t00=0x000f, t01=0x016c}
0x18e8…190c Head {h00=0x0020, h01=0x0050, text=» LD A1,4,A8 REQUESTED LENGTH«, t00=0x000f, t01=0x0180}
0x190c…191e Head {h00=0x000e, h01=0x0050, text=» SUR A1,A3«, t00=0x0010, t01=0x0014}
0x191e…194c Head {h00=0x002a, h01=0x0050, text=» RF(NP) GCH010 LAST CHARACTER REACHED «, t00=0x0010, t01=0x0026}
0x194c…1972 Head {h00=0x0022, h01=0x0050, text=» LD A2,2,A8 GET BUFFER ADDRESS«, t00=0x0010, t01=0x0054}
0x1972…1984 Head {h00=0x000e, h01=0x0050, text=» ADR A2,A3«, t00=0x0010, t01=0x007a}
0x1984…19a2 Head {h00=0x001a, h01=0x0050, text=» LCR A2,A2 CHAR. TO A2«, t00=0x0010, t01=0x008c}
0x19a2…19b6 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0010, t01=0x00aa}
0x19b6…19de Head {h00=0x0024, h01=0x0050, text=» ADK A3,1 INCREMENT BUFFER INDEX«, t00=0x0010, t01=0x00be}
0x19de…19f0 Head {h00=0x000e, h01=0x0050, text=» RF GCH020«, t00=0x0010, t01=0x00e6}
0x19f0…1a20 Head {h00=0x002c, h01=0x0050, text=»GCH010 ST A3,6,A8 STORE EFFECTIVE LENGTH«, t00=0x0010, t01=0x00f8}
0x1a20…1a34 Head {h00=0x0010, h01=0x0050, text=»GCH020 EQU *«, t00=0x0010, t01=0x0128}
0x1a34…1a60 Head {h00=0x0028, h01=0x0050, text=»RTNA15 ADKL A15,2 RETURN AND ENABLE «, t00=0x0010, t01=0x013c}
0x1a60…1a6c Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0010, t01=0x0168}
0x1a6c…1a80 Head {h00=0x0010, h01=0x0050, text=» LDR* P,A15 «, t00=0x0010, t01=0x0174}
0x1a80…1a8e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0188}
0x1a8e…1a98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0008}
0x1a98…1aa2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0012}
0x1aa2…1ac4 Head {h00=0x001e, h01=0x0050, text=»* E C H O , E C H E N D«, t00=0x0011, t01=0x001c}
0x1ac4…1ace Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x003e}
0x1ace…1b0e Head {h00=0x003c, h01=0x0050, text=»* SUBROUTINE TO ECHO CHARACTER CONTAINING TWO PARTS, «, t00=0x0011, t01=0x0048}
0x1b0e…1b40 Head {h00=0x002e, h01=0x0050, text=»* ONE GENERAL AND ONE DEVICE-DEPENDENT «, t00=0x0011, t01=0x0088}
0x1b40…1b4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00ba}
0x1b4a…1b82 Head {h00=0x0034, h01=0x0050, text=»* PART ONE: FIND DWT-ADDRESS OF ECHO-DEVICE, «, t00=0x0011, t01=0x00c4}
0x1b82…1bb8 Head {h00=0x0032, h01=0x0050, text=»* LOAD STACKBASE AND FIND ADDRESS«, t00=0x0011, t01=0x00fc}
0x1bb8…1bf0 Head {h00=0x0034, h01=0x0050, text=»* TO DEVICE-DEPENDENT ECHO-ROUTINE «, t00=0x0011, t01=0x0132}
0x1bf0…1bfa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x016a}
0x1bfa…1c2c Head {h00=0x002e, h01=0x0050, text=»* PART TWO: ECHO ONE OR MORE CHARACTERS«, t00=0x0011, t01=0x0174}
0x1c2c…1c62 Head {h00=0x0032, h01=0x0050, text=»* CORRESPONDING TO ONE CHARACTER «, t00=0x0012, t01=0x0016}
0x1c62…1c9a Head {h00=0x0034, h01=0x0050, text=»* TO BE STORED IN INPUT ECB-BUFFER «, t00=0x0012, t01=0x004c}
0x1c9a…1ca4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0084}
0x1ca4…1cae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x008e}
0x1cae…1ce6 Head {h00=0x0034, h01=0x0050, text=»* PART ONE FOLLOWS AND PART TWO CAN BE FOUND «, t00=0x0012, t01=0x0098}
0x1ce6…1d1e Head {h00=0x0034, h01=0x0050, text=»* IN THE DRIVER MODULE CORRESPONDING TO ECHO «, t00=0x0012, t01=0x00d0}
0x1d1e…1d38 Head {h00=0x0016, h01=0x0050, text=»* OUTPUT DEVICE«, t00=0x0012, t01=0x0108}
0x1d38…1d42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0122}
0x1d42…1d7c Head {h00=0x0036, h01=0x0050, text=»* RESTRICTIONS IN DEVICE DEPENDENT ECHO DRIVER «, t00=0x0012, t01=0x012c}
0x1d7c…1d86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0166}
0x1d86…1dac Head {h00=0x0022, h01=0x0050, text=»* A7 MUST NOT BE DESTROYED «, t00=0x0012, t01=0x0170}
0x1dac…1de6 Head {h00=0x0036, h01=0x0050, text=»* THE ECHO-ROUTINE SHOULD BE TERMINATED WITH A «, t00=0x0013, t01=0x0008}
0x1de6…1e04 Head {h00=0x001a, h01=0x0050, text=»* JUMP TO 'ECHRTN'.«, t00=0x0013, t01=0x0042}
0x1e04…1e0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0060}
0x1e0e…1e22 Head {h00=0x0010, h01=0x0050, text=»ECHEND EQU *«, t00=0x0013, t01=0x006a}
0x1e22…1e2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x007e}
0x1e2c…1e40 Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0013, t01=0x0088}
0x1e40…1e4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x009c}
0x1e4a…1e72 Head {h00=0x0024, h01=0x0050, text=» LDKL A7,/8000 INDICATE END I/O «, t00=0x0013, t01=0x00a6}
0x1e72…1e7e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x00ce}
0x1e7e…1e90 Head {h00=0x000e, h01=0x0050, text=»ECHO EQU *«, t00=0x0013, t01=0x00da}
0x1e90…1ea4 Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0013, t01=0x00ec}
0x1ea4…1ece Head {h00=0x0026, h01=0x0050, text=» ST A3,DWTA3,A6 SAVE A3-A5 IN DWT «, t00=0x0013, t01=0x0100}
0x1ece…1ee6 Head {h00=0x0014, h01=0x0050, text=» ST A4,DWTA4,A6 «, t00=0x0013, t01=0x012a}
0x1ee6…1efe Head {h00=0x0014, h01=0x0050, text=» ST A5,DWTA5,A6 «, t00=0x0013, t01=0x0142}
0x1efe…1f1c Head {h00=0x001a, h01=0x0050, text=» LD A1,DWTST,A6 STATUS«, t00=0x0013, t01=0x015a}
0x1f1c…1f2e Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x0013, t01=0x0178}
0x1f2e…1f56 Head {h00=0x0024, h01=0x0050, text=» RF(NN) RETUR NO ECHO REQUESTED «, t00=0x0013, t01=0x018a}
0x1f56…1f8a Head {h00=0x0030, h01=0x0050, text=» LDR A4,A6 SAVE DWT-ADDRESS OF INPUT DEVICE «, t00=0x0014, t01=0x0022}
0x1f8a…1fc0 Head {h00=0x0032, h01=0x0050, text=» LD A6,DWTECH,A6 DWT-ADDRESS OF OUTPUT DEVICE «, t00=0x0014, t01=0x0056}
0x1fc0…1ffa Head {h00=0x0036, h01=0x0050, text=» ST A4,DWTWAT,A6 SAVE DWT-ADDRESS OF INPUT DEVICE «, t00=0x0014, t01=0x008c}
0x1ffa…2012 Head {h00=0x0014, h01=0x0050, text=» LDKL A5,DWTSB2 «, t00=0x0014, t01=0x00c6}
0x2012…203c Head {h00=0x0026, h01=0x0050, text=» ADR A5,A6 STACKBASE-ADDRESS IN A5«, t00=0x0014, t01=0x00de}
0x203c…206e Head {h00=0x002e, h01=0x0050, text=» LD A1,DWTADR,A6 ADDRESS TO ADDRESS-BLOCK «, t00=0x0014, t01=0x0108}
0x206e…20a8 Head {h00=0x0036, h01=0x0050, text=» ABI ECHADR,A1 GO TO ECHO-ROUTINE DEVICE-DEPENDENT«, t00=0x0014, t01=0x013a}
0x20a8…20b4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x0174}
0x20b4…20c8 Head {h00=0x0010, h01=0x0050, text=»ECHRTN EQU *«, t00=0x0014, t01=0x0180}
0x20c8…20dc (21, 2, 266) Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0015, t01=0x0004}
0x20dc…20f4 Head {h00=0x0014, h01=0x0050, text=» LDR A7,A7 END? «, t00=0x0015, t01=0x0018}
0x20f4…210e Head {h00=0x0016, h01=0x0050, text=» RF(NN) ERETUR NO «, t00=0x0015, t01=0x0030}
0x210e…213a Head {h00=0x0028, h01=0x0050, text=» CF A15,TENDIO END I/O OUTPUT DEVICE«, t00=0x0015, t01=0x004a}
0x213a…217c Head {h00=0x003e, h01=0x0050, text=»ERETUR LD A6,DWTWAT,A6 RELOAD DWT-ADDRESS OF INPUT DEVICE «, t00=0x0015, t01=0x0076}
0x217c…21b4 Head {h00=0x0034, h01=0x0050, text=»RETUR ABL LDREGF RELOAD A3-A5 AND RETURN VIA A5 «, t00=0x0015, t01=0x00b8}
0x21b4…21be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00f0}
0x21be…21ca Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0015, t01=0x00fa}
0x21ca…21ce Head {h00=0x4004, h01=0x0000}
0x21ce…21d2 00 15 01 06 ┆ ┆
0x21d2…21da (22, 1, 8) 20 04 00 00 00 16 00 04 ┆ ┆
0x21da…222a (23, 0, 400) 20 49 46 20 56 49 44 45 4f 20 28 36 33 34 34 29 20 53 45 54 20 43 55 52 53 4f 52 20 41 44 44 52 45 53 53 20 44 49 52 45 43 54 00 2e 01 8c 00 08 00 50 5c 58 49 46 00 2f 00 32 00 2a 00 50 5c 4c 44 5c 41 34 2c 31 30 2c 41 38 5c 47 45 54 20 52 ┆ IF VIDEO (6344) SET CURSOR ADDRESS DIRECT . P XIF / 2 * P LD A4,10,A8 GET R┆
0x222a…227a 45 51 55 45 53 54 45 44 20 43 55 52 53 4f 52 20 50 4f 53 20 00 2f 00 3e 00 2e 00 50 5c 53 54 5c 41 34 2c 44 57 54 41 50 2c 41 36 5c 55 50 44 41 54 45 20 4c 49 4e 45 20 26 20 50 4f 53 20 43 4f 55 4e 54 45 52 20 00 2f 00 6c 00 1c 00 50 5c 43 ┆EQUESTED CURSOR POS / > . P ST A4,DWTAP,A6 UPDATE LINE & POS COUNTER / l P C┆
0x227a…22ca 46 5c 41 35 2c 43 55 52 50 4f 53 5c 53 45 54 20 43 55 52 53 4f 52 00 2f 00 9e 00 0e 00 50 5c 52 46 5c 41 44 59 33 38 30 00 2f 00 be 00 12 00 50 5c 49 46 54 5c 57 48 41 54 44 59 3d 30 20 00 2f 00 d0 00 12 00 50 2a 20 20 20 20 47 45 54 20 4c ┆F A5,CURPOS SET CURSOR / P RF ADY380 / P IFT WHATDY=0 / P* GET L┆
0x22ca…231a 49 4e 45 20 00 2f 00 e6 00 2a 00 50 41 44 59 32 30 35 5c 4c 43 5c 41 34 2c 31 30 2c 41 38 5c 47 45 54 20 52 45 51 55 45 53 54 45 44 20 4c 49 4e 45 20 00 2f 00 fc 00 24 00 50 5c 43 43 5c 41 34 2c 44 57 54 4c 49 4e 2c 41 36 5c 4f 55 54 53 49 ┆INE / * PADY205 LC A4,10,A8 GET REQUESTED LINE / $ P CC A4,DWTLIN,A6 OUTSI┆
0x231a…236a 44 45 20 53 43 52 45 45 4e 3f 00 2f 01 2a 00 16 00 50 5c 52 46 28 4e 47 29 5c 41 44 59 32 30 37 5c 4e 4f 21 00 2f 01 52 00 34 00 50 5c 4c 43 5c 41 34 2c 44 57 54 4c 49 4e 2c 41 36 5c 59 45 53 21 20 53 45 54 20 43 55 52 53 4f 52 20 41 54 20 ┆DE SCREEN? / * P RF(NG) ADY207 NO! / R 4 P LC A4,DWTLIN,A6 YES! SET CURSOR AT ┆
0x236a…23ba (24, 0, 400) 45 4e 44 20 4f 46 20 4c 49 4e 45 20 00 2f 01 6c 00 10 00 50 41 44 59 32 30 37 5c 45 51 55 5c 2a 00 30 00 14 00 24 00 50 5c 4c 43 5c 41 33 2c 44 57 54 41 50 2c 41 36 5c 47 45 54 20 41 43 54 55 41 4c 20 4c 49 4e 45 20 00 30 00 28 00 14 00 50 ┆END OF LINE / l PADY207 EQU * 0 $ P LC A3,DWTAP,A6 GET ACTUAL LINE 0 ( P┆
0x23ba…240a 41 44 59 32 31 30 5c 43 57 52 5c 41 34 2c 41 33 00 30 00 50 00 2e 00 50 5c 52 46 28 4e 29 5c 41 44 59 32 35 30 5c 52 45 51 55 45 53 54 45 44 20 4c 49 4e 45 20 41 42 4f 56 45 20 41 43 54 55 41 4c 20 00 30 00 68 00 1c 00 50 5c 52 46 28 45 29 ┆ADY210 CWR A4,A3 0 P . P RF(N) ADY250 REQUESTED LINE ABOVE ACTUAL 0 h P RF(E)┆
0x240a…245a 5c 41 44 59 33 30 30 5c 53 41 4d 45 20 4c 49 4e 45 20 00 30 00 9a 00 18 00 50 5c 4c 44 4b 5c 41 32 2c 4c 46 5c 4c 49 4e 45 20 46 45 45 44 00 30 00 ba 00 2a 00 50 5c 41 44 4b 5c 41 33 2c 31 5c 49 4e 43 52 45 4d 45 4e 54 20 41 43 54 55 41 4c ┆ ADY300 SAME LINE 0 P LDK A2,LF LINE FEED 0 * P ADK A3,1 INCREMENT ACTUAL┆
0x245a…24aa 20 4c 49 4e 45 20 4e 55 4d 42 45 52 00 30 00 d6 00 1c 00 50 41 44 59 32 33 30 5c 43 46 5c 41 35 2c 4f 55 54 50 55 54 5c 53 45 4e 44 00 30 01 04 00 1e 00 50 5c 4c 44 52 5c 41 34 2c 41 34 5c 52 45 51 55 45 53 54 45 44 20 4c 49 4e 45 20 00 30 ┆ LINE NUMBER 0 PADY230 CF A5,OUTPUT SEND 0 P LDR A4,A4 REQUESTED LINE 0┆
0x24aa…24fa 01 24 00 22 00 50 5c 52 42 28 4e 5a 29 5c 41 44 59 32 31 30 5c 4e 4f 54 20 45 51 55 41 4c 20 5a 45 52 4f 20 00 30 01 46 00 0e 00 50 5c 4c 44 4b 5c 41 34 2c 31 20 00 30 01 6c 00 0e 00 50 5c 52 46 5c 41 44 59 33 30 30 00 30 01 7e 00 1c 00 50 ┆ $ " P RB(NZ) ADY210 NOT EQUAL ZERO 0 F P LDK A4,1 0 l P RF ADY300 0 ~ P┆
0x24fa…254a (25, 0, 400) 41 44 59 32 35 30 5c 4c 44 4b 5c 41 32 2c 48 4f 4d 45 5c 48 4f 4d 45 20 00 30 01 90 00 26 00 50 5c 4c 44 4b 5c 41 33 2c 31 5c 52 45 53 45 54 20 41 43 54 55 41 4c 20 4c 49 4e 45 20 4e 55 4d 42 45 52 00 31 00 20 00 22 00 50 5c 53 54 5c 41 33 ┆ADY250 LDK A2,HOME HOME 0 & P LDK A3,1 RESET ACTUAL LINE NUMBER 1 " P ST A3┆
0x254a…259a 2c 44 57 54 41 50 2c 41 36 5c 52 45 53 45 54 20 50 4f 53 49 54 49 4f 4e 00 31 00 4a 00 0e 00 50 5c 52 42 5c 41 44 59 32 33 30 00 31 00 70 00 06 00 50 2a 20 00 31 00 82 00 16 00 50 2a 20 20 20 20 47 45 54 20 50 4f 53 49 54 49 4f 4e 20 00 31 ┆,DWTAP,A6 RESET POSITION 1 J P RB ADY230 1 p P* 1 P* GET POSITION 1┆
0x259a…25ea 00 8c 00 06 00 50 2a 20 00 31 00 a6 00 32 00 50 41 44 59 33 30 30 5c 53 43 5c 41 34 2c 44 57 54 41 50 2c 41 36 5c 55 50 44 41 54 45 20 48 45 41 44 20 4c 49 4e 45 20 43 4f 55 4e 54 45 52 00 31 00 b0 00 28 00 50 5c 4c 43 5c 41 34 2c 31 31 2c ┆ P* 1 2 PADY300 SC A4,DWTAP,A6 UPDATE HEAD LINE COUNTER 1 ( P LC A4,11,┆
0x25ea…263a 41 38 5c 47 45 54 20 52 45 51 55 45 53 54 45 44 20 50 4f 53 49 54 49 4f 4e 20 00 31 00 e6 00 24 00 50 5c 43 43 5c 41 34 2c 44 57 54 50 4f 53 2c 41 36 5c 4f 55 54 53 49 44 45 20 53 43 52 45 45 4e 3f 00 31 01 12 00 16 00 50 5c 52 46 28 4e 47 ┆A8 GET REQUESTED POSITION 1 $ P CC A4,DWTPOS,A6 OUTSIDE SCREEN? 1 P RF(NG┆
0x263a…268a 29 5c 41 44 59 33 30 33 5c 4e 4f 21 00 31 01 3a 00 22 00 50 5c 4c 43 5c 41 34 2c 44 57 54 50 4f 53 2c 41 36 5c 53 45 54 20 4c 41 53 54 20 4c 49 4e 45 00 31 01 54 00 10 00 50 41 44 59 33 30 33 5c 45 51 55 5c 2a 00 31 01 7a 00 1e 00 50 5c 43 ┆) ADY303 NO! 1 : " P LC A4,DWTPOS,A6 SET LAST LINE 1 T PADY303 EQU * 1 z P C┆
0x268a…26da (26, 0, 400) 57 4b 5c 41 34 2c 31 5c 46 49 52 53 54 20 50 4f 53 49 54 49 4f 4e 20 3f 00 31 01 8e 00 16 00 50 5c 52 46 28 4e 45 29 5c 41 44 59 33 30 35 5c 4e 4f 20 00 32 00 20 00 1c 00 50 5c 43 57 52 5c 41 34 2c 41 33 5c 46 49 52 53 54 20 4c 49 4e 45 20 ┆WK A4,1 FIRST POSITION ? 1 P RF(NE) ADY305 NO 2 P CWR A4,A3 FIRST LINE ┆
0x26da…272a 3f 20 00 32 00 3a 00 16 00 50 5c 52 46 28 4e 45 29 5c 41 44 59 33 30 35 5c 4e 4f 20 00 32 00 5a 00 20 00 50 5c 4c 44 4b 5c 41 32 2c 48 4f 4d 45 5c 43 55 52 53 4f 52 20 47 4f 20 48 4f 4d 45 20 00 32 00 74 00 0e 00 50 5c 52 46 5c 41 44 59 33 ┆? 2 : P RF(NE) ADY305 NO 2 Z P LDK A2,HOME CURSOR GO HOME 2 t P RF ADY3┆
0x272a…277a 33 30 00 32 00 98 00 2a 00 50 41 44 59 33 30 35 5c 52 46 28 4e 4c 29 5c 41 44 59 33 30 37 5c 52 45 51 2e 20 50 4f 53 20 4e 4f 54 20 5a 45 52 4f 00 32 00 aa 00 0e 00 50 5c 4c 44 4b 5c 41 34 2c 31 20 00 32 00 d8 00 30 00 50 41 44 59 33 30 37 ┆30 2 * PADY305 RF(NL) ADY307 REQ. POS NOT ZERO 2 P LDK A4,1 2 0 PADY307┆
0x277a…27ca 5c 4c 43 5c 41 33 2c 44 57 54 41 50 2b 31 2c 41 36 5c 47 45 54 20 41 43 54 55 41 4c 20 50 4f 53 49 54 49 4f 4e 20 00 32 00 ea 00 1e 00 50 5c 43 43 5c 41 33 2c 44 57 54 50 4f 53 2c 41 36 5c 4d 41 58 2d 50 4f 53 3f 20 00 32 01 1e 00 16 00 50 ┆ LC A3,DWTAP+1,A6 GET ACTUAL POSITION 2 P CC A3,DWTPOS,A6 MAX-POS? 2 P┆
0x27ca…281a 5c 52 46 28 4e 47 29 5c 41 44 59 33 31 30 5c 4e 4f 21 00 32 01 40 00 0e 00 50 5c 53 55 4b 5c 41 33 2c 31 20 00 32 01 5a 00 2a 00 50 41 44 59 33 31 30 5c 43 57 52 5c 41 34 2c 41 33 5c 46 4f 52 57 41 52 44 53 20 4f 52 20 42 41 43 4b 57 41 52 ┆ RF(NG) ADY310 NO! 2 @ P SUK A3,1 2 Z * PADY310 CWR A4,A3 FORWARDS OR BACKWAR┆
0x281a…286a (27, 0, 400) 44 53 00 32 01 6c 00 20 00 50 5c 52 46 28 45 29 5c 41 44 59 33 37 30 5c 50 4f 53 49 54 49 4f 4e 20 46 4f 55 4e 44 00 33 00 0a 00 16 00 50 5c 52 46 28 4e 29 5c 41 44 59 33 34 30 5c 42 41 43 4b 00 33 00 2e 00 20 00 50 5c 4c 44 4b 5c 41 32 2c ┆DS 2 l P RF(E) ADY370 POSITION FOUND 3 P RF(N) ADY340 BACK 3 . P LDK A2,┆
0x286a…28ba 43 55 52 52 49 47 5c 43 55 52 53 4f 52 20 52 49 47 48 54 20 00 33 00 48 00 26 00 50 5c 41 44 4b 5c 41 33 2c 31 5c 55 50 44 41 54 45 20 50 4f 53 49 54 49 4f 4e 20 43 4f 55 4e 54 45 52 20 00 33 00 6c 00 1c 00 50 41 44 59 33 33 30 5c 43 46 5c ┆CURRIG CURSOR RIGHT 3 H & P ADK A3,1 UPDATE POSITION COUNTER 3 l PADY330 CF ┆
0x28ba…290a 41 35 2c 4f 55 54 50 55 54 5c 53 45 4e 44 00 33 00 96 00 0e 00 50 5c 52 42 5c 41 44 59 33 31 30 00 33 00 b6 00 2e 00 50 41 44 59 33 34 30 5c 53 55 52 5c 41 33 2c 41 34 5c 41 43 54 55 41 4c 20 50 4f 53 2e 20 2d 20 57 41 4e 54 45 44 20 50 4f ┆A5,OUTPUT SEND 3 P RB ADY310 3 . PADY340 SUR A3,A4 ACTUAL POS. - WANTED PO┆
0x290a…295a 53 2e 00 33 00 c8 00 2c 00 50 5c 43 57 52 5c 41 33 2c 41 34 5c 43 4f 4d 50 41 52 45 20 42 41 43 4b 53 54 45 50 53 20 57 49 54 48 20 43 52 2d 57 41 59 00 33 00 fa 00 20 00 50 5c 52 46 28 4c 29 5c 41 44 59 33 34 35 5c 42 41 43 4b 53 50 41 43 ┆S. 3 , P CWR A3,A4 COMPARE BACKSTEPS WITH CR-WAY 3 P RF(L) ADY345 BACKSPAC┆
0x295a…29aa 45 20 57 41 59 20 00 33 01 2a 00 1e 00 50 5c 4c 44 4b 5c 41 32 2c 43 52 5c 43 41 52 52 49 41 47 45 20 52 45 54 55 52 4e 00 33 01 4e 00 26 00 50 5c 4c 44 4b 5c 41 33 2c 31 5c 49 4e 44 49 43 41 54 45 20 46 49 52 53 54 20 50 4f 53 49 54 49 4f ┆E WAY 3 * P LDK A2,CR CARRIAGE RETURN 3 N & P LDK A3,1 INDICATE FIRST POSITIO┆
0x29aa…29fa (28, 0, 400) 4e 20 00 33 01 70 00 0e 00 50 5c 52 42 5c 41 44 59 33 33 30 00 34 00 0a 00 22 00 50 41 44 59 33 34 35 5c 4c 44 4b 5c 41 32 2c 42 41 43 4b 53 50 5c 42 41 43 4b 53 50 41 43 45 00 34 00 1c 00 16 00 50 5c 43 46 5c 41 35 2c 4f 55 54 50 55 54 5c ┆N 3 p P RB ADY330 4 " PADY345 LDK A2,BACKSP BACKSPACE 4 P CF A5,OUTPUT ┆
0x29fa…2a4a 53 45 4e 44 00 34 00 42 00 1e 00 50 5c 53 55 4b 5c 41 33 2c 31 5c 4c 41 53 54 20 42 41 43 4b 53 50 41 43 45 20 3f 00 34 00 5c 00 12 00 50 5c 52 42 28 4e 45 29 5c 41 44 59 33 34 35 00 34 00 7e 00 38 00 50 41 44 59 33 37 30 5c 53 43 5c 41 34 ┆SEND 4 B P SUK A3,1 LAST BACKSPACE ? 4 P RB(NE) ADY345 4 ~ 8 PADY370 SC A4┆
0x2a4a…2a9a 2c 44 57 54 41 50 2b 31 2c 41 36 5c 55 50 44 41 54 45 20 48 45 41 44 20 50 4f 53 49 54 49 4f 4e 20 50 4f 49 4e 54 45 52 00 34 00 94 00 08 00 50 5c 58 49 46 00 34 00 d0 00 26 00 50 41 44 59 33 38 30 5c 4c 44 4b 5c 41 33 2c 32 5c 53 54 41 52 ┆,DWTAP+1,A6 UPDATE HEAD POSITION POINTER 4 P XIF 4 & PADY380 LDK A3,2 STAR┆
0x2a9a…2aea 54 20 42 55 46 46 45 52 20 49 4e 44 45 58 00 34 00 dc 00 10 00 50 5c 41 42 4c 5c 41 43 44 59 39 30 20 00 34 01 06 00 12 00 50 5c 49 46 54 5c 57 48 41 54 44 59 3d 30 20 00 34 01 1a 00 06 00 50 2a 20 00 34 01 30 00 26 00 50 41 44 59 34 30 30 ┆T BUFFER INDEX 4 P ABL ACDY90 4 P IFT WHATDY=0 4 P* 4 0 & PADY400┆
0x2aea…2b3a 5c 4c 44 4b 5c 41 32 2c 2f 32 32 5c 53 54 41 52 54 20 43 48 41 52 41 43 54 45 52 20 00 34 01 3a 00 12 00 50 5c 43 46 5c 41 35 2c 4f 55 54 50 55 54 20 00 34 01 64 00 06 00 50 2a 20 00 34 01 7a 00 08 00 50 5c 58 49 46 00 34 01 84 00 06 00 50 ┆ LDK A2,/22 START CHARACTER 4 : P CF A5,OUTPUT 4 d P* 4 z P XIF 4 P┆