as6800/t6800e.asm

   1         .title  6800 Assembler Error Check\r
   2 \r
   3         .area   DIRECT\r
   4 \r
   5 dirval: .blkb   0d256\r
   6 \r
   7         .area   AS6800\r
   8 \r
   9         .setdp  0,DIRECT\r
  10 \r
  11         dir     =       0x0100\r
  12         offset  =       0x0101\r
  13 \r
  14 1$:     sta a   #32             ;error\r
  15         stab    #33             ;error\r
  16 \r
  17         lda a   offset,x        ;error\r
  18         ldaa    *dir            ;error\r
  19 \r
  20         sts     #2211           ;error\r
  21         stx     #1122           ;error\r
  22 \r
  23         sub     #20             ;error\r
  24 \r
  25         jmp     *dir            ;OK\r
  26         jmp     #2211           ;error\r
  27         jsr     #1122           ;error\r
  28 \r
  29         lda a   *255            ;OK\r
  30         lda a   *256            ;error\r
  31         lda a   *-1             ;error\r
  32         lda a   *-256           ;error\r
  33 \r
  34         lda a   *dirval         ;OK\r
  35         lda a   dirval          ;OK\r
  36         lda a   *dirval+0x100   ;error at link time\r
  37         lda a   *1$             ;error at link time\r
  38 \r
  39         .setdp  1,DIRECT        ;error / error at link time\r
  40         .setdp  0x100,DIRECT    ;error\r
  41                                 ;all subsequent direct page accesses\r
  42                                 ;will give errors at link time\r
  43 \r