About Smalltalk-72
X

Menu
Smalltalk-72 was the first operating Smalltalk system. While its syntax was almost as simple as that of LISP, its message stream model of evaluation allowed a modern style of object-oriented programming to be implemented and developed even within the bounds of what today would be called a minuscule environment (128k for interpreter, display bits, base classes and an application). Those who are interested in the details of this language are referred to <yet to be written paper>, but much of it will become obvious from reading the original Instruction Manual (see button) and playing with the system here. Use the backslash key '\' to type the Smalltalk do-it character More complete ST-72 character support is in process.
KeyboardHelp
X

Menu
 control-A  control-B (caret)  control-C  control-D (done)  control-E (not working)  control-F  control-G  control-H (backspace)  control-I (does nothing)  control-J (do-it)  control-K  control-L (does nothing) control-M (return)  control-N  control-O  control-P (delete~)  control-Q  control-R (not working) control-S (not working)  control-T  control-U (not working)  control-V  control-W  control-X (not working)  control-Y  control-Z  control-[ (not working)  control-  control-]  (not working)
 backslash \ (do-it) ? question-mark ~ @ at-sign  ! exclamation mark  " double-quotes  $ dollar-sign  % percent-sign  & ampersand  (bitwise ops) \ (not working) ^ hat  _ underscore ~ tilde | vertical bar  back-tick `
~
ALTO Smalltalk-72
X

