git.ucc.asn.au / uccvend-snackrom.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 1280dd7)
more changes - before applying the rol instruction fix
authorBernard Blackham <[email protected]>
Sun, 3 Aug 2003 14:39:50 +0000 (14:39 +0000)
committerBernard Blackham <[email protected]>
Sun, 3 Aug 2003 14:39:50 +0000 (14:39 +0000)
ROM-2003/vend.asm patch | blob | history

diff --git a/ROM-2003/vend.asm b/ROM-2003/vend.asm
index c87edec..19de106 100644 (file)
--- a/ROM-2003/vend.asm
+++ b/ROM-2003/vend.asm
@@ -4,7 +4,7 @@
 ;0005   number of motors we have
 ;0006  slot number
 ;0007   06 stored into it sometimes.
 ;0005   number of motors we have
 ;0006  slot number
 ;0007   06 stored into it sometimes.
-;0008   used exclusively in SCI interrupt
+;0008   what byte of the packet we've read up to
 ;0009
 ;000a   
 ;000c
 ;0009
 ;000a   
 ;000c
@@ -85,8 +85,9 @@
 ;0bdb   init'd to 0x08
 ;0bdc   init'd to 0x10
 ;
 ;0bdb   init'd to 0x08
 ;0bdc   init'd to 0x10
 ;
-;0cbc   serial number
-;0ccc   machine ID
+;0cbc   serial number (string)
+;0ccc   machine ID (string)
+;0ce7   audit number (1-bit)
 ;0cd9   counter of something - reset to 4 on some serial input
 ;0cda   counter of something - reset to 4 on some serial input
 ;0cdb   also counts something - reset to 4 on some serial input
 ;0cd9   counter of something - reset to 4 on some serial input
 ;0cda   counter of something - reset to 4 on some serial input
 ;0cdb   also counts something - reset to 4 on some serial input
@@ -1408,7 +1409,7 @@ jump17:
 8A67 4F              O     clra 
 8A68 37              7     pshb 
 8A69 36              6     psha 
 8A67 4F              O     clra 
 8A68 37              7     pshb 
 8A69 36              6     psha 
-8A6A CC 00 C7        ...   ldd #00c7
+8A6A CC 00 C7        ...   ldd #00c7    ; 199
 8A6D BD FB BA        ...   jsr fbba            ;jump38
 8A70 B3 00 27        ..'   subd 0027
 8A73 24 05           $.    bcc 05
 8A6D BD FB BA        ...   jsr fbba            ;jump38
 8A70 B3 00 27        ..'   subd 0027
 8A73 24 05           $.    bcc 05
@@ -1455,7 +1456,7 @@ goto8:
 8AD2 4F              O     clra 
 8AD3 37              7     pshb 
 8AD4 36              6     psha 
 8AD2 4F              O     clra 
 8AD3 37              7     pshb 
 8AD4 36              6     psha 
-8AD5 CC 00 FA        ...   ldd #00fa
+8AD5 CC 00 FA        ...   ldd #00fa    ; 250
 8AD8 BD FB BA        ...   jsr fbba            ;jump38
 8ADB FD 00 27        ..'   std 0027
 8ADE 20 38            8    bra 38
 8AD8 BD FB BA        ...   jsr fbba            ;jump38
 8ADB FD 00 27        ..'   std 0027
 8ADE 20 38            8    bra 38
@@ -1468,7 +1469,7 @@ goto8:
 8AEF 4F              O     clra 
 8AF0 37              7     pshb 
 8AF1 36              6     psha 
 8AEF 4F              O     clra 
 8AF0 37              7     pshb 
 8AF1 36              6     psha 
-8AF2 CC 00 C7        ...   ldd #00c7
+8AF2 CC 00 C7        ...   ldd #00c7    ; 199
 8AF5 BD FB BA        ...   jsr fbba            ;jump38
 8AF8 FD 00 27        ..'   std 0027
 8AFB 20 1B            .    bra 1b
 8AF5 BD FB BA        ...   jsr fbba            ;jump38
 8AF8 FD 00 27        ..'   std 0027
 8AFB 20 1B            .    bra 1b
@@ -1697,7 +1698,7 @@ jump18:
 8D14 4F              O     clra 
 8D15 37              7     pshb 
 8D16 36              6     psha 
 8D14 4F              O     clra 
 8D15 37              7     pshb 
 8D16 36              6     psha 
-8D17 CC 00 FA        ...   ldd #00fa
+8D17 CC 00 FA        ...   ldd #00fa    ; 250
 8D1A BD FB BA        ...   jsr fbba            ;jump38
 8D1D B3 00 0D        ...   subd 000d
 8D20 24 05           $.    bcc 05
 8D1A BD FB BA        ...   jsr fbba            ;jump38
 8D1D B3 00 0D        ...   subd 000d
 8D20 24 05           $.    bcc 05
@@ -1716,7 +1717,7 @@ jump18:
 8D3D 4F              O     clra 
 8D3E 37              7     pshb 
 8D3F 36              6     psha 
 8D3D 4F              O     clra 
 8D3E 37              7     pshb 
 8D3F 36              6     psha 
-8D40 CC 00 C7        ...   ldd #00c7
+8D40 CC 00 C7        ...   ldd #00c7    ; 199
 8D43 BD FB BA        ...   jsr fbba            ;jump38
 8D46 B3 00 0D        ...   subd 000d
 8D49 24 05           $.    bcc 05
 8D43 BD FB BA        ...   jsr fbba            ;jump38
 8D46 B3 00 0D        ...   subd 000d
 8D49 24 05           $.    bcc 05
@@ -1757,7 +1758,7 @@ jump18:
 8D9E 4F              O     clra 
 8D9F 37              7     pshb 
 8DA0 36              6     psha 
 8D9E 4F              O     clra 
 8D9F 37              7     pshb 
 8DA0 36              6     psha 
