|
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: 7606 (0x1db6)
Notes: pts_type(SC)
Names: »MOD539.SC«
└─⟦26dca8ec8⟧ Bits:30009711 Philips computer tape "RÅKON-DIVFMT"
└─⟦this⟧ »REMIT2/MOD539.SC«
IDENT MOD539 820922 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 * PRINT BUNDTCHECKS * P = 0 BCHK10 - ADJUST PRINTER * P = 1 BCHK20 - LEV + TRANS 1 * P = 2 BCHK30 - TRANS 2 * P = 3 BCHK40 - TRANS 3 + PRINT * P = 4 BCHK50 - PRINT MOVE GSWBIN8,P ADD GSWBIN8,CBIN1 IB GSWBIN8,BCHK10,BCHK20,BCHK30,BCHK40,BCHK50 B BCHK90 * BCHK10 PRINTER ADJUST PERF FMREMP,CBIN1 GET FORMAT FBDTCHK MOVE SPINPUT,='X' MOVE GSWBIN5,CBIN16 BCHK15 PERF FMOD,GSWBIN5,SPINPUT WITH X SUB GSWBIN5,CBIN1 CBG GSWBIN5,CBIN0,BCHK15 B BCHK65 PRINT IT * BCHK20 INITIATE LEV + 1. TRANS PERF FMREMP,CBIN1 GET FORMAT FBDTCHK PERF FMOD,CBIN8,GTLEVNVN PERF FMOD,CBIN11,GTLEVADR PERF FMOD,CBIN13,GTLEVBY EDIT GSWSTR9,FPNR PERF FMOD,CBIN14,GSWSTR9 PERF FMOD,CBIN15,GTLEVPDI * MOVE GTBSUM1,GTDUPF(CBIN4) PERF TXTEDT,CBIN1,CBIN1 B BCHK90 * BCHK30 ADD GTBSUM1,GTDUPF(CBIN4) PERF TXTEDT,CBIN1,CBIN2 B BCHK90 * BCHK40 ADD GTBSUM1,GTDUPF(CBIN4) PERF TXTEDT,CBIN1,CBIN3 B BCHK60 * BCHK50 CBE GSWBCD5,=D'1',BCHK90 NOTHING TO PRINT ? BCHK60 EDIT SPINPUT,FREMTOT1 PERF FMOD,CBIN4,SPINPUT PERF FMOD,CBIN16,SPINPUT PERF FSOLVE BCHK65 MOVE GTBSUM1,=D'0' PERF GENWRS,GTHCDEV,EDITBUF PERF NEWLIN,CBIN7 TBF GTCHKPR,BCHK70 PERF NEWLIN,CBIN1 EXTRA LINEFEED ? CLEAR GTCHKPR B BCHK90 BCHK70 SET GTCHKPR BCHK90 CMP CBIN0,CBIN0 RET PEND EJECT 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 CMP CBIN0,CBIN0 RET PEND MEMIX2 PROC CMP CBIN0,CBIN0 RET PEND UPDMEM PROC CMP CBIN0,CBIN0 RET PEND EJECT 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'TINGLEV KOMMUNE ' RET * PEND END