Przykładowa Maszyna Cyfrowa II

; Program dla PMC II
; Autor:
; Wersja:
; Data:

START: END

START: LDA #133 ;umieść w akumulatorze 133
       END      ;zakończ program

DANE:  DAT    0  ;tutaj umieścimy liczbę 125

START: LDA #125  ;umieszczamy najpierw w akumulatorze liczbę 125
       STA $DANE ;teraz zawartość akumulatora umieszczamy w komórce 1
       END

DANE1: DAT 147    ;tę liczbę skopiujemy do komórki następnej
DANE2: DAT   0    ;tutaj będzie skopiowana zawartość komórki poprzedniej

START: LDA $DANE1 ;pobieramy zawartość pierwszej komórki
       STA $DANE2 ;i umieszczamy ją w drugiej komórce
       END

DANE1: DAT  15     ;zawartości tych dwóch komórek zostaną
DANE2: DAT 188     ;zamienione miejscami
X:     DAT   0     ;to jest zmienna pomocnicza

START: LDA $DANE1  ;przesyłamy DANE1 do X
       STA $X
       LDA $DANE2  ;przesyłamy DANE2 do DANE1
       STA $DANE1
       LDA $X      ;przesyłamy X do DANE1
       STA $DANE2
       END

START: LDA #"A    ;pobieramy do akumulatora kod literki A
       STA $INOUT ;przesyłamy go do rejestru wyjścia
       END

START: LDA #"0    ;pobieramy do akumulatora znak 0
       STA $INOUT ;przesyłamy go na wyjście
       LDA #"1    ;pobieramy znak 1
       STA $INOUT ;przesyłamy go na wyjście
       JMP #START ;skaczemy na początek programu - powtarzamy od nowa

DANE:  DAT -256

START: LDA $DANE  ;pobieramy liczbę do akumulatora
       JZR #ZERO  ;czy liczba równa zero?
       JMI #MINUS ;czy liczba ujemna?
       LDA #">    ;liczba dodatnia
       JMP #PISZ  ;wyświetlamy tekst
ZERO:  LDA #"=    ;liczba równa zero
       JMP #PISZ
MINUS: LDA #"<    ;liczba ujemna
PISZ:  STA $INOUT ;wypisujemy odpowiedni tekst
       LDA #"0
       STA $INOUT
       END

DANE:  DAT -68    ;komórka z danymi

START: LDA $DANE  ;sprawdzamy, czy liczba jest ujemna
       JMI #MINUS ;jeśli tak, skaczemy do etykiety MINUS
       END        ;jeśli nie, kończymy program. Liczba jest dodatnia

MINUS: LDA #0     ;zmieniamy znak liczby odejmując ją od 0
       SUB $DANE
       STA $DANE
       END

DANE1:  DAT  139   ;komórki z danymi
DANE2:  DAT  278
MAX:    DAT    0   ;tutaj program umieści większą z liczb

START:  LDA $DANE1 ;pobieramy pierwszą liczbę
        SUB $DANE2 ;testowo odejmujemy od niej drugą liczbę
        JMI #D2    ;jeśli różnica mniejsza od 0, to DANE2 jest większa
        LDA $DANE1 ;tutaj większa jest DANE1
        JMP #KONIEC
D2:     LDA $DANE2 ;tutaj większa jest DANE2
KONIEC: STA $MAX   ;w MAX umieszczamy większą z liczb
        END

START:  LDA $INOUT  ;pobieramy znak z wejścia
        JZR #START  ;jeśli brak znaku, czekamy aż się pojawi
PISZ:   STA $INOUT  ;odczytany znak przesyłamy na wyjście
        LDA $INOUT  ;pobieramy kolejny znak
        JZR #KONIEC ;jeśli dane się skończyły, kończymy
        JMP #PISZ   ;w przeciwnym razie kontynuujemy
KONIEC: END

