pouët.net

Go to bottom

Pacman256 by Red Sector Inc. [web]

;
;                 /\______          /\______          /\________
;             __\\\___    \_    __\\\___    \_    __\\\______   \
;            |      /      /   |      /      /   |     _____/    \_
;            |     /      /____|     /      /____|     \           |
;            |     \____       :      _____/     :      \          |
;            |        /                \                 \         |
;            |       /         .        \        .        \        |
;      __   _|_     /                    \                 \      _|_   __
;   \ \\_\ \\__\  _/           :          \_     :          \_   /__// /_// /
;            |____/_ _         :______ _         :______ _         |
;               \\\____________|  \\\____________|  \\\____________|
;
;    _______      _______      _______      _______      _______      _______
; _\\\__    \___\\\__    \___\\\__    \___\\\_____ \___\\\_____ \___\\\__    \_
;|    /______/|    /      /|    /      /|       /    |       /    |    /      /
;\            |   /      /_|   /      /_|      /     |      /     |   /      /_
;|\_______    :    _____/  :   \_____/  :     /      :     /      :   \____    |
;|      /     .     \      .     \      .    /       .    /       .     /      |
;|     /             \            \         /                          /       |
;|___         :___         :___         :___\        :___         :___/    sns |
;  \\_________: \\_________: \\_________: \\_________: \\_________: \\_________|
;
;                          R E D   S E C T O R   I N C
;
g equ p+6      ; Pacman256 by Baudsurfer/rsi 2015 aka olivier.poudade.free.fr
w equ word     ; A 256 bytes intro tested for XPSP3 and VMWare (set x=1) only
b equ byte     ; Presented at QB Multi-platform Party 2015 in Sülysáp/Hungary
x equ 0        ; greet Blabla Bon^2 DESiRE Live! MNDRN Onslaught RZR1911 TRBL 
org 100h       ; UkkO Ggn Fra Den g0blinish Sensenstahl & all assembly coders
  mov al,13h         ; psp+256, if pb or VMWare then set x equ 1 set video fx
  int 10h            ; bios video api
  mov bp,450h        ; DECOMPRESS AND DISPLAY MAZE
  cwd                ; dx=0
  mov cl,16h         ; board 22 non-symetric rows
a:mov ch,11h         ; board 16 cols+ 1 overlay (col17=col1)
u:inc dx             ; col++ inc byte [fs:450h]
  mov al,0dbh        ; al=dbh=219=wall
  rol w[m+si-100h],1 ; get next col bitmask in maze map array
  jc c               ; if not wall then obligatory dot
  mov al,0f9h        ; al=f9h=249=dot
c:mov w[fs:bp],dx    ; empty - update curs row/col pos
  int 29h            ; putchar short dos call
  dec ch             ; *this row's col total--
  jnz u              ; all cols of *this row processed ?
  lodsw              ; maze idx+=siz(w)
  mov dl,ch          ; crlf=xor dl,dl
  inc dh             ; row++ add dh,cl;inc dh;inc byte [fs:451h]
  loop a             ; INIT/DIPLAY PACMAN AND GHOSTS struct siz=6       
  mov edx,10100202h  ; disp extra col off. enable row|col dx symetry
  mov di,g           ; ghost status base idx
  mov cl,4           ; 4 ghost structs to init
e:mov al,1eh         ; al=glyph ascii val ah=putback tile glyph
  stosw              ; store ghost glyph+color
  ror edx,8          ; (col=16 row=2)/(col=2 row=16) symetry
  int 29h            ; display char /w dx=curs pos
  mov al,48h         ; default starting direction for ghost is up
  stosw              ; ghost direction (false kbd scancode) - w padded
  mov ax,dx          ; dw ghost position
  stosw              ; save ghost row/col pos di+=2
  loop e             ; all ghost structs init done ?
f:mov di,p           ; run - GAME LOOP rst to glyph struct base
h:in al,60h          ; delay - messy but shortest working code
  test al,al         ; is it make scancode ?
  js i               ; else skip break scancode 
  mov b [di+2],al    ; glyph direction
i:loop h             ; break - cx=65535 rollover from below loop
  mov cl,5           ; pacman+4 ghosts start /w pacman (should be cx)
j:mov dx,w[di+4]     ; switch - store rollback position
  mov w[fs:bp],dx    ; glyph col+row positions
  mov si,k           ; dir mov array for keys
  mov bl,4           ; test 4 arrow keyb keys
t:lodsb              ; direction - out: car ah=scancode al=ascii
  cmp al,b[di+2]     ; scancode=arrow ?
  lodsw              ; NULL last mov deltaX deltaY assumed in seg
  jz l               ; found asked deltas=>check collision
  dec bl             ; test all 4 NSWE directions 
  jnz t              ; test next direction     
