4082                          .ORG   16514   
4082   55 x 127               DS   127,$55	; filler of $55, untouched by code
4101   02 51 30 72 09 04 92 49 DB   $02,$51,$30,$72,$09,$04,$92,$49   
4109                START:    			; Prefix the code with the bitmap data
4109   C5                     PUSH   bc		; At startup “start” is in BC, so C = 9
410A   E1                     POP   hl		; so move it to HL, use as bitmap pointer
410B                ROW:      
410B   06 09                  LD   b,9		; start each row on the 9th column, and first
410D                LOOP:     			; plot 4 asterisks
410D   E5                     PUSH   hl		; save HL as it gets used to print
410E   C5                     PUSH   bc		; save BC as it gets destroyed
410F   CD F5 08               CALL   $8f5	; point HL at (c,b)
4112   C1                     POP   bc		; retrieve BC
4113   3E 12                  LD   a,18		; load rotation constant
4115   BE                     CP   (hl)		; use it to check if all 4 plots are done
4116   36 17                  LD   (hl),23	; plot a *
4118   E1                     POP   hl		; retrieve HL
4119   38 06                  JR   c,xloop	; if all 4 plots already done, x-it the loop
411B   90                     SUB   b		; otherwise A = 18-B
411C   41                     LD   b,c		; B = C and
411D   4F                     LD   c,a		; C = 18-B => rotate 90º
411E   20 ED                  JR   nz,loop	; If row != 0 then continue rotating
4120   C9                     RET		; otherwise we are done
4121                XLOOP:    
4121   05                     DEC   b		; move on to next column
4122   CB 3E                  SRL   (hl)	; grab 1 bit from bitmap
4124   38 E7                  JR   c,loop	; if bit set then plot it
4126   20 F9                  JR   nz,xloop	; if more bits remain, keep getting them
4128   0D                     DEC   c		; otherwise, move on to next row
4129   2B                     DEC   hl		; iterate bitmap pointer
412A   18 DF                  JR   row		; print the next row
412C                END:      
