From: Bernard Blackham Date: Sun, 3 Aug 2003 15:04:31 +0000 (+0000) Subject: more unearthings X-Git-Tag: ROMW~118 X-Git-Url: https://git.ucc.asn.au/?a=commitdiff_plain;h=8539e40d477eff1c668a9c56ba04d24881d2f796;p=uccvend-snackrom.git more unearthings --- diff --git a/ROM-2003/vend.asm b/ROM-2003/vend.asm index 2f75940..0757d0a 100644 --- a/ROM-2003/vend.asm +++ b/ROM-2003/vend.asm @@ -3584,54 +3584,54 @@ jump100: 9E8C F6 00 48 ..H ldab 0048 9E8F 4F O clra 9E90 BD FE 16 ... jsr fe16 ;jump2 -9E93 00 . test -9E94 01 . nop -9E95 00 . test -9E96 2D A1 -. blt a1 -9E98 C4 9E .. andb #9e -9E9A F5 9E FE ... bitb 9efe -9E9D 9F 07 9F ... sts 07 -9EA0 10 . sba -9EA1 9F 19 9F ... sts 19 -9EA4 3B ; rti -9EA5 9F 44 9F .D. sts 44 -9EA8 52 R illegal -9EA9 9F 5B 9F .[. sts 5b -9EAC 69 i rol -9EAD 9F 72 9F .r. sts 72 -9EB0 80 9F .. suba #9f -9EB2 89 9F .. adca #9f -9EB4 97 9F A0 ... staa 9f -9EB7 9F AE 9F ... sts ae -9EBA B7 9F C5 ... staa 9fc5 -9EBD 9F DD 9F ... sts dd -9EC0 EB A0 .. addb a0,x -9EC2 03 . fdiv -9EC3 A0 11 .. suba 11,x -9EC5 A0 29 .) suba 29,x -9EC7 A0 37 .7 suba 37,x -9EC9 A0 54 .T suba 54,x -9ECB A0 62 .b suba 62,x -9ECD A0 7F .. suba 7f,x -9ECF A0 8D .. suba 8d,x -9ED1 A0 96 .. suba 96,x -9ED3 A0 A4 .. suba a4,x -9ED5 A0 AD .. suba ad,x -9ED7 A0 BC .. suba bc,x -9ED9 A0 C5 .. suba c5,x -9EDB A0 D4 .. suba d4,x -9EDD A0 DD .. suba dd,x -9EDF A0 EC .. suba ec,x -9EE1 A0 F5 .. suba f5,x -9EE3 A1 04 .. cmpa 04,x -9EE5 A1 26 .& cmpa 26,x -9EE7 A1 34 .4 cmpa 34,x -9EE9 A1 55 .U cmpa 55,x -9EEB A1 62 .b cmpa 62,x -9EED A1 83 .. cmpa 83,x -9EEF A1 90 .. cmpa 90,x -9EF1 A1 B1 .. cmpa b1,x -9EF3 A1 BE .. cmpa be,x +9E93 00 01 00 2D . ; 45 choices here +9E97 A1 C4 -. ; +9E99 9E F5 .. ; +9E9B 9E FE .. ; +9E9D 9F 07 .. ; +9E9F 9F 10 .. ; +9EA1 9F 19 .. ; +9EA3 9F 3B ;. ; +9EA5 9F 44 .D. ; +9EA7 9F 52 R ; +9EA9 9F 5B .[. ; +9EAB 9F 69 i ; +9EAD 9F 72 .r. ; +9EBF 9F 80 .. ; +9EB1 9F 89 .. ; +9EB3 9F 97 .. ; +9EB5 9F A0 ... ; +9EB7 9F AE .. ; +9EB9 9F B7 ... ; +9EBB 9F C5 ... ; +9EBD 9F DD ... ; +9EBF 9F EB .. ; +9EC1 A0 03 . ; +9EC3 A0 11 .. ; +9EC5 A0 29 .) ; +9EC7 A0 37 .7 ; +9EC9 A0 54 .T ; +9ECB A0 62 .b ; +9ECD A0 7F .. ; +9ECF A0 8D .. ; +9ED1 A0 96 .. ; +9ED3 A0 A4 .. ; +9ED5 A0 AD .. ; +9ED7 A0 BC .. ; +9ED9 A0 C5 .. ; +9EDB A0 D4 .. ; +9EDD A0 DD .. ; +9EDF A0 EC .. ; +9EE1 A0 F5 .. ; +9EE3 A1 04 .. ; +9EE5 A1 26 .& ; +9EE7 A1 34 .4 ; +9EE9 A1 55 .U ; +9EEB A1 62 .b ; +9EED A1 83 .. ; +9EEF A1 90 .. ; +9EF1 A1 B1 .. ; +9EF3 A1 BE .. ; 9EF5 CC B2 90 ... ldd #b290 ; "SERIAL #" 9EF8 BD C0 BA ... jsr c0ba ;display: 9EFB 7E A1 C4 ~.. jmp a1c4 ;goto19 @@ -3644,13 +3644,13 @@ jump100: 9F10 CC 0C CC ... ldd #0ccc ; machine id? 9F13 BD C0 BA ... jsr c0ba ;display: 9F16 7E A1 C4 ~.. jmp a1c4 ;goto19 -9F19 C6 41 .A ldab #41 +9F19 C6 41 .A ldab #41 ; "A" 9F1B F7 0B 99 ... stab 0b99 -9F1E C6 55 .U ldab #55 +9F1E C6 55 .U ldab #55 ; "U" 9F20 F7 0B 98 ... stab 0b98 -9F23 C6 44 .D ldab #44 +9F23 C6 44 .D ldab #44 ; "D" 9F25 F7 0B 97 ... stab 0b97 -9F28 C6 54 .T ldab #54 +9F28 C6 54 .T ldab #54 ; "T" 9F2A F7 0B 96 ... stab 0b96 9F2D CE 00 00 ... ldx #0000 9F30 3C < pshx