programs/libtest/src/stacktest.asm

   1 * STACK TEST PROGRAM
   2 *
   3 *
   4 *
   5 * USAGE:
   6 *
   7 * VERY SPECIAL
   8 *
   9 *
  10 ********************************************************************************
  11 *
  12         ABS             ASOLUTE MODE FOR EASIER DEBUGGING
  13         ORG     '1000
  14 *
  15         SUBR    DAT1
  16         SUBR    DAT2
  17         SUBR    DAT3
  18         SUBR    DAT4
  19 *
  20 ****************************************
  21 *
  22 *
  23 MAIN    NOP             HERE WE GO
  24 *
  25         LDA     =2
  26         STA     DAT1
  27         LDA     =3
  28         STA     DAT2
  29         LDA     =4
  30         STA     DAT3
  31         LDA     =5
  32         STA     DAT4
  33 *
  34         LDA     =7
  35         CALL    S$PUSM
  36         DAC     DAT1
  37         DEC     4
  38         HLT             TEMPORARY HALT
  39 *
  40         LDA     =6
  41         STA     DAT1
  42         LDA     =7
  43         STA     DAT2
  44         LDA     =8
  45         STA     DAT3
  46         LDA     =9
  47         STA     DAT4
  48 *
  49         HLT
  50         LDA     =6
  51 REC     CALL    S$POPM
  52         DAC     DAT1
  53         DEC     4
  54         HLT             TEMPORARY HALT
  55 *
  56         JMP     REC
  57 *
  58 ********************************************************************************
  59 *
  60         ORG     '2000
  61 **** VARIABLES
  62 *
  63 DAT1    DEC     0
  64 DAT2    DEC     0
  65 DAT3    DEC     0
  66 DAT4    DEC     0
  67 *
  68 ********************************************************************************
  69 *
  70         END             THAT'S IT.
  71
  72