|
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: 1368 (0x558)
Notes: pts_type(SC)
Names: »FINDLN.SC«
└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
└─⟦this⟧ »BARCLAY/FINDLN.SC«
└─⟦this⟧ »BARCLAY/FINDLN.SC«
└─⟦e276fd206⟧ Bits:30009696 Philips computer tape "600413"
└─⟦this⟧ »BARCLAY/FINDLN.SC«
IDENT FINDLN 80.11.03 NJ DDUM NJDDIV PDIV ENTRY FINDLN EXPROC PUSH,PBIN EXPROC PULL,PBIN * * INCLUDE EQUATE * * EJECT FINDLN PROC BUF,PT,LEN PSTRG BUF PBIN PT,LEN * * THE PROCEDURE FINDS THE LENGTH OF THE ACTUAL FIELD. * DELIMITERS ARE ETX AND ESC * TP1 IS UPDATED WITH THE LENGTH OF THE FIELD. * * PREREQUISITS * PT - POINTING AT THE BYTE WHERE TO COUNT FROM * * TP1 MUST CONTAIN A STARTINGVALUE * TYPICAL 0 (IF YOU POINT AT THE DATA AND WANT * TO KNOW THE LENGTH OF THE FIELD * OR 1 (IF YOU POINT JUST AFTER THE <ESC> * OR 4 (IF YOU POINT AT THE DATA AND WANT THE * LENGTH OF THE COMPLETE FIELD DESCR. ) * PERF PUSH,CBIN2 MOVE TBIN2,LEN HOW MANY BYTES TO SCAN ? MOVE TBIN1,PT FIN010 XCOPY TSTR1,CBIN0,CBIN1,BUF,TBIN1 CBE TSTR1,ETX,FIN090 CBE TSTR1,ESC,FIN090 ADD TP1,CBIN1 INCREMENT LENGTH ADD TBIN1,CBIN1 SUB TBIN2,CBIN1 BP FIN010 CONTINUE UNTIL DELIMITER FOUND OR LENGTH REACHED FIN090 LENGTH FOUND (TP1) PERF PULL,CBIN2 RET PEND END