12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835183618371838183918401841184218431844184518461847184818491850185118521853185418551856185718581859186018611862186318641865186618671868186918701871187218731874187518761877187818791880188118821883188418851886188718881889189018911892189318941895189618971898189919001901190219031904190519061907190819091910191119121913191419151916191719181919192019211922192319241925192619271928192919301931193219331934193519361937193819391940194119421943194419451946194719481949195019511952195319541955195619571958195919601961196219631964196519661967196819691970197119721973197419751976197719781979198019811982198319841985198619871988198919901991199219931994199519961997199819992000200120022003200420052006200720082009201020112012201320142015201620172018201920202021202220232024202520262027202820292030203120322033203420352036203720382039204020412042204320442045204620472048204920502051205220532054205520562057205820592060206120622063206420652066206720682069207020712072207320742075207620772078207920802081208220832084208520862087208820892090209120922093209420952096209720982099210021012102210321042105210621072108210921102111211221132114211521162117211821192120212121222123212421252126212721282129213021312132213321342135213621372138213921402141214221432144214521462147214821492150215121522153215421552156215721582159216021612162216321642165216621672168216921702171217221732174217521762177217821792180218121822183218421852186218721882189219021912192219321942195219621972198219922002201220222032204220522062207220822092210221122122213221422152216221722182219222022212222222322242225222622272228222922302231223222332234223522362237223822392240224122422243224422452246224722482249225022512252225322542255225622572258225922602261226222632264226522662267226822692270227122722273227422752276227722782279228022812282228322842285228622872288228922902291229222932294229522962297229822992300230123022303230423052306230723082309231023112312231323142315231623172318231923202321232223232324232523262327232823292330233123322333233423352336233723382339234023412342234323442345234623472348234923502351235223532354235523562357235823592360236123622363236423652366236723682369237023712372237323742375237623772378237923802381238223832384238523862387238823892390239123922393239423952396239723982399240024012402240324042405240624072408240924102411241224132414241524162417241824192420242124222423242424252426242724282429243024312432243324342435243624372438243924402441244224432444244524462447244824492450245124522453245424552456245724582459246024612462246324642465246624672468246924702471247224732474247524762477247824792480248124822483248424852486248724882489249024912492249324942495249624972498249925002501250225032504250525062507250825092510251125122513251425152516251725182519252025212522252325242525252625272528252925302531253225332534253525362537253825392540254125422543254425452546254725482549255025512552255325542555255625572558255925602561256225632564256525662567256825692570257125722573257425752576257725782579258025812582258325842585258625872588258925902591259225932594259525962597259825992600260126022603260426052606260726082609261026112612261326142615261626172618261926202621262226232624262526262627262826292630263126322633263426352636263726382639264026412642264326442645264626472648264926502651265226532654265526562657265826592660266126622663266426652666266726682669267026712672267326742675267626772678267926802681268226832684268526862687268826892690269126922693269426952696269726982699270027012702270327042705270627072708270927102711271227132714271527162717271827192720272127222723272427252726272727282729273027312732273327342735273627372738273927402741274227432744274527462747274827492750275127522753275427552756275727582759276027612762276327642765276627672768276927702771277227732774277527762777277827792780278127822783278427852786278727882789279027912792279327942795279627972798279928002801280228032804280528062807280828092810281128122813281428152816281728182819282028212822282328242825282628272828282928302831283228332834283528362837283828392840284128422843284428452846284728482849285028512852285328542855285628572858285928602861286228632864286528662867286828692870287128722873287428752876287728782879288028812882288328842885288628872888288928902891289228932894289528962897289828992900290129022903290429052906290729082909291029112912291329142915291629172918291929202921292229232924292529262927292829292930293129322933293429352936293729382939294029412942294329442945294629472948294929502951295229532954295529562957295829592960296129622963296429652966296729682969297029712972297329742975297629772978297929802981298229832984298529862987298829892990299129922993299429952996299729982999300030013002300330043005300630073008300930103011301230133014301530163017301830193020302130223023302430253026302730283029303030313032303330343035303630373038303930403041304230433044304530463047304830493050305130523053305430553056305730583059306030613062306330643065306630673068306930703071307230733074307530763077307830793080308130823083308430853086308730883089309030913092309330943095309630973098309931003101310231033104310531063107310831093110311131123113311431153116311731183119312031213122312331243125312631273128312931303131313231333134313531363137313831393140314131423143314431453146314731483149315031513152315331543155315631573158315931603161316231633164316531663167316831693170317131723173317431753176317731783179318031813182318331843185318631873188318931903191319231933194319531963197319831993200320132023203320432053206320732083209321032113212321332143215321632173218321932203221322232233224322532263227322832293230323132323233323432353236323732383239324032413242324332443245324632473248324932503251325232533254325532563257325832593260326132623263326432653266326732683269327032713272327332743275327632773278327932803281328232833284328532863287328832893290329132923293329432953296329732983299330033013302330333043305330633073308330933103311331233133314331533163317331833193320332133223323332433253326332733283329333033313332333333343335333633373338333933403341334233433344334533463347334833493350335133523353335433553356335733583359336033613362336333643365336633673368336933703371337233733374337533763377337833793380338133823383338433853386338733883389339033913392339333943395339633973398339934003401340234033404340534063407340834093410341134123413341434153416341734183419342034213422342334243425342634273428342934303431343234333434343534363437343834393440344134423443344434453446344734483449345034513452345334543455345634573458345934603461346234633464346534663467346834693470347134723473347434753476347734783479348034813482348334843485348634873488348934903491349234933494349534963497349834993500350135023503350435053506350735083509351035113512351335143515351635173518351935203521352235233524352535263527352835293530353135323533353435353536353735383539354035413542354335443545354635473548354935503551355235533554355535563557355835593560356135623563356435653566356735683569357035713572357335743575357635773578357935803581358235833584358535863587358835893590 |
- TEST 000: empty
- MAIN 0
- TEST 001: OK
- MAIN 0
- OK
- TEST 002: test loc, bne
- MAIN 0
- loc 0
- loc 0
- bne *1
- OK
- loc 1
- loc 1
- bne *1
- OK
- loc -1
- loc -1
- bne *1
- OK
- loc 127
- loc 127
- bne *1
- OK
- loc -127
- loc -127
- bne *1
- OK
- loc -128
- loc -128
- bne *1
- OK
- #if WS > 1
- loc 255
- loc 255
- bne *1
- OK
- loc 256
- loc 256
- bne *1
- OK
- loc 257
- loc 257
- bne *1
- OK
- loc 32767
- loc 32767
- bne *1
- OK
- loc -32767
- loc -32767
- bne *1
- OK
- loc -32768
- loc -32768
- bne *1
- OK
- #endif WS > 1
- #if WS > 2
- loc 65535
- loc 65535
- bne *1
- OK
- loc 65536
- loc 65536
- bne *1
- OK
- loc 65537
- loc 65537
- bne *1
- OK
- loc 2147483647
- loc 2147483647
- bne *1
- OK
- loc -2147483647
- loc -2147483647
- bne *1
- OK
- loc -2147483648
- loc -2147483648
- bne *1
- OK
- #endif WS > 2
- TEST 003: test signed and unsigned loc
- MAIN 0
- #if WS == 1
- loc 128
- loc -128
- bne *1
- OK
- loc 129
- loc -127
- bne *1
- OK
- loc 255
- loc -1
- bne *1
- OK
- #endif
- #if WS == 2
- loc 32768
- loc -32768
- bne *1
- OK
- loc 32769
- loc -32767
- bne *1
- OK
- loc 65535
- loc -1
- bne *1
- OK
- #endif
- #if WS == 4
- loc 2147483648
- loc -2147483648
- bne *1
- OK
- loc 2147483649
- loc -2147483647
- bne *1
- OK
- loc 4294967295
- loc -1
- bne *1
- OK
- #endif
- TEST 004: test lol, stl
- MAIN 8
- loc 95
- stl -4
- lol -4
- loc 95
- bne *1
- OK
- lol 0
- stl -4
- loc 125
- stl -8
- loc 125
- lol -8
- bne *1
- OK
- lol 0
- lol -4
- bne *1
- OK
- TEST 005: test loe, ste
- HOL 8
- MAIN 0
- loc 95
- ste 4
- loe 4
- loc 95
- bne *1
- OK
- loc 125
- ste 0
- loc 125
- loe 0
- bne *1
- OK
- loc 95
- ste 0
- loe 4
- loe 0
- bne *1
- OK
- TEST 006: test named global data: con, rom, bss
- a006
- bss 4,0,0
- b006
- con 35
- c006
- bss 4,0,1
- d006
- bss 4,35,1
- e006
- rom 57
- MAIN 0
- loc 0
- loe c006
- bne *1
- OK
- loe b006
- ste a006
- loe d006
- loe a006
- bne *1
- OK
- loe e006
- ste b006
- loc 57
- loe b006
- bne *1
- OK
- TEST 007: test lal, lil
- MAIN 12
- lal -8
- #if WS == PS
- stl -4
- #endif
- #if WS*2 == PS
- sdl -4
- #endif
- loc 117
- stl -8
- lil -4
- loc 117
- bne *1
- OK
- TEST 008: test sil
- MAIN 12
- loc 29
- stl -8
- lal -8
- #if WS == PS
- stl -4
- #endif
- #if WS*2 == PS
- sdl -4
- #endif
- loc 110
- sil -4
- lol -8
- loc 110
- bne *1
- OK
- TEST 009: test lof
- MAIN 20
- lal -16
- loc 120
- stl -12
- lof 4
- loc 120
- bne *1
- OK
- TEST 010: test stf
- MAIN 20
- loc 180
- lal -16
- stf 8
- lol -8
- loc 180
- bne *1
- OK
- TEST 011: test loi WS
- MAIN 20
- loc 140
- stl -12
- lal -12
- loi WS
- loc 140
- bne *1
- OK
- TEST 012: test loi 1, sti 1
- MAIN 20
- #if WS > 1
- loc 519
- lal -10
- sti 1
- lal -10
- loi 1
- loc 7
- bne *1
- OK
- #endif
- TEST 013: test loi 2*WS
- MAIN 20
- loc 77
- stl -12
- loc 119
- stl -12+WS
- lal -12
- loi 2*WS
- loc 77
- bne *1
- loc 119
- bne *1
- OK
- TEST 014: test loi 4*WS
- MAIN 20
- loc 150
- stl -16+(3*WS)
- loc 152
- stl -16+(2*WS)
- loc 154
- stl -16+WS
- loc 156
- stl -16
- lal -16
- loi 4*WS
- loc 156
- bne *1
- loc 154
- bne *1
- loc 152
- bne *1
- loc 150
- bne *1
- OK
- TEST 015: test los WS with 1
- MAIN 20
- loc 7
- lal -10
- sti 1
- lal -10
- loc 1
- los WS
- loc 7
- bne *1
- OK
- TEST 016: test los WS with 2
- MAIN 20
- #if WS == 1
- loc 77
- loc 78
- stl -12
- stl -11
- lal -12
- loc 2
- los WS
- loc 78
- bne *1
- loc 77
- bne *1
- #endif
- #if WS > 1
- loc 777
- stl -12
- lal -12
- loc 2
- los WS
- loc 777
- bne *1
- #endif
- OK
- TEST 017: test los WS with 4
- MAIN 20
- #if WS == 1
- loc 14
- loc 15
- loc 16
- loc 17
- lal -12
- sti 4
- lal -12
- loc 4
- los WS
- loc 17
- bne *1
- loc 16
- bne *1
- loc 15
- bne *1
- loc 14
- bne *1
- #endif
- #if WS == 2
- loc 3001
- loc 3002
- stl -12
- stl -10
- lal -12
- loc 4
- los WS
- loc 3002
- bne *1
- loc 3001
- bne *1
- #endif
- #if WS > 2
- loc 123001
- stl -12
- lal -12
- loc 4
- los WS
- loc 123001
- bne *1
- #endif
- OK
- TEST 018: test ldl
- MAIN 20
- loc 77
- stl -12
- loc 123
- stl -12+WS
- ldl -12
- loc 77
- bne *1
- loc 123
- bne *1
- OK
- TEST 019: test lde
- HOL 20
- MAIN 0
- loc 70
- ste 12
- loc 71
- ste 12+WS
- lde 12
- loc 70
- bne *1
- loc 71
- bne *1
- OK
- TEST 020: test ldf
- MAIN 20
- loc 123
- loc 77
- sdl -4
- lal -9
- ldf 5
- loc 77
- bne *1
- loc 123
- bne *1
- OK
- TEST 021: test ldf
- MAIN 20
- loc 75
- stl -12
- loc 77
- stl -12+WS
- lal -20
- ldf 8
- loc 75
- bne *1
- loc 77
- bne *1
- OK
- TEST 022: test sdl
- MAIN 20
- loc 30
- loc 31
- sdl -12
- lol -12+WS
- loc 30
- bne *1
- lol -12
- loc 31
- bne *1
- OK
- TEST 023: test sde
- HOL 20
- MAIN 0
- loc 40
- loc 41
- sde 16
- loe 16
- loc 41
- bne *1
- loe 16+WS
- loc 40
- bne *1
- OK
- TEST 024: test sdf
- HOL 20
- MAIN 0
- loc 51
- loc 50
- lae 6
- sdf 10
- loe 16
- loc 50
- bne *1
- loc 51
- loe 16+WS
- bne *1
- OK
- TEST 025: test sti 1
- MAIN 20
- loc 4136
- lal -11
- sti 1
- loc 1034
- lal -10
- sti 1
- lal -10
- loi 1
- loc 10
- bne *1
- lal -11
- loi 1
- loc 40
- bne *1
- OK
- TEST 026: test sti 1 and lol
- MAIN 0
- loc 257
- stl -12+WS
- loc 514
- stl -12-WS
- loc 50
- lal -12
- sti 1
- #if WS > 1
- loc -50
- lal -11
- sti 1
- #endif
- #if WS > 2
- loc 49
- lal -10
- sti 1
- loc -49
- lal -9
- sti 1
- #endif
- loc 257
- lol -12+WS
- bne *1
- loc 514
- lol -12-WS
- bne *1
- OK
- TEST 027: test sti 2
- MAIN 20
- #if WS == 1
- loc 89
- #endif
- loc 90
- lal -12
- sti 2
- lol -12
- loc 90
- bne *1
- OK
- TEST 028: test sti 4
- MAIN 20
- #if WS == 1
- loc 100
- loc 101
- #endif
- #if WS <= 2
- loc 102
- #endif
- loc 103
- lal -14
- sti 4
- lol -14
- loc 103
- bne *1
- OK
- TEST 029: test sts WS with 1
- MAIN 20
- loc 57
- lal -13
- sti 1
- loc 123
- lal -11
- sti 1
- loc 20
- lal -12
- loc 1
- sts WS
- lal -12
- loi 1
- loc 20
- bne *1
- lal -11
- loi 1
- loc 123
- bne *1
- lal -13
- loi 1
- loc 57
- bne *1
- OK
- TEST 030: test sts WS with WS
- MAIN 20
- loc 210
- lal -12
- loc WS
- sts WS
- lol -12
- loc 210
- bne *1
- OK
- TEST 031: test sts WS with 4
- MAIN 20
- #if WS == 1
- loc 100
- loc 101
- #endif
- #if WS <= 2
- loc 102
- #endif
- loc 103
- lal -14
- loc 4
- sts WS
- lol -14
- loc 103
- bne *1
- OK
- TEST 032: test adi WS
- MAIN 0
- loc 1
- loc 1
- adi WS
- loc 2
- bne *1
- OK
- loc 5
- loc -6
- adi WS
- loc -1
- bne *1
- OK
- #if WS >= 2
- loc -1007
- loc +999
- adi WS
- loc -8
- bne *1
- OK
- loc -1300
- loc +1405
- adi WS
- loc 105
- bne *1
- OK
- loc -30000
- loc -20
- adi WS
- loc -30020
- bne *1
- OK
- #endif
- #if WS >= 4
- loc -100007
- loc +99999
- adi WS
- loc -8
- bne *1
- OK
- loc -1300
- loc +140567
- adi WS
- loc 139267
- bne *1
- OK
- loc -30000000
- loc -20
- adi WS
- loc -30000020
- bne *1
- OK
- #endif
- TEST 033: test sbi WS
- MAIN 0
- loc 1
- loc 1
- sbi WS
- loc 0
- bne *1
- OK
- loc 5
- loc -6
- sbi WS
- loc +11
- bne *1
- OK
- #if WS >= 2
- loc -1007
- loc +999
- sbi WS
- loc -2006
- bne *1
- OK
- loc -1300
- loc +1405
- sbi WS
- loc -2705
- bne *1
- OK
- loc -30000
- loc -20
- sbi WS
- loc -29980
- bne *1
- OK
- #endif
- #if WS >= 4
- loc -100007
- loc +99999
- sbi WS
- loc -200006
- bne *1
- OK
- loc -1300
- loc +140567
- sbi WS
- loc -141867
- bne *1
- OK
- loc -30000000
- loc -20
- sbi WS
- loc -29999980
- bne *1
- OK
- #endif
- TEST 034: test mli WS
- MAIN 0
- loc 5
- loc 9
- mli WS
- loc 45
- bne *1
- OK
- loc 0
- loc 10
- mli WS
- loc 0
- bne *1
- OK
- #if WS > 1
- loc -99
- loc 7
- mli WS
- loc -693
- bne *1
- OK
- loc -100
- loc -90
- mli WS
- loc 9000
- bne *1
- OK
- #endif
- #if WS > 2
- loc 123456
- loc 200
- mli WS
- loc 24691200
- bne *1
- OK
- #endif
- TEST 035: test dvi WS
- MAIN 0
- loc 15
- loc 5
- dvi WS
- loc 3
- bne *1
- OK
- loc 100
- loc -7
- dvi WS
- loc -14
- bne *1
- OK
- loc -100
- loc 7
- dvi WS
- loc -14
- bne *1
- OK
- #if WS >= 2
- loc -1000
- loc -201
- dvi WS
- loc 4
- bne *1
- OK
- #endif
- #if WS >= 4
- loc 1234567
- loc -100
- dvi WS
- loc -12345
- bne *1
- OK
- #endif
- TEST 036: test rmi WS
- MAIN 0
- loc 100
- loc 7
- rmi WS
- loc 2
- bne *1
- OK
- loc -100
- loc 7
- rmi WS
- loc -2
- bne *1
- OK
- loc 100
- loc -7
- rmi WS
- loc 2
- bne *1
- OK
- loc -100
- loc -7
- rmi WS
- loc -2
- bne *1
- OK
- #if WS >= 2
- loc -1000
- loc -201
- rmi WS
- loc -196
- bne *1
- OK
- #endif
- #if WS >= 4
- loc 1234567
- loc -100
- rmi WS
- loc 67
- bne *1
- OK
- #endif
- TEST 037: test ngi WS
- MAIN 0
- loc 100
- ngi WS
- loc -100
- bne *1
- OK
- loc -100
- ngi WS
- loc 100
- bne *1
- OK
- TEST 038: test sli,slu WS
- MAIN 0
- loc 5
- loc 3
- sli WS
- loc 40
- bne *1
- OK
- loc -2
- loc 4
- sli WS
- loc -32
- bne *1
- OK
- loc 5
- loc 3
- slu WS
- loc 40
- bne *1
- OK
- loc -2
- loc 4
- slu WS
- loc -32
- bne *1
- OK
- TEST 039: test sri,sru WS
- MAIN 0
- loc 64
- loc 5
- sri WS
- loc 2
- bne *1
- OK
- loc -3
- loc 2
- sri WS
- loc -1
- bne *1
- OK
- loc -16
- loc 3
- sri WS
- loc -2
- bne *1
- OK
- loc 64
- loc 5
- sru WS
- loc 2
- bne *1
- OK
- loc -3
- loc 2
- sru WS
- #if WS == 1
- loc 63
- #endif
- #if WS == 2
- loc 16383
- #endif
- #if WS == 4
- loc 1073741823
- #endif
- bne *1
- OK
- TEST 040: test rol WS
- MAIN 0
- loc 1
- loc 3
- rol WS
- loc 8
- bne *1
- OK
- #if WS > 1
- loc 16384
- loc 15
- rol WS
- loc 8192
- bne *1
- OK
- loc -2
- loc 15
- rol WS
- loc 32767
- bne *1
- OK
- loc -28671
- loc 0
- rol WS
- loc -28671
- bne *1
- OK
- #endif
- TEST 041: test ror WS
- MAIN 0
- loc 4
- loc 5
- ror WS
- #if WS == 1
- loc 32
- #endif
- #if WS == 2
- loc 8192
- #endif
- #if WS == 4
- loc 536870912
- #endif
- bne *1
- OK
- #if WS == 2
- loc 32767
- loc 15
- ror WS
- loc -2
- bne *1
- OK
- #endif
- loc -28
- loc 0
- ror WS
- loc -28
- bne *1
- OK
- TEST 042: test inc
- MAIN 0
- loc 20
- inc
- loc 21
- bne *1
- OK
- loc -50
- inc
- loc -49
- bne *1
- OK
- TEST 043: test dec
- MAIN 0
- loc 66
- dec
- loc 65
- bne *1
- OK
- loc -44
- dec
- loc -45
- bne *1
- OK
- TEST 044: test adp
- MAIN 20
- lal -10
- adp -2
- lal -12
- cmp
- zne *1
- OK
- loc 519
- lal -11
- sti 1
- lal -12
- adp 1
- loi 1
- loc 7
- bne *1
- OK
- TEST 045: test inn WS
- MAIN 0
- loc 8
- loc 3
- inn WS
- loc 1
- bne *1
- OK
- loc 8
- loc 4
- inn WS
- loc 0
- bne *1
- OK
- loc 2
- loc -5
- inn WS
- loc 0
- bne *1
- OK
- loc -5
- loc 3
- inn WS
- loc 1
- bne *1
- OK
- TEST 046: test inn ?
- MAIN 0
- loc 8
- loc 3
- loc WS
- inn ?
- loc 1
- bne *1
- OK
- loc 8
- loc 4
- loc WS
- inn ?
- loc 0
- bne *1
- OK
- loc 2
- loc -5
- loc WS
- inn ?
- loc 0
- bne *1
- OK
- loc -5
- loc 3
- loc WS
- inn ?
- loc 1
- bne *1
- OK
- TEST 047: test set
- MAIN 0
- loc 3
- set WS
- loc 8
- bne *1
- OK
- loc 6
- set 2*WS
- loc 64
- bne *1
- loc 0
- bne *1
- OK
- loc 0
- set 4*WS
- loc 1
- bne *1
- loc 0
- bne *1
- loc 0
- bne *1
- loc 0
- bne *1
- OK
- TEST 048: test set ?
- MAIN 0
- loc 3
- loc WS
- set ?
- loc 8
- bne *1
- OK
- loc 6
- loc 2*WS
- set ?
- loc 64
- bne *1
- loc 0
- bne *1
- OK
- loc 0
- loc 4*WS
- set ?
- loc 1
- bne *1
- loc 0
- bne *1
- loc 0
- bne *1
- loc 0
- bne *1
- OK
- TEST 049: test aar
- a049
- rom 5,2,4
- b049
- con 5,2,1
- MAIN 20
- lal -12
- loc 5
- lae a049
- aar WS
- lal -12
- cmp
- zne *1
- OK
- lal -11
- loc 7
- lae b049
- aar WS
- lal -9
- cmp
- zne *1
- OK
- TEST 050: test aar ?
- a050
- rom 5,2,4
- b050
- con 5,2,1
- MAIN 20
- lal -12
- loc 5
- lae a050
- loc WS
- aar ?
- lal -12
- cmp
- zne *1
- OK
- lal -11
- loc 7
- lae b050
- loc WS
- aar ?
- lal -9
- cmp
- zne *1
- OK
- TEST 051: test lar
- a051
- rom 5,2,2*WS
- b051
- con 5,2,1
- MAIN 20
- loc 40
- loc 41
- sdl -12+(2*WS)
- lal -12
- loc 6
- lae a051
- lar WS
- loc 41
- bne *1
- loc 40
- bne *1
- OK
- loc 42
- lal -9
- sti 1
- lal -11
- loc 7
- lae b051
- lar WS
- lal -9
- loi 1
- bne *1
- OK
- TEST 052: test lar ?
- a052
- rom 5,2,2*WS
- b052
- con 5,2,1
- MAIN 20
- loc 40
- loc 41
- sdl -12+(2*WS)
- lal -12
- loc 6
- lae a052
- loc WS
- lar ?
- loc 41
- bne *1
- loc 40
- bne *1
- OK
- loc 42
- lal -9
- sti 1
- lal -11
- loc 7
- lae b052
- loc WS
- lar ?
- lal -9
- loi 1
- bne *1
- OK
- TEST 053: test sar
- a053
- rom 5,2,3*WS
- b053
- con 5,2,1
- MAIN 20
- loc 39
- loc 40
- loc 41
- lal -12
- loc 6
- lae a053
- sar WS
- lal -12+(3*WS)
- loi 3*WS
- loc 41
- bne *1
- loc 40
- bne *1
- loc 39
- bne *1
- OK
- loc -2
- lal -11
- loc 7
- lae b053
- sar WS
- lal -9
- loi 1
- loc 254
- bne *1
- OK
- TEST 054: test sar ?
- a054
- rom 5,2,3*WS
- b054
- con 5,2,1
- MAIN 20
- loc 39
- loc 40
- loc 41
- lal -12
- loc 6
- lae a054
- loc WS
- sar ?
- lal -12+(3*WS)
- loi 3*WS
- loc 41
- bne *1
- loc 40
- bne *1
- loc 39
- bne *1
- OK
- loc -2
- lal -11
- loc 7
- lae b054
- loc WS
- sar ?
- lal -9
- loi 1
- loc 254
- bne *1
- OK
- TEST 055: test tlt
- MAIN 0
- loc 1
- tlt
- loc 0
- bne *1
- OK
- loc 0
- tlt
- loc 0
- bne *1
- OK
- loc -3
- tlt
- loc 1
- bne *1
- OK
- TEST 056: test tle
- MAIN 0
- loc 8
- tle
- loc 0
- bne *1
- OK
- loc 0
- tle
- loc 1
- bne *1
- OK
- loc -19
- tle
- loc 1
- bne *1
- OK
- TEST 057: test teq
- MAIN 0
- loc 17
- teq
- loc 0
- bne *1
- OK
- loc 0
- teq
- loc 1
- bne *1
- OK
- loc -100
- teq
- loc 0
- bne *1
- OK
- TEST 058: test tne
- MAIN 0
- loc 76
- tne
- loc 1
- bne *1
- OK
- loc 0
- tne
- loc 0
- bne *1
- OK
- loc -99
- tne
- loc 1
- bne *1
- OK
- TEST 059: test tge
- MAIN 0
- loc 14
- tge
- loc 1
- bne *1
- OK
- loc 0
- tge
- loc 1
- bne *1
- OK
- loc -76
- tge
- loc 0
- bne *1
- OK
- TEST 060: test tgt
- MAIN 0
- loc 20
- tgt
- loc 1
- bne *1
- OK
- loc 0
- tgt
- loc 0
- bne *1
- OK
- loc -66
- tgt
- loc 0
- bne *1
- OK
- TEST 061: test cmi WS
- MAIN 0
- loc 10
- loc 20
- cmi WS
- tlt
- loc 1
- bne *1
- OK
- loc 20
- loc 10
- cmi WS
- tgt
- loc 1
- bne *1
- OK
- loc 44
- loc 44
- cmi WS
- loc 0
- bne *1
- OK
- TEST 062: test cmp, adp, cmu
- MAIN 20
- lal -5
- lal -2
- cmp
- tlt
- loc 1
- bne *1
- OK
- lal -2
- lal -5
- cmp
- tle
- loc 0
- bne *1
- OK
- lal -2
- lal -2
- cmp
- loc 0
- bne *1
- OK
- lal -5
- adp 3
- lal -2
- cmp
- loc 0
- bne *1
- OK
- lal -5
- adp 4
- lal -2
- cmp
- tge
- loc 1
- bne *1
- OK
- loc 6
- loc 6
- cmu WS
- loc 0
- bne *1
- OK
- loc 17
- loc 27
- cmu WS
- tlt
- loc 1
- bne *1
- OK
- loc 17
- loc 6
- loc 27
- loc 6
- cmu 2*WS
- tlt
- loc 1
- bne *1
- OK
- loc 6
- loc 27
- loc 6
- loc 17
- cmu 2*WS
- tgt
- loc 1
- bne *1
- OK
- TEST 063: test cms
- MAIN 0
- loc 6
- loc -10
- loc -125
- loc 30
- loc 6
- loc -10
- loc -126
- loc 30
- loc 4*WS
- cms
- tne
- loc 1
- bne *1
- OK
- TEST 064: test blt
- MAIN 0
- loc 3
- loc 4
- blt *1064
- bra *1
- 1064
- loc 4
- loc 3
- blt *1
- loc -5
- loc -4
- blt *2064
- bra *1
- 2064
- loc -4
- loc -5
- blt *1
- loc 4
- loc 4
- blt *1
- OK
- TEST 065: test ble
- MAIN 0
- loc 3
- loc 4
- ble *1065
- bra *1
- 1065
- loc 4
- loc 3
- ble *1
- loc -99
- loc -5
- ble *2065
- bra *1
- 2065
- loc -99
- loc -99
- ble *3065
- bra *1
- 3065
- loc 100
- loc -100
- ble *1
- OK
- TEST 066: test beq
- MAIN 0
- loc 3
- loc 3
- beq *1066
- bra *1
- 1066
- loc 3
- loc 4
- beq *1
- loc -18
- loc -17
- beq *1
- loc 0
- loc 0
- beq *2066
- bra *1
- 2066
- OK
- TEST 067: test bne
- MAIN 0
- loc 50
- loc 50
- bne *1
- loc 50
- loc 51
- bne *1067
- bra *1
- 1067
- loc 0
- loc 0
- bne *1
- OK
- TEST 068: test bge
- MAIN 0
- loc 100
- loc 101
- bge *1
- loc 101
- loc 100
- bge *1068
- bra *1
- 1068
- loc -100
- loc -99
- bge *1
- loc -100
- loc 100
- bge *1
- loc 0
- loc 0
- bge *2068
- bra *1
- 2068
- loc 50
- loc 50
- bge *3068
- bra *1
- 3068
- OK
- TEST 069: test bgt
- MAIN 0
- loc 3
- loc 10
- bgt *1
- loc 10
- loc 3
- bgt *1069
- bra *1
- 1069
- loc -100
- loc -50
- bgt *1
- loc -100
- loc 50
- bgt *1
- loc 5
- loc 5
- bgt *1
- OK
- TEST 070: test zlt
- MAIN 0
- loc 4
- zlt *1
- loc -4
- zlt *1070
- bra *1
- 1070
- loc 0
- zlt *1
- OK
- TEST 071: test zle
- MAIN 0
- loc 4
- zle *1
- loc -4
- zlt *1071
- bra *1
- 1071
- loc 0
- zle *2071
- bra *1
- 2071
- OK
- TEST 072: test zeq
- MAIN 0
- loc 4
- zeq *1
- loc -4
- zeq *1
- loc 0
- zeq *1072
- bra *1
- 1072
- OK
- TEST 073: test zne
- MAIN 0
- loc 4
- zne *1073
- bra *1
- 1073
- loc -4
- zne *2073
- bra *1
- 2073
- loc 0
- zne *1
- OK
- TEST 074: test zge
- MAIN 0
- loc 4
- zge *1074
- bra *1
- 1074
- loc -4
- zge *1
- loc 0
- zge *2074
- bra *1
- 2074
- OK
- TEST 075: test zgt
- MAIN 0
- loc 4
- zgt *1075
- bra *1
- 1075
- loc -4
- zgt *1
- loc 0
- zgt *1
- OK
- TEST 076: test asp
- MAIN 12
- loc 104
- loc 4
- loc 5
- loc 6
- asp 2*WS
- stl -4
- loc 104
- bne *1
- OK
- TEST 077: test cal
- HOL 12
- MAIN 0
- cal $p077
- loe 4
- loc 34
- bne *1
- OK
- PROC
- pro $p077,0
- loc 34
- ste 4
- ret 0
- end
- TEST 078: test cai
- HOL 12
- MAIN 0
- lpi $p078
- cai
- loe 4
- loc 34
- bne *1
- OK
- PROC
- pro $p078,0
- loc 34
- ste 4
- ret 0
- end
- TEST 079: test ads WS
- MAIN 20
- lal -6
- loc -2
- ads WS
- lal -8
- cmp
- zne *1
- OK
- lal -6
- loc 2
- ads WS
- lal -4
- cmp
- zne *1
- OK
- ; test adp
- lal -5
- adp 1
- lal -4
- cmp
- zne *1
- OK
- TEST 080: test sbs
- HOL 12
- MAIN 20
- lal -4
- lal -6
- sbs WS
- loc 2
- bne *1
- OK
- lae 7
- lae 10
- sbs WS
- loc -3
- bne *1
- OK
- TEST 081: test lor
- #define LB 0
- #define SP 1
- MAIN 20
- lor LB
- lxl 0
- cmp
- zne *1
- OK
- loc 31
- lor SP
- loi WS
- bne *1
- OK
- lor SP
- lal -12
- sti PS
- asp -4
- lor SP
- lal -8
- sti PS
- asp 4
- lal -12
- loi PS
- lal -8
- loi PS
- sbs WS
- loc 4
- bne *1
- OK
- TEST 082: test ass WS
- #define SP 1
- MAIN 20
- loc 104
- loc 50
- loc 60
- loc 2*WS
- ass WS
- loc 104
- bne *1
- OK
- lor SP
- lal -8
- sti PS
- loc -18
- ass WS
- lor SP
- lal -4
- sti PS
- loc 18
- ass WS
- lal -8
- loi PS
- lal -4
- loi PS
- sbs WS
- loc 18
- bne *1
- OK
- TEST 083: test blm
- HOL 40
- MAIN 32
- loc 61
- ste 12
- loc 0
- stl -4
- lae 12
- lal -4
- blm WS
- lol -4
- loc 61
- bne *1
- OK
- loc 44
- loc 43
- loc 42
- loc 41
- lal -20
- sti 4*WS
- lal -20
- lae 8
- blm 4*WS
- loe 8
- loc 41
- bne *1
- loe 8+WS
- loc 42
- bne *1
- loe 8+(2*WS)
- loc 43
- bne *1
- loe 8+(3*WS)
- loc 44
- bne *1
- OK
- TEST 084: test bls WS
- HOL 40
- MAIN 32
- loc 55
- stl -8+WS
- loc 56
- stl -8
- lal -8
- lae 20
- loc 2*WS
- bls WS
- loe 20
- loc 56
- bne *1
- loe 20+WS
- loc 55
- bne *1
- OK
- TEST 085: test dup
- MAIN 0
- loc 199
- dup WS
- bne *1
- OK
- loc 130
- loc 150
- dup 2*WS
- loc 150
- bne *1
- loc 130
- bne *1
- loc 150
- bne *1
- loc 130
- bne *1
- OK
- ; test dus WS
- loc 400
- loc 399
- loc 2*WS
- dus WS
- loc 399
- bne *1
- loc 400
- bne *1
- loc 399
- bne *1
- loc 400
- bne *1
- OK
- TEST 087: test rck
- a087
- con 10,14
- MAIN 12
- loc 10
- lae a087
- rck WS
- inc
- lae a087
- rck WS
- inc
- lae a087
- rck WS
- inc
- lae a087
- rck WS
- inc
- lae a087
- rck WS
- stl -4
- OK
- TEST 088: test csa
- MAIN 20
- a088
- con *1088,4,2,*3088,*2088,*4088
- zrl -8
- loc 4
- 5088
- inc
- dup WS
- lae a088
- csa WS
- bra *1
- 3088
- bra *1
- 2088
- lol -8
- loc 3
- adi WS
- stl -8
- bra *5088
- 1088
- inl -8
- bra *6088
- 4088
- lol -8
- loc 2
- adi WS
- stl -8
- bra *5088
- 6088
- loc 7
- bne *1
- OK
- lol -8
- loc 6
- bne *1
- OK
- TEST 089: test csb
- MAIN 20
- b089
- rom *1089,3,-1,*3089,0,*2089,1,*4089
- loc -1
- zrl -12
- 5089
- inc
- dup WS
- lae b089
- csb WS
- bra *1
- 3089
- bra *1
- 2089
- lol -12
- loc 3
- adi WS
- stl -12
- bra *5089
- 1089
- inl -12
- bra *6089
- 4089
- lol -12
- loc 2
- adi WS
- stl -12
- bra *5089
- 6089
- loc 2
- bne *1
- OK
- lol -12
- loc 6
- bne *1
- OK
- TEST 090: now test loi again, because it is so tricky
- MAIN 20
- loc 256
- lal -3
- sti 1
- loc 1
- lal -4
- sti 1
- loc 517
- lal -5
- sti 1
- loc 2
- lal -6
- sti 1
- loc 1030
- lal -8
- sti WS
- loc 4
- lal -9
- sti 1
- lal -3
- loi 1
- loc 0
- bne *1
- OK
- lal -3
- adp -1
- loi 1
- loc 1
- bne *1
- OK
- lal -3
- adp -2
- loi 1
- loc 5
- bne *1
- OK
- lal -3
- adp -3
- loi 1
- loc 2
- bne *1
- OK
- lal -4
- adp -4
- loi WS
- loc 1030
- bne *1
- OK
- lal -6
- adp -3
- loi 1
- loc 4
- bne *1
- OK
- TEST 091: now test sti 1 again
- MAIN 12
- loc 3
- loc 2
- loc 1
- loc 7
- loc 8
- loc 10
- lal -4
- sti 1
- lal -4
- adp -1
- sti 1
- lal -4
- adp -2
- sti 1
- lal -4
- adp -3
- sti 1
- lal -4
- adp -4
- sti 1
- lal -4
- adp -5
- sti 1
- lal -4
- loi 1
- loc 10
- bne *1
- OK
- lal -6
- loi 1
- loc 7
- bne *1
- OK
- lal -8
- loi 1
- loc 2
- bne *1
- OK
- TEST 092: test ldc and cii
- MAIN 0
- #ifdef W2S
- ldc 0
- bne *1
- OK
- ldc 1
- loc 1
- loc WS
- loc W2S
- cii
- cmi W2S
- zne *1
- OK
- ldc -1
- loc -1
- loc WS
- loc W2S
- cii
- cmi W2S
- zne *1
- OK
- loc -1
- ldc -1
- loc W2S
- loc WS
- cii
- cmi WS
- zne *1
- OK
- #if WS == 1
- ldc -128
- loc -128
- #endif
- #if WS == 2
- ldc -32768
- loc -32768
- #endif
- #if WS == 4
- ldc -2147483648
- loc -2147483648
- #endif
- loc WS
- loc W2S
- cii
- cmi W2S
- zne *1
- OK
- ldc -1
- loc -1
- bne *1
- OK
- loc -1
- bne *1
- OK
- ldc 1
- zeq *1092
- ; low order part on top of stack
- loc 0
- bne *1
- OK
- bra *2092
- ; high order part on top of stack
- 1092
- loc 1
- bne *1
- OK
- 2092
- #endif
- TEST 093: test cii
- MAIN 0
- loc 123
- dup WS
- loc WS
- dup WS
- cii
- bne *1
- OK
- #ifdef W2S
- loc 0
- loc WS
- loc W2S
- cii
- loc 0
- bne *1
- loc 0
- bne *1
- OK
- ; dynamically determine format of doubles
- loc 1
- loc WS
- loc W2S
- cii
- zeq *1093
- ; low order part on top of stack
- loc 0
- bne *1
- OK
- loc -3
- loc WS
- loc W2S
- cii
- loc -3
- bne *1
- loc -1
- bne *1
- OK
- bra *2093
- ; high order part on top of stack
- 1093
- loc 1
- bne *1
- OK
- loc -3
- loc WS
- loc W2S
- cii
- loc -1
- bne *1
- loc -3
- bne *1
- OK
- 2093
- #endif
- TEST 094: test adi W2S
- MAIN 0
- #ifdef W2S
- ldc 1
- ldc 1
- adi W2S
- ldc 2
- cmi W2S
- zne *1
- OK
- ldc 5
- ldc -6
- adi W2S
- ldc -1
- cmi W2S
- zne *1
- OK
- ldc -1007
- ldc +999
- adi W2S
- ldc -8
- cmi W2S
- zne *1
- OK
- ldc -1300
- ldc +1405
- adi W2S
- ldc 105
- cmi W2S
- zne *1
- OK
- ldc -30000
- ldc -20
- adi W2S
- ldc -30020
- cmi W2S
- zne *1
- OK
- #if WS >= 2
- ldc -100007
- ldc +99999
- adi W2S
- ldc -8
- cmi W2S
- zne *1
- OK
- ldc -1300
- ldc +140567
- adi W2S
- ldc 139267
- cmi W2S
- zne *1
- OK
- ldc -30000000
- ldc -20
- adi W2S
- ldc -30000020
- cmi W2S
- zne *1
- OK
- #endif
- #endif
- TEST 095: test sbi W2S
- MAIN 0
- #ifdef W2S
- ldc 1
- ldc 1
- sbi W2S
- ldc 0
- cmi W2S
- zne *1
- OK
- ldc 5
- ldc -6
- sbi W2S
- ldc +11
- cmi W2S
- zne *1
- OK
- ldc -1007
- ldc +999
- sbi W2S
- ldc -2006
- cmi W2S
- zne *1
- OK
- ldc -1300
- ldc +1405
- sbi W2S
- ldc -2705
- cmi W2S
- zne *1
- OK
- ldc -30000
- ldc -20
- sbi W2S
- ldc -29980
- cmi W2S
- zne *1
- OK
- #if WS >= 2
- ldc -100007
- ldc +99999
- sbi W2S
- ldc -200006
- cmi W2S
- zne *1
- OK
- ldc -1300
- ldc +140567
- sbi W2S
- ldc -141867
- cmi W2S
- zne *1
- OK
- ldc -30000000
- ldc -20
- sbi W2S
- ldc -29999980
- cmi W2S
- zne *1
- OK
- #endif
- #endif
- TEST 096: test mli W2S
- MAIN 0
- #ifdef W2S
- ldc 5
- ldc 9
- mli W2S
- ldc 45
- cmi W2S
- zne *1
- OK
- ldc 0
- ldc 10
- mli W2S
- ldc 0
- cmi W2S
- zne *1
- OK
- ldc -99
- ldc 7
- mli W2S
- ldc -693
- cmi W2S
- zne *1
- OK
- ldc -100
- ldc -90
- mli W2S
- ldc 9000
- cmi W2S
- zne *1
- OK
- #if WS >= 2
- ldc 123456
- ldc 200
- mli W2S
- ldc 24691200
- cmi W2S
- zne *1
- OK
- #endif
- #endif
- TEST 097: test dvi W2S
- MAIN 0
- #ifdef W2S
- ldc 15
- ldc 5
- dvi W2S
- ldc 3
- cmi W2S
- zne *1
- OK
- ldc 100
- ldc -7
- dvi W2S
- ldc -14
- cmi W2S
- zne *1
- OK
- ldc -100
- ldc 7
- dvi W2S
- ldc -14
- cmi W2S
- zne *1
- OK
- ldc -1000
- ldc -201
- dvi W2S
- ldc 4
- cmi W2S
- zne *1
- OK
- #if WS >= 2
- ldc 1234567
- ldc -100
- dvi W2S
- ldc -12345
- cmi W2S
- zne *1
- OK
- #endif
- #endif
- TEST 098: test rmi W2S
- MAIN 0
- #ifdef W2S
- ldc 100
- ldc 7
- rmi W2S
- ldc 2
- cmi W2S
- zne *1
- OK
- ldc -100
- ldc 7
- rmi W2S
- ldc -2
- cmi W2S
- zne *1
- OK
- ldc 100
- ldc -7
- rmi W2S
- ldc 2
- cmi W2S
- zne *1
- OK
- ldc -100
- ldc -7
- rmi W2S
- ldc -2
- cmi W2S
- zne *1
- OK
- ldc -1000
- ldc -201
- rmi W2S
- ldc -196
- cmi W2S
- zne *1
- OK
- #if WS >= 4
- ldc 1234567
- ldc -100
- rmi W2S
- ldc 67
- cmi W2S
- zne *1
- OK
- #endif
- #endif
- TEST 099: test and
- MAIN 0
- loc 68
- loc 65
- and WS
- loc 64
- bne *1
- OK
- loc 17
- loc 34
- loc 3
- loc 36
- and 2*WS
- loc 32
- bne *1
- loc 1
- bne *1
- OK
- loc 17
- loc 34
- loc 68
- loc -120
- loc 1
- loc 37
- loc 12
- loc -127
- and 4*WS
- loc -128
- bne *1
- loc 4
- bne *1
- loc 32
- bne *1
- loc 1
- bne *1
- OK
- TEST 100: test ior
- MAIN 0
- loc 68
- loc 65
- ior WS
- loc 69
- bne *1
- OK
- loc 17
- loc 34
- loc 3
- loc 36
- ior 2*WS
- loc 38
- bne *1
- loc 19
- bne *1
- OK
- loc 17
- loc 34
- loc 68
- loc -120
- loc 1
- loc 37
- loc 12
- loc -127
- ior 4*WS
- loc -119
- bne *1
- loc 76
- bne *1
- loc 39
- bne *1
- loc 17
- bne *1
- OK
- TEST 101: test xor
- MAIN 0
- loc 68
- loc 65
- xor WS
- loc 5
- bne *1
- OK
- loc 17
- loc 34
- loc 3
- loc 36
- xor 2*WS
- loc 6
- bne *1
- loc 18
- bne *1
- OK
- loc 17
- loc 34
- loc 68
- loc -120
- loc 1
- loc 37
- loc 12
- loc -127
- xor 4*WS
- loc 9
- bne *1
- loc 72
- bne *1
- loc 7
- bne *1
- loc 16
- bne *1
- OK
- TEST 102: test com
- MAIN 0
- loc 68
- com WS
- loc -69
- bne *1
- OK
- loc 17
- loc 34
- com 2*WS
- loc -35
- bne *1
- loc -18
- bne *1
- OK
- loc 17
- loc 34
- loc 68
- loc -120
- com 4*WS
- loc 119
- bne *1
- loc -69
- bne *1
- loc -35
- bne *1
- loc -18
- bne *1
- OK
- TEST 103: test sli,slu W2S
- MAIN 0
- #ifdef W2S
- ldc 5
- loc 3
- sli W2S
- ldc 40
- cmi W2S
- zne *1
- OK
- ldc -2
- loc 4
- sli W2S
- ldc -32
- cmi W2S
- zne *1
- OK
- ldc 5
- loc 3
- slu W2S
- ldc 40
- cmi W2S
- zne *1
- OK
- ldc -2
- loc 4
- slu W2S
- ldc -32
- cmi W2S
- zne *1
- OK
- #endif
- TEST 104: test sri,sru W2S
- MAIN 0
- #ifdef W2S
- ldc 64
- loc 5
- sri W2S
- ldc 2
- cmi W2S
- zne *1
- OK
- ldc -3
- loc 2
- sri W2S
- ldc -1
- cmi W2S
- zne *1
- OK
- ldc -16
- loc 3
- sri W2S
- ldc -2
- cmi W2S
- zne *1
- OK
- ldc 64
- loc 5
- sru W2S
- ldc 2
- cmi W2S
- zne *1
- OK
- ldc -3
- loc 2
- sru W2S
- #if W2S == 2
- ldc 16383
- #endif
- #if W2S == 4
- ldc 1073741823
- #endif
- cmi W2S
- zne *1
- OK
- #endif
- TEST 105: common test of double arithmetic
- MAIN 0
- #ifdef W2S
- ldc 1000
- ldc 10
- mli W2S
- ldc 4
- dvi W2S
- ldc 1500
- adi W2S
- ldc 2856
- sbi W2S
- ldc 100
- rmi W2S
- ldc 44
- cmi W2S
- zne *1
- OK
- #endif
- TEST 106: test cmi W2S
- MAIN 0
- #if W2S==2
- ldc 64
- ldc 4
- mli W2S
- ldc 63
- ldc 4
- mli W2S
- cmi W2S
- tge
- loc 1
- bne *1
- OK
- #endif
- #if W2S==4
- ldc 16384
- ldc 4
- mli W2S
- ldc 16383
- ldc 4
- mli W2S
- cmi W2S
- tge
- loc 1
- bne *1
- OK
- #endif
- TEST 107: test cii W2S -> WS
- MAIN 0
- #ifdef W2S
- ldc 100
- loc W2S
- loc WS
- cii
- loc 100
- bne *1
- OK
- ldc 5000
- ldc -6
- mli W2S
- ldc 1000
- dvi W2S
- loc W2S
- loc WS
- cii
- loc -30
- bne *1
- OK
- #endif
- TEST 108: test cif, cfi, adf FS
- MAIN 0
- #ifdef FS
- loc 100
- loc WS
- loc FS
- cif
- loc 44
- loc WS
- loc FS
- cif
- adf FS
- loc FS
- loc WS
- cfi
- loc 144
- bne *1
- OK
- loc 65
- loc WS
- loc FS
- cif
- loc -65
- loc WS
- loc FS
- cif
- adf FS
- loc FS
- loc WS
- cfi
- loc 0
- bne *1
- OK
- #endif
- TEST 109: test cdf, cfd
- MAIN 0
- #ifdef FS
- #ifdef W2S
- loc 55
- loc WS
- loc W2S
- cii
- loc W2S
- loc FS
- cif
- loc 55
- loc WS
- loc FS
- cif
- cmf FS
- zne *1
- OK
- loc 24
- loc WS
- loc FS
- cif
- loc FS
- loc W2S
- cfi
- loc W2S
- loc WS
- cii
- loc 24
- bne *1
- OK
- loc 57
- loc WS
- loc FS
- cif
- loc FS
- loc W2S
- cfi
- loc W2S
- loc WS
- cii
- loc 57
- bne *1
- OK
- loc 40
- loc WS
- loc W2S
- cii
- loc W2S
- loc FS
- cif
- loc FS
- loc WS
- cfi
- loc 40
- bne *1
- OK
- #endif
- #endif
- TEST 110: test sbf FS
- MAIN 0
- #ifdef FS
- loc 100
- loc WS
- loc FS
- cif
- loc 50
- loc WS
- loc FS
- cif
- sbf FS
- loc FS
- loc WS
- cfi
- loc 50
- bne *1
- OK
- loc 32
- loc WS
- loc FS
- cif
- loc 101
- loc WS
- loc FS
- cif
- sbf FS
- loc -69
- loc WS
- loc FS
- cif
- cmf FS
- zne *1
- OK
- #endif
- TEST 111: test mlf FS
- MAIN 0
- #ifdef FS
- loc 4
- loc WS
- loc FS
- cif
- loc 20
- loc WS
- loc FS
- cif
- mlf FS
- loc FS
- loc WS
- cfi
- loc 80
- bne *1
- OK
- loc -12
- loc WS
- loc FS
- cif
- loc -9
- loc WS
- loc FS
- cif
- mlf FS
- loc FS
- loc WS
- cfi
- loc 108
- bne *1
- OK
- #endif
- TEST 112: test dvf FS
- MAIN 0
- #ifdef FS
- loc 45
- loc WS
- loc FS
- cif
- loc 9
- loc WS
- loc FS
- cif
- dvf FS
- loc 5
- loc WS
- loc FS
- cif
- cmf FS
- zne *1
- OK
- loc -60
- loc WS
- loc FS
- cif
- loc 7
- loc WS
- loc FS
- cif
- dvf FS
- loc FS
- loc WS
- cfi
- loc -8
- bne *1
- OK
- #endif
- TEST 113: test fractions using FS floating arithmetic
- MAIN 0
- #ifdef FS
- loc 7
- loc WS
- loc FS
- cif
- loc 2
- loc WS
- loc FS
- cif
- dvf FS
- loc FS
- loc WS
- cfi
- loc 3
- bne *1
- OK
- loc -7
- loc WS
- loc FS
- cif
- loc 2
- loc WS
- loc FS
- cif
- dvf FS
- loc FS
- loc WS
- cfi
- loc -3
- bne *1
- OK
- loc 11
- loc WS
- loc FS
- cif
- loc 2
- loc WS
- loc FS
- cif
- dvf FS
- loc 5
- loc WS
- loc FS
- cif
- mlf FS
- loc 4
- loc WS
- loc FS
- cif
- mlf FS
- loc 110
- loc WS
- loc FS
- cif
- cmf FS
- zne *1
- OK
- #endif
- TEST 114: test cif, cfi, adf F2S
- MAIN 0
- #ifdef F2S
- loc 10
- loc WS
- loc F2S
- cif
- loc 44
- loc WS
- loc F2S
- cif
- adf F2S
- loc F2S
- loc WS
- cfi
- loc 54
- bne *1
- OK
- loc 65
- loc WS
- loc F2S
- cif
- loc -65
- loc WS
- loc F2S
- cif
- adf F2S
- loc F2S
- loc WS
- cfi
- loc 0
- bne *1
- OK
- #endif
- TEST 115: test cif, cfi W2S F2S
- MAIN 0
- #ifdef F2S
- #ifdef W2S
- loc 55
- loc WS
- loc W2S
- cii
- loc W2S
- loc F2S
- cif
- loc 55
- loc WS
- loc F2S
- cif
- cmf F2S
- zne *1
- OK
- loc 24
- loc WS
- loc F2S
- cif
- loc F2S
- loc W2S
- cfi
- loc W2S
- loc WS
- cii
- loc 24
- bne *1
- OK
- loc 57
- loc WS
- loc F2S
- cif
- loc F2S
- loc W2S
- cfi
- loc W2S
- loc WS
- cii
- loc 57
- bne *1
- OK
- loc 41
- loc WS
- loc W2S
- cii
- loc W2S
- loc F2S
- cif
- loc F2S
- loc WS
- cfi
- loc 41
- bne *1
- OK
- #endif
- #endif
- TEST 116: test sbf F2S
- MAIN 0
- #ifdef F2S
- loc 100
- loc WS
- loc F2S
- cif
- loc 50
- loc WS
- loc F2S
- cif
- sbf F2S
- loc F2S
- loc WS
- cfi
- loc 50
- bne *1
- OK
- loc 32
- loc WS
- loc F2S
- cif
- loc 101
- loc WS
- loc F2S
- cif
- sbf F2S
- loc -69
- loc WS
- loc F2S
- cif
- cmf F2S
- zne *1
- OK
- #endif
- TEST 117: test fmu F2S
- MAIN 0
- #ifdef F2S
- loc 4
- loc WS
- loc F2S
- cif
- loc 20
- loc WS
- loc F2S
- cif
- mlf F2S
- loc F2S
- loc WS
- cfi
- loc 80
- bne *1
- OK
- loc -20
- loc WS
- loc F2S
- cif
- loc -6
- loc WS
- loc F2S
- cif
- mlf F2S
- loc F2S
- loc WS
- cfi
- loc 120
- bne *1
- OK
- #endif
- TEST 118: test dvf F2S
- MAIN 0
- #ifdef F2S
- loc 45
- loc WS
- loc F2S
- cif
- loc 9
- loc WS
- loc F2S
- cif
- dvf F2S
- loc 5
- loc WS
- loc F2S
- cif
- cmf F2S
- zne *1
- OK
- loc -60
- loc WS
- loc F2S
- cif
- loc 7
- loc WS
- loc F2S
- cif
- dvf F2S
- loc F2S
- loc WS
- cfi
- loc -8
- bne *1
- OK
- #endif
- TEST 119: test fractions using F2S floating arithmetic
- MAIN 0
- #ifdef F2S
- loc 7
- loc WS
- loc F2S
- cif
- loc 2
- loc WS
- loc F2S
- cif
- dvf F2S
- loc F2S
- loc WS
- cfi
- loc 3
- bne *1
- OK
- loc -7
- loc WS
- loc F2S
- cif
- loc 2
- loc WS
- loc F2S
- cif
- dvf F2S
- loc F2S
- loc WS
- cfi
- loc -3
- bne *1
- OK
- loc 11
- loc WS
- loc F2S
- cif
- loc 2
- loc WS
- loc F2S
- cif
- dvf F2S
- loc 5
- loc WS
- loc F2S
- cif
- mlf F2S
- loc 4
- loc WS
- loc F2S
- cif
- mlf F2S
- loc 110
- loc WS
- loc F2S
- cif
- cmf F2S
- zne *1
- OK
- #endif
- TEST 120: test cal
- HOL 12
- MAIN 0
- loc 0
- ste 4
- cal $p120
- loe 4
- loc 34
- bne *1
- OK
- PROC
- pro $p120,0
- loc 34
- ste 4
- ret 0
- end
- TEST 121: test cal
- MAIN 0
- cal $p121
- lfr WS
- loc 7
- bne *1
- OK
- PROC
- pro $p121,0
- loc 7
- ret WS
- end
- TEST 122: test cal
- MAIN 0
- loc 7
- cal $p122
- asp WS
- lfr WS
- loc 7
- bne *1
- OK
- PROC
- pro $p122,0
- lol 0
- ret WS
- end
- TEST 123: test cal
- MAIN 4
- loc 7
- stl -4
- lor 0
- cal $p123
- asp PS
- lfr WS
- loc 7
- bne *1
- OK
- lxl 0
- cal $p123
- asp PS
- lfr WS
- loc 7
- bne *1
- OK
- PROC
- pro $p123,0
- lxl 1
- lof -4
- ret WS
- end
- TEST 124: test cal
- MAIN 0
- loc 7
- cal $p124
- asp WS
- PROC
- pro $p124,0
- lol 0
- loc 7
- bne *1
- OK
- ret 0
- ERRLAB
- end
- TEST 125: test cal
- MAIN 4
- loc 10
- stl -WS
- loc 90
- lxl 0
- cal $p1125
- asp PS+WS
- OK
- PROC
- pro $p1125,WS
- lol PS
- loc 90
- bne *1
- OK
- loc 11
- stl -WS
- loc 21
- loc 91
- lxl 0
- cal $p2125
- asp PS+WS
- lfr WS
- OK
- loc 82
- bne *1
- OK
- loc 21
- bne *1
- OK
- ret 0
- ERRLAB
- end
- pro $p2125,0
- lol PS
- loc 91
- bne *1
- OK
- loc 12
- loc 92
- lxl 0
- cal $p3125
- asp PS+WS
- lfr WS+WS
- OK
- loc 86
- bne *1
- loc 83
- bne *1
- OK
- loc 12
- bne *1
- OK
- lal PS
- loi WS
- loc 91
- bne *1
- OK
- loc 82
- ret WS
- ERRLAB
- end
- pro $p3125,WS
- lol PS
- loc 92
- bne *1
- OK
- loc 13
- stl -WS
- lxa 0
- adp PS
- loi WS
- loc 92
- bne *1
- OK
- lxa 1
- adp PS
- loi WS
- loc 91
- bne *1
- OK
- lxa 2
- adp PS
- loi WS
- loc 90
- bne *1
- OK
- lxl 2
- lof -WS
- loc 11
- bne *1
- OK
- lxl 3
- adp -WS
- loi WS
- loc 10
- bne *1
- OK
- loc 83
- lxl 1
- cal $p4125
- asp PS
- lxl 2
- cal $p5125
- asp PS
- lxl 3
- cal $p6125
- asp PS
- lfr WS
- ret WS+WS
- ERRLAB
- end
- pro $p4125,0
- lxa 1
- adp PS
- loi WS
- loc 91
- bne *1
- OK
- ret 0
- ERRLAB
- end
- pro $p5125,0
- lxa 1
- adp PS
- loi WS
- loc 90
- bne *1
- OK
- ret 0
- ERRLAB
- end
- pro $p6125,0
- lxl 1
- adp -WS
- loi WS
- loc 10
- bne *1
- OK
- loc 86
- ret WS
- ERRLAB
- end
- TEST 126: test bra
- MAIN 0
- bra *0126
- bra *1
- 9126
- bra *8126
- 0126
- bra *6126
- bra *1
- 1126
- bra *5126
- bra *1
- 2126
- bra *4126
- bra *1
- 3126
- bra *7126
- bra *1
- 4126
- bra *3126
- bra *1
- 5126
- bra *2126
- bra *1
- 6126
- bra *1126
- bra *1
- 7126
- bra *9126
- bra *1
- 8126
- OK
- TEST 127: test ret and lfr
- a127
- bss 4,0,0
- MAIN 0
- ; return nothing
- loc 123
- cal $retw0
- loc 123
- bne *1
- OK
- ; return single word
- cal $retw1
- lfr WS
- loc 45
- bne *1
- OK
- ; return single pointer
- cal $retp1
- lfr PS
- lae a127
- cmp
- zne *1
- OK
- ; return procedure instance identifier (two pointers)
- ; this value may not be disturbed by ASP
- lxl 0
- cal $retp2
- asp PS
- lfr 2*PS
- lpi $retp2
- cmp
- zne *1
- lxl 0
- cmp
- zne *1
- OK
- ; same as above but with ASS instead of ASP
- lxl 0
- cal $retp2
- loc PS
- ass WS
- lfr 2*PS
- lpi $retp2
- cmp
- zne *1
- lxl 0
- cmp
- zne *1
- OK
- PROC
- pro $retw0,0
- ret 0
- end
- pro $retw1,0
- loc 45
- ret WS
- end
- pro $retp1,0
- lae a127
- ret PS
- end
- pro $retp2,0
- lxl 1
- lpi $retp2
- ret 2*PS
- end
|