Prince-of-Persia-Apple-II

A running-jumping-swordfighting game Jordan Mechner made on the Apple II from 1985-89
Log | Files | Refs | README | LICENSE

HRTABLEQ.S (1068B)


      1 * hrtableq
      2 
      3  lst off
      4 
      5 HRTABLES dum $8400
      6 
      7 YLO ds $C0
      8 YHI ds $C0
      9 
     10 SHIFT0 ds $80
     11 SHIFT1 ds $80
     12 SHIFT2 ds $80
     13 SHIFT3 ds $80
     14 SHIFT4 ds $80
     15 SHIFT5 ds $80
     16 SHIFT6 ds $80
     17 
     18 CARRY0 ds $80
     19 CARRY1 ds $80
     20 CARRY2 ds $80
     21 CARRY3 ds $80
     22 CARRY4 ds $80
     23 CARRY5 ds $80
     24 CARRY6 ds $80
     25 
     26 MIRROR ds $80
     27 
     28 SHIFTL dfb #SHIFT0-$80
     29 DSHIFTL dfb #SHIFT0
     30  dfb #SHIFT1
     31  dfb #SHIFT2
     32  dfb #SHIFT3
     33  dfb #SHIFT4
     34  dfb #SHIFT5
     35  dfb #SHIFT6
     36 
     37 SHIFTH dfb /SHIFT0-$80
     38 DSHIFTH dfb /SHIFT0
     39  dfb /SHIFT1
     40  dfb /SHIFT2
     41  dfb /SHIFT3
     42  dfb /SHIFT4
     43  dfb /SHIFT5
     44  dfb /SHIFT6
     45 
     46 CARRYL dfb #CARRY0-$80
     47 DCARRYL dfb #CARRY0
     48  dfb #CARRY1
     49  dfb #CARRY2
     50  dfb #CARRY3
     51  dfb #CARRY4
     52  dfb #CARRY5
     53  dfb #CARRY6
     54 
     55 CARRYH dfb /CARRY0-$80
     56 DCARRYH dfb /CARRY0
     57  dfb /CARRY1
     58  dfb /CARRY2
     59  dfb /CARRY3
     60  dfb /CARRY4
     61  dfb /CARRY5
     62  dfb /CARRY6
     63 
     64 AMASKS dfb %10000000
     65  dfb %10000001
     66  dfb %10000011
     67  dfb %10000111
     68  dfb %10001111
     69  dfb %10011111
     70  dfb %10111111
     71 
     72 BMASKS dfb %11111111
     73  dfb %11111110
     74  dfb %11111100
     75  dfb %11111000
     76  dfb %11110000
     77  dfb %11100000
     78  dfb %11000000
     79 
     80 OPCODE dfb $31 ;and (oper),Y
     81  dfb $11 ;ora
     82  dfb $91 ;sta
     83  dfb $51 ;eor
     84 
     85  dend