Die folgenden Beispiele können über das DCP ab Adresse $2000 eingegeben und ausgeführt werden.

32-Bit Zähler

 
Adr    Opc        Mnemonic 
--------------------------------------------------------------- 
2000   2550       MOVE R5, $A0    ; obere 16 Bit löschen 
2002   0654       MOVE R6, R5     ; untere 16 Bit löschen 
2004   A600       ADD R6, #1 
2006   C603       SZ R6           ; Skip bei Überlauf 
2008   F005       BRA $2004 
200A   076C       MHL R7, R6      ; Prüfe, ob R6=$0000 
200C   0766       OR R7, R6 
200E   C70B       SNZ R7 
2010   A500       ADD R5, #1      ; ja->erhöhe R5 
2012   F00F       BRA $2004

Textausgabe

 
Adr    Opc        Mnemonic 
--------------------------------------------------------------- 
                  ; Bildschirm löschen 
2000   D501 0200  LWI R5, #$0200  ; Beginn Bildschirmspeicher 
2004   8606       LBI R6, #$06    ; High-Byte der Endadresse 
2006   8740       LBI R7, #' '    ; Blank (Hex $40) 
2008   7750       MOVB (R5)+, R7 
200A   C567       SBSH R5, R6 
200C   F005       BRA $2008
 
                  ; Aufruf Unterprogramm 
200E   0203       INC2 R2, R0     ; R2:=$2012 
2010   D021       MOVE R0, (R2)+  ; Sprung nach $2100 
2012   2100       DW $2100 
2014   0000       HALT 
 
                  ; Text ausgeben (Endtoken $FF) 
2100   D501 0400  LWI R5, #$0400  ; Beginn Zeile 9 
2104   D601 3000  LWI R6, #$3000  ; Adresse Text 
2108   6760       MOVB R7, (R6)+ 
210A   C70C       SNS R7 
210C   0024       MOVE R0, R2     ; Rücksprung 
210E   7750       MOVB (R5)+, R7 
2110   F009       BRA $2108
 
3000   E388 8540  DB "The quick brown fox jumps over the lazy dog.", $FF 
       98A4 8983 
       9240 8299 
       96A6 9540 
       8696 A740 
       91A4 9497 
       A240 96A5 
       8599 40A3 
       8885 4093 
       81A9 A840 
       8496 874B 
       FF