// K1-16/16 Microcode // 2015-12-22 16:10:40 : bob__5int16_8ucs2charAE ( int16 -- ucs2str ) Millicoded // Size: 56 microcodes mc Dup mc Int8+0 mc Gt mc BraIf0+3 mc Dup mc numstr__5int16_8ucs2charAE mc Bra+15 mc Dup mc BraIf0+2 mc Int8+78 mc Bra+1 mc Int8+110 mc CharStr mc Istr+6 dm 'o' dm ' ' dm 'm' dm 'o' dm 'r' dm 'e' ld cmd,atmp mc CatStrStr mc Istr+7 dm ' ' dm 'b' dm 'o' dm 'd' dm 'd' dm 'l' dm 'e' ld cmd,atmp mc CatStrStr mc Lget+255 mc Subq+1 mc BraIf0+4 mc Istr+1 dm 's' ld cmd,atmp mc Bra+2 mc Istr+0 ld cmd,atmp mc CatStrStr mc Istr+6 dm ' ' dm 'o' dm 'f' dm ' ' dm 248 dm 'l' ld cmd,atmp mc CatStrStr mc MNip0_Next-1 : bobo__5int16_8ucs2charAE ( int16 -- ucs2str ) Millicoded // Size: 22 microcodes mc Dup mc bob__5int16_8ucs2charAE mc Istr+12 dm ' ' dm 'o' dm 'n' dm ' ' dm 't' dm 'h' dm 'e' dm ' ' dm 'w' dm 229 dm 'l' dm 'l' ld cmd,atmp mc CatStrStr mc MNip0_Next-1 : sing_99_bottles_of_beer__2FDC_5int16_ ( FD¢, int16 ) Millicoded // Size: 121 microcodes mc Lget+255 mc Lget+255 mc Lget+254 mc Not mc Sub mc bobo__5int16_8ucs2charAE mc Istr+2 dm ',' dm ' ' ld cmd,atmp mc CatStrStr mc Lget+254 mc bob__5int16_8ucs2charAE mc CatStrStr mc Int8+46 mc CatStrChar mc Int8+10 mc CatStrChar mc FD__putstr__2FDC_8ucs2charAE_ mc Dup mc Int8+0 mc Gt mc BraIf0+48 mc Lget+255 mc Istr+33 dm 'T' dm 'a' dm 'k' dm 'e' dm ' ' dm 'o' dm 'n' dm 'e' dm ' ' dm 'd' dm 'o' dm 'w' dm 'n' dm ' ' dm 'a' dm 'n' dm 'd' dm ' ' dm 'p' dm 'a' dm 's' dm 's' dm ' ' dm 'i' dm 't' dm ' ' dm 'a' dm 'r' dm 'o' dm 'u' dm 'n' dm ',' dm ' ' ld cmd,atmp mc Lvar+254 mc mmPeek mc bobo__5int16_8ucs2charAE mc CatStrStr mc Istr+3 dm '.' dm 10 dm 10 ld cmd,atmp mc CatStrStr mc FD__putstr__2FDC_8ucs2charAE_ mc Bra-71 mc Lget+255 mc Istr+34 dm 'G' dm 'o' dm 't' dm 'o' dm ' ' dm 't' dm 'h' dm 'e' dm ' ' dm 's' dm 't' dm 'o' dm 'r' dm 'e' dm ' ' dm 'a' dm 'n' dm 'd' dm ' ' dm 'b' dm 'u' dm 'y' dm ' ' dm 's' dm 'o' dm 'm' dm 'e' dm ' ' dm 'm' dm 'o' dm 'r' dm 'e' dm ',' dm ' ' ld cmd,atmp mc Int8+99 mc bobo__5int16_8ucs2charAE mc CatStrStr mc Int8+46 mc CatStrChar mc Int8+10 mc CatStrChar mc FD__putstr__2FDC_8ucs2charAE_ mc MDrop0_Next-2