> .title SAVSCR -- Save a screen image in LB0:[ZZSYS]SCREEN.SAV .ident /V01.03/ ; Link /PR:5, PRI=250.- ; By Nick Zymaris -- Box S-1768 -- 1-NOV-84e+ ; Improved to eliminate TKTN msg 6-JAN-85N( ; FCS/virtual block I/O added 9-JAN-85 par4=177650 pdr4=177610 begin=100000: end=120000-2 - .mcall qio$s, mrkt$s, stse$s, exit$s, fcsmc$ " fcsmc$ ; .MCALL most FCS macros fsrsz$ 1 ; 1 filei%fdb: fdbdf$ ; File descriptor block$ fdop$a 1,dsptdspt: .word devlen ; Device .word devnam. .word dirlen ; Directory .word dirnamZ .word fillen ; Filename0 .word filnamRdevnam: .ascii /LB0:/ devlen=.-devnamdirnam: .ascii /[ZZSYS]/ dirlen=.-dirnamfilnam: .ascii /SCREEN.SAV/a fillen=.-filnam .eveniostat: .blkw 2p-start: open$m #fdb ; Open with modify accessl bcs exitk mov #140000,r4$ bis #6,pdr4 mov #begin,r0 mov #end,r1 mov #1,r3 ; VBN #12$: mov r4,par4 J1$: qio$s #io.wvb,#1,#2,,#iostat,,; Write screen to diskA cmpb iostat,#ie.eof ; To prevent writing past EOF on short filesd beq close 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: close$ #fdb ; Close output file.;exit: mrkt$s #3,#1,#2 ; Sleep on EFN 3 to prevent TKTN msg.i5 stse$s #3 ; resulting from alleged outstanding I/O exit$si .end startn