|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC850 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC850 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 256 (0x100) Types: TextFile Names: »PUT.SRC«
└─⟦e44a40b06⟧ Bits:30005968 SW1820/I8 RC855 Pascal MT+ Release 5.5 └─⟦this⟧ »PUT.SRC«
MODULE PUTREC; (*$M PUT*) (*$M **) (*$I 80rtp/fibdef.lib*) VAR @LFB: EXTERNAL ^FIB; EXTERNAL PROCEDURE @WNB; PROCEDURE PUT(VAR F:FIB; SZ:INTEGER); BEGIN @LFB := ADDR(F); @WNB (* GO WRITE BUFFER OUT *) END; MODEND. «eof»