-8DA1 CC 00 FA        ...   ldd #00fa
+8DA1 CC 00 FA        ...   ldd #00fa    ; 250
 8DA4 BD FB BA        ...   jsr fbba            ;jump38
 8DA7 FD 00 0D        ...   std 000d
 8DAA 20 38            8    bra 38
 8DA4 BD FB BA        ...   jsr fbba            ;jump38
 8DA7 FD 00 0D        ...   std 000d
 8DAA 20 38            8    bra 38
@@ -1770,7 +1771,7 @@ jump18:
 8DBB 4F              O     clra 
 8DBC 37              7     pshb 
 8DBD 36              6     psha 
 8DBB 4F              O     clra 
 8DBC 37              7     pshb 
 8DBD 36              6     psha 
-8DBE CC 00 C7        ...   ldd #00c7
+8DBE CC 00 C7        ...   ldd #00c7    ; 199
 8DC1 BD FB BA        ...   jsr fbba            ;jump38
 8DC4 FD 00 0D        ...   std 000d
 8DC7 20 1B            .    bra 1b
 8DC1 BD FB BA        ...   jsr fbba            ;jump38
 8DC4 FD 00 0D        ...   std 000d
 8DC7 20 1B            .    bra 1b
@@ -2325,8 +2326,8 @@ jump22:
 92F1 4F              O     clra 
 92F2 37              7     pshb 
 92F3 36              6     psha 
 92F1 4F              O     clra 
 92F2 37              7     pshb 
 92F3 36              6     psha 
-92F4 CC 00 64        ..d   ldd #0064
-92F7 BD FB BA        ...   jsr fbba            ;jump38
+92F4 CC 00 64        ..d   ldd #0064    ; 100
+92F7 BD FB BA        ...   jsr fbba            ;jump38 - multiplication
 92FA FD 0C E9        ...   std 0ce9
 92FD BD D6 F6        ...   jsr d6f6            ;jump106
 9300 FC 0C E9        ...   ldd 0ce9
 92FA FD 0C E9        ...   std 0ce9
 92FD BD D6 F6        ...   jsr d6f6            ;jump106
 9300 FC 0C E9        ...   ldd 0ce9
@@ -2382,7 +2383,7 @@ jump22:
 936A F6 00 1F        ...   ldab 001f
 936D C4 02           ..    andb #02
 936F 27 1F           '.    beq 1f
 936A F6 00 1F        ...   ldab 001f
 936D C4 02           ..    andb #02
 936F 27 1F           '.    beq 1f
-9371 BD 97 E9        ...   jsr 97e9            ;jump147
+9371 BD 97 E9        ...   jsr 97e9            ;jump147 - print the report
 9374 CE 00 1F        ...   ldx #001f
 9377 1D 00 02        ...   bclr 00,x, #02
 937A CE 00 1F        ...   ldx #001f
 9374 CE 00 1F        ...   ldx #001f
 9377 1D 00 02        ...   bclr 00,x, #02
 937A CE 00 1F        ...   ldx #001f
@@ -2873,7 +2874,7 @@ jump147:
 97E9 BD BE 4B        ..K   jsr be4b            ;displayblank
 97EC CC AF E7        ...   ldd #afe7    ; "-PRINTING-"
 97EF BD C0 BA        ...   jsr c0ba            ;display:
 97E9 BD BE 4B        ..K   jsr be4b            ;displayblank
 97EC CC AF E7        ...   ldd #afe7    ; "-PRINTING-"
 97EF BD C0 BA        ...   jsr c0ba            ;display:
-97F2 BD F4 15        ...   jsr f415            ;jump112
+97F2 BD F4 15        ...   jsr f415            ;jump112 - print a report
 97F5 39              9     rts 
 
 jump27:
 97F5 39              9     rts 
 
 jump27:
@@ -9975,10 +9976,11 @@ jump48:
 ; 
 CE48 F6 0B C4        ...   ldab 0bc4
 CE4B F1 0B C5        ...   cmpb 0bc5
 ; 
 CE48 F6 0B C4        ...   ldab 0bc4
 CE4B F1 0B C5        ...   cmpb 0bc5
-CE4E 25 53           %S    bcs 53
+CE4E 25 53           %S    bcs 53     ; if 0bc4 < 0bc5 to cea3
 CE50 F6 0B C5        ...   ldab 0bc5
 CE53 F1 0B C6        ...   cmpb 0bc6
 CE50 F6 0B C5        ...   ldab 0bc5
 CE53 F1 0B C6        ...   cmpb 0bc6
-CE56 25 4B           %K    bcs 4b
+CE56 25 4B           %K    bcs 4b     ; if 0bc5 < 0bc6 to cea3
+; so here we have 0bc6 < 0bc5 < 0bc4
 CE58 F6 0B C4        ...   ldab 0bc4
 CE5B 4F              O     clra 
 CE5C C3 0B C7        ...   addd #0bc7
 CE58 F6 0B C4        ...   ldab 0bc4
 CE5B 4F              O     clra 
 CE5C C3 0B C7        ...   addd #0bc7
@@ -10012,13 +10014,15 @@ CE96 C6 08           ..    ldab #08
 CE98 F7 0B DB        ...   stab 0bdb
 CE9B C6 10           ..    ldab #10
 CE9D F7 0B DC        ...   stab 0bdc
 CE98 F7 0B DB        ...   stab 0bdb
 CE9B C6 10           ..    ldab #10
 CE9D F7 0B DC        ...   stab 0bdc
-CEA0 7E D0 66        ~.f   jmp d066            ;goto58 - multiply
+CEA0 7E D0 66        ~.f   jmp d066            ;goto58 - multiply & exit
+;
 CEA3 F6 0B C4        ...   ldab 0bc4
 CEA6 F1 0B C6        ...   cmpb 0bc6
 CEA3 F6 0B C4        ...   ldab 0bc4
 CEA6 F1 0B C6        ...   cmpb 0bc6
