                        .module LEDCONtest.c
                        .area text
 0000           L4:
 0000 54686520456E642000        .byte 'T,'h,'e,32,'E,'n,'d,32,0
 0009           L5:
 0009 4475636B2020202000        .byte 'D,'u,'c,'k,32,32,32,32,0
 0012           L6:
 0012 446565722020202000        .byte 'D,'e,'e,'r,32,32,32,32,0
 001B           L7:
 001B 526162626974202000        .byte 'R,'a,'b,'b,'i,'t,32,32,0
 0024           L8:
 0024 446F6E652020202000        .byte 'D,'o,'n,'e,32,32,32,32,0
 002D           L9:
 002D 53746F702020202000        .byte 'S,'t,'o,'p,32,32,32,32,0
 0036           L10:
 0036 476F20202020202000        .byte 'G,'o,32,32,32,32,32,32,0
 003F           L11:
 003F 494545452055534D00        .byte 'I,'E,'E,'E,32,'U,'S,'M,0
 0048           L12:
 0048 202020202020202000        .byte 32,32,32,32,32,32,32,32,0
 0051           L13:
 0051 4E6F6E652020202000        .byte 'N,'o,'n,'e,32,32,32,32,0
 005A           L14:
 005A B5B7              .word 46519
 005C B5B6              .word 46518
 005E B5B5              .word 46517
 0060 B5B4              .word 46516
 0062 B5BF              .word 46527
 0064 B5BE              .word 46526
 0066 B5BD              .word 46525
 0068 B5BC              .word 46524
 006A           ;  IX -> 0,x
 006A           ;  rMEM -> 2,x
 006A           ;           wait -> +5,x
 006A           ;        nothing -> +7,x
 006A           ;        string9 -> +16,x
 006A           ;        string8 -> +25,x
 006A           ;        string7 -> +34,x
 006A           ;        string6 -> +43,x
 006A           ;        string5 -> +52,x
 006A           ;        string4 -> +61,x
 006A           ;        string3 -> +70,x
 006A           ;        string2 -> +79,x
 006A           ;              x -> +88,x
 006A           ;        string1 -> +90,x
 006A           ;          digit -> +99,x
 006A           ;          ascii -> +115,x
 006A           ;             ad -> +116,x
 006A           ;            cnt -> +118,x
 006A           _main::
 006A BD0000            jsr __enter
 006D 0078              .word 0x78
 006F           ; #include <hc11.h>
 006F           ; #include <stdio.h>
 006F           ; 
 006F           ; void loop (void);
 006F           ; 
 006F           ; void main (void)
 006F           ; {      
 006F           ;        unsigned int ad;
 006F           ;        unsigned char ascii;
 006F           ;        int cnt, x=0,wait=0;
 006F CC0000            ldd #0
 0072 ED58              std 88,x
 0074 CC0000            ldd #0
 0077 ED05              std 5,x
 0079           ;        unsigned char string1[]="The End ";
 0079 EC00              ldd 0,x
 007B C3005A            addd #90
 007E 18CE0000          ldy #L4
 0082 3C                pshx
 0083 8F                xgdx
 0084 CC0009            ldd #9
 0087 BD0000            jsr __asgnblk
 008A 38                pulx
 008B           ;        unsigned char string2[]="Duck    ";
 008B EC00              ldd 0,x
 008D C3004F            addd #79
 0090 18CE0009          ldy #L5
 0094 3C                pshx
 0095 8F                xgdx
 0096 CC0009            ldd #9
 0099 BD0000            jsr __asgnblk
 009C 38                pulx
 009D           ;        unsigned char string3[]="Deer    ";
 009D EC00              ldd 0,x
 009F C30046            addd #70
 00A2 18CE0012          ldy #L6
 00A6 3C                pshx
 00A7 8F                xgdx
 00A8 CC0009            ldd #9
 00AB BD0000            jsr __asgnblk
 00AE 38                pulx
 00AF           ;        unsigned char string4[]="Rabbit  ";
 00AF EC00              ldd 0,x
 00B1 C3003D            addd #61
 00B4 18CE001B          ldy #L7
 00B8 3C                pshx
 00B9 8F                xgdx
 00BA CC0009            ldd #9
 00BD BD0000            jsr __asgnblk
 00C0 38                pulx
 00C1           ;        unsigned char string5[]="Done    ";
 00C1 EC00              ldd 0,x
 00C3 C30034            addd #52
 00C6 18CE0024          ldy #L8
 00CA 3C                pshx
 00CB 8F                xgdx
 00CC CC0009            ldd #9
 00CF BD0000            jsr __asgnblk
 00D2 38                pulx
 00D3           ;        unsigned char string6[]="Stop    ";
 00D3 EC00              ldd 0,x
 00D5 C3002B            addd #43
 00D8 18CE002D          ldy #L9
 00DC 3C                pshx
 00DD 8F                xgdx
 00DE CC0009            ldd #9
 00E1 BD0000            jsr __asgnblk
 00E4 38                pulx
 00E5           ;        unsigned char string7[]="Go      ";
 00E5 EC00              ldd 0,x
 00E7 C30022            addd #34
 00EA 18CE0036          ldy #L10
 00EE 3C                pshx
 00EF 8F                xgdx
 00F0 CC0009            ldd #9
 00F3 BD0000            jsr __asgnblk
 00F6 38                pulx
 00F7           ;        unsigned char string8[]="IEEE USM";
 00F7 EC00              ldd 0,x
 00F9 C30019            addd #25
 00FC 18CE003F          ldy #L11
 0100 3C                pshx
 0101 8F                xgdx
 0102 CC0009            ldd #9
 0105 BD0000            jsr __asgnblk
 0108 38                pulx
 0109           ;        unsigned char string9[]="        ";
 0109 EC00              ldd 0,x
 010B C30010            addd #16
 010E 18CE0048          ldy #L12
 0112 3C                pshx
 0113 8F                xgdx
 0114 CC0009            ldd #9
 0117 BD0000            jsr __asgnblk
 011A 38                pulx
 011B           ;        unsigned char nothing[]="None    ";
 011B EC00              ldd 0,x
 011D C30007            addd #7
 0120 18CE0051          ldy #L13
 0124 3C                pshx
 0125 8F                xgdx
 0126 CC0009            ldd #9
 0129 BD0000            jsr __asgnblk
 012C 38                pulx
 012D           ;        unsigned int digit[8] = {0xb5B7, 0xb5B6, 0xb5B5, 0xb5B4,0xb5Bf, 0xb5Be, 0xb5Bd,
 012D EC00              ldd 0,x
 012F C30063            addd #99
 0132 18CE005A          ldy #L14
 0136 3C                pshx
 0137 8F                xgdx
 0138 CC0010            ldd #16
 013B BD0000            jsr __asgnblk
 013E 38                pulx
 013F           ;                                                          0xb5Bc};                              
 013F           ;        
 013F           ;        asm (" ldaa #$00");
 013F 8600                       ldaa #$00
 0141           
 0141           ;        asm (" staa $b590");
 0141 B7B590                     staa $b590
 0144           
 0144 2007              bra L16
 0146           L15:
 0146 EC58              ldd 88,x
 0148 C30001            addd #1
 014B ED58              std 88,x
 014D           L16:
 014D           ; 	 while (x<=100){x++;}
 014D EC58              ldd 88,x
 014F 1A830064          cpd #100
 0153 2FF1              ble L15
 0155           ;        asm (" ldaa #$03");
 0155 8603                       ldaa #$03
 0157           
 0157           ;        asm (" staa $b5B0");
 0157 B7B5B0                     staa $b5B0
 015A           
 015A           ;        asm (" staa $b5B8");
 015A B7B5B8                     staa $b5B8
 015D           
 015D 7E0473            jmp L19
 0160           L18:
 0160           ; 	 
 0160           ; 	 
 0160           ; 	 while(1){
 0160           ; 	 scanf("%d", &x);
 0160 EC00              ldd 0,x
 0162 C30058            addd #88
 0165 37                pshb
 0166 36                psha
 0167 CC047E            ldd #L21
 016A BD0000            jsr _scanf
 016D 1838              puly
 016F           ;        if (x == 1){
 016F EC58              ldd 88,x
 0171 1A830001          cpd #1
 0175 2703              beq X1
 0177 7E01BE            jmp L22
 017A           X1:
 017A           ; 	 	for(cnt=0; cnt<8; cnt++)
 017A CC0000            ldd #0
 017D ED76              std 118,x
 017F           L24:
 017F EC00              ldd 0,x
 0181 C3005A            addd #90
 0184 ED02              std 2,x
 0186 EC76              ldd 118,x
 0188 E302              addd 2,x
 018A 188F              xgdy
 018C 18E600            ldab 0,y
 018F E773              stab 115,x
 0191 EC00              ldd 0,x
 0193 C30063            addd #99
 0196 ED02              std 2,x
 0198 EC76              ldd 118,x
 019A 05                lsld
 019B E302              addd 2,x
 019D 188F              xgdy
 019F 18EC00            ldd 0,y
 01A2 ED74              std 116,x
 01A4 A673                       ldaa 115,x
 01A6           
 01A6 1AEE74                     ldy 116,x
 01A9           
 01A9 18A700                     staa 0,y
 01AC           
 01AC           L25:
 01AC EC76              ldd 118,x
 01AE C30001            addd #1
 01B1 ED76              std 118,x
 01B3 EC76              ldd 118,x
 01B5 1A830008          cpd #8
 01B9 2DC4              blt L24
 01BB           ;               {
 01BB           ;                ascii=string1[cnt];
 01BB           ;                ad=digit[cnt];
 01BB           ;                asm (" ldaa %ascii");
 01BB           ;                asm (" ldy %ad");
 01BB           ;                asm (" staa 0,y");
 01BB           ;                }
 01BB           ;        }
 01BB 7E0473            jmp L23
 01BE           L22:
 01BE           ; 	 else if (x == 2){
 01BE EC58              ldd 88,x
 01C0 1A830002          cpd #2
 01C4 2703              beq X2
 01C6 7E020D            jmp L28
 01C9           X2:
 01C9           ; 	 	for(cnt=0; cnt<8; cnt++)
 01C9 CC0000            ldd #0
 01CC ED76              std 118,x
 01CE           L30:
 01CE EC00              ldd 0,x
 01D0 C3004F            addd #79
 01D3 ED02              std 2,x
 01D5 EC76              ldd 118,x
 01D7 E302              addd 2,x
 01D9 188F              xgdy
 01DB 18E600            ldab 0,y
 01DE E773              stab 115,x
 01E0 EC00              ldd 0,x
 01E2 C30063            addd #99
 01E5 ED02              std 2,x
 01E7 EC76              ldd 118,x
 01E9 05                lsld
 01EA E302              addd 2,x
 01EC 188F              xgdy
 01EE 18EC00            ldd 0,y
 01F1 ED74              std 116,x
 01F3 A673                       ldaa 115,x
 01F5           
 01F5 1AEE74                     ldy 116,x
 01F8           
 01F8 18A700                     staa 0,y
 01FB           
 01FB           L31:
 01FB EC76              ldd 118,x
 01FD C30001            addd #1
 0200 ED76              std 118,x
 0202 EC76              ldd 118,x
 0204 1A830008          cpd #8
 0208 2DC4              blt L30
 020A           ;               {
 020A           ;                ascii=string2[cnt];
 020A           ;                ad=digit[cnt];
 020A           ;                asm (" ldaa %ascii");
 020A           ;                asm (" ldy %ad");
 020A           ;                asm (" staa 0,y");
 020A           ;                }
 020A           ;        }  
 020A 7E0473            jmp L29
 020D           L28:
 020D           ; 	 else if (x == 3){
 020D EC58              ldd 88,x
 020F 1A830003          cpd #3
 0213 2703              beq X3
 0215 7E025C            jmp L34
 0218           X3:
 0218           ; 	 	for(cnt=0; cnt<8; cnt++)
 0218 CC0000            ldd #0
 021B ED76              std 118,x
 021D           L36:
 021D EC00              ldd 0,x
 021F C30046            addd #70
 0222 ED02              std 2,x
 0224 EC76              ldd 118,x
 0226 E302              addd 2,x
 0228 188F              xgdy
 022A 18E600            ldab 0,y
 022D E773              stab 115,x
 022F EC00              ldd 0,x
 0231 C30063            addd #99
 0234 ED02              std 2,x
 0236 EC76              ldd 118,x
 0238 05                lsld
 0239 E302              addd 2,x
 023B 188F              xgdy
 023D 18EC00            ldd 0,y
 0240 ED74              std 116,x
 0242 A673                       ldaa 115,x
 0244           
 0244 1AEE74                     ldy 116,x
 0247           
 0247 18A700                     staa 0,y
 024A           
 024A           L37:
 024A EC76              ldd 118,x
 024C C30001            addd #1
 024F ED76              std 118,x
 0251 EC76              ldd 118,x
 0253 1A830008          cpd #8
 0257 2DC4              blt L36
 0259           ;               {
 0259           ;                ascii=string3[cnt];
 0259           ;                ad=digit[cnt];
 0259           ;                asm (" ldaa %ascii");
 0259           ;                asm (" ldy %ad");
 0259           ;                asm (" staa 0,y");
 0259           ;                }
 0259           ;        }
 0259 7E0473            jmp L35
 025C           L34:
 025C           ; 	 else if (x == 4){
 025C EC58              ldd 88,x
 025E 1A830004          cpd #4
 0262 2703              beq X4
 0264 7E02AB            jmp L40
 0267           X4:
 0267           ; 	    for(cnt=0; cnt<8; cnt++)
 0267 CC0000            ldd #0
 026A ED76              std 118,x
 026C           L42:
 026C EC00              ldd 0,x
 026E C3003D            addd #61
 0271 ED02              std 2,x
 0273 EC76              ldd 118,x
 0275 E302              addd 2,x
 0277 188F              xgdy
 0279 18E600            ldab 0,y
 027C E773              stab 115,x
 027E EC00              ldd 0,x
 0280 C30063            addd #99
 0283 ED02              std 2,x
 0285 EC76              ldd 118,x
 0287 05                lsld
 0288 E302              addd 2,x
 028A 188F              xgdy
 028C 18EC00            ldd 0,y
 028F ED74              std 116,x
 0291 A673                       ldaa 115,x
 0293           
 0293 1AEE74                     ldy 116,x
 0296           
 0296 18A700                     staa 0,y
 0299           
 0299           L43:
 0299 EC76              ldd 118,x
 029B C30001            addd #1
 029E ED76              std 118,x
 02A0 EC76              ldd 118,x
 02A2 1A830008          cpd #8
 02A6 2DC4              blt L42
 02A8           ;               {
 02A8           ;                ascii=string4[cnt];
 02A8           ;                ad=digit[cnt];
 02A8           ;                asm (" ldaa %ascii");
 02A8           ;                asm (" ldy %ad");
 02A8           ;                asm (" staa 0,y");
 02A8           ;                }
 02A8           ;        }
 02A8 7E0473            jmp L41
 02AB           L40:
 02AB           ; 	 else if (x == 5){
 02AB EC58              ldd 88,x
 02AD 1A830005          cpd #5
 02B1 2703              beq X5
 02B3 7E02FA            jmp L46
 02B6           X5:
 02B6           ; 	 	for(cnt=0; cnt<8; cnt++)
 02B6 CC0000            ldd #0
 02B9 ED76              std 118,x
 02BB           L48:
 02BB EC00              ldd 0,x
 02BD C30034            addd #52
 02C0 ED02              std 2,x
 02C2 EC76              ldd 118,x
 02C4 E302              addd 2,x
 02C6 188F              xgdy
 02C8 18E600            ldab 0,y
 02CB E773              stab 115,x
 02CD EC00              ldd 0,x
 02CF C30063            addd #99
 02D2 ED02              std 2,x
 02D4 EC76              ldd 118,x
 02D6 05                lsld
 02D7 E302              addd 2,x
 02D9 188F              xgdy
 02DB 18EC00            ldd 0,y
 02DE ED74              std 116,x
 02E0 A673                       ldaa 115,x
 02E2           
 02E2 1AEE74                     ldy 116,x
 02E5           
 02E5 18A700                     staa 0,y
 02E8           
 02E8           L49:
 02E8 EC76              ldd 118,x
 02EA C30001            addd #1
 02ED ED76              std 118,x
 02EF EC76              ldd 118,x
 02F1 1A830008          cpd #8
 02F5 2DC4              blt L48
 02F7           ;               {
 02F7           ;                ascii=string5[cnt];
 02F7           ;                ad=digit[cnt];
 02F7           ;                asm (" ldaa %ascii");
 02F7           ;                asm (" ldy %ad");
 02F7           ;                asm (" staa 0,y");
 02F7           ;                }
 02F7           ;        }
 02F7 7E0473            jmp L47
 02FA           L46:
 02FA           ; 	 else if (x == 6){
 02FA EC58              ldd 88,x
 02FC 1A830006          cpd #6
 0300 2703              beq X6
 0302 7E0349            jmp L52
 0305           X6:
 0305           ; 	    for(cnt=0; cnt<8; cnt++)
 0305 CC0000            ldd #0
 0308 ED76              std 118,x
 030A           L54:
 030A EC00              ldd 0,x
 030C C3002B            addd #43
 030F ED02              std 2,x
 0311 EC76              ldd 118,x
 0313 E302              addd 2,x
 0315 188F              xgdy
 0317 18E600            ldab 0,y
 031A E773              stab 115,x
 031C EC00              ldd 0,x
 031E C30063            addd #99
 0321 ED02              std 2,x
 0323 EC76              ldd 118,x
 0325 05                lsld
 0326 E302              addd 2,x
 0328 188F              xgdy
 032A 18EC00            ldd 0,y
 032D ED74              std 116,x
 032F A673                       ldaa 115,x
 0331           
 0331 1AEE74                     ldy 116,x
 0334           
 0334 18A700                     staa 0,y
 0337           
 0337           L55:
 0337 EC76              ldd 118,x
 0339 C30001            addd #1
 033C ED76              std 118,x
 033E EC76              ldd 118,x
 0340 1A830008          cpd #8
 0344 2DC4              blt L54
 0346           ;               {
 0346           ;                ascii=string6[cnt];
 0346           ;                ad=digit[cnt];
 0346           ;                asm (" ldaa %ascii");
 0346           ;                asm (" ldy %ad");
 0346           ;                asm (" staa 0,y");
 0346           ;                }
 0346           ;        }
 0346 7E0473            jmp L53
 0349           L52:
 0349           ; 	 else if (x == 7){
 0349 EC58              ldd 88,x
 034B 1A830007          cpd #7
 034F 2703              beq X7
 0351 7E0398            jmp L58
 0354           X7:
 0354           ; 	 	for(cnt=0; cnt<8; cnt++)
 0354 CC0000            ldd #0
 0357 ED76              std 118,x
 0359           L60:
 0359 EC00              ldd 0,x
 035B C30022            addd #34
 035E ED02              std 2,x
 0360 EC76              ldd 118,x
 0362 E302              addd 2,x
 0364 188F              xgdy
 0366 18E600            ldab 0,y
 0369 E773              stab 115,x
 036B EC00              ldd 0,x
 036D C30063            addd #99
 0370 ED02              std 2,x
 0372 EC76              ldd 118,x
 0374 05                lsld
 0375 E302              addd 2,x
 0377 188F              xgdy
 0379 18EC00            ldd 0,y
 037C ED74              std 116,x
 037E A673                       ldaa 115,x
 0380           
 0380 1AEE74                     ldy 116,x
 0383           
 0383 18A700                     staa 0,y
 0386           
 0386           L61:
 0386 EC76              ldd 118,x
 0388 C30001            addd #1
 038B ED76              std 118,x
 038D EC76              ldd 118,x
 038F 1A830008          cpd #8
 0393 2DC4              blt L60
 0395           ;               {
 0395           ;                ascii=string7[cnt];
 0395           ;                ad=digit[cnt];
 0395           ;                asm (" ldaa %ascii");
 0395           ;                asm (" ldy %ad");
 0395           ;                asm (" staa 0,y");
 0395           ;                }
 0395           ;        }
 0395 7E0473            jmp L59
 0398           L58:
 0398           ; 	 else if (x == 9){
 0398 EC58              ldd 88,x
 039A 1A830009          cpd #9
 039E 2703              beq X8
 03A0 7E03E7            jmp L64
 03A3           X8:
 03A3           ; 	 	for(cnt=0; cnt<8; cnt++)
 03A3 CC0000            ldd #0
 03A6 ED76              std 118,x
 03A8           L66:
 03A8 EC00              ldd 0,x
 03AA C30019            addd #25
 03AD ED02              std 2,x
 03AF EC76              ldd 118,x
 03B1 E302              addd 2,x
 03B3 188F              xgdy
 03B5 18E600            ldab 0,y
 03B8 E773              stab 115,x
 03BA EC00              ldd 0,x
 03BC C30063            addd #99
 03BF ED02              std 2,x
 03C1 EC76              ldd 118,x
 03C3 05                lsld
 03C4 E302              addd 2,x
 03C6 188F              xgdy
 03C8 18EC00            ldd 0,y
 03CB ED74              std 116,x
 03CD A673                       ldaa 115,x
 03CF           
 03CF 1AEE74                     ldy 116,x
 03D2           
 03D2 18A700                     staa 0,y
 03D5           
 03D5           L67:
 03D5 EC76              ldd 118,x
 03D7 C30001            addd #1
 03DA ED76              std 118,x
 03DC EC76              ldd 118,x
 03DE 1A830008          cpd #8
 03E2 2DC4              blt L66
 03E4           ;               {
 03E4           ;                ascii=string8[cnt];
 03E4           ;                ad=digit[cnt];
 03E4           ;                asm (" ldaa %ascii");
 03E4           ;                asm (" ldy %ad");
 03E4           ;                asm (" staa 0,y");
 03E4           ;                }
 03E4           ;        }
 03E4 7E0473            jmp L65
 03E7           L64:
 03E7           ; 	  else if (x == 8){
 03E7 EC58              ldd 88,x
 03E9 1A830008          cpd #8
 03ED 2643              bne L70
 03EF           ;               for(cnt=0; cnt<8; cnt++)
 03EF CC0000            ldd #0
 03F2 ED76              std 118,x
 03F4           L72:
 03F4 EC00              ldd 0,x
 03F6 C30010            addd #16
 03F9 ED02              std 2,x
 03FB EC76              ldd 118,x
 03FD E302              addd 2,x
 03FF 188F              xgdy
 0401 18E600            ldab 0,y
 0404 E773              stab 115,x
 0406 EC00              ldd 0,x
 0408 C30063            addd #99
 040B ED02              std 2,x
 040D EC76              ldd 118,x
 040F 05                lsld
 0410 E302              addd 2,x
 0412 188F              xgdy
 0414 18EC00            ldd 0,y
 0417 ED74              std 116,x
 0419 A673                       ldaa 115,x
 041B           
 041B 1AEE74                     ldy 116,x
 041E           
 041E 18A700                     staa 0,y
 0421           
 0421           L73:
 0421 EC76              ldd 118,x
 0423 C30001            addd #1
 0426 ED76              std 118,x
 0428 EC76              ldd 118,x
 042A 1A830008          cpd #8
 042E 2DC4              blt L72
 0430           ;               {
 0430           ;                ascii=string9[cnt];
 0430           ;                ad=digit[cnt];
 0430           ;                asm (" ldaa %ascii");
 0430           ;                asm (" ldy %ad");
 0430           ;                asm (" staa 0,y");
 0430           ;                }
 0430           ;        }
 0430 2041              bra L71
 0432           L70:
 0432           ; 	 else{
 0432           ; 	    for(cnt=0; cnt<8; cnt++)
 0432 CC0000            ldd #0
 0435 ED76              std 118,x
 0437           L76:
 0437 EC00              ldd 0,x
 0439 C30007            addd #7
 043C ED02              std 2,x
 043E EC76              ldd 118,x
 0440 E302              addd 2,x
 0442 188F              xgdy
 0444 18E600            ldab 0,y
 0447 E773              stab 115,x
 0449 EC00              ldd 0,x
 044B C30063            addd #99
 044E ED02              std 2,x
 0450 EC76              ldd 118,x
 0452 05                lsld
 0453 E302              addd 2,x
 0455 188F              xgdy
 0457 18EC00            ldd 0,y
 045A ED74              std 116,x
 045C A673                       ldaa 115,x
 045E           
 045E 1AEE74                     ldy 116,x
 0461           
 0461 18A700                     staa 0,y
 0464           
 0464           L77:
 0464 EC76              ldd 118,x
 0466 C30001            addd #1
 0469 ED76              std 118,x
 046B EC76              ldd 118,x
 046D 1A830008          cpd #8
 0471 2DC4              blt L76
 0473           ;               {
 0473           ;                ascii=nothing[cnt];
 0473           ;                ad=digit[cnt];
 0473           ;                asm (" ldaa %ascii");
 0473           ;                asm (" ldy %ad");
 0473           ;                asm (" staa 0,y");
 0473           ;                }
 0473           ;        }  
 0473           L71:
 0473           L65:
 0473           L59:
 0473           L53:
 0473           L47:
 0473           L41:
 0473           L35:
 0473           L29:
 0473           L23:
 0473           L19:
 0473 7E0160            jmp L18
 0476           X0:
 0476           ; 	 }	 
 0476           ; 	 
 0476           ; }
 0476           L3:
 0476 8F                xgdx
 0477 C30078            addd #120
 047A 8F                xgdx
 047B 35                txs
 047C 38                pulx
 047D                   .dbline 0 ; func end
 047D 39                rts
 047E           L21:
 047E 256400            .byte 37,'d,0
