daily_automated

2023-03-13 08:36:51 +00:00
parent 5347889cd2
commit f29dcc4188
5439 changed files with 1065799 additions and 0 deletions
--- a/trunk/workspace/AVR-Computer/msbasic/apple_extra.s
+++ b/trunk/workspace/AVR-Computer/msbasic/apple_extra.s
@@ -0,0 +1,128 @@
+.segment "EXTRA"
+
+        .byte   0,0,0
+L2900:
+        jsr     LFD6A
+        stx     $33
+        ldx     #$00
+L2907:
+        lda     $0200,x
+        and     #$7F
+        cmp     #$0D
+        bne     L2912
+        lda     #$00
+L2912:
+        sta     $0200,x
+        inx
+        bne     L2907
+        ldx     $33
+        rts
+PLT:
+        jmp     L29F0
+L291E:
+        cmp     #$47
+        bne     L2925
+        jmp     L29E0
+L2925:
+        cmp     #$43
+        bne     L292B
+        beq     L2988
+L292B:
+        cmp     #$50
+        beq     L2930
+        inx
+L2930:
+        stx     $33
+L2932:
+        jsr     FRMEVL
+        jsr     ROUND_FAC
+        jsr     AYINT
+        lda     FAC+4
+        ldx     $33
+        sta     $0300,x
+        dec     $33
+        bmi     L294Dx
+        lda     #$2C
+		jsr     SYNCHR
+        bpl     L2932
+L294Dx:
+        tay
+        pla
+        cmp     #$43
+        bne     L2957
+        tya
+        jmp     LF864
+L2957:
+        cmp     #$50
+        bne     L2962
+        tya
+        ldy     $0301
+        jmp     LF800
+L2962:
+        pha
+        lda     $0301
+        sta     $2C
+        sta     $2D
+        pla
+        cmp     #$48
+        bne     L2978
+        lda     $0300
+        ldy     $0302
+        jmp     LF819
+L2978:
+        cmp     #$56
+        beq     L297F
+        jmp     SYNERR
+L297F:
+        ldy     $0300
+        lda     $0302
+        jmp     LF828
+L2988:
+        dex
+        beq     L2930
+INLINX:
+        jsr     OUTQUES
+        jsr     OUTSP
+        ldx     #$80
+        jmp     INLIN1
+        .byte   0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
+        .byte   0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
+        .byte   0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
+        .byte   0,0,0,0,0,0,0,0,0,0
+USR_FUNC:
+        jsr     L29DA
+        lda     FAC+3
+        sta     FAC+5
+        jmp     (FAC+4)
+L29DA:
+        jmp     (GOAYINT)
+        brk
+        brk
+        brk
+L29E0:
+        pla
+        jmp     LFB40
+        .byte   0,0,0,0,0,0,0,0,0,0,0,0
+L29F0:
+        pha
+        ldx     #$01
+        inc     $B9
+        bne     L29F9
+        inc     $BA
+L29F9:
+        jmp     L291E
+        .byte   $00,$00,$00,$00,$41,$53,$21,$D2
+		.byte   $02,$FA,$00 
+        lda     $12
+        beq     L2A0E
+        jmp     (GOGIVEAYF)
+L2A0E:
+        jsr     LF689
+        .byte   $15,$BC,$08,$10,$52,$45,$75,$10
+        .byte   $CD,$00,$55,$15,$9E,$08,$10,$4C
+        .byte   $45,$75,$10,$D4,$00,$55,$15,$0E
+        .byte   $08,$10,$89,$10,$75,$15,$1C,$08
+        .byte   $10,$1F,$10,$75,$00 
+        jmp     (GOGIVEAYF)
+; ----------------------------------------------------------------------------
+        .byte   0,0,0,0,0,0