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