Additional comments by Daniele Terdina.

Also removed German localization.

Author: CodeDreamer

arithm_asm

@@ -673,7 +673,7 @@ L0485C CMPI.W  #$20,D0
        BSR.S   L048C2
        MOVE.W  $00(A6,A1.L),D0
        ADD.L   $02(A6,A1.L),D1
-L04870 BVS.S   L04898                   *
+L04870 BVS.S   L04898
        BEQ.S   L048AA
        MOVE.L  D1,D3
        ADD.L   D3,D3
@@ -805,14 +805,14 @@ L0497A MOVEQ   #-$12,D0
 L0497E MOVE.L  D4,-(A7)
        MOVE.L  D5,-(A7)
        SF      D5
-       MOVE.L  $02(A6,A1.L),D2      * mantisa1
+       MOVE.L  $02(A6,A1.L),D2      * mantissa1
        BGT.S   L04994
        BEQ.S   L04A00
        JSR     L04A0C(PC)
        MOVE.L  D1,D2
        ST      D5
 L04994 ADDQ.W  #6,A1
-       MOVE.L  $02(A6,A1.L),D1      * mantisa2
+       MOVE.L  $02(A6,A1.L),D1      * mantissa2
        BGT.S   L049A4
        BEQ.S   L049F6
        JSR     L04A0C(PC)

basic2_asm

@@ -537,7 +537,7 @@ L05B42 BSR     L05AA0
        ADDQ.W  #2,A0
        BRA.S   L05B38
 
-* table of priorities of artihmetic operations
+* table of priorities of arithmetic operations
 
 L05B56 DC.L    $00050506
        DC.L    $06040404
@@ -1002,7 +1002,7 @@ L05F6C MOVEQ   #$06,D1
 L05F80 MOVEQ   #$00,D1
        MOVE.W  $00(A6,A4.L),D1
        ADDQ.W  #2,A4
-L05F88 MOVE.L  D1,-(A7)
+L05F88 MOVE.L  D1,-(A7)       * convert name (D1=len, A4=ptr) to string and push to arithmetic stack
        ADDQ.L  #3,D1
        BSR.S   L05FBC
        MOVE.L  (A7),D1
@@ -1539,7 +1539,7 @@ L064A2 MOVE.L  A4,-(A7)
        MOVEQ   #$0F,D0
        AND.B   -$07(A6,A5.L),D0
        SUBQ.B  #1,D0
-       BEQ.S   L064D6
+       BEQ.S   L064D6         * already a string
        MOVEQ   #$00,D0
        MOVE.W  -$06(A6,A5.L),D0
        BLT.S   L064DC
@@ -2508,29 +2508,29 @@ L06D8E MOVE.L  $00(A6,A1.L),$04(A6,A2.L)
        RTS
 
 L06DA2 LEA     L06E22(PC),A1
-L06DA6 MOVEM.L D1-D2/D5-D7/A0/A2-A3,-(A7)
+L06DA6 MOVEM.L D1-D2/D5-D7/A0/A2-A3,-(A7)  * BP.INIT $110
        MOVEQ   #$08,D6
 L06DAC MOVEQ   #$00,D7
        MOVEQ   #$00,D5
-       MOVE.W  (A1)+,D5
+       MOVE.W  (A1)+,D5                 * number of procedures/functions
        LSL.L   #3,D5
        MOVE.L  D5,D1
        MOVE.L  A1,-(A7)
-       JSR     L04E60(PC)
+       JSR     L04E60(PC)               * reserve D1 bytes in name table
        MOVE.L  D5,D1
-       JSR     L04E72(PC)
+       JSR     L04E72(PC)               * reserve D1 bytes in name list
        MOVEA.L (A7)+,A3
 L06DC4 MOVEA.L A3,A1
-       MOVE.W  (A3)+,D0
+       MOVE.W  (A3)+,D0                 * end of procedures/functions marker?
        BEQ.S   L06E0C
-       ADDA.W  D0,A1
+       ADDA.W  D0,A1                    * pointer to routine
        MOVE.L  A1,-(A7)
-       MOVE.B  (A3)+,D5
+       MOVE.B  (A3)+,D5                 * name length
        MOVE.B  D5,-(A7)
        MOVE.B  D6,-(A7)
-       MOVE.B  D5,D1
-       MOVEA.L (A6),A1
-L06DD8 MOVE.B  (A3)+,$00(A6,A1.L)
+       MOVE.B  D5,D1                    * name length counter
+       MOVEA.L (A6),A1                  * buffer base
+L06DD8 MOVE.B  (A3)+,$00(A6,A1.L)       * copy name to buffer
        ADDQ.W  #1,A1
        SUBQ.B  #1,D1
        BGT.S   L06DD8
@@ -2539,16 +2539,16 @@ L06DD8 MOVE.B  (A3)+,$00(A6,A1.L)
        LEA     L08B5A(PC),A2
        MOVEA.L (A2),A2
        JSR     L08622(PC)
-       BRA.S   L06E16
-       MOVEA.L (A7)+,A3
+       BRA.S   L06E16                   * error return point
+       MOVEA.L (A7)+,A3                 * ok return point (A2 points to name table entry (rel A6))
        MOVE.B  (A7)+,D6
        MOVE.B  (A7)+,D5