-CEA9 25 53           %S    bcs 53
+CEA9 25 53           %S    bcs 53     ; if 0bc4 < 0bc6 to cefe
 CEAB F6 0B C6        ...   ldab 0bc6
 CEAE F1 0B C5        ...   cmpb 0bc5
 CEAB F6 0B C6        ...   ldab 0bc6
 CEAE F1 0B C5        ...   cmpb 0bc5
-CEB1 25 4B           %K    bcs 4b
+CEB1 25 4B           %K    bcs 4b     ; if 0bc6 < 0bc5 to cefe
+; so here we have 0bc5 < 0bc6 < 0bc4
 CEB3 F6 0B C4        ...   ldab 0bc4
 CEB6 4F              O     clra 
 CEB7 C3 0B C7        ...   addd #0bc7
 CEB3 F6 0B C4        ...   ldab 0bc4
 CEB6 4F              O     clra 
 CEB7 C3 0B C7        ...   addd #0bc7
@@ -10052,13 +10056,15 @@ CEF1 C6 10           ..    ldab #10
 CEF3 F7 0B DB        ...   stab 0bdb
 CEF6 C6 08           ..    ldab #08
 CEF8 F7 0B DC        ...   stab 0bdc
 CEF3 F7 0B DB        ...   stab 0bdb
 CEF6 C6 08           ..    ldab #08
 CEF8 F7 0B DC        ...   stab 0bdc
-CEFB 7E D0 66        ~.f   jmp d066            ;goto58
+CEFB 7E D0 66        ~.f   jmp d066            ;goto58 - multiply and exit
+;
 CEFE F6 0B C5        ...   ldab 0bc5
 CF01 F1 0B C4        ...   cmpb 0bc4
 CEFE F6 0B C5        ...   ldab 0bc5
 CF01 F1 0B C4        ...   cmpb 0bc4
-CF04 25 53           %S    bcs 53
+CF04 25 53           %S    bcs 53    ; if 0bc5 < 0bc4 to cf59
 CF06 F6 0B C4        ...   ldab 0bc4
 CF09 F1 0B C6        ...   cmpb 0bc6
 CF06 F6 0B C4        ...   ldab 0bc4
 CF09 F1 0B C6        ...   cmpb 0bc6
-CF0C 25 4B           %K    bcs 4b
+CF0C 25 4B           %K    bcs 4b    ; if 0bc4 < 0bc6 to cf59
+; so here we have 0bc6 < 0bc4 < 0bc5
 CF0E F6 0B C5        ...   ldab 0bc5
 CF11 4F              O     clra 
 CF12 C3 0B C7        ...   addd #0bc7
 CF0E F6 0B C5        ...   ldab 0bc5
 CF11 4F              O     clra 
 CF12 C3 0B C7        ...   addd #0bc7
@@ -10092,13 +10098,15 @@ CF4C C6 20           .     ldab #20
 CF4E F7 0B DB        ...   stab 0bdb
 CF51 C6 10           ..    ldab #10
 CF53 F7 0B DC        ...   stab 0bdc
 CF4E F7 0B DB        ...   stab 0bdb
 CF51 C6 10           ..    ldab #10
 CF53 F7 0B DC        ...   stab 0bdc
-CF56 7E D0 66        ~.f   jmp d066            ;goto58
+CF56 7E D0 66        ~.f   jmp d066            ;goto58 - multiply and exit
+;
 CF59 F6 0B C5        ...   ldab 0bc5
 CF5C F1 0B C6        ...   cmpb 0bc6
 CF59 F6 0B C5        ...   ldab 0bc5
 CF5C F1 0B C6        ...   cmpb 0bc6
-CF5F 25 53           %S    bcs 53
+CF5F 25 53           %S    bcs 53     ; if 0bc5 < 0bc6 to cfb4
 CF61 F6 0B C6        ...   ldab 0bc6
 CF64 F1 0B C4        ...   cmpb 0bc4
 CF61 F6 0B C6        ...   ldab 0bc6
 CF64 F1 0B C4        ...   cmpb 0bc4
-CF67 25 4B           %K    bcs 4b
+CF67 25 4B           %K    bcs 4b     ; if 0bc6 < 0bc4 to cfb4
+; so here we have 0bc4 < 0bc6 < 0bc5
 CF69 F6 0B C5        ...   ldab 0bc5
 CF6C 4F              O     clra 
 CF6D C3 0B C7        ...   addd #0bc7
 CF69 F6 0B C5        ...   ldab 0bc5
 CF6C 4F              O     clra 
 CF6D C3 0B C7        ...   addd #0bc7
@@ -10132,13 +10140,15 @@ CFA7 C6 10           ..    ldab #10
 CFA9 F7 0B DB        ...   stab 0bdb
 CFAC C6 20           .     ldab #20
 CFAE F7 0B DC        ...   stab 0bdc
 CFA9 F7 0B DB        ...   stab 0bdb
 CFAC C6 20           .     ldab #20
 CFAE F7 0B DC        ...   stab 0bdc
-CFB1 7E D0 66        ~.f   jmp d066            ;goto58
+CFB1 7E D0 66        ~.f   jmp d066            ;goto58 - multiply and exit
+;
 CFB4 F6 0B C6        ...   ldab 0bc6
 CFB7 F1 0B C4        ...   cmpb 0bc4
 CFB4 F6 0B C6        ...   ldab 0bc6
 CFB7 F1 0B C4        ...   cmpb 0bc4
-CFBA 25 52           %R    bcs 52
+CFBA 25 52           %R    bcs 52    ; if 0bc6 < 0bc4 to d00e
 CFBC F6 0B C4        ...   ldab 0bc4
 CFBF F1 0B C5        ...   cmpb 0bc5
 CFBC F6 0B C4        ...   ldab 0bc4
 CFBF F1 0B C5        ...   cmpb 0bc5
-CFC2 25 4A           %J    bcs 4a
+CFC2 25 4A           %J    bcs 4a    ; if 0bc4 < 0bc5 to d00e
+; so here we have 0bc5 < 0bc4 < 0bc6
 CFC4 F6 0B C6        ...   ldab 0bc6
 CFC7 4F              O     clra 
 CFC8 C3 0B C7        ...   addd #0bc7
 CFC4 F6 0B C6        ...   ldab 0bc6
 CFC7 4F              O     clra 
 CFC8 C3 0B C7        ...   addd #0bc7
