msbasic/aim65_loadsave.s at master · IdoitEngineer/msbasic · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
.segment "CODE"

SAVE:
        pha
        jsr     WHEREO
        jsr     OUTSP
        lda     #$ff
        jmp     LB4BF

MONRDKEY:
        lda     INFLG
        jsr     COUT5
        bne     LOAD2
        jmp     INALL
LOAD2:
        jmp     CUREAD

MONCOUT:
        pha
        lda     OUTFLG
        jsr     COUT5
        bne     COUT3
        pla
        jmp     OUTALL

COUT3:
        pla
        cmp     #LF
        beq     COUT6
        cmp     #CR
        beq     COUT4
        jmp     OUTPUT
COUT4:
        jsr     CRCK
        lda     #CR
        rts

COUT5:
        cmp     #$54
        beq     COUT6
        cmp     #$55
        beq     COUT6
        cmp     #$4C
COUT6:
        rts

MONRDKEY2:
        jsr     ROONEK
        tya
        beq     COUT5
        jmp     GETKY