Apple-2-SW/antoine-source
1
0
Fork 0
mirror of https://github.com/antoinevignau/source.git synced 2025-08-15 21:27:45 +00:00
Code Issues Projects Releases Wiki Activity

Ca bouge

Browse Source
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
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 mx %00
lst off 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$ * RECOPIE ACTION A$
*----------------------------------- *-----------------------------------
@@ -163,6 +207,7 @@ L9619 sta E$ ; on n'a rien trouv
mx %00 mx %00
showPIC rep #$30 showPIC rep #$30
and #$00ff
asl asl
tax tax
lda tblIMAGES,x lda tblIMAGES,x
@@ -241,7 +286,7 @@ L930C CMP #'O' ; O $4F OUTPUT
L9313 brk $bd L9313 brk $bd
*--- A $41 - CURSET *--- A $41 CURSET
L9319 iny L9319 iny
lda (dpFROM),y ; X lda (dpFROM),y ; X
@@ -256,7 +301,7 @@ L9319 iny
_MoveTo _MoveTo
jmp skip2 jmp skip2
*--- B $42 - DRAW X,Y *--- B $42 DRAW X,Y
L933E lda #$01 L933E lda #$01
L9340 sta theFB L9340 sta theFB
@@ -271,7 +316,7 @@ L9340 sta theFB
jsr DRAW jsr DRAW
jmp skip2 jmp skip2
*--- C $43 - DRAW ^X,Y *--- C $43 DRAW ^X,Y
L9368 lda #$01 L9368 lda #$01
L936A sta theFB L936A sta theFB
@@ -288,7 +333,7 @@ L936A sta theFB
jsr DRAW jsr DRAW
jmp skip2 jmp skip2
*--- D $44 - DRAW X,^Y *--- D $44 DRAW X,^Y
L9398 lda #$01 L9398 lda #$01
L939A sta theFB L939A sta theFB
@@ -305,7 +350,7 @@ L939A sta theFB
jsr DRAW jsr DRAW
jmp skip2 jmp skip2
*--- E $45 - DRAW ^X,^Y *--- E $45 DRAW ^X,^Y
L93C8 lda #$01 L93C8 lda #$01
L93CA sta theFB L93CA sta theFB
@@ -324,27 +369,27 @@ L93CA sta theFB
jsr DRAW jsr DRAW
jmp skip2 jmp skip2
*--- F $46 - DRAW X,Y,3 = CURMOV *--- F $46 DRAW X,Y,3 = CURMOV
L93FD lda #$03 L93FD lda #$03
jmp L9340 jmp L9340
*--- G $47 - DRAW ^X,Y,3 = CURMOV *--- G $47 DRAW ^X,Y,3 = CURMOV
L9402 lda #$03 L9402 lda #$03
jmp L936A jmp L936A
*--- H $48 - DRAW X,^Y,3 = CURMOV *--- H $48 DRAW X,^Y,3 = CURMOV
L9407 lda #$03 L9407 lda #$03
jmp L939A jmp L939A
*--- I $49 - DRAW ^X,^Y,3 = CURMOV *--- I $49 DRAW ^X,^Y,3 = CURMOV
L940C lda #$03 L940C lda #$03
jmp L93CA jmp L93CA
*--- J $4A - INK *--- J $4A INK
L9411 iny L9411 iny
lda (dpFROM),y ; X lda (dpFROM),y ; X
@@ -353,7 +398,7 @@ L9411 iny
jsr INK jsr INK
jmp skip1 jmp skip1
*--- K $4B - PAPER *--- K $4B PAPER
L9426 iny L9426 iny
lda (dpFROM),y ; X lda (dpFROM),y ; X
@@ -362,7 +407,7 @@ L9426 iny
jsr PAPER jsr PAPER
jmp skip1 jmp skip1
*--- L $4C - FILL *--- L $4C FILL
L943B iny L943B iny
lda (dpFROM),y ; X lda (dpFROM),y ; X
@@ -383,7 +428,7 @@ L943B iny
jsr FILL jsr FILL
jmp skip3 jmp skip3
*--- M $4D - CHAR_ALT *--- M $4D CHAR_ALT
L9462 iny L9462 iny
lda (dpFROM),y ; X lda (dpFROM),y ; X
@@ -422,7 +467,7 @@ L94B9 tya
jmp skip0 jmp skip0
*--- N $4E - CIRCLE *--- N $4E CIRCLE
L94BC iny L94BC iny
lda (dpFROM),y ; radius lda (dpFROM),y ; radius
@@ -431,7 +476,7 @@ L94BC iny
jsr CIRCLE jsr CIRCLE
jmp skip1 jmp skip1
*--- O $4F - OUT *--- O $4F OUT
L94D8 iny L94D8 iny
lda (dpFROM),y 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 * MACROS
*----------------------------------- *-----------------------------------
use 4/Event.Macs
use 4/Locator.Macs use 4/Locator.Macs
use 4/Mem.Macs use 4/Mem.Macs
use 4/Menu.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 *--- The firmware routines
HGR = $F3E2 ; HGR *HGR = $F3E2 ; HGR
HPLOT = $F457 ; HPLOT *HPLOT = $F457 ; HPLOT
HILIN = $F53A ; HPLOT TO *HILIN = $F53A ; HPLOT TO
HCOLOR = $F6E9 ; HCOLOR= (call+3) *HCOLOR = $F6E9 ; HCOLOR= (call+3)
INIT = $FB2F *INIT = $FB2F
TABV = $FB5B *TABV = $FB5B
HOME = $FC58 *HOME = $FC58
WAIT = $FCA8 *WAIT = $FCA8
RDKEY = $FD0C *RDKEY = $FD0C
*GETLN1 = $FD6F ; using mine now *GETLN1 = $FD6F ; using mine now
COUT = $FDED COUT = $FDED
IDROUTINE = $FE1F IDROUTINE = $FE1F
@@ -96,11 +96,11 @@ SETKBD = $FE89
PLAY jsr initALL PLAY jsr initALL
jsr HGR jsr HGR
jsr HOME ; clear text screen * jsr HOME ; clear text screen
lda #0 ; move cursor to 0,20 * lda #0 ; move cursor to 0,20
sta CH * sta CH
lda #20 * lda #20
jsr TABV * jsr TABV
*----------------------------------- *-----------------------------------
* DU BASIC A L'ASSEMBLEUR (BEURK) * DU BASIC A L'ASSEMBLEUR (BEURK)