TEKST:  DAT "W      ;w kolejnych komórkach umieszczamy
        DAT "I      ;poszczególne literki tekstu witaj
        DAT "T
        DAT "A
        DAT "J
        DAT 0       ;to jest koniec tekstu
TPTR:   DAT TEKST   ;tutaj mamy adres pierwszego znaku tekstu

START:  LDA *TPTR   ;pobieramy znak tekstu
        JZR #KONIEC ;jeśli koniec tekstu, kończymy
        STA $INOUT  ;znak przesyłamy na wyjście
        INC $TPTR   ;zwiększamy adres tekstu - następny znak
        JMP #START  ;kontynuujemy pętle z następnym znakiem
KONIEC: END

LICZNIK: DAT 15       ;liczba obiegów pętli

START:   LDA $LICZNIK ;sprawdzamy, czy licznik osiągnął 0
         JZR #KONIEC  ;jeśli tak, kończymy
         SUB #1       ;zmniejszamy licznik o 1
         STA $LICZNIK
         LDA #"X      ;na wyjście przesyłamy znak X
         STA $INOUT
         JMP #START   ;kontynuujemy pętlę
KONIEC:  END

LICZNIK: DAT "A       ;wartość początkowa licznika - kod literki A

START:   LDA $LICZNIK ;licznik przesyłamy na wyjście
         STA $INOUT
         SUB #"Z      ;sprawdzamy, czy licznik osiągnął wartość Z
         JZR #KONIEC  ;jeśli tak, kończymy
         INC $LICZNIK ;jeśli nie, przechodzimy do kolejnej literki
         JMP #START   ;i kontynuujemy pętlę
KONIEC:  END

DANE:   DAT 26541   ;liczba do wyświetlenia - dodatnia!
CYFRY:  DAT 0       ;bufor na 5 cyfr
        DAT 0
        DAT 0
        DAT 0
        DAT 0
CPTR:   DAT 0       ;wskaźnik cyfr w buforze

START:  LDA #CYFRY  ;ustawiamy CPTR na ostatnią cyfrę
        ADD #4
        STA $CPTR   ;CPTR -> CYFRY[4]
LP1:    LDA $DANE   ;pobieramy liczbę
        MOD #10     ;wyznaczamy cyfrę
        ADD #48     ;dodajemy kod ASCII
        STA *CPTR   ;wstawiamy cyfrę do bufora
        LDA $CPTR   ;przesuwamy się na kolejną cyfrę
        SUB #1
        STA $CPTR
        LDA $DANE   ;liczbę dzielimy przez podstawę 10
        DIV #10
        STA $DANE
        JZR #PISZ   ;jeśli koniec, wypisujemy bufor
        JMP #LP1    ;jeśli nie, kontynuujemy pętlę
PISZ:   INC $CPTR   ;CPTR wskazuje o jedną cyfrę wcześniej. Korygujemy
        LDA *CPTR   ;pobieramy cyfrę
        STA $INOUT  ;przesyłamy ją na wyjście
        LDA $CPTR   ;sprawdzamy, czy koniec bufora
        SUB #CYFRY
        SUB #4
        JZR #KONIEC
        JMP #PISZ   ;jeśli nie, kontynuujemy
KONIEC: END

DANE:   DAT 0       ;tutaj znajdzie się odczytana z wejścia liczba
X:      DAT 0       ;zmienna pomocnicza

START:  LDA $INOUT  ;czekamy, aż na wejściu pojawią się znaki
        JZR #START
LP1:    SUB #48     ;odejmujemy kod ASCII
        STA $X      ;cyfrę umieszczamy w zmiennej pomocniczej
        LDA $DANE   ;liczbę mnożymy przez 10
        MUL #10
        ADD $X      ;dodajemy cyfrę
        STA $DANE
        LDA $INOUT  ;pobieramy kolejną cyfrę
        JZR #KONIEC ;jeśli koniec cyfr, kończymy
        JMP #LP1    ;w przeciwnym razie kontynuujemy
KONIEC: END