@@ -10172,7 +10182,9 @@ D002 C6 20           .     ldab #20
 D004 F7 0B DB        ...   stab 0bdb
 D007 C6 08           ..    ldab #08
 D009 F7 0B DC        ...   stab 0bdc
 D004 F7 0B DB        ...   stab 0bdb
 D007 C6 08           ..    ldab #08
 D009 F7 0B DC        ...   stab 0bdc
-D00C 20 58            X    bra 58      ;goto58
+D00C 20 58            X    bra 58      ;goto58 - multiply and exit
+;
+; we know that 0bc4 < 0bc5 < 0bc6
 D00E F6 0B C6        ...   ldab 0bc6
 D011 F1 0B C5        ...   cmpb 0bc5
 D014 25 50           %P    bcs 50
 D00E F6 0B C6        ...   ldab 0bc6
 D011 F1 0B C5        ...   cmpb 0bc5
 D014 25 50           %P    bcs 50
@@ -10211,7 +10223,8 @@ D059 F7 0B DA        ...   stab 0bda
 D05C C6 08           ..    ldab #08
 D05E F7 0B DB        ...   stab 0bdb
 D061 C6 20           .     ldab #20
 D05C C6 08           ..    ldab #08
 D05E F7 0B DB        ...   stab 0bdb
 D061 C6 20           .     ldab #20
-D063 F7 0B DC        ...   stab 0bdc   ;goto58
+D063 F7 0B DC        ...   stab 0bdc   ;goto58 - multiply and exit
+;
 goto58:
 D066 F6 0B AA        ...   ldab 0baa
 D069 4F              O     clra 
 goto58:
 D066 F6 0B AA        ...   ldab 0baa
 D069 4F              O     clra 
@@ -10278,11 +10291,11 @@ D0C9 C6 03           ..    ldab #03
 D0CB F7 0B C5        ...   stab 0bc5
 D0CE C6 02           ..    ldab #02
 D0D0 F7 0B C6        ...   stab 0bc6
 D0CB F7 0B C5        ...   stab 0bc5
 D0CE C6 02           ..    ldab #02
 D0D0 F7 0B C6        ...   stab 0bc6
-D0D3 CC 00 19        ...   ldd #0019
+D0D3 CC 00 19        ...   ldd #0019    ; 25
 D0D6 FD 0B DD        ...   std 0bdd
 D0D6 FD 0B DD        ...   std 0bdd
-D0D9 CC 00 0A        ...   ldd #000a
+D0D9 CC 00 0A        ...   ldd #000a    ; 10
 D0DC FD 0B DF        ...   std 0bdf
 D0DC FD 0B DF        ...   std 0bdf
-D0DF CC 00 05        ...   ldd #0005
+D0DF CC 00 05        ...   ldd #0005    ; 5
 D0E2 FD 0B E1        ...   std 0be1
 D0E5 C6 01           ..    ldab #01
 D0E7 F7 0B D7        ...   stab 0bd7
 D0E2 FD 0B E1        ...   std 0be1
 D0E5 C6 01           ..    ldab #01
 D0E7 F7 0B D7        ...   stab 0bd7
@@ -11094,31 +11107,32 @@ D6F2 BD C0 E0        ...   jsr c0e0           ;jump94
 D6F5 39              9     rts 
 
 jump106:
 D6F5 39              9     rts 
 
 jump106:
+; puts (0cdb+0bdd)+(0cda*0bdf)+(0cd9*0be1) => 0bef
 D6F6 F6 0C DB        ...   ldab 0cdb
 D6F9 4F              O     clra 
 D6FA 37              7     pshb 
 D6FB 36              6     psha 
 D6FC FC 0B DD        ...   ldd 0bdd
 D6FF BD FB BA        ...   jsr fbba            ;jump38 - multiply?
 D6F6 F6 0C DB        ...   ldab 0cdb
 D6F9 4F              O     clra 
 D6FA 37              7     pshb 
 D6FB 36              6     psha 
 D6FC FC 0B DD        ...   ldd 0bdd
 D6FF BD FB BA        ...   jsr fbba            ;jump38 - multiply?
-D702 FD 0C EB        ...   std 0ceb
+D702 FD 0C EB        ...   std 0ceb     ; 0cdb * 0bdd => 0ceb
 D705 F6 0C DA        ...   ldab 0cda
 D708 4F              O     clra 
 D709 37              7     pshb 
 D70A 36              6     psha 
 D70B FC 0B DF        ...   ldd 0bdf
 D70E BD FB BA        ...   jsr fbba            ;jump38 - multiply?
 D705 F6 0C DA        ...   ldab 0cda
 D708 4F              O     clra 
 D709 37              7     pshb 
 D70A 36              6     psha 
 D70B FC 0B DF        ...   ldd 0bdf
 D70E BD FB BA        ...   jsr fbba            ;jump38 - multiply?
-D711 FD 0C ED        ...   std 0ced
+D711 FD 0C ED        ...   std 0ced     ; 0cda * 0bdf => 0ced
 D714 F6 0C D9        ...   ldab 0cd9
 D717 4F              O     clra 
 D718 37              7     pshb 
 D719 36              6     psha 
 D71A FC 0B E1        ...   ldd 0be1
 D71D BD FB BA        ...   jsr fbba            ;jump38 - multiply?
 D714 F6 0C D9        ...   ldab 0cd9
 D717 4F              O     clra 
 D718 37              7     pshb 
 D719 36              6     psha 
 D71A FC 0B E1        ...   ldd 0be1
 D71D BD FB BA        ...   jsr fbba            ;jump38 - multiply?
