A .title RESSCR -- Restore screen image from LB0:[ZZSYS]SCREEN.SAVK .ident /V01.03/ ; Link /PR:5, PRI=250.- ; By Nick Zymaris -- Box S-1768 -- 1-NOV-84t+ ; Improved to eliminate TKTN msg 6-JAN-85r( ; FCS/virtual block I/O added 9-JAN-85 par4=177650 pdr4=177610 begin=100000 end=120000-2v- .mcall qio$s, mrkt$s, stse$s, exit$s, fcsmc$c" fcsmc$ ; .MCALL most FCS macros fsrsz$ 1 ; 1 file,'fdbin: fdbdf$ ; File descriptor block0 fdop$a 1,dspt ; LUN 1 dspt: .word devlen ; Device .word devnam .word dirlen ; Directory .word dirnamA .word fillen ; Filenamek .word filnam.devnam: .ascii /LB0:/B devlen=.-devnamdirnam: .ascii /[ZZSYS]/ dirlen=.-dirnamfilnam: .ascii /SCREEN.SAV/ fillen=.-filnam .evenstart: open$r #fdbin bcs exit mov #140000,r4. bis #6,pdr4 mov #begin,r0 mov #end,r1 mov #1,r3 ; VBN #12$: mov r4,par4D1$: qio$s #io.rvb,#1,#2,,,, ; Read: Disk to screen add #10000,r0 add #10,r3 ; increment LBN cmp r0,r1 blos 1$ add #200,r4 mov #begin,r0 cmp r4,#140600. blos 2$" close$ #fdbin ; Close input file;exit: mrkt$s #3,#1,#2 ; Sleep on EFN 3 to prevent TKTN msg.S5 stse$s #3 ; resulting from alleged outstanding I/Of exit$si .end start