|
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: 4470 (0x1176)
Notes: pts_type(SC)
Names: »SHIFT.SC«
└─⟦efe3a1cfc⟧ Bits:30009667 Philips computer tape "600113"
└─⟦this⟧ »TOSSWORK/SHIFT.SC«
IDENT SHIFT REL 8.2 78-09-15 870172840820 * ******************************************* * * PHILIPS TERMINAL SYSTEM PTS * * SHIFT = SHIFT LEFT/RIGHT * * * * * * ******************************************* * * * 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…0034 (0, 0, 398) Head {h00=0x0030, h01=0x0050, text=» IDENT SHIFT REL 8.2 78-09-15 870172840820«, t00=0x0000, t01=0x0004}
0x0034…003c Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0038}
0x003c…0046 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0040}
0x0046…007a Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0000, t01=0x004a}
0x007a…0084 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x007e}
0x0084…00ac Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x0088}
0x00ac…00b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00b0}
0x00b6…00da Head {h00=0x0020, h01=0x0050, text=»* SHIFT = SHIFT LEFT/RIGHT«, t00=0x0000, t01=0x00ba}
0x00da…00e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00de}
0x00e4…00ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00e8}
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…010c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0106}
0x010c…0116 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0110}
0x0116…014a Head {h00=0x0030, h01=0x0050, text=»******************************************* «, t00=0x0000, t01=0x011a}
0x014a…0154 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x014e}
0x0154…015e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0158}
0x015e…0192 Head {h00=0x0030, h01=0x0050, text=»* THIS MODULE CONTAINS SUBROUTINES TO HANDLE«, t00=0x0000, t01=0x0162}
0x0192…01c0 Head {h00=0x002a, h01=0x0050, text=»* SHIFTING OF ELEMENT LEFT OR RIGHT A «, t00=0x0001, t01=0x0008}
0x01c0…01ea Head {h00=0x0026, h01=0x0050, text=»* SPECIFIED NUMBER OF 4 BIT STEPS:«, t00=0x0001, t01=0x0036}
0x01ea…0200 Head {h00=0x0012, h01=0x0050, text=»* CF A14,LABEL«, t00=0x0001, t01=0x0060}
0x0200…021c Head {h00=0x0018, h01=0x0050, text=»* BYTE ELEMENT,STEPS«, t00=0x0001, t01=0x0076}
0x021c…0226 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0092}
0x0226…0230 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x009c}
0x0230…0244 Head {h00=0x0010, h01=0x0050, text=» ENTRY T:SHL«, t00=0x0001, t01=0x00a6}
0x0244…0258 Head {h00=0x0010, h01=0x0050, text=» ENTRY T:SHR«, t00=0x0001, t01=0x00ba}
0x0258…0272 Head {h00=0x0016, h01=0x0050, text=» ENTRY M:SHL,M:SHR«, t00=0x0001, t01=0x00ce}
0x0272…027c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00e8}
0x027c…0290 Head {h00=0x0010, h01=0x0050, text=» EXTRN T:OPA«, t00=0x0001, t01=0x00f2}
0x0290…02a4 Head {h00=0x0010, h01=0x0050, text=» EXTRN M:OPA«, t00=0x0001, t01=0x0106}
0x02a4…02ba Head {h00=0x0012, h01=0x0050, text=» EXTRN RETMMM «, t00=0x0001, t01=0x011a}
0x02ba…02c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0130}
0x02c4…02da Head {h00=0x0012, h01=0x0050, text=»OVERLY EQU 0 «, t00=0x0001, t01=0x013a}
0x02da…02e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0150}
0x02e4…02f2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x015a}
0x02f2…02fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0168}
0x02fc…0314 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0001, t01=0x0172}
0x0314…032c Head {h00=0x0014, h01=0x0050, text=»* SHIFT LEFT * «, t00=0x0001, t01=0x018a}
0x032c…0344 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0002, t01=0x0012}
0x0344…034e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x002a}
0x034e…0362 Head {h00=0x0010, h01=0x0050, text=»M:SHL EQU * «, t00=0x0002, t01=0x0034}
0x0362…0378 Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=1 «, t00=0x0002, t01=0x0048}
0x0378…038c Head {h00=0x0010, h01=0x0050, text=» LDK A1,/80 «, t00=0x0002, t01=0x005e}
0x038c…03a2 Head {h00=0x0012, h01=0x0050, text=» XRS A1,2,A14 «, t00=0x0002, t01=0x0072}
0x03a2…03ae Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0002, t01=0x0088}
0x03ae…03c6 Head {h00=0x0014, h01=0x0050, text=»T:SHL SUR A8,A8 «, t00=0x0002, t01=0x0094}
0x03c6…03d6 Head {h00=0x000c, h01=0x0050, text=» RF SH10«, t00=0x0002, t01=0x00ac}
0x03d6…03e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00bc}
0x03e0…03f8 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0002, t01=0x00c6}
0x03f8…0410 Head {h00=0x0014, h01=0x0050, text=»* SHIFT RIGHT * «, t00=0x0002, t01=0x00de}
0x0410…0428 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0002, t01=0x00f6}
0x0428…0432 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x010e}
0x0432…0446 Head {h00=0x0010, h01=0x0050, text=»M:SHR EQU * «, t00=0x0002, t01=0x0118}
0x0446…045c Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=1 «, t00=0x0002, t01=0x012c}
0x045c…0470 Head {h00=0x0010, h01=0x0050, text=» LDK A1,/80 «, t00=0x0002, t01=0x0142}
0x0470…0486 Head {h00=0x0012, h01=0x0050, text=» XRS A1,2,A14 «, t00=0x0002, t01=0x0156}
0x0486…0492 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0002, t01=0x016c}
0x0492…04ac Head {h00=0x0016, h01=0x0050, text=»T:SHR LDKL A8,/F0 «, t00=0x0002, t01=0x0178}
0x04ac…04d2 (3, 0, 400) Head {h00=0x0022, h01=0x0050, text=»SH10 LD* A7,4,A14 GET ARGUMENT«, t00=0x0003, t01=0x0004}
0x04d2…04f2 Head {h00=0x001c, h01=0x0050, text=» ECR A7,A7 CHANGE BYTES «, t00=0x0003, t01=0x002a}
0x04f2…0508 Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=0 «, t00=0x0003, t01=0x004a}
0x0508…0534 Head {h00=0x0028, h01=0x0050, text=» CF A14,T:OPA GET ELEMENT PARAMETERS«, t00=0x0003, t01=0x0060}
0x0534…0540 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0003, t01=0x008c}
0x0540…0556 Head {h00=0x0012, h01=0x0050, text=» IFT OVERLY=1 «, t00=0x0003, t01=0x0098}
0x0556…0582 Head {h00=0x0028, h01=0x0050, text=» CF A14,M:OPA GET ELEMENT PARAMETERS«, t00=0x0003, t01=0x00ae}
0x0582…058e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0003, t01=0x00da}
0x058e…05b6 Head {h00=0x0024, h01=0x0050, text=» LDR A5,A1 COPY LENGTH 2-COMPL. «, t00=0x0003, t01=0x00e6}
0x05b6…05d6 Head {h00=0x001c, h01=0x0050, text=» LCR A3,A6 GET SIGN BYTE«, t00=0x0003, t01=0x010e}
0x05d6…05f4 Head {h00=0x001a, h01=0x0050, text=» LDR A9,A3 COPY TO A9 «, t00=0x0003, t01=0x012e}
0x05f4…0610 Head {h00=0x0018, h01=0x0050, text=» ANK A3,/F MASK SIGN«, t00=0x0003, t01=0x014c}
0x0610…0630 Head {h00=0x001c, h01=0x0050, text=» ANKL A9,/F0 MASK DIGIT «, t00=0x0003, t01=0x0168}
0x0630…064e Head {h00=0x001a, h01=0x0050, text=» STR A3,A14 SAVE SIGN «, t00=0x0003, t01=0x0188}
0x064e…066e Head {h00=0x001c, h01=0x0050, text=» SCR A9,A6 RESTORE DIGIT«, t00=0x0004, t01=0x0016}
0x066e…0698 Head {h00=0x0026, h01=0x0050, text=» LDR A9,A6 SAVE SIGN BYTE ADDRESS «, t00=0x0004, t01=0x0036}
0x0698…06b8 Head {h00=0x001c, h01=0x0050, text=» ECR A7,A7 CHANGE BYTES «, t00=0x0004, t01=0x0060}
0x06b8…06d6 Head {h00=0x001a, h01=0x0050, text=» ANK A7,/FF MASK STEPS«, t00=0x0004, t01=0x0080}
0x06d6…06f2 Head {h00=0x0018, h01=0x0050, text=» RF(Z) SH60 NO STEPS«, t00=0x0004, t01=0x009e}
0x06f2…0704 Head {h00=0x000e, h01=0x0050, text=» LDR A8,A8«, t00=0x0004, t01=0x00ba}
0x0704…0724 Head {h00=0x001c, h01=0x0050, text=» RF(NZ) SH30 SHIFT RIGHT«, t00=0x0004, t01=0x00cc}
0x0724…073c Head {h00=0x0014, h01=0x0050, text=» SUR A4,A4 A4:=0«, t00=0x0004, t01=0x00ec}
0x073c…0746 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0104}
0x0746…0766 Head {h00=0x001c, h01=0x0050, text=»SH20 LCR A2,A6 GET BYTE «, t00=0x0004, t01=0x010e}
0x0766…0784 Head {h00=0x001a, h01=0x0050, text=» ANK A2,/FF MASK BYTE «, t00=0x0004, t01=0x012e}
0x0784…07a2 Head {h00=0x001a, h01=0x0050, text=» LDR A3,A2 COPY TO A3 «, t00=0x0004, t01=0x014c}
0x07a2…07ca Head {h00=0x0024, h01=0x0050, text=» SRL A3,4 SHIFT A3 4 BITS RIGHT «, t00=0x0004, t01=0x016a}
0x07ca…07f0 (5, 0, 398) Head {h00=0x0022, h01=0x0050, text=» SLL A2,4 SHIFT A2 4 BITS LEFT«, t00=0x0005, t01=0x0004}
0x07f0…0816 Head {h00=0x0022, h01=0x0050, text=» ORR A2,A4 CREATE SHIFTED BYTE«, t00=0x0005, t01=0x002a}
0x0816…0834 Head {h00=0x001a, h01=0x0050, text=» SCR A2,A6 STORE BYTE «, t00=0x0005, t01=0x0050}
0x0834…085a Head {h00=0x0022, h01=0x0050, text=» SUK A6,1 GET ADR OF NEXT BYTE«, t00=0x0005, t01=0x006e}
0x085a…087e Head {h00=0x0020, h01=0x0050, text=» LDR A4,A3 SAVE SHIFTED BCD «, t00=0x0005, t01=0x0094}
0x087e…08a6 Head {h00=0x0024, h01=0x0050, text=» ADK A1,1 DECREMENT BYTE COUNTER«, t00=0x0005, t01=0x00b8}
0x08a6…08ba Head {h00=0x0010, h01=0x0050, text=» RF(Z) SH50 «, t00=0x0005, t01=0x00e0}
0x08ba…08ca Head {h00=0x000c, h01=0x0050, text=» RB SH20«, t00=0x0005, t01=0x00f4}
0x08ca…08d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0104}
0x08d4…08f6 Head {h00=0x001e, h01=0x0050, text=»SH30 ADR A6,A1 GET ADR OF «, t00=0x0005, t01=0x010e}
0x08f6…0918 Head {h00=0x001e, h01=0x0050, text=» ADK A6,1 - LEFTMOST BYTE «, t00=0x0005, t01=0x0130}
0x0918…0932 Head {h00=0x0016, h01=0x0050, text=» LDR A4,A8 A8:=F0 «, t00=0x0005, t01=0x0152}
0x0932…093c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x016c}
0x093c…095c Head {h00=0x001c, h01=0x0050, text=»SH40 LCR A2,A6 GET BYTE «, t00=0x0005, t01=0x0176}
0x095c…097a Head {h00=0x001a, h01=0x0050, text=» ANK A2,/FF MASK BYTE «, t00=0x0006, t01=0x0008}
0x097a…0998 Head {h00=0x001a, h01=0x0050, text=» LDR A3,A2 COPY TO A3 «, t00=0x0006, t01=0x0026}
0x0998…09be Head {h00=0x0022, h01=0x0050, text=» SLL A3,4 SHIFT A3 4 BITS LEFT«, t00=0x0006, t01=0x0044}
0x09be…09e6 Head {h00=0x0024, h01=0x0050, text=» SRL A2,4 SHIFT A2 4 BITS RIGHT «, t00=0x0006, t01=0x006a}
0x09e6…0a0c Head {h00=0x0022, h01=0x0050, text=» ORR A2,A4 CREATE SHIFTED BYTE«, t00=0x0006, t01=0x0092}
0x0a0c…0a2a Head {h00=0x001a, h01=0x0050, text=» SCR A2,A6 STORE BYTE «, t00=0x0006, t01=0x00b8}
0x0a2a…0a50 Head {h00=0x0022, h01=0x0050, text=» ADK A6,1 GET ADR OF NEXT BYTE«, t00=0x0006, t01=0x00d6}
0x0a50…0a74 Head {h00=0x0020, h01=0x0050, text=» LDR A4,A3 SAVE SHIFTED BCD «, t00=0x0006, t01=0x00fc}
0x0a74…0a9c Head {h00=0x0024, h01=0x0050, text=» ADK A1,1 DECREMENT BYTE COUNTER«, t00=0x0006, t01=0x0120}
0x0a9c…0ab0 Head {h00=0x0010, h01=0x0050, text=» RF(Z) SH50 «, t00=0x0006, t01=0x0148}
0x0ab0…0ac0 Head {h00=0x000c, h01=0x0050, text=» RB SH40«, t00=0x0006, t01=0x015c}
0x0ac0…0aca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x016c}
0x0aca…0af6 Head {h00=0x0028, h01=0x0050, text=»SH50 SUK A7,1 DECREMENT STEP COUNTER«, t00=0x0006, t01=0x0176}
0x0af6…0b12 Head {h00=0x0018, h01=0x0050, text=» RF(Z) SH60 FINISHED«, t00=0x0007, t01=0x0012}
0x0b12…0b38 Head {h00=0x0022, h01=0x0050, text=» LDR A1,A5 RESET BYTE COUNTER «, t00=0x0007, t01=0x002e}
0x0b38…0b56 Head {h00=0x001a, h01=0x0050, text=» LDR A6,A9 RESTORE ADR«, t00=0x0007, t01=0x0054}
0x0b56…0b68 Head {h00=0x000e, h01=0x0050, text=» LDR A8,A8«, t00=0x0007, t01=0x0072}
0x0b68…0b88 Head {h00=0x001c, h01=0x0050, text=» RB(NZ) SH30 SHIFT RIGHT«, t00=0x0007, t01=0x0084}
0x0b88…0b9a Head {h00=0x000e, h01=0x0050, text=» RB SH20-2«, t00=0x0007, t01=0x00a4}
0x0b9a…0ba4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00b6}
0x0ba4…0bc6 Head {h00=0x001e, h01=0x0050, text=»SH60 LDR* A7,A14 GET SIGN «, t00=0x0007, t01=0x00c0}
0x0bc6…0be6 Head {h00=0x001c, h01=0x0050, text=» LCR A2,A9 GET SIGN BYTE«, t00=0x0007, t01=0x00e2}
0x0be6…0c04 Head {h00=0x001a, h01=0x0050, text=» ANK A2,/F0 SAVE DIGIT«, t00=0x0007, t01=0x0102}
0x0c04…0c22 Head {h00=0x001a, h01=0x0050, text=» ORR A2,A7 INSERT SIGN«, t00=0x0007, t01=0x0120}
0x0c22…0c40 Head {h00=0x001a, h01=0x0050, text=» SCR A2,A9 STORE SIGN «, t00=0x0007, t01=0x013e}
0x0c40…0c52 Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0007, t01=0x015c}
0x0c52…0c7e Head {h00=0x0028, h01=0x0050, text=» ADS A1,4,A14 MODIFY RETURN ADDRESS «, t00=0x0007, t01=0x016e}
0x0c7e…0c92 Head {h00=0x0010, h01=0x0050, text=» ABL RETMMM «, t00=0x0008, t01=0x000a}
0x0c92…0c9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x001e}
0x0c9c…0ca8 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0008, t01=0x0028}
0x0ca8…0cb0 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x0034}
0x0cb0…0cb8 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x003c}
0x0cb8…0cbc Head {h00=0x4004, h01=0x0000}
0x0cbc…0cc0 00 08 00 44 ┆ D┆
0x0cc0…0cc8 (9, 1, 8) 20 04 00 00 00 09 00 04 ┆ ┆
0x0cc8…0d18 (10, 0, 400) 57 48 45 4e 20 41 4c 4c 20 53 54 41 52 54 45 44 00 29 01 78 00 0a 00 50 5c 45 4a 45 43 54 00 2a 00 18 00 06 00 50 2a 20 00 2a 00 26 00 06 00 50 2a 20 00 2a 00 30 00 12 00 50 2a 20 20 20 53 20 57 20 4c 20 34 20 38 20 00 2a 00 3a 00 06 00 50 ┆WHEN ALL STARTED ) x P EJECT * P* * & P* * 0 P* S W L 4 8 * : P┆
0x0d18…0d68 2a 20 00 2a 00 50 00 3a 00 50 2a 20 20 20 53 55 42 52 4f 55 54 49 4e 45 20 54 4f 20 53 57 49 54 43 48 20 50 52 4f 47 52 41 4d 20 50 52 49 4f 52 49 54 59 20 4c 45 56 45 4c 20 54 4f 20 34 38 2e 00 2a 00 5a 00 06 00 50 2a 20 00 2a 00 98 00 06 ┆* * P : P* SUBROUTINE TO SWITCH PROGRAM PRIORITY LEVEL TO 48. * Z P* * ┆
0x0d68…0db8 00 50 2a 20 00 2a 00 a2 00 10 00 50 53 57 4c 34 38 5c 45 51 55 5c 2a 20 00 2a 00 ac 00 08 00 50 5c 49 4e 48 00 2a 00 c0 00 10 00 50 5c 53 54 52 5c 41 31 2c 41 31 35 20 00 2a 00 cc 00 24 00 50 5c 4c 44 4b 4c 5c 41 31 2c 2f 43 30 30 30 5c 50 ┆ P* * PSWL48 EQU * * P INH * P STR A1,A15 * $ P LDKL A1,/C000 P┆
0x0db8…0e08 53 57 20 46 4f 52 20 4c 45 56 45 4c 20 34 38 20 00 2a 00 e0 00 26 00 50 5c 53 54 5c 41 31 2c 34 2c 41 31 35 5c 53 41 56 45 20 49 54 20 4f 4e 20 41 31 35 20 53 54 41 43 4b 20 00 2a 01 08 00 1c 00 50 5c 4c 44 52 2a 5c 41 31 2c 41 31 35 5c 52 ┆SW FOR LEVEL 48 * & P ST A1,4,A15 SAVE IT ON A15 STACK * P LDR* A1,A15 R┆
0x0e08…0e58 45 53 54 4f 52 45 20 41 31 20 00 2a 01 32 00 2e 00 50 53 57 4c 52 54 4e 5c 41 42 4c 5c 52 54 4e 41 31 35 5c 52 45 54 55 52 4e 20 54 4f 20 43 41 4c 4c 45 52 20 41 4e 44 20 45 4e 42 00 2a 01 52 00 06 00 50 2a 20 00 2a 01 84 00 12 00 50 5c 45 ┆ESTORE A1 * 2 . PSWLRTN ABL RTNA15 RETURN TO CALLER AND ENB * R P* * P E┆
0x0e58…0ea8 (11, 0, 400) 4a 45 43 54 5c 5c 5c 4d 53 55 42 53 00 2a 01 8e 00 06 00 50 2a 20 00 2b 00 14 00 06 00 50 2a 20 00 2b 00 1e 00 12 00 50 2a 20 20 20 20 53 20 57 20 4c 20 58 20 59 00 2b 00 28 00 06 00 50 2a 20 00 2b 00 3e 00 38 00 50 2a 20 20 20 20 53 55 42 ┆JECT MSUBS * P* + P* + P* S W L X Y + ( P* + > 8 P* SUB┆
0x0ea8…0ef8 52 4f 55 54 49 4e 45 20 54 4f 20 53 57 49 54 43 48 20 50 52 4f 47 52 41 4d 20 50 52 49 4f 52 49 54 59 20 4c 45 56 45 4c 20 54 4f 3a 00 2b 00 48 00 28 00 50 2a 20 20 20 20 3a 3d 34 38 20 49 46 20 4c 45 56 45 4c 20 4f 4e 20 53 54 41 43 4b 20 ┆ROUTINE TO SWITCH PROGRAM PRIORITY LEVEL TO: + H ( P* :=48 IF LEVEL ON STACK ┆
0x0ef8…0f48 49 53 20 3e 3d 34 38 20 00 2b 00 84 00 28 00 50 2a 20 20 20 20 3a 3d 58 59 20 22 20 20 20 20 22 20 20 20 22 20 20 20 20 22 20 20 20 22 20 20 58 59 3c 34 38 00 2b 00 b0 00 06 00 50 2a 20 00 2b 00 dc 00 06 00 50 2a 20 00 2b 00 e6 00 10 00 50 ┆IS >=48 + ( P* :=XY " " " " " XY<48 + P* + P* + P┆
0x0f48…0f98 53 57 4c 58 59 5c 45 51 55 5c 2a 20 00 2b 00 f0 00 08 00 50 5c 49 4e 48 00 2b 01 04 00 18 00 50 5c 53 54 52 5c 41 31 2c 41 31 35 5c 53 41 56 45 20 41 31 20 00 2b 01 10 00 12 00 50 5c 4c 44 4b 4c 5c 41 31 2c 2f 37 46 46 20 00 2b 01 2c 00 28 ┆SWLXY EQU * + P INH + P STR A1,A15 SAVE A1 + P LDKL A1,/7FF + , (┆
0x0f98…0fe8 00 50 5c 41 4e 53 5c 41 31 2c 34 2c 41 31 35 5c 43 4c 45 41 52 20 4c 45 56 45 4c 20 54 4f 20 42 45 20 53 45 54 20 00 2b 01 42 00 26 00 50 5c 4c 43 5c 41 31 2c 32 38 2c 41 31 35 5c 47 45 54 20 4c 45 56 45 4c 20 46 52 4f 4d 20 53 54 41 43 4b ┆ P ANS A1,4,A15 CLEAR LEVEL TO BE SET + B & P LC A1,28,A15 GET LEVEL FROM STACK┆
0x0fe8…1038 (12, 0, 398) 00 2b 01 6e 00 10 00 50 5c 41 4e 4b 5c 41 31 2c 2f 46 43 20 00 2c 00 08 00 26 00 50 5c 43 57 4b 5c 41 31 2c 2f 43 30 5c 4c 45 56 45 4c 20 49 53 20 49 4e 20 42 49 54 53 20 38 2d 31 33 20 00 2c 00 1c 00 1e 00 50 5c 52 46 28 4e 4c 29 5c 4c 45 ┆ + n P ANK A1,/FC , & P CWK A1,/C0 LEVEL IS IN BITS 8-13 , P RF(NL) LE┆
0x1038…1088 56 34 38 5c 4c 45 56 45 4c 20 3e 3d 20 34 38 3f 00 2c 00 46 00 12 00 50 5c 45 43 52 5c 41 31 2c 41 31 5c 4e 4f 20 00 2c 00 68 00 38 00 50 5c 4f 52 4b 5c 41 31 2c 2f 43 30 5c 53 45 54 20 52 55 4e 20 41 4e 44 20 45 4e 41 42 4c 45 20 46 4c 49 ┆V48 LEVEL >= 48? , F P ECR A1,A1 NO , h 8 P ORK A1,/C0 SET RUN AND ENABLE FLI┆
0x1088…10d8 50 20 46 4c 4f 50 53 20 28 42 49 54 53 20 38 26 39 29 00 2c 00 7e 00 06 00 50 2a 20 00 2c 00 ba 00 10 00 50 53 45 54 4c 45 56 5c 45 51 55 5c 2a 00 2c 00 c4 00 28 00 50 5c 4f 52 53 5c 41 31 2c 34 2c 41 31 35 5c 53 45 54 20 4e 45 57 20 4c 45 ┆P FLOPS (BITS 8&9) , ~ P* , PSETLEV EQU * , ( P ORS A1,4,A15 SET NEW LE┆
0x10d8…1128 56 45 4c 20 4f 4e 20 53 54 41 43 4b 00 2c 00 d8 00 1c 00 50 5c 4c 44 52 2a 5c 41 31 2c 41 31 35 5c 52 45 53 54 4f 52 45 20 41 31 20 00 2c 01 04 00 0c 00 50 5c 52 54 4e 5c 41 31 35 00 2c 01 24 00 06 00 50 2a 20 00 2c 01 34 00 20 00 50 4c 45 ┆VEL ON STACK , P LDR* A1,A15 RESTORE A1 , P RTN A15 , $ P* , 4 PLE┆
0x1128…1176 56 34 38 5c 45 51 55 5c 2a 5c 4c 45 56 45 4c 20 57 41 53 20 3e 3d 20 34 38 20 00 2c 01 3e 00 30 00 50 5c 4c 44 4b 4c 5c 41 31 2c 2f 43 30 43 30 5c 53 45 54 20 4c 45 56 45 4c 20 54 4f 20 34 38 20 41 4e 44 20 42 49 54 53 20 38 26 39 20 ┆V48 EQU * LEVEL WAS >= 48 , > 0 P LDKL A1,/C0C0 SET LEVEL TO 48 AND BITS 8&9 ┆