l:add w[fs:bp],ax    ; collision - assumed NULL w at key+12
  mov ah,8           ; ah=read car and attrib @curs pos vga api
  IF x               ; BEG for some non-fully compatible bios clones
  push si            ; "Because of the IBM BIOS specifications may exist
  push di            ; some clone BIOSes which do not preserve SI or DI"
  push bp            ; "Some IBM PC ROM BIOSes destroy BP when in gfx modes"
  push bx            ; should not be necessary in gfx mode as all
  mov bh,0           ; other family calls have implict bh=dontcare
  END IF             ; END for some non-fully compatible bios clones
  int 10h            ; out: ah=car color al=car val bh=page number n/A
  IF x               ; BEG for some non-fully compatible bios clones
  pop bx             ; see Ralf Brown's interrupt list warnings
  pop bp             ; cf. http://www.ctyme.com/intr/rb-0098.htm
  pop di             ; cf. http://www.ctyme.com/intr/rb-0098.htm
  pop si             ; cf. http://www.ctyme.com/intr/rb-0098.htm
  END IF             ; END for some non-fully compatible bios clones
  test al,10b        ; if !(wall 11011011b or ghost 11110b) discrimination
  jz o               ; then move is legal and carry on
  xchg w[fs:bp],dx   ; rollback - is wall =>rollback move
  cmp cl,5           ; test if pacman or ghosts
  jz n               ; if pacman keep prev dir and skip frame
  inc b[di+2]        ; else try all 4 directions 
  jmp j              ; switch break happens above so loop
n:mov al,b[di+3]     ; put rollback
  mov b[di+2],al     ; in active position 
  inc bh             ; see alt direction below in "key" (k) 
  jnp j              ; cf. alt key below - tricky wrap-around 
  jmp s              ; and skip event since move faulty 
o:mov bl,b[di+2]     ; event - preserve al=glyph putback tile
  mov b[di+3],bl     ; and keep prev move dir
  cmp al,9           ; case new tile=pacman ? 
  jnz q              ; if not continue
  ret                ; death - else die and exit game to shell 
q:mov b[di+1],al     ; live - save putback tile
  cmp cl,5           ; test if pacman glyph
  jnz r              ; if not skip hardcoded replacement char 
  mov al,20h         ; space char replaces * exclusively for pacman
r:xchg w[fs:bp],dx   ; samescore - score display was stripped 
  int 29h            ; glyph putback tile=al=[di+1]  
  xchg w[fs:bp],dx   ; switch actual /w requested curs pos
  mov w dx,[fs:bp]   ; and restore it in dx
  mov w[di+4],dx     ; save previous curs pos
  mov al,[di+0]      ; glyph char
  int 29h            ; display glyph new position
s:add di,6           ; nokey - advance to next glyph struct
  loop j             ; next glyph movement
  jmp f              ; next game loop frame 
m dw 0ffffh          ; 11111111111111111b maze data 
  dw 8080h           ; 10000000100000001b little endian 17x22 playfield map
  dw 0b6b6h          ; 10110110101101101b shadow 17th column=1st column
  dw 0b6b6h          ; 10110110101101101b total=44 bytes
  dw 8000h           ; 10000000000000001b
  dw 0b5d6h          ; 10110101110101101b
  dw 8490h           ; 10000100100100001b
  dw 0f6b7h          ; 11110110101101111b
  dw 0f417h          ; 11110100000101111b
  dw 0f557h          ; 11110101010101111b
  dw 8140h           ; 00000001010000000b
  dw 0f5d7h          ; 11110101110101111b
  dw 0f417h          ; 11110100000101111b
  dw 0f5d7h          ; 11110101110101111b
  dw 8080h           ; 10000000100000001b
  dw 0b6b6h          ; 10110110101101101b
  dw 9004h           ; 10010000000001001b
  dw 0d5d5h          ; 11010101110101011b
  dw 8490h           ; 10010000100001001b
  dw 0bebeh          ; 10111110101111101b
  dw 8000h           ; 10000000000000001b
  dw 0ffffh          ; 11111111111111111b 
k db 48h,0,-1        ; up (alt=left) arrow - make scanc lsb,deltaX,deltaY
  db 50h,0,1         ; down (alt=up) arrow - cursor update compensated
  db 4bh,-1,-1       ; left (alt=right) arrow+ compensate sign extend 
  db 4dh,1,0         ; right (alt=down) arrow assumed null b
p dw 3209h,4dh,1008h ; glyp+putback/direction+rollback/col+row
Go to top