Retro Computer Laboratory

Benutzer-Werkzeuge

Webseiten-Werkzeuge

Sie befinden sich hier: inhalt » lgp30 » samples
Zuletzt angesehen: • analyticalengine • hasenjaeger • rechnervergleiche • weblinks • analyticalengine • typos
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 19:01] – 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: +
-     ;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 119: 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.1516039278.txt.gz · Zuletzt geändert: 2018-01-15 19:01 von rainer