|
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: 4148 (0x1034)
Notes: pts_type(SC)
Names: »SHIFT.SC«
└─⟦2a21e4bb5⟧ Bits:30009691 Philips computer tape "600408"
└─⟦this⟧ »BDKAPP/SHIFT.SC«
└─⟦71472ef1e⟧ Bits:30009661 Philips computer tape "600103"
└─⟦this⟧ »BDKAPP/SHIFT.SC«
IDENT SHIFT REL=7.2 DATE=77-09-09 UPDATE #0 77-09-09 * ******************************************* * * PHILIPS TERMINAL SYSTEM PTS * * SHIFT = SHIFT LEFT/RIGHT * * * LEVEL #2 77-09-09 * * RELEASE #7 77-09-09 * ******************************************* * * * THIS MODULE CONTAINS SUBROUTINES TO HANDLE * SHIFTING OF ELEMENT LEFT OR RIGHT A * SPECIFIED NUMBER OF 4 BIT STEPS: * CF A14,LABEL * BYTE ELEMENT,STEPS * * ENTRY T:SHL ENTRY T:SHR ENTRY M:SHL,M:SHR * EXTRN T:OPA EXTRN M:OPA EXTRN RETMMM * OVERLY EQU 0 * EJECT * *************** * SHIFT LEFT * *************** * M:SHL EQU * IFT OVERLY=1 LDK A1,/80 XRS A1,2,A14 XIF T:SHL SUR A8,A8 RF SH10 * *************** * SHIFT RIGHT * *************** * M:SHR EQU * IFT OVERLY=1 LDK A1,/80 XRS A1,2,A14 XIF T:SHR LDKL A8,/F0 SH10 LD* A7,4,A14 GET ARGUMENT ECR A7,A7 CHANGE BYTES IFT OVERLY=0 CF A14,T:OPA GET ELEMENT PARAMETERS XIF IFT OVERLY=1 CF A14,M:OPA GET ELEMENT PARAMETERS XIF LDR A5,A1 COPY LENGTH 2-COMPL. LCR A3,A6 GET SIGN BYTE LDR A9,A3 COPY TO A9 ANK A3,/F MASK SIGN ANKL A9,/F0 MASK DIGIT STR A3,A14 SAVE SIGN SCR A9,A6 RESTORE DIGIT LDR A9,A6 SAVE SIGN BYTE ADDRESS ECR A7,A7 CHANGE BYTES ANK A7,/FF MASK STEPS RF(Z) SH60 NO STEPS LDR A8,A8 RF(NZ) SH30 SHIFT RIGHT SUR A4,A4 A4:=0 * SH20 LCR A2,A6 GET BYTE ANK A2,/FF MASK BYTE LDR A3,A2 COPY TO A3 SRL A3,4 SHIFT A3 4 BITS RIGHT SLL A2,4 SHIFT A2 4 BITS LEFT ORR A2,A4 CREATE SHIFTED BYTE SCR A2,A6 STORE BYTE SUK A6,1 GET ADR OF NEXT BYTE LDR A4,A3 SAVE SHIFTED BCD ADK A1,1 DECREMENT BYTE COUNTER RF(Z) SH50 RB SH20 * SH30 ADR A6,A1 GET ADR OF ADK A6,1 - LEFTMOST BYTE LDR A4,A8 A8:=F0 * SH40 LCR A2,A6 GET BYTE ANK A2,/FF MASK BYTE LDR A3,A2 COPY TO A3 SLL A3,4 SHIFT A3 4 BITS LEFT SRL A2,4 SHIFT A2 4 BITS RIGHT ORR A2,A4 CREATE SHIFTED BYTE SCR A2,A6 STORE BYTE ADK A6,1 GET ADR OF NEXT BYTE LDR A4,A3 SAVE SHIFTED BCD ADK A1,1 DECREMENT BYTE COUNTER RF(Z) SH50 RB SH40 * SH50 SUK A7,1 DECREMENT STEP COUNTER RF(Z) SH60 FINISHED LDR A1,A5 RESET BYTE COUNTER LDR A6,A9 RESTORE ADR LDR A8,A8 RB(NZ) SH30 SHIFT RIGHT RB SH20-2 * SH60 LDR* A7,A14 GET SIGN LCR A2,A9 GET SIGN BYTE ANK A2,/F0 SAVE DIGIT ORR A2,A7 INSERT SIGN SCR A2,A9 STORE SIGN LDK A1,2 ADS A1,4,A14 MODIFY RETURN ADDRESS ABL RETMMM * END
0x0000…002e (0, 0, 398) Head {h00=0x002a, h01=0x0050, text=» IDENT SHIFT REL=7.2 DATE=77-09-09 «, t00=0x0000, t01=0x0004}
0x002e…0050 Head {h00=0x001e, h01=0x0050, text=» UPDATE #0 77-09-09 «, t00=0x0000, t01=0x0032}
0x0050…005a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0054}
0x005a…008e Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0000, t01=0x005e}
0x008e…0098 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0092}
0x0098…00c0 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x009c}
0x00c0…00ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00c4}
0x00ca…00ee Head {h00=0x0020, h01=0x0050, text=»* SHIFT = SHIFT LEFT/RIGHT«, t00=0x0000, t01=0x00ce}
0x00ee…00f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f2}
0x00f8…0102 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00fc}
0x0102…0124 Head {h00=0x001e, h01=0x0050, text=»* LEVEL #2 77-09-09«, t00=0x0000, t01=0x0106}
0x0124…012e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0128}
0x012e…0150 Head {h00=0x001e, h01=0x0050, text=»* RELEASE #7 77-09-09«, t00=0x0000, t01=0x0132}
0x0150…015a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0154}
0x015a…018e Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0000, t01=0x015e}
0x018e…0198 (1, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0004}
0x0198…01a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x000e}
0x01a2…01d6 Head {h00=0x0030, h01=0x0050, text=»* THIS MODULE CONTAINS SUBROUTINES TO HANDLE«, t00=0x0001, t01=0x0018}
0x01d6…0204 Head {h00=0x002a, h01=0x0050, text=»* SHIFTING OF ELEMENT LEFT OR RIGHT A «, t00=0x0001, t01=0x004c}
0x0204…022e Head {h00=0x0026, h01=0x0050, text=»* SPECIFIED NUMBER OF 4 BIT STEPS:«, t00=0x0001, t01=0x007a}
0x022e…0244 Head {h00=0x0012, h01=0x0050, text=»* CF A14,LABEL«, t00=0x0001, t01=0x00a4}
0x0244…0260 Head {h00=0x0018, h01=0x0050, text=»* BYTE ELEMENT,STEPS«, t00=0x0001, t01=0x00ba}
0x0260…026a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00d6}
0x026a…0274 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00e0}
0x0274…0288 Head {h00=0x0010, h01=0x0050, text=» ENTRY T:SHL«, t00=0x0001, t01=0x00ea}
0x0288…029c Head {h00=0x0010, h01=0x0050, text=» ENTRY T:SHR«, t00=0x0001, t01=0x00fe}
0x029c…02b6 Head {h00=0x0016, h01=0x0050, text=» ENTRY M:SHL,M:SHR«, t00=0x0001, t01=0x0112}
0x02b6…02c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x012c}
0x02c0…02d4 Head {h00=0x0010, h01=0x0050, text=» EXTRN T:OPA«, t00=0x0001, t01=0x0136}
0x02d4…02e8 Head {h00=0x0010, h01=0x0050, text=» EXTRN M:OPA«, t00=0x0001, t01=0x014a}
0x02e8…02fe Head {h00=0x0012, h01=0x0050, text=» EXTRN RETMMM «, t00=0x0001, t01=0x015e}
0x02fe…0308 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0174}
0x0308…031e Head {h00=0x0012, h01=0x0050, text=»OVERLY EQU 0 «, t00=0x0001, t01=0x017e}
0x031e…0328 (2, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0004}
0x0328…0336 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x000e}
0x0336…0340 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x001c}
0x0340…0358 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0002, t01=0x0026}
0x0358…0370 Head {h00=0x0014, h01=0x0050, text=»* SHIFT LEFT * «, t00=0x0002, t01=0x003e}
0x0370…0388 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0002, t01=0x0056}
0x0388…0392 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x006e}
0x0392…03a6 Head {h00=0x0010, h01=0x0050, text=»M:SHL EQU * «, t00=0x0002, t01=0x0078}
0x03a6…03bc Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=1 «, t00=0x0002, t01=0x008c}
0x03bc…03d0 Head {h00=0x0010, h01=0x0050, text=» LDK A1,/80 «, t00=0x0002, t01=0x00a2}
0x03d0…03e6 Head {h00=0x0012, h01=0x0050, text=» XRS A1,2,A14 «, t00=0x0002, t01=0x00b6}
0x03e6…03f2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0002, t01=0x00cc}
0x03f2…040a Head {h00=0x0014, h01=0x0050, text=»T:SHL SUR A8,A8 «, t00=0x0002, t01=0x00d8}
0x040a…041a Head {h00=0x000c, h01=0x0050, text=» RF SH10«, t00=0x0002, t01=0x00f0}
0x041a…0424 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0100}
0x0424…043c Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0002, t01=0x010a}
0x043c…0454 Head {h00=0x0014, h01=0x0050, text=»* SHIFT RIGHT * «, t00=0x0002, t01=0x0122}
0x0454…046c Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0002, t01=0x013a}
0x046c…0476 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0152}
0x0476…048a Head {h00=0x0010, h01=0x0050, text=»M:SHR EQU * «, t00=0x0002, t01=0x015c}
0x048a…04a0 Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=1 «, t00=0x0002, t01=0x0170}
0x04a0…04b4 Head {h00=0x0010, h01=0x0050, text=» LDK A1,/80 «, t00=0x0002, t01=0x0186}
0x04b4…04ca Head {h00=0x0012, h01=0x0050, text=» XRS A1,2,A14 «, t00=0x0003, t01=0x000a}
0x04ca…04d6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0003, t01=0x0020}
0x04d6…04f0 Head {h00=0x0016, h01=0x0050, text=»T:SHR LDKL A8,/F0 «, t00=0x0003, t01=0x002c}
0x04f0…0516 Head {h00=0x0022, h01=0x0050, text=»SH10 LD* A7,4,A14 GET ARGUMENT«, t00=0x0003, t01=0x0046}
0x0516…0536 Head {h00=0x001c, h01=0x0050, text=» ECR A7,A7 CHANGE BYTES «, t00=0x0003, t01=0x006c}
0x0536…054c Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=0 «, t00=0x0003, t01=0x008c}
0x054c…0578 Head {h00=0x0028, h01=0x0050, text=» CF A14,T:OPA GET ELEMENT PARAMETERS«, t00=0x0003, t01=0x00a2}
0x0578…0584 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0003, t01=0x00ce}
0x0584…059a Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=1 «, t00=0x0003, t01=0x00da}
0x059a…05c6 Head {h00=0x0028, h01=0x0050, text=» CF A14,M:OPA GET ELEMENT PARAMETERS«, t00=0x0003, t01=0x00f0}
0x05c6…05d2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0003, t01=0x011c}
0x05d2…05fa Head {h00=0x0024, h01=0x0050, text=» LDR A5,A1 COPY LENGTH 2-COMPL. «, t00=0x0003, t01=0x0128}
0x05fa…061a Head {h00=0x001c, h01=0x0050, text=» LCR A3,A6 GET SIGN BYTE«, t00=0x0003, t01=0x0150}
0x061a…0638 Head {h00=0x001a, h01=0x0050, text=» LDR A9,A3 COPY TO A9 «, t00=0x0003, t01=0x0170}
0x0638…0654 Head {h00=0x0018, h01=0x0050, text=» ANK A3,/F MASK SIGN«, t00=0x0003, t01=0x018e}
0x0654…0674 Head {h00=0x001c, h01=0x0050, text=» ANKL A9,/F0 MASK DIGIT «, t00=0x0004, t01=0x001a}
0x0674…0692 Head {h00=0x001a, h01=0x0050, text=» STR A3,A14 SAVE SIGN «, t00=0x0004, t01=0x003a}
0x0692…06b2 Head {h00=0x001c, h01=0x0050, text=» SCR A9,A6 RESTORE DIGIT«, t00=0x0004, t01=0x0058}
0x06b2…06dc Head {h00=0x0026, h01=0x0050, text=» LDR A9,A6 SAVE SIGN BYTE ADDRESS «, t00=0x0004, t01=0x0078}
0x06dc…06fc Head {h00=0x001c, h01=0x0050, text=» ECR A7,A7 CHANGE BYTES «, t00=0x0004, t01=0x00a2}
0x06fc…071a Head {h00=0x001a, h01=0x0050, text=» ANK A7,/FF MASK STEPS«, t00=0x0004, t01=0x00c2}
0x071a…0736 Head {h00=0x0018, h01=0x0050, text=» RF(Z) SH60 NO STEPS«, t00=0x0004, t01=0x00e0}
0x0736…0748 Head {h00=0x000e, h01=0x0050, text=» LDR A8,A8«, t00=0x0004, t01=0x00fc}
0x0748…0768 Head {h00=0x001c, h01=0x0050, text=» RF(NZ) SH30 SHIFT RIGHT«, t00=0x0004, t01=0x010e}
0x0768…0780 Head {h00=0x0014, h01=0x0050, text=» SUR A4,A4 A4:=0«, t00=0x0004, t01=0x012e}
0x0780…078a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0146}
0x078a…07aa Head {h00=0x001c, h01=0x0050, text=»SH20 LCR A2,A6 GET BYTE «, t00=0x0004, t01=0x0150}
0x07aa…07c8 Head {h00=0x001a, h01=0x0050, text=» ANK A2,/FF MASK BYTE «, t00=0x0004, t01=0x0170}
0x07c8…07e6 Head {h00=0x001a, h01=0x0050, text=» LDR A3,A2 COPY TO A3 «, t00=0x0004, t01=0x018e}
0x07e6…080e Head {h00=0x0024, h01=0x0050, text=» SRL A3,4 SHIFT A3 4 BITS RIGHT «, t00=0x0005, t01=0x001c}
0x080e…0834 Head {h00=0x0022, h01=0x0050, text=» SLL A2,4 SHIFT A2 4 BITS LEFT«, t00=0x0005, t01=0x0044}
0x0834…085a Head {h00=0x0022, h01=0x0050, text=» ORR A2,A4 CREATE SHIFTED BYTE«, t00=0x0005, t01=0x006a}
0x085a…0878 Head {h00=0x001a, h01=0x0050, text=» SCR A2,A6 STORE BYTE «, t00=0x0005, t01=0x0090}
0x0878…089e Head {h00=0x0022, h01=0x0050, text=» SUK A6,1 GET ADR OF NEXT BYTE«, t00=0x0005, t01=0x00ae}
0x089e…08c2 Head {h00=0x0020, h01=0x0050, text=» LDR A4,A3 SAVE SHIFTED BCD «, t00=0x0005, t01=0x00d4}
0x08c2…08ea Head {h00=0x0024, h01=0x0050, text=» ADK A1,1 DECREMENT BYTE COUNTER«, t00=0x0005, t01=0x00f8}
0x08ea…08fe Head {h00=0x0010, h01=0x0050, text=» RF(Z) SH50 «, t00=0x0005, t01=0x0120}
0x08fe…090e Head {h00=0x000c, h01=0x0050, text=» RB SH20«, t00=0x0005, t01=0x0134}
0x090e…0918 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0144}
0x0918…093a Head {h00=0x001e, h01=0x0050, text=»SH30 ADR A6,A1 GET ADR OF «, t00=0x0005, t01=0x014e}
0x093a…095c Head {h00=0x001e, h01=0x0050, text=» ADK A6,1 - LEFTMOST BYTE «, t00=0x0005, t01=0x0170}
0x095c…0976 (6, 0, 400) Head {h00=0x0016, h01=0x0050, text=» LDR A4,A8 A8:=F0 «, t00=0x0006, t01=0x0004}
0x0976…0980 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x001e}
0x0980…09a0 Head {h00=0x001c, h01=0x0050, text=»SH40 LCR A2,A6 GET BYTE «, t00=0x0006, t01=0x0028}
0x09a0…09be Head {h00=0x001a, h01=0x0050, text=» ANK A2,/FF MASK BYTE «, t00=0x0006, t01=0x0048}
0x09be…09dc Head {h00=0x001a, h01=0x0050, text=» LDR A3,A2 COPY TO A3 «, t00=0x0006, t01=0x0066}
0x09dc…0a02 Head {h00=0x0022, h01=0x0050, text=» SLL A3,4 SHIFT A3 4 BITS LEFT«, t00=0x0006, t01=0x0084}
0x0a02…0a2a Head {h00=0x0024, h01=0x0050, text=» SRL A2,4 SHIFT A2 4 BITS RIGHT «, t00=0x0006, t01=0x00aa}
0x0a2a…0a50 Head {h00=0x0022, h01=0x0050, text=» ORR A2,A4 CREATE SHIFTED BYTE«, t00=0x0006, t01=0x00d2}
0x0a50…0a6e Head {h00=0x001a, h01=0x0050, text=» SCR A2,A6 STORE BYTE «, t00=0x0006, t01=0x00f8}
0x0a6e…0a94 Head {h00=0x0022, h01=0x0050, text=» ADK A6,1 GET ADR OF NEXT BYTE«, t00=0x0006, t01=0x0116}
0x0a94…0ab8 Head {h00=0x0020, h01=0x0050, text=» LDR A4,A3 SAVE SHIFTED BCD «, t00=0x0006, t01=0x013c}
0x0ab8…0ae0 Head {h00=0x0024, h01=0x0050, text=» ADK A1,1 DECREMENT BYTE COUNTER«, t00=0x0006, t01=0x0160}
0x0ae0…0af4 Head {h00=0x0010, h01=0x0050, text=» RF(Z) SH50 «, t00=0x0006, t01=0x0188}
0x0af4…0b04 Head {h00=0x000c, h01=0x0050, text=» RB SH40«, t00=0x0007, t01=0x000c}
0x0b04…0b0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x001c}
0x0b0e…0b3a Head {h00=0x0028, h01=0x0050, text=»SH50 SUK A7,1 DECREMENT STEP COUNTER«, t00=0x0007, t01=0x0026}
0x0b3a…0b56 Head {h00=0x0018, h01=0x0050, text=» RF(Z) SH60 FINISHED«, t00=0x0007, t01=0x0052}
0x0b56…0b7c Head {h00=0x0022, h01=0x0050, text=» LDR A1,A5 RESET BYTE COUNTER «, t00=0x0007, t01=0x006e}
0x0b7c…0b9a Head {h00=0x001a, h01=0x0050, text=» LDR A6,A9 RESTORE ADR«, t00=0x0007, t01=0x0094}
0x0b9a…0bac Head {h00=0x000e, h01=0x0050, text=» LDR A8,A8«, t00=0x0007, t01=0x00b2}
0x0bac…0bcc Head {h00=0x001c, h01=0x0050, text=» RB(NZ) SH30 SHIFT RIGHT«, t00=0x0007, t01=0x00c4}
0x0bcc…0bde Head {h00=0x000e, h01=0x0050, text=» RB SH20-2«, t00=0x0007, t01=0x00e4}
0x0bde…0be8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00f6}
0x0be8…0c0a Head {h00=0x001e, h01=0x0050, text=»SH60 LDR* A7,A14 GET SIGN «, t00=0x0007, t01=0x0100}
0x0c0a…0c2a Head {h00=0x001c, h01=0x0050, text=» LCR A2,A9 GET SIGN BYTE«, t00=0x0007, t01=0x0122}
0x0c2a…0c48 Head {h00=0x001a, h01=0x0050, text=» ANK A2,/F0 SAVE DIGIT«, t00=0x0007, t01=0x0142}
0x0c48…0c66 Head {h00=0x001a, h01=0x0050, text=» ORR A2,A7 INSERT SIGN«, t00=0x0007, t01=0x0160}
0x0c66…0c84 Head {h00=0x001a, h01=0x0050, text=» SCR A2,A9 STORE SIGN «, t00=0x0007, t01=0x017e}
0x0c84…0c96 Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0008, t01=0x000c}
0x0c96…0cc2 Head {h00=0x0028, h01=0x0050, text=» ADS A1,4,A14 MODIFY RETURN ADDRESS «, t00=0x0008, t01=0x001e}
0x0cc2…0cd6 Head {h00=0x0010, h01=0x0050, text=» ABL RETMMM «, t00=0x0008, t01=0x004a}
0x0cd6…0ce0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x005e}
0x0ce0…0cec Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0008, t01=0x0068}
0x0cec…0cf4 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x0074}
0x0cf4…0cfc Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x007c}
0x0cfc…0d00 Head {h00=0x4004, h01=0x0000}
0x0d00…0d04 00 08 00 84 ┆ ┆
0x0d04…0d0c (9, 1, 8) 20 04 00 00 00 09 00 04 ┆ ┆
0x0d0c…0d14 (10, 1, 8) 20 04 00 00 00 02 00 04 ┆ ┆
0x0d14…0d64 (11, 0, 400) 20 4f 55 54 2e 20 46 4f 52 20 44 45 56 49 43 45 53 20 57 49 54 48 20 44 41 54 41 20 52 45 51 55 45 53 54 20 46 55 4e 43 54 49 4f 4e 20 41 20 54 49 4d 45 52 00 3a 01 8c 00 3a 00 50 2a 20 20 20 20 48 41 4e 44 4c 49 4e 47 20 41 4e 53 57 45 52 ┆ OUT. FOR DEVICES WITH DATA REQUEST FUNCTION A TIMER : : P* HANDLING ANSWER┆
0x0d64…0db4 53 20 46 52 4f 4d 20 44 45 56 49 43 45 20 49 53 20 41 46 46 45 43 54 45 44 20 41 4e 44 20 54 48 45 4e 00 3b 00 3c 00 3e 00 50 2a 20 20 20 20 49 46 20 44 52 49 20 41 20 42 52 41 4e 43 48 20 49 53 20 4d 41 44 45 20 54 4f 20 54 48 45 20 44 41 ┆S FROM DEVICE IS AFFECTED AND THEN ; < > P* IF DRI A BRANCH IS MADE TO THE DA┆
0x0db4…0e04 54 41 20 52 45 51 55 45 53 54 20 53 45 43 54 49 4f 4e 2e 20 00 3b 00 7a 00 2a 00 50 2a 20 20 20 20 49 46 20 41 43 4b 20 57 45 20 48 41 56 45 20 54 4f 20 57 41 49 54 20 46 4f 52 20 41 20 44 52 44 2e 00 3b 00 bc 00 10 00 50 43 4c 54 30 35 30 ┆TA REQUEST SECTION. ; z * P* IF ACK WE HAVE TO WAIT FOR A DRD. ; PCLT050┆
0x0e04…0e54 5c 45 51 55 5c 2a 00 3b 00 ea 00 26 00 50 5c 4c 43 5c 41 33 2c 43 57 54 4c 4f 57 2c 41 35 5c 4c 41 53 54 20 4f 55 54 50 55 54 20 57 4f 52 44 20 00 3b 00 fe 00 22 00 50 5c 41 4e 4b 5c 41 33 2c 2f 46 30 5c 4b 45 45 50 20 44 45 56 49 43 45 20 ┆ EQU * ; & P LC A3,CWTLOW,A5 LAST OUTPUT WORD ; " P ANK A3,/F0 KEEP DEVICE ┆
0x0e54…0ea4 4e 55 4d 42 45 52 00 3b 01 28 00 20 00 50 5c 43 46 5c 41 31 35 2c 51 55 45 55 45 5c 52 45 53 4f 4c 56 45 20 51 55 45 55 45 20 00 3b 01 4e 00 12 00 50 5c 4c 44 4b 4c 5c 41 34 2c 2f 45 46 46 46 00 3b 01 72 00 36 00 50 5c 41 4e 53 5c 41 34 2c ┆NUMBER ; ( P CF A15,QUEUE RESOLVE QUEUE ; N P LDKL A4,/EFFF ; r 6 P ANS A4,┆
0x0ea4…0ef4 (12, 0, 400) 44 57 54 53 54 2c 41 36 5c 52 45 53 45 54 20 52 45 43 4f 56 45 52 59 20 42 49 54 20 49 4e 20 53 54 41 54 55 53 20 57 4f 52 44 00 3b 01 88 00 0e 00 50 5c 4c 44 4b 5c 41 34 2c 32 20 00 3c 00 32 00 34 00 50 5c 4f 52 53 5c 41 34 2c 43 57 54 52 ┆DWTST,A6 RESET RECOVERY BIT IN STATUS WORD ; P LDK A4,2 < 2 4 P ORS A4,CWTR┆
0x0ef4…0f44 53 54 2c 41 35 5c 49 4e 44 49 43 41 54 45 20 41 43 4b 20 49 4e 20 43 48 41 4e 4e 45 4c 20 53 54 41 54 55 53 00 3c 00 44 00 18 00 50 5c 4c 44 52 5c 41 38 2c 41 33 5c 4f 42 43 2d 41 43 4b 20 3f 00 3c 00 7c 00 12 00 50 5c 52 46 28 4e 45 29 5c ┆ST,A5 INDICATE ACK IN CHANNEL STATUS < D P LDR A8,A3 OBC-ACK ? < | P RF(NE) ┆
0x0f44…0f94 43 4c 54 30 35 32 00 3c 00 98 00 12 00 50 5c 4c 44 4b 4c 5c 41 33 2c 2f 38 30 30 30 00 3c 00 ae 00 2a 00 50 5c 4f 52 53 5c 41 33 2c 4c 52 43 41 43 4b 2c 41 37 5c 49 4e 44 49 43 41 54 45 20 41 42 43 20 41 4c 4c 4f 57 45 44 00 3c 00 c4 00 0e ┆CLT052 < P LDKL A3,/8000 < * P ORS A3,LRCACK,A7 INDICATE ABC ALLOWED < ┆
0x0f94…0fe4 00 50 5c 52 46 5c 43 4c 54 30 35 35 00 3c 00 f2 00 10 00 50 43 4c 54 30 35 32 5c 45 51 55 5c 2a 00 3c 01 04 00 2e 00 50 5c 4c 44 52 2a 5c 41 33 2c 41 36 5c 44 45 56 49 43 45 20 57 49 54 48 4f 55 54 20 44 41 54 41 20 52 45 51 55 45 53 54 20 ┆ P RF CLT055 < PCLT052 EQU * < . P LDR* A3,A6 DEVICE WITHOUT DATA REQUEST ┆
0x0fe4…1034 3f 20 00 3c 01 18 00 12 00 50 5c 52 46 28 4e 4e 29 5c 43 4c 54 30 35 35 00 3c 01 4a 00 14 00 50 5c 43 57 5c 41 36 2c 4c 52 43 44 57 54 2c 41 37 00 3c 01 60 00 12 00 50 5c 52 46 28 4e 45 29 5c 43 4c 54 31 30 35 00 3c 01 78 00 0a 00 50 5c 45 ┆? < P RF(NN) CLT055 < J P CW A6,LRCDWT,A7 < ` P RF(NE) CLT105 < x P E┆