mirror of
https://github.com/antoinevignau/source.git
synced 2024-11-12 09:05:23 +00:00
4d4fb6a665
Some old (WIP) disassemblies and my own source code now available online.
29 lines
431 B
ArmAsm
29 lines
431 B
ArmAsm
*----------------------------------------
|
|
* True Convert : Count Colors
|
|
*----------------------------------------
|
|
|
|
|
|
meCOUNT PushLong #65536
|
|
PushLong #strZERO
|
|
PushWord #5
|
|
PushWord #0
|
|
_Long2Dec
|
|
|
|
PushLong #255
|
|
PushLong #strONE
|
|
PushWord #5
|
|
PushWord #0
|
|
_Long2Dec
|
|
|
|
pha
|
|
PushWord #4
|
|
PushLong #strARRAY
|
|
PushLong #2 ; Count colors
|
|
_AlertWindow
|
|
pla
|
|
rts
|
|
|
|
strARRAY adrl strZERO,strONE
|
|
strZERO asc ' '00
|
|
strONE asc ' '00
|