Apple-2-SW
/
antoine-source
mirror of https://github.com/antoinevignau/source.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Ca bouge

This commit is contained in:
Antoine Vignau 2023-12-31 22:49:51 +01:00
parent 641902a750
commit e42fdfa86a
5 changed files with 17619 additions and 17572 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

75
leretour/apple2/fr/engine.s
View File

@ -8,6 +8,50 @@
mx %00
lst off
*-----------------------------------
* LES PRIMITIVES 8-BITS EN 16-BITS
*-----------------------------------
HGR rep #$30
PushWord #0
_ClearScreen
sep #$30
rts
*-----------------------------------
RDKEY
PushWord #0
PushWord #%0000_0000_0000_1000
PushLong #eventREC
_GetNextEvent
pla
beq RDKEY
lda eventREC
cmp #
PEA ^eventREC
PEA eventREC
_GetNextEvent
PLA
TAY
beq L011DBE
LDA eventREC
CMP #$0001 ; mouseDownEvt
BEQ L011DE4
BRL L011EC4
*--------
eventREC
oWHAT DW $0000 ; what - event code
oMESSAGE ADRL $00000000 ; message - event message
ADRL $00000000 ; when - tick count
oWHERE
oWHEREY DW $0000 ; where - mouse location
oWHEREX DW $0000
oMODIFIERS DW $0000 ; modifiers - modifiers
*-----------------------------------
* RECOPIE ACTION A$
*-----------------------------------
@ -163,6 +207,7 @@ L9619 sta E$ ; on n'a rien trouv
mx %00
showPIC rep #$30
and #$00ff
asl
tax
lda tblIMAGES,x
@ -241,7 +286,7 @@ L930C CMP #'O' ; O $4F OUTPUT
L9313 brk $bd
*--- A $41 - CURSET
*--- A $41 CURSET
L9319 iny
lda (dpFROM),y ; X
@ -256,7 +301,7 @@ L9319 iny
_MoveTo
jmp skip2
*--- B $42 - DRAW X,Y
*--- B $42 DRAW X,Y
L933E lda #$01
L9340 sta theFB
@ -271,7 +316,7 @@ L9340 sta theFB
jsr DRAW
jmp skip2
*--- C $43 - DRAW ^X,Y
*--- C $43 DRAW ^X,Y
L9368 lda #$01
L936A sta theFB
@ -288,7 +333,7 @@ L936A sta theFB
jsr DRAW
jmp skip2
*--- D $44 - DRAW X,^Y
*--- D $44 DRAW X,^Y
L9398 lda #$01
L939A sta theFB
@ -305,7 +350,7 @@ L939A sta theFB
jsr DRAW
jmp skip2
*--- E $45 - DRAW ^X,^Y
*--- E $45 DRAW ^X,^Y
L93C8 lda #$01
L93CA sta theFB
@ -324,27 +369,27 @@ L93CA sta theFB
jsr DRAW
jmp skip2
*--- F $46 - DRAW X,Y,3 = CURMOV
*--- F $46 DRAW X,Y,3 = CURMOV
L93FD lda #$03
jmp L9340
*--- G $47 - DRAW ^X,Y,3 = CURMOV
*--- G $47 DRAW ^X,Y,3 = CURMOV
L9402 lda #$03
jmp L936A
*--- H $48 - DRAW X,^Y,3 = CURMOV
*--- H $48 DRAW X,^Y,3 = CURMOV
L9407 lda #$03
jmp L939A
*--- I $49 - DRAW ^X,^Y,3 = CURMOV
*--- I $49 DRAW ^X,^Y,3 = CURMOV
L940C lda #$03
jmp L93CA
*--- J $4A - INK
*--- J $4A INK
L9411 iny
lda (dpFROM),y ; X
@ -353,7 +398,7 @@ L9411 iny
jsr INK
jmp skip1
*--- K $4B - PAPER
*--- K $4B PAPER
L9426 iny
lda (dpFROM),y ; X
@ -362,7 +407,7 @@ L9426 iny
jsr PAPER
jmp skip1
*--- L $4C - FILL
*--- L $4C FILL
L943B iny
lda (dpFROM),y ; X
@ -383,7 +428,7 @@ L943B iny
jsr FILL
jmp skip3
*--- M $4D - CHAR_ALT
*--- M $4D CHAR_ALT
L9462 iny
lda (dpFROM),y ; X
@ -422,7 +467,7 @@ L94B9 tya
jmp skip0
*--- N $4E - CIRCLE
*--- N $4E CIRCLE
L94BC iny
lda (dpFROM),y ; radius
@ -431,7 +476,7 @@ L94BC iny
jsr CIRCLE
jmp skip1
*--- O $4F - OUT
*--- O $4F OUT
L94D8 iny
lda (dpFROM),y

BIN
leretour/apple2/fr/iigs
View File

Binary file not shown.

1
leretour/apple2/fr/iigs.s
View File

@ -17,6 +17,7 @@
* MACROS
*-----------------------------------
use 4/Event.Macs
use 4/Locator.Macs
use 4/Mem.Macs
use 4/Menu.Macs

35087
leretour/apple2/fr/iigs_Output.txt
View File

File diff suppressed because it is too large Load Diff

28
leretour/apple2/fr/leretour.s
View File

@ -43,15 +43,15 @@ VBL = $e0c019
*--- The firmware routines
HGR = $F3E2 ; HGR
HPLOT = $F457 ; HPLOT
HILIN = $F53A ; HPLOT TO
HCOLOR = $F6E9 ; HCOLOR= (call+3)
INIT = $FB2F
TABV = $FB5B
HOME = $FC58
WAIT = $FCA8
RDKEY = $FD0C
*HGR = $F3E2 ; HGR
*HPLOT = $F457 ; HPLOT
*HILIN = $F53A ; HPLOT TO
*HCOLOR = $F6E9 ; HCOLOR= (call+3)
*INIT = $FB2F
*TABV = $FB5B
*HOME = $FC58
*WAIT = $FCA8
*RDKEY = $FD0C
*GETLN1 = $FD6F ; using mine now
COUT = $FDED
IDROUTINE = $FE1F
@ -96,11 +96,11 @@ SETKBD = $FE89
PLAY jsr initALL
jsr HGR
jsr HOME ; clear text screen
lda #0 ; move cursor to 0,20
sta CH
lda #20
jsr TABV
* jsr HOME ; clear text screen
* lda #0 ; move cursor to 0,20
* sta CH
* lda #20
* jsr TABV
*-----------------------------------
* DU BASIC A L'ASSEMBLEUR (BEURK)