X-HEAD 1.1.

This commit is contained in:
Piotr Fusik 1998-09-23 16:15:58 +02:00
parent 94cbe9523c
commit 1a4cc32494
1 changed files with 14 additions and 4 deletions

View File

@ -39,7 +39,17 @@ nousg: lea dx, [di-1]
repne scasb
jne okend
dec di
okend: mov [byte di], 0
okend: mov si, di
mov cx, di
sub cx, dx
adex1: dec si
cmp [byte si], '.'
je adexn
cmp [byte si], '\'
loopne adex1
adex2: mov eax, 'XBO.'
stosd
adexn: mov [byte di], 0
fopen
call read
@ -122,9 +132,9 @@ pdig: d2a
popa
ret
hello db 'X-HEAD 1.0 by Fox/Taquart',eot
usgtxt db 'You must specify a file to analyze.',eot
notbin db 'File is not Atari executable!',eot
hello db 'X-HEAD 1.1 by Fox/Taquart',eot
usgtxt db 'Syntax: XHEAD obxfile',eot
notbin db 'File is not an Atari executable!',eot
smarterr
byttxt db ' bytes',eot
blotxt db ' blocks',eot