Pasted

# sample NoRAL assembly listings
 # partial Fibonacci sequence loaded into the stack
sto 0300 00
sto 0301 01
sto 03ff 16
psh 0300
psh 0300
add 0300 0301
pop 0301
dec 03ff
jpz 0223
psh ffff
jmp 020c
brk
 ================================================
#self- modifying code
 sto 0300 1a
sto 0100 41
inc 0206
inc 0207
dec 0300
jpz 0218
jmp 0204
brk
  output:
 Program Counter:  0219
Zero Flag:          01
Carry Flag:         00
Stack Pointer:      00
 +--------Screen Display----------+
|ABCDEFGHIJKLMNOPQRSTUVWXYZ      |
|                                |
|                                |
|                                |
|                                |
|                                |
|                                |
|                                |
+--------------------------------+
 ================================================
#simulated indirect addressing using self-modifying code
 sto 0209 a1
sto 020a 04
inc ffff