[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
USR() SCRN?
- Subject: USR() SCRN?
- From: lyricalnanoha@dosius.ath.cx (Steve Nickolas)
- Date: Thu, 25 Feb 2010 20:46:11 +0000 (UTC)
- Newsgroups: comp.sys.apple2
- Organization: Mac GUI
- User-agent: Mac GUI City Usenet Posting
- Xref: g2news1.google.com comp.sys.apple2:14337
The methodology for handling USR applies the same to EHBASIC (where I intend
to use it) and FPBASIC (which is the dominant BASIC interpreter around these
parts), so perhaps someone knows. I want to implement SCRN( as a USR
function (so as not to have to muddle with the token table again), but every
way I am attempting to implement it is causing me a Syntax Error.
The code in FPBASIC is:
DEF9: 20 B1 00 screen: jsr chrget
DEFC: 20 EC F1 jsr plotfns ; get column and row
DEFF: 8A txa ; row
DF00: A4 F0 ldy first ; column
DF02: 20 71 F8 jsr scrn ; get 4-bit color there
DF05: A8 tay
DF06: 20 01 E3 jsr sngflt ; convert Y to real in FAC
DF09: 4C B8 DE jmp chkcls ; require ')'
-uso.