18 lines
1.1 KiB
Text
18 lines
1.1 KiB
Text
74 75 70 6E 69 20 65 74 65 6C 65 64 0000 1 dcl: .ascii "delete input.txt;,docs.dir;"
|
|
64 2E 73 63 6F 64 2C 3B 74 78 74 2E 000C
|
|
3B 72 69 0018
|
|
69 76 65 64 73 79 73 24 73 79 73 2C 001B 2 .ascii ",sys$sysdevice:[000000]input.txt;"
|
|
69 5D 30 30 30 30 30 30 5B 3A 65 63 0027
|
|
3B 74 78 74 2E 74 75 70 6E 0033
|
|
69 76 65 64 73 79 73 24 73 79 73 2C 003C 3 .ascii ",sys$sysdevice:[000000]docs.dir;"
|
|
64 5D 30 30 30 30 30 30 5B 3A 65 63 0048
|
|
3B 72 69 64 2E 73 63 6F 0054
|
|
005C 4
|
|
0000005C 005C 5 desc: .long .-dcl ;character count
|
|
00000000' 0060 6 .address dcl
|
|
0064 7
|
|
0000 0064 8 .entry main,0
|
|
F3 AF 7F 0066 9 pushaq desc
|
|
00000000'GF 01 FB 0069 10 calls #1, g^lib$do_command ;execute shell command
|
|
04 0070 11 ret
|
|
0071 12 .end main
|