Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen angezeigt.

--- lgp30:samples [2018-01-15 13:52] – fixed var count rainer
+++ lgp30:samples [2018-01-16 17:58] (aktuell) – [Fill and clear a track] rainer
@@ Zeile 6: / Zeile 6: @@
 As it is rather unusual that the machine stops on overflow, here is a small test program:
+<code>
-     halt on overflow
+halt on overflow
-     ;zzz0700'
+;zzz0700'
-     /zzz0700'
+/zzz0700'
-   b0016'	get start
+   b0016'   get start
-   a0017'	stops if overflow
+   a0017'   stops if overflow
-          u0001'	loop
+     u0001'   loop
-     variables:
+variables:
-     ;zzz0716'
+;zzz0716'
-     ,zzz0002'
+,zzz0002'
-7ww00000' start
+7ww00000'  start
-00002000' increment
+00002000'  increment
-     go
+go
-     .zzz0700'
+.zzz0700'
+</code>
 ===== Hello =====
@@ Zeile 51: / Zeile 51: @@
 Example looping program that prints a given number of asterisks:
-     simple loop
+<code>
-     ;   0900'
+simple loop
-     /   0900'
+;   0900'
-  xp0800'	upper case
+/   0900'
-         xz0000'	sync
+  xp0800'	upper case
-         xp1600'	CR
+    xz0000'	sync
-         xz0000'
+    xp1600'	CR
-          b0022'	start value
+    xz0000'
-          u0007'	avoid data wait
+     b0022'	start value
-   b0020'	get counter
+     u0007'	avoid data wait
-   s0021'	minus step
+   b0020'	get counter
-          t0013'	done if negative
+   s0021'	minus step
-          h0020'	save
+     t0013'    done if negative
-         xp1000'	print *
+     h0020'	save
-         xz0000'
+    xp1000'	print *
-          u0006'	repeat
+    xz0000'
-  xz0000'	halt
+     u0006'	repeat
-   u0000'	restart
+  xz0000'	halt
-     data:
+   u0000'	restart
-     ;   0920'
-     ,000  03'
-00000000' counter
-00000010' decrement
-00000050' initial
-     start:
-     .   0900'
+data:
+;   0920'
+,000  03'
+00000000' counter
+00000010' decrement
+00000050' initial
+start:
+.   0900'
+</code>
 ===== Printing all digits =====
 The following example prints all characters in numerical sequence, all digits as an example.
 It shows how to modify instructions:
+<code>print 10 digits
+;zzz0800'
+/zzz0800'
+  xp0400'	lower case
+    xz0000'
+    xp1600'	CR
+    xz0000'
+  xp0200'	print 0
+    xz0000'
+     b0004'	last printed
+     e0022'	mask char code
+     a0020'	increment
+     y0004'	save
+     s0021'	end?
+     t0004'	no
+  xz0400'	stop for repeat
+     b0023'
+     y0004'	start over
+     u0000'
+data area:
+;zzz0820'
+,zzz0004'
+00000400' increment
+00002700' last digit 9 = x26, plus 1
+0000ww00' mask
+00000200' digit 0
+start here:
+.zzz0800'
+</code>
+===== Fill and clear a track =====
-     print 10 digits
+Fills a track with its sector numbers, and then clears the same track again.
-     ;zzz0800'
+To fill in physical order, use ''0q4'' in location 34; for logical order, use ''004''
-     /zzz0800'
+If Break 4 is not set, the programme waits before clear;
-  xp0400'	lower case
+if Break 8 is not set, it waits after clear before repeat.
-         xz0000'
+<code>
-         xp1600'	CR
+ fill and clear a track in physical order
-         xz0000'
+;zzz0400'
-  xp0200'	print 0
+/zzz0400'
-         xz0000'
+   c0033'    clear acc
-          b0004'	last printed
+     c0033'    clear sector
-          e0022'	mask char code
+   b0033'    get sector
-          a0020'	increment
+     a0032'    add track
-          y0004'	save
+     y0005'    set destination
-          s0021'	end?
+   hzzzz'    store
-          t0004'	no
+     a0034'    advance
-  xz0400'	stop for repeat
+     e0035'    mask sector
-          b0023'
+     h0033'    save
-          y0004'	start over
+     s0036'    ? >0
-          u0000'
+     t0012'    no, done
-     data area:
+     u0002'    yes, repeat
-     ;zzz0820'
+   z0400'    pause unless BR4
-     ,zzz0004'
+     c0033'    clear track
-00000400' increment
+     c0033'
-00002700' last digit 9 = x26, plus 1
+   b0033'
-0000ww00' mask
+     a0032'
-00000200' digit 0
+     y0019'
-     start here:
+     c0037'    discard and clear
-     .zzz0800'
+   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'
+</code>

lgp30/samples.1516020730.txt.gz · Zuletzt geändert: 2018-01-15 13:52 von rainer

Nach oben