Linear assembler
Atomic byte-code
Description
Atoms
AND D0,D0 ; Cold start? JNZ 8# ; No: Run BIOS LEA D8,#D0+256 ; Yes: Init API LEA D4,#D0+57344 ; & init Stack LEA D5,#D0+8192 ; Source MOV D6,D4 ; Destination DEF 7#D0+1 ; LOOP#7 MOV A9,#D5 ; A9=[D5] MOV #D6,A9 ; [D6]=A9 INC D5 ; D5++ INC D6 ; D6++ JNZ 7# ; JNZ LOOP#7 DBG 123456789# JUMP #D1+17D2+13D3+9D4+3D5+98765 JUMP #D1+98D7+45D6+2D3 JUMP #D8+65536 SET CF INF D5 IN A4,D5 ADC A7,C3 ADD A7,86#,C3 INC A7 SBB A1,#D2 SUB #D2,A1 DEC 7#D2 LEA D1,#D2+3D3+4D4+56789 LEX C1,#D2+3D3+4D4+56789,B0 ORD #D1+234,D5,D6 ORD #D1+234,C5,B6