|
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