Quellcode
- ;-----------------------------------------------------------
- ; Praktikum Rechnerstrukturen und Betriebssysteme 1
- ; Fachhochschule Dortmund
- ; Caesar-Verschlüsselung dechiffrieren
- ;-----------------------------------------------------------
- .include "m32def.inc"
- .cseg ; Programmspeicher adressieren
- .org 0x0000 ; Platziert das Programm ab Adresse 0x0000 im Programmspeicher
- ;-----------------------------------------------------------
- ; Stackpointer initialisieren
- ldi r17,low(RAMEND) ; Low Stackpointer und
- out spl,r17
- ldi r17,high(RAMEND) ; High Stackpointer auf
- out sph,r17 ; Ende des SRAMs setzen
- ; die folgende Subroutine beim Debuggen am besten mit F10 überspringen!
- rcall startup ; Konstanten in den Datenspeicher (SRAM) kopieren
- ;-----------------------------------------------------------
- ; Layout des Datenspeichers nach der Initialisierung
- ; $0100-$01FF Schlüssel zum Verschlüsseln
- ; $0200-$02FF Schlüssel zum Entschlüsseln
- ; $0300 Hier legen Sie die Länge der Botschaft ab!
- ; $0302- die Botschaft als C-String
- ;-----------------------------------------------------------
- ; schreiben Sie Ihr Programm hierher!
- ldi xl, 0x02
- ldi xh, 0x03
- ldi yh, 0x02
- ldi zl, 0x30
- ldi zh, 0x03
- ldi r25, 0
- loop_name:
- ld yl, x+
- cpi yl, 0
- breq end_name
- inc r25
- ld r24, y
- st z+, r24
- rjump loop_name
- end_name:
- sts $300, r25
- ;-----------------------------------------------------------
- ; Endlosschleife zum Programmende
- end:
- rjmp end ; Endlosschleife am Programmende
- ;-----------------------------------------------------------
- ; Den folgenden Code müssen Sie nicht lesen oder verstehen!
- ; Startup-Code zur Initialisierung des Systems
- ; Konstanten aus dem Programmspeicher (FLASH) in den
- ; Datenspeicher (SRAM) kopieren
- startup:
- ldi zl, low(2*const_start) ; zh:zl <- Quelladresse
- ldi zh, high(2*const_start); Quelle im Programmspeicher
- ldi yl, low(2*const_end) ; yh:yl <- End-Quelladresse
- ldi yh, high(2*const_end)
- ldi xl, $00 ; xh:xl <- Zieladresse
- ldi xh, $01 ; Ziel im Datenspeicher
- startup_loop:
- lpm r0, z+ ; Quellbyte aus Programmspeicher
- st x+, r0
- cp zl, yl
- cpc zh, yh
- brne startup_loop
- ret
- ;-----------------------------------------------------------
- ; Den folgenden Code müssen Sie nicht lesen oder verstehen!
- ; Die folgenden Daten werden von der startup-Subroutine
- ; aus dem Programm- in den Datenspeicher kopiert.
- const_start:
- ; Schlüssel zum Verschlüsseln
- .db $03,$04,$05,$06,$07,$08,$09,$0a,$0b,$0c,$0d,$0e,$0f,$10,$11,$12
- .db $13,$14,$15,$16,$17,$18,$19,$1a,$1b,$1c,$1d,$1e,$1f,$20,$21,$22
- .db $23,$24,$25,$26,$27,$28,$29,$2a,$2b,$2c,$2d,$2e,$2f,$30,$31,$32
- .db $33,$34,$35,$36,$37,$38,$39,$3a,$3b,$3c,$3d,$3e,$3f,$40,$41,$42
- .db $43,$44,$45,$46,$47,$48,$49,$4a,$4b,$4c,$4d,$4e,$4f,$50,$51,$52
- .db $53,$54,$55,$56,$57,$58,$59,$5a,$5b,$5c,$5d,$5e,$5f,$60,$61,$62
- .db $63,$64,$65,$66,$67,$68,$69,$6a,$6b,$6c,$6d,$6e,$6f,$70,$71,$72
- .db $73,$74,$75,$76,$77,$78,$79,$7a,$7b,$7c,$7d,$7e,$7f,$80,$81,$82
- .db $83,$84,$85,$86,$87,$88,$89,$8a,$8b,$8c,$8d,$8e,$8f,$90,$91,$92
- .db $93,$94,$95,$96,$97,$98,$99,$9a,$9b,$9c,$9d,$9e,$9f,$a0,$a1,$a2
- .db $a3,$a4,$a5,$a6,$a7,$a8,$a9,$aa,$ab,$ac,$ad,$ae,$af,$b0,$b1,$b2
- .db $b3,$b4,$b5,$b6,$b7,$b8,$b9,$ba,$bb,$bc,$bd,$be,$bf,$c0,$c1,$c2
- .db $c3,$c4,$c5,$c6,$c7,$c8,$c9,$ca,$cb,$cc,$cd,$ce,$cf,$d0,$d1,$d2
- .db $d3,$d4,$d5,$d6,$d7,$d8,$d9,$da,$db,$dc,$dd,$de,$df,$e0,$e1,$e2
- .db $e3,$e4,$e5,$e6,$e7,$e8,$e9,$ea,$eb,$ec,$ed,$ee,$ef,$f0,$f1,$f2
- .db $f3,$f4,$f5,$f6,$f7,$f8,$f9,$fa,$fb,$fc,$fd,$fe,$ff,$00,$01,$02
- ; Schlüssel zum Entschlüsseln
- .db $fd,$fe,$ff,$00,$01,$02,$03,$04,$05,$06,$07,$08,$09,$0a,$0b,$0c
- .db $0d,$0e,$0f,$10,$11,$12,$13,$14,$15,$16,$17,$18,$19,$1a,$1b,$1c
- .db $1d,$1e,$1f,$20,$21,$22,$23,$24,$25,$26,$27,$28,$29,$2a,$2b,$2c
- .db $2d,$2e,$2f,$30,$31,$32,$33,$34,$35,$36,$37,$38,$39,$3a,$3b,$3c
- .db $3d,$3e,$3f,$40,$41,$42,$43,$44,$45,$46,$47,$48,$49,$4a,$4b,$4c
- .db $4d,$4e,$4f,$50,$51,$52,$53,$54,$55,$56,$57,$58,$59,$5a,$5b,$5c
- .db $5d,$5e,$5f,$60,$61,$62,$63,$64,$65,$66,$67,$68,$69,$6a,$6b,$6c
- .db $6d,$6e,$6f,$70,$71,$72,$73,$74,$75,$76,$77,$78,$79,$7a,$7b,$7c
- .db $7d,$7e,$7f,$80,$81,$82,$83,$84,$85,$86,$87,$88,$89,$8a,$8b,$8c
- .db $8d,$8e,$8f,$90,$91,$92,$93,$94,$95,$96,$97,$98,$99,$9a,$9b,$9c
- .db $9d,$9e,$9f,$a0,$a1,$a2,$a3,$a4,$a5,$a6,$a7,$a8,$a9,$aa,$ab,$ac
- .db $ad,$ae,$af,$b0,$b1,$b2,$b3,$b4,$b5,$b6,$b7,$b8,$b9,$ba,$bb,$bc
- .db $bd,$be,$bf,$c0,$c1,$c2,$c3,$c4,$c5,$c6,$c7,$c8,$c9,$ca,$cb,$cc
- .db $cd,$ce,$cf,$d0,$d1,$d2,$d3,$d4,$d5,$d6,$d7,$d8,$d9,$da,$db,$dc
- .db $dd,$de,$df,$e0,$e1,$e2,$e3,$e4,$e5,$e6,$e7,$e8,$e9,$ea,$eb,$ec
- .db $ed,$ee,$ef,$f0,$f1,$f2,$f3,$f4,$f5,$f6,$f7,$f8,$f9,$fa,$fb,$fc
- ; Dummy für die Stringlänge
- .db 0, 0
- ; Geheime Botschaft
- .db "Yhql/#ylgl/#ylfl#0#Lfk#ndp/#vdk#xqg#vlhjwh$", 0
- const_end:
- .db 0