mirror of
https://github.com/pfusik/xasm.git
synced 2024-09-23 16:55:06 +00:00
X-HEAD 1.1.
This commit is contained in:
parent
94cbe9523c
commit
1a4cc32494
18
xhead.asm
18
xhead.asm
@ -39,7 +39,17 @@ nousg: lea dx, [di-1]
|
|||||||
repne scasb
|
repne scasb
|
||||||
jne okend
|
jne okend
|
||||||
dec di
|
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
|
fopen
|
||||||
|
|
||||||
call read
|
call read
|
||||||
@ -122,9 +132,9 @@ pdig: d2a
|
|||||||
popa
|
popa
|
||||||
ret
|
ret
|
||||||
|
|
||||||
hello db 'X-HEAD 1.0 by Fox/Taquart',eot
|
hello db 'X-HEAD 1.1 by Fox/Taquart',eot
|
||||||
usgtxt db 'You must specify a file to analyze.',eot
|
usgtxt db 'Syntax: XHEAD obxfile',eot
|
||||||
notbin db 'File is not Atari executable!',eot
|
notbin db 'File is not an Atari executable!',eot
|
||||||
smarterr
|
smarterr
|
||||||
byttxt db ' bytes',eot
|
byttxt db ' bytes',eot
|
||||||
blotxt db ' blocks',eot
|
blotxt db ' blocks',eot
|
||||||
|
Loading…
Reference in New Issue
Block a user