Home » Personal collection » Acorn ADFS disks » Greaseweazled » adfs_Dominic_2.adf » PrinterDMs/!PrinterDM/!Run

PrinterDMs/!PrinterDM/!Run

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn ADFS disks » Greaseweazled » adfs_Dominic_2.adf
Filename: PrinterDMs/!PrinterDM/!Run
Read OK:
File size: 0208 bytes
Load address: FFFFEB43
Exec address: 8ADC8FC6
Duplicates

There are 3 duplicate copies of this file in the archive:

File contents
| >!Run V 0.82 (14-Dec-88)
Wimpslot -min 56K -max 56K
if "<$Printing>"<>"" then error 42 Printer in use
Set PDriver$Dir <Obey$Dir>
if "<Printer$Scrap>" = "" OR "<Printer$Scrap>" RIGHT 6 = "!Scrap" then set Printer$Scrap <PDriver$Dir>.DM!Scrap
if "<Printer$Temp>" = "" OR "<Printer$Temp>" RIGHT 5 = "!Temp" then set Printer$Temp <PDriver$Dir>.DM!Temp
| set the printer
rmload <PDriver$Dir>.PDriverDM
| don't RMEnsure as we are probably replacing some other printer
set File$Type_FF4 "DM data"
Run <PDriver$Dir>.!RunImage
00000000  7c 20 3e 21 52 75 6e 20  56 20 30 2e 38 32 20 28  || >!Run V 0.82 (|
00000010  31 34 2d 44 65 63 2d 38  38 29 0a 57 69 6d 70 73  |14-Dec-88).Wimps|
00000020  6c 6f 74 20 2d 6d 69 6e  20 35 36 4b 20 2d 6d 61  |lot -min 56K -ma|
00000030  78 20 35 36 4b 0a 69 66  20 22 3c 24 50 72 69 6e  |x 56K.if "<$Prin|
00000040  74 69 6e 67 3e 22 3c 3e  22 22 20 74 68 65 6e 20  |ting>"<>"" then |
00000050  65 72 72 6f 72 20 34 32  20 50 72 69 6e 74 65 72  |error 42 Printer|
00000060  20 69 6e 20 75 73 65 0a  53 65 74 20 50 44 72 69  | in use.Set PDri|
00000070  76 65 72 24 44 69 72 20  3c 4f 62 65 79 24 44 69  |ver$Dir <Obey$Di|
00000080  72 3e 0a 69 66 20 22 3c  50 72 69 6e 74 65 72 24  |r>.if "<Printer$|
00000090  53 63 72 61 70 3e 22 20  3d 20 22 22 20 4f 52 20  |Scrap>" = "" OR |
000000a0  22 3c 50 72 69 6e 74 65  72 24 53 63 72 61 70 3e  |"<Printer$Scrap>|
000000b0  22 20 52 49 47 48 54 20  36 20 3d 20 22 21 53 63  |" RIGHT 6 = "!Sc|
000000c0  72 61 70 22 20 74 68 65  6e 20 73 65 74 20 50 72  |rap" then set Pr|
000000d0  69 6e 74 65 72 24 53 63  72 61 70 20 3c 50 44 72  |inter$Scrap <PDr|
000000e0  69 76 65 72 24 44 69 72  3e 2e 44 4d 21 53 63 72  |iver$Dir>.DM!Scr|
000000f0  61 70 0a 69 66 20 22 3c  50 72 69 6e 74 65 72 24  |ap.if "<Printer$|
00000100  54 65 6d 70 3e 22 20 3d  20 22 22 20 4f 52 20 22  |Temp>" = "" OR "|
00000110  3c 50 72 69 6e 74 65 72  24 54 65 6d 70 3e 22 20  |<Printer$Temp>" |
00000120  52 49 47 48 54 20 35 20  3d 20 22 21 54 65 6d 70  |RIGHT 5 = "!Temp|
00000130  22 20 74 68 65 6e 20 73  65 74 20 50 72 69 6e 74  |" then set Print|
00000140  65 72 24 54 65 6d 70 20  3c 50 44 72 69 76 65 72  |er$Temp <PDriver|
00000150  24 44 69 72 3e 2e 44 4d  21 54 65 6d 70 0a 7c 20  |$Dir>.DM!Temp.| |
00000160  73 65 74 20 74 68 65 20  70 72 69 6e 74 65 72 0a  |set the printer.|
00000170  72 6d 6c 6f 61 64 20 3c  50 44 72 69 76 65 72 24  |rmload <PDriver$|
00000180  44 69 72 3e 2e 50 44 72  69 76 65 72 44 4d 0a 7c  |Dir>.PDriverDM.||
00000190  20 64 6f 6e 27 74 20 52  4d 45 6e 73 75 72 65 20  | don't RMEnsure |
000001a0  61 73 20 77 65 20 61 72  65 20 70 72 6f 62 61 62  |as we are probab|
000001b0  6c 79 20 72 65 70 6c 61  63 69 6e 67 20 73 6f 6d  |ly replacing som|
000001c0  65 20 6f 74 68 65 72 20  70 72 69 6e 74 65 72 0a  |e other printer.|
000001d0  73 65 74 20 46 69 6c 65  24 54 79 70 65 5f 46 46  |set File$Type_FF|
000001e0  34 20 22 44 4d 20 64 61  74 61 22 0a 52 75 6e 20  |4 "DM data".Run |
000001f0  3c 50 44 72 69 76 65 72  24 44 69 72 3e 2e 21 52  |<PDriver$Dir>.!R|
00000200  75 6e 49 6d 61 67 65 0a                           |unImage.|
00000208
PrinterDMs/!PrinterDM/!Run.m0
PrinterDMs/!PrinterDM/!Run.m1
PrinterDMs/!PrinterDM/!Run.m2
PrinterDMs/!PrinterDM/!Run.m4
PrinterDMs/!PrinterDM/!Run.m5