|
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: 4514 (0x11a2)
Notes: pts_type(SC)
Names: »EXPAND.SC«
└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
└─⟦this⟧ »BARCLAY/EXPAND.SC«
└─⟦this⟧ »BARCLAY/EXPAND.SC«
└─⟦e276fd206⟧ Bits:30009696 Philips computer tape "600413"
└─⟦this⟧ »BARCLAY/EXPAND.SC«
IDENT EXPAND 80.11.03 NJ DDUM NJDDIV PDIV ENTRY EXPAND EXPROC PUSH,PBIN EXPROC PULL,PBIN * * INCLUDE EQUATE * * EJECT EXPAND PROC BUF,LEN PSTRG BUF PBIN LEN * * THE PROCEDURE CHECKS TO SEE IF ANY SPACE- * COMPRESSION OCCURS. * IF SO, THE SPACES WILL BE INSERTED * IN THE PROPER PLACES. * * THE ROUTINE SUPPOSES THAT LESS THEN 3 SPACES * TO BE INSERTED CANNOT OCCUR. * * ALTERED FIELDS: * TSTR1 - DC3 * TSTR2 - FIG-FIG * TSTR3 - DC3-FIG-FIG * TSTR80 * TBCD4 - NBR OF SPACES TO BE INSERTED * PERF PUSH,CBIN4 MOVE TBIN1,CBIN0 MOVE TBIN2,CBIN0 MOVE TBIN3,LEN MOVE TSTR1,DC3 DC3 - SPACE COMPR BEGIN EXP010 MATCH BUF,TBIN2,TBIN3,TSTR1,CBIN0,CBIN1 FIND ANY DC3 BNOK EXP090 SORRY NO MATCH FOUND XCOPY TSTR3,CBIN0,CBIN3,BUF,TBIN2 MOVE SPACECOMPR SEQUENCE MOVE TSTR80,=' ' XCOPY BUF,TBIN2,CBIN3,TSTR80,CBIN0 REPLACE BY 3 SPACES XCOPY TSTR2,CBIN0,CBIN2,TSTR3,CBIN1 MOVE TBCD4,TSTR2 HOW MANY SPACES WANTED? MOVE TBIN4,TBCD4 SUB TBIN4,CBIN3 WE ALREADY INSERTED 3 BNP EXP080 FNISHED IF 3 SPACES WANTED INSRT BUF,TBIN2,TBIN4,TSTR80,CBIN0 INSERT SPACES EXP080 COMPUTE NEW STARTPOINT ADD TBIN2,TBIN4 FOR MATCH MOVE TBIN3,LEN SUB TBIN3,TBIN2 COMPUTE NEW LENGTH FOR MATCH B EXP010 EXP090 PERF PULL,CBIN4 RET PEND END
0x0000…0022 (0, 0, 400) Head {h00=0x001e, h01=0x0050, text=» IDENT EXPAND 80.11.03 NJ «, t00=0x0000, t01=0x0004}
0x0022…0036 Head {h00=0x0010, h01=0x0050, text=» DDUM NJDDIV«, t00=0x0000, t01=0x0026}
0x0036…0044 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x003a}
0x0044…005a Head {h00=0x0012, h01=0x0050, text=» ENTRY EXPAND «, t00=0x0000, t01=0x0048}
0x005a…0074 Head {h00=0x0016, h01=0x0050, text=» EXPROC PUSH,PBIN «, t00=0x0000, t01=0x005e}
0x0074…008e Head {h00=0x0016, h01=0x0050, text=» EXPROC PULL,PBIN «, t00=0x0000, t01=0x0078}
0x008e…0098 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0092}
0x0098…00a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x009c}
0x00a2…00ba Head {h00=0x0014, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0000, t01=0x00a6}
0x00ba…00c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00be}
0x00c4…00ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00c8}
0x00ce…00dc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0000, t01=0x00d2}
0x00dc…00f8 Head {h00=0x0018, h01=0x0050, text=»EXPAND PROC BUF,LEN «, t00=0x0000, t01=0x00e0}
0x00f8…010a Head {h00=0x000e, h01=0x0050, text=» PSTRG BUF«, t00=0x0000, t01=0x00fc}
0x010a…011c Head {h00=0x000e, h01=0x0050, text=» PBIN LEN «, t00=0x0000, t01=0x010e}
0x011c…0126 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0120}
0x0126…015a Head {h00=0x0030, h01=0x0050, text=»* THE PROCEDURE CHECKS TO SEE IF ANY SPACE- «, t00=0x0000, t01=0x012a}
0x015a…0178 Head {h00=0x001a, h01=0x0050, text=»* COMPRESSION OCCURS. «, t00=0x0000, t01=0x015e}
0x0178…01a4 Head {h00=0x0028, h01=0x0050, text=»* IF SO, THE SPACES WILL BE INSERTED«, t00=0x0000, t01=0x017c}
0x01a4…01c4 Head {h00=0x001c, h01=0x0050, text=»* IN THE PROPER PLACES. «, t00=0x0001, t01=0x0018}
0x01c4…01ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0038}
0x01ce…0204 Head {h00=0x0032, h01=0x0050, text=»* THE ROUTINE SUPPOSES THAT LESS THEN 3 SPACES«, t00=0x0001, t01=0x0042}
0x0204…022a Head {h00=0x0022, h01=0x0050, text=»* TO BE INSERTED CANNOT OCCUR.«, t00=0x0001, t01=0x0078}
0x022a…0234 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x009e}
0x0234…024e Head {h00=0x0016, h01=0x0050, text=»* ALTERED FIELDS: «, t00=0x0001, t01=0x00a8}
0x024e…0268 Head {h00=0x0016, h01=0x0050, text=»* TSTR1 - DC3 «, t00=0x0001, t01=0x00c2}
0x0268…0286 Head {h00=0x001a, h01=0x0050, text=»* TSTR2 - FIG-FIG «, t00=0x0001, t01=0x00dc}
0x0286…02a8 Head {h00=0x001e, h01=0x0050, text=»* TSTR3 - DC3-FIG-FIG «, t00=0x0001, t01=0x00fa}
0x02a8…02bc Head {h00=0x0010, h01=0x0050, text=»* TSTR80«, t00=0x0001, t01=0x011c}
0x02bc…02ee Head {h00=0x002e, h01=0x0050, text=»* TBCD4 - NBR OF SPACES TO BE INSERTED«, t00=0x0001, t01=0x0130}
0x02ee…02f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0162}
0x02f8…0310 Head {h00=0x0014, h01=0x0050, text=» PERF PUSH,CBIN4«, t00=0x0001, t01=0x016c}
0x0310…032a Head {h00=0x0016, h01=0x0050, text=» MOVE TBIN1,CBIN0 «, t00=0x0001, t01=0x0184}
0x032a…0344 Head {h00=0x0016, h01=0x0050, text=» MOVE TBIN2,CBIN0 «, t00=0x0002, t01=0x000e}
0x0344…035c Head {h00=0x0014, h01=0x0050, text=» MOVE TBIN3,LEN «, t00=0x0002, t01=0x0028}
0x035c…038c Head {h00=0x002c, h01=0x0050, text=» MOVE TSTR1,DC3 DC3 - SPACE COMPR BEGIN «, t00=0x0002, t01=0x0040}
0x038c…039a Head {h00=0x000a, h01=0x0050, text=»EXP010«, t00=0x0002, t01=0x0070}
0x039a…03d8 Head {h00=0x003a, h01=0x0050, text=» MATCH BUF,TBIN2,TBIN3,TSTR1,CBIN0,CBIN1 FIND ANY DC3 «, t00=0x0002, t01=0x007e}
0x03d8…0402 Head {h00=0x0026, h01=0x0050, text=» BNOK EXP090 SORRY NO MATCH FOUND «, t00=0x0002, t01=0x00bc}
0x0402…0446 Head {h00=0x0040, h01=0x0050, text=» XCOPY TSTR3,CBIN0,CBIN3,BUF,TBIN2 MOVE SPACECOMPR SEQUENCE «, t00=0x0002, t01=0x00e6}
0x0446…0460 Head {h00=0x0016, h01=0x0050, text=» MOVE TSTR80,=' ' «, t00=0x0002, t01=0x012a}
0x0460…04a0 Head {h00=0x003c, h01=0x0050, text=» XCOPY BUF,TBIN2,CBIN3,TSTR80,CBIN0 REPLACE BY 3 SPACES «, t00=0x0002, t01=0x0144}
0x04a0…04cc Head {h00=0x0028, h01=0x0050, text=» XCOPY TSTR2,CBIN0,CBIN2,TSTR3,CBIN1«, t00=0x0002, t01=0x0184}
0x04cc…04fe Head {h00=0x002e, h01=0x0050, text=» MOVE TBCD4,TSTR2 HOW MANY SPACES WANTED? «, t00=0x0003, t01=0x0020}
0x04fe…0518 Head {h00=0x0016, h01=0x0050, text=» MOVE TBIN4,TBCD4 «, t00=0x0003, t01=0x0052}
0x0518…0546 Head {h00=0x002a, h01=0x0050, text=» SUB TBIN4,CBIN3 WE ALREADY INSERTED 3«, t00=0x0003, t01=0x006c}
0x0546…0574 Head {h00=0x002a, h01=0x0050, text=» BNP EXP080 FNISHED IF 3 SPACES WANTED«, t00=0x0003, t01=0x009a}
0x0574…05ae Head {h00=0x0036, h01=0x0050, text=» INSRT BUF,TBIN2,TBIN4,TSTR80,CBIN0 INSERT SPACES «, t00=0x0003, t01=0x00c8}
0x05ae…05d6 Head {h00=0x0024, h01=0x0050, text=»EXP080 COMPUTE NEW STARTPOINT «, t00=0x0003, t01=0x0102}
0x05d6…05f8 Head {h00=0x001e, h01=0x0050, text=» ADD TBIN2,TBIN4 FOR MATCH«, t00=0x0003, t01=0x012a}
0x05f8…0610 Head {h00=0x0014, h01=0x0050, text=» MOVE TBIN3,LEN «, t00=0x0003, t01=0x014c}
0x0610…0646 Head {h00=0x0032, h01=0x0050, text=» SUB TBIN3,TBIN2 COMPUTE NEW LENGTH FOR MATCH «, t00=0x0003, t01=0x0164}
0x0646…0658 Head {h00=0x000e, h01=0x0050, text=» B EXP010 «, t00=0x0004, t01=0x000a}
0x0658…0666 Head {h00=0x000a, h01=0x0050, text=»EXP090«, t00=0x0004, t01=0x001c}
0x0666…067e Head {h00=0x0014, h01=0x0050, text=» PERF PULL,CBIN4«, t00=0x0004, t01=0x002a}
0x067e…068a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0004, t01=0x0042}
0x068a…0698 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0004, t01=0x004e}
0x0698…06a4 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0004, t01=0x005c}
0x06a4…06a8 Head {h00=0x4004, h01=0x0000}
0x06a8…06ac 00 04 00 68 ┆ h┆
0x06ac…06b4 (5, 1, 8) 20 04 00 00 00 05 00 04 ┆ ┆
0x06b4…0704 (6, 0, 400) 54 42 49 4e 31 2c 3d 57 27 38 30 27 00 25 01 8a 00 1a 00 50 20 44 53 43 31 20 44 53 44 59 2c 45 52 41 53 45 2c 54 42 49 4e 31 00 26 00 14 00 20 00 50 20 4d 4f 56 45 20 54 53 54 52 34 2c 3d 58 27 32 42 32 42 30 37 27 20 42 45 4c 4c 20 00 26 ┆TBIN1,=W'80' % P DSC1 DSDY,ERASE,TBIN1 & P MOVE TSTR4,=X'2B2B07' BELL &┆
0x0704…0754 00 32 00 2a 00 50 20 49 4e 53 52 54 20 54 53 54 52 38 30 2c 43 42 49 4e 30 2c 43 42 49 4e 33 2c 54 53 54 52 34 2c 43 42 49 4e 30 20 00 26 00 56 00 1c 00 50 20 57 52 49 54 45 20 44 53 44 59 2c 54 53 54 52 38 30 2c 43 42 49 4e 38 00 26 00 84 ┆ 2 * P INSRT TSTR80,CBIN0,CBIN3,TSTR4,CBIN0 & V P WRITE DSDY,TSTR80,CBIN8 & ┆
0x0754…07a4 00 1e 00 50 2a 20 4e 4f 57 20 57 41 49 54 20 46 4f 52 20 54 48 45 20 41 4e 53 57 45 52 20 00 26 00 a4 00 1e 00 50 20 50 45 52 46 20 50 4f 53 43 55 52 2c 3d 57 27 32 33 27 2c 3d 57 27 38 30 27 00 26 00 c6 00 32 00 50 20 50 45 52 46 20 4b 42 ┆ P* NOW WAIT FOR THE ANSWER & P PERF POSCUR,=W'23',=W'80' & 2 P PERF KB┆
0x07a4…07f4 52 45 41 44 2c 54 4b 42 42 55 46 2c 54 42 49 4e 31 2c 4b 54 41 42 45 4e 51 2c 54 42 49 4e 32 2c 43 42 49 4e 31 20 00 26 00 e8 00 14 00 50 20 43 4d 50 20 43 42 49 4e 30 2c 43 42 49 4e 30 00 26 01 1e 00 08 00 50 20 52 45 54 00 26 01 36 00 0a ┆READ,TKBBUF,TBIN1,KTABENQ,TBIN2,CBIN1 & P CMP CBIN0,CBIN0 & P RET & 6 ┆
0x07f4…0844 00 50 20 50 45 4e 44 20 00 26 01 42 00 0a 00 50 20 45 4a 45 43 54 00 26 01 50 00 0e 00 50 55 4e 50 43 4b 20 50 52 4f 43 00 26 01 5e 00 3a 00 50 2a 20 54 48 45 20 43 4f 4e 54 45 4e 54 53 20 4f 46 20 54 53 54 52 32 4b 20 28 57 48 49 43 48 20 ┆ P PEND & B P EJECT & P PUNPCK PROC & ^ : P* THE CONTENTS OF TSTR2K (WHICH ┆
0x0844…0894 (7, 0, 400) 49 53 20 54 48 45 20 42 55 46 46 45 52 20 52 45 43 45 49 56 45 44 00 26 01 70 00 2a 00 50 2a 20 46 52 4f 4d 20 54 48 45 20 4d 41 49 4e 46 52 41 4d 29 20 49 53 20 54 4f 42 45 20 55 4e 50 41 43 4b 45 44 20 00 27 00 1e 00 2e 00 50 2a 20 49 4e ┆IS THE BUFFER RECEIVED & p * P* FROM THE MAINFRAM) IS TOBE UNPACKED ' . P* IN┆
0x0894…08e4 54 4f 20 54 48 45 20 54 45 52 4d 49 4e 41 4c 53 20 4c 4f 47 49 43 41 4c 20 53 43 52 45 45 4e 20 41 52 45 41 2e 20 00 27 00 4c 00 2c 00 50 2a 20 4f 4e 4c 59 20 54 48 45 20 55 4e 50 52 4f 54 45 43 54 45 44 20 46 49 45 4c 44 53 20 41 52 45 20 ┆TO THE TERMINALS LOGICAL SCREEN AREA. ' L , P* ONLY THE UNPROTECTED FIELDS ARE ┆
0x08e4…0934 53 41 56 45 44 20 00 27 00 7e 00 36 00 50 2a 20 41 4c 4c 20 52 45 43 45 49 56 45 44 20 46 49 45 4c 44 53 20 41 52 45 20 44 49 53 50 4c 41 59 45 44 20 4f 4e 20 54 48 45 20 53 43 52 45 45 4e 20 00 27 00 ae 00 04 00 50 00 27 00 e8 00 16 00 50 ┆SAVED ' ~ 6 P* ALL RECEIVED FIELDS ARE DISPLAYED ON THE SCREEN ' P ' P┆
0x0934…0984 20 4d 4f 56 45 20 54 53 54 52 34 2c 54 53 54 52 32 4b 00 27 00 f0 00 3a 00 50 20 58 43 4f 50 59 20 54 53 54 52 32 2c 43 42 49 4e 30 2c 43 42 49 4e 32 2c 54 53 54 52 32 4b 2c 43 42 49 4e 31 30 20 28 4e 4f 54 20 55 53 45 44 20 59 45 54 29 20 ┆ MOVE TSTR4,TSTR2K ' : P XCOPY TSTR2,CBIN0,CBIN2,TSTR2K,CBIN10 (NOT USED YET) ┆
0x0984…09d4 00 27 01 0a 00 38 00 50 20 58 43 4f 50 59 20 54 53 54 52 34 2c 43 42 49 4e 30 2c 43 42 49 4e 33 2c 54 53 54 52 32 4b 2c 43 42 49 4e 31 32 20 4d 4f 56 45 20 44 43 2d 43 48 41 52 53 00 27 01 48 00 10 00 50 20 43 4c 45 41 52 20 54 44 43 31 20 ┆ ' 8 P XCOPY TSTR4,CBIN0,CBIN3,TSTR2K,CBIN12 MOVE DC-CHARS ' H P CLEAR TDC1 ┆
0x09d4…0a24 (8, 0, 398) 00 27 01 84 00 10 00 50 20 43 4c 45 41 52 20 54 44 43 32 20 00 28 00 08 00 10 00 50 20 43 4c 45 41 52 20 54 44 43 33 20 00 28 00 1c 00 10 00 50 20 43 4c 45 41 52 20 54 44 43 34 20 00 28 00 30 00 16 00 50 20 4d 4f 56 45 20 54 42 49 4e 32 2c ┆ ' P CLEAR TDC2 ( P CLEAR TDC3 ( P CLEAR TDC4 ( 0 P MOVE TBIN2,┆
0x0a24…0a74 43 42 49 4e 30 20 00 28 00 44 00 16 00 50 20 4d 4f 56 45 20 54 42 49 4e 31 2c 43 42 49 4e 31 32 00 28 00 5e 00 0a 00 50 55 4e 50 30 31 30 00 28 00 78 00 2a 00 50 20 58 43 4f 50 59 20 54 42 49 4e 32 2c 43 42 49 4e 31 2c 43 42 49 4e 31 2c 54 ┆CBIN0 ( D P MOVE TBIN1,CBIN12 ( ^ PUNP010 ( x * P XCOPY TBIN2,CBIN1,CBIN1,T┆
0x0a74…0ac4 53 54 52 32 4b 2c 54 42 49 4e 31 20 00 28 00 86 00 16 00 50 20 53 55 42 20 54 42 49 4e 32 2c 43 42 49 4e 31 30 20 00 28 00 b4 00 2a 00 50 20 49 42 20 54 42 49 4e 32 2c 55 4e 50 30 31 31 2c 55 4e 50 30 31 32 2c 55 4e 50 30 31 33 2c 55 4e 50 ┆STR2K,TBIN1 ( P SUB TBIN2,CBIN10 ( * P IB TBIN2,UNP011,UNP012,UNP013,UNP┆
0x0ac4…0b14 30 31 34 20 00 28 00 ce 00 20 00 50 20 42 20 55 4e 50 30 32 30 20 4e 4f 4e 2d 44 43 2d 43 48 41 52 20 46 4f 55 4e 44 20 00 28 00 fc 00 0a 00 50 55 4e 50 30 31 31 00 28 01 20 00 0e 00 50 20 53 45 54 20 54 44 43 31 20 00 28 01 2e 00 0e 00 50 ┆014 ( P B UNP020 NON-DC-CHAR FOUND ( PUNP011 ( P SET TDC1 ( . P┆
0x0b14…0b62 20 42 20 55 4e 50 30 31 35 20 00 28 01 40 00 0a 00 50 55 4e 50 30 31 32 00 28 01 52 00 0e 00 50 20 53 45 54 20 54 44 43 32 20 00 28 01 60 00 0e 00 50 20 42 20 55 4e 50 30 31 35 20 00 28 01 72 00 0a 00 50 55 4e 50 30 31 33 00 28 01 84 ┆ B UNP015 ( @ PUNP012 ( R P SET TDC2 ( ` P B UNP015 ( r PUNP013 ( ┆
0x0b62…0bb2 (9, 0, 400) 00 0e 00 50 20 53 45 54 20 54 44 43 33 20 00 29 00 04 00 0e 00 50 20 42 20 55 4e 50 30 31 35 20 00 29 00 16 00 0a 00 50 55 4e 50 30 31 34 00 29 00 28 00 0e 00 50 20 53 45 54 20 54 44 43 34 20 00 29 00 36 00 0a 00 50 55 4e 50 30 31 35 00 29 ┆ P SET TDC3 ) P B UNP015 ) PUNP014 ) ( P SET TDC4 ) 6 PUNP015 )┆
0x0bb2…0c02 00 48 00 20 00 50 20 41 44 44 20 54 42 49 4e 35 2c 43 42 49 4e 31 20 4d 4f 52 45 20 4c 45 46 54 3f 20 00 29 00 56 00 0e 00 50 20 42 20 55 4e 50 30 31 30 20 00 29 00 7a 00 0a 00 50 55 4e 50 30 32 30 00 29 00 8c 00 3c 00 50 2a 20 4e 4f 57 20 ┆ H P ADD TBIN5,CBIN1 MORE LEFT? ) V P B UNP010 ) z PUNP020 ) < P* NOW ┆
0x0c02…0c52 54 42 49 4e 31 20 50 4f 49 4e 54 53 20 41 54 20 54 48 45 20 46 49 52 53 54 20 4e 4f 4e 2d 44 43 20 43 48 41 52 41 43 54 45 52 2c 20 57 48 49 43 48 20 00 29 00 9a 00 28 00 50 2a 20 4d 45 41 4e 53 3a 20 48 45 52 45 20 42 45 47 49 4e 53 20 4f ┆TBIN1 POINTS AT THE FIRST NON-DC CHARACTER, WHICH ) ( P* MEANS: HERE BEGINS O┆
0x0c52…0ca2 55 52 20 44 41 54 41 20 46 49 45 4c 44 2e 00 29 00 da 00 30 00 50 2a 20 42 55 54 20 46 49 52 53 54 20 57 45 20 48 41 56 45 20 54 4f 20 45 58 45 43 55 54 45 20 54 48 45 20 46 55 4e 43 54 49 4f 4e 53 00 29 01 06 00 22 00 50 2a 20 41 53 20 53 ┆UR DATA FIELD. ) 0 P* BUT FIRST WE HAVE TO EXECUTE THE FUNCTIONS ) " P* AS S┆
0x0ca2…0cf2 50 45 43 49 46 49 45 44 20 42 59 20 54 48 45 20 44 43 2d 43 48 41 52 53 00 29 01 3a 00 04 00 50 00 29 01 60 00 1a 00 50 20 4d 4f 56 45 20 54 43 55 52 50 4f 53 2c 3d 58 27 30 31 30 31 27 00 29 01 68 00 24 00 50 20 54 42 46 20 54 44 43 32 2c ┆PECIFIED BY THE DC-CHARS ) : P ) ` P MOVE TCURPOS,=X'0101' ) h $ P TBF TDC2,┆
0x0cf2…0d42 (10, 0, 400) 55 4e 50 30 32 31 20 44 43 32 20 53 50 45 43 49 46 49 45 44 3f 20 00 29 01 86 00 22 00 50 20 43 4c 45 41 52 20 54 44 43 33 20 59 45 53 2c 20 4f 56 45 52 52 49 44 45 20 44 43 33 20 00 2a 00 1e 00 0a 00 50 55 4e 50 30 32 31 00 2a 00 44 00 22 ┆UNP021 DC2 SPECIFIED? ) " P CLEAR TDC3 YES, OVERRIDE DC3 * PUNP021 * D "┆
0x0d42…0d92 00 50 20 54 42 46 20 54 44 43 31 2c 55 4e 50 30 32 32 20 53 4f 55 4e 44 20 41 4c 41 52 4d 20 3f 00 2a 00 52 00 20 00 50 20 4d 4f 56 45 20 54 53 54 52 34 2c 3d 58 27 32 42 32 42 30 37 27 20 42 45 45 50 20 00 2a 00 78 00 1c 00 50 20 57 52 49 ┆ P TBF TDC1,UNP022 SOUND ALARM ? * R P MOVE TSTR4,=X'2B2B07' BEEP * x P WRI┆
0x0d92…0de2 54 45 20 44 53 44 59 2c 54 53 54 52 34 2c 43 42 49 4e 34 20 00 2a 00 9c 00 0a 00 50 55 4e 50 30 32 32 00 2a 00 bc 00 24 00 50 20 54 42 46 20 54 44 43 32 2c 55 4e 50 30 32 34 20 43 4c 45 41 52 20 53 43 52 45 45 4e 20 3f 20 00 2a 00 ca 00 2a ┆TE DSDY,TSTR4,CBIN4 * PUNP022 * $ P TBF TDC2,UNP024 CLEAR SCREEN ? * *┆
0x0de2…0e32 00 50 20 4d 4f 56 45 20 54 42 49 4e 31 2c 3d 58 27 31 36 30 31 27 20 53 54 41 52 54 49 4e 47 20 50 4f 53 49 54 49 4f 4e 00 2a 00 f2 00 2c 00 50 20 4d 4f 56 45 20 54 42 49 4e 32 2c 3d 57 27 38 30 27 20 4e 42 52 20 4f 46 20 43 48 41 52 53 20 ┆ P MOVE TBIN1,=X'1601' STARTING POSITION * , P MOVE TBIN2,=W'80' NBR OF CHARS ┆
0x0e32…0e82 54 4f 20 45 52 41 53 45 00 2a 01 20 00 0a 00 50 55 4e 50 30 32 33 00 2a 01 50 00 28 00 50 20 44 53 43 31 20 44 53 44 59 2c 50 4f 53 2c 54 42 49 4e 31 20 50 4f 53 49 54 49 4f 4e 20 43 55 52 53 4f 52 00 2a 01 5e 00 26 00 50 20 44 53 43 31 20 ┆TO ERASE * PUNP023 * P ( P DSC1 DSDY,POS,TBIN1 POSITION CURSOR * ^ & P DSC1 ┆
0x0e82…0ed2 (11, 0, 400) 44 53 44 59 2c 45 52 41 53 45 2c 54 42 49 4e 32 20 45 52 41 53 45 20 4c 49 4e 45 20 00 2a 01 8a 00 2c 00 50 20 53 55 42 20 54 42 49 4e 31 2c 3d 58 27 30 31 30 30 27 20 4f 4e 45 20 4c 49 4e 45 20 55 50 2c 20 50 4c 45 41 53 45 20 00 2b 00 24 ┆DSDY,ERASE,TBIN2 ERASE LINE * , P SUB TBIN1,=X'0100' ONE LINE UP, PLEASE + $┆
0x0ed2…0f22 00 3a 00 50 20 43 42 4e 45 20 54 42 49 4e 31 2c 43 42 49 4e 31 2c 55 4e 50 30 32 33 20 55 4e 54 49 4c 20 57 45 20 53 48 4f 55 4c 44 20 45 52 41 53 45 20 4c 49 4e 45 20 30 20 00 2b 00 54 00 0a 00 50 55 4e 50 30 32 34 00 2b 00 92 00 24 00 50 ┆ : P CBNE TBIN1,CBIN1,UNP023 UNTIL WE SHOULD ERASE LINE 0 + T PUNP024 + $ P┆
0x0f22…0f72 20 54 42 46 20 54 44 43 33 2c 55 4e 50 30 32 35 20 44 43 33 20 53 50 45 43 49 46 49 45 44 3f 20 00 2b 00 a0 00 1c 00 50 5c 5c 5c 43 4c 45 41 52 20 41 4c 4c 20 55 4e 50 52 4f 54 45 43 54 45 44 00 2b 00 c8 00 1e 00 50 5c 5c 5c 41 4e 44 20 52 ┆ TBF TDC3,UNP025 DC3 SPECIFIED? + P CLEAR ALL UNPROTECTED + P AND R┆
0x0f72…0fc2 45 53 45 54 20 4d 4f 44 49 46 49 45 44 20 44 41 54 41 00 2b 00 e8 00 1e 00 50 5c 5c 5c 54 41 47 53 20 4f 4e 20 43 4c 45 41 52 45 44 20 46 49 45 4c 44 53 20 00 2b 01 0a 00 16 00 50 20 4d 4f 56 45 20 54 42 49 4e 33 2c 43 42 49 4e 30 20 00 2b ┆ESET MODIFIED DATA + P TAGS ON CLEARED FIELDS + P MOVE TBIN3,CBIN0 +┆
0x0fc2…1012 01 2c 00 0c 00 50 55 4e 50 30 32 34 41 20 00 2b 01 46 00 2a 00 50 20 58 43 4f 50 59 20 54 53 54 52 31 2c 43 42 49 4e 30 2c 43 42 49 4e 31 2c 54 53 43 52 42 55 46 2c 54 42 49 4e 33 00 2b 01 56 00 24 00 50 20 43 42 45 20 54 53 54 52 31 2c 45 ┆ , PUNP024A + F * P XCOPY TSTR1,CBIN0,CBIN1,TSCRBUF,TBIN3 + V $ P CBE TSTR1,E┆
0x1012…1062 (12, 0, 400) 54 58 2c 55 4e 50 30 32 35 20 46 49 4e 49 53 48 45 44 20 3f 00 2b 01 84 00 14 00 50 20 41 44 44 20 54 42 49 4e 33 2c 43 42 49 4e 31 00 2c 00 1c 00 40 00 50 20 58 43 4f 50 59 20 54 43 55 52 50 4f 53 2c 43 42 49 4e 30 2c 43 42 49 4e 32 2c 54 ┆TX,UNP025 FINISHED ? + P ADD TBIN3,CBIN1 , @ P XCOPY TCURPOS,CBIN0,CBIN2,T┆
0x1062…10b2 53 43 52 42 55 46 2c 54 42 49 4e 31 20 4d 4f 56 45 20 43 55 52 53 4f 52 41 44 44 52 45 53 53 20 00 2c 00 34 00 1a 00 50 20 44 53 43 31 20 44 53 44 59 2c 50 4f 53 2c 54 43 55 52 50 4f 53 00 2c 00 78 00 14 00 50 20 41 44 44 20 54 42 49 4e 33 ┆SCRBUF,TBIN1 MOVE CURSORADDRESS , 4 P DSC1 DSDY,POS,TCURPOS , x P ADD TBIN3┆
0x10b2…1102 2c 43 42 49 4e 32 00 2c 00 96 00 16 00 50 20 4d 4f 56 45 20 54 42 49 4e 38 2c 43 42 49 4e 30 20 00 2c 00 ae 00 3a 00 50 20 58 43 4f 50 59 20 54 42 49 4e 38 2c 43 42 49 4e 31 2c 43 42 49 4e 31 2c 54 53 43 52 42 55 46 2c 54 42 49 4e 33 20 53 ┆,CBIN2 , P MOVE TBIN8,CBIN0 , : P XCOPY TBIN8,CBIN1,CBIN1,TSCRBUF,TBIN3 S┆
0x1102…1152 41 56 45 20 41 54 54 52 49 42 55 54 45 20 00 2c 00 c8 00 16 00 50 20 4d 4f 56 45 20 54 42 49 4e 36 2c 54 42 49 4e 33 20 00 2c 01 06 00 14 00 50 20 41 44 44 20 54 42 49 4e 33 2c 43 42 49 4e 31 00 2c 01 20 00 16 00 50 20 4d 4f 56 45 20 54 42 ┆AVE ATTRIBUTE , P MOVE TBIN6,TBIN3 , P ADD TBIN3,CBIN1 , P MOVE TB┆
0x1152…11a2 49 4e 37 2c 43 42 49 4e 30 20 00 2c 01 38 00 18 00 50 20 50 45 52 46 20 46 49 4e 44 4c 4e 2c 54 53 43 52 42 55 46 00 2c 01 52 00 1a 00 50 20 44 53 43 31 20 44 53 44 59 2c 45 52 41 53 45 2c 54 42 49 4e 37 00 2c 01 6e 00 18 00 50 20 4d 4f 56 ┆IN7,CBIN0 , 8 P PERF FINDLN,TSCRBUF , R P DSC1 DSDY,ERASE,TBIN7 , n P MOV┆