-D720 FD 0C EF        ...   std 0cef
+D720 FD 0C EF        ...   std 0cef     ; 0cd9 * 0be1 => 0cef
 D723 FC 0C EB        ...   ldd 0ceb
 D726 F3 0C ED        ...   addd 0ced
 D729 F3 0C EF        ...   addd 0cef
 D723 FC 0C EB        ...   ldd 0ceb
 D726 F3 0C ED        ...   addd 0ced
 D729 F3 0C EF        ...   addd 0cef
-D72C FD 0B EF        ...   std 0bef
+D72C FD 0B EF        ...   std 0bef     ; 0ceb+0ced+0cef => 0bef
 D72F 39              9     rts 
 
 jump202:
 D72F 39              9     rts 
 
 jump202:
@@ -11565,7 +11579,7 @@ DA71 02              .     idiv
 DA72 8F              .     xgdx 
 DA73 37              7     pshb 
 DA74 36              6     psha 
 DA72 8F              .     xgdx 
 DA73 37              7     pshb 
 DA74 36              6     psha 
-DA75 CC 00 C3        ...   ldd #00c3
+DA75 CC 00 C3        ...   ldd #00c3    ; 195
 DA78 BD FB BA        ...   jsr fbba            ;jump38 - multiply?
 DA7B B3 0B B9        ...   subd 0bb9
 DA7E 24 05           $.    bcc 05
 DA78 BD FB BA        ...   jsr fbba            ;jump38 - multiply?
 DA7B B3 0B B9        ...   subd 0bb9
 DA7E 24 05           $.    bcc 05
@@ -11575,7 +11589,7 @@ DA82 FD 0B B9        ...   std 0bb9
 DA85 FC 0B B9        ...   ldd 0bb9
 DA88 37              7     pshb 
 DA89 36              6     psha 
 DA85 FC 0B B9        ...   ldd 0bb9
 DA88 37              7     pshb 
 DA89 36              6     psha 
-DA8A CC 00 0A        ...   ldd #000a
+DA8A CC 00 0A        ...   ldd #000a    ; 10
 DA8D BD FB BA        ...   jsr fbba            ;jump38 - multiply?
 DA90 37              7     pshb 
 DA91 36              6     psha 
 DA8D BD FB BA        ...   jsr fbba            ;jump38 - multiply?
 DA90 37              7     pshb 
 DA91 36              6     psha 
@@ -11589,7 +11603,7 @@ DA9C 02              .     idiv
 DA9D 8F              .     xgdx 
 DA9E 37              7     pshb 
 DA9F 36              6     psha 
 DA9D 8F              .     xgdx 
 DA9E 37              7     pshb 
 DA9F 36              6     psha 
-DAA0 CC 00 0A        ...   ldd #000a
+DAA0 CC 00 0A        ...   ldd #000a    ; 10
 DAA3 BD FB BA        ...   jsr fbba            ;jump38 - multiply?
 DAA6 CE 00 0A        ...   ldx #000a
 DAA9 02              .     idiv 
 DAA3 BD FB BA        ...   jsr fbba            ;jump38 - multiply?
 DAA6 CE 00 0A        ...   ldx #000a
 DAA9 02              .     idiv 
@@ -14381,9 +14395,9 @@ F152 CC 05 DC        ...   ldd #05dc
 F155 BD E5 71        ..q   jsr e571            ;msdelay
 F158 7E EE 1C        ~..   jmp ee1c            ;goto81
 
 F155 BD E5 71        ..q   jsr e571            ;msdelay
 F158 7E EE 1C        ~..   jmp ee1c            ;goto81
 
-;send a byte to the printer?
-;it calls c7e7, which does things with the serial port
 jump53:
 jump53:
+;send a byte to the printer
+;it calls c7e7, which does things with the serial port
 F15B 37              7     pshb 
 F15C 36              6     psha 
 F15D F6 00 19        ...   ldab 0019
 F15B 37              7     pshb 
 F15C 36              6     psha 
 F15D F6 00 19        ...   ldab 0019
