c08e22bb |
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: |
437b3ba8 |
38 | RND LDA 0 |
c08e22bb |
39 | SUB EP |
40 | SNZ |
41 | * SKIP WENN SP=EP >> FERTIG |
42 | JMP* PRT |
437b3ba8 |
43 | * |
c08e22bb |
44 | LDA* 0 |
437b3ba8 |
45 | * |
c08e22bb |
46 | ICA |
47 | OTA '0004 |
48 | JMP *-1 |
49 | * |
50 | ICA |
51 | OTA '0004 |
52 | JMP *-1 |
53 | * |
54 | IRS 0 |
55 | NOP |
56 | JMP RND |
57 | ***************************************************** |
58 | ***************************************************** |
59 | * MAIN ROUTINE |
60 | * |
61 | MAIN JST PRT |
62 | IAB |
63 | AOA |
64 | IAB |
65 | SR1 |
66 | JMP *-1 |
67 | JMP MAIN |
68 | END |
69 | ***************************************************** |
70 | |
71 | |
72 | |