|
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: 4560 (0x11d0)
Notes: pts_type(SC)
Names: »MOD569.SC«
└─⟦26dca8ec8⟧ Bits:30009711 Philips computer tape "RÅKON-DIVFMT"
└─⟦this⟧ »REMIT2/MOD569.SC«
IDENT MOD569 820720 NJ DDUM KMD08 PDIV ENTRY BCHKPR ENTRY STREDT ENTRY AD46 ENTRY MEMIX1 ENTRY MEMIX2 ENTRY UPDMEM ENTRY DIVRUT EXT NEWLIN EXT FMREMP EXT FMOD EXT GENWRS EXT TXTEDT EXT FSOLVE EXT CHDATO INCLUDE EQUATE EJECT BCHKPR PROC P CMP CBIN0,CBIN0 RET PEND STREDT PROC MOVE GSWSTR20,=X'00' MOVE SPINPUT,=X'00' MOVE GSWBIN7,GTTXTTKO MOVE TEXTCODE IB GSWBIN7,STRE03,STRE04,STRE05,STRE06,STRE07,STRE08 * NO FURTHER INFORMATION STRE03 EDIT SPINPUT,FREMINF1 B STRE80 * NR-1 STRE04 MOVE GSWBCD6,GTDUPF(CBIN13) NR-1 EDIT SPINPUT,FREMINF2 B STRE80 * NR-1 NR-2 STRE05 MOVE GSWBCD6,GTDUPF(CBIN13) NR-1 MOVE GSWBCD7,GTDUPF(CBIN14) NR-2 EDIT SPINPUT,FREMINF3 B STRE80 * DATO-1 STRE06 MOVE GSWBCD6,GTDUPF(CBIN18) DATO-1 CBL GSWBCD6,=D'800000',STRE06A PERF CHDATO MOVE GSWBCD6,GSWBCD7 STRE06A EDIT SPINPUT,FREMINF4 B STRE80 * DATO-1 DATO-2 STRE07 MOVE GSWBCD6,GTDUPF(CBIN18) CBL GSWBCD6,=D'800000',STRE07A PERF CHDATO MOVE GTDUPF(CBIN18),GSWBCD7 STRE07A MOVE GSWBCD6,GTDUPF(CBIN19) CBL GSWBCD6,=D'800000',STRE07B PERF CHDATO MOVE GTDUPF(CBIN19),GSWBCD7 STRE07B MOVE GSWBCD6,GTDUPF(CBIN18) MOVE GSWBCD7,GTDUPF(CBIN19) DATO-2 EDIT SPINPUT,FREMINF5 B STRE80 * NR-1 DATO-1 STRE08 MOVE GSWBCD6,GTDUPF(CBIN18) CBL GSWBCD6,=D'800000',STRE08A PERF CHDATO MOVE GTDUPF(CBIN18),GSWBCD7 STRE08A MOVE GSWBCD6,GTDUPF(CBIN13) NR-1 MOVE GSWBCD7,GTDUPF(CBIN18) DATO-1 EDIT SPINPUT,FREMINF6 STRE80 EDIT GSWSTR20,FREMBEL CMP CBIN0,CBIN0 RET PEND EJECT FREMINF1 FRMT FILLR ' ',21 FMEND FREMINF2 FRMT FMEL 'ZZZZZZZZZ9',GSWBCD6 FILLR ' ',11 FMEND FREMINF3 FRMT FMEL 'ZZZZZZZZZ9',GSWBCD6 FILLR ' ',1 FMEL 'ZZZZZZZZZ9',GSWBCD7 FMEND FREMINF4 FRMT FMEL '99V99V99',GSWBCD6 FILLR ' ',13 FMEND FREMINF5 FRMT FMEL '99V99V99',GSWBCD6 FILLR ' ',3 FMEL '99V99V99',GSWBCD7 FILLR ' ',2 FMEND FREMINF6 FRMT FMEL 'ZZZZZZZZZZ',GSWBCD6 FILLR ' ',1 FMEL '99V99V99',GSWBCD7 FILLR ' ',2 FMEND FPNR FRMT FMEL 'ZZZZ',GTLEVPNR FMEND FREMTOT1 FRMT FBT CBDTGIR,FRE110 FMEL '*******V**9,99-',GTBSUM1 FB FRE120 FRE110 FMEL 'ZZZZZZVZZ9BB99-',GTBSUM1 FRE120 FMEND FREMBEL FRMT FMEL 'BZZVZZZVZZ9,99-',GTDUPF(CBIN4) FMEND EJECT AD46 PROC RET PEND MEMIX1 PROC A,B,C RET PEND MEMIX2 PROC RET PEND UPDMEM PROC RET PEND DIVRUT PROC P IB P,DIV010,DIV020,DIV030,DIV040, C DIV050,DIV060,DIV070,DIV080,DIV090 B DIVREX DIV010 B DIVREX DIV020 DIV030 DIV040 DIV050 DIV060 DIV070 DIV080 DIV090 DIVREX RET PEND END