mirror of
https://github.com/jeremysrand/Apple2GSBuildPipeline.git
synced 2025-02-08 08:30:25 +00:00
94 lines
1.5 KiB
ArmAsm
94 lines
1.5 KiB
ArmAsm
*
|
|
* ___FILENAME___
|
|
* ___PROJECTNAME___
|
|
*
|
|
* Created by ___FULLUSERNAME___ on ___DATE___.
|
|
* ___COPYRIGHT___
|
|
*
|
|
|
|
]XCODESTART ; Keep this at the start and put your code after this
|
|
|
|
mx %00
|
|
|
|
use 4/Util.Macs
|
|
use 4/Text.Macs
|
|
|
|
str '___PROJECTNAME___'
|
|
adrl startCda
|
|
adrl shutdownCda
|
|
|
|
startCda
|
|
phb
|
|
phk
|
|
plb
|
|
|
|
pha
|
|
pha
|
|
pha
|
|
_GetInputDevice
|
|
|
|
pha
|
|
pha
|
|
_GetInGlobals
|
|
|
|
pha
|
|
pha
|
|
pha
|
|
_GetOutputDevice
|
|
|
|
pha
|
|
pha
|
|
_GetOutGlobals
|
|
|
|
PushLong #0
|
|
PushWord #3
|
|
_SetInputDevice
|
|
|
|
PushWord #$7f
|
|
PushWord #0
|
|
_SetInGlobals
|
|
|
|
PushLong #0
|
|
PushWord #3
|
|
_SetOutputDevice
|
|
|
|
PushWord #$ff
|
|
PushWord #$80
|
|
_SetOutGlobals
|
|
|
|
PushWord #0
|
|
_InitTextDev
|
|
|
|
PushWord #1
|
|
_InitTextDev
|
|
|
|
PushWord #$0c
|
|
_WriteChar
|
|
|
|
PushLong #message
|
|
_WriteCString
|
|
|
|
pha
|
|
PushWord #0
|
|
_ReadChar
|
|
pla
|
|
|
|
_SetOutGlobals
|
|
_SetOutputDevice
|
|
_SetInGlobals
|
|
_SetInputDevice
|
|
~InitTextDev #0
|
|
~InitTextDev #1
|
|
|
|
plb
|
|
rtl
|
|
|
|
shutdownCda
|
|
rtl
|
|
|
|
|
|
message
|
|
asc 'Hello, world!',0d,0d,' Press ENTER to quit...',00
|
|
|
|
]XCODEEND ; Keep this at the end and put your code above this
|