Nie znam asm, ale na podstawie tego co można znaleźć w kilku moich ulubionych książkach udało mi się stworzyć procedurki do rysowania i pisania na ekranie. Dumny jestem z printa, który wykorzystuje feature Actionowego “string constant”, czyli fakt, że element zerowy łańcucha napisu zawiera długość napisu, którą wydłubujemy w asm i podajemy w ICBLL, określając długość bufora.
MYGR.ACT
include "H1:ASMINC.ACT"
proc main()
int r
card savmsc=88
card textaddr=660
byte bkg=710
byte array dltb=[ 112 112 112 66 96 159 72
112 158 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8
8 8 8 8 65 78 158 ]
card dlist=560
graphics(3)
bkg=0
dlist=dltb
textaddr=40800
savmsc=40560
print("ACTION! rules")
for r=0 to 18 step 2 do
plot(0+r,0+r) drawto(0+r,10+r)
plot(0+r,10+r) drawto(10+r,10+r)
plot(10+r,10+r) drawto(10+r,0+r)
plot(10+r,0+r) drawto(0+r,0+r)
od
do od
MYLIB.ASM
org $600
graphics pha
ldx #$60
lda #close
sta iccom,x
jsr ciov
lda #open
sta iccom,x
lda <fname
sta icbal,x
lda >fname
sta icbah,x
pla
sta icaux2,x
and #$f0
eor #$10
ora #opnino
sta icaux1,x
jmp ciov
rts
; org $62b
position sty colcrs
stx colcrs+1
sta rowcrs
rts
; org $632
plot jsr position
ldx #$60
lda #putchr
sta iccom,x
lda #$0
sta icbll,x
sta icblh,x
lda color
jmp ciov
rts
; org $64b
drawto jsr position
lda color
sta atachr
ldx #$60
lda #drawln
sta iccom,x
lda #opnino
sta icaux1, x
lda #$0
sta icaux2, x
jmp ciov
rts
; org $669
print clc
sta $d4
stx $d5
ldx #0
adc #1 ;leave 0-th element
sta icbal,x
lda #putrec
sta iccom,x
lda $d5
sta icbah,x
lda #0
sta icblh,x
ldy #0
lda ($d4),y ;buflen from string
sta icbll,x ;constant's 0-th element
jsr ciov
rts
atachr equ $2fb
drawln equ $11
opnino equ $c
icaux1 equ $34a
icaux2 equ $34b
fname dta c 'S:'
colcrs equ $55
rowcrs equ $54
putchr equ $0b
icbal equ $344
icbah equ $345
iccom equ $342
icbll equ $348
icblh equ $349
color .db 1
ciov equ $e456
putrec equ $9
getrec equ $5
open equ $03
close equ $0c
Przy tego typu łączeniu kodu asm z Action! adresy procedur najbezpieczniej wziąć z listingu wygenerowanego madsem (opcja -l:ASMINC.lst).
ASMINC.ACT
proc graphics=$600(byte m)
proc position=$62B(card c, byte r)
proc plot=$632(card c, byte r)
proc drawto=$64B(card c, byte r)
proc print=$669(card msg)
Wiem że da się to zrobić lepiej ale i tak jestem z siebie dumny 
Jak widać Action przekazuje parametry procedur przez akumulator i rejestry X i Y (a jeśli jest ich więcej, również przez stronę zerową). W print() adres napisu maglujemy w postaci LSB,MSB. MYLIB.ASM madsujemy i cat-ujemy MYLIB.OBX z binarką MGR.XEX.
Ciekawe jest to, że powyższy przykład w Action! po kompilacji z Runtime Action! albo uruchomieniu z cartem się wykrzacza, a działa po “zlinkowaniu” z ASMLIB.obx. Domyślam się, że chodzi o współrzędne podawane plot() i drawto(). Zapewne w przypadku procedur z carta i runtime generują one coś w stylu error 141, a procedurki w asm nie sprawdzają zakresu współrzędnych i jadą dalej poza pamięcią obrazu… Na chwilę obecną nie jestem w stanie tego lepiej wytłumaczyć. Ważne że działa.
Konwertować do bloków kodu [] mi się tego póki co nie chce, ale pewnie niebawem i to przetrenuje.
Kolejny, ważniejszy krok, to stworzenie procedur piszących bezpośrednio do pamięci ekranu danego trybu graficznego. JHusak kiedyś wspominał o szybkim plot(), jest nawet o tym wzmianka w FAQ o Action! atarionline.pl, ale od jakiegoś czasu ten link się zapętla.
