sourcelibs/Hex1000/demos/listing.xtl
1⍝!/usr/bin/env xetal
2⍝ The calculator's ROM, page by page, in the order each page runs:
3⍝ every instruction's PC (its address in the page), its code and the
4⍝ instruction (BR and CALL show the PC they go to, in the page LDP set
5⍝ before them). The source, with labels and comments, is rom/calc.asm;
6⍝ the pages are: 0 reset, the key scan and what kind of key; 1 a digit;
7⍝ 2 an operator or =; 3 multiply and clear; 4 to 6 the subroutines.
8⍝ Run with "just demo-lib Hex1000 listing".
9ʰˣ⁼u̲se< "Hex1000"
100 ʰˣl̲isting ʰˣCalcRom
111 ʰˣl̲isting ʰˣCalcRom
122 ʰˣl̲isting ʰˣCalcRom
133 ʰˣl̲isting ʰˣCalcRom
144 ʰˣl̲isting ʰˣCalcRom
155 ʰˣl̲isting ʰˣCalcRom
166 ʰˣl̲isting ʰˣCalcRom