mirror of
https://github.com/callapple/Twilight_II.git
synced 2026-03-11 06:41:51 +00:00
69 lines
921 B
NASM
69 lines
921 B
NASM
|
|
mcopy plot2.mac
|
|
keep plot2.c
|
|
case on
|
|
objcase on
|
|
copy 13/ainclude/e16.locator
|
|
copy 22:t2common.equ
|
|
|
|
* void init_plot(char * screenPtr, char * lookupPtr, char * targetStr)
|
|
|
|
init_plot Start
|
|
|
|
dpr equ 1
|
|
dbr equ dpr+2
|
|
rtlAddr equ dbr+1
|
|
screenPtr equ rtlAddr+3
|
|
lookupPtr equ screenPtr+4
|
|
targetStr equ lookupPtr+4
|
|
|
|
phb
|
|
phk
|
|
plb
|
|
phd
|
|
tsc
|
|
tcd
|
|
|
|
PushWord #t2PrivGetProcs
|
|
PushWord #stopAfterOne+sendToName
|
|
pei <targetStr+2
|
|
pei <targetStr
|
|
PushWord #8 ; start (3rd proc)
|
|
PushWord #24 ; end (thru 6th proc)
|
|
PushLong #plotDataOut
|
|
_SendRequest
|
|
|
|
pei <lookupPtr+2
|
|
pei <lookupPtr
|
|
pei <screenPtr+2
|
|
pei <screenPtr
|
|
jsl setup_plot
|
|
|
|
pld
|
|
plb
|
|
lda 1,s
|
|
sta 1+12,s
|
|
lda 2,s
|
|
sta 2+12,s
|
|
tsc
|
|
clc
|
|
adc #12
|
|
tcs
|
|
rtl
|
|
|
|
plotDataOut anop
|
|
ds 2
|
|
setup_plot entry
|
|
rtl
|
|
ds 3
|
|
get_pixel entry
|
|
rtl
|
|
ds 3
|
|
set_pixel entry
|
|
rtl
|
|
ds 3
|
|
getset_pixel entry
|
|
rtl
|
|
ds 3
|
|
|
|
End |