|
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: 4756 (0x1294)
Notes: pts_type(SC)
Names: »TABORT.SC«
└─⟦c47f25c27⟧ Bits:30009688 Philips computer tape "600318"
└─⟦this⟧ »M:KMDV/TABORT.SC«
IDENT TABORT REL 8.2 78-09-15 870105040820 * ************************************************* * * PHILIPS TERMINAL SYSTEM PTS * * TABORT = ABORT I/O REQUEST * * * * * * ************************************************* * * * THIS MODULE IS CALLED BY THE LKM HANDLER WITH THE FOLLOWING * PARAMETERS:- * * A5 = TTAB-ADDRESS OF CALLING PROGRAM * * A8 = ECB-ADDRESS OF I/O REQUEST TO BE ABORTED * * A PENDING I/O REQUEST IS ABORTED. * THE ABORT REQUEST MUST BE DONE FROM THE SAME TASK * THAT MADE THE I/O REQUEST. THUS I/O WITH WAIT CAN * NOT BE ABORTED. EJECT ENTRY TABORT EXTRN FNDDWT FIND DWT-ADDRESS EXTRN DWTST DWT STATUS EXTRN DWTTAB TTAB-ADDRESS IN DWT EXTRN DWTWAT WAIT ACTIVATE INDICATOR IN DWT EXTRN TABIO ABORT I/O AND ACTIVATE EXTRN TENDIO END I/O EXTRN LKMQDI QUEUE JOB AND DISPATCH EXTRN LKMRQE LKM REQUEST ERROR EXTRN ITABRT ABORT INTERTASK REQUEST EXTRN FREBLK FREE ONE BLOCK DWTECH EQU /22 ECHO DEVICE DWT * * CONDITIONAL ASSEMBLY * * BY SETTING X:A=0 NO ACTIVATION (IF ANY) WILL TAKE PLACE * IF X:A=1 I/O REQUEST WITH ACTIVATION WILL BE ABORTED AND * THE ACTIVATION WILL BE PERFORMED WITH A7=1 TO INDICATE * REQUEST HAS BEEN ABORTED CREDIT EQU 1 EJECT * * ABORT I/O REQUEST * TABORT LDR* A3,A8 RF(N) TABOER REQUEST ALREADY COMPLETED CF A15,FNDDWT LOOK FOR DWT ADDRESS LDR A8,A6 RF(Z) TABOER DWT UNKNOWN CW A5,DWTTAB,A6 RF(NE) TABOER ILLEGAL TASK LD A7,DWTST,A6 RF(N) TABOER DEVICE NOT BUSY SLC A7,2 RF(NN) TABO20 NOT ECHO REQUEST LD A6,DWTECH,A6 GET ECHO DWT CF A15,TENDIO ABORT ECHO DEVICE LDR A6,A8 RESTORE DWT TABO20 EQU * CF A15,ITABRT ABORT IF INTERTASK REQUEST IFT CREDIT=1 LDKL A1,/C000 RETURN CODE CF A15,TABIO ABORT AND ACTIVATE IF REQUESTED XIF IFF CREDIT=1 LD A4,DWTWAT,A6 RF(Z) TABO30 I/O NOT WAIT CF A15,FREBLK I/O AND ACTIVATE FREE DISP BLK CM DWTWAT,A6 SET NOT WAIT TABO30 EQU * LDKL A1,/C000 RETURN CODE CF A15,TENDIO ABORT XIF ABL LKMQDI QUEUE TASK AND GO TO DISPATCHER TABOER ABL LKMRQE GO AND INDICATE LKM ERROR END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT TABORT REL 8.2 78-09-15 870105040820 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0048 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0042}
0x0048…0082 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0000, t01=0x004c}
0x0082…008c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0086}
0x008c…00b4 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x0090}
0x00b4…00be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00b8}
0x00be…00e4 Head {h00=0x0022, h01=0x0050, text=»* TABORT = ABORT I/O REQUEST«, t00=0x0000, t01=0x00c2}
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…0120 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x011a}
0x0120…015a Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0000, t01=0x0124}
0x015a…0164 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x015e}
0x0164…016e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0168}
0x016e…01b6 Head {h00=0x0044, h01=0x0050, text=»* THIS MODULE IS CALLED BY THE LKM HANDLER WITH THE FOLLOWING «, t00=0x0000, t01=0x0172}
0x01b6…01ce Head {h00=0x0014, h01=0x0050, text=»* PARAMETERS:-«, t00=0x0001, t01=0x002a}
0x01ce…01d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0042}
0x01d8…0208 Head {h00=0x002c, h01=0x0050, text=»* A5 = TTAB-ADDRESS OF CALLING PROGRAM«, t00=0x0001, t01=0x004c}
0x0208…0212 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x007c}
0x0212…024c Head {h00=0x0036, h01=0x0050, text=»* A8 = ECB-ADDRESS OF I/O REQUEST TO BE ABORTED «, t00=0x0001, t01=0x0086}
0x024c…0256 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00c0}
0x0256…0284 Head {h00=0x002a, h01=0x0050, text=»* A PENDING I/O REQUEST IS ABORTED. «, t00=0x0001, t01=0x00ca}
0x0284…02c2 Head {h00=0x003a, h01=0x0050, text=»* THE ABORT REQUEST MUST BE DONE FROM THE SAME TASK «, t00=0x0001, t01=0x00f8}
0x02c2…0300 Head {h00=0x003a, h01=0x0050, text=»* THAT MADE THE I/O REQUEST. THUS I/O WITH WAIT CAN «, t00=0x0001, t01=0x0136}
0x0300…031c Head {h00=0x0018, h01=0x0050, text=»* NOT BE ABORTED. «, t00=0x0001, t01=0x0174}
0x031c…032a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x0190}
0x032a…0332 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x000e}
0x0332…033a Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0016}
0x033a…0350 Head {h00=0x0012, h01=0x0050, text=» ENTRY TABORT «, t00=0x0002, t01=0x001e}
0x0350…0358 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0034}
0x0358…0360 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x003c}
0x0360…0386 Head {h00=0x0022, h01=0x0050, text=» EXTRN FNDDWT FIND DWT-ADDRESS«, t00=0x0002, t01=0x0044}
0x0386…03a6 Head {h00=0x001c, h01=0x0050, text=» EXTRN DWTST DWT STATUS «, t00=0x0002, t01=0x006a}
0x03a6…03d0 Head {h00=0x0026, h01=0x0050, text=» EXTRN DWTTAB TTAB-ADDRESS IN DWT «, t00=0x0002, t01=0x008a}
0x03d0…0404 Head {h00=0x0030, h01=0x0050, text=» EXTRN DWTWAT WAIT ACTIVATE INDICATOR IN DWT«, t00=0x0002, t01=0x00b4}
0x0404…0430 Head {h00=0x0028, h01=0x0050, text=» EXTRN TABIO ABORT I/O AND ACTIVATE «, t00=0x0002, t01=0x00e8}
0x0430…044e Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x0002, t01=0x0114}
0x044e…047a Head {h00=0x0028, h01=0x0050, text=» EXTRN LKMQDI QUEUE JOB AND DISPATCH«, t00=0x0002, t01=0x0132}
0x047a…04a2 Head {h00=0x0024, h01=0x0050, text=» EXTRN LKMRQE LKM REQUEST ERROR «, t00=0x0002, t01=0x015e}
0x04a2…04d0 Head {h00=0x002a, h01=0x0050, text=» EXTRN ITABRT ABORT INTERTASK REQUEST «, t00=0x0002, t01=0x0186}
0x04d0…04f4 Head {h00=0x0020, h01=0x0050, text=» EXTRN FREBLK FREE ONE BLOCK«, t00=0x0003, t01=0x0024}
0x04f4…04fc Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x0048}
0x04fc…0504 Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x0050}
0x0504…052a Head {h00=0x0022, h01=0x0050, text=»DWTECH EQU /22 ECHO DEVICE DWT«, t00=0x0003, t01=0x0058}
0x052a…0534 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x007e}
0x0534…0554 Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY «, t00=0x0003, t01=0x0088}
0x0554…055e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00a8}
0x055e…05a0 Head {h00=0x003e, h01=0x0050, text=»* BY SETTING X:A=0 NO ACTIVATION (IF ANY) WILL TAKE PLACE«, t00=0x0003, t01=0x00b2}
0x05a0…05e4 Head {h00=0x0040, h01=0x0050, text=»* IF X:A=1 I/O REQUEST WITH ACTIVATION WILL BE ABORTED AND «, t00=0x0003, t01=0x00f4}
0x05e4…0626 Head {h00=0x003e, h01=0x0050, text=»* THE ACTIVATION WILL BE PERFORMED WITH A7=1 TO INDICATE «, t00=0x0003, t01=0x0138}
0x0626…064a Head {h00=0x0020, h01=0x0050, text=»* REQUEST HAS BEEN ABORTED «, t00=0x0003, t01=0x017a}
0x064a…065e Head {h00=0x0010, h01=0x0050, text=»CREDIT EQU 1«, t00=0x0004, t01=0x000e}
0x065e…066c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0022}
0x066c…0674 Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x0030}
0x0674…067e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0038}
0x067e…069a Head {h00=0x0018, h01=0x0050, text=»* ABORT I/O REQUEST «, t00=0x0004, t01=0x0042}
0x069a…06a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x005e}
0x06a4…06ac Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x0068}
0x06ac…06c6 Head {h00=0x0016, h01=0x0050, text=»TABORT LDR* A3,A8 «, t00=0x0004, t01=0x0070}
0x06c6…06f6 Head {h00=0x002c, h01=0x0050, text=» RF(N) TABOER REQUEST ALREADY COMPLETED «, t00=0x0004, t01=0x008a}
0x06f6…06fe Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x00ba}
0x06fe…072a Head {h00=0x0028, h01=0x0050, text=» CF A15,FNDDWT LOOK FOR DWT ADDRESS «, t00=0x0004, t01=0x00c2}
0x072a…073c Head {h00=0x000e, h01=0x0050, text=» LDR A8,A6«, t00=0x0004, t01=0x00ee}
0x073c…075e Head {h00=0x001e, h01=0x0050, text=» RF(Z) TABOER DWT UNKNOWN «, t00=0x0004, t01=0x0100}
0x075e…0766 Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x0122}
0x0766…077e Head {h00=0x0014, h01=0x0050, text=» CW A5,DWTTAB,A6«, t00=0x0004, t01=0x012a}
0x077e…07a2 Head {h00=0x0020, h01=0x0050, text=» RF(NE) TABOER ILLEGAL TASK «, t00=0x0004, t01=0x0142}
0x07a2…07aa Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x0166}
0x07aa…07c2 Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTST,A6 «, t00=0x0004, t01=0x016e}
0x07c2…07e8 Head {h00=0x0022, h01=0x0050, text=» RF(N) TABOER DEVICE NOT BUSY «, t00=0x0004, t01=0x0186}
0x07e8…07f0 Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x001c}
0x07f0…0802 Head {h00=0x000e, h01=0x0050, text=» SLC A7,2 «, t00=0x0005, t01=0x0024}
0x0802…082a Head {h00=0x0024, h01=0x0050, text=» RF(NN) TABO20 NOT ECHO REQUEST «, t00=0x0005, t01=0x0036}
0x082a…0850 Head {h00=0x0022, h01=0x0050, text=» LD A6,DWTECH,A6 GET ECHO DWT «, t00=0x0005, t01=0x005e}
0x0850…0878 Head {h00=0x0024, h01=0x0050, text=» CF A15,TENDIO ABORT ECHO DEVICE«, t00=0x0005, t01=0x0084}
0x0878…0896 Head {h00=0x001a, h01=0x0050, text=» LDR A6,A8 RESTORE DWT«, t00=0x0005, t01=0x00ac}
0x0896…08aa Head {h00=0x0010, h01=0x0050, text=»TABO20 EQU *«, t00=0x0005, t01=0x00ca}
0x08aa…08dc Head {h00=0x002e, h01=0x0050, text=» CF A15,ITABRT ABORT IF INTERTASK REQUEST «, t00=0x0005, t01=0x00de}
0x08dc…08f2 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x0005, t01=0x0110}
0x08f2…0914 Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/C000 RETURN CODE«, t00=0x0005, t01=0x0126}
0x0914…094a Head {h00=0x0032, h01=0x0050, text=» CF A15,TABIO ABORT AND ACTIVATE IF REQUESTED «, t00=0x0005, t01=0x0148}
0x094a…0956 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0005, t01=0x017e}
0x0956…096c Head {h00=0x0012, h01=0x0050, text=» IFF CREDIT=1 «, t00=0x0005, t01=0x018a}
0x096c…0984 Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTWAT,A6«, t00=0x0006, t01=0x0010}
0x0984…09a6 Head {h00=0x001e, h01=0x0050, text=» RF(Z) TABO30 I/O NOT WAIT«, t00=0x0006, t01=0x0028}
0x09a6…09dc Head {h00=0x0032, h01=0x0050, text=» CF A15,FREBLK I/O AND ACTIVATE FREE DISP BLK «, t00=0x0006, t01=0x004a}
0x09dc…09fe Head {h00=0x001e, h01=0x0050, text=» CM DWTWAT,A6 SET NOT WAIT«, t00=0x0006, t01=0x0080}
0x09fe…0a12 Head {h00=0x0010, h01=0x0050, text=»TABO30 EQU *«, t00=0x0006, t01=0x00a2}
0x0a12…0a34 Head {h00=0x001e, h01=0x0050, text=» LDKL A1,/C000 RETURN CODE«, t00=0x0006, t01=0x00b6}
0x0a34…0a50 Head {h00=0x0018, h01=0x0050, text=» CF A15,TENDIO ABORT«, t00=0x0006, t01=0x00d8}
0x0a50…0a5c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0006, t01=0x00f4}
0x0a5c…0a90 Head {h00=0x0030, h01=0x0050, text=» ABL LKMQDI QUEUE TASK AND GO TO DISPATCHER «, t00=0x0006, t01=0x0100}
0x0a90…0a98 Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x0134}
0x0a98…0acc Head {h00=0x0030, h01=0x0050, text=»TABOER ABL LKMRQE GO AND INDICATE LKM ERROR «, t00=0x0006, t01=0x013c}
0x0acc…0ad4 Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x0170}
0x0ad4…0adc Head {h00=0x0004, h01=0x0050, t00=0x0006, t01=0x0178}
0x0adc…0ae8 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0006, t01=0x0180}
0x0ae8…0aec Head {h00=0x4004, h01=0x0000}
0x0aec…0af0 00 06 01 8c ┆ ┆
0x0af0…0af8 (7, 1, 8) 20 04 00 00 00 07 00 04 ┆ ┆
0x0af8…0b48 (8, 0, 398) 00 1c 00 50 5c 53 54 5c 41 33 2c 31 30 2c 41 38 5c 53 41 56 45 20 49 4e 44 45 58 20 00 48 00 04 00 30 00 50 5c 4c 43 5c 41 33 2c 44 57 54 50 4f 53 2c 41 36 5c 47 45 54 20 4d 41 58 4e 55 4d 42 45 52 20 4f 46 20 43 48 41 52 2f 4c 49 4e 45 20 ┆ P ST A3,10,A8 SAVE INDEX H 0 P LC A3,DWTPOS,A6 GET MAXNUMBER OF CHAR/LINE ┆
0x0b48…0b98 00 48 00 24 00 1a 00 50 5c 53 55 52 5c 41 33 2c 41 32 5c 41 4e 44 20 43 4f 4d 50 41 52 45 00 48 00 58 00 0e 00 50 5c 53 55 52 5c 41 33 2c 41 34 00 48 00 76 00 10 00 50 5c 52 46 28 4e 4e 29 5c 48 49 54 20 00 48 00 88 00 0e 00 50 5c 41 44 52 ┆ H $ P SUR A3,A2 AND COMPARE H X P SUR A3,A4 H v P RF(NN) HIT H P ADR┆
0x0b98…0be8 5c 41 34 2c 41 33 00 48 00 9c 00 0e 00 50 5c 41 44 4b 5c 41 34 2c 31 20 00 48 00 ae 00 28 00 50 48 49 54 5c 41 44 53 5c 41 34 2c 44 57 54 53 54 2c 41 36 5c 55 50 44 41 54 45 20 50 4f 53 49 54 49 4f 4e 20 00 48 00 c0 00 1c 00 50 2a 2a 2a 2a ┆ A4,A3 H P ADK A4,1 H ( PHIT ADS A4,DWTST,A6 UPDATE POSITION H P****┆
0x0be8…0c38 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 48 00 ec 00 1c 00 50 2a 20 45 58 45 43 55 54 45 20 46 41 53 54 20 4f 55 54 50 55 54 20 2a 20 00 48 01 0c 00 20 00 50 5c 4c 44 52 5c 41 33 2c 41 37 5c 47 45 54 20 43 48 41 52 20 ┆******************* H P* EXECUTE FAST OUTPUT * H P LDR A3,A7 GET CHAR ┆
0x0c38…0c86 54 4f 20 53 45 4e 44 20 00 48 01 2c 00 12 00 50 5c 43 46 5c 41 35 2c 46 41 53 54 45 52 20 00 48 01 50 00 12 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 48 01 66 00 12 00 50 2a 20 53 45 54 20 43 55 52 53 4f 52 20 2a 00 48 01 7c ┆TO SEND H , P CF A5,FASTER H P P************** H f P* SET CURSOR * H |┆
0x0c86…0cd6 (9, 0, 398) 00 22 00 50 5c 4c 44 5c 41 34 2c 44 57 54 53 54 2c 41 36 5c 47 45 54 20 41 43 54 55 41 4c 20 50 4f 53 00 49 00 04 00 10 00 50 5c 41 4e 4b 5c 41 34 2c 2f 46 46 20 00 49 00 2a 00 28 00 50 5c 41 44 5c 41 34 2c 44 57 54 41 50 2c 41 36 5c 49 4e ┆ " P LD A4,DWTST,A6 GET ACTUAL POS I P ANK A4,/FF I * ( P AD A4,DWTAP,A6 IN┆
0x0cd6…0d26 43 20 48 45 41 44 20 50 4f 53 20 50 4f 49 4e 54 45 52 00 49 00 3e 00 12 00 50 5c 43 46 5c 41 35 2c 43 55 52 50 4f 53 20 00 49 00 6a 00 22 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 20 00 49 ┆C HEAD POS POINTER I > P CF A5,CURPOS I j " P***************************** I┆
0x0d26…0d76 00 80 00 22 00 50 2a 20 52 45 53 54 4f 52 45 20 41 33 20 28 42 55 46 46 45 52 20 49 4e 44 45 58 29 20 2a 20 00 49 00 a6 00 26 00 50 5c 4c 44 5c 41 33 2c 31 30 2c 41 38 5c 52 45 53 54 4f 52 45 20 42 55 46 46 45 52 20 49 4e 44 45 58 20 00 49 ┆ " P* RESTORE A3 (BUFFER INDEX) * I & P LD A3,10,A8 RESTORE BUFFER INDEX I┆
0x0d76…0dc6 00 cc 00 0e 00 50 5c 53 55 4b 5c 41 33 2c 31 20 00 49 00 f6 00 1e 00 50 5c 41 42 4c 5c 41 43 44 59 39 30 5c 52 45 41 44 20 4e 45 58 54 20 43 48 41 52 00 49 01 08 00 06 00 50 2a 20 00 49 01 2a 00 2e 00 50 4e 4f 46 41 53 54 5c 4c 44 52 5c 41 ┆ P SUK A3,1 I P ABL ACDY90 READ NEXT CHAR I P* I * . PNOFAST LDR A┆
0x0dc6…0e14 32 2c 41 37 5c 52 45 53 54 4f 52 45 20 4f 55 54 50 55 54 20 43 48 41 52 41 43 54 45 52 20 00 49 01 34 00 10 00 50 5c 41 42 4c 5c 41 43 44 59 37 35 20 00 49 01 66 00 0a 00 50 5c 45 4a 45 43 54 00 49 01 7a 00 06 00 50 2a 20 00 49 01 88 ┆2,A7 RESTORE OUTPUT CHARACTER I 4 P ABL ACDY75 I f P EJECT I z P* I ┆
0x0e14…0e64 (10, 0, 400) 00 06 00 50 2a 20 00 4a 00 04 00 3c 00 50 2a 20 20 20 20 46 41 53 54 45 52 20 3d 20 53 55 42 52 4f 55 54 49 4e 45 20 54 4f 20 4f 55 54 50 55 54 20 53 50 41 43 45 20 41 54 20 46 41 53 54 20 4f 55 54 50 55 54 20 00 4a 00 0e 00 34 00 50 2a 20 ┆ P* J < P* FASTER = SUBROUTINE TO OUTPUT SPACE AT FAST OUTPUT J 4 P* ┆
0x0e64…0eb4 20 20 20 20 20 20 20 20 20 20 20 20 41 54 20 45 4e 54 52 59 20 41 34 20 3d 20 4e 55 4d 42 45 52 20 4f 46 20 43 48 41 52 41 43 54 45 52 53 00 4a 00 4e 00 06 00 50 2a 20 00 4a 00 86 00 10 00 50 46 41 53 54 45 52 5c 45 51 55 5c 2a 00 4a 00 90 ┆ AT ENTRY A4 = NUMBER OF CHARACTERS J N P* J PFASTER EQU * J ┆
0x0eb4…0f04 00 10 00 50 5c 43 57 4b 5c 41 34 2c 2f 36 30 20 00 4a 00 a4 00 2e 00 50 5c 52 46 28 4c 29 5c 46 41 53 30 31 30 5c 4e 55 4d 42 45 52 20 4f 46 20 43 48 41 52 20 4e 4f 54 20 54 4f 4f 20 4c 4f 4e 47 20 00 4a 00 b8 00 10 00 50 5c 4c 44 4b 5c 41 ┆ P CWK A4,/60 J . P RF(L) FAS010 NUMBER OF CHAR NOT TOO LONG J P LDK A┆
0x0f04…0f54 34 2c 2f 35 39 20 00 4a 00 ea 00 10 00 50 46 41 53 30 31 30 5c 45 51 55 5c 2a 00 4a 00 fe 00 1c 00 50 5c 41 44 4b 5c 41 34 2c 2f 32 30 5c 41 44 44 20 43 4f 4e 53 54 41 4e 54 00 4a 01 12 00 1e 00 50 5c 4c 44 4b 5c 41 32 2c 46 41 53 54 4f 5c ┆4,/59 J PFAS010 EQU * J P ADK A4,/20 ADD CONSTANT J P LDK A2,FASTO ┆
0x0f54…0fa4 46 41 53 54 20 4f 55 54 50 55 54 20 00 4a 01 32 00 16 00 50 5c 43 46 5c 41 35 2c 4f 55 54 50 55 54 5c 53 45 4e 44 00 4a 01 54 00 1a 00 50 5c 4c 44 52 5c 41 32 2c 41 34 5c 4e 4f 20 4f 46 20 43 48 41 52 20 00 4a 01 6e 00 16 00 50 5c 43 46 5c ┆FAST OUTPUT J 2 P CF A5,OUTPUT SEND J T P LDR A2,A4 NO OF CHAR J n P CF ┆
0x0fa4…0ff4 (11, 0, 400) 41 35 2c 4f 55 54 50 55 54 5c 53 45 4e 44 00 4a 01 8c 00 0e 00 50 5c 4c 44 52 5c 41 32 2c 41 33 00 4b 00 16 00 16 00 50 5c 43 46 5c 41 35 2c 4f 55 54 50 55 54 5c 53 45 4e 44 00 4b 00 28 00 0c 00 50 5c 52 54 4e 5c 41 35 20 00 4b 00 42 00 0a ┆A5,OUTPUT SEND J P LDR A2,A3 K P CF A5,OUTPUT SEND K ( P RTN A5 K B ┆
0x0ff4…1044 00 50 5c 45 4a 45 43 54 00 4b 00 52 00 06 00 50 2a 20 00 4b 00 60 00 06 00 50 2a 20 00 4b 00 6a 00 2a 00 50 2a 20 20 20 20 43 55 52 50 4f 53 20 3d 20 53 55 42 52 4f 55 54 49 4e 45 20 54 4f 20 53 45 54 20 43 55 52 53 4f 52 00 4b 00 74 00 3e ┆ P EJECT K R P* K ` P* K j * P* CURPOS = SUBROUTINE TO SET CURSOR K t >┆
0x1044…1094 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 41 54 20 45 4e 54 52 59 20 41 34 20 3d 20 43 55 52 53 4f 52 20 50 4f 53 20 28 50 4f 53 49 54 49 4f 4e 20 41 4e 44 20 4c 49 4e 45 29 00 4b 00 a2 00 06 00 50 2a 20 00 4b 00 e4 00 10 00 50 43 55 ┆ P* AT ENTRY A4 = CURSOR POS (POSITION AND LINE) K P* K PCU┆
0x1094…10e4 52 50 4f 53 5c 45 51 55 5c 2a 00 4b 00 ee 00 1a 00 50 5c 41 44 4b 4c 5c 41 34 2c 2f 31 46 31 46 5c 43 4f 4e 56 45 52 54 00 4b 01 02 00 1c 00 50 5c 4c 44 4b 5c 41 32 2c 53 43 41 44 44 5c 53 45 54 20 43 55 52 53 4f 52 00 4b 01 20 00 16 00 50 ┆RPOS EQU * K P ADKL A4,/1F1F CONVERT K P LDK A2,SCADD SET CURSOR K P┆
0x10e4…1134 5c 43 46 5c 41 35 2c 4f 55 54 50 55 54 5c 53 45 4e 44 00 4b 01 40 00 1c 00 50 5c 45 43 52 5c 41 32 2c 41 34 5c 50 4f 53 2e 20 58 20 3c 20 2f 38 30 3f 00 4b 01 5a 00 0e 00 50 5c 4c 44 52 5c 41 32 2c 41 32 00 4b 01 7a 00 18 00 50 5c 52 46 28 ┆ CF A5,OUTPUT SEND K @ P ECR A2,A4 POS. X < /80? K Z P LDR A2,A2 K z P RF(┆
0x1134…1184 (12, 2, 352) 4e 4e 29 5c 43 55 52 52 30 35 5c 59 45 53 21 20 00 4b 01 8c 00 12 00 50 5c 4c 43 4b 5c 41 34 2c 2f 37 46 30 30 20 00 4c 00 18 00 10 00 50 43 55 52 52 30 35 5c 45 51 55 5c 2a 00 4c 00 2e 00 0e 00 50 5c 4c 44 52 5c 41 32 2c 41 34 00 4c 00 42 ┆NN) CURR05 YES! K P LCK A4,/7F00 L PCURR05 EQU * L . P LDR A2,A4 L B┆
0x1184…11d4 00 26 00 50 5c 43 46 5c 41 35 2c 4f 55 54 50 55 54 5c 4f 55 54 50 55 54 20 50 4f 53 49 54 49 4f 4e 20 28 58 29 20 00 4c 00 54 00 0e 00 50 5c 4c 44 52 5c 41 32 2c 41 34 00 4c 00 7e 00 1c 00 50 5c 52 46 28 4e 4e 29 5c 43 55 52 52 31 30 5c 59 ┆ & P CF A5,OUTPUT OUTPUT POSITION (X) L T P LDR A2,A4 L ~ P RF(NN) CURR10 Y┆
0x11d4…1224 20 3c 20 2f 38 30 21 20 00 4c 00 90 00 10 00 50 5c 4c 44 4b 5c 41 32 2c 2f 37 46 20 00 4c 00 b0 00 0e 00 50 5c 52 46 5c 43 55 52 52 31 35 00 4c 00 c4 00 10 00 50 43 55 52 52 31 30 5c 45 51 55 5c 2a 00 4c 00 d6 00 1a 00 50 5c 53 52 4c 5c 41 ┆ < /80! L P LDK A2,/7F L P RF CURR15 L PCURR10 EQU * L P SRL A┆
0x1224…1274 32 2c 38 5c 53 48 49 46 54 20 52 49 47 48 54 20 00 4c 00 ea 00 10 00 50 43 55 52 52 31 35 5c 45 51 55 5c 2a 00 4c 01 08 00 20 00 50 5c 43 46 5c 41 35 2c 4f 55 54 50 55 54 5c 4f 55 54 50 55 54 20 4c 49 4e 45 28 59 29 00 4c 01 1c 00 0c 00 50 ┆2,8 SHIFT RIGHT L PCURR15 EQU * L P CF A5,OUTPUT OUTPUT LINE(Y) L P┆
0x1274…1294 5c 52 54 4e 5c 41 35 20 00 4c 01 40 00 08 00 50 5c 45 4e 44 00 4c 01 50 40 04 00 00 00 4c 01 5c ┆ RTN A5 L @ P END L P@ L ┆