Оказывается можно даже в 40 байт. Sandro придумал.
Два варианта:
1. Без HALT в конце, работает в ДОС (встречает неизвестный код инструкции в таблице данных, происходит прерывание и останов).
2. С HALT, работает в Мониторе (запускать надо не с начала, а с адреса 37746; в роли HALT выступает содержимое экрана, там нули).
Код:
MOV #16,R2
1: MOVB Tree-1(R2),R3
MOVB (PC),R1 ; 177700
MOV #"*",R0
SUB R3,R1
ASR R1
EMT 24
2: EMT 16
SOB R3,2
SOB R2,1
Tree:
.BYTE 1,3,5,7
.BYTE 3,7,11.,15.
.BYTE 5,11.,17.,23.
.BYTE 3,3
Код:
; Run from Monitor: S37746
.LINK 37730
Tree:
.BYTE 1,3,5,7
.BYTE 3,7,11.,15.
.BYTE 5,11.,17.,23.
.BYTE 3,3
MOV #16,R2
1: MOVB Tree-1(R2),R3
MOVB (PC),R1 ; 177700
MOV #"*",R0
SUB R3,R1
ASR R1
EMT 24
2: EMT 16
SOB R3,2
SOB R2,1