6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2026-04-19 09:23:06 +00:00
Code Issues Projects Releases Wiki Activity

Start moving device specific code into conio

Browse Source
This commit is contained in:
David Schmenk
2025-02-21 08:45:59 -08:00
parent b135504044
commit b0846eac5f
3 changed files with 258 additions and 283 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/inc/conio.plh
+40
View File
@@ -4,6 +4,46 @@ import conio
const FLASH = $7F
const ECHO_ON = $80
const ECHO_OFF = $00
//
// ASCII key values
//
const keyenter = $0D
const keyspace = $20
const keyarrowup = $0B
const keyarrowdown = $0A
const keyarrowleft = $08
const keyarrowright = $15
const keyescape = $1B
const keyctrla = $01
const keyctrlb = $02
const keyctrlc = $03
const keyctrld = $04
const keyctrle = $05
const keyctrlf = $06
const keyctrlg = $07
const keyctrli = $09
const keyctrlk = $0B
const keyctrll = $0C
const keyctrln = $0E
const keyctrlo = $0F
const keyctrlp = $10
const keyctrlq = $11
const keyctrlr = $12
const keyctrls = $13
const keyctrlt = $14
const keyctrlu = $15
const keyctrlv = $16
const keyctrlw = $17
const keyctrlx = $18
const keyctrly = $19
const keyctrlz = $1A
const keytab = keyctrli
const keydetab = $1D
const keydelete = $7F
//
// Option/Solid-Apple key modifier
//
const keyoptmod = $80
struc t_conio
word keypressed
word getkey
src/libsrc/apple/conio.pla
+191 -17
View File
@@ -15,6 +15,8 @@ const a2rndh = $4F
//
// Apple II hardware constants.
//
const CSW = $0036
const KSW = $0038
const speaker = $C030
const showgraphics = $C050
const showtext = $C051
@@ -26,6 +28,9 @@ const showlores = $C056
const showhires = $C057
const keyboard = $C000
const keystrobe = $C010
const pushbttn1 = $C061
const pushbttn2 = $C062
const pushbttn3 = $C063
const hgr1 = $2000
const hgr2 = $4000
const page1 = 0
@@ -69,22 +74,26 @@ word txt2scrn[] = $0800,$0880,$0900,$0980,$0A00,$0A80,$0B00,$0B80
word = $0828,$08A8,$0928,$09A8,$0A28,$0AA8,$0B28,$0BA8
word = $0850,$08D0,$0950,$09D0,$0A50,$0AD0,$0B50,$0BD0
//
// Text screen parameters.
// Current text mode
//
//byte textcols = 40
//byte curshpos = 0
//byte cursvpos = 0
byte textcols = 40
//
// Apple2 disable 80 column string
// Apple 2 disable 80 column string
//
char disable80[] = 5, 21, 13, '1', 26, 13
//
// Apple 2 KSW snd CSW values
//
word kswsave, cswsave
//
// Apple 3 console codes.
//
byte textbwmode[] = 2, 16, 0
byte textclrmode[] = 2, 16, 1
byte grcharset[] = 1, 0, $7F, $7F, $7F, $7F, $00, $00, $00, $00
byte a3keyqueue = 0
byte a3echo = $80
byte a3noecho = $00
//
// Random number for Apple 1 and III.
//
@@ -211,17 +220,123 @@ end
def a2keypressed
return ^keyboard >= 128 ?? ^keyboard :: 0
end
def a2home
//curshpos = 0
//cursvpos = 0
def a2getchar
return (pushbttn2 & 128) | key
end
def a2getchare
return (pushbttn2 & 128) | key
end
def a2getkey
return (pushbttn2 & 128) | key
end
def a2getkeye
return (pushbttn2 & 128) | key
end
def keyin2e
byte key, vbl
vbl = ^$C019
repeat
if flags & showcurs
if flashcurs == 0
^cursptr = curschr
elsif flashcurs == 128
^cursptr = underchr
fin
if vbl ^ ^$C019
flashcurs = flashcurs + 8
vbl = ^$C019
^$C079 = 0 // Clear VBL int on //c
fin
fin
key = ^keyboard
until key >= 128
^keystrobe
return key
end
def keyin2c
byte key
^$C079 = 0 // IOU enable and clear VBL int on //c
^$C05B = 0 // Enable VBL Ints on //c
key = keyin2e
^$C05A = 0 // Disable VBL Ints on //c
^$C078 = 0 // IOU disable on //c
return key
end
def keyin2
byte key
repeat
cursflashcurs
key = ^keyboard
if key == keyctrll
^keystrobe
flags = flags ^ shiftlock
key = 0
fin
until key >= 128
^keystrobe
when key
is keyctrln
key = $DB // '['
break
is $9E // SHIFT+CTRL+N
key = $FE // '~'
break
is keyctrlp
key = $DC // '\'
break
is $80 // SHIFT+CTRL+P -> CTRL+@
key = $FC // '|'
break
is keyctrlg
key = $DF // '_'
break
is keyarrowleft
if ^pushbttn3 < 128
key = keydelete
fin
break
is keyarrowright
if ^pushbttn3 < 128
key = keytab
fin
break
otherwise
if key >= $C0 and flags < shiftlock
if ^pushbttn3 < 128
when key
is $C0
key = $D0 // P
break
is $DD
key = $CD // M
break
is $DE
key = $CE // N
wend
else
key = key | $E0
fin
fin
wend
return key
end
def a2home40
return call($FC58, 0, 0, 0, 0) // home()
end
def a2home80
putc(12) // Form Feed
return 0
end
def a2gotoxy(x, y)
//curshpos = x
//cursvpos = y
^$24 = x + ^$20
return call($FB5B, y + ^$22, 0, 0, 0)
end
def a2gotoxy80(x, y)
putc($1E); putc(x + ' '); putc(y + ' ')
return 0
end
def a2viewport(left, top, width, height)
if !width or !height
left = 0
@@ -239,16 +354,43 @@ def a2texttype(type)
^$32 = type
return 0
end
def a2texttype80(type)
putc(type == NORMAL ?? $0E :: $0F)
return 0
end
def a2texttype80v(type)
return 0
end
def a2textmode(columns)
call($FB39, 0, 0, 0, 0) // textmode()
if columns > 40
if columns > 40 and MACHID & MACHID_80COL
cswsave = *CSW
kswsave = *KSW
call($C300, 0, 0, 0, 0)
conio:home = @a2home80
conio:gotoxy = @a2gotoxy80
conio:texttype = @a2texttype80
textcols = 80
else
puts(@disable80)
if textcols == 80
if MACHID & $C0 == MACHID_IIE
puts($15)
else
^$C059
*CSW = cswsave
*KSW = kswsave
fin
fin
conio:home = @a2home
conio:gotoxy = @a2gotoxy
conio:texttype = @a2texttype
textcols = 40
a2home
fin
return a2home
return textcols
end
def a2grmode(mix)
a2textmode(40)
call($FB2F, 0, 0, 0, 0) // initmode()
call($FB40, 0, 0, 0, 0) // grmode()
if !mix
@@ -292,6 +434,29 @@ def dev_status(devnum, code, list)
params:3 = list
return syscall($82, @params)
end
def cons_keyavail
byte params[5]
byte count
params.0 = 3
params.1 = cmdsys.devcons
params.2 = 5
params:3 = @count
return syscall($82, @params) ?? 0 :: count
end
def cons_keyread
byte params[8]
byte key
params.0 = 4
params.1 = cmdsys.refcons
params:2 = @key
params:4 = 1
params:6 = 0
syscall($CA, @params)
return params:6 ?? key :: 0
end
def a3keypressed
byte count
@@ -311,18 +476,24 @@ def a3getkey
a3keyqueue = 0
return keycode
end
def keyin3
repeat
cursflashcurs
until cons_keyavail
return cons_keyread
end
def a3echo(state)
return dev_control(cmdsys.devcons, 11, @state)
end
if MACHID == $F2 // Apple 3
dev_control(cmdsys.devcons, 11, @a3noecho)
fin
def a3home
//curshpos = 0
//cursvpos = 0
putc(28)
return 0
end
def a3gotoxy(x, y)
//curshpos = x
//cursvpos = y
putc(24)
putc(x)
putc(25)
@@ -426,6 +597,9 @@ when MACHID & MACHID_MODEL
conio:rnd = @a13rnd
break
otherwise // MACHID_II puts("Found MACHID_MODEL = $"); putb(MACHID & MACHID_MODEL); putln
if not (MACHID & $80) // ][ or ][+
flags = uppercase
fin
wend
//
// Keep module in memory
src/toolsrc/ed80.pla
+27 -266
View File
@@ -9,51 +9,7 @@ include "inc/args.plh"
include "inc/fileio.plh"
include "inc/conio.plh"
sysflags restxt1|resxtxt1|nojitc // Keep JITC from compiling and pausing while editing
//
// Hardware constants
//
const csw = $0036
const pushbttn1 = $C061
const pushbttn2 = $C062
const pushbttn3 = $C063
const keyboard = $C000
const keystrobe = $C010
//
// ASCII key values
//
const keyenter = $8D
const keyspace = $A0
const keyarrowup = $8B
const keyarrowdown = $8A
const keyarrowleft = $88
const keyarrowright = $95
const keyescape = $9B
const keyctrla = $81
const keyctrlb = $82
const keyctrlc = $83
const keyctrld = $84
const keyctrle = $85
const keyctrlf = $86
const keyctrlg = $87
const keyctrli = $89
const keyctrlk = $8B
const keyctrll = $8C
const keyctrln = $8E
const keyctrlo = $8F
const keyctrlp = $90
const keyctrlq = $91
const keyctrlr = $92
const keyctrls = $93
const keyctrlt = $94
const keyctrlu = $95
const keyctrlv = $96
const keyctrlw = $97
const keyctrlx = $98
const keyctrly = $99
const keyctrlz = $9A
const keytab = keyctrli
const keydetab = $9D
const keydelete = $FF
const CSW = $0036
//
// Data and text buffer constants
//
@@ -92,9 +48,7 @@ word strpool, strplmapsize, strpoolmap
word txtlinbuf, cliplinbuf
word cursx, cursy, scrnleft, curscol
byte underchr, curschr
word keyin, cursrow, selrow, scrntop, cursptr
byte a3echo = $80
byte a3noecho = $00
word cursrow, selrow, scrntop, cursptr
//
// String of 80 spaces
//
@@ -423,8 +377,8 @@ end
//
def caseconv(chr)
if flags & uppercase
if chr & $E0 == $E0
chr = chr - $E0
if chr & $60 == $60
chr = chr - $60
fin
fin
return chr
@@ -435,8 +389,8 @@ def strupper(strptr)#0
if ^strptr
for i = ^strptr downto 1
chr = (strptr).[i]
if chr & $E0 == $E0
(strptr).[i] = chr - $E0
if chr & $60 == $60
(strptr).[i] = chr - $60
fin
next
fin
@@ -447,8 +401,8 @@ def strlower(strptr)#0
if ^strptr
for i = ^strptr downto 1
chr = (strptr).[i]
if chr & $E0 == $00
(strptr).[i] = chr + $E0
if chr & $60 == $00
(strptr).[i] = chr + $60
fin
next
fin
@@ -563,7 +517,6 @@ def drawrow(row, ofst, strptr)#0
byte numchars
char scrnstr[81]
//scrnptr = txtscrn[row] + (flags & gutter)
if ofst >= ^strptr
numchars = 0
else
@@ -648,7 +601,7 @@ def drawscrn(toprow, ofst)#0
byte row, numchars, lofst
word strptr, scrnptr
conio:viewport(0, 0, 80, 25) // Keep bottom of screen scrolling up
conio:viewport(0, 0, scrnwidth + 4, 25) // Keep bottom of screen scrolling up
lofst = flags & gutter
if lofst
drawgutter(toprow, ofst)
@@ -659,7 +612,7 @@ def drawscrn(toprow, ofst)#0
for row = 0 to 23
drawrow(row, ofst, txtlinbuf=>[toprow + row])
next
conio:viewport(0, 0, 80, 24)
conio:viewport(0, 0, scrnwidth + 4, 24)
end
def cursoff#0
word scrnptr
@@ -859,7 +812,6 @@ def pgleft#0
fin
cursoff
if curshpos(i)
//if curshpos(curscol - 8)
drawscrn(scrntop, scrnleft)
else
if flags & selection
@@ -900,7 +852,6 @@ def pgright#0
fin
cursoff
if curshpos(i)
//if curshpos(curscol + 8)
drawscrn(scrntop, scrnleft)
else
if flags & selection
@@ -962,113 +913,11 @@ end
//
// Keyboard routines
//
def dev_control(devnum, code, list)#1
byte params[5]
params.0 = 3
params.1 = devnum
params.2 = code
params:3 = list
perr = syscall($83, @params)
return perr
end
def cons_keyavail
byte params[5]
byte count
params.0 = 3
params.1 = cmdsys.devcons
params.2 = 5
params:3 = @count
return syscall($82, @params) ?? 0 :: count
end
def cons_keyread
byte params[8]
def keyin
byte key
params.0 = 4
params.1 = cmdsys.refcons
params:2 = @key
params:4 = 1
params:6 = 0
syscall($CA, @params)
return params:6 ?? key :: 0
end
def keyin3
byte key
repeat
cursflashcurs
until cons_keyavail
key = cons_keyread
if key & $80 // Open Apple modifier
when key
is keyarrowleft
key = keyctrla; break
is keyarrowright
key = keyctrls; break
is keyarrowup
key = keyctrlw; break
is keyarrowdown
key = keyctrlz; break
is keyenter
key = keyctrlf; break
is keytab
key = keydetab; break
is $80 | '\\'
key = keydelete; break // Delete
//
// Map OA+keypad
//
is $80 | '4'
key = keyarrowleft; break
is $80 | '6'
key = keyarrowright; break
is $80 | '8'
key = keyarrowup; break
is $80 | '2'
key = keyarrowdown; break
is $80 | '7'
key = keyctrlq; break // Top
is $80 | '1'
key = keyctrle; break // Bottom
is $80 | '9'
key = keyctrlw; break // Pg Up
is $80 | '3'
key = keyctrlz; break // Pg Dn
is $80 | '5'
key = keyctrlb; break // Selection start/end
is $80 | '0'
key = keyctrld; break // Del
is $80 | '.'
key = keyctrlv; break // Paste
is $80 | '-'
key = keyctrlx; break // Cut
wend
fin
return key | $80
end
def keyin2e
byte key, vbl
vbl = ^$C019
repeat
if flags & showcurs
if flashcurs == 0
^cursptr = curschr
elsif flashcurs == 128
^cursptr = underchr
fin
if vbl ^ ^$C019
flashcurs = flashcurs + 8
vbl = ^$C019
^$C079 = 0 // Clear VBL int on //c
fin
fin
key = ^keyboard
until key >= 128
^keystrobe
if ^pushbttn2 & 128 // Closed Apple (option) pressed
key = conio:getkey()
if key & keyoptmod // Closed-Apple/Option pressed
when key
is keyarrowleft
key = keyctrla; break
@@ -1082,6 +931,8 @@ def keyin2e
key = keyctrlf; break
is keytab
key = keydetab; break
is $80 | '\\'
key = keydelete; break // Delete
//
// Map option+keypad on Platinum //e
//
@@ -1119,90 +970,7 @@ def keyin2e
key = keyctrly; break // Insert/Overwrite
wend
fin
return key
end
def keyin2c
byte key
^$C079 = 0 // IOU enable and clear VBL int on //c
^$C05B = 0 // Enable VBL Ints on //c
key = keyin2e
^$C05A = 0 // Disable VBL Ints on //c
^$C078 = 0 // IOU disable on //c
return key
end
def keyin2
byte key
repeat
cursflashcurs
key = ^keyboard
if key == keyctrll
^keystrobe
flags = flags ^ shiftlock
key = 0
fin
until key >= 128
^keystrobe
when key
is keyctrln
key = $DB // '['
break
is $9E // SHIFT+CTRL+N
key = $FE // '~'
break
is keyctrlp
key = $DC // '\'
break
is $80 // SHIFT+CTRL+P -> CTRL+@
key = $FC // '|'
break
is keyctrlg
key = $DF // '_'
break
is keyarrowleft
if ^pushbttn3 < 128
key = keydelete
fin
break
is keyarrowright
if ^pushbttn3 < 128
key = keytab
fin
break
otherwise
if key >= $C0 and flags < shiftlock
if ^pushbttn3 < 128
when key
is $C0
key = $D0 // P
break
is $DD
key = $CD // M
break
is $DE
key = $CE // N
wend
else
key = key | $E0
fin
fin
wend
return key
end
def setkeyin#0
when MACHID & MACHID_MODEL
is MACHID_IIE
keyin = @keyin2e
break
is MACHID_IIC
keyin = @keyin2c
break
is MACHID_III
keyin = @keyin3
break
otherwise // ][ or ][+
keyin = @keyin2
wend
return key & $7F
end
//
// Printer routines
@@ -1212,13 +980,13 @@ def printtxt(slot)#0
word i, scrncsw
scrncsw = *csw
*csw = $C000 | (slot << 8)
*CSW = $C000 | (slot << 8)
for i = 0 to numlines - 1
lncpy(@txtbuf, txtlinbuf=>[i])
puts(@txtbuf)
putln
next
*csw = scrncsw
*CSW = scrncsw
end
def freesel#0
word i
@@ -1536,7 +1304,7 @@ def editline(key)
localchange = TRUE
break
wend
key = keyin()
key = keyin
until not editkey(key)
if localchange
flags = flags | changed
@@ -1549,11 +1317,9 @@ def editline(key)
return key
end
def editmode#0
if MACHID == $F2 // Apple 3
dev_control(cmdsys.devcons, 11, @a3noecho)
fin
conio:echo(FALSE)
repeat
when editline(keyin())
when editline(keyin)
is keyarrowup
cursup; break
is keyarrowdown
@@ -1645,15 +1411,11 @@ def editmode#0
curschr = flags & insmode ?? '+' :: ' '
break
is keyescape
if MACHID == $F2 // Apple 3
dev_control(cmdsys.devcons, 11, @a3echo)
fin
conio:echo(TRUE)
cursoff
cmdmode
if not exit
if MACHID == $F2 // Apple 3
dev_control(cmdsys.devcons, 11, @a3noecho)
fin
conio:echo(FALSE)
redraw
fin
wend
@@ -1731,7 +1493,7 @@ end
def chkchng
if flags & changed
puts("LOSE CHANGES TO FILE (Y/N)?")
if toupper(keyin()) == 'N'
if toupper(keyin) == 'N'
putln
return FALSE
fin
@@ -1864,10 +1626,9 @@ end
//
// Init editor
//
conio:textmode(80)
setkeyin
if not (MACHID & $80) // ][ or ][+
flags = uppercase | shiftlock
if conio:textmode(80) <> 80
scrnwidth = 36
scrnright = 35
fin
inittxtbuf
arg = argNext(argFirst)