-       MOVE.L  (A7)+,$04(A6,A2.L)
-       MOVE.B  D6,$00(A6,A2.L)
-       MOVE.B  D7,$01(A6,A2.L)
+       MOVE.L  (A7)+,$04(A6,A2.L)       * address of function
+       MOVE.B  D6,$00(A6,A2.L)          * 8 for procedures; 9 for functions
+       MOVE.B  D7,$01(A6,A2.L)          * D7=0
        BTST    D7,D5
        BNE.S   L06DC4
-       ADDQ.W  #1,A3
+       ADDQ.W  #1,A3                    * increment pointer if address is odd
        BRA.S   L06DC4
 
 L06E0C SUBQ.W  #8,D6
@@ -2557,8 +2557,8 @@ L06E0C SUBQ.W  #8,D6
        MOVEA.L A3,A1
        BRA.S   L06DAC
 
-L06E16 ADDA.W  #$000C,A7
-       MOVEQ   #-$0C,D0
+L06E16 ADDA.W  #$000C,A7                * clear stack
+       MOVEQ   #-$0C,D0                 * bad name
 L06E1C MOVEM.L (A7)+,D1-D2/D5-D7/A0/A2-A3
        RTS
 

basic3_asm

@@ -1898,11 +1898,11 @@ L084CA MOVEQ   #$01,D3
 
 L084CE MOVEQ   #$00,D3
 L084D0 MOVEA.L A0,A3
-       JSR     L08706(PC)
-       BRA.S   L084F8
+       JSR     L08706(PC) * find end of identifier
+       BRA.S   L084F8     * ERROR
 
-L084D8 MOVE.L  A0,D5
-       SUB.L   A3,D5
+L084D8 MOVE.L  A0,D5	  * OK
+       SUB.L   A3,D5      * length (>= 1)
        CMPI.W  #$00FF,D5
        BGT.S   L084F8
        MOVE.L  A0,-(A7)
@@ -2136,13 +2136,13 @@ L08728 ADDQ.L  #2,(A7)
 L0872A RTS
 
 L0872C MOVEQ   #$00,D1
-       MOVE.B  $00(A6,A0.L),D1
+       MOVE.B  $00(A6,A0.L),D1     * read next character
        BLT.S   L08746
        LEA     L03C28(PC),A1
        MOVE.B  $00(A1,D1.W),D2
-       CMPI.B  #$01,D2
+       CMPI.B  #$01,D2             * alphabetic?
        BEQ.S   L08746
-       CMPI.B  #$02,D2
+       CMPI.B  #$02,D2             * digit?
 L08746 RTS
 
 L08748 MOVE.L  A0,-(A7)
@@ -2190,7 +2190,7 @@ L08794 MOVEQ   #$00,D0
        BCLR    #$05,D0
 L087AC RTS
 
-* DISPLACEMENT - JUMPS RELATIV TO 87C4
+* DISPLACEMENT - JUMPS RELATIVE TO 87C4
 
 L087AE DC.W    L084CE-EDUMMY
        DC.W    L0860C-EDUMMY
@@ -5561,11 +5561,11 @@ sysnew
 L0AADC 
 XL0AADC EQU L0AADC
 
-       MOVEA.L $0034(A6),A3
-       MOVEA.L $0030(A6),A2
+       MOVEA.L $0034(A6),A3             * channel name table top
+       MOVEA.L $0030(A6),A2             * channel name table base
        ADDA.W  #$0078,A2
-       MOVE.L  A2,$0034(A6)
-L0AAEC CMPA.L  A3,A2
+       MOVE.L  A2,$0034(A6)             * only three channels
+L0AAEC CMPA.L  A3,A2                    * close channels >= #3
        BGE.S   L0AB02
        MOVE.L  $00(A6,A2.L),D0
        BLT.S   L0AAFC
@@ -5575,13 +5575,13 @@ L0AAEC CMPA.L  A3,A2
 L0AAFC ADDA.W  #$0028,A2
        BRA.S   L0AAEC
 
-L0AB02 MOVEQ   #$10,D0
+L0AB02 MOVEQ   #$10,D0                  * clear screen and all windows
        MOVEQ   #-$01,D1
        MOVEQ   #-$01,D2
        TRAP    #$01
        MOVEQ   #$10,D0
        TRAP    #$01
-       MOVE.L  $0040(A6),$0044(A6)
+       MOVE.L  $0040(A6),$0044(A6)      * empty line number table
        CLR.W   $009E(A6)
        BSR     L0AA88
        MOVE.L  $0010(A6),$0014(A6)

basic_com basic_commandsbasic_com renamed to basic_commands

@@ -9,7 +9,7 @@ L0B458
 
   dc.l $000C008A,$004B00C9,$01080112
 
-* the first bytes are displacements for key, shift key, ctrl_key
+* the first bytes are displacements for key, shift key, ctrl key
 * ctrl-shift key, cursor, special keys
 * the first 4 sequences start each with $03,$3F
 * if you want to split: Take care for even adresses or use
@@ -51,6 +51,6 @@ L0B458
 * DC.L $69926F84
 * DC.L $758700FF
 
-* LAST BYTE ($FF) PROBABLY HAST OB CONVERT TO $00 !!!!
+* LAST BYTE ($FF) PROBABLY HAS TO BE CONVERTED TO $00 !!!!
 
 ****** End KEYBOARD_ASM keyboard_asm