Star Battle Expanded Pattern

;  Restart Vector $08
;
RST08:    LD      A,($4FB7)
          OR      A
          LD      HL,L26A4-2      ; X-Fighter Table
          JR      Z,L264D
          LD      HL,L269A-2      ; H-Fighter Table
          CP      $01
          JR      Z,L264D
          LD      HL,$27C2
L264D:    LD      A,(IX+$0E)
          SYSTEM  INDEXW        ;  UPI INDEX Word by A
          ;
          EX      DE,HL
          LD      A,$08
          OUT     ($19),A
          SYSTEM  VWRITR        ;  UPI Vector WRITe Relative
          ;
          RET     
 
 
;  Limit Table for VECT (2 Bytes, goes into HL)
L265A:    DB    $0B
          DB    $95
          DB    $03
          DB    $54
 
; [...]
 
SYSSUK  WRITP         ;  UPI WRITe with Pattern size lookup
          DB      $7C           ;  ... X = 124
          DB      $00           ;  ... Y = 0
          DB      $28           ;  ... Magic = 40
          DW      $26EC         ;  ... Pattern Address = 9964
 
; [...]
 
; Small H-Fighter Graphic
L26EA:    DB    -3,-2     ; X,Y Displacement
          DB    1,5       ; X,Y Size
;
          DB    10000100B            ;   X . . . . X . .
          DB    10110100B            ;   X . X X . X . .
          DB    11111100B            ;   X X X X X X . .
          DB    10110100B            ;   X . X X . X . .
          DB    10000100B            ;   X . . . . X . .