;0b90 - 0b99 display buffer (backwards)
;0b9a - some sort of id? press 89 on the machine
;0baa
+;0bae
;0bb5 win-a-snack odds (is this in NVRAM?)
;0bbd
;0bd8 related to 0017 and 0021 (only lower 3 bits used)
;0e06 - ?? array of digits*10
;1000
;1009
+;1016 - timer output compare 1 register
;1026
;1028 SPCR (Serial Peripheral Control Register)
;1030
;103c
-;1016 - timer output compare 1 register
;1800 Internal switches
; 7 changer INT'
87E9 7F 00 05 ... clr 0005
87EC 7F 00 54 ..T clr 0054
87EF F6 00 54 ..T ldab 0054
-87F2 C1 50 .P cmpb #50 ; 80
+87F2 C1 50 .P cmpb #50 ; 80 entries in lookup table
87F4 24 2E $. bcc 2e ; to 8824
87F6 F6 00 54 ..T ldab 0054
87F9 4F O clra
-87FA C3 B0 D3 ... addd #b0d3
+87FA C3 B0 D3 ... addd #b0d3 ; lookup table
87FD 8F . xgdx
87FE E6 00 .. ldab 00,x
8800 F7 00 06 ... stab 0006
B0C2 00 . test
B0C3 14 00 . ;20
-B0C5 14 C8 . ;20
+B0C5 14 C8 . ;20 200
B0C7 05 00 .. ;05
B0C9 05 00 . ;05
B0CB 02 00 . ;02
B0CD 02 00 . ;02
B0CF 01 00 . ;01
B0D1 01 00 . ;01
-B0D3 01 0C . ;01
-B0D5 17 22 .
-B0D7 2E 39 ".
-
-B0D9 44 D lsra
-B0DA 4F O clra
-B0DB 0B . sev
-B0DC 16 . tab
-B0DD 21 2C !, brn 2c
-B0DF 38 8 pulx
-B0E0 43 C coma
-B0E1 4E N illegal
-B0E2 59 Y rolb
-B0E3 15 . bclr
-B0E4 20 2B + bra 2b
-B0E6 36 6 psha
-B0E7 42 B illegal
-B0E8 4D M tsta
-B0E9 58 X aslb
-B0EA 63 1F c. com 1f,x
-B0EC 2A 35 *5 bpl 35
-B0EE 40 @ nega
-B0EF 4C L inca
-B0F0 57 W asrb
-B0F1 62 b illegal
-B0F2 09 . dex
-B0F3 29 34 )4 bvs 34
-B0F5 3F ? swi
-B0F6 4A J deca
-B0F7 56 V rorb
-B0F8 61 a illegal
-B0F9 08 . inx
-B0FA 13 . brclr
-B0FB 33 3 pulb
-B0FC 3E > wai
-B0FD 49 I rola
-B0FE 54 T lsrb
-B0FF 60 07 `. neg 07,x
-B101 12 . brset
-B102 1D 3D 48 ... bclr 3d,x, #48
-B105 53 S comb
-B106 5E ^ illegal
-B107 06 . tap
-B108 11 . cba
-B109 1C 27 47 ... bset 27,x, #47 ; fixed by ./fixbset.pl - verify me
-B10C 52 R illegal
-B10D 5D ] tstb
-B10E 04 . lsrd
-B10F 10 . sba
-B110 1B . aba
-B111 26 31 &1 bne 31
-B113 51 Q illegal
-B114 5C \ incb
-B115 03 . fdiv
-B116 0E . cli
-B117 1A . illegal
-B118 25 30 %0 bcs 30
-B11A 3B ; rti
-B11B 5B [ illegal
-B11C 02 . idiv
-B11D 0D . sec
-B11E 18 . illegal
-B11F 24 2F $/ bcc 2f
-B121 3A : abx
-B122 45 E illegal
+
+
+
+
+
+;
+; here's a lookup table of some sort, for finding the slot
+; numbers of each motor in turn
+;
+; 80 entries for 80 motors?
+;
+B0D3 01 . ;01
+B0D4 0C . ;12
+B0D5 17 . ;23
+B0D6 22 . ;34
+B0D7 2E . ;46
+B0D8 39 . ;57
+B0D9 44 D ;68
+B0DA 4F O ;79
+;
+B0DB 0B . ;11
+B0DC 16 . ;22
+B0DD 21 ! ;33
+B0DE 2C . ;44
+B0DF 38 8 ;56
+B0E0 43 C ;67
+B0E1 4E N ;78
+B0E2 59 Y ;89
+;
+B0E3 15 . ;21
+B0E4 20 . ;32
+B0E5 2B + ;43
+B0E6 36 6 ;54
+B0E7 42 B ;66
+B0E8 4D M ;77
+B0E9 58 X ;88
+B0EA 63 c ;99
+;
+B0EB 1F . ;31
+B0EC 2A *. ;42
+B0ED 35 . ;53
+B0EE 40 @ ;64
+B0EF 4C L ;76
+B0F0 57 W ;87
+B0F1 62 b ;98
+;
+B0F2 09 . ;09
+B0F3 29 ) ;41
+B0F4 34 . ;52
+B0F5 3F ? ;63
+B0F6 4A J ;74
+B0F7 56 V ;86
+B0F8 61 a ;97
+;
+B0F9 08 . ;08
+B0FA 13 . ;19
+B0FB 33 3 ;51
+B0FC 3E > ;62
+B0FD 49 I ;73
+B0FE 54 T ;84
+B0FF 60 ` ;96
+;
+B000 07 . ;07
+B101 12 . ;18
+B102 1D . ;29
+B103 3D . ;61
+B104 48 . ;72
+B105 53 S ;83
+B106 5E ^ ;94
+;
+B107 06 . ;06
+B108 11 . ;17
+B109 1C . ;28
+B10A 27 . ;39
+B10B 47 . ;71
+B10C 52 R ;82
+B10D 5D ] ;93
+;
+B10E 04 . ;04
+B10F 10 . ;16
+B110 1B . ;27
+B111 26 & ;38
+B111 31 & ;49
+B113 51 Q ;81
+B114 5C \ ;92
+;
+B115 03 . ;03
+B116 0E . ;14
+B117 1A . ;26
+B118 25 % ;37
+B119 30 % ;48
+B11A 3B ; ;59
+B11B 5B [ ;91
+;
+B11C 02 . ;02
+B11D 0D . ;13
+B11E 18 . ;24
+B11F 24 $ ;36
+B120 2F $ ;47
+B121 3A : ;58
+B122 45 E ;69
table of powers of 2
CBCE C4 EF .. andb #ef ; 11101111
CBD0 C1 27 .' cmpb #27 ; 00100111
CBD2 26 06 &. bne 06 ;goto48 - cleanup & exit
-
+;
CBD4 CE 0B C1 ... ldx #0bc1
CBD7 1C 00 10 ... bset 00,x, #10
goto48: ; cleanup and exit
CDE5 C4 08 .. andb #08
CDE7 26 19 &. bne 19
CDE9 CC 00 FE ... ldd #00fe
-CDEC BD C7 E7 ... jsr c7e7 ;jump37 - send byte to coin mech
+CDEC BD C7 E7 ... jsr c7e7 ;jump37 - send #fe to coin mech
CDEF F6 00 1F ... ldab 001f
CDF2 C4 08 .. andb #08
CDF4 27 0A '. beq 0a
D49D 7F 00 05 ... clr 0005
goto65:
D4A0 F6 00 05 ... ldab 0005
-D4A3 C1 50 .P cmpb #50
+D4A3 C1 50 .P cmpb #50 ; 80
D4A5 25 03 %. bcs 03
-D4A7 7E D5 60 ~.` jmp d560 ;goto63
+D4A7 7E D5 60 ~.` jmp d560 ;goto63 - exit
D4AA F6 00 05 ... ldab 0005
D4AD 4F O clra
-D4AE C3 B0 D3 ... addd #b0d3
+D4AE C3 B0 D3 ... addd #b0d3 ;motor lookup table
D4B1 8F . xgdx
D4B2 E6 00 .. ldab 00,x
D4B4 F7 00 06 ... stab 0006
D8A2 FC 0D E7 ... ldd 0de7
D8A5 37 7 pshb
D8A6 36 6 psha
-D8A7 CE E1 00 ... ldx #e100
+D8A7 CE E1 00 ... ldx #e100 ; 57600
D8AA 3C < pshx
D8AB CC 05 F5 ... ldd #05f5
D8AE 37 7 pshb
jump123:
D95A F6 00 06 ... ldab 0006
D95D F1 0B AF ... cmpb 0baf
-D960 26 0D &. bne 0d
+D960 26 0D &. bne 0d ; to d984
D962 BD D7 FF ... jsr d7ff ;jump80
D965 F6 0B B4 ... ldab 0bb4
D968 F7 00 06 ... stab 0006
D96B 8D 55 .U bsr 55 ;jump205
-D96D 20 52 R bra 52
+D96D 20 52 R bra 52 ; exit
D96F F6 00 06 ... ldab 0006
D972 F1 0B AE ... cmpb 0bae
-D975 26 0D &. bne 0d
+D975 26 0D &. bne 0d ; to d984
D977 BD D7 FF ... jsr d7ff ;jump80
D97A F6 0B B3 ... ldab 0bb3
D97D F7 00 06 ... stab 0006
-D980 8D 40 .@ bsr dest 40
+D980 8D 40 .@ bsr 40 ;jump205
D982 20 3D = bra 3d
D984 F6 00 06 ... ldab 0006
D987 F1 0B AD ... cmpb 0bad
D98C BD D7 FF ... jsr d7ff ;jump80
D98F F6 0B B2 ... ldab 0bb2
D992 F7 00 06 ... stab 0006
-D995 8D 2B .+ bsr dest 2b
+D995 8D 2B .+ bsr 2b ;jump205
D997 20 28 ( bra 28
D999 F6 00 06 ... ldab 0006
D99C F1 0B AC ... cmpb 0bac
D9A1 BD D7 FF ... jsr d7ff ;jump80
D9A4 F6 0B B1 ... ldab 0bb1
D9A7 F7 00 06 ... stab 0006
-D9AA 8D 16 .. bsr dest 16
+D9AA 8D 16 .. bsr 16 ;jump205
D9AC 20 13 . bra 13
D9AE F6 00 06 ... ldab 0006
D9B1 F1 0B AB ... cmpb 0bab
D9B6 BD D7 FF ... jsr d7ff ;jump80
D9B9 F6 0B B0 ... ldab 0bb0
D9BC F7 00 06 ... stab 0006
-D9BF 8D 01 .. bsr dest 01
+D9BF 8D 01 .. bsr 01 ;jump205
D9C1 39 9 rts
jump205:
E1FC 83 00 00 ... subd #0000
E200 26 12 &. bne 12
E202 BD E5 D1 ... jsr e5d1 ;jump52 - triple beep
-E205 BD D8 E9 ... jsr d8e9 ;jump92
+E205 BD D8 E9 ... jsr d8e9 ;jump92 - "SELECT OTHER ITEM"
E208 FC 00 40 ..@ ldd 0040
E20B F3 00 44 ..D addd 0044
E20E FD 00 40 ..@ std 0040
E5A9 39 9 rts
jump12:
+; beep if keypressed?
E5AA F6 00 33 ..3 ldab 0033
E5AD 27 0C '. beq 0c ; to e5bb
E5AF F6 00 29 ..) ldab 0029 ; key state
FA61 BD BE 69 ..i jsr be69 ;displayreset
FA64 7F 00 06 ... clr 0006
FA67 CE 00 1F ... ldx #001f
-FA6A 1D 00 .. bclr add,x 00,x
-FA6C 20 C6 . bra c6
-FA6E 1E F7 00 35 ...5 brset f7,x 00 35
+FA6A 1D 00 20 .. bclr 00,x, #20
+FA6D C6 1E . ldab #1e
+FA6F F7 00 35 ...5 stab 0035
FA72 20 03 . bra 03
goto84:
FA74 BD DE E7 ... jsr dee7 ;jump116
goto83:
FA79 F6 00 12 ... ldab 0012
FA7C C4 20 . andb #20
-FA7E 27 5F '_ beq 5f
+FA7E 27 5F '_ beq 5f ; to fadf - restart loop
FA80 F6 00 1F ... ldab 001f
FA83 C4 20 . andb #20
FA85 26 03 &. bne 03
FAB4 FD 00 3B ..; std 003b
FAB7 20 09 . bra 09 ; to fac2
;
-FAB9 BD E5 AA ... jsr e5aa ;jump12
+FAB9 BD E5 AA ... jsr e5aa ;jump12 - beep if key pressed?
FABC CE 00 1F ... ldx #001f
FABF 1D 00 04 ... bclr 00,x, #04
FAC2 CE 00 1D ... ldx #001d
git.ucc.asn.au / uccvend-snackrom.git / commitdiff
UCC git Repository :: git.ucc.asn.au