Menu
Step
Run
Lively-Web NOVA Emulator
Stop
20400: 651 JMP .-127; 020251 20401: 6160 p JSR @160; 010242 20402: 40751A STA 0,.-27; 020353 20403: 22056$. LDA 0,@56; 0124145 20404: 111000 MOV 0,2 20405: 20746! LDA 0,.-32; 020353 20406: 64451i) JSRII .+51; 021133 20407: 666 JMP .-112; 020275 20410: 4755 JSR .-23; 020365 20411: 105004 MOV 0,1,SZR 20412: 64446i& JSRII .+46; 020645 20413: 660 JMP .-120; 020273 20414: 64445i% JSRII .+45; 021600 20415: 6144 d JSR @144; 05453 20416: 655 JMP .-123; 020273 20417: 4741 JSR .-37; 020360 20420: 100513 K NEGLN 0,0,SNC 20421: 652 JMP .-126; 020273 20422: 64427i JSRII .+27; 020747 20423: 42731E STA 0,@.-47; 0400 20424: 10730 ISZ .-50; 020354 20425: 14726 DSZ .-52; 020353 20426: 774 JMP .-4; 020422 20427: 644 JMP .-134; 020273 20430: 4730 JSR .-50; 020360 20431: 100513 K NEGLN 0,0,SNC 20432: 641 JMP .-137; 020273 20433: 22721% LDA 0,@.-57; 0400 20434: 64416i JSRII .+16; 021064 20435: 10717 ISZ .-61; 020354 20436: 14715 DSZ .-63; 020353 20437: 774 JMP .-4; 020433 20440: 633 JMP .-145; 020273 20441: 20300 LDA 0,300; 0300 20442: 7234 JSR @-144,2 20443: 7233 JSR @-145,2 20444: 7237 JSR @-141,2 20445: 7226 JSR @-152,2 20446: 7227 JSR @-151,2 20447: 7236 JSR @-142,2 20450: 7235 JSR @-143,2 20451: 7217 JSR @-161,2 20452: 7221 JSR @-157,2 20453: 7232 JSR @-146,2 20454: 7223 JSR @-155,2 20455: 7230 JSR @-150,2 20456: 7220 JSR @-160,2 20457: 7222 JSR @-156,2 20460: 7215 JSR @-163,2 20461: 7224 JSR @-154,2 20462: 7213 JSR @-165,2 20463: 7214 JSR @-164,2 20464: 7214 JSR @-164,2 20465: 452 * JMP .+52; 020537 INOUT: 20466: 6201 JSR @201; 024141 20467: 21 JMP 21; 021 20470: 105000 MOV 0,1 20471: 6201 JSR @201; 024141 20472: 11 JMP 11; 011 20473: 64771i JSRII .-7; 027523 =OUTLD 20474: 101000 MOV 0,0 20475: 126460 0 SUBC 1,1 20476: 46767M STA 1,@.-11; 0452 20477: 61001b EIR 20500: 101015 MOVN 0,0,SNR 20501: 2170 x JMP @170; 01443 =RFALSE 20502: 2156 n JMP @156; 07667 =EVAL 20503: 1 JMP 1; 01 20504: 404 JMP .+4; 020510 20505: 1 JMP 1; 01 20506: 0 JMP 0; 00 20507: 20250 LDA 0,250; 0250 20510: 0 JMP 0; 00 20511: 0 JMP 0; 00 20512: 0 JMP 0; 00 20513: 0 JMP 0; 00 20514: 0 JMP 0; 00 20515: 0 JMP 0; 00 20516: 0 JMP 0; 00 20517: 0 JMP 0; 00 20520: 0 JMP 0; 00 20521: 0 JMP 0; 00 20522: 0 JMP 0; 00 20523: 0 JMP 0; 00 20524: 0 JMP 0; 00 20525: 0 JMP 0; 00 20526: 0 JMP 0; 00 20527: 0 JMP 0; 00 20530: 0 JMP 0; 00 20531: 0 JMP 0; 00 20532: 0 JMP 0; 00 20533: 0 JMP 0; 00 20534: 177777 ANDCSN 3,3,SBN 20535: 6731 JSR @.-47; 06201 20536: 374 JMP 374; 0374 20537: 54521YQ STA 3,.+121; 020660 20540: 22775% LDA 0,@.-3; 06731 20541: 24775) LDA 1,.-3; 020536 20542: 123000 ADD 1,0 20543: 4401 JSR .+1; 020544 20544: 162400 SUB 3,0 20545: 40403A STA 0,.+3; 020550 20546: 4422 JSR .+22; 020570 20547: 377 JMP 377; 0377 20550: 0 JMP 0; 00 20551: 177400 AND 3,3 20552: 22763% LDA 0,@.-15; 06731 20553: 2505 E JMP @.+105; 022732 20554: 54504YD STA 3,.+104; 020660 20555: 22760% LDA 0,@.-20; 06731 20556: 24760) LDA 1,.-20; 020536 20557: 123000 ADD 1,0 20560: 4401 JSR .+1; 020561 20561: 162400 SUB 3,0 20562: 40403A STA 0,.+3; 020565 20563: 4441 ! JSR .+41; 020624 20564: 377 JMP 377; 0377 20565: 165472 : INCCN 3,1,SZC 20566: 177400 AND 3,3 20567: 2471 9 JMP @.+71; 022732 20570: 54451Y) STA 3,.+51; 020641 20571: 4417 JSR .+17; 020610 20572: 6065 5 JSR @65; 023623 =LOAD 20573: 42445E% STA 0,@.+45; 022625 20574: 434 JMP .+34; 020630 20575: 54444Y$ STA 3,.+44; 020641 20576: 4412 JSR .+12; 020610 20577: 6065 5 JSR @65; 023623 =LOAD 20600: 6163 s JSR @163; 05522 20601: 42437E STA 0,@.+37; 022625 20602: 426 JMP .+26; 020630 20603: 54436Y STA 3,.+36; 020641 20604: 4404 JSR .+4; 020610 20605: 22433% LDA 0,@.+33; 022625 20606: 4457 / JSR .+57; 020665 20607: 421 JMP .+21; 020630 20610: 50451Q) STA 2,.+51; 020661 20611: 54431Y STA 3,.+31; 020642 20612: 344279 LDA 3,.+27; 020641 20613: 25400+ LDA 1,0,3 20614: 147000 ADD 2,1 20615: 44427I STA 1,.+27; 020644 20616: 21401# LDA 0,1,3 20617: 163000 ADD 3,0 20620: 40420A STA 0,.+20; 020640 20621: 21402# LDA 0,2,3 20622: 40421A STA 0,.+21; 020643 20623: 2417 JMP @.+17; 020605 20624: 54415Y STA 3,.+15; 020641 20625: 4763 JSR .-15; 020610 20626: 22412% LDA 0,@.+12; 022625 20627: 6067 7 JSR @67; 023630 20630: 14410 DSZ .+10; 020640 20631: 14413 DSZ .+13; 020644 20632: 24412) LDA 1,.+12; 020644 20633: 10410 ISZ .+10; 020643 20634: 2406 JMP @.+6; 020605 20635: 304241 LDA 2,.+24; 020661 20636: 344039 LDA 3,.+3; 020641 20637: 1403 JMP 3,3 20640: 22625% LDA 0,@.-153; 0452 20641: 23023& LDA 0,@23,2 20642: 20605! LDA 0,.-173; 020447 20643: 0 JMP 0; 00 20644: 40177@ STA 0,177; 0177 20645: 54413Y STA 3,.+13; 020660 20646: 40774A STA 0,.-4; 020642 20647: 44774I STA 1,.-4; 020643 20650: 6203 JSR @203; 024072 20651: 7 JMP 7; 07 20652: 24771) LDA 1,.-7; 020643 20653: 123000 ADD 1,0 20654: 6176 ~ JSR @176; 024111 20655: 7 JMP 7; 07 20656: 20764! LDA 0,.-14; 020642 20657: 2401 JMP @.+1; 022732 20660: 22732% LDA 0,@.-46; 034427 20661: 40172@z STA 0,172; 0172 20662: 20607! LDA 0,.-171; 020471 20663: 11674 ISZ -104,3 20664: 5026 JSR 26,2 20665: 44776I STA 1,.-2; 020663 20666: 54774Y STA 3,.-4; 020662 20667: 6171 y JSR @171; 05565 20670: 40774A STA 0,.-4; 020664 20671: 24772) LDA 1,.-6; 020663 20672: 6065 5 JSR @65; 023623 =LOAD 20673: 40770A STA 0,.-10; 020663 20674: 20770! LDA 0,.-10; 020664 20675: 6067 7 JSR @67; 023630 20676: 20765! LDA 0,.-13; 020663 20677: 6165 u JSR @165; 011352 20700: 307611 LDA 2,.-17; 020661 20701: 2761 JMP @.-17; 020607 20702: 54756Y STA 3,.-22; 020660 20703: 40737A STA 0,.-41; 020642 20704: 6203 JSR @203; 024072 20705: 7 JMP 7; 07 20706: 101213 MOVRN 0,0,SNC 20707: 747 JMP .-31; 020656 20710: 101400 INC 0,0 20711: 743 JMP .-35; 020654 20712: 54546Yf STA 3,.+146; 021060 20713: 24131(Y LDA 1,131; 0131 20714: 147000 ADD 2,1 20715: 6065 5 JSR @65; 023623 =LOAD 20716: 40427A STA 0,.+27; 020745 20717: 6203 JSR @203; 024072 20720: 7 JMP 7; 07 20721: 101112 J MOVLN 0,0,SZC 20722: 412 JMP .+12; 020734 20723: 40421A STA 0,.+21; 020744 20724: 101001 MOV 0,0,SKP 20725: 54533Y[ STA 3,.+133; 021060 20726: 6203 JSR @203; 024072 20727: 15 JMP 15; 015 20730: 24414) LDA 1,.+14; 020744 20731: 122133 [ ADCZLN 1,0,SNC 20732: 406 JMP .+6; 020740 20733: 121000 MOV 1,0 20734: 126000 ADC 1,1 20735: 64445i% JSRII .+45; 022463 20736: 2522 R JMP @.+122; 020755 20737: 44405I STA 1,.+5; 020744 20740: 121400 INC 1,0 20741: 6176 ~ JSR @176; 024111 20742: 7 JMP 7; 07 20743: 6204 JSR @204; 04622 20744: 660 JMP .-120; 020624 20745: 37570?x LDA 3,@170,3 20746: 2512 J JMP @.+112; 020755 20747: 54512YJ STA 3,.+112; 021061 20750: 4732 JSR .-46; 020702 20751: 4741 JSR .-37; 020712 20752: 101300 MOVS 0,0 20753: 40510AH STA 0,.+110; 021063 20754: 4751 JSR .-27; 020725 20755: 24506)F LDA 1,.+106; 021063 20756: 123000 ADD 1,0 20757: 2502 B JMP @.+102; 022120 20760: 54501YA STA 3,.+101; 021061 20761: 40415A STA 0,.+15; 020776 20762: 105400 INC 0,1 20763: 6065 5 JSR @65; 023623 =LOAD 20764: 100513 K NEGLN 0,0,SNC 20765: 2474 < JMP @.+74; 022120 20766: 40475A= STA 0,.+75; 021063 20767: 102460 0 SUBC 0,0 20770: 40405A STA 0,.+5; 020775 20771: 4721 JSR .-57; 020712 20772: 101001 MOV 0,0,SKP 20773: 4732 JSR .-46; 020725 20774: 6205 JSR @205; 04643 20775: 6242 JSR @242; 00 20776: 41220B STA 0,-160,2 20777: 14464 4 DSZ .+64; 021063
this.AC0 = 1; this.AC1 = 0; this.AC2 = 034344; this.AC3 = 020474; this.PC = 020474; this.CRY = 0; // instruction# = 0
Restart
Show Nova
About Smalltalk-72
About this Emulation
About Lively Web
Open the ST-72 Manual
ALLDEFS
Keyboard Help