Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen angezeigt.

--- lgp30:samples [2018-01-16 17:54] – [Printing all digits] rainer
+++ lgp30:samples [2018-01-16 17:58] (aktuell) – [Fill and clear a track] rainer
@@ Zeile 121: / Zeile 121: @@
 If Break 4 is not set, the programme waits before clear;
 if Break 8 is not set, it waits after clear before repeat.
+<code>
+ fill and clear a track in physical order
+;zzz0400'
+/zzz0400'
+   c0033'    clear acc
+     c0033'    clear sector
+   b0033'    get sector
+     a0032'    add track
+     y0005'    set destination
+   hzzzz'    store
+     a0034'    advance
+     e0035'    mask sector
+     h0033'    save
+     s0036'    ? >0
+     t0012'    no, done
+     u0002'    yes, repeat
+   z0400'    pause unless BR4
+     c0033'    clear track
+     c0033'
+   b0033'
+     a0032'
+     y0019'
+     c0037'    discard and clear
+   hzzzz'    clear mem
+     b0033'
+     a0034'
+     e0035'
+     h0033'
+     s0036'    ? >0
+     t0027'    no, done, again
+     u0015'    yes, repeat
+   z0800'    pause unless BR8
+     u0000'
-     fill and clear a track
+data area:
-     ;zzz0400'
+;zzz0432'
-     /zzz0400'
+,zzz0006'
-   c0033'    clear acc
+00002100' track to fill
-          c0033'    clear sector
+00000000' current sector
-   b0033'    get sector
+000000q4' sector increment
-          a0032'    add track
+000000wj' sector mask
-          y0005'    set destination
+00000002' to test for zero
-   hzzzz'    store
+00000000' trash to clear acc
-          a0034'    advance
+start here:
-          e0035'    mask sector
+.zzz0400'
-          h0033'    save
+</code>
-          s0036'    ? >0
-          t0012'    no, done
-          u0002'    yes, repeat
-   z0400'    pause unless BR4
-          c0033'    clear track
-          c0033'
-   b0033'
-          a0032'
-          y0019'
-          c0037'    discard and clear
-   hzzzz'    clear mem
-          b0033'
-          a0034'
-          e0035'
-          h0033'
-          s0036'    ? >0
-          t0027'    no, done, again
-          u0015'    yes, repeat
-   z0800'    pause unless BR8
-          u0000'
-     data area:
-     ;zzz0432'
-     ,zzz0006'
-00002100' track to fill
-00000000' current sector
-000000q4' sector increment
-000000wj' sector mask
-00000002' to test for zero
-00000000' trash to clear acc
-     start here:
-     .zzz0400'

lgp30/samples.1516121689.txt.gz · Zuletzt geändert: 2018-01-16 17:54 von rainer

Nach oben