programs/first-steps/src/spiel.asm

   1 ****
   2 *HACHTI'S AKTUELLES PROGRAMM.SAGT HALLO AUF DEM TELETYPE UND IST
   3 *AUCH SONST GANZ TOLL
   4 *
   5 *STARTE BEI '1000:
   6         ORG     '1000
   7 *
   8 *LOAD MODUS, DER ASSEMBLER VERBIETET SICH JEDE INTELLIGENZ
   9 *BEI DER ADRESSIERUNG
  10         LOAD
  11 *
  12 *ERSTMAL WEGSPRINGEN
  13         JMP     MAIN
  14 *
  15 *GELABER WAR SCHON IMMER MEINE STAERKE :-)
  16 MOTD    BCI     21,HEY, HIER IST HACHTI'S ERSTES PROGRAM :-)
  17         DEC     13,10,13,10
  18         BCI     9,DAS REICHT ERSTMAL
  19         DEC     13,10
  20 EMO     DEC     0
  21 SP      DAC     MOTD
  22 EP      DAC     EMO
  23 *
  24 *
  25 ******************************************************************
  26 *                       AUSGABEROUTINE                           *
  27 ******************************************************************
  28 PRT     DAC     **
  29 *
  30 *ASR ANSTELLEN:
  31         OCP     '0104
  32 *
  33 *INDEX AKTIVIEREN:
  34         LDA*    SP
  35         STA     0
  36 *
  37 *SPIEL BEGINNT:
  38 RND     LDA     0
  39         SUB     EP
  40         SNZ
  41 * SKIP WENN SP=EP >> FERTIG
  42         JMP*    PRT
  43 *
  44 *
  45         LDA*    0
  46 *
  47         ICA
  48         OTA     '0004
  49         JMP     *-1
  50 *
  51         ICA
  52         OTA     '0004
  53         JMP     *-1
  54 *
  55         IRS     0
  56         NOP
  57         JMP     RND
  58 *****************************************************
  59 *****************************************************
  60 *          MAIN ROUTINE
  61 *
  62 MAIN    JST     PRT
  63         IAB
  64         AOA
  65         IAB
  66         SR1
  67         JMP     *-1
  68         JMP     MAIN
  69         END
  70 *****************************************************
  71
  72
  73