6502/xasm
1
0
Fork 0
mirror of https://github.com/pfusik/xasm.git synced 2024-06-07 11:29:32 +00:00
Code Issues Projects Releases Wiki Activity

X-HEAD 1.1.

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
xhead.asm
View File

@ -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