Retro Computer Laboratory

Benutzer-Werkzeuge

Webseiten-Werkzeuge

Sie befinden sich hier: inhalt » lgp30 » samples
Zuletzt angesehen: • hasenjaeger • weblinks • rechnervergleiche • analyticalengine • analyticalengine • typos • en • zeroingtemporaries • utm84
lgp30:samples

Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen angezeigt.

Link zu dieser Vergleichsansicht

Beide Seiten der vorigen RevisionVorhergehende Überarbeitung
Nächste Überarbeitung		Vorhergehende Überarbeitung
lgp30:samples [2018-01-16 10:32] – [Simple Loop] rainerlgp30:samples [2018-01-16 17:58] (aktuell) – [Fill and clear a track] rainer
Zeile 84: Zeile 84:
 The following example prints all characters in numerical sequence, all digits as an example. The following example prints all characters in numerical sequence, all digits as an example.
 It shows how to modify instructions: It shows how to modify instructions:
 +<code>print 10 digits
 +;zzz0800'
 +/zzz0800'
 +00  xp0400' lower case
 +    xz0000'
 +    xp1600' CR
 +    xz0000'
 +04  xp0200' print 0
 +    xz0000' 
 +     b0004' last printed
 +     e0022' mask char code
 +     a0020' increment
 +     y0004' save 
 +     s0021' end?
 +     t0004' no
 +12  xz0400' stop for repeat  
 +     b0023'
 +     y0004' start over
 +     u0000'
  
-     print 10 digits +data area: 
-     ;zzz0800' +;zzz0820' 
-     /zzz0800' +,zzz0004' 
-     00  xp0400' lower case +20 00000400' increment 
-         xz0000' +21 00002700' last digit 9 = x26, plus 1 
-         xp1600' CR +22 0000ww00' mask 
-         xz0000' +23 00000200' digit 0 
-     04  xp0200' print 0 +
-         xz0000'  +
-          b0004' last printed +
-          e0022' mask char code +
-          a0020' increment +
-          y0004' save  +
-          s0021' end? +
-          t0004' no +
-     12  xz0400' stop for repeat   +
-          b0023' +
-          y0004' start over +
-          u0000' +
-     data area: +
-     ;zzz0820' +
-     ,zzz0004' +
-     20 00000400' increment +
-     21 00002700' last digit 9 = x26, plus 1 +
-     22 0000ww00' mask +
-     23 00000200' digit 0  +
-     start here: +
-     .zzz0800'+
  
 +start here:
 +.zzz0800'
 +</code>
 ===== Fill and clear a track ===== ===== Fill and clear a track =====
  
Zeile 120: Zeile 121:
 If Break 4 is not set, the programme waits before clear;  If Break 4 is not set, the programme waits before clear; 
 if Break 8 is not set, it waits after clear before repeat. if Break 8 is not set, it waits after clear before repeat.
 +<code>
 + fill and clear a track in physical order
 +;zzz0400'
 +/zzz0400'
 +00   c0033'    clear acc
 +     c0033'    clear sector
 +02   b0033'    get sector
 +     a0032'    add track
 +     y0005'    set destination
 +05   hzzzz'    store
 +     a0034'    advance
 +     e0035'    mask sector
 +     h0033'    save
 +     s0036'    ? >0
 +     t0012'    no, done
 +     u0002'    yes, repeat
 +12   z0400'    pause unless BR4
 +     c0033'    clear track
 +     c0033'
 +15   b0033'
 +     a0032'
 +     y0019'
 +     c0037'    discard and clear
 +19   hzzzz'    clear mem
 +     b0033'
 +     a0034'
 +     e0035'
 +     h0033'
 +     s0036'    ? >0
 +     t0027'    no, done, again
 +     u0015'    yes, repeat
 +27   z0800'    pause unless BR8
 +     u0000'
  
-     fill and clear a track  +data area: 
-     ;zzz0400' +;zzz0432' 
-     /zzz0400' +,zzz0006' 
-     00   c0033'    clear acc +32 00002100' track to fill 
-          c0033'    clear sector +33 00000000' current sector 
-     02   b0033'    get sector +34 000000q4' sector increment 
-          a0032'    add track +35 000000wj' sector mask 
-          y0005'    set destination +36 00000002' to test for zero 
-     05   hzzzz'    store +37 00000000' trash to clear acc 
-          a0034'    advance +start here: 
-          e0035'    mask sector +.zzz0400' 
-          h0033'    save +</code>
-          s0036'    ? >0 +
-          t0012'    no, done +
-          u0002'    yes, repeat +
-     12   z0400'    pause unless BR4 +
-          c0033'    clear track +
-          c0033' +
-     15   b0033' +
-          a0032' +
-          y0019' +
-          c0037'    discard and clear +
-     19   hzzzz'    clear mem +
-          b0033' +
-          a0034' +
-          e0035' +
-          h0033' +
-          s0036'    ? >0 +
-          t0027'    no, done, again +
-          u0015'    yes, repeat +
-     27   z0800'    pause unless BR8 +
-          u0000' +
-     data area: +
-     ;zzz0432' +
-     ,zzz0006' +
-     32 00002100' track to fill +
-     33 00000000' current sector +
-     34 000000q4' sector increment +
-     35 000000wj' sector mask +
-     36 00000002' to test for zero +
-     37 00000000' trash to clear acc +
-     start here: +
-     .zzz0400' +
- +
lgp30/samples.1516095127.txt.gz · Zuletzt geändert: 2018-01-16 10:32 von rainer