Retro Style Eigenbau Computer mit Parallax Propeller
https://www.hive-project.de/board/
das währe nicht so schön.Code: Alles auswählen
OBJ
system: "core.con.system"
VAR
long cogv[2]
PUB start(ID, mailbox)
long[mailbox][3] := 0
cogv[0] := system.launch( ID, @driver, mailbox) & 7
cogv[1] := system.launch(cogv[0], @driver, mailbox|$8000)
cogv[0] := cogv[0] +1
cogv[1] := cogv[1] +1
repeat
until long[mailbox][3] == $0000FFFF ' OK (secondary/primary)
long[mailbox][3] := 0 ' release sync lock
PUB stop | i 'io ' Stop VGA driver - frees two COGs
repeat i from 0 to 1
if cogv[i]
cogstop(cogv[i]~ - 1)
Code: Alles auswählen
PUB start(ScreenPtr, CursorPtr, SyncPtr) : okay | i, j, a 'io '
{{
'' Start VGA driver - starts two COGs
'' returns false if two COGs not available
''
'' BasePin = VGA starting pin (0, 8, 16, 24, etc.)
''
'' ScreenPtr = Pointer to 80x30 words containing Latin-1 codes and colors for
'' each of the 80x30 screen characters. The lower byte of the word
'' contains the Latin-1 code to display. The upper byte contains
'' the foreground colour in bits 11..8 and the background colour in
'' bits 15..12.
''
'' screen word example: %00011111_01000001 = "A", white on blue
''
'' CursorPtr = Pointer to 6 bytes which control the cursors:
''
'' bytes 0,1,2: X, Y, and MODE of cursor 0
'' bytes 3,4,5: X, Y, and MODE of cursor 1
''
'' X and Y are in terms of screen characters
'' (left-to-right, top-to-bottom)
''
'' MODE uses three bottom bits:
''
'' %x00 = cursor off
'' %x01 = cursor on
'' %x10 = cursor on, blink slow
'' %x11 = cursor on, blink fast
'' %0xx = cursor is solid block
'' %1xx = cursor is underscore
''
'' cursor example: 127, 63, %010 = blinking block in lower-right
''
'' SyncPtr = Pointer to long which gets written with -1 upon each screen
'' refresh. May be used to time writes/scrolls, so that chopiness
'' can be avoided. You must clear it each time if you want to see
'' it re-trigger.
}}
stop ' if driver is already running, stop it
reg_vcfg := $200000FF + (BEL_VGABASE & %111000) << 6 ' implant pin settings
i := $FF << (BEL_VGABASE & %011000)
j := BEL_VGABASE & %100000 == 0
reg_dira := i & j
reg_dirb := i & !j
sync_cnt := cnt + $10000 ' implant CNT value to sync COGs to
longmove(@screen_base, @ScreenPtr, 2) ' implant pointers
screen_at := 0
screen_op := @screen_at
font_base := @font
vf_lines.byte := vf ' implant unique settings and launch first COG
vb_lines.byte := vb
font_part := 1
cogv[1] := cognew(@entryv, SyncPtr) + 1
waitcnt($2000 + cnt) ' allow time for first COG to launch
vf_lines.byte := vf+4 ' differentiate settings and launch second COG
vb_lines.byte := vb-4 ' differentiate settings and launch second COG
font_part := 0
cogv[0] := cognew(@entryv, SyncPtr) + 1
if cogv[0] and cogv[1] ' if both COGs launched, return true
return true
stop ' else, stop any launched COG and return false
PUB stop | i 'io ' Stop VGA driver - frees two COGs
repeat i from 0 to 1
if cogv[i]
cogstop(cogv[i]~ - 1)
Code: Alles auswählen
PUB launch(ID, code, data)
'' PASM quick launch using a specific or the next available ID.
''
'' parameters
'' ID: cog ID
'' 0..7: coginit, otherwise cognew (may fail)
'' code: address of code fragment (4n)
'' data: cognew/coginit parameter (4n)
''
'' result
'' == 0: [ABORT] thread creation failed (cognew only)
'' <> 0: thread/cog ID + 1