Zuletzt angesehen:
Sie befinden sich hier: inhalt » 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-15 12:02] – error in last program correctd rainerlgp30: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: 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' 
-     00   b0016' get start +00   b0016'   get start 
-     01   a0017' stops if overflow +01   a0017'   stops if overflow 
-          u0001' loop +     u0001'   loop 
-     variables: +variables: 
-     ;zzz0716' +;zzz0716' 
-     ,zzz0002' +,zzz0002' 
-     16 7ww00000' start +16 7ww00000'  start 
-     17 00002000' increment +17 00002000'  increment 
-     go +go 
-     .zzz0700'     +.zzz0700'        
 +</code>
 ===== Hello ===== ===== Hello =====
  
Zeile 51: Zeile 51:
  
 Example looping program that prints a given number of asterisks: Example looping program that prints a given number of asterisks:
-     simple loop +<code> 
-     ;   0900' +simple loop 
-     /   0900' +;   0900' 
-     00  xp0800' upper case +/   0900' 
-         xz0000' sync +00  xp0800' upper case 
-         xp1600' CR +    xz0000' sync 
-         xz0000' +    xp1600' CR 
-          b0022' start value +    xz0000' 
-          u0007' avoid data wait +     b0022' start value 
-     06   b0020' get counter  +     u0007' avoid data wait 
-     07   s0021' minus step  +06   b0020' get counter  
-          t0013' done if negative +07   s0021' minus step  
-          h0020' save +     t0013'    done if negative 
-         xp1000' print * +     h0020' save 
-         xz0000' +    xp1000' print * 
-          u0006' repeat +    xz0000' 
-     13  xz0000' halt +     u0006' repeat 
-     14   u0000' restart +13  xz0000' halt 
-     data: +14   u0000' restart
-     ;   0920' +
-     ,000  03' +
-     20 00000000' counter +
-     21 00000010' decrement +
-     22 00000050' initial +
-     start: +
-     .   0900' +
  
 +data:
 +;   0920'
 +,000  03'
 +20 00000000' counter
 +21 00000010' decrement
 +22 00000050' initial
 +start:
 +.   0900'
 +</code>
 ===== Printing all digits ===== ===== Printing all digits =====
  
 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: +start here: 
-     ;zzz0820' +.zzz0800' 
-     ,zzz0003' +</code> 
-     20 00000400' increment +===== Fill and clear a track =====
-     21 00002700' last digit 9 = x26, plus 1 +
-     22 0000ww00' mask +
-     23 00000200' digit 0 +
  
-     start here: +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'' 
 +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' 
 +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'
  
 +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'
 +</code>
lgp30/samples.1516014126.txt.gz · Zuletzt geändert: 2018-01-15 12:02 von rainer
Nach oben
CC Attribution-Noncommercial-Share Alike 4.0 International
Driven by DokuWiki Recent changes RSS feed Valid CSS Valid XHTML 1.0