sw/src/life/zero.pa

   1 /********************************************************************
   2 /********************************************************************
   3 / THE IMPORTANT ZERO PAGE STUFF
   4
   5         *0
   6 INTR,   0               / INTERRUPT LOCATION
   7         JMP I   XIHAND  / JUMP TO INTERRUPT HANDLER
   8 XIHAND, IHAND           / POINTER TO INTERRUPT HANDLER
   9
  10
  11
  12         *10
  13 AUTO0,  0
  14 AUTO1,  0
  15 AUTO2,  0
  16 AUTO3,  0
  17 AUTO4,  0
  18 AUTO5,  0
  19 AUTO6,  0
  20 AUTO7,  0
  21
  22         *40
  23 / MAJOR POINERS
  24 SPTR,   DATA0           / POINTER TO SOURCE DATA (GET, COUNT)
  25 TPTR,   DATA1           / POINTER TO TARGET DATA (SET, RESET)
  26 DPTR,   DATA0           / POINTER TO DUMP DATA
  27
  28 /*************************************************
  29 DFLAGS, 0               / DISPLAY CONTROL WORD
  30
  31
  32 /*************************************************
  33 / TEMPORARY CHICKENS
  34
  35
  36
  37 / KEYBOARD COMMANDS
  38 CMKILL, 0
  39 CMDUMP, 0
  40
  41 /********************************************************************
  42 / ZERO PAGE CONSTANTS
  43
  44 K7,     7
  45 K10,    10
  46 K77,    77
  47 K200,   200
  48 K377,   377
  49 K7700,  7700
  50
  51 KROWS,  PROWS
  52 KCOLS,  PCOLS
  53
  54 KDEAD,  DEAD
  55 KALIVE, ALIVE
  56
  57 KNMCO,  1-PCOLS         / NEGATIVE OF LAST COLUMN ADDRESS
  58 KNMROW, 1-PROWS         / NEGATIVE OF LAST ROW ADDRESS
  59 KBORD,  BORDER
  60
  61 KCOLM1, -1
  62 KCOLP1, 1
  63 KROWM1, -100
  64 KROWP1, 100
  65
  66 /********************************************************************
  67 / ZERO PAGE POINTERS AND SHORTCUTS
  68
  69 XDUMPS, DUMPS           / START DATA DUMP
  70 XDUMPT, DUMPT           / START DATA DUMP
  71 XDUMP,  DUMP
  72 XCALC,  CALC
  73 XGET,   GET             / GET A CELL STATE
  74 XSET,   SET             / SET A CELL TO LIVING
  75 XCLEAR, CLEAR           / SET A CELL TO DEAD
  76 XEXIT,  EXIT
  77 XCOUNT, COUNT
  78
  79 XDINIT, DINIT
  80
  81 /*************************************************
  82 / POINTERS TO DISPLAY API ROUTINES
  83
  84 XDSSET, DSSET           / SET THE CURSOR TO A SPECIFIED POSITION
  85 XDCLS,  DSCLS           / CLEAR SCREEN
  86 XDSEOL, DSEOL           / CLEAR FROM CURSOR POSITION TO END OF LINE
  87 XDSEOS, DSEOS           / CLEAR FROM CURSOR POSITION TO END OF SCREEN
  88 XDSOUT, DSOUT           / SEND A CHARACTER TO THE SCREEN
  89 XDSBEL, DSBEL           / MAKE SOME NOISE
  90