added AIM-65

program.s

@@ -32,12 +32,12 @@ LC366:
         jsr     OUTQUES
 L2329:
         lda     ERROR_MESSAGES,x
-.ifndef CONFIG_SMALL
+.ifndef CONFIG_SMALL_ERROR
         pha
         and     #$7F
 .endif
         jsr     OUTDO
-.ifdef CONFIG_SMALL
+.ifdef CONFIG_SMALL_ERROR
         lda     ERROR_MESSAGES+1,x
   .ifdef KBD
         and     #$7F
@@ -79,6 +79,7 @@ LE28E:
         bpl     RESTART
 .else
         lsr     Z14
+ .ifndef AIM65
         lda     #<QT_OK
         ldy     #>QT_OK
   .ifdef CONFIG_CBM_ALL
@@ -86,6 +87,9 @@ LE28E:
   .else
         jsr     GOSTROUT
   .endif
+ .else
+        jsr     GORESTART
+ .endif
 L2351:
         jsr     INLIN
 .endif
@@ -639,9 +643,20 @@ LIST:
 L25A6:
         jsr     CRDO
 .else
+    .ifdef AIM65
+        pha
+        lda     #$00
+LB4BF:
+        sta     INPUTFLG
+        pla
+    .endif
   .ifdef MICROTAN
         php
         jmp     LE21C ; patch
+LC57E:
+   .elseif .def(AIM65)
+        php
+        jsr     LINGET
 LC57E:
   .else
         bcc     L2581
@@ -652,12 +667,12 @@ L2581:
         jsr     LINGET
   .endif
         jsr     FNDLIN
-  .ifdef MICROTAN
+  .if .def(MICROTAN) || .def(AIM65)
         plp
         beq     L2598
   .endif
         jsr     CHRGOT
-  .ifdef MICROTAN
+  .if .def(MICROTAN) || .def(AIM65)
         beq     L25A6
   .else
         beq     L2598
@@ -665,7 +680,7 @@ L2581:
         cmp     #TOKEN_MINUS
         bne     L2520
         jsr     CHRGET
-  .ifdef MICROTAN
+  .if .def(MICROTAN) || .def(AIM65)
         beq     L2598
         jsr     LINGET
         beq     L25A6
@@ -675,7 +690,7 @@ L2581:
         bne     L2520
   .endif
 L2598:
-  .ifndef MICROTAN
+  .if !(.def(MICROTAN) || .def(AIM65))
         pla
         pla
         lda     LINNUM
@@ -686,7 +701,7 @@ L2598:
         sta     LINNUM
         sta     LINNUM+1
 L25A6:
-  .ifdef MICROTAN
+  .if .def(MICROTAN) || .def(AIM65)
         pla
         pla
   .endif
@@ -749,12 +764,22 @@ LA519:
         lda     (LOWTRX),y
         stx     LOWTRX
         sta     LOWTRX+1
-.ifdef MICROTAN
+.if .def(MICROTAN) || .def(AIM65)
         bne     L25A6X
 .else
         bne     L25A6
 .endif
 L25E5:
+.ifdef AIM65
+        lda     INPUTFLG
+        beq     L25E5a
+        jsr     CRDO
+        jsr     CRDO
+        lda     #$1a
+        jsr     OUTDO
+        jsr     $e50a
+L25E5a:
+.endif
         jmp     RESTART
 L25E8:
         bpl     L25CE