|
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: 11062 (0x2b36)
Notes: pts_type(SC)
Names: »DRSW01.SC«
└─⟦4358b8014⟧ Bits:30009669 Philips computer tape "600124"
└─⟦this⟧ »MON10/DRSW01.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »M:DECE/DRSW01.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »MON10/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 01 * * BY SETTING X:C=1 SALCUZ DRIVER CAN BE USED * X:C EQU 1 SALCUZ EQU 00 * * * BY SETTING X:D=1 ASCU4Z DRIVER CAN BE USED * X:D EQU 1 ASCU4Z EQU 00 * * A PROGRAM VERSION USING THE EXTENDED INSTRUCTION SET * IS OBTAINED BY SETTING CPU852 EQU 0 * CPU852 EQU 0 * 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…0bc0 Head {h00=0x000e, h01=0x0050, text=»LRT EQU 01«, t00=0x0007, t01=0x00c4}
0x0bc0…0bca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00d6}
0x0bca…0c00 Head {h00=0x0032, h01=0x0050, text=»* BY SETTING X:C=1 SALCUZ DRIVER CAN BE USED«, t00=0x0007, t01=0x00e0}
0x0c00…0c0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0116}
0x0c0a…0c1c Head {h00=0x000e, h01=0x0050, text=»X:C EQU 1 «, t00=0x0007, t01=0x0120}
0x0c1c…0c32 Head {h00=0x0012, h01=0x0050, text=»SALCUZ EQU 00 «, t00=0x0007, t01=0x0132}
0x0c32…0c3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0148}
0x0c3c…0c46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0152}
0x0c46…0c7c Head {h00=0x0032, h01=0x0050, text=»* BY SETTING X:D=1 ASCU4Z DRIVER CAN BE USED«, t00=0x0007, t01=0x015c}
0x0c7c…0c86 (8, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0004}
0x0c86…0c98 Head {h00=0x000e, h01=0x0050, text=»X:D EQU 1 «, t00=0x0008, t01=0x000e}
0x0c98…0cae Head {h00=0x0012, h01=0x0050, text=»ASCU4Z EQU 00 «, t00=0x0008, t01=0x0020}
0x0cae…0cb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0036}
0x0cb8…0cf8 Head {h00=0x003c, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION SET«, t00=0x0008, t01=0x0040}
0x0cf8…0d28 Head {h00=0x002c, h01=0x0050, text=»* IS OBTAINED BY SETTING CPU852 EQU 0 «, t00=0x0008, t01=0x0080}
0x0d28…0d32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00b0}
0x0d32…0d46 Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 0«, t00=0x0008, t01=0x00ba}
0x0d46…0d50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00ce}
0x0d50…0d5e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x00d8}
0x0d5e…0d68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00e6}
0x0d68…0d80 Head {h00=0x0014, h01=0x0050, text=»* O U T L I N «, t00=0x0008, t01=0x00f0}
0x0d80…0d8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0108}
0x0d8a…0dc0 Head {h00=0x0032, h01=0x0050, text=»* CHECK CHANNEL PARAMETER WHICH CHANNEL UNIT«, t00=0x0008, t01=0x0112}
0x0dc0…0dda Head {h00=0x0016, h01=0x0050, text=»* DRIVER TO USE «, t00=0x0008, t01=0x0148}
0x0dda…0de4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0162}
0x0de4…0dee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x016c}
0x0dee…0e02 Head {h00=0x0010, h01=0x0050, text=»OUTLIN EQU *«, t00=0x0008, t01=0x0176}
0x0e02…0e18 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0008, t01=0x018a}
0x0e18…0e42 Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0009, t01=0x0010}
0x0e42…0e4e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0009, t01=0x003a}
0x0e4e…0e58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0046}
0x0e58…0e6e Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0009, t01=0x0050}
0x0e6e…0e94 Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0009, t01=0x0066}
0x0e94…0ea0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0009, t01=0x008c}
0x0ea0…0eaa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0098}
0x0eaa…0ed0 Head {h00=0x0022, h01=0x0050, text=» LDR* A1,A6 CHANNEL PARAMETER «, t00=0x0009, t01=0x00a2}
0x0ed0…0ef0 Head {h00=0x001c, h01=0x0050, text=» ANK A1,/F CHANNEL INDEX«, t00=0x0009, t01=0x00c8}
0x0ef0…0efa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00e8}
0x0efa…0f0c Head {h00=0x000e, h01=0x0050, text=» IFT LRT=1«, t00=0x0009, t01=0x00f2}
0x0f0c…0f1e Head {h00=0x000e, h01=0x0050, text=» SUK A1,/C«, t00=0x0009, t01=0x0104}
0x0f1e…0f42 Head {h00=0x0020, h01=0x0050, text=» ABL(N) OUTLRT CULT OR CURT «, t00=0x0009, t01=0x0116}
0x0f42…0f54 Head {h00=0x000e, h01=0x0050, text=» ADK A1,/C«, t00=0x0009, t01=0x013a}
0x0f54…0f60 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0009, t01=0x014c}
0x0f60…0f6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0158}
0x0f6a…0f80 Head {h00=0x0012, h01=0x0050, text=» IFT ASCU4Z=1 «, t00=0x0009, t01=0x0162}
0x0f80…0f92 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A1«, t00=0x0009, t01=0x0178}
0x0f92…0fa4 Head {h00=0x000e, h01=0x0050, text=» SUK A7,/C«, t00=0x0009, t01=0x018a}
0x0fa4…0fba Head {h00=0x0012, h01=0x0050, text=» RF(N) OUTL10 «, t00=0x000a, t01=0x000c}
0x0fba…0fcc Head {h00=0x000e, h01=0x0050, text=» SUK A7,/3«, t00=0x000a, t01=0x0022}
0x0fcc…0fea Head {h00=0x001a, h01=0x0050, text=» ABL(N) OUTASC ASCU4Z «, t00=0x000a, t01=0x0034}
0x0fea…0ff6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000a, t01=0x0052}
0x0ff6…1000 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x005e}
0x1000…1014 Head {h00=0x0010, h01=0x0050, text=»OUTL10 EQU *«, t00=0x000a, t01=0x0068}
0x1014…102a Head {h00=0x0012, h01=0x0050, text=» IFT SALCUZ=1 «, t00=0x000a, t01=0x007c}
0x102a…103c Head {h00=0x000e, h01=0x0050, text=» SUK A1,/F«, t00=0x000a, t01=0x0092}
0x103c…105a Head {h00=0x001a, h01=0x0050, text=» ABL(E) OUTSAL SALCUZ «, t00=0x000a, t01=0x00a4}
0x105a…1066 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000a, t01=0x00c2}
0x1066…1076 Head {h00=0x000c, h01=0x0050, text=» RF EXIT«, t00=0x000a, t01=0x00ce}
0x1076…1084 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x00de}
0x1084…108e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00ec}
0x108e…10a6 Head {h00=0x0014, h01=0x0050, text=»* O U T P U T «, t00=0x000a, t01=0x00f6}
0x10a6…10b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x010e}
0x10b0…10f0 Head {h00=0x003c, h01=0x0050, text=»* SEND ONE CHARACTER VIA 'OUTLIN' INDICATE INTERRUPTS «, t00=0x000a, t01=0x0118}
0x10f0…111a Head {h00=0x0026, h01=0x0050, text=»* ALLOWED AND SAVE A3-A5 IN DWT.«, t00=0x000a, t01=0x0158}
0x111a…1124 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0182}
0x1124…112e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x018c}
0x112e…1142 Head {h00=0x0010, h01=0x0050, text=»OUTPUT EQU *«, t00=0x000b, t01=0x0008}
0x1142…1156 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x000b, t01=0x001c}
0x1156…1168 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x000b, t01=0x0030}
0x1168…1182 Head {h00=0x0016, h01=0x0050, text=» SUK A1,/82 STX ? «, t00=0x000b, t01=0x0042}
0x1182…119c Head {h00=0x0016, h01=0x0050, text=» RF(E) OUTP05 YES «, t00=0x000b, t01=0x005c}
0x119c…11b6 Head {h00=0x0016, h01=0x0050, text=» SUK A1,/15 ETB ? «, t00=0x000b, t01=0x0076}
0x11b6…11d0 Head {h00=0x0016, h01=0x0050, text=» RF(NE) OUTP10 NO «, t00=0x000b, t01=0x0090}
0x11d0…11e4 Head {h00=0x0010, h01=0x0050, text=»OUTP05 EQU *«, t00=0x000b, t01=0x00aa}
0x11e4…120a Head {h00=0x0022, h01=0x0050, text=» LDR* A1,A6 CHANNEL PARAMETER «, t00=0x000b, t01=0x00be}
0x120a…1220 Head {h00=0x0012, h01=0x0050, text=» ANK A1,/C LT?«, t00=0x000b, t01=0x00e4}
0x1220…123a Head {h00=0x0016, h01=0x0050, text=» RF(E) LDRE10 YES «, t00=0x000b, t01=0x00fa}
0x123a…1250 Head {h00=0x0012, h01=0x0050, text=» SUK A1,/C RT?«, t00=0x000b, t01=0x0114}
0x1250…1268 Head {h00=0x0014, h01=0x0050, text=» RF(E) LDRE10 NO«, t00=0x000b, t01=0x012a}
0x1268…127c Head {h00=0x0010, h01=0x0050, text=»OUTP10 EQU *«, t00=0x000b, t01=0x0142}
0x127c…12b6 Head {h00=0x0036, h01=0x0050, text=» CF A15,OUTLIN SEND ONE CHARACTER VIA CHANNEL UNIT«, t00=0x000b, t01=0x0156}
0x12b6…12c4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0190}
0x12c4…12ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x000e}
0x12ce…12d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0018}
0x12d8…12ee Head {h00=0x0012, h01=0x0050, text=»* S T R E G «, t00=0x000c, t01=0x0022}
0x12ee…12f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0038}
0x12f8…1336 Head {h00=0x003a, h01=0x0050, text=»* INDICATE INTERRUPTS ALLOWED AND SAVE A3-A5 IN DWT «, t00=0x000c, t01=0x0042}
0x1336…1340 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0080}
0x1340…134a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x008a}
0x134a…135e Head {h00=0x0010, h01=0x0050, text=»STREG EQU * «, t00=0x000c, t01=0x0094}
0x135e…136a Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x000c, t01=0x00a8}
0x136a…1380 Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/100 «, t00=0x000c, t01=0x00b4}
0x1380…13b4 Head {h00=0x0030, h01=0x0050, text=» ORS A1,DWTST,A6 INDICATE INTERRUPTS ALLOWED«, t00=0x000c, t01=0x00ca}
0x13b4…13dc Head {h00=0x0024, h01=0x0050, text=» ST A3,DWTA3,A6 SAVE REGISTER A3«, t00=0x000c, t01=0x00fe}
0x13dc…1404 Head {h00=0x0024, h01=0x0050, text=» ST A4,DWTA4,A6 A4«, t00=0x000c, t01=0x0126}
0x1404…142c Head {h00=0x0024, h01=0x0050, text=» ST A5,DWTA5,A6 A5«, t00=0x000c, t01=0x014e}
0x142c…1442 Head {h00=0x0012, h01=0x0050, text=»EXIT ABL TDISP«, t00=0x000c, t01=0x0176}
0x1442…1450 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x018c}
0x1450…145a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x000a}
0x145a…1470 Head {h00=0x0012, h01=0x0050, text=»* L D R E G «, t00=0x000d, t01=0x0014}
0x1470…147a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x002a}
0x147a…14bc Head {h00=0x003e, h01=0x0050, text=»* IF INTERRUPT ALLOWED RESTORE A3-A5 FROM DWT AND RETURN«, t00=0x000d, t01=0x0034}
0x14bc…14e6 Head {h00=0x0026, h01=0x0050, text=»* VIA A5. ELSE GO TO DISPATCHER.«, t00=0x000d, t01=0x0076}
0x14e6…14f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00a0}
0x14f0…14fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00aa}
0x14fa…150e Head {h00=0x0010, h01=0x0050, text=»LDREG EQU * «, t00=0x000d, t01=0x00b4}
0x150e…1526 Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTST,A6 «, t00=0x000d, t01=0x00c8}
0x1526…153c Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/100 «, t00=0x000d, t01=0x00e0}
0x153c…1550 Head {h00=0x0010, h01=0x0050, text=» RB(Z) EXIT «, t00=0x000d, t01=0x00f6}
0x1550…1568 Head {h00=0x0014, h01=0x0050, text=» XRS A3,DWTST,A6«, t00=0x000d, t01=0x010a}
0x1568…1572 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0122}
0x1572…157c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x012c}
0x157c…1594 Head {h00=0x0014, h01=0x0050, text=»* L D R E G E «, t00=0x000d, t01=0x0136}
0x1594…159e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x014e}
0x159e…15da Head {h00=0x0038, h01=0x0050, text=»* RESTORE A3-A5 FROM DWT AND RETURN TO USER VIA A5«, t00=0x000d, t01=0x0158}
0x15da…15e4 (14, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0004}
0x15e4…15ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x000e}
0x15ee…1602 Head {h00=0x0010, h01=0x0050, text=»LDREGF EQU *«, t00=0x000e, t01=0x0018}
0x1602…162c Head {h00=0x0026, h01=0x0050, text=» LD A5,DWTA5,A6 A5«, t00=0x000e, t01=0x002c}
0x162c…1640 Head {h00=0x0010, h01=0x0050, text=»LDREGE EQU *«, t00=0x000e, t01=0x0056}
0x1640…166a Head {h00=0x0026, h01=0x0050, text=» LD A3,DWTA3,A6 RELOAD REGISTER A3«, t00=0x000e, t01=0x006a}
0x166a…1694 Head {h00=0x0026, h01=0x0050, text=» LD A4,DWTA4,A6 A4«, t00=0x000e, t01=0x0094}
0x1694…16bc Head {h00=0x0024, h01=0x0050, text=»LDRE10 LD A7,DWTOR,A6 GET ORDER «, t00=0x000e, t01=0x00be}
0x16bc…16d0 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x000e, t01=0x00e6}
0x16d0…16e8 Head {h00=0x0014, h01=0x0050, text=» LD A8,DWTECB,A6«, t00=0x000e, t01=0x00fa}
0x16e8…170c Head {h00=0x0020, h01=0x0050, text=» RTN A5 RETURN VIA A5-STACK «, t00=0x000e, t01=0x0112}
0x170c…171a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x0136}
0x171a…1724 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0144}
0x1724…172e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x014e}
0x172e…1746 Head {h00=0x0014, h01=0x0050, text=»* G E T C H R«, t00=0x000e, t01=0x0158}
0x1746…1750 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0170}
0x1750…178c Head {h00=0x0038, h01=0x0050, text=»* SUBROUTINE TO GET ONE CHARACTER FROM ECB-BUFFER«, t00=0x000e, t01=0x017a}
0x178c…1796 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0026}
0x1796…17ac Head {h00=0x0012, h01=0x0050, text=»* ON ENTRY:«, t00=0x000f, t01=0x0030}
0x17ac…17b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0046}
0x17b6…17d4 Head {h00=0x001a, h01=0x0050, text=»* A3 = BUFFER INDEX«, t00=0x000f, t01=0x0050}
0x17d4…17f2 Head {h00=0x001a, h01=0x0050, text=»* A8 = ECB-ADDRESS «, t00=0x000f, t01=0x006e}
0x17f2…17fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x008c}
0x17fc…1812 Head {h00=0x0012, h01=0x0050, text=»* ON EXIT: «, t00=0x000f, t01=0x0096}
0x1812…181c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00ac}
0x181c…1838 Head {h00=0x0018, h01=0x0050, text=»* A2 = CHARACTER «, t00=0x000f, t01=0x00b6}
0x1838…1866 Head {h00=0x002a, h01=0x0050, text=»* A1 = 0 IF LAST CHARACTER ELSE # 0«, t00=0x000f, t01=0x00d2}
0x1866…1870 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0100}
0x1870…18be Head {h00=0x004a, h01=0x0050, text=»* IF LAST CHARACTER IS REACHED A3 IS STORED IN ECB EFFECTIVE LENGTH«, t00=0x000f, t01=0x010a}
0x18be…18c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0158}
0x18c8…18d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0162}
0x18d2…18e6 Head {h00=0x0010, h01=0x0050, text=»GETCHR EQU *«, t00=0x000f, t01=0x016c}
0x18e6…190a Head {h00=0x0020, h01=0x0050, text=» LD A1,4,A8 REQUESTED LENGTH«, t00=0x000f, t01=0x0180}
0x190a…191c Head {h00=0x000e, h01=0x0050, text=» SUR A1,A3«, t00=0x0010, t01=0x0014}
0x191c…194a Head {h00=0x002a, h01=0x0050, text=» RF(NP) GCH010 LAST CHARACTER REACHED «, t00=0x0010, t01=0x0026}
0x194a…1970 Head {h00=0x0022, h01=0x0050, text=» LD A2,2,A8 GET BUFFER ADDRESS«, t00=0x0010, t01=0x0054}
0x1970…1982 Head {h00=0x000e, h01=0x0050, text=» ADR A2,A3«, t00=0x0010, t01=0x007a}
0x1982…19a0 Head {h00=0x001a, h01=0x0050, text=» LCR A2,A2 CHAR. TO A2«, t00=0x0010, t01=0x008c}
0x19a0…19b4 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0010, t01=0x00aa}
0x19b4…19dc Head {h00=0x0024, h01=0x0050, text=» ADK A3,1 INCREMENT BUFFER INDEX«, t00=0x0010, t01=0x00be}
0x19dc…19ee Head {h00=0x000e, h01=0x0050, text=» RF GCH020«, t00=0x0010, t01=0x00e6}
0x19ee…1a1e Head {h00=0x002c, h01=0x0050, text=»GCH010 ST A3,6,A8 STORE EFFECTIVE LENGTH«, t00=0x0010, t01=0x00f8}
0x1a1e…1a32 Head {h00=0x0010, h01=0x0050, text=»GCH020 EQU *«, t00=0x0010, t01=0x0128}
0x1a32…1a5e Head {h00=0x0028, h01=0x0050, text=»RTNA15 ADKL A15,2 RETURN AND ENABLE «, t00=0x0010, t01=0x013c}
0x1a5e…1a6a Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0010, t01=0x0168}
0x1a6a…1a7e Head {h00=0x0010, h01=0x0050, text=» LDR* P,A15 «, t00=0x0010, t01=0x0174}
0x1a7e…1a8c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0188}
0x1a8c…1a96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0008}
0x1a96…1aa0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0012}
0x1aa0…1ac2 Head {h00=0x001e, h01=0x0050, text=»* E C H O , E C H E N D«, t00=0x0011, t01=0x001c}
0x1ac2…1acc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x003e}
0x1acc…1b0c Head {h00=0x003c, h01=0x0050, text=»* SUBROUTINE TO ECHO CHARACTER CONTAINING TWO PARTS, «, t00=0x0011, t01=0x0048}
0x1b0c…1b3e Head {h00=0x002e, h01=0x0050, text=»* ONE GENERAL AND ONE DEVICE-DEPENDENT «, t00=0x0011, t01=0x0088}
0x1b3e…1b48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00ba}
0x1b48…1b80 Head {h00=0x0034, h01=0x0050, text=»* PART ONE: FIND DWT-ADDRESS OF ECHO-DEVICE, «, t00=0x0011, t01=0x00c4}
0x1b80…1bb6 Head {h00=0x0032, h01=0x0050, text=»* LOAD STACKBASE AND FIND ADDRESS«, t00=0x0011, t01=0x00fc}
0x1bb6…1bee Head {h00=0x0034, h01=0x0050, text=»* TO DEVICE-DEPENDENT ECHO-ROUTINE «, t00=0x0011, t01=0x0132}
0x1bee…1bf8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x016a}
0x1bf8…1c2a Head {h00=0x002e, h01=0x0050, text=»* PART TWO: ECHO ONE OR MORE CHARACTERS«, t00=0x0011, t01=0x0174}
0x1c2a…1c60 Head {h00=0x0032, h01=0x0050, text=»* CORRESPONDING TO ONE CHARACTER «, t00=0x0012, t01=0x0016}
0x1c60…1c98 Head {h00=0x0034, h01=0x0050, text=»* TO BE STORED IN INPUT ECB-BUFFER «, t00=0x0012, t01=0x004c}
0x1c98…1ca2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0084}
0x1ca2…1cac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x008e}
0x1cac…1ce4 Head {h00=0x0034, h01=0x0050, text=»* PART ONE FOLLOWS AND PART TWO CAN BE FOUND «, t00=0x0012, t01=0x0098}
0x1ce4…1d1c Head {h00=0x0034, h01=0x0050, text=»* IN THE DRIVER MODULE CORRESPONDING TO ECHO «, t00=0x0012, t01=0x00d0}
0x1d1c…1d36 Head {h00=0x0016, h01=0x0050, text=»* OUTPUT DEVICE«, t00=0x0012, t01=0x0108}
0x1d36…1d40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0122}
0x1d40…1d7a Head {h00=0x0036, h01=0x0050, text=»* RESTRICTIONS IN DEVICE DEPENDENT ECHO DRIVER «, t00=0x0012, t01=0x012c}
0x1d7a…1d84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0166}
0x1d84…1daa Head {h00=0x0022, h01=0x0050, text=»* A7 MUST NOT BE DESTROYED «, t00=0x0012, t01=0x0170}
0x1daa…1de4 Head {h00=0x0036, h01=0x0050, text=»* THE ECHO-ROUTINE SHOULD BE TERMINATED WITH A «, t00=0x0013, t01=0x0008}
0x1de4…1e02 Head {h00=0x001a, h01=0x0050, text=»* JUMP TO 'ECHRTN'.«, t00=0x0013, t01=0x0042}
0x1e02…1e0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0060}
0x1e0c…1e20 Head {h00=0x0010, h01=0x0050, text=»ECHEND EQU *«, t00=0x0013, t01=0x006a}
0x1e20…1e2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x007e}
0x1e2a…1e3e Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0013, t01=0x0088}
0x1e3e…1e48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x009c}
0x1e48…1e70 Head {h00=0x0024, h01=0x0050, text=» LDKL A7,/8000 INDICATE END I/O «, t00=0x0013, t01=0x00a6}
0x1e70…1e7c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x00ce}
0x1e7c…1e8e Head {h00=0x000e, h01=0x0050, text=»ECHO EQU *«, t00=0x0013, t01=0x00da}
0x1e8e…1ea2 Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0013, t01=0x00ec}
0x1ea2…1ecc Head {h00=0x0026, h01=0x0050, text=» ST A3,DWTA3,A6 SAVE A3-A5 IN DWT «, t00=0x0013, t01=0x0100}
0x1ecc…1ee4 Head {h00=0x0014, h01=0x0050, text=» ST A4,DWTA4,A6 «, t00=0x0013, t01=0x012a}
0x1ee4…1efc Head {h00=0x0014, h01=0x0050, text=» ST A5,DWTA5,A6 «, t00=0x0013, t01=0x0142}
0x1efc…1f1a Head {h00=0x001a, h01=0x0050, text=» LD A1,DWTST,A6 STATUS«, t00=0x0013, t01=0x015a}
0x1f1a…1f2c Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x0013, t01=0x0178}
0x1f2c…1f54 Head {h00=0x0024, h01=0x0050, text=» RF(NN) RETUR NO ECHO REQUESTED «, t00=0x0013, t01=0x018a}
0x1f54…1f88 Head {h00=0x0030, h01=0x0050, text=» LDR A4,A6 SAVE DWT-ADDRESS OF INPUT DEVICE «, t00=0x0014, t01=0x0022}
0x1f88…1fbe Head {h00=0x0032, h01=0x0050, text=» LD A6,DWTECH,A6 DWT-ADDRESS OF OUTPUT DEVICE «, t00=0x0014, t01=0x0056}
0x1fbe…1ff8 Head {h00=0x0036, h01=0x0050, text=» ST A4,DWTWAT,A6 SAVE DWT-ADDRESS OF INPUT DEVICE «, t00=0x0014, t01=0x008c}
0x1ff8…2010 Head {h00=0x0014, h01=0x0050, text=» LDKL A5,DWTSB2 «, t00=0x0014, t01=0x00c6}
0x2010…203a Head {h00=0x0026, h01=0x0050, text=» ADR A5,A6 STACKBASE-ADDRESS IN A5«, t00=0x0014, t01=0x00de}
0x203a…206c Head {h00=0x002e, h01=0x0050, text=» LD A1,DWTADR,A6 ADDRESS TO ADDRESS-BLOCK «, t00=0x0014, t01=0x0108}
0x206c…20a6 Head {h00=0x0036, h01=0x0050, text=» ABI ECHADR,A1 GO TO ECHO-ROUTINE DEVICE-DEPENDENT«, t00=0x0014, t01=0x013a}
0x20a6…20b2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x0174}
0x20b2…20c6 Head {h00=0x0010, h01=0x0050, text=»ECHRTN EQU *«, t00=0x0014, t01=0x0180}
0x20c6…20da (21, 2, 266) Head {h00=0x0010, h01=0x0050, text=» IFT CECHO=1«, t00=0x0015, t01=0x0004}
0x20da…20f2 Head {h00=0x0014, h01=0x0050, text=» LDR A7,A7 END? «, t00=0x0015, t01=0x0018}
0x20f2…210c Head {h00=0x0016, h01=0x0050, text=» RF(NN) ERETUR NO «, t00=0x0015, t01=0x0030}
0x210c…2138 Head {h00=0x0028, h01=0x0050, text=» CF A15,TENDIO END I/O OUTPUT DEVICE«, t00=0x0015, t01=0x004a}
0x2138…217a Head {h00=0x003e, h01=0x0050, text=»ERETUR LD A6,DWTWAT,A6 RELOAD DWT-ADDRESS OF INPUT DEVICE «, t00=0x0015, t01=0x0076}
0x217a…21b2 Head {h00=0x0034, h01=0x0050, text=»RETUR ABL LDREGF RELOAD A3-A5 AND RETURN VIA A5 «, t00=0x0015, t01=0x00b8}
0x21b2…21bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00f0}
0x21bc…21c8 Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0015, t01=0x00fa}
0x21c8…21cc Head {h00=0x4004, h01=0x0000}
0x21cc…21d0 00 15 01 06 ┆ ┆
0x21d0…21d8 (22, 1, 8) 20 04 00 00 00 16 00 04 ┆ ┆
0x21d8…2228 (23, 0, 400) 53 54 41 52 54 20 4f 46 20 42 4c 4f 43 4b 00 76 01 7a 00 28 00 50 5c 41 44 4b 5c 41 34 2c 32 5c 53 4b 49 50 20 46 49 52 53 54 20 57 4f 52 44 20 4f 46 20 42 55 46 46 45 52 20 00 77 00 16 00 26 00 50 5c 4c 44 4b 5c 41 33 2c 30 5c 52 45 53 45 ┆START OF BLOCK v z ( P ADK A4,2 SKIP FIRST WORD OF BUFFER w & P LDK A3,0 RESE┆
0x2228…2278 54 20 43 48 41 52 41 43 54 45 52 20 43 4f 55 4e 54 45 52 20 00 77 00 42 00 20 00 50 5c 4c 44 5c 41 31 2c 46 42 41 58 5c 47 45 54 20 42 55 46 46 45 52 20 49 4e 44 45 58 00 77 00 6c 00 22 00 50 5c 52 46 28 4e 5a 29 5c 54 52 54 31 30 30 5c 4e ┆T CHARACTER COUNTER w B P LD A1,FBAX GET BUFFER INDEX w l " P RF(NZ) TRT100 N┆
0x2278…22c8 4f 54 20 46 49 52 53 54 20 42 4c 4f 43 4b 00 77 00 90 00 1c 00 50 5c 4c 43 5c 41 32 2c 44 57 31 35 30 30 2b 31 5c 47 45 54 20 54 43 41 20 00 77 00 b6 00 1a 00 50 5c 43 46 5c 41 35 2c 57 52 49 54 45 50 5c 53 45 4e 44 20 54 43 41 00 77 00 d6 ┆OT FIRST BLOCK w P LC A2,DW1500+1 GET TCA w P CF A5,WRITEP SEND TCA w ┆
0x22c8…2318 00 18 00 50 5c 4c 44 52 2a 5c 41 32 2c 41 36 5c 47 45 54 20 53 54 41 20 00 77 00 f4 00 1a 00 50 5c 43 46 5c 41 35 2c 57 52 49 54 45 50 5c 53 45 4e 44 20 53 54 41 00 77 01 10 00 12 00 50 5c 49 46 54 5c 49 42 4d 43 48 52 3d 31 20 00 77 01 2e ┆ P LDR* A2,A6 GET STA w P CF A5,WRITEP SEND STA w P IFT IBMCHR=1 w .┆
0x2318…2368 00 10 00 50 5c 49 46 46 5c 52 43 4f 4d 3d 31 20 00 77 01 44 00 22 00 50 5c 4c 44 4b 5c 41 32 2c 2f 32 37 5c 53 45 4e 44 20 45 4e 54 45 52 20 41 53 20 41 49 44 20 00 77 01 58 00 12 00 50 5c 43 46 5c 41 35 2c 57 52 49 54 45 50 20 00 77 01 7e ┆ P IFF RCOM=1 w D " P LDK A2,/27 SEND ENTER AS AID w X P CF A5,WRITEP w ~┆
0x2368…23b8 (24, 0, 400) 00 22 00 50 5c 4c 44 4b 5c 41 32 2c 2f 32 30 5c 41 4e 44 20 43 55 52 53 4f 52 20 41 44 44 52 45 53 53 00 78 00 04 00 12 00 50 5c 43 46 5c 41 35 2c 57 52 49 54 45 50 20 00 78 00 2a 00 10 00 50 5c 4c 44 4b 5c 41 32 2c 2f 32 30 20 00 78 00 40 ┆ " P LDK A2,/20 AND CURSOR ADDRESS x P CF A5,WRITEP x * P LDK A2,/20 x @┆
0x23b8…2408 00 12 00 50 5c 43 46 5c 41 35 2c 57 52 49 54 45 50 20 00 78 00 54 00 08 00 50 5c 58 49 46 00 78 00 6a 00 10 00 50 5c 49 46 54 5c 52 43 4f 4d 3d 31 20 00 78 00 76 00 04 00 50 00 78 00 8a 00 26 00 50 5c 4c 44 5c 41 31 2c 58 52 42 5c 52 45 41 ┆ P CF A5,WRITEP x T P XIF x j P IFT RCOM=1 x v P x & P LD A1,XRB REA┆
0x2408…2458 44 20 42 55 46 46 45 52 20 43 4f 4d 4d 41 4e 44 20 3f 3f 3f 00 78 00 92 00 16 00 50 5c 52 46 28 5a 29 5c 54 52 54 30 37 30 5c 4e 4f 21 21 00 78 00 bc 00 04 00 50 00 78 00 d6 00 1c 00 50 5c 5c 5c 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆D BUFFER COMMAND ??? x P RF(Z) TRT070 NO!! x P x P ***************┆
0x2458…24a8 2a 2a 2a 2a 2a 20 00 78 00 de 00 22 00 50 5c 4c 44 4b 5c 41 32 2c 58 27 32 44 27 5c 41 49 44 20 46 4f 52 20 44 49 53 50 4c 41 59 20 00 78 00 fe 00 20 00 50 54 52 54 30 36 30 5c 43 46 5c 41 35 2c 57 52 49 54 45 50 5c 53 45 4e 44 20 41 49 44 ┆***** x " P LDK A2,X'2D' AID FOR DISPLAY x PTRT060 CF A5,WRITEP SEND AID┆
0x24a8…24f8 00 78 01 24 00 04 00 50 00 78 01 48 00 24 00 50 5c 4c 44 2a 5c 41 33 2c 44 57 54 43 55 52 2c 41 36 5c 43 55 52 53 4f 52 20 41 44 44 52 45 53 53 00 78 01 50 00 2e 00 50 5c 43 46 5c 41 35 2c 4c 49 4e 43 4f 4c 5c 53 45 4e 44 20 4c 49 4e 45 20 ┆ x $ P x H $ P LD* A3,DWTCUR,A6 CURSOR ADDRESS x P . P CF A5,LINCOL SEND LINE ┆
0x24f8…2548 (25, 0, 400) 41 4e 44 20 43 4f 4c 55 4d 4e 20 4e 55 4d 42 45 52 20 00 78 01 78 00 1e 00 50 5c 4c 44 4b 5c 41 33 2c 35 5c 53 45 54 20 42 4c 4f 43 4b 20 43 4f 55 4e 54 20 00 79 00 1a 00 0e 00 50 5c 52 46 5c 54 52 54 31 30 30 00 79 00 3c 00 10 00 50 54 52 ┆AND COLUMN NUMBER x x P LDK A3,5 SET BLOCK COUNT y P RF TRT100 y < PTR┆
0x2548…2598 54 30 37 30 5c 45 51 55 5c 2a 00 79 00 4e 00 08 00 50 5c 58 49 46 00 79 00 62 00 04 00 50 00 79 00 6e 00 0e 00 50 5c 4c 44 4b 5c 41 33 2c 32 20 00 79 00 76 00 10 00 50 54 52 54 31 30 30 5c 45 51 55 5c 2a 00 79 00 88 00 12 00 50 5c 49 46 54 ┆T070 EQU * y N P XIF y b P y n P LDK A3,2 y v PTRT100 EQU * y P IFT┆
0x2598…25e8 5c 54 50 4d 4f 44 45 3d 31 20 00 79 00 9c 00 1c 00 50 5c 49 4d 5c 54 50 4d 5c 54 52 41 4e 53 50 41 52 45 4e 54 20 54 45 58 54 00 79 00 b2 00 10 00 50 54 52 54 31 30 35 5c 45 51 55 5c 2a 00 79 00 d2 00 08 00 50 5c 58 49 46 00 79 00 e6 00 20 ┆ TPMODE=1 y P IM TPM TRANSPARENT TEXT y PTRT105 EQU * y P XIF y ┆
0x25e8…2638 00 50 5c 4c 43 52 5c 41 32 2c 41 34 5c 47 45 54 20 4f 4e 45 20 43 48 41 52 41 43 54 45 52 00 79 00 f2 00 20 00 50 5c 41 44 4b 5c 41 34 2c 31 5c 49 4e 43 52 45 4d 45 4e 54 20 50 4f 49 4e 54 45 52 20 00 79 01 16 00 10 00 50 5c 41 4e 4b 5c 41 ┆ P LCR A2,A4 GET ONE CHARACTER y P ADK A4,1 INCREMENT POINTER y P ANK A┆
0x2638…2688 32 2c 2f 37 46 20 00 79 01 3a 00 10 00 50 5c 49 46 54 5c 52 43 4f 4d 3d 31 20 00 79 01 4e 00 26 00 50 5c 4c 44 5c 41 31 2c 58 52 42 5c 52 45 41 44 20 42 55 46 46 45 52 20 43 4f 4d 4d 41 4e 44 20 3f 3f 3f 00 79 01 62 00 16 00 50 5c 52 46 28 ┆2,/7F y : P IFT RCOM=1 y N & P LD A1,XRB READ BUFFER COMMAND ??? y b P RF(┆
0x2688…26d8 (26, 0, 398) 5a 29 5c 54 52 54 31 30 35 5c 4e 4f 21 21 00 79 01 8c 00 04 00 50 00 7a 00 16 00 40 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆Z) TRT105 NO!! y P z @ P**************************************************┆
0x26d8…2728 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 7a 00 1e 00 06 00 50 2a 20 00 7a 00 62 00 2c 00 50 2a 20 20 20 43 48 45 43 4b 20 49 46 20 41 54 54 52 49 42 55 54 45 20 43 48 41 52 41 43 54 45 52 20 4f 52 20 4e 55 4c 4c 00 7a 00 6c 00 06 00 50 2a 20 00 7a ┆********** z P* z b , P* CHECK IF ATTRIBUTE CHARACTER OR NULL z l P* z┆
0x2728…2778 00 9c 00 34 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 7a 00 a6 00 04 00 50 00 7a 00 de 00 26 00 50 5c 43 57 4b 5c 41 32 2c 58 27 ┆ 4 P*********************************************** z P z & P CWK A2,X'┆
0x2778…27c8 32 30 27 5c 41 54 54 52 49 42 55 54 45 20 43 48 41 52 41 43 54 45 52 20 00 7a 00 e6 00 18 00 50 5c 52 46 28 4c 29 5c 54 52 54 31 30 31 5c 59 45 53 21 21 21 00 7a 01 10 00 08 00 50 5c 58 49 46 00 7a 01 2c 00 10 00 50 5c 49 46 54 5c 44 4d 52 ┆20' ATTRIBUTE CHARACTER z P RF(L) TRT101 YES!!! z P XIF z , P IFT DMR┆
0x27c8…2816 4b 3d 31 20 00 7a 01 38 00 1c 00 50 5c 43 57 4b 5c 41 32 2c 2f 37 45 5c 4c 49 4e 45 20 46 45 45 44 20 3f 20 00 7a 01 4c 00 22 00 50 5c 52 46 28 4e 45 29 5c 54 52 54 31 30 32 5c 4e 4f 2c 47 4f 20 54 4f 20 54 52 54 31 30 32 00 7a 01 6c ┆K=1 z 8 P CWK A2,/7E LINE FEED ? z L " P RF(NE) TRT102 NO,GO TO TRT102 z l┆
0x2816…2866 (27, 0, 400) 00 10 00 50 5c 4c 44 4b 5c 41 32 2c 2f 30 41 20 00 7b 00 04 00 10 00 50 54 52 54 31 30 32 5c 45 51 55 5c 2a 00 7b 00 18 00 20 00 50 5c 43 57 4b 5c 41 32 2c 2f 37 44 5c 45 4e 44 20 4f 46 20 4d 45 53 53 41 47 45 20 3f 00 7b 00 2c 00 22 00 50 ┆ P LDK A2,/0A { PTRT102 EQU * { P CWK A2,/7D END OF MESSAGE ? { , " P┆
0x2866…28b6 5c 52 46 28 4e 45 29 5c 54 52 54 31 30 33 5c 4e 4f 2c 47 4f 20 54 4f 20 54 52 54 31 30 33 00 7b 00 50 00 10 00 50 5c 4c 44 4b 5c 41 32 2c 2f 31 39 20 00 7b 00 76 00 10 00 50 54 52 54 31 30 33 5c 45 51 55 5c 2a 00 7b 00 8a 00 1a 00 50 5c 43 ┆ RF(NE) TRT103 NO,GO TO TRT103 { P P LDK A2,/19 { v PTRT103 EQU * { P C┆
0x28b6…2906 57 4b 5c 41 32 2c 58 27 37 46 27 5c 4e 55 4c 4c 20 3f 3f 20 00 7b 00 9e 00 12 00 50 5c 52 46 28 4e 45 29 5c 54 52 54 31 30 35 00 7b 00 bc 00 0e 00 50 5c 53 55 4b 5c 41 32 2c 31 20 00 7b 00 d2 00 08 00 50 5c 58 49 46 00 7b 00 e4 00 10 00 50 ┆WK A2,X'7F' NULL ?? { P RF(NE) TRT105 { P SUK A2,1 { P XIF { P┆
0x2906…2956 5c 49 46 54 5c 52 43 4f 4d 3d 31 20 00 7b 00 f0 00 0e 00 50 5c 52 46 5c 54 52 54 31 30 35 00 7b 01 04 00 04 00 50 00 7b 01 16 00 10 00 50 54 52 54 31 30 31 5c 45 51 55 5c 2a 00 7b 01 1e 00 04 00 50 00 7b 01 32 00 0e 00 50 5c 4c 44 4b 5c 41 ┆ IFT RCOM=1 { P RF TRT105 { P { PTRT101 EQU * { P { 2 P LDK A┆
0x2956…29a6 32 2c 53 46 00 7b 01 3a 00 22 00 50 5c 43 46 5c 41 35 2c 57 52 49 54 45 50 5c 53 45 4e 44 20 53 54 41 52 54 20 46 49 45 4c 44 00 7b 01 4c 00 04 00 50 00 7b 01 72 00 28 00 50 5c 4c 43 5c 41 32 2c 2d 31 2c 41 34 5c 47 45 54 20 41 54 54 52 49 ┆2,SF { : " P CF A5,WRITEP SEND START FIELD { L P { r ( P LC A2,-1,A4 GET ATTRI┆
0x29a6…29f6 (28, 0, 400) 42 55 54 45 20 43 48 41 52 41 43 54 45 52 00 7b 01 7a 00 12 00 50 5c 41 4e 4b 5c 41 32 2c 58 27 37 46 27 20 00 7c 00 16 00 28 00 50 5c 4c 44 52 5c 41 31 2c 41 32 5c 43 4f 4e 56 45 52 54 20 54 4f 20 49 42 4d 20 41 54 54 52 49 42 55 54 45 20 ┆BUTE CHARACTER { z P ANK A2,X'7F' | ( P LDR A1,A2 CONVERT TO IBM ATTRIBUTE ┆
0x29f6…2a46 00 7c 00 2c 00 0e 00 50 5c 41 4e 4b 5c 41 31 2c 31 20 00 7c 00 58 00 14 00 50 5c 41 4e 4b 5c 41 32 2c 2f 31 45 5c 4d 41 53 4b 00 7c 00 6a 00 0e 00 50 5c 53 4c 4c 5c 41 32 2c 31 20 00 7c 00 82 00 26 00 50 5c 4f 52 52 5c 41 32 2c 41 31 5c 49 ┆ | , P ANK A1,1 | X P ANK A2,/1E MASK | j P SLL A2,1 | & P ORR A2,A1 I┆
0x2a46…2a96 42 4d 20 41 54 54 52 49 42 55 54 45 20 43 4f 4d 50 4f 53 45 44 20 00 7c 00 94 00 22 00 50 5c 4f 52 4b 5c 41 32 2c 2f 34 30 5c 42 49 54 20 41 4c 57 41 59 53 20 53 45 54 20 4f 4e 45 00 7c 00 be 00 14 00 50 5c 4c 43 5c 41 32 2c 54 41 53 43 49 ┆BM ATTRIBUTE COMPOSED | " P ORK A2,/40 BIT ALWAYS SET ONE | P LC A2,TASCI┆
0x2a96…2ae6 49 2c 41 32 00 7c 00 e4 00 26 00 50 5c 43 57 4b 5c 41 32 2c 2f 31 38 5c 43 48 45 43 4b 20 53 50 45 43 49 41 4c 20 41 54 54 52 49 42 55 54 00 7c 00 fc 00 12 00 50 5c 52 46 28 4e 45 29 5c 54 52 54 31 30 34 00 7c 01 26 00 10 00 50 5c 4c 44 4b ┆I,A2 | & P CWK A2,/18 CHECK SPECIAL ATTRIBUT | P RF(NE) TRT104 | & P LDK┆
0x2ae6…2b36 5c 41 32 2c 2f 33 30 20 00 7c 01 3c 00 10 00 50 54 52 54 31 30 34 5c 45 51 55 5c 2a 00 7c 01 50 00 20 00 50 5c 43 46 5c 41 35 2c 57 52 49 54 45 50 5c 53 45 4e 44 20 41 54 54 52 49 42 55 54 45 00 7c 01 64 00 0e 00 50 5c 41 44 4b 5c 41 33 2c ┆ A2,/30 | < PTRT104 EQU * | P P CF A5,WRITEP SEND ATTRIBUTE | d P ADK A3,┆