@@ -14546,17 +14560,16 @@ F294 BD F1 5B        ..[   jsr f15b           ;jump53
 F297 38              8     pulx 
 F298 39              9     rts 
 
 F297 38              8     pulx 
 F298 39              9     rts 
 
-jump61
-jump61::
+jump61:
 F299 37              7     pshb 
 F29A 36              6     psha 
 F299 37              7     pshb 
 F29A 36              6     psha 
-F29B F6 20 00        . .   ldab 2000
-F29E C4 40           .@    andb #40
+F29B F6 20 00        . .   ldab 2000 
+F29E C4 40           .@    andb #40    ; printer DSR
 F2A0 27 7B           '{    beq 7b
 F2A2 F6 00 17        ...   ldab 0017
 F2A5 C4 08           ..    andb #08
 F2A7 26 06           &.    bne 06
 F2A0 27 7B           '{    beq 7b
 F2A2 F6 00 17        ...   ldab 0017
 F2A5 C4 08           ..    andb #08
 F2A7 26 06           &.    bne 06
-F2A9 CC 00 24        ..$   ldd #0024
+F2A9 CC 00 24        ..$   ldd #0024    ; "$"
 F2AC BD F1 5B        ..[   jsr f15b            ;jump53
 F2AF CE 00 1D        ...   ldx #001d
 F2B2 1C 00 01        ...   bset 00,x, #01
 F2AC BD F1 5B        ..[   jsr f15b            ;jump53
 F2AF CE 00 1D        ...   ldx #001d
 F2B2 1C 00 01        ...   bset 00,x, #01
@@ -14565,42 +14578,42 @@ F2B6 EC 00           ..    ldd 00,x
 F2B8 BD E7 45        ..E   jsr e745            ;jump55 - number to string
 F2BB F6 00 57        ..W   ldab 0057
 F2BE 4F              O     clra 
 F2B8 BD E7 45        ..E   jsr e745            ;jump55 - number to string
 F2BB F6 00 57        ..W   ldab 0057
 F2BE 4F              O     clra 
-F2BF BD F1 5B        ..[   jsr f15b            ;jump53
+F2BF BD F1 5B        ..[   jsr f15b            ;jump53 - byte to printer
 F2C2 F6 00 5A        ..Z   ldab 005a
 F2C5 4F              O     clra 
 F2C2 F6 00 5A        ..Z   ldab 005a
 F2C5 4F              O     clra 
-F2C6 BD F1 5B        ..[   jsr f15b            ;jump53
+F2C6 BD F1 5B        ..[   jsr f15b            ;jump53 - byte to printer
 F2C9 F6 00 13        ...   ldab 0013
 F2CC C1 08           ..    cmpb #08
 F2CE 26 0C           &.    bne 0c
 F2D0 CC 00 2E        ...   ldd #002e
 F2C9 F6 00 13        ...   ldab 0013
 F2CC C1 08           ..    cmpb #08
 F2CE 26 0C           &.    bne 0c
 F2D0 CC 00 2E        ...   ldd #002e
-F2D3 BD F1 5B        ..[   jsr f15b            ;jump53
+F2D3 BD F1 5B        ..[   jsr f15b            ;jump53 - byte to printer
 F2D6 CE 00 1D        ...   ldx #001d
 F2D9 1D 00 01        ...   bclr 00,x, #01
 F2DC F6 00 5D        ..]   ldab 005d
 F2DF 4F              O     clra 
 F2D6 CE 00 1D        ...   ldx #001d
 F2D9 1D 00 01        ...   bclr 00,x, #01
 F2DC F6 00 5D        ..]   ldab 005d
 F2DF 4F              O     clra 
-F2E0 BD F1 5B        ..[   jsr f15b            ;jump53
+F2E0 BD F1 5B        ..[   jsr f15b            ;jump53 - byte to printer
 F2E3 F6 00 13        ...   ldab 0013
 F2E6 C1 04           ..    cmpb #04
 F2E8 26 0C           &.    bne 0c
 F2EA CC 00 2E        ...   ldd #002e
 F2E3 F6 00 13        ...   ldab 0013
 F2E6 C1 04           ..    cmpb #04
 F2E8 26 0C           &.    bne 0c
 F2EA CC 00 2E        ...   ldd #002e
-F2ED BD F1 5B        ..[   jsr f15b            ;jump53
+F2ED BD F1 5B        ..[   jsr f15b            ;jump53 - byte to printer
 F2F0 CE 00 1D        ...   ldx #001d
 F2F3 1D 00 01        ...   bclr 00,x, #01
 F2F6 F6 00 5E        ..^   ldab 005e
 F2F9 4F              O     clra 
 F2F0 CE 00 1D        ...   ldx #001d
 F2F3 1D 00 01        ...   bclr 00,x, #01
 F2F6 F6 00 5E        ..^   ldab 005e
 F2F9 4F              O     clra 
-F2FA BD F1 5B        ..[   jsr f15b            ;jump53
+F2FA BD F1 5B        ..[   jsr f15b            ;jump53 - byte to printer
 F2FD F6 00 13        ...   ldab 0013
 F300 C1 02           ..    cmpb #02
 F302 26 06           &.    bne 06
 F304 CC 00 2E        ...   ldd #002e
 F2FD F6 00 13        ...   ldab 0013
 F300 C1 02           ..    cmpb #02
 F302 26 06           &.    bne 06
 F304 CC 00 2E        ...   ldd #002e
-F307 BD F1 5B        ..[   jsr f15b            ;jump53
+F307 BD F1 5B        ..[   jsr f15b            ;jump53 - byte to printer
 F30A CE 00 1D        ...   ldx #001d
 F30D 1D 00 01        ...   bclr 00,x, #01
 F310 F6 00 5F        .._   ldab 005f
 F313 4F              O     clra 
 F30A CE 00 1D        ...   ldx #001d
 F30D 1D 00 01        ...   bclr 00,x, #01
 F310 F6 00 5F        .._   ldab 005f
 F313 4F              O     clra 
-F314 BD F1 5B        ..[   jsr f15b            ;jump53
+F314 BD F1 5B        ..[   jsr f15b            ;jump53 - byte to printer
 F317 CC 00 0A        ...   ldd #000a
 F317 CC 00 0A        ...   ldd #000a
-F31A BD F1 5B        ..[   jsr f15b            ;jump53
+F31A BD F1 5B        ..[   jsr f15b            ;jump53 - byte to printer
 F31D 38              8     pulx 
 F31E 39              9     rts 
 
 F31D 38              8     pulx 
 F31E 39              9     rts 
 
@@ -14610,14 +14623,14 @@ F320 37              7     pshb
 F321 36              6     psha 
 F322 3C              <     pshx 
 F323 F6 20 00        . .   ldab 2000
 F321 36              6     psha 
 F322 3C              <     pshx 
 F323 F6 20 00        . .   ldab 2000
-F326 C4 40           .@    andb #40
+F326 C4 40           .@    andb #40     ; printer dsr
 F328 26 03           &.    bne 03
 F32A 7E F3 BC        ~..   jmp f3bc            ;goto82
 F32D F6 00 17        ...   ldab 0017
 F330 C4 08           ..    andb #08
 F332 26 06           &.    bne 06
 F328 26 03           &.    bne 03
 F32A 7E F3 BC        ~..   jmp f3bc            ;goto82
 F32D F6 00 17        ...   ldab 0017
 F330 C4 08           ..    andb #08
 F332 26 06           &.    bne 06
-F334 CC 00 24        ..$   ldd #0024
-F337 BD F1 5B        ..[   jsr f15b            ;jump53
+F334 CC 00 24        ..$   ldd #0024    ; "$"
+F337 BD F1 5B        ..[   jsr f15b            ;jump53 - byte to printer
 F33A CE 00 1D        ...   ldx #001d
 F33D 1C 00 01        ...   bset 00,x, #01
 F340 30              0     tsx 
 F33A CE 00 1D        ...   ldx #001d
 F33D 1C 00 01        ...   bset 00,x, #01
 F340 30              0     tsx 
@@ -14724,6 +14737,7 @@ F413 38              8     pulx
 F414 39              9     rts 
 
 jump112:
 F414 39              9     rts 
 
 jump112:
+; print a report?
 F415 F6 0B C0        ...   ldab 0bc0
 F418 C4 02           ..    andb #02
 F41A 27 15           '.    beq 15
 F415 F6 0B C0        ...   ldab 0bc0
 F418 C4 02           ..    andb #02
 F41A 27 15           '.    beq 15
@@ -14753,33 +14767,33 @@ F458 CC 00 18        ...   ldd #0018
 F45B BD F1 5B        ..[   jsr f15b            ;jump53
 F45E CC B2 1B        ...   ldd #b21b   "         ROWE  INTERNATIONAL"
 F461 BD F1 E8        ...   jsr f1e8            ;jump57
 F45B BD F1 5B        ..[   jsr f15b            ;jump53
 F45E CC B2 1B        ...   ldd #b21b   "         ROWE  INTERNATIONAL"
 F461 BD F1 E8        ...   jsr f1e8            ;jump57
-F464 CC 00 0A        ...   ldd #000a
+F464 CC 00 0A        ...   ldd #000a    ; new line
 F467 BD F1 5B        ..[   jsr f15b            ;jump53
 F46A CC B2 38        ..8   ldd #b238    "         -------------------"
 F46D BD F1 E8        ...   jsr f1e8            ;jump57
 F467 BD F1 5B        ..[   jsr f15b            ;jump53
 F46A CC B2 38        ..8   ldd #b238    "         -------------------"
 F46D BD F1 E8        ...   jsr f1e8            ;jump57
-F470 CC 00 0A        ...   ldd #000a
+F470 CC 00 0A        ...   ldd #000a    ; new line
 F473 BD F1 5B        ..[   jsr f15b            ;jump53
 F473 BD F1 5B        ..[   jsr f15b            ;jump53
-F476 CC B2 56        ..V   ldd #b256
+F476 CC B2 56        ..V   ldd #b256    ; "5900 SOFTWARE VER 5"
 F479 BD F1 E8        ...   jsr f1e8            ;jump57
 F479 BD F1 E8        ...   jsr f1e8            ;jump57
-F47C CC 00 0A        ...   ldd #000a
+F47C CC 00 0A        ...   ldd #000a    ; new line
 F47F BD F1 5B        ..[   jsr f15b            ;jump53
 F47F BD F1 5B        ..[   jsr f15b            ;jump53
-F482 CC 00 0A        ...   ldd #000a
+F482 CC 00 0A        ...   ldd #000a    ; new line
 F485 BD F1 5B        ..[   jsr f15b            ;jump53
 F485 BD F1 5B        ..[   jsr f15b            ;jump53
-F488 CC B2 75        ..u   ldd #b275
+F488 CC B2 75        ..u   ldd #b275    ; ACCOUNT RECORD
 F48B BD F1 E8        ...   jsr f1e8            ;jump57
 F48B BD F1 E8        ...   jsr f1e8            ;jump57
-F48E CC 00 0A        ...   ldd #000a
+F48E CC 00 0A        ...   ldd #000a    ; new line
 F491 BD F1 5B        ..[   jsr f15b            ;jump53
 F491 BD F1 5B        ..[   jsr f15b            ;jump53
-F494 CC B2 38        ..8   ldd #b238
+F494 CC B2 38        ..8   ldd #b238    ; --------------------
 F497 BD F1 E8        ...   jsr f1e8            ;jump57
 F497 BD F1 E8        ...   jsr f1e8            ;jump57
-F49A CC 00 0A        ...   ldd #000a
+F49A CC 00 0A        ...   ldd #000a    ; new line
 F49D BD F1 5B        ..[   jsr f15b            ;jump53
 F49D BD F1 5B        ..[   jsr f15b            ;jump53
-F4A0 CC 00 0A        ...   ldd #000a
+F4A0 CC 00 0A        ...   ldd #000a    ; new line
 F4A3 BD F1 5B        ..[   jsr f15b            ;jump53
 F4A3 BD F1 5B        ..[   jsr f15b            ;jump53
-F4A6 CC B2 90        ...   ldd #b290
+F4A6 CC B2 90        ...   ldd #b290    ; SERIAL #
 F4A9 BD F1 E8        ...   jsr f1e8            ;jump57
 F4AC CE 00 0A        ...   ldx #000a
 F4AF 3C              <     pshx 
 F4A9 BD F1 E8        ...   jsr f1e8            ;jump57
 F4AC CE 00 0A        ...   ldx #000a
 F4AF 3C              <     pshx 
-F4B0 CC 0C BC        ...   ldd #0cbc
+F4B0 CC 0C BC        ...   ldd #0cbc    ; serial number
 F4B3 BD F1 C1        ...   jsr f1c1            ;jump59
 F4B6 38              8     pulx 
 F4B7 CC 00 0A        ...   ldd #000a
 F4B3 BD F1 C1        ...   jsr f1c1            ;jump59
 F4B6 38              8     pulx 
 F4B7 CC 00 0A        ...   ldd #000a
@@ -14793,22 +14807,22 @@ F4CA BD F1 C1        ...   jsr f1c1           ;jump59
 F4CD 38              8     pulx 
 F4CE CC 00 0A        ...   ldd #000a
 F4D1 BD F1 5B        ..[   jsr f15b            ;jump53
 F4CD 38              8     pulx 
 F4CE CC 00 0A        ...   ldd #000a
 F4D1 BD F1 5B        ..[   jsr f15b            ;jump53
-F4D4 CC B2 B4        ...   ldd #b2b4
+F4D4 CC B2 B4        ...   ldd #b2b4    ; "AUDIT NUMBER"
 F4D7 BD F1 E8        ...   jsr f1e8            ;jump57
 F4DA FC 0C E7        ...   ldd 0ce7
 F4D7 BD F1 E8        ...   jsr f1e8            ;jump57
 F4DA FC 0C E7        ...   ldd 0ce7
-F4DD BD F2 4D        ..M   jsr f24d            ;jump58
+F4DD BD F2 4D        ..M   jsr f24d            ;jump58 - convert to string
 F4E0 CC 00 0A        ...   ldd #000a
 F4E3 BD F1 5B        ..[   jsr f15b            ;jump53
 F4E6 CC 00 0A        ...   ldd #000a
 F4E9 BD F1 5B        ..[   jsr f15b            ;jump53
 F4E0 CC 00 0A        ...   ldd #000a
 F4E3 BD F1 5B        ..[   jsr f15b            ;jump53
 F4E6 CC 00 0A        ...   ldd #000a
 F4E9 BD F1 5B        ..[   jsr f15b            ;jump53
-F4EC CC B2 C6        ...   ldd #b2c6
+F4EC CC B2 C6        ...   ldd #b2c6    ; "SALES (R)
 F4EF BD F1 E8        ...   jsr f1e8            ;jump57
 F4F2 FE 0D E9        ...   ldx 0de9
 F4F5 3C              <     pshx 
 F4F6 FC 0D E7        ...   ldd 0de7
 F4F9 BD F3 1F        ...   jsr f31f            ;jump60
 F4FC 38              8     pulx 
 F4EF BD F1 E8        ...   jsr f1e8            ;jump57
 F4F2 FE 0D E9        ...   ldx 0de9
 F4F5 3C              <     pshx 
 F4F6 FC 0D E7        ...   ldd 0de7
 F4F9 BD F3 1F        ...   jsr f31f            ;jump60
 F4FC 38              8     pulx 
-F4FD CC B2 D8        ...   ldd #b2d8
+F4FD CC B2 D8        ...   ldd #b2d8    ; "SALES (N)
 F500 BD F1 E8        ...   jsr f1e8            ;jump57
 F503 FE 0D ED        ...   ldx 0ded
 F506 3C              <     pshx 
 F500 BD F1 E8        ...   jsr f1e8            ;jump57
 F503 FE 0D ED        ...   ldx 0ded
 F506 3C              <     pshx 
@@ -15544,7 +15558,8 @@ FBB9 3B              ;     rti
 
 jump38:
 ; passed a u16 on the stack, i, and a u16 in D, j
 
 jump38:
 ; passed a u16 on the stack, i, and a u16 in D, j
-; multiplication funciton of some sort?
+; i *think* it multiplies i*j and returns it in D.
+; but the assembly seems to have several off-by-one errors
 FBBA 3C              <     pshx 
 FBBB 37              7     pshb 
 FBBC 30              0     tsx 
 FBBA 3C              <     pshx 
 FBBB 37              7     pshb 
 FBBC 30              0     tsx 
@@ -15552,10 +15567,10 @@ FBBD E6 06           ..    ldab 06,x   ; lower 8-bits of i
 FBBF 3D              =     mul         ; A*B => D
 FBC0 A6 00           ..    ldaa 00,x
 FBC2 37              7     pshb 
 FBBF 3D              =     mul         ; A*B => D
 FBC0 A6 00           ..    ldaa 00,x
 FBC2 37              7     pshb 
-FBC3 E6 05           ..    ldab 05,x
+FBC3 E6 05           ..    ldab 05,x   ; upper byte of return address??
 FBC5 3D              =     mul 
 FBC6 32              2     pula 
 FBC5 3D              =     mul 
 FBC6 32              2     pula 
-FBC7 1B              .     aba 
+FBC7 1B              .     aba         ; a now contains ad+bc
 FBC8 33              3     pulb 
 FBC9 36              6     psha 
 FBCA A6 06           ..    ldaa 06,x
 FBC8 33              3     pulb 
 FBC9 36              6     psha 
 FBCA A6 06           ..    ldaa 06,x
@@ -15563,8 +15578,8 @@ FBCC 3D              =     mul
 FBCD 37              7     pshb 
 FBCE AB 00           ..    adda 00,x
 FBD0 36              6     psha 
 FBCD 37              7     pshb 
 FBCE AB 00           ..    adda 00,x
 FBD0 36              6     psha 
-FBD1 EC 03           ..    ldd 03,x
-FBD3 ED 05           ..    std 05,x
+FBD1 EC 03           ..    ldd 03,x    ; move saved value of X
+FBD3 ED 05           ..    std 05,x    ; into the return address???
 FBD5 38              8     pulx 
 FBD6 8F              .     xgdx 
 FBD7 83 00 00        ...   subd #0000
 FBD5 38              8     pulx 
 FBD6 8F              .     xgdx 
 FBD7 83 00 00        ...   subd #0000
@@ -15853,16 +15868,11 @@ goto91:
 FDA4 2B BC           +.    bmi bc
 FDA6 86 10           ..    ldaa #10
 FDA8 A7 05           ..    staa 05,x
 FDA4 2B BC           +.    bmi bc
 FDA6 86 10           ..    ldaa #10
 FDA8 A7 05           ..    staa 05,x
-FDAA 69              i     rol 
-FDAB 0D              .     sec 
-FDAC 69              i     rol 
-FDAD 0C              .     clc 
-FDAE 69              i     rol 
-FDAF 0B              .     sev 
-FDB0 69              i     rol 
-FDB1 0A              .     clv 
-FDB2 69              i     rol 
-FDB3 07              .     tpa 
+FDAA 69 0D           i     rol 0d,x
+FDAC 69 0C           i     rol 0c,x
+FDAE 69 0B           i     rol 08,x
+FDB0 69 0A           i     rol 0a,x
+FDB2 69 07           i     rol 07,x
 FDB4 EC 0A           ..    ldd 0a,x
 FDB6 A3 10           ..    subd 10,x
 FDB8 ED 14           ..    std 14,x
 FDB4 EC 0A           ..    ldd 0a,x
 FDB6 A3 10           ..    subd 10,x
 FDB8 ED 14           ..    std 14,x
UCC Snack Machine ROM

UCC git Repository :: git.ucc.asn.au