|
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: 1598 (0x63e)
Notes: pts_type(SC)
Names: »MOD805.SC«
└─⟦26dca8ec8⟧ Bits:30009711 Philips computer tape "RÅKON-DIVFMT"
└─⟦this⟧ »REMIT2/MOD805.SC«
IDENT MOD805 830819 NJ DDUM KMD08 PDIV ENTRY BCHKPR ENTRY STREDT ENTRY AD46 ENTRY MEMIX1 ENTRY MEMIX2 ENTRY UPDMEM ENTRY DIVRUT INCLUDE EQUATE BCHKPR PROC P CMP CBIN0,CBIN0 RET PEND STREDT PROC CMP CBIN0,CBIN0 RET PEND AD46 PROC RET PEND MEMIX1 PROC A,B,C CMP CBIN0,CBIN0 RET PEND MEMIX2 PROC CMP CBIN0,CBIN0 RET PEND UPDMEM PROC CMP CBIN0,CBIN0 RET PEND DIVRUT PROC P IB P,DIV010,DIV020,DIV030,DIV040, C DIV050,DIV060,DIV070,DIV080,DIV090 B DIVREX DIV010 DIV030 DIV040 DIV050 DIV060 DIV070 DIV080 DIV090 DIVREX RET DIV020 MOVE CTXBUF,=C'BRONDERSLEV KOMMUNE ' MOVE GSWSTR1,=X'5C' XCOPY CTXBUF,CBIN2,CBIN1,GSWSTR1,CBIN0 RET PEND END